1
0

421_KGstart 6.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299
  1. # KGstart
  2. <<<<<<< 421_KGstart
  3. $KGOLklassvibor = {
  4. =======
  5. $KGOLklassvibor={
  6. >>>>>>> 421_KGstart
  7. cls
  8. 'You must select a character class.'
  9. <<<<<<< 421_KGstart
  10. if KGOLrace = 1:
  11. 'For people available classes: Warrior, Thief, Mage.'
  12. act 'Warrior':$KGOLklass = 'Warrior'&KGOLklass = 1 & dynamic $KGOLklassvibor2
  13. act 'Thief':$KGOLklass = 'Thief'&KGOLklass = 2 & dynamic $KGOLklassvibor2
  14. act 'Magician':$KGOLklass = 'Magician'&KGOLklass = 3 & dynamic $KGOLklassvibor2
  15. elseif KGOLrace = 2:
  16. 'For elves available classes Priest, Archer.'
  17. act 'Priest':$KGOLklass = 'Priest'&KGOLklass = 4 & dynamic $KGOLklassvibor2
  18. act 'Archer':$KGOLklass = 'Archer'&KGOLklass = 5 & dynamic $KGOLklassvibor2
  19. else
  20. 'Classes available for zveroidov Barbarian.'
  21. act 'Barbarian':$KGOLklass = 'Barbarian'&KGOLklass = 6 & dynamic $KGOLklassvibor2
  22. =======
  23. if KGOLrace=1:
  24. 'For people available classes Warrior, thief, magician.'
  25. act 'warrior':$KGOLklass='warrior'&KGOLklass=1&dynamic $KGOLklassvibor2
  26. act 'thief':$KGOLklass='thief'&KGOLklass=2&dynamic $KGOLklassvibor2
  27. act 'magician':$KGOLklass='magician'&KGOLklass=3&dynamic $KGOLklassvibor2
  28. elseif KGOLrace=2:
  29. 'For Elves available classes Priest, archer.'
  30. act 'priest':$KGOLklass='priest'&KGOLklass=4&dynamic $KGOLklassvibor2
  31. act 'archer':$KGOLklass='archer'&KGOLklass=5&dynamic $KGOLklassvibor2
  32. else
  33. 'For zveroidov available classes Barbarian.'
  34. act 'barbarian':$KGOLklass='barbarian'&KGOLklass=6&dynamic $KGOLklassvibor2
  35. >>>>>>> 421_KGstart
  36. end
  37. }
  38. <<<<<<< 421_KGstart
  39. $KGOLklassvibor2 = {
  40. cls
  41. KGOLexp = 0
  42. KGOLlvl = 1
  43. KGOLbrona = 0
  44. KGOLwpower = 0
  45. '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
  46. if KGOLklass = 1:
  47. KGOLstren = 30
  48. KGOLspeed = 20
  49. KGOLvital = 30
  50. KGOLintel = 20
  51. elseif KGOLklass = 2:
  52. KGOLstren = 20
  53. KGOLspeed = 30
  54. KGOLvital = 20
  55. KGOLintel = 30
  56. elseif KGOLklass = 3:
  57. KGOLstren = 10
  58. KGOLspeed = 20
  59. KGOLvital = 20
  60. KGOLintel = 50
  61. elseif KGOLklass = 4:
  62. KGOLstren = 10
  63. KGOLspeed = 10
  64. KGOLvital = 10
  65. KGOLintel = 70
  66. elseif KGOLklass = 5:
  67. KGOLstren = 20
  68. KGOLspeed = 40
  69. KGOLvital = 10
  70. KGOLintel = 30
  71. else
  72. KGOLstren = 40
  73. KGOLspeed = 10
  74. KGOLvital = 40
  75. KGOLintel = 10
  76. end
  77. KGHP = KGOLvital * 10
  78. KGManna = KGOLintel * 10
  79. act 'Play': KGOLpers = 1 & gt 'KGOLgame'
  80. act 'Delete a character':
  81. KGOLpers = 0
  82. gt $curloc
  83. end
  84. }
  85. minut += 1
  86. gs 'stat'
  87. if KFOnLineReaga > 0:
  88. 'Welcome to the game Vertep World. You can play more <<KFOnLineReaga>> days'
  89. 'At any time you can pay with a credit card that would extend the duration of the account.'
  90. '30 days 1000 rubles, on your credit card <<karta>>rubles'
  91. if KGOLpers > 0:
  92. 'You can get in the game your character, or delete it'
  93. '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
  94. act 'Play': gt 'KGOLgame'
  95. act 'Delete a character':
  96. KGOLpers = 0
  97. gt $curloc
  98. end
  99. else
  100. 'You can create a character'
  101. act 'Create a character':
  102. cls
  103. $KGOLname = input("Введите ваш ник")
  104. if $KGOLname <= 0: msg 'Not valid nickname'&gt $curloc
  105. 'Your nickname <<$KGOLname>>'
  106. 'You must select the player race'
  107. act 'Man':$KGOLrace = 'Man'&KGOLrace = 1 & dynamic $KGOLklassvibor
  108. act 'Elf':$KGOLrace = 'Elf'&KGOLrace = 2 & dynamic $KGOLklassvibor
  109. act 'Zveroid':$KGOLrace = 'Zveroid'&KGOLrace = 3 & dynamic $KGOLklassvibor
  110. end
  111. end
  112. if karta >= 1000:
  113. act 'Payment akkuaunta':
  114. karta -= 1000
  115. KFOnLineReaga += 30
  116. gt $curloc
  117. end
  118. end
  119. if karta > 0:
  120. act 'Donat money in the game (1rub = 1moneta)':
  121. cla
  122. KGOLdonat = input("Сколько денег вы хотите задонатить?")
  123. if KGOLdonat <= 0 or KGOLdonat < karta:
  124. msg 'Not valid operation'
  125. else
  126. karta -= KGOLdonat
  127. KGOLmoney += KGOLdonat
  128. msg 'Transferred to your account <<KGOLdonat>> coins'
  129. end
  130. gt $curloc
  131. end
  132. end
  133. =======
  134. $KGOLklassvibor2={
  135. cls
  136. KGOLexp=0
  137. KGOLlvl=1
  138. KGOLbrona=0
  139. KGOLwpower=0
  140. '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
  141. if KGOLklass=1:
  142. KGOLstren=30
  143. KGOLspeed=20
  144. KGOLvital=30
  145. KGOLintel=20
  146. elseif KGOLklass=2:
  147. KGOLstren=20
  148. KGOLspeed=30
  149. KGOLvital=20
  150. KGOLintel=30
  151. elseif KGOLklass=3:
  152. KGOLstren=10
  153. KGOLspeed=20
  154. KGOLvital=20
  155. KGOLintel=50
  156. elseif KGOLklass=4:
  157. KGOLstren=10
  158. KGOLspeed=10
  159. KGOLvital=10
  160. KGOLintel=70
  161. elseif KGOLklass=5:
  162. KGOLstren=20
  163. KGOLspeed=40
  164. KGOLvital=10
  165. KGOLintel=30
  166. else
  167. KGOLstren=40
  168. KGOLspeed=10
  169. KGOLvital=40
  170. KGOLintel=10
  171. end
  172. KGHP=KGOLvital*10
  173. KGManna=KGOLintel*10
  174. act 'play':KGOLpers=1&gt 'KGOLgame'
  175. act 'Delete character':
  176. KGOLpers=0
  177. gt $curloc
  178. end
  179. }
  180. minut+=1
  181. gs'stat'
  182. if KFOnLineReaga>0:
  183. 'Welcome to the game Vertep World. You can still play <<KFOnLineReaga>> days'
  184. 'You can always pay with a credit card, that would extend the duration of the account.'
  185. '30 days 1000 rubles, on your credit card <<karta>> rubles'
  186. if KGOLpers>0:
  187. 'You can get in the game your character or delete it'
  188. '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <<KGOLlvl>> level'
  189. act 'play':gt 'KGOLgame'
  190. act 'Delete character':
  191. KGOLpers=0
  192. gt $curloc
  193. end
  194. else
  195. 'You can create a character'
  196. act 'Create a character':
  197. cls
  198. $KGOLname=input("Enter your nickname")
  199. if $KGOLname<=0:msg'Not valid nickname'&gt $curloc
  200. 'your nickname <<$KGOLname>>'
  201. 'You must select the player race'
  202. act 'man':$KGOLrace='man'&KGOLrace=1&dynamic $KGOLklassvibor
  203. act 'elf':$KGOLrace='elf'&KGOLrace=2&dynamic $KGOLklassvibor
  204. act 'Zveroid':$KGOLrace='Zveroid'&KGOLrace=3&dynamic $KGOLklassvibor
  205. end
  206. end
  207. if karta>=1000:
  208. act 'Payment akkuaunta':
  209. karta-=1000
  210. KFOnLineReaga+=30
  211. gt $curloc
  212. end
  213. end
  214. if karta>0:
  215. act 'Donat money into the game (1RUB=1coin)':
  216. cla
  217. KGOLdonat=input("How much money do you want zadonatit?")
  218. if KGOLdonat<=0 or KGOLdonat<karta:
  219. msg'Not admissible operation'
  220. else
  221. karta-=KGOLdonat
  222. KGOLmoney+=KGOLdonat
  223. msg'Transferred to your account <<KGOLdonat>> coin'
  224. end
  225. gt $curloc
  226. end
  227. end
  228. >>>>>>> 421_KGstart
  229. else
  230. 'Welcome to the online game Vertep World'
  231. <<<<<<< 421_KGstart
  232. 'To play this game you have to pay 1,000 rubles for 30 days with a credit card.'
  233. if karta >= 1000:
  234. act 'Payment':
  235. karta -= 1000
  236. KFOnLineReaga += 30
  237. gt $curloc
  238. end
  239. end
  240. =======
  241. 'To play this game you need to pay 1000 rub 30 days with a credit card.'
  242. if karta>=1000:
  243. act 'payment':
  244. karta-=1000
  245. KFOnLineReaga+=30
  246. gt $curloc
  247. end
  248. end
  249. >>>>>>> 421_KGstart
  250. end
  251. <<<<<<< 421_KGstart
  252. act 'Exit': gt 'Komp','start'
  253. =======
  254. act 'Go_Out':gt'Komp','start'
  255. >>>>>>> 421_KGstart
  256. --- KGstart ---------------------------------