062_kikbox 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354
  1. # kikbox
  2. <<<<<<< 062_kikbox
  3. if $args[0] = 'start':
  4. '<center><b>Round 1</b></center>'
  5. *nl
  6. '<center><img src="images\community\ring1.jpg"></center>'
  7. act 'Start Fight':
  8. gt 'kikbox','fight'
  9. end
  10. end
  11. if $ARGS[0] = 'fight':
  12. gs 'befKik'
  13. '<B>======================== (ROUND <<round>>) ================= ==========</B>'
  14. if minround = 1: '<B>the fight 0:30</B>'
  15. if minround = 2: '<B>the fight 1:00</B>'
  16. if minround = 3: '<B>the fight 1:30</B>'
  17. if minround = 4: '<B>the fight 2:00</B>'
  18. if minround = 5: '<B>the fight 2:30</B>'
  19. '<B><<$nameV>></B> Life <B><font color = red><<healthV>></font></B>, Endurance <B><font color = green><<staminaV>></font></B>'
  20. 'Your life <B><font color = red><<health>></font></B>, Endurance <B><font color = green><<stamina>></font></B>'
  21. '<B>=============================================== ===========</B>'
  22. 'Your points <<pointKik>>Points opponent <<pointKikV>>'
  23. '<B>=============================================== ===========</B>'
  24. gs 'initKik'
  25. if hod = 0:
  26. !игрок атакует
  27. '<font color = green>You can attack</font>'
  28. act 'Apply fast Jeb':
  29. cla
  30. set damage = RAND(stren/12, stren/8)
  31. if damage <= 0: set damage = 1
  32. set koefatak = (speed + reakt + jab)*2
  33. set koefpop = koefatak * 20/100
  34. set popad = RAND(koefatak - koefpop, koefatak + koefpop)
  35. '<font color = green>You deal with a quick jab step forward.</font>'
  36. gs 'Kikatak','player'
  37. xgt 'kikbox','sta'
  38. end
  39. act 'Apply power punch':
  40. cla
  41. set damkoef = stren * 20/100
  42. set damage = RAND(stren - damkoef, stren + damkoef)
  43. if damage <= 0: set damage = 1
  44. set koefatak = (speed + reakt + punch)
  45. set koefpop = koefatak * 20/100
  46. set popad = RAND(koefatak - koefpop, koefatak + koefpop)
  47. '<font color = green>You apply a powerful punch.</font>'
  48. gs 'Kikatak','player'
  49. xgt 'kikbox','sta'
  50. end
  51. act 'Footed strike':
  52. cla
  53. set damkoef = stren * 20/100
  54. set damage = RAND ((stren - damkoef)*3,(stren + damkoef)*3)
  55. if damage <= 0: set damage = 1
  56. set koefatak = (speed + reakt + kik)/2
  57. set koefpop = koefatak * 20/100
  58. set popad = RAND(koefatak - koefpop, koefatak + koefpop)
  59. '<font color = green>You apply a kick powerful.</font>'
  60. gs 'Kikatak','player'
  61. xgt 'kikbox','sta'
  62. end
  63. end
  64. if hod = 1:
  65. !противник атакует
  66. '<font color = red><<$nameV>> attacks</font>'
  67. set tiprand = RAND(0,2)
  68. if tiprand = 0:
  69. set damage = RAND(strenV/12, strenV/8)
  70. if damage <= 0: set damage = 1
  71. set koefatak = (speedV + reaktV + JabV)*2
  72. set koefpop = koefatak * 20/100
  73. set popad = RAND(koefatak - koefpop, koefatak + koefpop)
  74. '<font color = red><<$nameV>> deals with quick jab step forward.</font>'
  75. gs 'Kikatak','enemy'
  76. xgt 'kikbox','sta'
  77. end
  78. if tiprand = 1:
  79. set damkoef = strenV * 20/100
  80. set damage = RAND(strenV - damkoef, strenV + damkoef)
  81. if damage <= 0: set damage = 1
  82. set koefatak = (speedV + reaktV + punchV)
  83. set koefpop = koefatak * 20/100
  84. set popad = RAND(koefatak - koefpop, koefatak + koefpop)
  85. '<font color = red><<$nameV>> applies the power punch.</font>'
  86. gs 'Kikatak','enemy'
  87. xgt 'kikbox','sta'
  88. end
  89. if tiprand = 2:
  90. set damkoef = strenV * 20/100
  91. set damage = RAND ((strenV - damkoef)*3,(strenV + damkoef)*3)
  92. if damage <= 0: set damage = 1
  93. set koefatak = (speedV + reaktV + kikV)/2
  94. set koefpop = koefatak * 20/100
  95. set popad = RAND(koefatak - koefpop, koefatak + koefpop)
  96. '<font color = red><<$nameV>> tries for a kick.</font>'
  97. gs 'Kikatak','enemy'
  98. xgt 'kikbox','sta'
  99. end
  100. end
  101. =======
  102. if $ARGS[0]='start':
  103. cla
  104. if health <= 0:
  105. '<B><font color=red>You lost by TKO</font></B>'
  106. xgt'enderKik','loss'
  107. exit
  108. end
  109. if healthV <= 0:
  110. '<B><font color=green><<$nameV>> lost by TKO</font></B>'
  111. xgt'enderKik','win'
  112. exit
  113. end
  114. gs'befKik'
  115. '<B>========================(ROUND <<round>>)===========================</B>'
  116. if minround = 1:'<B>the battle 0:30</B>'
  117. if minround = 2:'<B>the battle 1:00</B>'
  118. if minround = 3:'<B>the battle 1:30</B>'
  119. if minround = 4:'<B>the battle 2:00</B>'
  120. if minround = 5:'<B>the battle 2:30</B>'
  121. '<B><<$nameV>></B> life <B><font color=red><<healthV>></font></B>, endurance <B><font color=green><<staminaV>></font></B>'
  122. 'Your life <B><font color=red><<health>></font></B>, endurance <B><font color=green><<stamina>></font></B>'
  123. '<B>==========================================================</B>'
  124. 'your points <<pointKik>>, points rival <<pointKikV>>'
  125. '<B>==========================================================</B>'
  126. gs'initKik'
  127. if hod = 0:
  128. !player attacks
  129. '<font color=green>You can attack</font>'
  130. act 'Apply fast Jeb':
  131. cla
  132. set damage = RAND (stren/12,stren/8)
  133. if damage <= 0:set damage = 1
  134. set koefatak = (speed + reakt + jab)*2
  135. set koefpop = koefatak*20/100
  136. set popad = RAND (koefatak - koefpop,koefatak + koefpop)
  137. '<font color=green>You deal with a quick jab step forward.</font>'
  138. gs'Kikatak','player'
  139. xgt'kikbox','sta'
  140. end
  141. act 'Apply power punch':
  142. cla
  143. set damkoef = stren*20/100
  144. set damage = RAND (stren - damkoef,stren + damkoef)
  145. if damage <= 0:set damage = 1
  146. set koefatak = (speed + reakt + punch)
  147. set koefpop = koefatak*20/100
  148. set popad = RAND (koefatak - koefpop,koefatak + koefpop)
  149. '<font color=green>You apply a powerful punch.</font>'
  150. gs'Kikatak','player'
  151. xgt'kikbox','sta'
  152. end
  153. act 'Apply kick':
  154. cla
  155. set damkoef = stren*20/100
  156. set damage = RAND ((stren - damkoef)*3,(stren + damkoef)*3)
  157. if damage <= 0:set damage = 1
  158. set koefatak = (speed + reakt + kik)/2
  159. set koefpop = koefatak*20/100
  160. set popad = RAND (koefatak - koefpop,koefatak + koefpop)
  161. '<font color=green>You put a powerful kick leg.</font>'
  162. gs'Kikatak','player'
  163. xgt'kikbox','sta'
  164. end
  165. end
  166. if hod = 1:
  167. !enemy attacks
  168. '<font color=red><<$nameV>> attacks</font>'
  169. set tiprand = RAND (0,2)
  170. if tiprand = 0:
  171. set damage = RAND (strenV/12,strenV/8)
  172. if damage <= 0:set damage = 1
  173. set koefatak = (speedV + reaktV + JabV)*2
  174. set koefpop = koefatak*20/100
  175. set popad = RAND (koefatak - koefpop,koefatak + koefpop)
  176. '<font color=red><<$nameV>> causes a quick jab with a step forward.</font>'
  177. gs'Kikatak','enemy'
  178. xgt'kikbox','sta'
  179. end
  180. if tiprand = 1:
  181. set damkoef = strenV*20/100
  182. set damage = RAND (strenV - damkoef,strenV + damkoef)
  183. if damage <= 0:set damage = 1
  184. set koefatak = (speedV + reaktV + punchV)
  185. set koefpop = koefatak*20/100
  186. set popad = RAND (koefatak - koefpop,koefatak + koefpop)
  187. '<font color=red><<$nameV>> causes a power punch.</font>'
  188. gs'Kikatak','enemy'
  189. xgt'kikbox','sta'
  190. end
  191. if tiprand = 2:
  192. set damkoef = strenV*20/100
  193. set damage = RAND ((strenV - damkoef)*3,(strenV + damkoef)*3)
  194. if damage <= 0:set damage = 1
  195. set koefatak = (speedV + reaktV + kikV)/2
  196. set koefpop = koefatak*20/100
  197. set popad = RAND (koefatak - koefpop,koefatak + koefpop)
  198. '<font color=red><<$nameV>> tries for a kick.</font>'
  199. gs'Kikatak','enemy'
  200. xgt'kikbox','sta'
  201. end
  202. end
  203. >>>>>>> 062_kikbox
  204. end
  205. <<<<<<< 062_kikbox
  206. if $ARGS[0] = 'sta':
  207. cla
  208. set ionce = 0
  209. '<B>=============================================== ===========</B>'
  210. if minround = 1: '<B>the fight 1:00</B>'
  211. if minround = 2: '<B>the fight 1:30</B>'
  212. if minround = 3: '<B>the fight 2:00</B>'
  213. if minround = 4: '<B>the fight 2:30</B>'
  214. if minround = 5: '<B>the fight 3:00</B>'
  215. '<B>=============================================== ===========</B>'
  216. '<B><<$nameV>></B> Life <B><font color = red><<healthV>></font></B>, Endurance <B><font color = green><<staminaV>></font></B>'
  217. 'Your life <B><font color = red><<health>></font></B>, Endurance <B><font color = green><<stamina>></font></B>'
  218. '<B>=============================================== ===========</B>'
  219. if health <= 0:
  220. '<B><font color = red>You lost by TKO</font></B>'
  221. gt 'enderKik','lossKO'
  222. exit
  223. end
  224. if healthV <= 0:
  225. '<B><font color = green><<$nameV>> lost by TKO</font></B>'
  226. gt 'enderKik','winKO'
  227. exit
  228. end
  229. act 'Further': gt 'kikbox','fight'
  230. if minround = 5:
  231. cla
  232. *clr
  233. 'Rang the gong indicating the end of the round <<round>>.'
  234. set minround = 0
  235. set round += 1
  236. act 'Back to the corner':
  237. cla
  238. *clr
  239. '<center><img src="images\community\kickboxing_corner.jpg"></center>'
  240. 'You try to rest as best as you can.'
  241. act 'Prepare':
  242. if round <= formula:
  243. cla
  244. *clr
  245. '<center><b>Round <<round>></b></center>'
  246. *nl
  247. '<center><img src="images\community\ring<<round>>.jpg"></center>'
  248. act 'In the ring': gt 'kikbox','fight'
  249. else
  250. if pointKik > pointKikV:
  251. gt 'enderKik','win'
  252. end
  253. if pointKik < pointKikV:
  254. gt 'enderKik','loss'
  255. end
  256. if pointKik = pointKikV:
  257. gt 'enderKik','draw'
  258. end
  259. end
  260. end
  261. end
  262. end
  263. end
  264. =======
  265. if $ARGS[0]='sta':
  266. cla
  267. set ionce = 0
  268. '<B>==========================================================</B>'
  269. if minround = 1:'<B>the battle 1:00</B>'
  270. if minround = 2:'<B>the battle 1:30</B>'
  271. if minround = 3:'<B>the battle 2:00</B>'
  272. if minround = 4:'<B>the battle 2:30</B>'
  273. if minround = 5:'<B>the battle 3:00</B>'
  274. '<B>==========================================================</B>'
  275. '<B><<$nameV>></B> life <B><font color=red><<healthV>></font></B>, endurance <B><font color=green><<staminaV>></font></B>'
  276. 'Your life <B><font color=red><<health>></font></B>, endurance <B><font color=green><<stamina>></font></B>'
  277. '<B>==========================================================</B>'
  278. act 'further':gt'kikbox','start'
  279. if minround = 5:
  280. cla
  281. set minround = 0
  282. set round = round + 1
  283. 'Rang the gong indicating the end of the round'
  284. if round <= formula:
  285. act 'Vacationing in the corner':
  286. cla
  287. 'You rest in his corner.'
  288. act 'In the ring':gt'kikbox','start'
  289. end
  290. end
  291. if round > formula and sparing = 0:
  292. act 'Get out in the middle of announcing the winner':
  293. cla
  294. if pointKik > pointKikV:
  295. 'you won.'
  296. act 'Leave the ring':gt'enderKik','win'
  297. end
  298. if pointKik < pointKikV:
  299. 'you lost.'
  300. act 'Leave the ring':gt'enderKik','loss'
  301. end
  302. if pointKik = pointKikV:
  303. 'draw.'
  304. act 'Leave the ring':gt'enderKik','draw'
  305. end
  306. end
  307. end
  308. if round > formula and sparing = 1:
  309. act 'Leave the ring':gt'fit','start'
  310. end
  311. end
  312. end
  313. >>>>>>> 062_kikbox
  314. --- kikbox ---------------------------------