home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Disk 64 1997 1
/
Power_Disk_64_97-01_1997-05_Lagune_de_Side_B.d64
/
wwv-anleitung
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
6KB
|
111 lines
1 rem wwv anleitung
2 print"[147][215][215][214] ist eine [215]restling-[211]imulation fuer 1-1 [211]pieler ([211]chmuls,[194]undys oder"
3 print"was auch immer).[211]ie sind einer von 30 [215]restlern und erleben ein [202]ahr im"
4 print"[215]restling-[218]irkus.[211]ie haben 10000$ [211]tart-[203]apitel und wenn [211]ie mehr als 10000$"
5 print"[211]chulden haben,dann ist das [211]piel aus ([193]etsch!).[197]s gibt im [202]ahr 5 [199]rosser-"
6 print"eignisse.[213]nd zwischen den [199][197]s liegen (oder stehen?) 73 [212]age.[201]n dieser [218]eit
7 [153]"sollten (NULL)ie (NULL)raft & (NULL)echnik trainieren und (NULL)aempfe bestreiten.atnm atnnfang"
8 [153]"muessen (NULL)ie erstmal gegen atnndrew (NULL)he chr$oblin kaempfen,bis (NULL)ie durch (NULL)iege"
9 [153]"ueber ihn genug bekannt sind,um gegen andere (NULL)restler zu kaempfen.(NULL)enn (NULL)ie"
10 [153]"ueber (NULL)latz 13 herauskommen,dann koennen(NULL)ie auch gegen andere kaempfen.right$hre"
11 [153]"(NULL)anglistenposition wird auch durch (NULL)aempfe anderer (NULL)restler bestimmt."
12 [153]"str$aher koennen (NULL)ie sich oft wundern,warum(NULL)ie nun einen (NULL)latz haben,der (NULL)ie"
13 [153]"verwundert.atnber eigentlich liegt das nurdaran,dass der (NULL)latz mit dem"
14 [161]a$:[139]a$[178]""[167]14
15 [153]"(NULL)ufallsgenerator berechnet wird (wenn der (NULL)latz noch unwichtig ist !).atnlso
16 print"genaugenommen aendert sich ihr [208]latz nur,damit sich ihr [199]egner aendert."
17 print"[213]nd ganz genaugenommen ist das ueber- fluessig,dass ich das alles so lange
18 [153]"erklaere.vallenleft$(NULL) peek(NULL)(NULL)valstr$ !right$hre chr$egner be- kommen (NULL)ie also vom -(NULL)omm,(NULL)uter!-"
19 [153]"zugeschickt ((NULL)chreib mal wieder !).atnber beim chr$rossereignis koennen (NULL)ie sich"
20 [153]"right$hren chr$egner aussuchen ((NULL)er suchet,der findet !).valin (NULL)enupunkt ist noch"
21 [153]"val(NULL)valright$chr$(NULL)right$(NULL).str$a koennen (NULL)ie (NULL)unkte in peekattle(NULL)oyals bekommen,im lenasino gewinnen,"
22 [153]"bestohlen werden oder auch einen (NULL)itel- (NULL)ampf bekommen.str$as sind aber nur"
23 [153]"einige der valreignisse.(NULL)ie koennen den (NULL)pielstand auch abspeichern.str$er"
24 [153]"ascilename sollte aber nicht mehr als 15 (NULL)tellen einnehmen ! right$hren ascinishing"
25 [153]"(NULL)ove koennen (NULL)ie so lang benennen,wie (NULL)ie wollen (nehm' ich an...),aber"
26 [153]"(NULL)ie sollten sich trotzdem einen kurzen, coolen (NULL)amen ueberlegen,wegen der"
27 [161]a$:[139]a$[178]""[167]27
28 [153]"peekerichte nach den (NULL)aempfen.peekeispiele fuer kurze,coole (NULL)amen:"
29 [153]"sch,(NULL)unk (NULL)iller,peekrrrtzt,(NULL)cheisshaufen, (NULL)fff,left$uh,left$uh-left$uh,(NULL)h-left$uh,(NULL)er?,(NULL)scht,"
30 [153]"ascotz,(NULL)ahalui,peekanuz,chr$nurz,lenat (NULL)can, (NULL)uhauerha,peekoa-valh oder (NULL)frrtlfrrympft
31 print"[207]kay,der letzte [214]orschlag ist nicht kurz,aber 1.90m grosse [214]olleyball-"
32 print"spielerinnen sind es ja auch nicht ! [196]afuer aber ihre 1.60m kleinen"
33 print"[198]reunde ![201]hr [199]esamtkoennen wird im uebrigen nach den [199]rossereignissen"
34 print"immer gekuerzt ! [196]ie [211]pecial-[205]oves,aus denen [211]ie sich ihren nehmen koennen,
35 [153]"sind in chr$ruppen geteilt.mid$e mehr chr$esamt- koennen (NULL)ie haben,desto bessere"
36 [153]"chr$ruppen haben (NULL)ie zur atnuswahl.right$n den chr$ruppen sind die (NULL)oves nicht nach"
37 [153]"der (NULL)ichtigkeit geordnet,also muessen (NULL)ie nicht den obersten (NULL)ove nehmen."
38 [153]"(NULL)iele des (NULL)piels sind moeglichst viel (NULL)apital ((NULL)nete,(NULL)aeuse,peekares,(NULL)aster,"
39 [153]"lenash oder was auch immer...hatten wir das so aehnlich nicht schon ?),"
40 [161]a$:[139]a$[178]""[167]40
41 [153]"moeglichst viele (NULL)unkte und moeglichst viele (NULL)itel.str$araus ergibt sich eine"
42 [153]"chr$esamtpunktzahl.atnls left$igh-(NULL)cores ge- speichert werden (NULL)apital,(NULL)unkte und"
43 [153]"chr$esamtpunktzahl.str$ie atnnzahl der (NULL)itel wird nicht gespeichert.(NULL)lenleft$valright$(NULL)(NULL)valclose!"
44 [153]"mid$etzt,wo das (NULL)piel fertig ist,faellt mirdas ein !(NULL)erdammt ! right$ch haette die"
45 [153]"(NULL)itelzahl auch als left$igh-(NULL)core nehmen koennen.(NULL)e ascix ! str$as wollte ich doch
46 print"schon bei [215][215][214] ([210]emix) beruecksichtigen ![215]enigstens gibt es neue [215]restler,"
47 print"andere [205]oves (glaub' ich),andere [197]reig- nisse und noch anderes.[196]a mit dem"
48 print"[205]anager etwas echt [206]eues im [211]piel ist, koennen [211]pielstaende alter der alten
49 [153]"(NULL)ersionen nicht mehr verwendet werden. ascalls (NULL)ie beim (NULL)peichern nicht mehr"
50 [153]"wissen ob (NULL)ie (NULL) oder (NULL) gedrueckt haben, wissen (NULL)ie es,indem sie sehen,wo"
51 [153]"'ascilename steht.right$st es direkt unter der (NULL)chrift,haben (NULL)ie (NULL) gedrueckt,steht"
52 [153]"es weiter unten,war es (NULL).(NULL)ein ! str$as war kein (NULL)cherz eben ! str$as war ernst !"
53 [161]a$:[139]a$[178]""[167]53
54 [153]"(NULL)ehr ist zur atnnleitung nicht zu schrei- ben (glaub' ich...).(NULL)ollen (NULL)ie jetzt
55 print"noch die falsche [193]nleitung sehen ([202]/[206])?"
56 geta$:ifa$=""then56
57 ifa$="j"then62
58 print"[201]ch rate ihnen,[202] zu druecken!"
59 geta$:ifa$=""then59
60 ifa$="j"then62
61 goto59
62 print"[147][215][214][215] ist ein [211]piel bei dem es um nichts geht und das es nicht gibt.[197]s wird"
63 print"auf keinem [211]pielfeld mit dem [206]amen [200]uijuijui gespielt.[197]s geht dabei"
64 print"nicht darum,einen der 2 nicht in den [197]cken stehenden [208]flammis auf das"
65 print"[218]ucketutscht-[198]eld zu bringen.[211]chaffen [211]ie das,ohne einem der feindlichen"
66 print"[203]alummis zu begegnen,erhalten [211]ie 3 [194]itzel-[212]itzel.[213]m das zu schaffen,"
67 print"haben sie 5 [198]lutschis,die [211]ie sicher ueber die [215]atumi-[198]elder bringen"
68 print"koennen,wenn [201]hr [207]ber-[198]lutschi nicht vomgegnerischen [206]itschel-[211]chwipp ge-"
69 print"xoxt wird.[196]as geschieht,indem einer [201]hrer 2 [208]flammis auf einen halben"
70 print"[199]icksel-[208]lott trifft,aber nur ausserhalbder [209]uaddeludschitoeff-[218]one,in der"
71 print"sich [201]hre und des [199]egners [194]akuhiliis er-holen koennen.[213]nd wenn [211]ie es nun"
72 print"also geschafft haben,des [199]egners [205]oxel zu xoxen,dann koennen [211]ie sich"
73 print"[207]ber-[209]uittelzip nennen."
74 geta$:ifa$=""then74
75 input"[199]ut oder [211]chlecht";e$
76 input"[203]rumm oder [199]erade";e$
77 input"[200]eute oder [205]orgen";e$
78 input"[214]on oben oder unten";e$
79 input"[205]it oder [207]hne";e$
80 input"4 oder 5";e$
81 input"[204]eckend oder [211]abbernd";e$
82 input"[211]alz oder [218]ucker";e$
83 input"[195][196] oder [204][208]";e$
84 input"[214]olleyball oder [194]aseball";e$
85 input"[199][206]'[210] oder [210]ollins [194]and";e$
86 input"[205][212][214] oder [214][201][214][193]";e$
87 input"[211]andra oder [205]ichelle";e$
88 input"[200]alle oder [198]eld";e$
89 input"[212]hailand oder [200]awaii";e$
90 input"[202]a oder [206]ein";e$
91 input"[215]ollen [211]ie ein [194]itzel-[212]itzel";e$
92 input"[215]ollen [211]ie gewinnen";e$
93 ife$="[202]a"then100
94 goto92
100 print"[147][215]enn [211]ie echt gewinnen wollen,dann druecken [211]ie @."
101 geta$:ifa$=""then101
102 ifa$="@"then110
103 print"[211]ie haben @ verfehlt ! [196]ie [212]aste ist zwischen [208] und * ![198]alls [211]ie die"
104 print"[212]aste aber verfehlt haben,weil [211]ie nichtrichtig sehen,dann sollten [211]ie"
105 print"[196]r.[212]rinkmann aufsuchen."
106 geta$:ifa$=""then106
107 goto120
110 print"[211]ie haben gewonnen ! [211]ie duerfen sich jetzt [207]ber-[209]uittelzip nennen."
111 geta$:ifa$=""then111
120 poke828,0
121 printchr$(147)chr$(17)
122 print"l[207]"chr$(34);"wwv '*";chr$(34);",8
123 [153][199](17)[199](17)[199](17)[199](17)"run"
124 [151]631,13:[151]632,13:[151]198,2
125 [153][199](19);:[128]