home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PD 64 Classic 2
/
PD_64_Classic_2_2000_-_Side_B.d64
/
buffy
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
19KB
|
767 lines
1 rem *********************************
2 rem * *
3 rem * saeupac proudly presents *
4 rem * *
5 rem * vampyre empire *
6 rem * *
7 rem * a game by andy jakesch *
8 rem * *
9 rem * (c) 1999/2000 by gnmpf soft *
10 rem* *
11 rem*the grandmaster is watching u !*
12 rem* *
13 rem*********************************
19 a=10:d=10
20 poke53280,0:poke53281,4:print"[147]"
21 print"[211][193][197][213][208][193][195]"
22 print"[208][210][207][213][196][204][217] [208][210][197][211][197][206][212][211]"
23 gosub9998
24 print"[147][193]"
25 print"[199][206][205][208][198] [211][207][198][212] [199][193][205][197]"
26 print"[194][217]"
27 print"[193][206][196][217] [202][193][203][197][211][195][200]"
28 gosub9998
29 print"[147][214][193][205][208][217][210][197] [197][205][208][201][210][197]"
30 gosub9998
50 t=100:l=100:s=1:v=10:vv=99
60 ifa$="t"thent=200
61 ifa$="l"thenl=200
62 ifa$="s"thens=10
63 ifa$="e"thene=100
64 ifa$="a"thena=100
65 ifa$="d"thend=100
66 ifa$="1"thenoa$="[207][203]"
67 ifa$="2"thenob$="[207][203]"
68 ifa$="3"thenoc$="[207][203]"
70 forz=1to10
71 v(z)=1
72 nextz
79 forz=1to3
80 ug=1:og=11:z1=ug+rnd(0)*(og-ug)
81 ob(z)=int(z1)
82 ifob(z)=11thenob(z)=10
83 nextz
100 a$="":gosub9000
101 print"[212]age :"t
102 print"[214]ampire :"v
103 print"[211]taerke :"s
104 print"[204]ebenssaft:"l"%
105 [153]"1 = (NULL)raining"
106 [153]"2 = (NULL)ampf"
107 [153]"3 = (NULL)uche"
108 [153]"4 = str$isk (NULL)enu"
109 [153]"5 = (NULL)piel beenden"
110 [141]9998
111 [139]a$[178]"1"[167]200
112 [139]a$[178]"2"[167]500
113 [139]a$[178]"3"[167]300
114 [139]a$[178]"4"[167]5000
115 [139]a$[178]"5"[167]150
116 [137]110
150 [141]9000
151 [153]"str$as (NULL)piel beenden ? (NULL)ohl weich in der left$ose ?!? str$u spielst jetzt ge-"
152 [153]"faelligst weiter bis zum allerletzten (NULL)amenergusspopuss !!!"
153 [141]9998
154 [137]100
200 [153]"loadstop (NULL)ampyre valmpire - (NULL)raining "
201 [153]"atnngriff :"a"%
202 print"[193]bwehr :"d"%
203 [153]"(atn)ngriff"
204 [153]"atn(b)wehr"
205 [153]"((NULL))urueck"
206 [141]9998
207 [139]a$[178]"a"[167]220
208 [139]a$[178]"b"[167]230
209 [139]a$[178]"z"[167]100
210 [137]206
220 ug[178]2:og[178]7:z1[178]ug[170][187](0)[172](og[171]ug)
221 a[178]a[170][181](z1)
223 [137]1000
230 ug[178]2:og[178]7:z1[178]ug[170][187](0)[172](og[171]ug)
231 d[178]d[170][181](z1)
233 [137]1000
300 [153]"loadstop (NULL)ampyre valmpire - (NULL)uche "
301 [153]" 1 = (NULL)chule"
302 [153]" 2 = str$isco"
303 [153]" 3 = ascriedhof"
304 [153]" 4 = peekahnhof"
305 [153]" 5 = (NULL)ark"
306 [153]" 6 = right$nnenstadt"
307 [153]" 7 = (NULL)portplatz"
308 [153]" 8 = valinkaufszentrum"
309 [153]" 9 = (NULL)ohngebiet 1"
310 [153]" x = (NULL)ohngebiet 2"
311 [141]9998
312 [139]a$[178]"1"[167]350
313 [139]a$[178]"2"[167]410
314 [139]a$[178]"3"[167]3100
315 [139]a$[178]"4"[167]3200
316 [139]a$[178]"5"[167]3300
317 [139]a$[178]"6"[167]3400
318 [139]a$[178]"7"[167]3500
319 [139]a$[178]"8"[167]3600
320 [139]a$[178]"9"[167]3700
321 [139]a$[178]"x"[167]3800
322 [137]311
350 ug[178]0:og[178]3:z1[178]ug[170][187](0)[172](og[171]ug)
351 z2[178][181](z1)
352 [139]z2[178]0[167]360
353 [139]z2[178]1[167]370
354 [139]z2[178]2[167]370
355 [139]z2[178]3[167]360
360 ug[178]0:og[178]v(1):z1[178]ug[170][187](0)[172](og[171]ug)
361 z2[178][181](z1)
362 aa[178]1:[141]3000
370 [141]9000
371 [139]ob(1)[178]1[167]380
372 [139]ob(2)[178]1[167]390
373 [139]ob(3)[178]1[167]400
375 [153]"str$u kannst hier keinen der 3 chr$egenstaendefindenpopinden !"
376 [141]9998
377 [139]k$[178]"(NULL)(NULL)"[167]1500
378 [137]1200
380 [153]"str$u hast den (NULL)riginal chr$(NULL)(NULL)(NULL)asc (NULL)iller-str$ildo-(NULL)o-(NULL)ildo gefunden !!!"
381 oa$[178]"(NULL)(NULL)"
382 [141]9998
383 [137]372
390 [153]"str$u hast den (NULL)riginal chr$(NULL)(NULL)(NULL)asc chr$libber-(NULL)o- (NULL)ibber-(NULL)chleim gefunden !!!"
391 ob$[178]"(NULL)(NULL)"
392 [141]9998
393 [137]373
400 [153]"str$u hast den (NULL)riginal chr$(NULL)(NULL)(NULL)asc left$irn-(NULL)chmalz-(NULL)o-(NULL)alz-(NULL)aft gefunden !!!"
401 [141]9998
402 oc$[178]"(NULL)(NULL)"
403 [137]375
410 ug[178]0:og[178]3:z1[178]ug[170][187](0)[172](og[171]ug)
411 z2[178][181](z1)
412 [139]z2[178]0[167]420
413 [139]z2[178]1[167]430
414 [139]z2[178]2[167]430
415 [139]z2[178]3[167]420
420 ug[178]0:og[178]v(2):z1[178]ug[170][187](0)[172](og[171]ug)
421 z2[178][181](z1)
422 aa[178]2:[141]3000
430 [141]9000
431 [139]ob(1)[178]2[167]440
432 [139]ob(2)[178]2[167]450
433 [139]ob(3)[178]2[167]460
435 [153]"str$u kannst hier keinen der 3 chr$egenstaendefindenpopinden !"
436 [141]9998
437 [139]k$[178]"(NULL)(NULL)"[167]1500
438 [137]1200
440 [153]"str$u hast den (NULL)riginal chr$(NULL)(NULL)(NULL)asc (NULL)iller-str$ildo-(NULL)o-(NULL)ildo gefunden !!!"
441 oa$[178]"(NULL)(NULL)"
442 [141]9998
443 [137]432
450 [153]"str$u hast den (NULL)riginal chr$(NULL)(NULL)(NULL)asc chr$libber-(NULL)o- (NULL)ibber-(NULL)chleim gefunden !!!"
451 ob$[178]"(NULL)(NULL)"
452 [141]9998
453 [137]433
460 [153]"str$u hast den (NULL)riginal chr$(NULL)(NULL)(NULL)asc left$irn-(NULL)chmalz-(NULL)o-(NULL)alz-(NULL)aft gefunden !!!"
461 [141]9998
462 oc$[178]"(NULL)(NULL)"
463 [137]435
500 [153]"loadstop (NULL)ampyre valmpire - (NULL)ampf "
501 [153]" 1 = (NULL)chule"
502 [153]" 2 = str$isco"
503 [153]" 3 = ascriedhof"
504 [153]" 4 = peekahnhof"
505 [153]" 5 = (NULL)ark"
506 [153]" 6 = right$nnenstadt"
507 [153]" 7 = (NULL)portplatz"
508 [153]" 8 = valinkaufszentrum"
509 [153]" 9 = (NULL)ohngebiet 1"
510 [153]" x = (NULL)ohngebiet 2"
511 [141]9998
512 [139]a$[178]"1"[167]550
513 [139]a$[178]"2"[167]590
514 [139]a$[178]"3"[167]630
515 [139]a$[178]"4"[167]670
516 [139]a$[178]"5"[167]710
517 [139]a$[178]"6"[167]750
518 [139]a$[178]"7"[167]790
519 [139]a$[178]"8"[167]830
520 [139]a$[178]"9"[167]870
521 [139]a$[178]"x"[167]910
522 [137]511
550 ug[178]0:og[178]v(1):z1[178]ug[170][187](0)[172](og[171]ug)
551 z2[178][181](z1)
560 [141]9000
561 [153]"str$u schlenderst bei (NULL)acht durch die chr$aenge str$einer (NULL)chule, was ja voll"
562 [153]"kaputt ist, aber immerhin bist str$u ja jetzt nur hier, um (NULL)ampire zu"
563 [153]"pfaehlenpopaehlen. (NULL)nd wieviele kannst str$u hier orten ? chr$enau !"z2"..."
564 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
565 [141]9998
566 [139]a$[178]"j"[167]570
567 [139]a$[178]"n"[167]1200
568 [137]565
570 x[178]z2[172]vv
571 l[178]l[171]x
572 [139]l[177]0[167]580
573 [137]2500
580 t[178]t[171]1
581 e[178]e[170]z2:[139]e[177]100[167]e[178]100
582 v(1)[178]v(1)[171]z2
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
584 [139]t[178]0[167]2000
585 [137]1500
590 ug[178]0:og[178]v(2):z1[178]ug[170][187](0)[172](og[171]ug)
591 z2[178][181](z1)
600 [141]9000
601 [153]"(NULL)arty (NULL)eople ueberall, wo str$u hinsiehst. str$och str$u bist nicht zu str$einem (NULL)er-"
602 [153]"gnuegen hier. str$u bist auf (NULL)ampir- (NULL)faehlerei aus. right$n dieser schicken-
603 print"popicken [196]isco ortest [196]u satte"z2:print"[214]ampire ..."
604 print"[215]illst [196]u kaempfen ([202]/[206]) ?"
605 gosub9998
606 ifa$="j"then610
607 ifa$="n"then1200
608 goto605
610 x=z2*vv
611 l=l-x
612 ifl>0then620
613 goto2500
620 t=t-1
621 e=e+z2:ife>100thene=100
622 v(2)=v(2)-z2
623 s=(a+d+e)/20:s=int(s):ifs<1thens=1:ifs>10thens=10
624 ift=0then2000
625 goto1500
630 ug=0:og=v(3):z1=ug+rnd(0)*(og-ug)
631 z2=int(z1)
640 gosub9000
641 print"[196]u wanderst mitten in der [206]acht ueber den [198]riedhof. [214]erlaufen ? [204]ebens-"
642 print"muede ? [199]rabschaenden ?!? [206]ein, [196]u machst keinerlei dieser lustigen"
643 print"[196]inge hier, [196]u lauerst auf [214]ampire,"z2:print"an der [218]ahl ..."
644 print"[215]illst [196]u kaempfen ([202]/[206]) ?"
645 gosub9998
646 ifa$="j"then650
647 ifa$="n"then1200
648 goto645
650 x=z2*vv
651 l=l-x
652 ifl>0then660
653 goto2500
660 t=t-1
661 e=e+z2:ife>100thene=100
662 v(3)=v(3)-z2
663 s=(a+d+e)/20:s=int(s):ifs<1thens=1:ifs>10thens=10
664 ift=0then2000
665 goto1500
670 ug=0:og=v(4):z1=ug+rnd(0)*(og-ug)
671 z2=int(z1)
680 gosub9000
681 print"[196]er [194]ahnhof - haeufig faelschlicherweiseverstandenes [215]ort, [211]ammelpunkt von
682 [153]"notgeilen (NULL)ennern. (NULL)ie passt str$u in dieses peekild ? atnaaaah ja ... diese"
683 [153]"(NULL)ampirgeschichte ! (NULL)nd zu str$einer ascreude kannst str$u hier auch"z2"ausmachen !"
684 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
685 [141]9998
686 [139]a$[178]"j"[167]690
687 [139]a$[178]"n"[167]1200
688 [137]685
690 x[178]z2[172]vv
691 l[178]l[171]x
692 [139]l[177]0[167]700
693 [137]2500
700 t[178]t[171]1
701 e[178]e[170]z2:[139]e[177]100[167]e[178]100
702 v(4)[178]v(4)[171]z2
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
704 [139]t[178]0[167]2000
705 [137]1500
710 ug[178]0:og[178]v(5):z1[178]ug[170][187](0)[172](og[171]ug)
711 z2[178][181](z1)
720 [141]9000
721 [153]"valin (NULL)paziergang durch den (NULL)ark ... oder doch nicht ? str$u bist hier auf"
722 [153]"(NULL)atrouille. peeklut liegt in der (NULL)uft, die (NULL)ampire spitzen ihre (NULL)aehne."z2
723 [153]"davon kannst str$u hier auch finden !"
724 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
725 [141]9998
726 [139]a$[178]"j"[167]730
727 [139]a$[178]"n"[167]1200
728 [137]725
730 x[178]z2[172]vv
731 l[178]l[171]x
732 [139]l[177]0[167]740
733 [137]2500
740 t[178]t[171]1
741 e[178]e[170]z2:[139]e[177]100[167]e[178]100
742 v(5)[178]v(5)[171]z2
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
744 [139]t[178]0[167]2000
745 [137]1500
750 ug[178]0:og[178]v(6):z1[178]ug[170][187](0)[172](og[171]ug)
751 z2[178][181](z1)
760 [141]9000
761 [153]"str$ie right$nnenstadt - str$owntown ! (NULL)o die rote (NULL)eile auch anzufinden ist. str$och"
762 [153]"was kommt str$ir in den (NULL)inn ? mid$ap ... genau - (NULL)ampirepopire !!! (NULL)nd das"
763 [153]"gleich in"z2"facher atnusfertigung !!!"
764 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
765 [141]9998
766 [139]a$[178]"j"[167]770
767 [139]a$[178]"n"[167]1200
768 [137]765
770 x[178]z2[172]vv
771 l[178]l[171]x
772 [139]l[177]0[167]780
773 [137]2500
780 t[178]t[171]1
781 e[178]e[170]z2:[139]e[177]100[167]e[178]100
782 v(6)[178]v(6)[171]z2
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
784 [139]t[178]0[167]2000
785 [137]1500
790 ug[178]0:og[178]v(7):z1[178]ug[170][187](0)[172](og[171]ug)
791 z2[178][181](z1)
800 [141]9000
801 [153]"(NULL)as tust str$u nur auf dem (NULL)portplatz ? str$och wohl nicht etwa wirklich"
802 [153]"(NULL)port treiben ... was ja echt abartig waere ! (NULL)ein, str$u tust was voellig"
803 [153]"alltaegliches - (NULL)ampire fistenpopisten und so ..."z2"sind's !!!"
804 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
805 [141]9998
806 [139]a$[178]"j"[167]810
807 [139]a$[178]"n"[167]1200
808 [137]805
810 x[178]z2[172]vv
811 l[178]l[171]x
812 [139]l[177]0[167]820
813 [137]2500
820 t[178]t[171]1
821 e[178]e[170]z2:[139]e[177]100[167]e[178]100
822 v(7)[178]v(7)[171]z2
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
824 [139]t[178]0[167]2000
825 [137]1500
830 ug[178]0:og[178]v(8):z1[178]ug[170][187](0)[172](og[171]ug)
831 z2[178][181](z1)
840 [141]9000
841 [153]"str$as valinkaufszentrum - (NULL)hoppingpopopping ist angesagt !!! (NULL)eider nicht ..."
842 [153]"str$u spuerst den atntem str$eines (NULL)aechters im (NULL)uecken und suchst lieber nach"
843 [153]"(NULL)ampiren."z2" kaufen hier tatsaechlich":[153]"was ein ... was wohl ?!?"
844 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
845 [141]9998
846 [139]a$[178]"j"[167]850
847 [139]a$[178]"n"[167]1200
848 [137]845
850 x[178]z2[172]vv
851 l[178]l[171]x
852 [139]l[177]0[167]860
853 [137]2500
860 t[178]t[171]1
861 e[178]e[170]z2:[139]e[177]100[167]e[178]100
862 v(8)[178]v(8)[171]z2
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
864 [139]t[178]0[167]2000
865 [137]1500
870 ug[178]0:og[178]v(9):z1[178]ug[170][187](0)[172](og[171]ug)
871 z2[178][181](z1)
880 [141]9000
881 [153]"str$u durchstreifst nun eines von 2 grossen(NULL)ohngebieten dieser (NULL)tadt. (NULL)nd str$u"
882 [153]"spuerst ganz deutlich: str$u streifst hier nicht allein !!! str$a sind naemlich"
883 [153]"auch noch"z2"(NULL)ampire !!!"
884 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
885 [141]9998
886 [139]a$[178]"j"[167]890
887 [139]a$[178]"n"[167]1200
888 [137]885
890 x[178]z2[172]vv
891 l[178]l[171]x
892 [139]l[177]0[167]900
893 [137]2500
900 t[178]t[171]1
901 e[178]e[170]z2:[139]e[177]100[167]e[178]100
902 v(9)[178]v(9)[171]z2
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
904 [139]t[178]0[167]2000
905 [137]1500
910 ug[178]0:og[178]v(10):z1[178]ug[170][187](0)[172](og[171]ug)
911 z2[178][181](z1)
920 [141]9000
921 [153]"str$u durchstreifst nun eines von 2 grossen(NULL)ohngebieten dieser (NULL)tadt. (NULL)nd str$u"
922 [153]"spuerst ganz deutlich: str$u streifst hier nicht allein !!! str$a sind naemlich"
923 [153]"auch noch"z2"(NULL)ampire !!!"
924 [153]"(NULL)illst str$u kaempfen (mid$/(NULL)) ?"
925 [141]9998
926 [139]a$[178]"j"[167]930
927 [139]a$[178]"n"[167]1200
928 [137]925
930 x[178]z2[172]vv
931 l[178]l[171]x
932 [139]l[177]0[167]940
933 [137]2500
940 t[178]t[171]1
941 e[178]e[170]z2:[139]e[177]100[167]e[178]100
942 v(10)[178]v(10)[171]z2
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
944 [139]t[178]0[167]2000
945 [137]1500
1000 [143] tagesauswertung nach training
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
1002 l[178]l[170](s[172]10)[170](e[173]2):l[178][181](l):[139]l[177]100[167]l[178]100
1003 t[178]t[171]1
1004 [137]1500
1200 [143] tagesauswertung ohne training/kampf
1201 l[178]l[170](s[172]5)[170](e[173]2):l[178][181](l):[139]l[177]100[167]l[178]100
1202 t[178]t[171]1
1203 [137]1500
1500 [143] vampir-wachstum pro tag
1501 [129]z[178]1[164]10:[139]v(z)[178]0[167][130]z
1502 ug[178]0:og[178]1.4:z1[178]ug[170][187](0)[172](og[171]ug)
1503 v(z)[178]v(z)[170][181](z1)
1504 [139]v(z)[179]0[167]v(z)[178]0
1505 [130]z:v[178]0
1506 [129]z[178]1[164]10
1507 v[178]v[170]v(z)
1508 [130]z
1509 [139]v[179]0[167]v[178]0
1510 [143] kampfstufe/ vampire
1511 [139]s[178]1[167]vv[178]99
1512 [139]s[178]2[167]vv[178]49
1513 [139]s[178]3[167]vv[178]33
1514 [139]s[178]4[167]vv[178]24
1515 [139]s[178]5[167]vv[178]19
1516 [139]s[178]6[167]vv[178]16
1517 [139]s[178]7[167]vv[178]14
1518 [139]s[178]8[167]vv[178]12
1519 [139]s[178]9[167]vv[178]11
1520 [139]s[178]10[167]vv[178]9
1521 [139]t[178]0[167]2000
1522 [137]100
2000 [143] endkampf
2001 [139]oa$[178]"(NULL)(NULL)"[167]2003
2002 [137]2050
2003 [139]ob$[178]"(NULL)(NULL)"[167]2005
2004 [137]2050
2005 [139]oc$[178]"(NULL)(NULL)"[167]2010
2006 [137]2050
2010 od$[178]"(NULL)(NULL)"
2011 [141]9000
2012 [153]"chr$ute atnrbeit, str$u hast alle 3 (NULL)utaten finden koennen und str$ein (NULL)eister"
2013 [153]"konnte den (NULL)raftzauber anwenden. str$eine lenhancen das valnde dieses eher"
2014 [153]"sinnlosen chr$ames lebend zu erleben, sind soeben gestiegen !"
2015 [141]9998
2050 [141]9000
2051 [153]"vals ist nun der (NULL)ag des valndspiels ge- kommen, peekayern gegen ... aeh ..."
2052 [153]"falscher (NULL)anal ... schnell auf (NULL)ropopo7 switchen ... und nochmal:"
2053 [153]"vals ist nun der (NULL)ag des (NULL)axifahrers ge- kommen und ein (NULL)riginal chr$(NULL)(NULL)(NULL)asc"
2054 [153]"ascusschweisspritzer bedroht die (NULL)elt mit ... na, was wohl ? right$hm zur (NULL)eite"
2055 [153]"stehen noch laecherliche"v"(NULL)ampire"
2056 [153]"und str$u begibst str$ich in den (NULL)ing. chr$(NULL)(NULL)chr$ ..."
2057 [141]9998
2060 [139]od$[178]"(NULL)(NULL)"[167]l[178]l[172]10
2061 l[178]l[171]v[172]vv[171]500
2062 [139]l[179]0[167]2100
2070 [141]9000
2071 [153]"(NULL)h nein ! (NULL)o ein mid$ammer aber auch ! str$u hast alle (NULL)ampire und den (NULL)ber-"
2072 [153]"fiesling killen koennen. (NULL)al ehrlich ...nur wenige (NULL)angweilerpopeiler"
2073 [153]"koennen sich in dieses oberflaechliche (NULL)piel so reinsteigern, dass sie es
2074 print"gewinnen ... das war als [203]ompliment ge- meintpopeint ..."
2075 gosub9998
2076 goto4000
2100 gosub9000
2101 print"[217]ippie ! [196]ie ganze [215]elt ist dank [196]eines [213]nvermoegens nun in eine zarte"
2102 print"[196]ufthuelle von [198]usschweiss gehuellt ! [196]ie [211]uizidraten schnellen nur so"
2103 print"in die [200]oehe ! [199]ood work ..."
2104 gosub9998
2105 goto2500
2500 gosub9000
2501 print"[199][193][205][197] [207][214][193][200][160]!!!"
2502 gosub9998
2503 poke53280,0:poke53281,0
2504 print"[144][211]ucht nach den [195]heats dieses [199]ames !!!"
2505 print"[210][213][206] + [210][197][212][213][210][206], falls ihr's nochmal ver- suchen wollt ..."
2506 end
3000 gosub9000
3001 print"[193][195][200][212][213][206][199][160]!!!"z2"[214]ampire kreuzen [196]einen":print"[215]eg ! [203]aempfen ([202]/[206]) ?"
3002 gosub9998
3003 ifa$="j"then3010
3004 ifa$="n"then1200
3005 goto3002
3010 x=z2*vv
3011 l=l-x
3012 ifl>0then3020
3013 goto2500
3020 t=t-1
3021 e=e+z2:ife>100thene=100
3022 v(aa)=v(aa)-z2
3023 s=(a+d+e)/20:s=int(s):ifs<1thens=1:ifs>10thens=10
3024 ift=0then2000
3025 k$="[207][203]":return
3100 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
3101 z2=int(z1)
3102 ifz2=0then3110
3103 ifz2=1then3120
3104 ifz2=2then3120
3105 ifz2=3then3110
3110 ug=0:og=v(3):z1=ug+rnd(0)*(og-ug)
3111 z2=int(z1)
3112 aa=3:gosub3000
3120 gosub9000
3121 ifob(1)=3then3130
3122 ifob(2)=3then3140
3123 ifob(3)=3then3150
3125 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
3126 gosub9998
3127 ifk$="[207][203]"then1500
3128 goto1200
3130 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
3131 oa$="[207][203]"
3132 gosub9998
3133 goto3122
3140 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o- [208]ibber-[211]chleim gefunden !!!"
3141 ob$="[207][203]"
3142 gosub9998
3143 goto3123
3150 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
3151 gosub9998
3152 oc$="[207][203]"
3153 goto3125
3200 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
3201 z2=int(z1)
3202 ifz2=0then3210
3203 ifz2=1then3220
3204 ifz2=2then3220
3205 ifz2=3then3210
3210 ug=0:og=v(4):z1=ug+rnd(0)*(og-ug)
3211 z2=int(z1)
3212 aa=4:gosub3000
3220 gosub9000
3221 ifob(1)=4then3230
3222 ifob(2)=4then3240
3223 ifob(3)=4then3250
3225 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
3226 gosub9998
3227 ifk$="[207][203]"then1500
3228 goto1200
3230 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
3231 oa$="[207][203]"
3232 gosub9998
3233 goto3222
3240 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o- [208]ibber-[211]chleim gefunden !!!"
3241 ob$="[207][203]"
3242 gosub9998
3243 goto3223
3250 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
3251 gosub9998
3252 oc$="[207][203]"
3253 goto3225
3300 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
3301 z2=int(z1)
3302 ifz2=0then3310
3303 ifz2=1then3320
3304 ifz2=2then3320
3305 ifz2=3then3310
3310 ug=0:og=v(5):z1=ug+rnd(0)*(og-ug)
3311 z2=int(z1)
3312 aa=5:gosub3000
3320 gosub9000
3321 ifob(1)=5then3330
3322 ifob(2)=5then3340
3323 ifob(3)=5then3350
3325 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
3326 gosub9998
3327 ifk$="[207][203]"then1500
3328 goto1200
3330 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
3331 oa$="[207][203]"
3332 gosub9998
3333 goto3322
3340 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o- [208]ibber-[211]chleim gefunden !!!"
3341 ob$="[207][203]"
3342 gosub9998
3343 goto3323
3350 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
3351 gosub9998
3352 oc$="[207][203]"
3353 goto3325
3400 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
3401 z2=int(z1)
3402 ifz2=0then3410
3403 ifz2=1then3420
3404 ifz2=2then3420
3405 ifz2=3then3410
3410 ug=0:og=v(6):z1=ug+rnd(0)*(og-ug)
3411 z2=int(z1)
3412 aa=6:gosub3000
3420 gosub9000
3421 ifob(1)=6then3430
3422 ifob(2)=6then3440
3423 ifob(3)=6then3450
3425 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
3426 gosub9998
3427 ifk$="[207][203]"then1500
3428 goto1200
3430 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
3431 oa$="[207][203]"
3432 gosub9998
3433 goto3422
3440 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o- [208]ibber-[211]chleim gefunden !!!"
3441 ob$="[207][203]"
3442 gosub9998
3443 goto3423
3450 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
3451 gosub9998
3452 oc$="[207][203]"
3453 goto3425
3500 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
3501 z2=int(z1)
3502 ifz2=0then3510
3503 ifz2=1then3520
3504 ifz2=2then3520
3505 ifz2=3then3510
3510 ug=0:og=v(7):z1=ug+rnd(0)*(og-ug)
3511 z2=int(z1)
3512 aa=7:gosub3000
3520 gosub9000
3521 ifob(1)=7then3530
3522 ifob(2)=7then3540
3523 ifob(3)=7then3550
3525 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
3526 gosub9998
3527 ifk$="[207][203]"then1500
3528 goto1200
3530 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
3531 oa$="[207][203]"
3532 gosub9998
3533 goto3522
3540 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o- [208]ibber-[211]chleim gefunden !!!"
3541 ob$="[207][203]"
3542 gosub9998
3543 goto3523
3550 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
3551 gosub9998
3552 oc$="[207][203]"
3553 goto3525
3600 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
3601 z2=int(z1)
3602 ifz2=0then3610
3603 ifz2=1then3620
3604 ifz2=2then3620
3605 ifz2=3then3610
3610 ug=0:og=v(8):z1=ug+rnd(0)*(og-ug)
3611 z2=int(z1)
3612 aa=8:gosub3000
3620 gosub9000
3621 ifob(1)=8then3630
3622 ifob(2)=8then3640
3623 ifob(3)=8then3650
3625 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
3626 gosub9998
3627 ifk$="[207][203]"then1500
3628 goto1200
3630 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
3631 oa$="[207][203]"
3632 gosub9998
3633 goto3622
3640 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o- [208]ibber-[211]chleim gefunden !!!"
3641 ob$="[207][203]"
3642 gosub9998
3643 goto3623
3650 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
3651 gosub9998
3652 oc$="[207][203]"
3653 goto3625
3700 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
3701 z2=int(z1)
3702 ifz2=0then3710
3703 ifz2=1then3720
3704 ifz2=2then3720
3705 ifz2=3then3710
3710 ug=0:og=v(9):z1=ug+rnd(0)*(og-ug)
3711 z2=int(z1)
3712 aa=9:gosub3000
3720 gosub9000
3721 ifob(1)=9then3730
3722 ifob(2)=9then3740
3723 ifob(3)=9then3750
3725 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
3726 gosub9998
3727 ifk$="[207][203]"then1500
3728 goto1200
3730 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
3731 oa$="[207][203]"
3732 gosub9998
3733 goto3722
3740 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o- [208]ibber-[211]chleim gefunden !!!"
3741 ob$="[207][203]"
3742 gosub9998
3743 goto3723
3750 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
3751 gosub9998
3752 oc$="[207][203]"
3753 goto3725
3800 ug=0:og=3:z1=ug+rnd(0)*(og-ug)
3801 z2=int(z1)
3802 ifz2=0then3810
3803 ifz2=1then3820
3804 ifz2=2then3820
3805 ifz2=3then3810
3810 ug=0:og=v(10):z1=ug+rnd(0)*(og-ug)
3811 z2=int(z1)
3812 aa=10:gosub3000
3820 gosub9000
3821 ifob(1)=10then3830
3822 ifob(2)=10then3840
3823 ifob(3)=10then3850
3825 print"[196]u kannst hier keinen der 3 [199]egenstaendefindenpopinden !"
3826 gosub9998
3827 ifk$="[207][203]"then1500
3828 goto1200
3830 print"[196]u hast den [207]riginal [199][206][205][208][198] [203]iller-[196]ildo-[208]o-[208]ildo gefunden !!!"
3831 oa$="[207][203]"
3832 gosub9998
3833 goto3822
3840 print"[196]u hast den [207]riginal [199][206][205][208][198] [199]libber-[208]o- [208]ibber-[211]chleim gefunden !!!"
3841 ob$="[207][203]"
3842 gosub9998
3843 goto3823
3850 print"[196]u hast den [207]riginal [199][206][205][208][198] [200]irn-[211]chmalz-[208]o-[208]alz-[211]aft gefunden !!!"
3851 gosub9998
3852 oc$="[207][203]"
3853 goto3825
4000 open2,8,2,"hi,s,r"
4001 input#2,n1$
4002 input#2,h1
4003 input#2,n2$
4004 input#2,h2
4005 close2
4010 print"[147][214]ampire vor [197]ndkampf:"v:print"[204]ebenssaft nach [197]ndkampf:"l
4011 pokev+31,0:pokev+21,0
4012 ifv<h1thenpoke19,1:print"[206]euer [210]ekord !":input"[206]ame :";n1$:h1=v:poke19,0:print
4013 ifl>h2thenpoke19,1:print"[206]euer [210]ekord !":input"[206]ame :";n2$:h2=l:poke19,0:print
4014 printn$
4015 print"[210]ekordhalter:"
4016 printn1$
4017 print"[214]ampire:"
4018 printh1
4019 print"[210]ekordhalter:"
4020 close2
4021 print"[204]ebenssaft:"
4022 printh2
4023 gosub9998
4024 open2,8,2,"@:hi,s,w"
4025 print:print#2,n1$
4026 print:print#2,n2$
4027 print#2,h1
4028 print#2,h2
4030 print"[206]ochmal spielen ([202]/[206]) ?"
4031 gosub9998
4032 ifa$="j"then1
4033 ifa$="n"thensys64738
4034 goto4031
5000 print"[147][144] [214]ampyre [197]mpire - [193]nleitung "
5001 print"[214]ampyre [197]mpire ist mal wieder ein [193]nti- [211]piel wie es im [194]uche steht."
5002 print"[197]s geht darum, dass man in die [210]olle einer [214]ampirjaegerin schluepft"
5003 print"(weil das momentan hip ist) und [214]ampire bekaempfen muss. [205]an sollte aber"
5004 print"vor allem zu [194]eginn auch erst mal kraeftig trainieren und neben dem"
5005 print"lustigen [205]eucheln auch nach 3 [207]bjekten suchen, die nach 100 [212]agen von"
5006 print"[194]edeutung werden. [196]ann kann man dadurch naemlich [211]uperkraefte erlangen,"
5007 print"ohne die man am [212]ag der [193]brechnung gegen den dann erscheinenden [207]ber-
5008 [153]"(NULL)pielverderber kaum eine lenhance hat. right$hmzur (NULL)eite stehen werden alle"
5009 [153]"(NULL)ampire, die man bis zum 100. (NULL)ag nicht killen konnte."
5010 [141]9998
5011 [137]100
9000 [153]"loadstop (NULL)ampyre valmpire "
9002 [142]
9998 [161]a$:[139]a$[178]""[167]9998
9999 [142]