1
0

KGOLexpa 5.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168
  1. # KGOLexpa
  2. KGOLneedExpNextLvl = (KGOLlvl * 10) * KGOLlvl
  3. KGOLneedExp = KGOLneedExpNextLvl - KGOLexp
  4. if KGOLneedExp <= 0 and KGOLlvl > KGOLlvlr:KGOLlvlr = KGOLlvl & KGOLpoint += 10 & KGOLspellpoint += 1 & KGOLlvl += 1 & KGOLexp = 0
  5. $KGOLatk = {
  6. KGOLzasV = rand(KGOLspeedV / 4, KGOLspeedV)
  7. KGOLataka = rand(KGOLspeed / 2, KGOLspeed * 2)
  8. if KGOLataka >= KGOLzasV:
  9. if KGOLataka >= KGOLzasV * 2:
  10. KGHPnpow = rand(KGOLpower / 2, KGOLpower)
  11. KGHPV -= KGHPnpow
  12. '<font color="green">CRETE <<KGHPnpow>></font>'
  13. else
  14. KGHPnpow = rand(KGOLpower / 10, KGOLpower / 4)
  15. KGHPntpow = KGHPnpow - KGOLbronaV
  16. if KGHPntpow <= 0:KGHPntpow = 1
  17. KGHPV -= KGHPnpow
  18. '<font color="blue">Contact with <<KGHPnpow>></font>'
  19. end
  20. else
  21. '<font color="red"><<$KGname>> dodged your attack</font>'
  22. end
  23. }
  24. $KGOLatkPoison = {
  25. KGOLzasV = rand(KGOLspeedV / 4, KGOLspeedV)
  26. KGOLataka = rand(KGOLspeed / 2, KGOLspeed * 2)
  27. if KGOLataka >= KGOLzasV:
  28. poison += KGOLspell4 + 1
  29. if KGOLataka >= KGOLzasV * 2:
  30. KGHPnpow = rand(KGOLpower / 2, KGOLpower)
  31. KGHPV -= KGHPnpow
  32. '<font color="green">CRETE <<KGHPnpow>></font>'
  33. else
  34. KGHPnpow = rand(KGOLpower/10, KGOLpower / 4)
  35. KGHPntpow = KGHPnpow - KGOLbronaV
  36. if KGHPntpow <= 0:KGHPntpow = 1
  37. KGHPV -= KGHPnpow
  38. '<font color="blue">Contact with <<KGHPnpow>></font>'
  39. end
  40. else
  41. '<font color="red"><<$KGname>> dodged your attack</font>'
  42. end
  43. }
  44. $KGOLatkFB = {
  45. KGHPV -= KGOLpower
  46. '<font color="green">Faerbol inflicts damage <<KGOLpower>> U</font>'
  47. }
  48. $KGOLatkV = {
  49. KGOLzas = rand(KGOLspeed/4, KGOLspeed)
  50. KGOLatakaV = rand(KGOLspeedV/2, KGOLspeedV * 2)
  51. if KGOLatakaV >= KGOLzas:
  52. if KGOLatakaV >= KGOLzas * 2:
  53. KGHPnpow = rand(KGOLpowerV / 2, KGOLpowerV)
  54. KGHP -= KGHPnpow
  55. '<font color="red">CRETE <<KGHPnpow>></font>'
  56. else
  57. KGHPnpow = rand(KGOLpowerV/10, KGOLpowerV / 4)
  58. KGHPntpow = KGHPnpow - KGOLbrona
  59. if KGHPntpow <= 0:KGHPntpow = 1
  60. KGHP -= KGHPnpow
  61. '<font color="brown">Contact with <<KGHPnpow>></font>'
  62. end
  63. else
  64. '<font color="green">You dodged the attack</font>'
  65. end
  66. }
  67. $KGOLrise = {
  68. cls
  69. '<center><b>increasing the screen layer</b></center>'
  70. 'Power <<KGOLstren>>, speed and evasion <<KGOLspeed>>, endurance <<KGOLvital>>Intelligence <<KGOLintel>>'
  71. 'Improve skills points available <<KGOLpoint>>'
  72. if KGOLpoint > 0:
  73. act 'Force':
  74. KGOLstren += 1
  75. KGOLpoint -= 1
  76. dynamic $KGOLrise
  77. end
  78. act 'Speed ​​/Dodge':
  79. KGOLspeed += 1
  80. KGOLpoint -= 1
  81. dynamic $KGOLrise
  82. end
  83. act 'Endurance':
  84. KGOLvital += 1
  85. KGOLpoint -= 1
  86. dynamic $KGOLrise
  87. end
  88. act 'Intelligence':
  89. KGOLintel += 1
  90. KGOLpoint -= 1
  91. dynamic $KGOLrise
  92. end
  93. end
  94. act 'Exit the screen improve':gt 'KGOLgame'
  95. }
  96. $KGOLrise2 = {
  97. cls
  98. '<center><b>Screen skills</b></center>'
  99. 'Available skill points increase <<KGOLspellpoint/4>>'
  100. ''
  101. if KGOLspellpoint >= 4:
  102. if KGOLklass = 1:
  103. !!warrior
  104. 'Powerful punch Skill =<<KGOLspell>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  105. 'Multiple blow Skill =<<KGOLspell2>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell2 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  106. 'Increased armor Skill =<<KGOLspell3>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell3 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  107. elseif KGOLklass = 2:
  108. !!thief
  109. 'Sneaky blow Skill =<<KGOLspell4>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell4 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  110. 'Poison Blade, Skill =<<KGOLspell5>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell5 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  111. 'Invisibility Skill =<<KGOLspell6>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell6 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  112. elseif KGOLklass = 3:
  113. !!magican
  114. 'Faerbol, Skill =<<KGOLspell7>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell7 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  115. 'Dropping, Skill =<<KGOLspell8>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell8 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  116. 'Circle of fire, Skill =<<KGOLspell9>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell9 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  117. elseif KGOLklass = 4:
  118. !!priest
  119. 'Hit, Skill =<<KGOLspell10>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell10 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  120. 'Treatment Skill =<<KGOLspell11>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell11 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  121. 'Obkast, Skill =<<KGOLspell12>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell12 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  122. elseif KGOLklass = 5:
  123. !!archer
  124. 'Powerful shot, Skill =<<KGOLspell13>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell13 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  125. 'Triple shot, Skill =<<KGOLspell14>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell14 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  126. 'Regen mana Skill =<<KGOLspell15>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell15 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  127. else
  128. !!barbarian
  129. 'Thunderbolt, Skill =<<KGOLspell16>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell16 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  130. 'Stan Skill =<<KGOLspell17>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell17 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  131. 'Recovery, Skill =<<KGOLspell18>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell18 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
  132. end
  133. end
  134. act 'Exit the screen skills':gt 'KGOLgame'
  135. }
  136. $KGOLatkKGOLspell2 = {
  137. :multiloop
  138. KGLOloop -= 1
  139. dynamic $KGOLatk
  140. if KGLOloop > 0:jump 'multiloop'
  141. }
  142. --- KGOLexpa ---------------------------------