352_KGDgame 4.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310
  1. # KGDgame
  2. minut += 1
  3. gs 'stat'
  4. gs 'KGDexp'
  5. '<center><B>Date <<KGDday>></B></center>'
  6. '<center><B>Your town</B></center>'
  7. '<center>Buildings</center>'
  8. 'Tower Hero, which stores <<KGDmoney>> Resources'
  9. 'Farms <<KGDfarm>> pieces'
  10. ''
  11. '<center><B>List Party hero (6t people maximum)</B></center>'
  12. 'Hero. Level <<KGDlvl>>Life <<KGDHP>>Done <<KGDdam>>'
  13. if KGDsput2 > 0: '<<$KGDname2>>. Level <<KGDlvl2>>Life <<KGDHP2>>Done <<KGDdam2>>'
  14. if KGDsput3 > 0: '<<$KGDname3>>. Level <<KGDlvl3>>Life <<KGDHP3>>Done <<KGDdam3>>'
  15. if KGDsput4 > 0: '<<$KGDname4>>. Level <<KGDlvl4>>Life <<KGDHP4>>Done <<KGDdam4>>'
  16. if KGDsput5 > 0: '<<$KGDname5>>. Level <<KGDlvl5>>Life <<KGDHP5>>Done <<KGDdam5>>'
  17. if KGDsput6 > 0: '<<$KGDname6>>. Level <<KGDlvl6>>Life <<KGDHP6>>Done <<KGDdam6>>'
  18. ''
  19. '<center><B>Brands for</B></center>'
  20. 'Do you own <<KGDkarta>>% of'
  21. act 'Next Day':
  22. cls
  23. KGDbrod = 0
  24. KGDday += 1
  25. KGDmoney += KGDkarta * 5 + KGDfarm * 10
  26. gt $curloc
  27. end
  28. if KGDmoney >= 150 and KGDfarm > KGDkarta:
  29. act 'Build a farm (150 resources)':
  30. cls
  31. KGDmoney -= 150
  32. KGDfarm += 1
  33. gt $curloc
  34. end
  35. end
  36. act 'Arrange the soldiers':
  37. cls
  38. KGDpartyCreate = 1
  39. $kgdplace = '1st place empty'
  40. $kgdplace2 = '2nd place is empty'
  41. $kgdplace3 = '3rd place is empty'
  42. $kgdplace4 = '4th place is empty'
  43. $kgdplace5 = '5th place is empty'
  44. $kgdplace6 = '6th place is empty'
  45. kgdplace = 0
  46. kgdplace2 = 0
  47. kgdplace3 = 0
  48. kgdplace4 = 0
  49. kgdplace5 = 0
  50. kgdplace6 = 0
  51. gt 'KGDparty'
  52. end
  53. if KGDbrod = 0 and KGDpartyCreate > 0:
  54. act 'Win territory':
  55. cls
  56. KGDbrod = 1
  57. gt 'KGDbefore'
  58. end
  59. end
  60. if KGDsput6 = 0 and KGDmoney >= 250:
  61. act 'Hire a satellite (250 resources)':
  62. cls
  63. KGDmoney -= 250
  64. KGDpartyCreate = 0
  65. act 'Warrior':
  66. if KGDsput2 = 0:
  67. $KGDname2 = 'Warrior'
  68. KGDlvl2 = 1
  69. KGDHP2 = 100
  70. KGDdam2 = 10
  71. KGDsput2 = 1
  72. KGDexp2 = 0
  73. gt $curloc
  74. exit
  75. end
  76. if KGDsput3 = 0:
  77. $KGDname3 = 'Warrior'
  78. KGDlvl3 = 1
  79. KGDHP3 = 100
  80. KGDdam3 = 10
  81. KGDsput3 = 1
  82. KGDexp3 = 0
  83. gt $curloc
  84. exit
  85. end
  86. if KGDsput4 = 0:
  87. $KGDname4 = 'Warrior'
  88. KGDlvl4 = 1
  89. KGDHP4 = 100
  90. KGDdam4 = 10
  91. KGDsput4 = 1
  92. KGDexp4 = 0
  93. gt $curloc
  94. exit
  95. end
  96. if KGDsput5 = 0:
  97. $KGDname5 = 'Warrior'
  98. KGDlvl5 = 1
  99. KGDHP5 = 100
  100. KGDdam5 = 10
  101. KGDsput5 = 1
  102. KGDexp5 = 0
  103. gt $curloc
  104. exit
  105. end
  106. if KGDsput6 = 0:
  107. $KGDname6 = 'Warrior'
  108. KGDlvl6 = 1
  109. KGDHP6 = 100
  110. KGDdam6 = 10
  111. KGDsput6 = 1
  112. KGDexp6 = 0
  113. gt $curloc
  114. exit
  115. end
  116. end
  117. act 'Magician':
  118. if KGDsput2 = 0:
  119. $KGDname2 = 'Magician'
  120. KGDlvl2 = 1
  121. KGDHP2 = 60
  122. KGDdam2 = 20
  123. KGDsput2 = 1
  124. KGDexp2 = 0
  125. gt $curloc
  126. exit
  127. end
  128. if KGDsput3 = 0:
  129. $KGDname3 = 'Magician'
  130. KGDlvl3 = 1
  131. KGDHP3 = 60
  132. KGDdam3 = 20
  133. KGDsput3 = 1
  134. KGDexp3 = 0
  135. gt $curloc
  136. exit
  137. end
  138. if KGDsput4 = 0:
  139. $KGDname4 = 'Magician'
  140. KGDlvl4 = 1
  141. KGDHP4 = 60
  142. KGDdam4 = 20
  143. KGDsput4 = 1
  144. KGDexp4 = 0
  145. gt $curloc
  146. exit
  147. end
  148. if KGDsput5 = 0:
  149. $KGDname5 = 'Magician'
  150. KGDlvl5 = 1
  151. KGDHP5 = 60
  152. KGDdam5 = 20
  153. KGDsput5 = 1
  154. KGDexp5 = 0
  155. gt $curloc
  156. exit
  157. end
  158. if KGDsput6 = 0:
  159. $KGDname6 = 'Magician'
  160. KGDlvl6 = 1
  161. KGDHP6 = 60
  162. KGDdam6 = 20
  163. KGDsput6 = 1
  164. KGDexp6 = 0
  165. gt $curloc
  166. exit
  167. end
  168. end
  169. act 'Archer':
  170. if KGDsput2 = 0:
  171. $KGDname2 = 'Archer'
  172. KGDlvl2 = 1
  173. KGDHP2 = 80
  174. KGDdam2 = 15
  175. KGDsput2 = 1
  176. KGDexp2 = 0
  177. gt $curloc
  178. exit
  179. end
  180. if KGDsput3 = 0:
  181. $KGDname3 = 'Archer'
  182. KGDlvl3 = 1
  183. KGDHP3 = 80
  184. KGDdam3 = 15
  185. KGDsput3 = 1
  186. KGDexp3 = 0
  187. gt $curloc
  188. exit
  189. end
  190. if KGDsput4 = 0:
  191. $KGDname4 = 'Archer'
  192. KGDlvl4 = 1
  193. KGDHP4 = 80
  194. KGDdam4 = 15
  195. KGDsput4 = 1
  196. KGDexp4 = 0
  197. gt $curloc
  198. exit
  199. end
  200. if KGDsput5 = 0:
  201. $KGDname5 = 'Archer'
  202. KGDlvl5 = 1
  203. KGDHP5 = 80
  204. KGDdam5 = 15
  205. KGDsput5 = 1
  206. KGDexp5 = 0
  207. gt $curloc
  208. exit
  209. end
  210. if KGDsput6 = 0:
  211. $KGDname6 = 'Archer'
  212. KGDlvl6 = 1
  213. KGDHP6 = 80
  214. KGDdam6 = 15
  215. KGDsput6 = 1
  216. KGDexp6 = 0
  217. gt $curloc
  218. exit
  219. end
  220. end
  221. act 'Priest':
  222. if KGDsput2 = 0:
  223. $KGDname2 = 'Priest'
  224. KGDlvl2 = 1
  225. KGDHP2 = 40
  226. KGDdam2 = 20
  227. KGDsput2 = 1
  228. KGDexp2 = 0
  229. gt $curloc
  230. exit
  231. end
  232. if KGDsput3 = 0:
  233. $KGDname3 = 'Priest'
  234. KGDlvl3 = 1
  235. KGDHP3 = 40
  236. KGDdam3 = 20
  237. KGDsput3 = 1
  238. KGDexp3 = 0
  239. gt $curloc
  240. exit
  241. end
  242. if KGDsput4 = 0:
  243. $KGDname4 = 'Priest'
  244. KGDlvl4 = 1
  245. KGDHP4 = 40
  246. KGDdam4 = 20
  247. KGDsput4 = 1
  248. KGDexp4 = 0
  249. gt $curloc
  250. exit
  251. end
  252. if KGDsput5 = 0:
  253. $KGDname5 = 'Priest'
  254. KGDlvl5 = 1
  255. KGDHP5 = 40
  256. KGDdam5 = 20
  257. KGDsput5 = 1
  258. KGDexp5 = 0
  259. gt $curloc
  260. exit
  261. end
  262. if KGDsput6 = 0:
  263. $KGDname6 = 'Priest'
  264. KGDlvl6 = 1
  265. KGDHP6 = 40
  266. KGDdam6 = 20
  267. KGDsput6 = 1
  268. KGDexp6 = 0
  269. gt $curloc
  270. exit
  271. end
  272. end
  273. end
  274. end
  275. act 'Quit Game': gt 'Komp','start'
  276. --- KGDgame ---------------------------------