KGstart.qsrc 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150
  1. # KGstart
  2. $KGOLklassvibor = {
  3. cls
  4. 'You must select a character class.'
  5. if KGOLrace = 1:
  6. 'For people available classes:Warrior, Thief, Mage.'
  7. act 'Warrior':$KGOLklass = 'Warrior' & KGOLklass = 1 & dynamic $KGOLklassvibor2
  8. act 'Thief':$KGOLklass = 'Thief' & KGOLklass = 2 & dynamic $KGOLklassvibor2
  9. act 'Magician':$KGOLklass = 'Magician' & KGOLklass = 3 & dynamic $KGOLklassvibor2
  10. elseif KGOLrace = 2:
  11. 'For elves available classes Priest, Archer.'
  12. act 'Priest':$KGOLklass = 'Priest' & KGOLklass = 4 & dynamic $KGOLklassvibor2
  13. act 'Archer':$KGOLklass = 'Archer' & KGOLklass = 5 & dynamic $KGOLklassvibor2
  14. else
  15. 'Classes available for zveroidov Barbarian.'
  16. act 'Barbarian':$KGOLklass = 'Barbarian' & KGOLklass = 6 & dynamic $KGOLklassvibor2
  17. end
  18. }
  19. $KGOLklassvibor2 = {
  20. cls
  21. KGOLexp = 0
  22. KGOLlvl = 1
  23. KGOLbrona = 0
  24. KGOLwpower = 0
  25. '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
  26. if KGOLklass = 1:
  27. KGOLstren = 30
  28. KGOLspeed = 20
  29. KGOLvital = 30
  30. KGOLintel = 20
  31. elseif KGOLklass = 2:
  32. KGOLstren = 20
  33. KGOLspeed = 30
  34. KGOLvital = 20
  35. KGOLintel = 30
  36. elseif KGOLklass = 3:
  37. KGOLstren = 10
  38. KGOLspeed = 20
  39. KGOLvital = 20
  40. KGOLintel = 50
  41. elseif KGOLklass = 4:
  42. KGOLstren = 10
  43. KGOLspeed = 10
  44. KGOLvital = 10
  45. KGOLintel = 70
  46. elseif KGOLklass = 5:
  47. KGOLstren = 20
  48. KGOLspeed = 40
  49. KGOLvital = 10
  50. KGOLintel = 30
  51. else
  52. KGOLstren = 40
  53. KGOLspeed = 10
  54. KGOLvital = 40
  55. KGOLintel = 10
  56. end
  57. KGHP = KGOLvital * 10
  58. KGManna = KGOLintel * 10
  59. act 'Play':KGOLpers = 1 & gt 'KGOLgame'
  60. act 'Delete a character':
  61. KGOLpers = 0
  62. gt $curloc
  63. end
  64. }
  65. minut += 1
  66. gs 'stat'
  67. if KFOnLineReaga > 0:
  68. 'Welcome to the game Vertep World. You can play for <<KFOnLineReaga>> more days'
  69. 'At any time you can pay via online banking that would extend the duration of the account.'
  70. '30 days for 1000 <b>₽</b> via online banking.'
  71. if KGOLpers > 0:
  72. 'You can get in the game your character, or delete it'
  73. '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
  74. act 'Play':gt 'KGOLgame'
  75. act 'Delete a character':
  76. KGOLpers = 0
  77. gt $curloc
  78. end
  79. else
  80. 'You can create a character'
  81. act 'Create a character':
  82. cls
  83. $KGOLname = input("Enter your nickname")
  84. if $KGOLname <= 0:msg 'Not valid nickname' & gt $curloc
  85. 'Your nickname <<$KGOLname>>'
  86. 'You must select the player race'
  87. act 'Man':$KGOLrace = 'Man' & KGOLrace = 1 & dynamic $KGOLklassvibor
  88. act 'Elf':$KGOLrace = 'Elf' & KGOLrace = 2 & dynamic $KGOLklassvibor
  89. act 'Zveroid':$KGOLrace = 'Zveroid' & KGOLrace = 3 & dynamic $KGOLklassvibor
  90. end
  91. end
  92. if karta + bankDebtLimit >= 1000:
  93. act 'Payment akkuaunta':
  94. karta -= 1000
  95. KFOnLineReaga += 30
  96. gt $curloc
  97. end
  98. end
  99. if karta + bankDebtLimit > 0:
  100. act 'Buy game coins (1 ₽ = 1 Game Coin)':
  101. cla
  102. KGOLdonat = input("How many coins do you wish to purchase?")
  103. if KGOLdonat <= 0 or KGOLdonat > karta:
  104. msg 'Not valid operation'
  105. else
  106. karta -= KGOLdonat
  107. KGOLmoney += KGOLdonat
  108. msg '<<KGOLdonat>> coins have been added to your account.'
  109. end
  110. gt $curloc
  111. end
  112. end
  113. else
  114. 'Welcome to the online game Vertep World'
  115. 'To play this game you have to pay 1, 000 <b>₽</b> for 30 days via online banking.'
  116. if karta + bankDebtLimit >= 1000:
  117. act 'Payment':
  118. karta -= 1000
  119. KFOnLineReaga += 30
  120. gt $curloc
  121. end
  122. end
  123. end
  124. act 'Leave':gt 'Komp', 'start'
  125. --- KGstart ---------------------------------