12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 |
- # FSfight
- minut += 1
- gs 'stat'
- 'Your health <<FSHP>>.'
- '<<$FSnameV>>Health <<FSHPV>>'
- !конец боя
- if FSHP <= 0:
- FSloss += 1
- 'You lost the fight'
- act 'Leave': gt 'FSgame'
- exit
- end
- if FSHPV <= 0:
- FSWin += 1
- '<<$FSnameV>> fell. You win the fight.'
- 'You got <<FSPrizeM>> coins and <<FSPrizeExp>> experience'
- act 'Disengage': gt 'FSgame'
- exit
- end
- !инициатива
- 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
- --- FSfight ---------------------------------
|