1
1

422_KGOLgame 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620
  1. # KGOLgame
  2. <<<<<<< 422_KGOLgame
  3. minut += 1
  4. gs 'stat'
  5. if KGOLset = 0:$KGOLset = 'On the head there is nothing'
  6. if KGOLset2 = 0:$KGOLset2 = 'Body simple clothes'
  7. if KGOLset3 = 0:$KGOLset3 = 'Simple shoes on his feet'
  8. if KGOLset4 = 0:$KGOLset4 = 'No gloves on hands'
  9. if KGOLset5 = 0:$KGOLset5 = 'No weapon'
  10. $KGOLstat = {
  11. clr
  12. pl '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
  13. pl '<a href="exec:dynamic $KGOLstat2 ">Close Statistics</a>'
  14. if KGOLneedExp > 0: pl 'Total experiment <<KGOLexp>>, it is necessary to next level <<KGOLneedExp>> experience'
  15. if KGOLneedExp <= 0: pl '<a href="exec:dynamic $KGOLrise "><font color = red>You need to increase the level.</font></a>'
  16. pl 'Power <<KGOLstren>>, speed and evasion <<KGOLspeed>>, endurance <<KGOLvital>>Intelligence <<KGOLintel>>, armor protection <<KGOLbrona>>, the bonus damage from weapons <<KGOLwpower>>'
  17. nl
  18. pl '<center>Exodus</center>'
  19. pl '<<$KGOLset>>'
  20. pl '<<$KGOLset2>>'
  21. pl '<<$KGOLset3>>'
  22. pl '<<$KGOLset4>>'
  23. pl '<<$KGOLset5>>'
  24. nl
  25. pl '<center>Equipment</center>'
  26. if KGOLpotionH > 0: pl 'Health potions <<KGOLpotionH>> pieces. <a href="exec:KGOLpotionH -= 1 & KGHP += 100 & gs ''stat''&gt $curloc "><font color = red>Drink.</font></a>'
  27. if KGOLpotionM > 0: pl 'Mana potions <<KGOLpotionM>> pieces. <a href="exec:KGOLpotionM -= 1 & KGManna += 100 & gs ''stat''&gt $curloc "><font color = red>Drink.</font></a>'
  28. pl '<center>PVE</center>'
  29. pl 'Ratio <<KGOLWin>>, losses <<KGOLLoss>>'
  30. pl '<center>PVP</center>'
  31. pl 'Ratio <<KGOLpvpWin>>, losses <<KGOLpvpLoss>>'
  32. }
  33. $KGOLstat2 = {
  34. gs 'stat'
  35. }
  36. KGHPMAX = KGOLvital * 10
  37. KGMannaMax = KGOLintel * 10
  38. if KGHP > KGHPMAX: KGHP = KGHPMAX
  39. if KGManna > KGMannaMax: KGManna = KGMannaMax
  40. KGOLbrona -= KGOLbronaMod
  41. KGOLbronaMod = 0
  42. KGOLstren -= KGOLstrenMod
  43. KGOLstrenMod = 0
  44. KGOLspeed -= KGOLspeedMod
  45. KGOLspeedMod = 0
  46. KGOLvital -= KGOLvitalMod
  47. KGOLvitalMod = 0
  48. KGOLintel -= KGOLintelMod
  49. KGOLintelMod = 0
  50. KGOLwpower -= KGOLwpowerMod
  51. KGOLwpowerMod = 0
  52. KGOLcooldown = 0
  53. if KGHP < KGHPMAX and KGOLhirka > 0:
  54. kghneed = KGHPMAX - KGHP
  55. if KGOLhirka >= kghneed:
  56. KGOLhirka -= kghneed
  57. KGHP = KGHPMAX
  58. else
  59. KGHP = KGOLhirka
  60. KGOLhirka = 0
  61. end
  62. end
  63. if KGHP < 0: KGHP = 0
  64. gs 'KGOLexpa'
  65. '<a href="exec:GT ''KGstart''">Get out of the game</a>'
  66. '<a href="exec:dynamic $KGOLstat ">View Statistics</a>'
  67. '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
  68. 'Life <<KGHP>>, the manna <<KGManna>>'
  69. if KGHP < KGHPMAX: 'You´ve got <<KGHP*100/KGHPMAX>>% of life'
  70. if KGManna < KGMannaMax: 'You´ve got <<KGManna*100/KGMannaMax>>% of manna'
  71. if KGOLhirka > 0: 'Hirka can restore automatically <<KGOLhirka>> health units'
  72. if KGOLPrizeM > 0: 'You have <<KGOLmoney>> coins'
  73. if KGOLneedExp <= 0: '<a href="exec: dynamic $KGOLrise "><font color = red>You need to increase the level.</font></a>'
  74. if KGOLpoint > 0: '<a href="exec: dynamic $KGOLrise "><font color = red>You have not allocated skill points.</font></a>'
  75. if KGOLspellpoint >= 4: '<a href="exec: dynamic $KGOLrise2 "><font color = red>You can choose your skill.</font></a>'
  76. =======
  77. minut+=1
  78. gs'stat'
  79. if KGOLset=0:$KGOLset='On the head there is nothing'
  80. if KGOLset2=0:$KGOLset2='On the body of simple clothes'
  81. if KGOLset3=0:$KGOLset3='Simple shoes on his feet'
  82. if KGOLset4=0:$KGOLset4='In the hands of no gloves'
  83. if KGOLset5=0:$KGOLset5='no weapons'
  84. $KGOLstat={
  85. clr
  86. pl'<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
  87. pl'<a href="exec:dynamic $KGOLstat2 ">Close Statistics</a>'
  88. if KGOLneedExp>0:pl'Total experience <<KGOLexp>>, necessary to the next level <<KGOLneedExp>> experience'
  89. if KGOLneedExp<=0:pl'<a href="exec:dynamic $KGOLrise "><font color=red>You need to raise the level of.</font></a>'
  90. pl'power <<KGOLstren>>,speed and dodge <<KGOLspeed>>,endurance <<KGOLvital>>,intelligence <<KGOLintel>>, armor protection <<KGOLbrona>>, bonus damage from weapons <<KGOLwpower>>'
  91. pl''
  92. pl'<center>Exodus</center>'
  93. pl'<<$KGOLset>>'
  94. pl'<<$KGOLset2>>'
  95. pl'<<$KGOLset3>>'
  96. pl'<<$KGOLset4>>'
  97. pl'<<$KGOLset5>>'
  98. pl''
  99. pl'<center>inventory</center>'
  100. if KGOLpotionH>0:pl'health potions <<KGOLpotionH>> pcs. <a href="exec:KGOLpotionH-=1&KGHP+=100&gs''stat''&gt $curloc "><font color=red>drink.</font></a>'
  101. if KGOLpotionM>0:pl'mana potions <<KGOLpotionM>> pcs. <a href="exec:KGOLpotionM-=1&KGManna+=100&gs''stat''&gt $curloc "><font color=red>drink.</font></a>'
  102. pl'<center>PVE</center>'
  103. pl'Wins <<KGOLWin>>, lesions <<KGOLLoss>>'
  104. pl'<center>PVP</center>'
  105. pl'Wins <<KGOLpvpWin>>, lesions <<KGOLpvpLoss>>'
  106. }
  107. $KGOLstat2={
  108. gs'stat'
  109. }
  110. KGHPMAX=KGOLvital*10
  111. KGMannaMax=KGOLintel*10
  112. if KGHP>KGHPMAX:KGHP=KGHPMAX
  113. if KGManna>KGMannaMax:KGManna=KGMannaMax
  114. KGOLbrona-=KGOLbronaMod
  115. KGOLbronaMod=0
  116. KGOLstren-=KGOLstrenMod
  117. KGOLstrenMod=0
  118. KGOLspeed-=KGOLspeedMod
  119. KGOLspeedMod=0
  120. KGOLvital-=KGOLvitalMod
  121. KGOLvitalMod=0
  122. KGOLintel-=KGOLintelMod
  123. KGOLintelMod=0
  124. KGOLwpower-=KGOLwpowerMod
  125. KGOLwpowerMod=0
  126. KGOLcooldown=0
  127. if KGHP<KGHPMAX and KGOLhirka>0:
  128. kghneed=KGHPMAX-KGHP
  129. if KGOLhirka>=kghneed:
  130. KGOLhirka-=kghneed
  131. KGHP=KGHPMAX
  132. else
  133. KGHP=KGOLhirka
  134. KGOLhirka=0
  135. end
  136. end
  137. if KGHP<0:KGHP=0
  138. gs'KGOLexpa'
  139. '<a href="exec:GT ''KGstart''">Leave the game</a>'
  140. '<a href="exec:dynamic $KGOLstat ">View Statistics</a>'
  141. '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
  142. 'life <<KGHP>>, manna <<KGManna>>'
  143. if KGHP<KGHPMAX:'You have left <<KGHP*100/KGHPMAX>>% life'
  144. if KGManna<KGMannaMax:'You have left <<KGManna*100/KGMannaMax>>% manna from'
  145. if KGOLhirka>0:'Khirqa can recover automatically <<KGOLhirka>> health units'
  146. if KGOLPrizeM>0:'you have <<KGOLmoney>> coin'
  147. if KGOLneedExp<=0:'<a href="exec:dynamic $KGOLrise "><font color=red>You need to raise the level of.</font></a>'
  148. if KGOLpoint>0:'<a href="exec:dynamic $KGOLrise "><font color=red>You have not allocated skill points.</font></a>'
  149. if KGOLspellpoint>=4:'<a href="exec:dynamic $KGOLrise2 "><font color=red>You can choose your skill.</font></a>'
  150. >>>>>>> 422_KGOLgame
  151. '<<KGOLspellpoint>>'
  152. ''
  153. <<<<<<< 422_KGOLgame
  154. '<center><B>Countryside</B></center>'
  155. 'You are in the picturesque village where to spawn characters stand motionless. NPC standing pillars and in the distance one can see the monsters.'
  156. =======
  157. '<center><B>village</B></center>'
  158. 'You are in the picturesque village where to spawn stand motionless characters. NPCs are the pillars and in the distance one can see the monsters.'
  159. >>>>>>> 422_KGOLgame
  160. act 'Approach the NPC':
  161. cls
  162. <<<<<<< 422_KGOLgame
  163. minut += 1
  164. if KGOLmqw = 12 and KGOLlvl >= 5:
  165. KGOLmqw = 13
  166. '(NPS) - <<$KGOLname>> you need to kill the royal 10t beetles. Reward 200 experience.'
  167. end
  168. if KGOLmqw = 13 and KGOLqwvip >= 10:
  169. KGOLqwvip = 0
  170. KGOLmqw = 14
  171. KGOLexp += 200
  172. '(NPS) - <<$KGOLname>> congratulations, that´s a reward of 200 experience.'
  173. end
  174. if KGOLmqw = 10 and KGOLlvl >= 5:
  175. KGOLmqw = 11
  176. '(NPS) - <<$KGOLname>> you need to kill toads 10t. Reward 100 experience.'
  177. end
  178. if KGOLmqw = 11 and KGOLqwvip >= 10:
  179. KGOLqwvip = 0
  180. KGOLmqw = 12
  181. KGOLexp += 100
  182. '(NPS) - <<$KGOLname>> congratulations, that´s a reward of 100 experience.'
  183. end
  184. if KGOLmqw = 8:
  185. KGOLmqw = 9
  186. '(NPS) - <<$KGOLname>> you need to kill 30t young cacti. Then I´ll give you a helmet.'
  187. end
  188. if KGOLmqw = 9 and KGOLqwvip >= 30:
  189. KGOLqwvip = 0
  190. KGOLmqw = 10
  191. KGOLset = 1
  192. KGOLbrona += 2
  193. $KGOLset = 'Helm of rough skin'
  194. '(NPS) - <<$KGOLname>> congratulations, here´s your helmet.'
  195. end
  196. if KGOLmqw = 6:
  197. KGOLmqw = 7
  198. '(NPS) - <<$KGOLname>> you need to kill wolves 25t toothless. Then I´ll give you mittens.'
  199. end
  200. if KGOLmqw = 7 and KGOLqwvip >= 25:
  201. KGOLqwvip = 0
  202. KGOLmqw = 8
  203. KGOLset4 = 1
  204. KGOLbrona += 2
  205. $KGOLset4 = 'Gauntlets of rough skin'
  206. '(NPS) - <<$KGOLname>> congratulations, here´s your mittens.'
  207. end
  208. if KGOLmqw = 4:
  209. KGOLmqw = 5
  210. '(NPS) - <<$KGOLname>> you need to kill 20t sundews. Then I will give you boots.'
  211. end
  212. if KGOLmqw = 5 and KGOLqwvip >= 20:
  213. KGOLqwvip = 0
  214. KGOLmqw = 6
  215. KGOLset3 = 1
  216. KGOLbrona += 2
  217. $KGOLset3 = 'Rugged Leather Boots'
  218. '(NPS) - <<$KGOLname>> congratulations, here are your boots.'
  219. end
  220. if KGOLmqw = 2:
  221. KGOLmqw = 3
  222. '(NPS) - <<$KGOLname>> you need to kill 10t rainbow beetles. Then I will give you armor.'
  223. end
  224. if KGOLmqw = 3 and KGOLqwvip >= 10:
  225. KGOLqwvip = 0
  226. KGOLmqw = 4
  227. KGOLset2 = 1
  228. KGOLbrona += 10
  229. $KGOLset2 = 'Simple armor'
  230. '(NPS) - <<$KGOLname>> congratulations, here´s your armor.'
  231. end
  232. if KGOLmqw = 0:
  233. KGOLmqw = 1
  234. '(NPS) - <<$KGOLname>> you need to kill prey 5t colors. Then I´ll give you a weapon.'
  235. end
  236. if KGOLmqw = 1 and KGOLqwvip >= 5:
  237. KGOLqwvip = 0
  238. KGOLmqw = 2
  239. KGOLset5 = 1
  240. KGOLwpower = 10
  241. if KGOLklass = 1 or KGOLklass = 6:$KGOLset5 = 'In the hands of a simple sword'
  242. if KGOLklass = 2:$KGOLset5 = 'In the hands of ordinary daggers'
  243. if KGOLklass = 3 or KGOLklass = 4:$KGOLset5 = 'In the hands of a simple staff'
  244. if KGOLklass = 5:$KGOLset5 = 'In the hands of a simple bow'
  245. '(NPS) - <<$KGOLname>> congratulations, here´s your gun.'
  246. end
  247. act 'Leave': gt $curloc
  248. =======
  249. minut+=1
  250. if KGOLmqw=12 and KGOLlvl>=5:
  251. KGOLmqw=13
  252. '(NPS) - <<$KGOLname>> you have to kill 10five royal beetles. reward 200 experience.'
  253. end
  254. if KGOLmqw=13 and KGOLqwvip>=10:
  255. KGOLqwvip=0
  256. KGOLmqw=14
  257. KGOLexp+=200
  258. '(NPS) - <<$KGOLname>> congratulations, Here is a reward 200 experience.'
  259. end
  260. if KGOLmqw=10 and KGOLlvl>=5:
  261. KGOLmqw=11
  262. '(NPS) - <<$KGOLname>> you have to kill 10five toads. reward 100 experience.'
  263. end
  264. if KGOLmqw=11 and KGOLqwvip>=10:
  265. KGOLqwvip=0
  266. KGOLmqw=12
  267. KGOLexp+=100
  268. '(NPS) - <<$KGOLname>> congratulations, Here is a reward 100 experience.'
  269. end
  270. if KGOLmqw=8:
  271. KGOLmqw=9
  272. '(NPS) - <<$KGOLname>> you have to kill 30be young cacti. Then I`ll give you a helmet.'
  273. end
  274. if KGOLmqw=9 and KGOLqwvip>=30:
  275. KGOLqwvip=0
  276. KGOLmqw=10
  277. KGOLset=1
  278. KGOLbrona+=2
  279. $KGOLset='Helmet rough skin'
  280. '(NPS) - <<$KGOLname>> congratulations, Here`s your helmet.'
  281. end
  282. if KGOLmqw=6:
  283. KGOLmqw=7
  284. '(NPS) - <<$KGOLname>> you have to kill 25be toothless wolves. Then I`ll give you mittens.'
  285. end
  286. if KGOLmqw=7 and KGOLqwvip>=25:
  287. KGOLqwvip=0
  288. KGOLmqw=8
  289. KGOLset4=1
  290. KGOLbrona+=2
  291. $KGOLset4='Gauntlets of rough skin'
  292. '(NPS) - <<$KGOLname>> congratulations, Here are your mittens.'
  293. end
  294. if KGOLmqw=4:
  295. KGOLmqw=5
  296. '(NPS) - <<$KGOLname>> you have to kill 20be rosyanok. Then I will give you boots.'
  297. end
  298. if KGOLmqw=5 and KGOLqwvip>=20:
  299. KGOLqwvip=0
  300. KGOLmqw=6
  301. KGOLset3=1
  302. KGOLbrona+=2
  303. $KGOLset3='Rind Leather Boots'
  304. '(NPS) - <<$KGOLname>> congratulations, Here are your boots.'
  305. end
  306. if KGOLmqw=2:
  307. KGOLmqw=3
  308. '(NPS) - <<$KGOLname>> you have to kill 10be iridescent beetles. Then I`ll give you the armor.'
  309. end
  310. if KGOLmqw=3 and KGOLqwvip>=10:
  311. KGOLqwvip=0
  312. KGOLmqw=4
  313. KGOLset2=1
  314. KGOLbrona+=10
  315. $KGOLset2='simple armor'
  316. '(NPS) - <<$KGOLname>> congratulations, here is your armor.'
  317. end
  318. if KGOLmqw=0:
  319. KGOLmqw=1
  320. '(NPS) - <<$KGOLname>> you have to kill 5be carnivorous flowers. Then I`ll give you a weapon.'
  321. end
  322. if KGOLmqw=1 and KGOLqwvip>=5:
  323. KGOLqwvip=0
  324. KGOLmqw=2
  325. KGOLset5=1
  326. KGOLwpower=10
  327. if KGOLklass=1 or KGOLklass=6:$KGOLset5='In the hands of a simple sword'
  328. if KGOLklass=2:$KGOLset5='In the hands of ordinary daggers'
  329. if KGOLklass=3 or KGOLklass=4:$KGOLset5='In the hands of a simple staff'
  330. if KGOLklass=5:$KGOLset5='In the hands of a simple bow'
  331. '(NPS) - <<$KGOLname>> congratulations, Here is your weapon.'
  332. end
  333. act 'Get_Away':gt $curloc
  334. >>>>>>> 422_KGOLgame
  335. end
  336. act 'Go to the store':
  337. cls
  338. <<<<<<< 422_KGOLgame
  339. minut += 1
  340. if KGOLmoney >= 300:
  341. act 'Buy health potion 300':
  342. KGOLmoney -= 300
  343. KGOLpotionH += 1
  344. gt $curloc
  345. end
  346. end
  347. if KGOLmoney >= 300:
  348. act 'Buy a potion of mana 300':
  349. KGOLmoney -= 300
  350. KGOLpotionM += 1
  351. gt $curloc
  352. end
  353. end
  354. if KGOLmoney >= 1500 and KGOLhirka <= 0:
  355. act 'Buy hirka 1500':
  356. KGOLmoney -= 1500
  357. KGOLhirka += 10000
  358. gt $curloc
  359. end
  360. end
  361. act 'Leave': gt $curloc
  362. =======
  363. minut+=1
  364. if KGOLmoney>=300:
  365. act 'Buy health potion 300':
  366. KGOLmoney-=300
  367. KGOLpotionH+=1
  368. gt $curloc
  369. end
  370. end
  371. if KGOLmoney>=300:
  372. act 'Buy mana potion 300':
  373. KGOLmoney-=300
  374. KGOLpotionM+=1
  375. gt $curloc
  376. end
  377. end
  378. if KGOLmoney>=1500 and KGOLhirka<=0:
  379. act 'Buy Khirqa 1500':
  380. KGOLmoney-=1500
  381. KGOLhirka+=10000
  382. gt $curloc
  383. end
  384. end
  385. act 'Get_Away':gt $curloc
  386. >>>>>>> 422_KGOLgame
  387. end
  388. <<<<<<< 422_KGOLgame
  389. if KGHP < KGHPMAX or KGManna<KGMannaMax:
  390. act 'Regenerate (1:00)':
  391. cls
  392. minut += 60
  393. KGHP = KGHPMAX
  394. KGManna = KGMannaMax
  395. 'It was very sad. You´ve been sitting for an hour to regenerate your character. But free.'
  396. act 'Leave': gt $curloc
  397. end
  398. =======
  399. if KGHP<KGHPMAX or KGManna<KGMannaMax:
  400. act 'regenerate (1 h)':
  401. cls
  402. minut+=60
  403. KGHP=KGHPMAX
  404. KGManna=KGMannaMax
  405. 'It was very sad. You sat for an hour regenerating your character. But free.'
  406. act 'Get_Away':gt $curloc
  407. end
  408. >>>>>>> 422_KGOLgame
  409. end
  410. <<<<<<< 422_KGOLgame
  411. if KGHP > 0:
  412. act 'Farm near the village':
  413. cls
  414. minut += 1
  415. KGOLdist = RAND(1,10)
  416. 'On a variety of monsters roam the field'
  417. act 'Predatory flower':
  418. gs 'KGOLenemy','0'
  419. gt 'KGOLfight'
  420. end
  421. act 'Iridescent beetle':
  422. gs 'KGOLenemy','1'
  423. gt 'KGOLfight'
  424. end
  425. act 'Sundew':
  426. gs 'KGOLenemy','2'
  427. gt 'KGOLfight'
  428. end
  429. act 'Toothless dog':
  430. gs 'KGOLenemy','3'
  431. gt 'KGOLfight'
  432. end
  433. act 'Young cactus':
  434. gs 'KGOLenemy','4'
  435. gt 'KGOLfight'
  436. end
  437. end
  438. =======
  439. if KGHP>0:
  440. act 'Farm near the village':
  441. cls
  442. minut+=1
  443. KGOLdist=RAND(1,10)
  444. 'On a variety of monsters roam the field'
  445. act 'predatory flower':
  446. gs'KGOLenemy','0'
  447. gt'KGOLfight'
  448. end
  449. act 'Rainbow beetle':
  450. gs'KGOLenemy','1'
  451. gt'KGOLfight'
  452. end
  453. act 'sundew':
  454. gs'KGOLenemy','2'
  455. gt'KGOLfight'
  456. end
  457. act 'toothless dog':
  458. gs'KGOLenemy','3'
  459. gt'KGOLfight'
  460. end
  461. act 'young cactus':
  462. gs'KGOLenemy','4'
  463. gt'KGOLfight'
  464. end
  465. end
  466. >>>>>>> 422_KGOLgame
  467. end
  468. <<<<<<< 422_KGOLgame
  469. if KGOLlvl >= 5 and KGHP > 0:
  470. act 'Farm near the mill':
  471. cls
  472. minut += 1
  473. KGOLdist = RAND(1,10)
  474. 'Mill about a variety of monsters roam'
  475. act 'Toad':
  476. gs 'KGOLenemy','5'
  477. gt 'KGOLfight'
  478. end
  479. act 'Royal beetle':
  480. gs 'KGOLenemy','6'
  481. gt 'KGOLfight'
  482. end
  483. act 'Spotted mantis':
  484. gs 'KGOLenemy','7'
  485. gt 'KGOLfight'
  486. end
  487. act 'Plague Rat':
  488. gs 'KGOLenemy','8'
  489. gt 'KGOLfight'
  490. end
  491. act 'Prickly cactus':
  492. gs 'KGOLenemy','9'
  493. gt 'KGOLfight'
  494. end
  495. end
  496. act 'Boss Level 5':
  497. gs 'KGOLboss','1'
  498. gt 'KGOLfight'
  499. end
  500. =======
  501. if KGOLlvl>=5 and KGHP>0:
  502. act 'Farm near Mill':
  503. cls
  504. minut+=1
  505. KGOLdist=RAND(1,10)
  506. 'About a variety of monsters roam the mill'
  507. act 'toad':
  508. gs'KGOLenemy','5'
  509. gt'KGOLfight'
  510. end
  511. act 'Royal beetle':
  512. gs'KGOLenemy','6'
  513. gt'KGOLfight'
  514. end
  515. act 'spotted mantis':
  516. gs'KGOLenemy','7'
  517. gt'KGOLfight'
  518. end
  519. act 'plague Rat':
  520. gs'KGOLenemy','8'
  521. gt'KGOLfight'
  522. end
  523. act 'prickly cactus':
  524. gs'KGOLenemy','9'
  525. gt'KGOLfight'
  526. end
  527. end
  528. act 'boss 5level':
  529. gs'KGOLboss','1'
  530. gt'KGOLfight'
  531. end
  532. >>>>>>> 422_KGOLgame
  533. end
  534. --- KGOLgame ---------------------------------