Покатушки на вайвернах и страйдерах.

1.  Покатушки на вайверне
2.  
3. : adena?  ( n -- n f )
4.          Возвращаем истину, если есть n адены и ложь - иначе
5.         player@ adena@ over >=
6. ;
7.  
8. : ride-over ( -- )
9.          Ссаживаем с вайверна с предупреждением
10.         player@ unride
11.         "Ride time is over.
12.  
13. Welcome back again!" show
14. ;
15.  
16. : temporary-ride ( pet time price -- )
17.          Катаемся на вайверне или другом пете ('pet') 'time' секунд за цену 'price'
18.         adena? not if
19.                 >r 2drop r>
20.                 "Not enough adena! Need" . .
21.                 exit
22.         then
23.        
24.         ( pet time adena )
25.  
26.         rot player@ ride 0= if 2drop exit then
27.        
28.         ( time adena )
29.  
30.         swap  1000 *  "ride-over"  swap  timer-start
31.  
32.         dup player@ adena-!
33.         "You loose " . . "adena" .
34.         "Good ride!" .
35. ;

garri_il:

Доброе утро Бал.
A можно как нить сделать чтоб при получении дракона снять касты на скорость или уровнять ее ?

 

garri_il:

да а такои вопрос можно сделать телепорт как лотерею чтоб при выборе меню тебя закидывало в одну из 5 локации ?

 

garri_il:

можно сделать типа квеста чтоб тебя переименовывали 000000001 к примеру давали лвл 1 и карму 1000 и давали задание принести че нить

 

garri_il:

или это не реально запомнить данние игрока а потом вернуть их назад?

 

Zoomik:

просто обновлял немного по другому.