home *** CD-ROM | disk | FTP | other *** search
/ PD 64 Classic 2 / PD_64_Classic_2_2000_-_Side_B.d64 / buffy (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  19KB  |  767 lines

  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem *   saeupac  proudly presents   *
  4. 4 rem *                               *
  5. 5 rem *        vampyre  empire        *
  6. 6 rem *                               *
  7. 7 rem *    a game by  andy jakesch    *
  8. 8 rem *                               *
  9. 9 rem *  (c) 1999/2000 by gnmpf soft  *
  10. 10 rem*                               *
  11. 11 rem*the grandmaster is watching u !*
  12. 12 rem*                               *
  13. 13 rem*********************************
  14. 19 a=10:d=10
  15. 20 poke53280,0:poke53281,4:print"[147]"
  16. 21 print"[211][193][197][213][208][193][195]"
  17. 22 print"[208][210][207][213][196][204][217] [208][210][197][211][197][206][212][211]"
  18. 23 gosub9998
  19. 24 print"[147][193]"
  20. 25 print"[199][206][205][208][198] [211][207][198][212]  [199][193][205][197]"
  21. 26 print"[194][217]"
  22. 27 print"[193][206][196][217] [202][193][203][197][211][195][200]"
  23. 28 gosub9998
  24. 29 print"[147][214][193][205][208][217][210][197] [197][205][208][201][210][197]"
  25. 30 gosub9998
  26. 50 t=100:l=100:s=1:v=10:vv=99
  27. 60 ifa$="t"thent=200
  28. 61 ifa$="l"thenl=200
  29. 62 ifa$="s"thens=10
  30. 63 ifa$="e"thene=100
  31. 64 ifa$="a"thena=100
  32. 65 ifa$="d"thend=100
  33. 66 ifa$="1"thenoa$="[207][203]"
  34. 67 ifa$="2"thenob$="[207][203]"
  35. 68 ifa$="3"thenoc$="[207][203]"
  36. 70 forz=1to10
  37. 71 v(z)=1
  38. 72 nextz
  39. 79 forz=1to3
  40. 80 ug=1:og=11:z1=ug+rnd(0)*(og-ug)
  41. 81 ob(z)=int(z1)
  42. 82 ifob(z)=11thenob(z)=10
  43. 83 nextz
  44. 100 a$="":gosub9000
  45. 101 print"[212]age      :"t
  46. 102 print"[214]ampire   :"v
  47. 103 print"[211]taerke   :"s
  48. 104 print"[204]ebenssaft:"l"%
  49. 105 [153]"1 = (NULL)raining"
  50. 106 [153]"2 = (NULL)ampf"
  51. 107 [153]"3 = (NULL)uche"
  52. 108 [153]"4 = str$isk (NULL)enu"
  53. 109 [153]"5 = (NULL)piel beenden"
  54. 110 [141]9998
  55. 111 [139]a$[178]"1"[167]200
  56. 112 [139]a$[178]"2"[167]500
  57. 113 [139]a$[178]"3"[167]300
  58. 114 [139]a$[178]"4"[167]5000
  59. 115 [139]a$[178]"5"[167]150
  60. 116 [137]110
  61. 150 [141]9000
  62. 151 [153]"str$as (NULL)piel beenden ? (NULL)ohl weich in der   left$ose ?!? str$u spielst jetzt ge-"
  63. 152 [153]"faelligst weiter bis zum allerletzten   (NULL)amenergusspopuss !!!"
  64. 153 [141]9998
  65. 154 [137]100
  66. 200 [153]"loadstop       (NULL)ampyre valmpire - (NULL)raining        "
  67. 201 [153]"atnngriff :"a"%
  68. 202 print"[193]bwehr  :"d"%
  69. 203 [153]"(atn)ngriff"
  70. 204 [153]"atn(b)wehr"
  71. 205 [153]"((NULL))urueck"
  72. 206 [141]9998
  73. 207 [139]a$[178]"a"[167]220
  74. 208 [139]a$[178]"b"[167]230
  75. 209 [139]a$[178]"z"[167]100
  76. 210 [137]206
  77. 220 ug[178]2:og[178]7:z1[178]ug[170][187](0)[172](og[171]ug)
  78. 221 a[178]a[170][181](z1)
  79. 223 [137]1000
  80. 230 ug[178]2:og[178]7:z1[178]ug[170][187](0)[172](og[171]ug)
  81. 231 d[178]d[170][181](z1)
  82. 233 [137]1000
  83. 300 [153]"loadstop         (NULL)ampyre valmpire - (NULL)uche         "
  84. 301 [153]" 1 = (NULL)chule"
  85. 302 [153]" 2 = str$isco"
  86. 303 [153]" 3 = ascriedhof"
  87. 304 [153]" 4 = peekahnhof"
  88. 305 [153]" 5 = (NULL)ark"
  89. 306 [153]" 6 = right$nnenstadt"
  90. 307 [153]" 7 = (NULL)portplatz"
  91. 308 [153]" 8 = valinkaufszentrum"
  92. 309 [153]" 9 = (NULL)ohngebiet 1"
  93. 310 [153]" x = (NULL)ohngebiet 2"
  94. 311 [141]9998
  95. 312 [139]a$[178]"1"[167]350
  96. 313 [139]a$[178]"2"[167]410
  97. 314 [139]a$[178]"3"[167]3100
  98. 315 [139]a$[178]"4"[167]3200
  99. 316 [139]a$[178]"5"[167]3300
  100. 317 [139]a$[178]"6"[167]3400
  101. 318 [139]a$[178]"7"[167]3500
  102. 319 [139]a$[178]"8"[167]3600
  103. 320 [139]a$[178]"9"[167]3700
  104. 321 [139]a$[178]"x"[167]3800
  105. 322 [137]311
  106. 350 ug[178]0:og[178]3:z1[178]ug[170][187](0)[172](og[171]ug)
  107. 351 z2[178][181](z1)
  108. 352 [139]z2[178]0[167]360
  109. 353 [139]z2[178]1[167]370
  110. 354 [139]z2[178]2[167]370
  111. 355 [139]z2[178]3[167]360
  112. 360 ug[178]0:og[178]v(1):z1[178]ug[170][187](0)[172](og[171]ug)
  113. 361 z2[178][181](z1)
  114. 362 aa[178]1:[141]3000
  115. 370 [141]9000
  116. 371 [139]ob(1)[178]1[167]380
  117. 372 [139]ob(2)[178]1[167]390
  118. 373 [139]ob(3)[178]1[167]400
  119. 375 [153]"str$u kannst hier keinen der 3 chr$egenstaendefindenpopinden !"
  120. 376 [141]9998
  121. 377 [139]k$[178]"(NULL)(NULL)"[167]1500
  122. 378 [137]1200
  123. 380 [153]"str$u hast den (NULL)riginal chr$(NULL)(NULL)(NULL)asc (NULL)iller-str$ildo-(NULL)o-(NULL)ildo gefunden !!!"
  124. 381 oa$[178]"(NULL)(NULL)"
  125. 382 [141]9998
  126. 383 [137]372
  127. 390 [153]"str$u hast den (NULL)riginal chr$(NULL)(NULL)(NULL)asc chr$libber-(NULL)o-  (NULL)ibber-(NULL)chleim gefunden !!!"
  128. 391 ob$[178]"(NULL)(NULL)"
  129. 392 [141]9998
  130. 393 [137]373
  131. 400 [153]"str$u hast den (NULL)riginal chr$(NULL)(NULL)(NULL)asc left$irn-(NULL)chmalz-(NULL)o-(NULL)alz-(NULL)aft gefunden !!!"
  132. 401 [141]9998
  133. 402 oc$[178]"(NULL)(NULL)"
  134. 403 [137]375
  135. 410 ug[178]0:og[178]3:z1[178]ug[170][187](0)[172](og[171]ug)
  136. 411 z2[178][181](z1)
  137. 412 [139]z2[178]0[167]420
  138. 413 [139]z2[178]1[167]430
  139. 414 [139]z2[178]2[167]430
  140. 415 [139]z2[178]3[167]420
  141. 420 ug[178]0:og[178]v(2):z1[178]ug[170][187](0)[172](og[171]ug)
  142. 421 z2[178][181](z1)
  143. 422 aa[178]2:[141]3000
  144. 430 [141]9000
  145. 431 [139]ob(1)[178]2[167]440
  146. 432 [139]ob(2)[178]2[167]450
  147. 433 [139]ob(3)[178]2[167]460
  148. 435 [153]"str$u kannst hier keinen der 3 chr$egenstaendefindenpopinden !"
  149. 436 [141]9998
  150. 437 [139]k$[178]"(NULL)(NULL)"[167]1500
  151. 438 [137]1200
  152. 440 [153]"str$u hast den (NULL)riginal chr$(NULL)(NULL)(NULL)asc (NULL)iller-str$ildo-(NULL)o-(NULL)ildo gefunden !!!"
  153. 441 oa$[178]"(NULL)(NULL)"
  154. 442 [141]9998
  155. 443 [137]432
  156. 450 [153]"str$u hast den (NULL)riginal chr$(NULL)(NULL)(NULL)asc chr$libber-(NULL)o-  (NULL)ibber-(NULL)chleim gefunden !!!"
  157. 451 ob$[178]"(NULL)(NULL)"
  158. 452 [141]9998
  159. 453 [137]433
  160. 460 [153]"str$u hast den (NULL)riginal chr$(NULL)(NULL)(NULL)asc left$irn-(NULL)chmalz-(NULL)o-(NULL)alz-(NULL)aft gefunden !!!"
  161. 461 [141]9998
  162. 462 oc$[178]"(NULL)(NULL)"
  163. 463 [137]435
  164. 500 [153]"loadstop         (NULL)ampyre valmpire - (NULL)ampf         "
  165. 501 [153]" 1 = (NULL)chule"
  166. 502 [153]" 2 = str$isco"
  167. 503 [153]" 3 = ascriedhof"
  168. 504 [153]" 4 = peekahnhof"
  169. 505 [153]" 5 = (NULL)ark"
  170. 506 [153]" 6 = right$nnenstadt"
  171. 507 [153]" 7 = (NULL)portplatz"
  172. 508 [153]" 8 = valinkaufszentrum"
  173. 509 [153]" 9 = (NULL)ohngebiet 1"
  174. 510 [153]" x = (NULL)ohngebiet 2"
  175. 511 [141]9998
  176. 512 [139]a$[178]"1"[167]550
  177. 513 [139]a$[178]"2"[167]590
  178. 514 [139]a$[178]"3"[167]630
  179. 515 [139]a$[178]"4"[167]670
  180. 516 [139]a$[178]"5"[167]710
  181. 517 [139]a$[178]"6"[167]750
  182. 518 [139]a$[178]"7"[167]790
  183. 519 [139]a$[178]"8"[167]830
  184. 520 [139]a$[178]"9"[167]870
  185. 521 [139]a$[178]"x"[167]910
  186. 522 [137]511
  187. 550 ug[178]0:og[178]v(1):z1[178]ug[170][187](0)[172](og[171]ug)
  188. 551 z2[178][181](z1)
  189. 560 [141]9000
  190. 561 [153]"str$u schlenderst bei (NULL)acht durch die      chr$aenge str$einer (NULL)chule, was ja voll"
  191. 562 [153]"kaputt ist, aber immerhin bist str$u ja    jetzt nur hier, um (NULL)ampire zu"
  192. 563 [153]"pfaehlenpopaehlen. (NULL)nd wieviele kannst  str$u hier orten ? chr$enau !"z2"..."
  193. 564 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
  194. 565 [141]9998
  195. 566 [139]a$[178]"j"[167]570
  196. 567 [139]a$[178]"n"[167]1200
  197. 568 [137]565
  198. 570 x[178]z2[172]vv
  199. 571 l[178]l[171]x
  200. 572 [139]l[177]0[167]580
  201. 573 [137]2500
  202. 580 t[178]t[171]1
  203. 581 e[178]e[170]z2:[139]e[177]100[167]e[178]100
  204. 582 v(1)[178]v(1)[171]z2
  205. 583 s[178](a[170]d[170]e)[173]20:s[178][181](s):[139]s[179]1[167]s[178]1:[139]s[177]10[167]s[178]10
  206. 584 [139]t[178]0[167]2000
  207. 585 [137]1500
  208. 590 ug[178]0:og[178]v(2):z1[178]ug[170][187](0)[172](og[171]ug)
  209. 591 z2[178][181](z1)
  210. 600 [141]9000
  211. 601 [153]"(NULL)arty (NULL)eople ueberall, wo str$u hinsiehst. str$och str$u bist nicht zu str$einem (NULL)er-"
  212. 602 [153]"gnuegen hier. str$u bist auf (NULL)ampir-       (NULL)faehlerei aus. right$n dieser schicken-
  213. 603 print"popicken [196]isco ortest [196]u satte"z2:print"[214]ampire ..."
  214. 604 print"[215]illst [196]u kaempfen ([202]/[206]) ?"
  215. 605 gosub9998
  216. 606 ifa$="j"then610
  217. 607 ifa$="n"then1200
  218. 608 goto605
  219. 610 x=z2*vv
  220. 611 l=l-x
  221. 612 ifl>0then620
  222. 613 goto2500
  223. 620 t=t-1
  224. 621 e=e+z2:ife>100thene=100
  225. 622 v(2)=v(2)-z2
  226. 623 s=(a+d+e)/20:s=int(s):ifs<1thens=1:ifs>10thens=10
  227. 624 ift=0then2000
  228. 625 goto1500
  229. 630 ug=0:og=v(3):z1=ug+rnd(0)*(og-ug)
  230. 631 z2=int(z1)
  231. 640 gosub9000
  232. 641 print"[196]u wanderst mitten in der [206]acht ueber   den [198]riedhof. [214]erlaufen ? [204]ebens-"
  233. 642 print"muede ? [199]rabschaenden ?!? [206]ein, [196]u      machst keinerlei dieser lustigen"
  234. 643 print"[196]inge hier, [196]u lauerst auf [214]ampire,"z2:print"an der [218]ahl ..."
  235. 644 print"[215]illst [196]u kaempfen ([202]/[206]) ?"
  236. 645 gosub9998
  237. 646 ifa$="j"then650
  238. 647 ifa$="n"then1200
  239. 648 goto645
  240. 650 x=z2*vv
  241. 651 l=l-x
  242. 652 ifl>0then660
  243. 653 goto2500
  244. 660 t=t-1
  245. 661 e=e+z2:ife>100thene=100
  246. 662 v(3)=v(3)-z2
  247. 663 s=(a+d+e)/20:s=int(s):ifs<1thens=1:ifs>10thens=10
  248. 664 ift=0then2000
  249. 665 goto1500
  250. 670 ug=0:og=v(4):z1=ug+rnd(0)*(og-ug)
  251. 671 z2=int(z1)
  252. 680 gosub9000
  253. 681 print"[196]er [194]ahnhof - haeufig faelschlicherweiseverstandenes [215]ort, [211]ammelpunkt von
  254. 682 [153]"notgeilen (NULL)ennern. (NULL)ie passt str$u in      dieses peekild ? atnaaaah ja ... diese"
  255. 683 [153]"(NULL)ampirgeschichte ! (NULL)nd zu str$einer ascreude kannst str$u hier auch"z2"ausmachen !"
  256. 684 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
  257. 685 [141]9998
  258. 686 [139]a$[178]"j"[167]690
  259. 687 [139]a$[178]"n"[167]1200
  260. 688 [137]685
  261. 690 x[178]z2[172]vv
  262. 691 l[178]l[171]x
  263. 692 [139]l[177]0[167]700
  264. 693 [137]2500
  265. 700 t[178]t[171]1
  266. 701 e[178]e[170]z2:[139]e[177]100[167]e[178]100
  267. 702 v(4)[178]v(4)[171]z2
  268. 703 s[178](a[170]d[170]e)[173]20:s[178][181](s):[139]s[179]1[167]s[178]1:[139]s[177]10[167]s[178]10
  269. 704 [139]t[178]0[167]2000
  270. 705 [137]1500
  271. 710 ug[178]0:og[178]v(5):z1[178]ug[170][187](0)[172](og[171]ug)
  272. 711 z2[178][181](z1)
  273. 720 [141]9000
  274. 721 [153]"valin (NULL)paziergang durch den (NULL)ark ... oder doch nicht ? str$u bist hier auf"
  275. 722 [153]"(NULL)atrouille. peeklut liegt in der (NULL)uft, die (NULL)ampire spitzen ihre (NULL)aehne."z2
  276. 723 [153]"davon kannst str$u hier auch finden !"
  277. 724 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
  278. 725 [141]9998
  279. 726 [139]a$[178]"j"[167]730
  280. 727 [139]a$[178]"n"[167]1200
  281. 728 [137]725
  282. 730 x[178]z2[172]vv
  283. 731 l[178]l[171]x
  284. 732 [139]l[177]0[167]740
  285. 733 [137]2500
  286. 740 t[178]t[171]1
  287. 741 e[178]e[170]z2:[139]e[177]100[167]e[178]100
  288. 742 v(5)[178]v(5)[171]z2
  289. 743 s[178](a[170]d[170]e)[173]20:s[178][181](s):[139]s[179]1[167]s[178]1:[139]s[177]10[167]s[178]10
  290. 744 [139]t[178]0[167]2000
  291. 745 [137]1500
  292. 750 ug[178]0:og[178]v(6):z1[178]ug[170][187](0)[172](og[171]ug)
  293. 751 z2[178][181](z1)
  294. 760 [141]9000
  295. 761 [153]"str$ie right$nnenstadt - str$owntown ! (NULL)o die rote (NULL)eile auch anzufinden ist. str$och"
  296. 762 [153]"was kommt str$ir in den (NULL)inn ? mid$ap ...     genau - (NULL)ampirepopire !!! (NULL)nd das"
  297. 763 [153]"gleich in"z2"facher atnusfertigung !!!"
  298. 764 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
  299. 765 [141]9998
  300. 766 [139]a$[178]"j"[167]770
  301. 767 [139]a$[178]"n"[167]1200
  302. 768 [137]765
  303. 770 x[178]z2[172]vv
  304. 771 l[178]l[171]x
  305. 772 [139]l[177]0[167]780
  306. 773 [137]2500
  307. 780 t[178]t[171]1
  308. 781 e[178]e[170]z2:[139]e[177]100[167]e[178]100
  309. 782 v(6)[178]v(6)[171]z2
  310. 783 s[178](a[170]d[170]e)[173]20:s[178][181](s):[139]s[179]1[167]s[178]1:[139]s[177]10[167]s[178]10
  311. 784 [139]t[178]0[167]2000
  312. 785 [137]1500
  313. 790 ug[178]0:og[178]v(7):z1[178]ug[170][187](0)[172](og[171]ug)
  314. 791 z2[178][181](z1)
  315. 800 [141]9000
  316. 801 [153]"(NULL)as tust str$u nur auf dem (NULL)portplatz ?    str$och wohl nicht etwa wirklich"
  317. 802 [153]"(NULL)port treiben ... was ja echt abartig   waere ! (NULL)ein, str$u tust was voellig"
  318. 803 [153]"alltaegliches - (NULL)ampire fistenpopisten  und so ..."z2"sind's !!!"
  319. 804 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
  320. 805 [141]9998
  321. 806 [139]a$[178]"j"[167]810
  322. 807 [139]a$[178]"n"[167]1200
  323. 808 [137]805
  324. 810 x[178]z2[172]vv
  325. 811 l[178]l[171]x
  326. 812 [139]l[177]0[167]820
  327. 813 [137]2500
  328. 820 t[178]t[171]1
  329. 821 e[178]e[170]z2:[139]e[177]100[167]e[178]100
  330. 822 v(7)[178]v(7)[171]z2
  331. 823 s[178](a[170]d[170]e)[173]20:s[178][181](s):[139]s[179]1[167]s[178]1:[139]s[177]10[167]s[178]10
  332. 824 [139]t[178]0[167]2000
  333. 825 [137]1500
  334. 830 ug[178]0:og[178]v(8):z1[178]ug[170][187](0)[172](og[171]ug)
  335. 831 z2[178][181](z1)
  336. 840 [141]9000
  337. 841 [153]"str$as valinkaufszentrum - (NULL)hoppingpopopping ist angesagt !!! (NULL)eider nicht ..."
  338. 842 [153]"str$u spuerst den atntem str$eines (NULL)aechters im (NULL)uecken und suchst lieber nach"
  339. 843 [153]"(NULL)ampiren."z2" kaufen hier tatsaechlich":[153]"was ein ... was wohl ?!?"
  340. 844 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
  341. 845 [141]9998
  342. 846 [139]a$[178]"j"[167]850
  343. 847 [139]a$[178]"n"[167]1200
  344. 848 [137]845
  345. 850 x[178]z2[172]vv
  346. 851 l[178]l[171]x
  347. 852 [139]l[177]0[167]860
  348. 853 [137]2500
  349. 860 t[178]t[171]1
  350. 861 e[178]e[170]z2:[139]e[177]100[167]e[178]100
  351. 862 v(8)[178]v(8)[171]z2
  352. 863 s[178](a[170]d[170]e)[173]20:s[178][181](s):[139]s[179]1[167]s[178]1:[139]s[177]10[167]s[178]10
  353. 864 [139]t[178]0[167]2000
  354. 865 [137]1500
  355. 870 ug[178]0:og[178]v(9):z1[178]ug[170][187](0)[172](og[171]ug)
  356. 871 z2[178][181](z1)
  357. 880 [141]9000
  358. 881 [153]"str$u durchstreifst nun eines von 2 grossen(NULL)ohngebieten dieser (NULL)tadt. (NULL)nd str$u"
  359. 882 [153]"spuerst ganz deutlich: str$u streifst hier nicht allein !!! str$a sind naemlich"
  360. 883 [153]"auch noch"z2"(NULL)ampire !!!"
  361. 884 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
  362. 885 [141]9998
  363. 886 [139]a$[178]"j"[167]890
  364. 887 [139]a$[178]"n"[167]1200
  365. 888 [137]885
  366. 890 x[178]z2[172]vv
  367. 891 l[178]l[171]x
  368. 892 [139]l[177]0[167]900
  369. 893 [137]2500
  370. 900 t[178]t[171]1
  371. 901 e[178]e[170]z2:[139]e[177]100[167]e[178]100
  372. 902 v(9)[178]v(9)[171]z2
  373. 903 s[178](a[170]d[170]e)[173]20:s[178][181](s):[139]s[179]1[167]s[178]1:[139]s[177]10[167]s[178]10
  374. 904 [139]t[178]0[167]2000
  375. 905 [137]1500
  376. 910 ug[178]0:og[178]v(10):z1[178]ug[170][187](0)[172](og[171]ug)
  377. 911 z2[178][181](z1)
  378. 920 [141]9000
  379. 921 [153]"str$u durchstreifst nun eines von 2 grossen(NULL)ohngebieten dieser (NULL)tadt. (NULL)nd str$u"
  380. 922 [153]"spuerst ganz deutlich: str$u streifst hier nicht allein !!! str$a sind naemlich"
  381. 923 [153]"auch noch"z2"(NULL)ampire !!!"
  382. 924 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
  383. 925 [141]9998
  384. 926 [139]a$[178]"j"[167]930
  385. 927 [139]a$[178]"n"[167]1200
  386. 928 [137]925
  387. 930 x[178]z2[172]vv
  388. 931 l[178]l[171]x
  389. 932 [139]l[177]0[167]940
  390. 933 [137]2500
  391. 940 t[178]t[171]1
  392. 941 e[178]e[170]z2:[139]e[177]100[167]e[178]100
  393. 942 v(10)[178]v(10)[171]z2
  394. 943 s[178](a[170]d[170]e)[173]20:s[178][181](s):[139]s[179]1[167]s[178]1:[139]s[177]10[167]s[178]10
  395. 944 [139]t[178]0[167]2000
  396. 945 [137]1500
  397. 1000 [143] tagesauswertung nach training
  398. 1001 s[178](a[170]d[170]e)[173]20:s[178][181](s):[139]s[179]1[167]s[178]1:[139]s[177]10[167]s[178]10
  399. 1002 l[178]l[170](s[172]10)[170](e[173]2):l[178][181](l):[139]l[177]100[167]l[178]100
  400. 1003 t[178]t[171]1
  401. 1004 [137]1500
  402. 1200 [143] tagesauswertung ohne training/kampf
  403. 1201 l[178]l[170](s[172]5)[170](e[173]2):l[178][181](l):[139]l[177]100[167]l[178]100
  404. 1202 t[178]t[171]1
  405. 1203 [137]1500
  406. 1500 [143] vampir-wachstum pro tag
  407. 1501 [129]z[178]1[164]10:[139]v(z)[178]0[167][130]z
  408. 1502 ug[178]0:og[178]1.4:z1[178]ug[170][187](0)[172](og[171]ug)
  409. 1503 v(z)[178]v(z)[170][181](z1)
  410. 1504 [139]v(z)[179]0[167]v(z)[178]0
  411. 1505 [130]z:v[178]0
  412. 1506 [129]z[178]1[164]10
  413. 1507 v[178]v[170]v(z)
  414. 1508 [130]z
  415. 1509 [139]v[179]0[167]v[178]0
  416. 1510 [143] kampfstufe/ vampire
  417. 1511 [139]s[178]1[167]vv[178]99
  418. 1512 [139]s[178]2[167]vv[178]49
  419. 1513 [139]s[178]3[167]vv[178]33
  420. 1514 [139]s[178]4[167]vv[178]24
  421. 1515 [139]s[178]5[167]vv[178]19
  422. 1516 [139]s[178]6[167]vv[178]16
  423. 1517 [139]s[178]7[167]vv[178]14
  424. 1518 [139]s[178]8[167]vv[178]12
  425. 1519 [139]s[178]9[167]vv[178]11
  426. 1520 [139]s[178]10[167]vv[178]9
  427. 1521 [139]t[178]0[167]2000
  428. 1522 [137]100
  429. 2000 [143] endkampf
  430. 2001 [139]oa$[178]"(NULL)(NULL)"[167]2003
  431. 2002 [137]2050
  432. 2003 [139]ob$[178]"(NULL)(NULL)"[167]2005
  433. 2004 [137]2050
  434. 2005 [139]oc$[178]"(NULL)(NULL)"[167]2010
  435. 2006 [137]2050
  436. 2010 od$[178]"(NULL)(NULL)"
  437. 2011 [141]9000
  438. 2012 [153]"chr$ute atnrbeit, str$u hast alle 3 (NULL)utaten     finden koennen und str$ein (NULL)eister"
  439. 2013 [153]"konnte den (NULL)raftzauber anwenden. str$eine  lenhancen das valnde dieses eher"
  440. 2014 [153]"sinnlosen chr$ames lebend zu erleben, sind soeben gestiegen !"
  441. 2015 [141]9998
  442. 2050 [141]9000
  443. 2051 [153]"vals ist nun der (NULL)ag des valndspiels ge-    kommen, peekayern gegen ... aeh ..."
  444. 2052 [153]"falscher (NULL)anal ... schnell auf (NULL)ropopo7 switchen ... und nochmal:"
  445. 2053 [153]"vals ist nun der (NULL)ag des (NULL)axifahrers ge-  kommen und ein (NULL)riginal chr$(NULL)(NULL)(NULL)asc"
  446. 2054 [153]"ascusschweisspritzer bedroht die (NULL)elt mit ... na, was wohl ? right$hm zur (NULL)eite"
  447. 2055 [153]"stehen noch laecherliche"v"(NULL)ampire"
  448. 2056 [153]"und str$u begibst str$ich in den (NULL)ing.        chr$(NULL)(NULL)chr$ ..."
  449. 2057 [141]9998
  450. 2060 [139]od$[178]"(NULL)(NULL)"[167]l[178]l[172]10
  451. 2061 l[178]l[171]v[172]vv[171]500
  452. 2062 [139]l[179]0[167]2100
  453. 2070 [141]9000
  454. 2071 [153]"(NULL)h nein ! (NULL)o ein mid$ammer aber auch ! str$u  hast alle (NULL)ampire und den (NULL)ber-"
  455. 2072 [153]"fiesling killen koennen. (NULL)al ehrlich ...nur wenige (NULL)angweilerpopeiler"
  456. 2073 [153]"koennen sich in dieses oberflaechliche  (NULL)piel so reinsteigern, dass sie es
  457. 2074 print"gewinnen ... das war als [203]ompliment ge- meintpopeint ..."
  458. 2075 gosub9998
  459. 2076 goto4000
  460. 2100 gosub9000
  461. 2101 print"[217]ippie ! [196]ie ganze [215]elt ist dank [196]eines [213]nvermoegens nun in eine zarte"
  462. 2102 print"[196]ufthuelle von [198]usschweiss gehuellt !   [196]ie [211]uizidraten schnellen nur so"
  463. 2103 print"in die [200]oehe ! [199]ood work ..."
  464. 2104 gosub9998
  465. 2105 goto2500
  466. 2500 gosub9000
  467. 2501 print"[199][193][205][197] [207][214][193][200][160]!!!"
  468. 2502 gosub9998
  469. 2503 poke53280,0:poke53281,0
  470. 2504 print"[144][211]ucht nach den [195]heats dieses [199]ames !!!"
  471. 2505 print"[210][213][206] + [210][197][212][213][210][206], falls ihr's nochmal ver-  suchen wollt ..."
  472. 2506 end
  473. 3000 gosub9000
  474. 3001 print"[193][195][200][212][213][206][199][160]!!!"z2"[214]ampire kreuzen [196]einen":print"[215]eg ! [203]aempfen ([202]/[206]) ?"
  475. 3002 gosub9998
  476. 3003 ifa$="j"then3010
  477. 3004 ifa$="n"then1200
  478. 3005 goto3002
  479. 3010 x=z2*vv
  480. 3011 l=l-x
  481. 3012 ifl>0then3020
  482. 3013 goto2500
  483. 3020 t=t-1
  484. 3021 e=e+z2:ife>100thene=100
  485. 3022 v(aa)=v(aa)-z2
  486. 3023 s=(a+d+e)/20:s=int(s):ifs<1thens=1:ifs>10thens=10
  487. 3024 ift=0then2000
  488. 3025 k$="[207][203]":return
  489. 3100 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
  490. 3101 z2=int(z1)
  491. 3102 ifz2=0then3110
  492. 3103 ifz2=1then3120
  493. 3104 ifz2=2then3120
  494. 3105 ifz2=3then3110
  495. 3110 ug=0:og=v(3):z1=ug+rnd(0)*(og-ug)
  496. 3111 z2=int(z1)
  497. 3112 aa=3:gosub3000
  498. 3120 gosub9000
  499. 3121 ifob(1)=3then3130
  500. 3122 ifob(2)=3then3140
  501. 3123 ifob(3)=3then3150
  502. 3125 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
  503. 3126 gosub9998
  504. 3127 ifk$="[207][203]"then1500
  505. 3128 goto1200
  506. 3130 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
  507. 3131 oa$="[207][203]"
  508. 3132 gosub9998
  509. 3133 goto3122
  510. 3140 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o-  [208]ibber-[211]chleim gefunden !!!"
  511. 3141 ob$="[207][203]"
  512. 3142 gosub9998
  513. 3143 goto3123
  514. 3150 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
  515. 3151 gosub9998
  516. 3152 oc$="[207][203]"
  517. 3153 goto3125
  518. 3200 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
  519. 3201 z2=int(z1)
  520. 3202 ifz2=0then3210
  521. 3203 ifz2=1then3220
  522. 3204 ifz2=2then3220
  523. 3205 ifz2=3then3210
  524. 3210 ug=0:og=v(4):z1=ug+rnd(0)*(og-ug)
  525. 3211 z2=int(z1)
  526. 3212 aa=4:gosub3000
  527. 3220 gosub9000
  528. 3221 ifob(1)=4then3230
  529. 3222 ifob(2)=4then3240
  530. 3223 ifob(3)=4then3250
  531. 3225 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
  532. 3226 gosub9998
  533. 3227 ifk$="[207][203]"then1500
  534. 3228 goto1200
  535. 3230 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
  536. 3231 oa$="[207][203]"
  537. 3232 gosub9998
  538. 3233 goto3222
  539. 3240 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o-  [208]ibber-[211]chleim gefunden !!!"
  540. 3241 ob$="[207][203]"
  541. 3242 gosub9998
  542. 3243 goto3223
  543. 3250 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
  544. 3251 gosub9998
  545. 3252 oc$="[207][203]"
  546. 3253 goto3225
  547. 3300 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
  548. 3301 z2=int(z1)
  549. 3302 ifz2=0then3310
  550. 3303 ifz2=1then3320
  551. 3304 ifz2=2then3320
  552. 3305 ifz2=3then3310
  553. 3310 ug=0:og=v(5):z1=ug+rnd(0)*(og-ug)
  554. 3311 z2=int(z1)
  555. 3312 aa=5:gosub3000
  556. 3320 gosub9000
  557. 3321 ifob(1)=5then3330
  558. 3322 ifob(2)=5then3340
  559. 3323 ifob(3)=5then3350
  560. 3325 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
  561. 3326 gosub9998
  562. 3327 ifk$="[207][203]"then1500
  563. 3328 goto1200
  564. 3330 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
  565. 3331 oa$="[207][203]"
  566. 3332 gosub9998
  567. 3333 goto3322
  568. 3340 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o-  [208]ibber-[211]chleim gefunden !!!"
  569. 3341 ob$="[207][203]"
  570. 3342 gosub9998
  571. 3343 goto3323
  572. 3350 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
  573. 3351 gosub9998
  574. 3352 oc$="[207][203]"
  575. 3353 goto3325
  576. 3400 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
  577. 3401 z2=int(z1)
  578. 3402 ifz2=0then3410
  579. 3403 ifz2=1then3420
  580. 3404 ifz2=2then3420
  581. 3405 ifz2=3then3410
  582. 3410 ug=0:og=v(6):z1=ug+rnd(0)*(og-ug)
  583. 3411 z2=int(z1)
  584. 3412 aa=6:gosub3000
  585. 3420 gosub9000
  586. 3421 ifob(1)=6then3430
  587. 3422 ifob(2)=6then3440
  588. 3423 ifob(3)=6then3450
  589. 3425 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
  590. 3426 gosub9998
  591. 3427 ifk$="[207][203]"then1500
  592. 3428 goto1200
  593. 3430 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
  594. 3431 oa$="[207][203]"
  595. 3432 gosub9998
  596. 3433 goto3422
  597. 3440 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o-  [208]ibber-[211]chleim gefunden !!!"
  598. 3441 ob$="[207][203]"
  599. 3442 gosub9998
  600. 3443 goto3423
  601. 3450 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
  602. 3451 gosub9998
  603. 3452 oc$="[207][203]"
  604. 3453 goto3425
  605. 3500 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
  606. 3501 z2=int(z1)
  607. 3502 ifz2=0then3510
  608. 3503 ifz2=1then3520
  609. 3504 ifz2=2then3520
  610. 3505 ifz2=3then3510
  611. 3510 ug=0:og=v(7):z1=ug+rnd(0)*(og-ug)
  612. 3511 z2=int(z1)
  613. 3512 aa=7:gosub3000
  614. 3520 gosub9000
  615. 3521 ifob(1)=7then3530
  616. 3522 ifob(2)=7then3540
  617. 3523 ifob(3)=7then3550
  618. 3525 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
  619. 3526 gosub9998
  620. 3527 ifk$="[207][203]"then1500
  621. 3528 goto1200
  622. 3530 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
  623. 3531 oa$="[207][203]"
  624. 3532 gosub9998
  625. 3533 goto3522
  626. 3540 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o-  [208]ibber-[211]chleim gefunden !!!"
  627. 3541 ob$="[207][203]"
  628. 3542 gosub9998
  629. 3543 goto3523
  630. 3550 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
  631. 3551 gosub9998
  632. 3552 oc$="[207][203]"
  633. 3553 goto3525
  634. 3600 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
  635. 3601 z2=int(z1)
  636. 3602 ifz2=0then3610
  637. 3603 ifz2=1then3620
  638. 3604 ifz2=2then3620
  639. 3605 ifz2=3then3610
  640. 3610 ug=0:og=v(8):z1=ug+rnd(0)*(og-ug)
  641. 3611 z2=int(z1)
  642. 3612 aa=8:gosub3000
  643. 3620 gosub9000
  644. 3621 ifob(1)=8then3630
  645. 3622 ifob(2)=8then3640
  646. 3623 ifob(3)=8then3650
  647. 3625 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
  648. 3626 gosub9998
  649. 3627 ifk$="[207][203]"then1500
  650. 3628 goto1200
  651. 3630 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
  652. 3631 oa$="[207][203]"
  653. 3632 gosub9998
  654. 3633 goto3622
  655. 3640 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o-  [208]ibber-[211]chleim gefunden !!!"
  656. 3641 ob$="[207][203]"
  657. 3642 gosub9998
  658. 3643 goto3623
  659. 3650 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
  660. 3651 gosub9998
  661. 3652 oc$="[207][203]"
  662. 3653 goto3625
  663. 3700 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
  664. 3701 z2=int(z1)
  665. 3702 ifz2=0then3710
  666. 3703 ifz2=1then3720
  667. 3704 ifz2=2then3720
  668. 3705 ifz2=3then3710
  669. 3710 ug=0:og=v(9):z1=ug+rnd(0)*(og-ug)
  670. 3711 z2=int(z1)
  671. 3712 aa=9:gosub3000
  672. 3720 gosub9000
  673. 3721 ifob(1)=9then3730
  674. 3722 ifob(2)=9then3740
  675. 3723 ifob(3)=9then3750
  676. 3725 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
  677. 3726 gosub9998
  678. 3727 ifk$="[207][203]"then1500
  679. 3728 goto1200
  680. 3730 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
  681. 3731 oa$="[207][203]"
  682. 3732 gosub9998
  683. 3733 goto3722
  684. 3740 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o-  [208]ibber-[211]chleim gefunden !!!"
  685. 3741 ob$="[207][203]"
  686. 3742 gosub9998
  687. 3743 goto3723
  688. 3750 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
  689. 3751 gosub9998
  690. 3752 oc$="[207][203]"
  691. 3753 goto3725
  692. 3800 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
  693. 3801 z2=int(z1)
  694. 3802 ifz2=0then3810
  695. 3803 ifz2=1then3820
  696. 3804 ifz2=2then3820
  697. 3805 ifz2=3then3810
  698. 3810 ug=0:og=v(10):z1=ug+rnd(0)*(og-ug)
  699. 3811 z2=int(z1)
  700. 3812 aa=10:gosub3000
  701. 3820 gosub9000
  702. 3821 ifob(1)=10then3830
  703. 3822 ifob(2)=10then3840
  704. 3823 ifob(3)=10then3850
  705. 3825 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
  706. 3826 gosub9998
  707. 3827 ifk$="[207][203]"then1500
  708. 3828 goto1200
  709. 3830 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
  710. 3831 oa$="[207][203]"
  711. 3832 gosub9998
  712. 3833 goto3822
  713. 3840 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o-  [208]ibber-[211]chleim gefunden !!!"
  714. 3841 ob$="[207][203]"
  715. 3842 gosub9998
  716. 3843 goto3823
  717. 3850 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
  718. 3851 gosub9998
  719. 3852 oc$="[207][203]"
  720. 3853 goto3825
  721. 4000 open2,8,2,"hi,s,r"
  722. 4001 input#2,n1$
  723. 4002 input#2,h1
  724. 4003 input#2,n2$
  725. 4004 input#2,h2
  726. 4005 close2
  727. 4010 print"[147][214]ampire vor [197]ndkampf:"v:print"[204]ebenssaft nach [197]ndkampf:"l
  728. 4011 pokev+31,0:pokev+21,0
  729. 4012 ifv<h1thenpoke19,1:print"[206]euer [210]ekord !":input"[206]ame :";n1$:h1=v:poke19,0:print
  730. 4013 ifl>h2thenpoke19,1:print"[206]euer [210]ekord !":input"[206]ame :";n2$:h2=l:poke19,0:print
  731. 4014 printn$
  732. 4015 print"[210]ekordhalter:"
  733. 4016 printn1$
  734. 4017 print"[214]ampire:"
  735. 4018 printh1
  736. 4019 print"[210]ekordhalter:"
  737. 4020 close2
  738. 4021 print"[204]ebenssaft:"
  739. 4022 printh2
  740. 4023 gosub9998
  741. 4024 open2,8,2,"@:hi,s,w"
  742. 4025 print:print#2,n1$
  743. 4026 print:print#2,n2$
  744. 4027 print#2,h1
  745. 4028 print#2,h2
  746. 4030 print"[206]ochmal spielen ([202]/[206]) ?"
  747. 4031 gosub9998
  748. 4032 ifa$="j"then1
  749. 4033 ifa$="n"thensys64738
  750. 4034 goto4031
  751. 5000 print"[147][144]       [214]ampyre [197]mpire - [193]nleitung       "
  752. 5001 print"[214]ampyre [197]mpire ist mal wieder ein [193]nti- [211]piel wie es im [194]uche steht."
  753. 5002 print"[197]s geht darum, dass man in die [210]olle    einer [214]ampirjaegerin schluepft"
  754. 5003 print"(weil das momentan hip ist) und [214]ampire bekaempfen muss. [205]an sollte aber"
  755. 5004 print"vor allem zu [194]eginn auch erst mal       kraeftig trainieren und neben dem"
  756. 5005 print"lustigen [205]eucheln auch nach 3 [207]bjekten  suchen, die nach 100 [212]agen von"
  757. 5006 print"[194]edeutung werden. [196]ann kann man dadurch naemlich [211]uperkraefte erlangen,"
  758. 5007 print"ohne die man am [212]ag der [193]brechnung      gegen den dann erscheinenden [207]ber-
  759. 5008 [153]"(NULL)pielverderber kaum eine lenhance hat. right$hmzur (NULL)eite stehen werden alle"
  760. 5009 [153]"(NULL)ampire, die man bis zum 100. (NULL)ag nicht killen konnte."
  761. 5010 [141]9998
  762. 5011 [137]100
  763. 9000 [153]"loadstop             (NULL)ampyre valmpire             "
  764. 9002 [142]
  765. 9998 [161]a$:[139]a$[178]""[167]9998
  766. 9999 [142]
  767.