1
1

428_KGDgame 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656
  1. # KGDgame
  2. <<<<<<< 428_KGDgame
  3. minut += 1
  4. gs 'stat'
  5. gs 'KGDexp'
  6. '<center><B>Date <<KGDday>></B></center>'
  7. '<center><B>Your town</B></center>'
  8. '<center>Buildings</center>'
  9. 'Tower Hero, which stores <<KGDmoney>> Resources'
  10. 'Farms <<KGDfarm>> pieces'
  11. ''
  12. '<center><B>List Party hero (6t people maximum)</B></center>'
  13. 'Hero. Level <<KGDlvl>>Life <<KGDHP>>Done <<KGDdam>>'
  14. if KGDsput2 > 0: '<<$KGDname2>>. Level <<KGDlvl2>>Life <<KGDHP2>>Done <<KGDdam2>>'
  15. if KGDsput3 > 0: '<<$KGDname3>>. Level <<KGDlvl3>>Life <<KGDHP3>>Done <<KGDdam3>>'
  16. if KGDsput4 > 0: '<<$KGDname4>>. Level <<KGDlvl4>>Life <<KGDHP4>>Done <<KGDdam4>>'
  17. if KGDsput5 > 0: '<<$KGDname5>>. Level <<KGDlvl5>>Life <<KGDHP5>>Done <<KGDdam5>>'
  18. if KGDsput6 > 0: '<<$KGDname6>>. Level <<KGDlvl6>>Life <<KGDHP6>>Done <<KGDdam6>>'
  19. ''
  20. '<center><B>Brands for</B></center>'
  21. 'Do you own <<KGDkarta>>% of'
  22. =======
  23. minut+=1
  24. gs'stat'
  25. gs'KGDexp'
  26. '<center><B>day <<KGDday>></B></center>'
  27. '<center><B>your city</B></center>'
  28. '<center>Structures</center>'
  29. 'tower hero, which is stored <<KGDmoney>> resources'
  30. 'farms <<KGDfarm>> pcs'
  31. ''
  32. '<center><B>List of party hero (6five people maximum)</B></center>'
  33. 'hero. level <<KGDlvl>>, life <<KGDHP>>, damage <<KGDdam>>'
  34. if KGDsput2>0:'<<$KGDname2>>. level <<KGDlvl2>>, life <<KGDHP2>>, damage <<KGDdam2>>'
  35. if KGDsput3>0:'<<$KGDname3>>. level <<KGDlvl3>>, life <<KGDHP3>>, damage <<KGDdam3>>'
  36. if KGDsput4>0:'<<$KGDname4>>. level <<KGDlvl4>>, life <<KGDHP4>>, damage <<KGDdam4>>'
  37. if KGDsput5>0:'<<$KGDname5>>. level <<KGDlvl5>>, life <<KGDHP5>>, damage <<KGDdam5>>'
  38. if KGDsput6>0:'<<$KGDname6>>. level <<KGDlvl6>>, life <<KGDHP6>>, damage <<KGDdam6>>'
  39. ''
  40. '<center><B>territory</B></center>'
  41. 'Do you own <<KGDkarta>>% territory'
  42. >>>>>>> 428_KGDgame
  43. <<<<<<< 428_KGDgame
  44. act 'Next Day':
  45. cls
  46. KGDbrod = 0
  47. KGDday += 1
  48. KGDmoney += KGDkarta * 5 + KGDfarm * 10
  49. =======
  50. act 'the next day':
  51. cls
  52. KGDbrod=0
  53. KGDday+=1
  54. KGDmoney+=KGDkarta*5+KGDfarm*10
  55. >>>>>>> 428_KGDgame
  56. gt $curloc
  57. end
  58. <<<<<<< 428_KGDgame
  59. if KGDmoney >= 150 and KGDfarm > KGDkarta:
  60. act 'Build a farm (150 resources)':
  61. cls
  62. KGDmoney -= 150
  63. KGDfarm += 1
  64. gt $curloc
  65. end
  66. =======
  67. if KGDmoney>=150 and KGDfarm>KGDkarta:
  68. act 'build a farm (150 resources)':
  69. cls
  70. KGDmoney-=150
  71. KGDfarm+=1
  72. gt $curloc
  73. end
  74. >>>>>>> 428_KGDgame
  75. end
  76. <<<<<<< 428_KGDgame
  77. act 'Arrange the soldiers':
  78. cls
  79. KGDpartyCreate = 1
  80. $kgdplace = '1st place empty'
  81. $kgdplace2 = '2nd place is empty'
  82. $kgdplace3 = '3rd place is empty'
  83. $kgdplace4 = '4th place is empty'
  84. $kgdplace5 = '5th place is empty'
  85. $kgdplace6 = '6th place is empty'
  86. kgdplace = 0
  87. kgdplace2 = 0
  88. kgdplace3 = 0
  89. kgdplace4 = 0
  90. kgdplace5 = 0
  91. kgdplace6 = 0
  92. gt 'KGDparty'
  93. end
  94. if KGDbrod = 0 and KGDpartyCreate > 0:
  95. act 'Win territory':
  96. cls
  97. KGDbrod = 1
  98. gt 'KGDbefore'
  99. end
  100. =======
  101. act 'arrange the soldiers':
  102. cls
  103. KGDpartyCreate=1
  104. $kgdplace='1place empty'
  105. $kgdplace2='2place empty'
  106. $kgdplace3='3place empty'
  107. $kgdplace4='4place empty'
  108. $kgdplace5='5place empty'
  109. $kgdplace6='6place empty'
  110. kgdplace=0
  111. kgdplace2=0
  112. kgdplace3=0
  113. kgdplace4=0
  114. kgdplace5=0
  115. kgdplace6=0
  116. gt 'KGDparty'
  117. end
  118. if KGDbrod=0 and KGDpartyCreate>0:
  119. act 'win territory':
  120. cls
  121. KGDbrod=1
  122. gt 'KGDbefore'
  123. end
  124. >>>>>>> 428_KGDgame
  125. end
  126. <<<<<<< 428_KGDgame
  127. if KGDsput6 = 0 and KGDmoney >= 250:
  128. act 'Hire a satellite (250 resources)':
  129. cls
  130. KGDmoney -= 250
  131. KGDpartyCreate = 0
  132. act 'Warrior':
  133. if KGDsput2 = 0:
  134. $KGDname2 = 'Warrior'
  135. KGDlvl2 = 1
  136. KGDHP2 = 100
  137. KGDdam2 = 10
  138. KGDsput2 = 1
  139. KGDexp2 = 0
  140. gt $curloc
  141. exit
  142. end
  143. if KGDsput3 = 0:
  144. $KGDname3 = 'Warrior'
  145. KGDlvl3 = 1
  146. KGDHP3 = 100
  147. KGDdam3 = 10
  148. KGDsput3 = 1
  149. KGDexp3 = 0
  150. gt $curloc
  151. exit
  152. end
  153. if KGDsput4 = 0:
  154. $KGDname4 = 'Warrior'
  155. KGDlvl4 = 1
  156. KGDHP4 = 100
  157. KGDdam4 = 10
  158. KGDsput4 = 1
  159. KGDexp4 = 0
  160. gt $curloc
  161. exit
  162. end
  163. if KGDsput5 = 0:
  164. $KGDname5 = 'Warrior'
  165. KGDlvl5 = 1
  166. KGDHP5 = 100
  167. KGDdam5 = 10
  168. KGDsput5 = 1
  169. KGDexp5 = 0
  170. gt $curloc
  171. exit
  172. end
  173. if KGDsput6 = 0:
  174. $KGDname6 = 'Warrior'
  175. KGDlvl6 = 1
  176. KGDHP6 = 100
  177. KGDdam6 = 10
  178. KGDsput6 = 1
  179. KGDexp6 = 0
  180. gt $curloc
  181. exit
  182. end
  183. end
  184. act 'Magician':
  185. if KGDsput2 = 0:
  186. $KGDname2 = 'Magician'
  187. KGDlvl2 = 1
  188. KGDHP2 = 60
  189. KGDdam2 = 20
  190. KGDsput2 = 1
  191. KGDexp2 = 0
  192. gt $curloc
  193. exit
  194. end
  195. if KGDsput3 = 0:
  196. $KGDname3 = 'Magician'
  197. KGDlvl3 = 1
  198. KGDHP3 = 60
  199. KGDdam3 = 20
  200. KGDsput3 = 1
  201. KGDexp3 = 0
  202. gt $curloc
  203. exit
  204. end
  205. if KGDsput4 = 0:
  206. $KGDname4 = 'Magician'
  207. KGDlvl4 = 1
  208. KGDHP4 = 60
  209. KGDdam4 = 20
  210. KGDsput4 = 1
  211. KGDexp4 = 0
  212. gt $curloc
  213. exit
  214. end
  215. if KGDsput5 = 0:
  216. $KGDname5 = 'Magician'
  217. KGDlvl5 = 1
  218. KGDHP5 = 60
  219. KGDdam5 = 20
  220. KGDsput5 = 1
  221. KGDexp5 = 0
  222. gt $curloc
  223. exit
  224. end
  225. if KGDsput6 = 0:
  226. $KGDname6 = 'Magician'
  227. KGDlvl6 = 1
  228. KGDHP6 = 60
  229. KGDdam6 = 20
  230. KGDsput6 = 1
  231. KGDexp6 = 0
  232. gt $curloc
  233. exit
  234. end
  235. end
  236. act 'Archer':
  237. if KGDsput2 = 0:
  238. $KGDname2 = 'Archer'
  239. KGDlvl2 = 1
  240. KGDHP2 = 80
  241. KGDdam2 = 15
  242. KGDsput2 = 1
  243. KGDexp2 = 0
  244. gt $curloc
  245. exit
  246. end
  247. if KGDsput3 = 0:
  248. $KGDname3 = 'Archer'
  249. KGDlvl3 = 1
  250. KGDHP3 = 80
  251. KGDdam3 = 15
  252. KGDsput3 = 1
  253. KGDexp3 = 0
  254. gt $curloc
  255. exit
  256. end
  257. if KGDsput4 = 0:
  258. $KGDname4 = 'Archer'
  259. KGDlvl4 = 1
  260. KGDHP4 = 80
  261. KGDdam4 = 15
  262. KGDsput4 = 1
  263. KGDexp4 = 0
  264. gt $curloc
  265. exit
  266. end
  267. if KGDsput5 = 0:
  268. $KGDname5 = 'Archer'
  269. KGDlvl5 = 1
  270. KGDHP5 = 80
  271. KGDdam5 = 15
  272. KGDsput5 = 1
  273. KGDexp5 = 0
  274. gt $curloc
  275. exit
  276. end
  277. if KGDsput6 = 0:
  278. $KGDname6 = 'Archer'
  279. KGDlvl6 = 1
  280. KGDHP6 = 80
  281. KGDdam6 = 15
  282. KGDsput6 = 1
  283. KGDexp6 = 0
  284. gt $curloc
  285. exit
  286. end
  287. end
  288. act 'Priest':
  289. if KGDsput2 = 0:
  290. $KGDname2 = 'Priest'
  291. KGDlvl2 = 1
  292. KGDHP2 = 40
  293. KGDdam2 = 20
  294. KGDsput2 = 1
  295. KGDexp2 = 0
  296. gt $curloc
  297. exit
  298. end
  299. if KGDsput3 = 0:
  300. $KGDname3 = 'Priest'
  301. KGDlvl3 = 1
  302. KGDHP3 = 40
  303. KGDdam3 = 20
  304. KGDsput3 = 1
  305. KGDexp3 = 0
  306. gt $curloc
  307. exit
  308. end
  309. if KGDsput4 = 0:
  310. $KGDname4 = 'Priest'
  311. KGDlvl4 = 1
  312. KGDHP4 = 40
  313. KGDdam4 = 20
  314. KGDsput4 = 1
  315. KGDexp4 = 0
  316. gt $curloc
  317. exit
  318. end
  319. if KGDsput5 = 0:
  320. $KGDname5 = 'Priest'
  321. KGDlvl5 = 1
  322. KGDHP5 = 40
  323. KGDdam5 = 20
  324. KGDsput5 = 1
  325. KGDexp5 = 0
  326. gt $curloc
  327. exit
  328. end
  329. if KGDsput6 = 0:
  330. $KGDname6 = 'Priest'
  331. KGDlvl6 = 1
  332. KGDHP6 = 40
  333. KGDdam6 = 20
  334. KGDsput6 = 1
  335. KGDexp6 = 0
  336. gt $curloc
  337. exit
  338. end
  339. end
  340. end
  341. =======
  342. if KGDsput6=0 and KGDmoney>=250:
  343. act 'hire satellite (250 resources)':
  344. cls
  345. KGDmoney-=250
  346. KGDpartyCreate=0
  347. act 'warrior':
  348. if KGDsput2=0:
  349. $KGDname2='warrior'
  350. KGDlvl2=1
  351. KGDHP2=100
  352. KGDdam2=10
  353. KGDsput2=1
  354. KGDexp2=0
  355. gt $curloc
  356. exit
  357. end
  358. if KGDsput3=0:
  359. $KGDname3='warrior'
  360. KGDlvl3=1
  361. KGDHP3=100
  362. KGDdam3=10
  363. KGDsput3=1
  364. KGDexp3=0
  365. gt $curloc
  366. exit
  367. end
  368. if KGDsput4=0:
  369. $KGDname4='warrior'
  370. KGDlvl4=1
  371. KGDHP4=100
  372. KGDdam4=10
  373. KGDsput4=1
  374. KGDexp4=0
  375. gt $curloc
  376. exit
  377. end
  378. if KGDsput5=0:
  379. $KGDname5='warrior'
  380. KGDlvl5=1
  381. KGDHP5=100
  382. KGDdam5=10
  383. KGDsput5=1
  384. KGDexp5=0
  385. gt $curloc
  386. exit
  387. end
  388. if KGDsput6=0:
  389. $KGDname6='warrior'
  390. KGDlvl6=1
  391. KGDHP6=100
  392. KGDdam6=10
  393. KGDsput6=1
  394. KGDexp6=0
  395. gt $curloc
  396. exit
  397. end
  398. end
  399. act 'magician':
  400. if KGDsput2=0:
  401. $KGDname2='magician'
  402. KGDlvl2=1
  403. KGDHP2=60
  404. KGDdam2=20
  405. KGDsput2=1
  406. KGDexp2=0
  407. gt $curloc
  408. exit
  409. end
  410. if KGDsput3=0:
  411. $KGDname3='magician'
  412. KGDlvl3=1
  413. KGDHP3=60
  414. KGDdam3=20
  415. KGDsput3=1
  416. KGDexp3=0
  417. gt $curloc
  418. exit
  419. end
  420. if KGDsput4=0:
  421. $KGDname4='magician'
  422. KGDlvl4=1
  423. KGDHP4=60
  424. KGDdam4=20
  425. KGDsput4=1
  426. KGDexp4=0
  427. gt $curloc
  428. exit
  429. end
  430. if KGDsput5=0:
  431. $KGDname5='magician'
  432. KGDlvl5=1
  433. KGDHP5=60
  434. KGDdam5=20
  435. KGDsput5=1
  436. KGDexp5=0
  437. gt $curloc
  438. exit
  439. end
  440. if KGDsput6=0:
  441. $KGDname6='magician'
  442. KGDlvl6=1
  443. KGDHP6=60
  444. KGDdam6=20
  445. KGDsput6=1
  446. KGDexp6=0
  447. gt $curloc
  448. exit
  449. end
  450. end
  451. act 'archer':
  452. if KGDsput2=0:
  453. $KGDname2='archer'
  454. KGDlvl2=1
  455. KGDHP2=80
  456. KGDdam2=15
  457. KGDsput2=1
  458. KGDexp2=0
  459. gt $curloc
  460. exit
  461. end
  462. if KGDsput3=0:
  463. $KGDname3='archer'
  464. KGDlvl3=1
  465. KGDHP3=80
  466. KGDdam3=15
  467. KGDsput3=1
  468. KGDexp3=0
  469. gt $curloc
  470. exit
  471. end
  472. if KGDsput4=0:
  473. $KGDname4='archer'
  474. KGDlvl4=1
  475. KGDHP4=80
  476. KGDdam4=15
  477. KGDsput4=1
  478. KGDexp4=0
  479. gt $curloc
  480. exit
  481. end
  482. if KGDsput5=0:
  483. $KGDname5='archer'
  484. KGDlvl5=1
  485. KGDHP5=80
  486. KGDdam5=15
  487. KGDsput5=1
  488. KGDexp5=0
  489. gt $curloc
  490. exit
  491. end
  492. if KGDsput6=0:
  493. $KGDname6='archer'
  494. KGDlvl6=1
  495. KGDHP6=80
  496. KGDdam6=15
  497. KGDsput6=1
  498. KGDexp6=0
  499. gt $curloc
  500. exit
  501. end
  502. end
  503. act 'priest':
  504. if KGDsput2=0:
  505. $KGDname2='priest'
  506. KGDlvl2=1
  507. KGDHP2=40
  508. KGDdam2=20
  509. KGDsput2=1
  510. KGDexp2=0
  511. gt $curloc
  512. exit
  513. end
  514. if KGDsput3=0:
  515. $KGDname3='priest'
  516. KGDlvl3=1
  517. KGDHP3=40
  518. KGDdam3=20
  519. KGDsput3=1
  520. KGDexp3=0
  521. gt $curloc
  522. exit
  523. end
  524. if KGDsput4=0:
  525. $KGDname4='priest'
  526. KGDlvl4=1
  527. KGDHP4=40
  528. KGDdam4=20
  529. KGDsput4=1
  530. KGDexp4=0
  531. gt $curloc
  532. exit
  533. end
  534. if KGDsput5=0:
  535. $KGDname5='priest'
  536. KGDlvl5=1
  537. KGDHP5=40
  538. KGDdam5=20
  539. KGDsput5=1
  540. KGDexp5=0
  541. gt $curloc
  542. exit
  543. end
  544. if KGDsput6=0:
  545. $KGDname6='priest'
  546. KGDlvl6=1
  547. KGDHP6=40
  548. KGDdam6=20
  549. KGDsput6=1
  550. KGDexp6=0
  551. gt $curloc
  552. exit
  553. end
  554. end
  555. end
  556. >>>>>>> 428_KGDgame
  557. end
  558. <<<<<<< 428_KGDgame
  559. act 'Quit Game': gt 'Komp','start'
  560. =======
  561. act 'Leave the game':gt'Komp','start'
  562. >>>>>>> 428_KGDgame
  563. --- KGDgame ---------------------------------