KGOLgame.qsrc 7.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293
  1. # KGOLgame
  2. $KGOLstat = {
  3. clr
  4. '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
  5. '<a href="exec:dynamic $KGOLstat2">Close Statistics</a>'
  6. if KGOLneedExp > 0:pl 'Total experiment <<KGOLexp>>, it is necessary to next level <<KGOLneedExp>> experience'
  7. if KGOLneedExp <= 0:pl '<a href="exec:dynamic $KGOLrise"><font color="red">You need to increase the level.</font></a>'
  8. 'Power <<KGOLstren>>, speed and evasion <<KGOLspeed>>, endurance <<KGOLvital>>Intelligence <<KGOLintel>>, armor protection <<KGOLbrona>>, the bonus damage from weapons <<KGOLwpower>>'
  9. ''
  10. '<center>Exodus</center>'
  11. '<<$KGOLset>>'
  12. '<<$KGOLset2>>'
  13. '<<$KGOLset3>>'
  14. '<<$KGOLset4>>'
  15. '<<$KGOLset5>>'
  16. ''
  17. '<center>Equipment</center>'
  18. 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>'
  19. 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>'
  20. '<center>PVE</center>'
  21. 'Ratio <<KGOLWin>>, losses <<KGOLLoss>>'
  22. '<center>PVP</center>'
  23. 'Ratio <<KGOLpvpWin>>, losses <<KGOLpvpLoss>>'
  24. }
  25. $KGOLstat2 = {
  26. gs 'stat'
  27. }
  28. minut += 1
  29. gs 'stat'
  30. if KGOLset= 0:$KGOLset = 'On the head there is nothing'
  31. if KGOLset2 = 0:$KGOLset2 = 'Body simple clothes'
  32. if KGOLset3 = 0:$KGOLset3 = 'Simple shoes on his feet'
  33. if KGOLset4 = 0:$KGOLset4 = 'No gloves on hands'
  34. if KGOLset5 = 0:$KGOLset5 = 'No weapon'
  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. elseif KGOLmqw = 13 and KGOLqwvip >= 10:
  86. KGOLqwvip = 0
  87. KGOLmqw = 14
  88. KGOLexp += 200
  89. '(NPS) - <<$KGOLname>> congratulations, that''s a reward of 200 experience.'
  90. elseif KGOLmqw = 10 and KGOLlvl >= 5:
  91. KGOLmqw = 11
  92. '(NPS) - <<$KGOLname>> you need to kill toads 10t. Reward 100 experience.'
  93. elseif KGOLmqw = 11 and KGOLqwvip >= 10:
  94. KGOLqwvip = 0
  95. KGOLmqw = 12
  96. KGOLexp += 100
  97. '(NPS) - <<$KGOLname>> congratulations, that''s a reward of 100 experience.'
  98. elseif KGOLmqw = 8:
  99. KGOLmqw = 9
  100. '(NPS) - <<$KGOLname>> you need to kill 30t young cacti. Then I''ll give you a helmet.'
  101. elseif KGOLmqw = 9 and KGOLqwvip >= 30:
  102. KGOLqwvip = 0
  103. KGOLmqw = 10
  104. KGOL= 1
  105. KGOLbrona += 2
  106. $KGOL= 'Helm of rough skin'
  107. '(NPS) - <<$KGOLname>> congratulations, here''s your helmet.'
  108. elseif KGOLmqw = 6:
  109. KGOLmqw = 7
  110. '(NPS) - <<$KGOLname>> you need to kill wolves 25t toothless. Then I''ll give you mittens.'
  111. elseif KGOLmqw = 7 and KGOLqwvip >= 25:
  112. KGOLqwvip = 0
  113. KGOLmqw = 8
  114. KGOLset4 = 1
  115. KGOLbrona += 2
  116. $KGOLset4 = 'Gauntlets of rough skin'
  117. '(NPS) - <<$KGOLname>> congratulations, here''s your mittens.'
  118. elseif KGOLmqw = 4:
  119. KGOLmqw = 5
  120. '(NPS) - <<$KGOLname>> you need to kill 20t sundews. Then I will give you boots.'
  121. elseif KGOLmqw = 5 and KGOLqwvip >= 20:
  122. KGOLqwvip = 0
  123. KGOLmqw = 6
  124. KGOLset3 = 1
  125. KGOLbrona += 2
  126. $KGOLset3 = 'Rugged Leather Boots'
  127. '(NPS) - <<$KGOLname>> congratulations, here are your boots.'
  128. elseif KGOLmqw = 2:
  129. KGOLmqw = 3
  130. '(NPS) - <<$KGOLname>> you need to kill 10t rainbow beetles. Then I will give you armor.'
  131. elseif KGOLmqw = 3 and KGOLqwvip >= 10:
  132. KGOLqwvip = 0
  133. KGOLmqw = 4
  134. KGOLset2 = 1
  135. KGOLbrona += 10
  136. $KGOLset2 = 'Simple armor'
  137. '(NPS) - <<$KGOLname>> congratulations, here''s your armor.'
  138. elseif KGOLmqw = 0:
  139. KGOLmqw = 1
  140. '(NPS) - <<$KGOLname>> you need to kill prey 5t colors. Then I''ll give you a weapon.'
  141. elseif KGOLmqw = 1 and KGOLqwvip >= 5:
  142. KGOLqwvip = 0
  143. KGOLmqw = 2
  144. KGOLset5 = 1
  145. KGOLwpower = 10
  146. if KGOLklass = 1 or KGOLklass = 6:$KGOLset5 = 'In the hands of a simple sword'
  147. if KGOLklass = 2:$KGOLset5 = 'In the hands of ordinary daggers'
  148. if KGOLklass = 3 or KGOLklass = 4:$KGOLset5 = 'In the hands of a simple staff'
  149. if KGOLklass = 5:$KGOLset5 = 'In the hands of a simple bow'
  150. '(NPS) - <<$KGOLname>> congratulations, here''s your gun.'
  151. end
  152. act 'Leave':gt $curloc
  153. end
  154. act 'Go to the store':
  155. cls
  156. minut += 1
  157. if KGOLmoney >= 300:
  158. act 'Buy health potion 300':
  159. KGOLmoney -= 300
  160. KGOLpotionH += 1
  161. gt $curloc
  162. end
  163. end
  164. if KGOLmoney >= 300:
  165. act 'Buy a potion of mana 300':
  166. KGOLmoney -= 300
  167. KGOLpotionM += 1
  168. gt $curloc
  169. end
  170. end
  171. if KGOLmoney >= 1500 and KGOLhirka <= 0:
  172. act 'Buy hirka 1500':
  173. KGOLmoney -= 1500
  174. KGOLhirka += 10000
  175. gt $curloc
  176. end
  177. end
  178. act 'Leave':gt $curloc
  179. end
  180. if KGHP < KGHPMAX or KGManna < KGMannaMax:
  181. act 'Regenerate (1:00)':
  182. cls
  183. minut += 60
  184. KGHP = KGHPMAX
  185. KGManna = KGMannaMax
  186. 'It was very sad. You''ve been sitting for an hour to regenerate your character. But free.'
  187. act 'Leave':gt $curloc
  188. end
  189. end
  190. if KGHP > 0:
  191. act 'Farm near the village':
  192. cls
  193. minut += 1
  194. KGOLdist = rand(1, 10)
  195. 'On a variety of monsters roam the field'
  196. act 'Predatory flower':
  197. gs 'KGOLenemy', '0'
  198. gt 'KGOLfight'
  199. end
  200. act 'Iridescent beetle':
  201. gs 'KGOLenemy', '1'
  202. gt 'KGOLfight'
  203. end
  204. act 'Sundew':
  205. gs 'KGOLenemy', '2'
  206. gt 'KGOLfight'
  207. end
  208. act 'Toothless dog':
  209. gs 'KGOLenemy', '3'
  210. gt 'KGOLfight'
  211. end
  212. act 'Young cactus':
  213. gs 'KGOLenemy', '4'
  214. gt 'KGOLfight'
  215. end
  216. end
  217. end
  218. if KGOLlvl >= 5 and KGHP > 0:
  219. act 'Farm near the mill':
  220. cls
  221. minut += 1
  222. KGOLdist = rand(1, 10)
  223. 'Mill about a variety of monsters roam'
  224. act 'Toad':
  225. gs 'KGOLenemy', '5'
  226. gt 'KGOLfight'
  227. end
  228. act 'Royal beetle':
  229. gs 'KGOLenemy', '6'
  230. gt 'KGOLfight'
  231. end
  232. act 'Spotted mantis':
  233. gs 'KGOLenemy', '7'
  234. gt 'KGOLfight'
  235. end
  236. act 'Plague Rat':
  237. gs 'KGOLenemy', '8'
  238. gt 'KGOLfight'
  239. end
  240. act 'Prickly cactus':
  241. gs 'KGOLenemy', '9'
  242. gt 'KGOLfight'
  243. end
  244. end
  245. act 'Boss Level 5':
  246. gs 'KGOLboss', '1'
  247. gt 'KGOLfight'
  248. end
  249. end
  250. --- KGOLgame ---------------------------------