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


: DICE1 ( -- )
 Бросок случайного типа кости (item с кодом от 4625 до 4628)
    PLAYER@   4625   4 CHOOSE  +   DICE
;

: CASINO  ( n -- )
 Играем
    DUP player@ ADENA@ > 
    IF
        "Not enough adena" SHOW
        DROP
        EXIT
    THEN
     
    DICE1
    DICE1
    OVER = 
     
    ( stake result flag )
    IF
        6 = IF
            5 *
            "You win " . DUP . "adena!!!" .
        ELSE
            2 *
            "You win " . DUP . "adena!" .
        THEN
     ELSE
        DROP
        "You loose " . DUP . "adena." .
        NEGATE
     THEN

     player@ ADENA+!
;


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


<html><body>Custodian Renny:



Play dice!



<a action="bypass -h forth 100 casino">Play for 100a</a>

<a action="bypass -h forth 1000 casino">Play for 1000a</a>

<a action="bypass -h forth 10000 casino">Play for 10000a</a>

<a action="bypass -h forth 100000 casino">Play for 100000a</a>


</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' :(
 
RU Balancer #26.06.2005 20:49
+
-
edit
 

Balancer

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

Последние действия над темой
Нет непрочитанных ответов
Обновлённое на этом форуме
На других форумах
Вопрос, будут ли остальные...
Это да, не одиноки: "...нас заокеанский папа тоже обоссал..."
Это ему аглицкая PR-компания придумала. Вэнс, кстати,прошёлся по зелиному прикиду, мол, так являться к правильным пацанам в приличное место - неуважение к американскому…
"Воровский"
Катера-тральщики уходят на боевое траление в Азовское море. 1946 г. Севастополь
Реклама

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






Твиттер сайта
Статистика
Рейтинг@Mail.ru
АвиаТОП
 
Яндекс.Метрика
website counter
 
free counters