lineage ii портал » Форумы » L2J Fortress » Открытые форумы » JBForth » Казино

Казино

Теги:программирование, Java, JBForth, Forth
 
Новый опрос Новый фотосет Новая тема Написать сообщение в тему
RU Balancer #25.06.2005 12:33
+
-
edit
 

Balancer

администратор
★★★★★
Казино снова подключил:

Исходник - http://wiki.mazylis.lt/cgi-bin/trac.cgi/.../jbforth/games/Casino.f

code forth
  1. : DICE1 ( -- )
  2.  Бросок случайного типа кости (item с кодом от 4625 до 4628)
  3.     PLAYER@   4625   4 CHOOSE  +   DICE
  4. ;
  5.  
  6. : CASINO  ( n -- )
  7.  Играем
  8.     DUP player@ ADENA@ >
  9.     IF
  10.         "Not enough adena" SHOW
  11.         DROP
  12.         EXIT
  13.     THEN
  14.      
  15.     DICE1
  16.     DICE1
  17.     OVER =
  18.      
  19.     ( stake result flag )
  20.     IF
  21.         6 = IF
  22.             5 *
  23.             "You win " . DUP . "adena!!!" .
  24.         ELSE
  25.             2 *
  26.             "You win " . DUP . "adena!" .
  27.         THEN
  28.      ELSE
  29.         DROP
  30.         "You loose " . DUP . "adena." .
  31.         NEGATE
  32.      THEN
  33.  
  34.      player@ ADENA+!
  35. ;


Вызов: http://wiki.mazylis.lt/cgi-bin/trac.cgi/file/.../html/default/7785.htm

code html4strict
  1. <html><body>Custodian Renny:
  2.  
  3.  
  4.  
  5. Play dice!
  6.  
  7.  
  8.  
  9. <a action="bypass -h forth 100 casino">Play for 100a</a>
  10.  
  11. <a action="bypass -h forth 1000 casino">Play for 1000a</a>
  12.  
  13. <a action="bypass -h forth 10000 casino">Play for 10000a</a>
  14.  
  15. <a action="bypass -h forth 100000 casino">Play for 100000a</a>
  16.  
  17.  
  18. </body></html>
… чтобы понять рекурсию, нужно сперва понять рекурсию …  
IL garri_il #26.06.2005 20:39
+
-
edit
 

garri_il

втянувшийся
BAL.podskazi na kazino NPC u tebj v baze ostalsj L2Npc ili ti ego pereimenovival
hotj j HTML fail polozil a on pishet
Mne ne4ego vam skazat' :(
 
AD Реклама Google — средство выживания форумов :)
RU Balancer #26.06.2005 20:49
+
-
edit
 

Balancer

администратор
★★★★★
У меня БД точно соответствует нынешнему датапаку на SVN. И MySQL и html.
… чтобы понять рекурсию, нужно сперва понять рекурсию …  

Последние действия над темой

в начало страницы | новое
lineage ii портал » Форумы » L2J Fortress » Открытые форумы » JBForth » Казино
Copyright © Balancer 1997..2024
Создано 25.06.2005
Связь с владельцами и администрацией сайта: anonisimov@gmail.com, rwasp1957@yandex.ru и admin@balancer.ru.
 
Поиск
Настройки
Твиттер сайта
Статистика
Рейтинг@Mail.ru