1
0

KGOLgame 7.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316
  1. # KGOLgame
  2. minut += 1
  3. gs 'stat'
  4. if KGOLset = 0:$KGOLset = 'On the head there is nothing'
  5. if KGOLset2 = 0:$KGOLset2 = 'Body simple clothes'
  6. if KGOLset3 = 0:$KGOLset3 = 'Simple shoes on his feet'
  7. if KGOLset4 = 0:$KGOLset4 = 'No gloves on hands'
  8. if KGOLset5 = 0:$KGOLset5 = 'No weapon'
  9. $KGOLstat = {
  10. clr
  11. pl '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
  12. pl '<a href="exec:dynamic $KGOLstat2">Close Statistics</a>'
  13. if KGOLneedExp > 0:pl 'Total experiment <<KGOLexp>>, it is necessary to next level <<KGOLneedExp>> experience'
  14. if KGOLneedExp <= 0:pl '<a href="exec:dynamic $KGOLrise"><font color="red">You need to increase the level.</font></a>'
  15. pl 'Power <<KGOLstren>>, speed and evasion <<KGOLspeed>>, endurance <<KGOLvital>>Intelligence <<KGOLintel>>, armor protection <<KGOLbrona>>, the bonus damage from weapons <<KGOLwpower>>'
  16. pl ''
  17. pl '<center>Exodus</center>'
  18. pl '<<$KGOLset>>'
  19. pl '<<$KGOLset2>>'
  20. pl '<<$KGOLset3>>'
  21. pl '<<$KGOLset4>>'
  22. pl '<<$KGOLset5>>'
  23. pl ''
  24. pl '<center>Equipment</center>'
  25. 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>'
  26. 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>'
  27. pl '<center>PVE</center>'
  28. pl 'Ratio <<KGOLWin>>, losses <<KGOLLoss>>'
  29. pl '<center>PVP</center>'
  30. pl 'Ratio <<KGOLpvpWin>>, losses <<KGOLpvpLoss>>'
  31. }
  32. $KGOLstat2 = {
  33. gs 'stat'
  34. }
  35. KGHPMAX = KGOLvital * 10
  36. KGMannaMax = KGOLintel * 10
  37. if KGHP > KGHPMAX:KGHP = KGHPMAX
  38. if KGManna > KGMannaMax:KGManna = KGMannaMax
  39. KGOLbrona -= KGOLbronaMod
  40. KGOLbronaMod = 0
  41. KGOLstren -= KGOLstrenMod
  42. KGOLstrenMod = 0
  43. KGOLspeed -= KGOLspeedMod
  44. KGOLspeedMod = 0
  45. KGOLvital -= KGOLvitalMod
  46. KGOLvitalMod = 0
  47. KGOLintel -= KGOLintelMod
  48. KGOLintelMod = 0
  49. KGOLwpower -= KGOLwpowerMod
  50. KGOLwpowerMod = 0
  51. KGOLcooldown = 0
  52. if KGHP < KGHPMAX and KGOLhirka > 0:
  53. kghneed = KGHPMAX - KGHP
  54. if KGOLhirka >= kghneed:
  55. KGOLhirka -= kghneed
  56. KGHP = KGHPMAX
  57. else
  58. KGHP = KGOLhirka
  59. KGOLhirka = 0
  60. end
  61. end
  62. if KGHP < 0:KGHP = 0
  63. gs 'KGOLexpa'
  64. '<a href="exec:gt ''KGstart''">Get out of the game</a>'
  65. '<a href="exec:dynamic $KGOLstat">View Statistics</a>'
  66. '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
  67. 'Life <<KGHP>>, the manna <<KGManna>>'
  68. if KGHP < KGHPMAX:'You´ve got <<KGHP*100/KGHPMAX>>% of life'
  69. if KGManna < KGMannaMax:'You´ve got <<KGManna*100/KGMannaMax>>% of manna'
  70. if KGOLhirka > 0:'Hirka can restore automatically <<KGOLhirka>> health units'
  71. if KGOLPrizeM > 0:'You have <<KGOLmoney>> coins'
  72. if KGOLneedExp <= 0:'<a href="exec:dynamic $KGOLrise"><font color="red">You need to increase the level.</font></a>'
  73. if KGOLpoint > 0:'<a href="exec:dynamic $KGOLrise"><font color="red">You have not allocated skill points.</font></a>'
  74. if KGOLspellpoint >= 4:'<a href="exec:dynamic $KGOLrise2"><font color="red">You can choose your skill.</font></a>'
  75. '<<KGOLspellpoint>>'
  76. ''
  77. '<center><b>Countryside</b></center>'
  78. 'You are in the picturesque village where to spawn characters stand motionless. NPC standing pillars and in the distance one can see the monsters.'
  79. act 'Approach the NPC':
  80. cls
  81. minut += 1
  82. if KGOLmqw = 12 and KGOLlvl >= 5:
  83. KGOLmqw = 13
  84. '(NPS) - <<$KGOLname>> you need to kill the royal 10t beetles. Reward 200 experience.'
  85. end
  86. if KGOLmqw = 13 and KGOLqwvip >= 10:
  87. KGOLqwvip = 0
  88. KGOLmqw = 14
  89. KGOLexp += 200
  90. '(NPS) - <<$KGOLname>> congratulations, that´s a reward of 200 experience.'
  91. end
  92. if KGOLmqw = 10 and KGOLlvl >= 5:
  93. KGOLmqw = 11
  94. '(NPS) - <<$KGOLname>> you need to kill toads 10t. Reward 100 experience.'
  95. end
  96. if KGOLmqw = 11 and KGOLqwvip >= 10:
  97. KGOLqwvip = 0
  98. KGOLmqw = 12
  99. KGOLexp += 100
  100. '(NPS) - <<$KGOLname>> congratulations, that´s a reward of 100 experience.'
  101. end
  102. if KGOLmqw = 8:
  103. KGOLmqw = 9
  104. '(NPS) - <<$KGOLname>> you need to kill 30t young cacti. Then I´ll give you a helmet.'
  105. end
  106. if KGOLmqw = 9 and KGOLqwvip >= 30:
  107. KGOLqwvip = 0
  108. KGOLmqw = 10
  109. KGOLset = 1
  110. KGOLbrona += 2
  111. $KGOLset = 'Helm of rough skin'
  112. '(NPS) - <<$KGOLname>> congratulations, here´s your helmet.'
  113. end
  114. if KGOLmqw = 6:
  115. KGOLmqw = 7
  116. '(NPS) - <<$KGOLname>> you need to kill wolves 25t toothless. Then I´ll give you mittens.'
  117. end
  118. if KGOLmqw = 7 and KGOLqwvip >= 25:
  119. KGOLqwvip = 0
  120. KGOLmqw = 8
  121. KGOLset4 = 1
  122. KGOLbrona += 2
  123. $KGOLset4 = 'Gauntlets of rough skin'
  124. '(NPS) - <<$KGOLname>> congratulations, here´s your mittens.'
  125. end
  126. if KGOLmqw = 4:
  127. KGOLmqw = 5
  128. '(NPS) - <<$KGOLname>> you need to kill 20t sundews. Then I will give you boots.'
  129. end
  130. if KGOLmqw = 5 and KGOLqwvip >= 20:
  131. KGOLqwvip = 0
  132. KGOLmqw = 6
  133. KGOLset3 = 1
  134. KGOLbrona += 2
  135. $KGOLset3 = 'Rugged Leather Boots'
  136. '(NPS) - <<$KGOLname>> congratulations, here are your boots.'
  137. end
  138. if KGOLmqw = 2:
  139. KGOLmqw = 3
  140. '(NPS) - <<$KGOLname>> you need to kill 10t rainbow beetles. Then I will give you armor.'
  141. end
  142. if KGOLmqw = 3 and KGOLqwvip >= 10:
  143. KGOLqwvip = 0
  144. KGOLmqw = 4
  145. KGOLset2 = 1
  146. KGOLbrona += 10
  147. $KGOLset2 = 'Simple armor'
  148. '(NPS) - <<$KGOLname>> congratulations, here´s your armor.'
  149. end
  150. if KGOLmqw = 0:
  151. KGOLmqw = 1
  152. '(NPS) - <<$KGOLname>> you need to kill prey 5t colors. Then I´ll give you a weapon.'
  153. end
  154. if KGOLmqw = 1 and KGOLqwvip >= 5:
  155. KGOLqwvip = 0
  156. KGOLmqw = 2
  157. KGOLset5 = 1
  158. KGOLwpower = 10
  159. if KGOLklass = 1 or KGOLklass = 6:$KGOLset5 = 'In the hands of a simple sword'
  160. if KGOLklass = 2:$KGOLset5 = 'In the hands of ordinary daggers'
  161. if KGOLklass = 3 or KGOLklass = 4:$KGOLset5 = 'In the hands of a simple staff'
  162. if KGOLklass = 5:$KGOLset5 = 'In the hands of a simple bow'
  163. '(NPS) - <<$KGOLname>> congratulations, here´s your gun.'
  164. end
  165. act 'Leave':gt $curloc
  166. end
  167. act 'Go to the store':
  168. cls
  169. minut += 1
  170. if KGOLmoney >= 300:
  171. act 'Buy health potion 300':
  172. KGOLmoney -= 300
  173. KGOLpotionH += 1
  174. gt $curloc
  175. end
  176. end
  177. if KGOLmoney >= 300:
  178. act 'Buy a potion of mana 300':
  179. KGOLmoney -= 300
  180. KGOLpotionM += 1
  181. gt $curloc
  182. end
  183. end
  184. if KGOLmoney >= 1500 and KGOLhirka <= 0:
  185. act 'Buy hirka 1500':
  186. KGOLmoney -= 1500
  187. KGOLhirka += 10000
  188. gt $curloc
  189. end
  190. end
  191. act 'Leave':gt $curloc
  192. end
  193. if KGHP < KGHPMAX or KGManna < KGMannaMax:
  194. act 'Regenerate (1:00)':
  195. cls
  196. minut += 60
  197. KGHP = KGHPMAX
  198. KGManna = KGMannaMax
  199. 'It was very sad. You´ve been sitting for an hour to regenerate your character. But free.'
  200. act 'Leave':gt $curloc
  201. end
  202. end
  203. if KGHP > 0:
  204. act 'Farm near the village':
  205. cls
  206. minut += 1
  207. KGOLdist = rand(1, 10)
  208. 'On a variety of monsters roam the field'
  209. act 'Predatory flower':
  210. gs 'KGOLenemy', '0'
  211. gt 'KGOLfight'
  212. end
  213. act 'Iridescent beetle':
  214. gs 'KGOLenemy', '1'
  215. gt 'KGOLfight'
  216. end
  217. act 'Sundew':
  218. gs 'KGOLenemy', '2'
  219. gt 'KGOLfight'
  220. end
  221. act 'Toothless dog':
  222. gs 'KGOLenemy', '3'
  223. gt 'KGOLfight'
  224. end
  225. act 'Young cactus':
  226. gs 'KGOLenemy', '4'
  227. gt 'KGOLfight'
  228. end
  229. end
  230. end
  231. if KGOLlvl >= 5 and KGHP > 0:
  232. act 'Farm near the mill':
  233. cls
  234. minut += 1
  235. KGOLdist = rand(1, 10)
  236. 'Mill about a variety of monsters roam'
  237. act 'Toad':
  238. gs 'KGOLenemy', '5'
  239. gt 'KGOLfight'
  240. end
  241. act 'Royal beetle':
  242. gs 'KGOLenemy', '6'
  243. gt 'KGOLfight'
  244. end
  245. act 'Spotted mantis':
  246. gs 'KGOLenemy', '7'
  247. gt 'KGOLfight'
  248. end
  249. act 'Plague Rat':
  250. gs 'KGOLenemy', '8'
  251. gt 'KGOLfight'
  252. end
  253. act 'Prickly cactus':
  254. gs 'KGOLenemy', '9'
  255. gt 'KGOLfight'
  256. end
  257. end
  258. act 'Boss Level 5':
  259. gs 'KGOLboss', '1'
  260. gt 'KGOLfight'
  261. end
  262. end
  263. --- KGOLgame ---------------------------------