123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138 |
- # FSfight
- <<<<<<< 440_FSfight
- minut += 1
- gs 'stat'
- 'Your health <<FSHP>>.'
- '<<$FSnameV>>Health <<FSHPV>>'
- !конец боя
- if FSHP <= 0:
- FSloss += 1
- 'You lost the fight'
- act 'Leave': gt 'FSgame'
- =======
- minut+=1
- gs'stat'
- 'Cheers <<FSHP>>.'
- '<<$FSnameV>>, health <<FSHPV>>'
- !end of the fight
- if FSHP<=0:
- FSloss+=1
- 'You lost the fight'
- act 'Get_Away':gt'FSgame'
- >>>>>>> 440_FSfight
- exit
- end
- <<<<<<< 440_FSfight
- if FSHPV <= 0:
- FSWin += 1
- '<<$FSnameV>> fell. You win the fight.'
- 'You got <<FSPrizeM>> coins and <<FSPrizeExp>> experience'
- act 'Disengage': gt 'FSgame'
- =======
- if FSHPV<=0:
- FSWin+=1
- '<<$FSnameV>> down. You win the fight.'
- 'you got <<FSPrizeM>> coins and <<FSPrizeExp>> experience'
- act 'Out of combat':gt'FSgame'
- >>>>>>> 440_FSfight
- exit
- end
- <<<<<<< 440_FSfight
- !инициатива
- KGOLiniV = RAND(FSreaktV/2, FSreaktV * 2)
- KGOLini = RAND(FSreakt/2, FSreakt * 2)
- if KGOLini = KGOLiniV:
- hodrand = RAND(0,1)
- if hodrand = 0: KGOLini = 1 & KGOLiniV = 0
- if hodrand = 1: KGOLini = 0 & KGOLiniV = 1
- end
- if KGOLini > KGOLiniV: KGOLiniSUM += 1
- if KGOLini < KGOLiniV: KGOLiniSUM -= 1
- if KGOLiniSUM > 3: KGOLini = 0 & KGOLiniV = 1 & KGOLiniSUM = 0
- if KGOLiniSUM<-3: KGOLini = 1 & KGOLiniV = 0 & KGOLiniSUM = 0
- !ходы
- if KGOLini > KGOLiniV:
- 'Now your turn'
- act 'Attack':
- cls
- ''
- dynamic $FSatk
- act 'Further': gt $curloc
- end
- else
- 'Now opponents'
- '<<$FSnameV>> attacks you'
- dynamic $FSatkV
- act 'Further': gt $curloc
- end
- =======
- !initiative
- KGOLiniV=RAND(FSreaktV/2,FSreaktV*2)
- KGOLini=RAND(FSreakt/2,FSreakt*2)
- if KGOLini=KGOLiniV:
- hodrand=RAND(0,1)
- if hodrand=0:KGOLini=1&KGOLiniV=0
- if hodrand=1:KGOLini=0&KGOLiniV=1
- end
- if KGOLini>KGOLiniV:KGOLiniSUM+=1
- if KGOLini<KGOLiniV:KGOLiniSUM-=1
- if KGOLiniSUM>3:KGOLini=0&KGOLiniV=1&KGOLiniSUM=0
- if KGOLiniSUM<-3:KGOLini=1&KGOLiniV=0&KGOLiniSUM=0
- !moves
- if KGOLini>KGOLiniV:
- 'Now your turn'
- act 'attack':
- cls
- ''
- dynamic $FSatk
- act 'further':gt $curloc
- end
- else
- 'Now move the enemy'
- '<<$FSnameV>> attacks you'
- dynamic $FSatkV
- act 'further':gt $curloc
- end
- >>>>>>> 440_FSfight
- --- FSfight ---------------------------------
|