426_KGOLexpa 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344
  1. # KGOLexpa
  2. <<<<<<< 426_KGOLexpa
  3. KGOLneedExpNextLvl=(KGOLlvl * 10)*KGOLlvl
  4. KGOLneedExp = KGOLneedExpNextLvl - KGOLexp
  5. if KGOLneedExp <= 0 and KGOLlvl > KGOLlvlr: KGOLlvlr = KGOLlvl & KGOLpoint += 10 & KGOLspellpoint += 1 & KGOLlvl += 1 & KGOLexp = 0
  6. $KGOLatk = {
  7. KGOLzasV = RAND(KGOLspeedV/4, KGOLspeedV)
  8. KGOLataka = RAND(KGOLspeed/2, KGOLspeed * 2)
  9. if KGOLataka >= KGOLzasV:
  10. if KGOLataka >= KGOLzasV * 2:
  11. KGHPnpow = RAND(KGOLpower/2, KGOLpower)
  12. KGHPV -= KGHPnpow
  13. '<font color = green>CRETE <<KGHPnpow>></font>'
  14. else
  15. KGHPnpow = RAND(KGOLpower/10, KGOLpower/4)
  16. KGHPntpow = KGHPnpow - KGOLbronaV
  17. if KGHPntpow <= 0: KGHPntpow = 1
  18. KGHPV -= KGHPnpow
  19. '<font color = blue>Contact with <<KGHPnpow>></font>'
  20. end
  21. else
  22. '<font color = red><<$KGname>> dodged your attack</font>'
  23. =======
  24. KGOLneedExpNextLvl=(KGOLlvl*10)*KGOLlvl
  25. KGOLneedExp=KGOLneedExpNextLvl-KGOLexp
  26. if KGOLneedExp<=0 and KGOLlvl>KGOLlvlr:KGOLlvlr=KGOLlvl&KGOLpoint+=10&KGOLspellpoint+=1&KGOLlvl+=1&KGOLexp=0
  27. $KGOLatk={
  28. KGOLzasV=RAND(KGOLspeedV/4,KGOLspeedV)
  29. KGOLataka=RAND(KGOLspeed/2,KGOLspeed*2)
  30. if KGOLataka>=KGOLzasV:
  31. if KGOLataka>=KGOLzasV*2:
  32. KGHPnpow=RAND(KGOLpower/2,KGOLpower)
  33. KGHPV-=KGHPnpow
  34. '<font color=green>CRETE <<KGHPnpow>></font>'
  35. else
  36. KGHPnpow=RAND(KGOLpower/10,KGOLpower/4)
  37. KGHPntpow=KGHPnpow-KGOLbronaV
  38. if KGHPntpow<=0:KGHPntpow=1
  39. KGHPV-=KGHPnpow
  40. '<font color=blue>hit <<KGHPnpow>></font>'
  41. end
  42. else
  43. '<font color=red><<$KGname>> dodged your attack</font>'
  44. >>>>>>> 426_KGOLexpa
  45. end
  46. }
  47. <<<<<<< 426_KGOLexpa
  48. $KGOLatkPoison = {
  49. KGOLzasV = RAND(KGOLspeedV/4, KGOLspeedV)
  50. KGOLataka = RAND(KGOLspeed/2, KGOLspeed * 2)
  51. if KGOLataka >= KGOLzasV:
  52. poison += KGOLspell4 + 1
  53. if KGOLataka >= KGOLzasV * 2:
  54. KGHPnpow = RAND(KGOLpower/2, KGOLpower)
  55. KGHPV -= KGHPnpow
  56. '<font color = green>CRETE <<KGHPnpow>></font>'
  57. else
  58. KGHPnpow = RAND(KGOLpower/10, KGOLpower/4)
  59. KGHPntpow = KGHPnpow - KGOLbronaV
  60. if KGHPntpow <= 0: KGHPntpow = 1
  61. KGHPV -= KGHPnpow
  62. '<font color = blue>Contact with <<KGHPnpow>></font>'
  63. end
  64. else
  65. '<font color = red><<$KGname>> dodged your attack</font>'
  66. =======
  67. $KGOLatkPoison={
  68. KGOLzasV=RAND(KGOLspeedV/4,KGOLspeedV)
  69. KGOLataka=RAND(KGOLspeed/2,KGOLspeed*2)
  70. if KGOLataka>=KGOLzasV:
  71. poison+=KGOLspell4+1
  72. if KGOLataka>=KGOLzasV*2:
  73. KGHPnpow=RAND(KGOLpower/2,KGOLpower)
  74. KGHPV-=KGHPnpow
  75. '<font color=green>CRETE <<KGHPnpow>></font>'
  76. else
  77. KGHPnpow=RAND(KGOLpower/10,KGOLpower/4)
  78. KGHPntpow=KGHPnpow-KGOLbronaV
  79. if KGHPntpow<=0:KGHPntpow=1
  80. KGHPV-=KGHPnpow
  81. '<font color=blue>hit <<KGHPnpow>></font>'
  82. end
  83. else
  84. '<font color=red><<$KGname>> dodged your attack</font>'
  85. >>>>>>> 426_KGOLexpa
  86. end
  87. }
  88. <<<<<<< 426_KGOLexpa
  89. $KGOLatkFB = {
  90. KGHPV -= KGOLpower
  91. '<font color = green>Faerbol inflicts damage <<KGOLpower>> U</font>'
  92. }
  93. $KGOLatkV = {
  94. KGOLzas = RAND(KGOLspeed/4, KGOLspeed)
  95. KGOLatakaV = RAND(KGOLspeedV/2, KGOLspeedV * 2)
  96. if KGOLatakaV >= KGOLzas:
  97. if KGOLatakaV >= KGOLzas * 2:
  98. KGHPnpow = RAND(KGOLpowerV/2, KGOLpowerV)
  99. KGHP -= KGHPnpow
  100. '<font color = red>CRETE <<KGHPnpow>></font>'
  101. else
  102. KGHPnpow = RAND(KGOLpowerV/10, KGOLpowerV/4)
  103. KGHPntpow = KGHPnpow - KGOLbrona
  104. if KGHPntpow <= 0: KGHPntpow = 1
  105. KGHP -= KGHPnpow
  106. '<font color = brown>Contact with <<KGHPnpow>></font>'
  107. end
  108. else
  109. '<font color = green>You dodged the attack</font>'
  110. =======
  111. $KGOLatkFB={
  112. KGHPV-=KGOLpower
  113. '<font color=green>Faerbol deals damage <<KGOLpower>> Power</font>'
  114. }
  115. $KGOLatkV={
  116. KGOLzas=RAND(KGOLspeed/4,KGOLspeed)
  117. KGOLatakaV=RAND(KGOLspeedV/2,KGOLspeedV*2)
  118. if KGOLatakaV>=KGOLzas:
  119. if KGOLatakaV>=KGOLzas*2:
  120. KGHPnpow=RAND(KGOLpowerV/2,KGOLpowerV)
  121. KGHP-=KGHPnpow
  122. '<font color=red>CRETE <<KGHPnpow>></font>'
  123. else
  124. KGHPnpow=RAND(KGOLpowerV/10,KGOLpowerV/4)
  125. KGHPntpow=KGHPnpow-KGOLbrona
  126. if KGHPntpow<=0:KGHPntpow=1
  127. KGHP-=KGHPnpow
  128. '<font color=brown>hit <<KGHPnpow>></font>'
  129. end
  130. else
  131. '<font color=green>You dodged the attack</font>'
  132. >>>>>>> 426_KGOLexpa
  133. end
  134. }
  135. <<<<<<< 426_KGOLexpa
  136. $KGOLrise = {
  137. cls
  138. '<center><B>increasing the screen layer</B></center>'
  139. 'Power <<KGOLstren>>, speed and evasion <<KGOLspeed>>, endurance <<KGOLvital>>Intelligence <<KGOLintel>>'
  140. 'Improve skills points available <<KGOLpoint>>'
  141. if KGOLpoint > 0:
  142. act 'Force':
  143. KGOLstren += 1
  144. KGOLpoint -= 1
  145. dynamic $KGOLrise
  146. end
  147. act 'Speed ​​/Dodge':
  148. KGOLspeed += 1
  149. KGOLpoint -= 1
  150. dynamic $KGOLrise
  151. end
  152. act 'Endurance':
  153. KGOLvital += 1
  154. KGOLpoint -= 1
  155. dynamic $KGOLrise
  156. end
  157. act 'Intelligence':
  158. KGOLintel += 1
  159. KGOLpoint -= 1
  160. dynamic $KGOLrise
  161. end
  162. =======
  163. $KGOLrise={
  164. cls
  165. '<center><B>Screen improve</B></center>'
  166. 'power <<KGOLstren>>,speed and dodge <<KGOLspeed>>,endurance <<KGOLvital>>,intelligence <<KGOLintel>>'
  167. 'Improve the skills of the available points <<KGOLpoint>>'
  168. if KGOLpoint>0:
  169. act 'power':
  170. KGOLstren+=1
  171. KGOLpoint-=1
  172. dynamic $KGOLrise
  173. end
  174. act 'speed/dodge':
  175. KGOLspeed+=1
  176. KGOLpoint-=1
  177. dynamic $KGOLrise
  178. end
  179. act 'endurance':
  180. KGOLvital+=1
  181. KGOLpoint-=1
  182. dynamic $KGOLrise
  183. end
  184. act 'intelligence':
  185. KGOLintel+=1
  186. KGOLpoint-=1
  187. dynamic $KGOLrise
  188. end
  189. >>>>>>> 426_KGOLexpa
  190. end
  191. <<<<<<< 426_KGOLexpa
  192. act 'Exit the screen improve': gt 'KGOLgame'
  193. }
  194. $KGOLrise2 = {
  195. cls
  196. '<center><B>Screen skills</B></center>'
  197. 'Available skill points increase <<KGOLspellpoint/4>>'
  198. ''
  199. if KGOLspellpoint >= 4:
  200. if KGOLklass = 1:
  201. !воин
  202. 'Powerful punch Skill =<<KGOLspell>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  203. 'Multiple blow Skill =<<KGOLspell2>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell2 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  204. 'Increased armor Skill =<<KGOLspell3>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell3 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  205. elseif KGOLklass = 2:
  206. !вор
  207. 'Sneaky blow Skill =<<KGOLspell4>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell4 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  208. 'Poison Blade, Skill =<<KGOLspell5>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell5 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  209. 'Invisibility Skill =<<KGOLspell6>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell6 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  210. elseif KGOLklass = 3:
  211. !маг
  212. 'Faerbol, Skill =<<KGOLspell7>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell7 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  213. 'Dropping, Skill =<<KGOLspell8>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell8 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  214. 'Circle of fire, Skill =<<KGOLspell9>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell9 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  215. elseif KGOLklass = 4:
  216. !жрец
  217. 'Hit, Skill =<<KGOLspell10>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell10 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  218. 'Treatment Skill =<<KGOLspell11>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell11 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  219. 'Obkast, Skill =<<KGOLspell12>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell12 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  220. elseif KGOLklass = 5:
  221. !лучник
  222. 'Powerful shot, Skill =<<KGOLspell13>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell13 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  223. 'Triple shot, Skill =<<KGOLspell14>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell14 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  224. 'Regen mana Skill =<<KGOLspell15>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell15 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  225. else
  226. !варвар
  227. 'Thunderbolt, Skill =<<KGOLspell16>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell16 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  228. 'Stan Skill =<<KGOLspell17>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell17 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  229. 'Recovery, Skill =<<KGOLspell18>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell18 += 1 & dynamic $KGOLrise2 ">Attach a skill point</a>'
  230. =======
  231. act 'Exit the screen improve':gt'KGOLgame'
  232. }
  233. $KGOLrise2={
  234. cls
  235. '<center><B>screen skills</B></center>'
  236. 'Increase skill points available <<KGOLspellpoint/4>>'
  237. ''
  238. if KGOLspellpoint>=4:
  239. if KGOLklass=1:
  240. !warrior
  241. 'powerful blow, skill=<<KGOLspell>>. <a href="exec:KGOLspellpoint-=4&KGOLspell+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  242. 'multiple punch, skill=<<KGOLspell2>>. <a href="exec:KGOLspellpoint-=4&KGOLspell2+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  243. 'increase armor, skill=<<KGOLspell3>>. <a href="exec:KGOLspellpoint-=4&KGOLspell3+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  244. elseif KGOLklass=2:
  245. !thief
  246. 'sneaky punch, skill=<<KGOLspell4>>. <a href="exec:KGOLspellpoint-=4&KGOLspell4+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  247. 'Poison Blade, skill=<<KGOLspell5>>. <a href="exec:KGOLspellpoint-=4&KGOLspell5+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  248. 'invisibility, skill=<<KGOLspell6>>. <a href="exec:KGOLspellpoint-=4&KGOLspell6+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  249. elseif KGOLklass=3:
  250. !magician
  251. 'Faerbol, skill =<<KGOLspell7>>. <a href="exec:KGOLspellpoint-=4&KGOLspell7+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  252. 'Dropping, skill=<<KGOLspell8>>. <a href="exec:KGOLspellpoint-=4&KGOLspell8+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  253. 'circle of fire, skill=<<KGOLspell9>>. <a href="exec:KGOLspellpoint-=4&KGOLspell9+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  254. elseif KGOLklass=4:
  255. !priest
  256. 'blow magic, skill=<<KGOLspell10>>. <a href="exec:KGOLspellpoint-=4&KGOLspell10+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  257. 'treatment, skill=<<KGOLspell11>>. <a href="exec:KGOLspellpoint-=4&KGOLspell11+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  258. 'Obkast, skill=<<KGOLspell12>>. <a href="exec:KGOLspellpoint-=4&KGOLspell12+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  259. elseif KGOLklass=5:
  260. !archer
  261. 'powerful shot, skill=<<KGOLspell13>>. <a href="exec:KGOLspellpoint-=4&KGOLspell13+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  262. 'triple shot, skill=<<KGOLspell14>>. <a href="exec:KGOLspellpoint-=4&KGOLspell14+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  263. 'regen mana, skill=<<KGOLspell15>>. <a href="exec:KGOLspellpoint-=4&KGOLspell15+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  264. else
  265. !barbarian
  266. 'thunderous, skill=<<KGOLspell16>>. <a href="exec:KGOLspellpoint-=4&KGOLspell16+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  267. 'camp, skill=<<KGOLspell17>>. <a href="exec:KGOLspellpoint-=4&KGOLspell17+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  268. 'recovery, skill=<<KGOLspell18>>. <a href="exec:KGOLspellpoint-=4&KGOLspell18+=1&dynamic $KGOLrise2 ">To invest in the skill point</a>'
  269. >>>>>>> 426_KGOLexpa
  270. end
  271. end
  272. <<<<<<< 426_KGOLexpa
  273. act 'Exit the screen skills': gt 'KGOLgame'
  274. =======
  275. act 'Exit the screen skills':gt'KGOLgame'
  276. >>>>>>> 426_KGOLexpa
  277. }
  278. <<<<<<< 426_KGOLexpa
  279. $KGOLatkKGOLspell2 = {
  280. :multiloop
  281. KGLOloop -= 1
  282. dynamic $KGOLatk
  283. if KGLOloop > 0: jump 'multiloop'
  284. }
  285. =======
  286. $KGOLatkKGOLspell2={
  287. :multiloop
  288. KGLOloop-=1
  289. dynamic $KGOLatk
  290. if KGLOloop>0:jump'multiloop'
  291. }
  292. >>>>>>> 426_KGOLexpa
  293. --- KGOLexpa ---------------------------------