Kampf um Rom
Imperium Romanum ist ein Strategiespiel für zwei Personen, das sich besonders durch seine sehr gute Bildschirmgestaltung auszeichnet. Es zeigt, daß auch auf dem VC 20 das letzte Wort über Grafik noch nicht gesprochen ist.
Das Spiel besteht aus einer Europakarte (siehe Bild), 20 römischen Legionen, 15 germanischen Horden und einem Fadenkreuz (zur Bewegung dieser Legionen).
Jede dieser Einheiten kann pro Runde (entspricht einem Jahr) zwei »Schritte« in eine beliebige Richtung marschieren, sofern diese Felder frei sind und nicht im Meer liegen.
Sinn des Spiels
Anfangs wird gelost, welcher Spieler die Germanen und wer die Römer übernimmt. Die Germanen müssen, um das Spiel siegreich zu beenden, mindestens vier der fünf Römerstädte erobern (das heißt sich auf deren Feld stellen). Die Aufgabe der Römer ist es, dies 25 Jahre lang zu verhindern.
Die Römer sollten sich jedoch keinesfalls von der geringen Anzahl der Germanenhorden zu unüberlegten Taten hinreißen lassen. Die Kampfkraft der Germanen ist zu Beginn des Spiels wesentlich höher als die der Römer. Deshalb sollten die Römer zuerst die Taktik des geordneten Rückzugs anwenden, aber auch darauf achten, daß dieser nicht in eine kopflose Flucht ausartet.
Im Jahre 405 nach Christus wird sich dann das Blatt wenden. In diesem Jahr erhalten alle noch vorhandenen Einheiten Nachschub, aber dieses Mal bekommen die Römer ein größeres Stück von dem Kuchen ab.
Das Spiel ist ebenfalls beendet, wenn einer der beiden Spieler keine Einheiten mehr zur Verfügung hat.
Kämpfe
Eine Kampfsituation entsteht, wenn zwei oder mehr feindliche Einheiten auf angrenzenden Feldern stehen. (Bei einem solchen Kampf wird jeder teilnehmenden Einheit ein wenig von ihrer Kampfstärke abgezogen. Sollte die Kampfstärke auf Null abgesunken sein, so löst sich die betreffende Einheit auf.) Da diese kämpfenden Einheiten dann jedes halbe Jahr erneut auf sich einprügeln, wenn sie nicht versetzt werden, sollte es Sie nicht wundern, wenn nach einigen Jahren mehrere dieser Legionen das Zeitliche segnen und von der Landkarte verschwinden.
Strategie
Wenn man sich auf solche Kämpfe einläßt, so sollte man eine feindliche Einheit mit mehreren eigenen Legionen umstellen, damit man sich sicher sein kann, dieses Gefecht als Sieger zu überstehen. Es ist zu empfehlen, die Legionen mit häufigem Feindkontakt auszuwechseln, damit die eigenen Einheiten nicht aufgerieben, sondern nur geschwächt werden (im Jahre 405 werden sie dann wieder gestärkt).
Die Römer sollten sich auf die Verteidigung von zwei bis drei Städten beschränken, um nicht von den germanischen Horden, die sich darum reißen, an Odins Tafel teilzuhaben, überrannt zu werden.
Steuerung
Der Spieler, der Rom vertritt, beginnt das Spiel. Mit dem Joystick kann er das Fadenkreuz bewegen. Das Fadenkreuz läßt sich weder aus dem Bildschirm heraus- noch durch das Meer steuern und hat somit die gleichen Eigenschaften wie die Legionen, die man bewegen möchte. Aus diesem Grund sollte man zuerst mit dem Fadenkreuz die Umgebung abtasten, um festzustellen, wohin sich die Legionen bewegen können und wo nicht.
Hat man sich nun für eine bestimmte Richtung entschieden, so setzt man das Fadenkreuz auf die fortzubewegende (eigene) Einheit und drückt die Feuertaste. Mit einem kurzen Piepston wandelt sich das Kreuz in die darunter befindliche Einheit um. Nun kann diese Legion mit Hilfe des Joysticks bis zu zwei Schritte weit in die gewünschte Richtung marschieren. (Wenn diese Richtung nicht bereits von einer anderen Einheit blockiert wird. Man kann weder eine eigene noch eine fremde Legion »überspringen«.)
Wenn Sie mit Ihrem Steuermanöver fertig sind, müssen Sie erneut die Feuertaste betätigen. Das Fadenkreuz wird dadurch wieder frei.
Auf diese Art und Weise können Sie alle Ihre Einheiten (sofern diese nicht blockiert sind) versetzen. Wenn Sie alle Einheiten, die Sie bewegen wollten, versetzt haben, müssen Sie eine Taste drücken. Dadurch beginnen die feindlichen Legionen ihr Gefecht, und man »hört« ein halbes Jahr vergehen: Nachdem die Melodie verklungen ist, wird der Joystick weitergereicht, und der zweite Spieler ist an der Reihe. Interessierte Leser finden in den Tabellen 1 und 2 eine Variablenbelegung und eine Dokumentation zum Programm.
(Ralf Trabhardt/tr)| O1,O2 | = | Bildschirmfarben |
| JA | = | Jahreszahl |
| F | = | Vordergrund |
| M,N | = | Absperrung des Bildrandes für bewegliche Einheiten |
| A(I) | = | Römer-Legionen (Türme) |
| B(I) | = | Germanen-Horden (Hütten) |
| K1(I) | = | Kampfkraft der Römer |
| K2(I) | = | Kampfkraft der Germanen |
| BW(I) | = | Anzahl der Bewegungen einer Einheit pro Jahr |
| K(I) | = | Position der Städte |
| FA | = | Fadenkreuz |
| P1 | = | Kartenuntergrund unter dem Fadenkreuz |
| P2,P3,P4,P5 | = | Umgebung des Fadenkreuzes |
| Z | = | Abwechseln der Spieler |
| U1,U2,U3,U4 | = | Bewegungsrichtungen des Fadenkreuzes |
| SC | = | Feuertaste |
| W2,W3,W4,W5 | = | Umgebung der Legionen |
| X | = | Position der eben bewegten Einheit |
| ZT | = | »Jahre« seit Spielbeginn |
| TR,TL | = | Verluste der Einheiten pro Kampf |
| Hauptprogramm | |
|---|---|
| 15 - 98 | Initialisierung der Variablen |
| 110 - 190 | Erstellen der Europakarte |
| 200 - 220 | Abdruck der Römer-, Germanen- und Städtesymbole auf dem Bildschirm |
| 300 - 310 | Eventuelle Abgabe an das Unterprogramm |
| 320 | Aufruf der Joystickabfrage |
| 325 - 375 | Darstellung und Bewegung des Fadenkreuzes |
| 380 - 450 | Tastaturabfrage |
| Unterprogramme | |
| 480 - 610 | Bewegung der Legionen |
| 615 - 620 | Kontakt einer Germanen-Horde mit einer Stadt? Sollten vier Städte zerstört sein, dann nach 2000 verzweigen. |
| 630 - 700 | Bei Druck auf Feuertaste erfolgt Rücksprung ins Hauptprogramm |
| 800 - 803 | Ablauf der Jahre |
| 805 | Nach 25 »Jahren« endet das Programm |
| 810 - 1010 | Gefecht. Abzüge von der Kampfkraft |
| 1015 - 1020 | Ausgabe der Jahreszahl |
| 2000 - 2150 | Sieg der Germanen |
| 2500 - 2640 | Sieg der Römer |
| 3000 - 3040 | Joystickabfrage |
| 5000 - 5030 | Änderung der Bildschirmfarben über Tasten |
5 print"{clr}{down}{down}{down}{down}{rght}bitte 7 sec. warten!"
6 fori=5120to6423:readk:pokei,k:s=s+k:next:ifs<>142823thenprint"fehler in datas!":stop
7 remfori=6400to6407:pokei,255:next
8 print"{down}laden sie nun das {down}hauptprogramm!":end
10 data 255, 255, 255, 255, 255, 255, 255, 255
11 data 0, 7, 31, 31, 63, 63, 127, 255
12 data 15, 63, 31, 255, 255, 255, 255, 255
13 data 48, 60, 126, 63, 191, 191, 191, 255
14 data 0, 176, 240, 240, 252, 252, 253, 255
15 data 8, 30, 7, 19, 15, 15, 15, 1
16 data 255, 255, 127, 63, 31, 31, 31, 15
17 data 7, 31, 15, 7, 7, 7, 7, 3
18 data 3, 1, 1, 1, 3, 3, 1, 5
19 data 5, 13, 14, 15, 31, 31, 31, 31
20 data 31, 63, 63, 127, 127, 255, 255, 255
21 data 0, 0, 0, 224, 251, 255, 255, 255
22 data 224, 240, 254, 255, 255, 255, 255, 255
23 data 0, 0, 0, 152, 252, 252, 254, 255
24 data 127, 15, 1, 0, 0, 0, 0, 0
25 data 255, 255, 255, 255, 255, 254, 254, 248
26 data 254, 240, 224, 192, 192, 192, 0, 0
27 data 254, 254, 254, 252, 252, 254, 254, 255
28 data 254, 248, 224, 192, 192, 128, 128, 0
29 data 255, 255, 255, 255, 255, 255, 255, 254
30 data 255, 255, 255, 255, 254, 252, 120, 0
31 data 255, 252, 248, 248, 240, 240, 224, 240
32 data 248, 248, 240, 224, 0, 0, 0, 0
33 data 191, 63, 31, 7, 0, 0, 0, 0
34 data 255, 255, 254, 252, 248, 112, 0, 0
35 data 255, 255, 255, 255, 255, 255, 253, 252
36 data 255, 255, 255, 255, 255, 255, 255, 127
37 data 31, 7, 1, 1, 1, 3, 3, 1
38 data 255, 255, 255, 255, 255, 127, 63, 31
39 data 31, 15, 7, 7, 3, 1, 1, 0
40 data 240, 248, 248, 252, 252, 252, 254, 254
41 data 128, 128, 128, 192, 192, 224, 224, 240
42 data 0, 0, 0, 0, 0, 0, 0, 0
43 data 255, 255, 127, 39, 7, 7, 3, 3
44 data 255, 255, 171, 131, 131, 147, 147, 255
45 data 128, 0, 0, 128, 224, 240, 248, 255
46 data 255, 255, 255, 249, 248, 240, 240, 240
47 data 128, 192, 224, 224, 112, 48, 48, 32
48 data 224, 248, 248, 252, 252, 252, 124, 96
49 data 224, 224, 224, 192, 128, 0, 0, 0
50 data 1, 1, 1, 1, 91, 243, 240, 224
51 data 224, 224, 224, 224, 224, 224, 192, 0
52 data 127, 63, 31, 3, 1, 1, 0, 0
53 data 0, 0, 0, 160, 224, 252, 255, 255
54 data 0, 0, 1, 1, 1, 3, 3, 1
55 data 192, 128, 128, 192, 240, 248, 248, 248
56 data 128, 128, 196, 220, 252, 248, 248, 240
57 data 191, 255, 255, 255, 255, 255, 255, 255
58 data 0, 0, 0, 0, 0, 0, 12, 159
59 data 0, 0, 0, 0, 0, 0, 12, 252
60 data 0, 0, 0, 0, 0, 0, 32, 61
62 data 0, 0, 0, 0, 248, 252, 254, 254
63 data 0, 0, 0, 0, 62, 255, 255, 255
64 data 0, 0, 0, 240, 255, 255, 255, 255
65 data 0, 0, 0, 0, 0, 71, 239, 255
66 data 0, 0, 0, 0, 0, 7, 31, 63
67 data 0, 0, 0, 0, 208, 240, 252, 255
68 data 192, 128, 131, 131, 129, 129, 128, 128
69 data 255, 255, 255, 255, 255, 255, 255, 243
70 data 255, 255, 255, 191, 159, 143, 175, 167
71 data 7, 23, 11, 3, 23, 3, 3, 1
72 data 255, 127, 47, 7, 3, 9, 40, 3
73 data 1, 0, 0, 0, 0, 0, 0, 0
74 data 255, 63, 31, 15, 7, 3, 1, 0
75 data 127, 63, 63, 127, 255, 255, 127, 255
76 data 255, 127, 127, 255, 127, 63, 31, 15
77 data 7, 7, 7, 3, 3, 1, 1, 0
78 data 127, 255, 255, 127, 0, 10, 63, 127
79 data 0, 2, 0, 0, 4, 2, 0, 0
80 data 63, 63, 31, 31, 31, 31, 29, 9
81 data 1, 1, 0, 0, 0, 0, 0, 0
82 data 176, 144, 0, 32, 0, 0, 0, 0
83 data 241, 240, 248, 208, 192, 192, 224, 224
84 data204,198,227,253,126,62,191,255
85 data0,0,128,128,192,64,32,0
86 data128,192,192,224,224,224,192,192
87 data254,254,255,191,63,188,156,150
88 data 0, 0, 0, 128, 128, 0, 0, 0
89 data 255, 255, 255, 255, 255, 255, 249, 240
90 data 0, 0, 0, 128, 224, 240, 248, 255
91 data 28, 26, 51, 39, 15, 31, 31, 63
92 data3,127,255,255,255,255,255,255
93 data0,198,255,255,127,255,255,255
94 data224,252,252,249,224,128,1,3
95 data128,128,192,224,224,192,192,224
96 data240,128,0,0,0,128,128,128
97 data240,240,240,240,240,240,240,240
98 data255,255,254,254,244,240,240,240
99 data224,192,128,128,0,0,0,0
100 data255,255,255,254,252,240,224,224
101 data63,103,15,103,39,7,7,15
102 data3,3,223,207,79,65,0,0
103 data255,127,63,255,7,7,31,28
104 data255,255,255,255,255,255,191,63
105 data0,28,28,28,16,0,0,0
106 data0,0,0,0,0,0,64,0
107 data0,0,0,0,0,0,0,0
108 data0,4,0,0,0,2,2,0
109 data0,0,1,3,7,1,129,192
110 data0,0,135,199,192,128,128,0
111 data0,0,0,1,3,3,3,3
112 data3,3,3,3,3,1,0,1
113 data192,128,128,128,128,0,0,0
114 data0,128,128,128,128,128,128,0
115 data49,55,63,63,31,63,63,63
116 data31,31,31,63,63,63,59,49
117 data0,128,128,128,128,0,0,0
118 data0,0,0,0,0,0,32,48
119 data240,224,192,0,0,0,0,0
120 data248,0,0,0,0,0,0,0
121 data239,199,239,199,187,187,199,255
122 data63,63,63,31,15,15,1,0
123 data62,6,0,0,0,0,0,0
124 data1,65,65,192,192,192,192,192
125 data231,231,231,0,0,231,231,231
126 data255,255,231,195,129,153,255,255
127 data255,255,251,227,195,147,147,255
128 data11,205,255,255,255,255,255,255
129 data0,1,3,3,1,1,7,7
130 data8,32,79,7,71,67,195,231
131 data24,63,255,255,255,255,255,255
132 data127,255,255,255,255,255,255,255
133 data124,124,62,62,127,127,255,63
134 data124,252,252,60,56,61,61,60
135 data15,31,63,63,127,127,127,124
136 data192,192,128,192,192,128,0,0
137 data4,30,30,156,220,220,134,0
138 data0,48,32,0,0,152,188,255
139 data180,240,249,249,249,251,255,255
140 data3,7,191,255,255,255,255,255
141 data0,0,0,0,0,0,0,1
142 data0,0,0,0,24,56,248,254
143 data7,7,39,39,63,63,63,127
144 data3,3,3,3,1,1,3,3
145 data0,0,0,1,1,1,3,3
146 data63,60,60,60,120,60,12,0
147 data255,255,127,127,255,255,255,127
148 data254,252,252,252,252,253,248,224
149 data0,0,0,0,128,128,0,0
150 data224,0,0,0,0,0,0,0
151 data255,255,239,207,159,147,255,255
160 data 48, 48, 24, 24, 12, 12, 6, 6
161 data 0, 137, 205, 116, 84, 68, 36, 34
162 data 0, 243, 10, 138, 146, 227, 129, 65
163 data 0, 231, 4, 4, 4, 199, 5, 5
164 data 0, 130, 66, 68, 68, 132, 8, 8
165 data 0, 17, 33, 33, 34, 66, 68, 69
166 data 0, 66, 102, 108, 180, 168, 136, 16
167 data 6, 3, 0, 0, 0, 0, 1, 2
168 data 34, 18, 0, 0, 0, 0, 240, 35
169 data 65, 65, 0, 0, 0, 0, 0, 137
170 data 4, 196, 0, 0, 0, 0, 0, 24
171 data 136, 136, 0, 0, 0, 0, 0, 144
172 data 73, 49, 0, 0, 0, 0, 0, 12
173 data 16, 16, 0, 0, 0, 0, 0, 128
174 data 4, 7, 10, 18, 34, 33, 65, 65
175 data 68, 136, 16, 17, 33, 35, 38, 28
176 data 203, 213, 149, 161, 33, 33, 65, 65
177 data 36, 36, 60, 36, 66, 66, 66, 66
178 data 202, 201, 169, 164, 148, 138, 134, 131
179 data0,0,0,0,0,0,0,0
180 data 42, 21, 20, 138, 74, 69, 36, 24
181 data 192, 224, 160, 16, 16, 8, 132, 130
1 rem********vc-20+8k*******
2 rem* imperium romanum *
3 rem* geschrieben von *
4 rem* ralf trabhardt *
5 rem* philippsbergstr.45 *
6 rem* 6200 wiesbaden *
7 rem* tel. 06121/523970 *
8 rem***********************
9 print"{clr}{blk}"
10 poke650,128:o1=24:gosub5000:poke650,0
15 f=33792:u=37151
20 ja=395
25 poke36878,15
30 j=4108:m=4558:n=4579
35 dima(26),b(26),k1(26),k2(26),bw(26)
40 forl=1to20:reada(l):nextl
45 fori=1to15:readb(i):nexti
50 fori=1to5:readk(i):nexti
98 fori=1to20:k1(i)=70:k2(i)=100:nexti
100 rem*erstellen der karte*
110 poke36869,205:print"{clr}{blk}{home} {CBM-C}{CBM-X}{rvon}hijf{rvof}@@@@@@{rvon}mnopqrs{rvof} {CBM-F}{CBM-V}{rvon}gk{rvof} {rvon}e{rvof}@@@@@@";
120 print"{rvon}tuvwxyz{rvof} {SHIFT-@}{CBM-B} {rvon}bcd{rvof}@@@@@@";
125 print"{rvon}[\]^_!{rvof} {CBM-Y}{CBM-U}{CBM-O}@{rvon}@a{rvof}@@@@@@@@ {CBM-L}@@@@@@@@@@@@@@";
130 print" {CBM-Q} a{CBM-J}@@@@@@@@@@@@@@";
131 print" edcb@@@@@@@@@@@@@@@@";
132 print" f@@@@@@@@@@@@@@@@@@ g@@@@@@@@@@@@@@@@@@ h@@@@@@@@@@@@@@@@@@";
135 print"m i@@@@@@@@@@@@@@@@@Y@lkj@@@@@@@:@@@@@@@@@X";
140 print"@@@@@@@@yz@9;@@@@@@@W @@@@@uwx{CBM-Z}[@_<@@@@@@@V ";
150 print"@@@stv {CBM-@}{CBM-E}\^>=@@@@@@U @@@r {CBM-G}{CBM-+}]@O ?@@@@@T ";
160 print"@@q {CBM-I}{CBM-T} {CBM-POUND}{CBM-M} !@# {SHIFT-*}@@N@SR@op {SHIFT-POUND}{CBM-N} {CBM-P}$%A@LMPQ@";
170 print"n{CBM-D} {CBM-*}& B@K Z@@876543120 ,+(' DCIJ{SHIFT-+}@@";
180 print"@@@@@@@@/.{CBM-*}*) EH{CBM-K}{CBM-*}{CBM--}@@@@@@@@@@- FG ~{CBM-A}";
181 fori=4580to4601:pokei,0:pokei+f,o2:nexti
182 poke4168,162
200 fori=1to20:ifk1(i)>0thenpokea(i),34
201 ifk2(i)>0andb(i)>0thenpokeb(i),115
205 nexti
210 fori=1to5:ifk(i)>6thenpokek(i),110:nexti
220 fa=4326:p1=peek(fa)
300 rem
310 ifg1=1org1=2then500
320 gosub3000
322 rem*bewegung des fadenkreuzes*
325 p2=peek(fa-22):ifp2<>32thensr=1
327 iffa<4118thensr=0
330 ifu2=1andsr=1thenpokefa,p1:fa=fa-22:p1=p2:goto400
335 p3=peek(fa+22):ifp3<>32thensr=2
336 iffa>4557thensr=0
340 ifu4=1andsr=2thenpokefa,p1:fa=fa+22:p1=p3:goto400
345 p4=peek(fa-1):ifp4<>32thensr=3
346 iffa=morfa=m-22orfa=m-44orfa=m-66orfa=m-88orfa=m-198orfa=m-220orfa=m-242thensr=0
350 ifu1=1andsr=3thenpokefa,p1:fa=fa-1:p1=p4:goto400
355 p5=peek(fa+1):ifp5<>32thensr=4
356 iffa=norfa=n-22orfa=n-44orfa=n-66orfa=n-88orfa=n-110orfa=n-220orfa=n-242thensr=0
357 iffa=n-264orfa=n-418orfa=n-440orfa=n-462thensr=0
360 ifu3=1andsr=4thenpokefa,p1:fa=fa+1:p1=p5:goto400
365 fori=1to20:ifa(i)=faandz=0thenf1=1:goto370
366 ifz=1andb(i)=fathenf1=2:goto370
367 nexti
370 ifsc=1andf1=1theng1=1:f1=0:poke36876,250:poke36876,0:goto400
375 ifsc=1andf1=2theng1=2:f1=0:poke36876,250:poke36876,0:goto400
380 geta$
385 ifa$<>""thenpoke198,0:goto800
400 pokefa,114:sr=0:f1=0
450 goto300
480 rem*bewegung der legionen*
500 ifz=0thenx=a(i)
501 ifz=1thenx=b(i)
502 gosub3000
505 w2=peek(x-22):ifw2<>32andw2<>34andw2<>115thensw=1
507 ifx<4118thensw=0
510 ifu2=1andbw(i)<2andsw=1thenpokex,w1:x=x-22:bw(i)=bw(i)+1:w1=w2:goto600
515 w3=peek(x+22):ifw3<>32andw3<>34andw3<>115thensw=2
517 ifx>4557thensw=0
520 ifu4=1andbw(i)<2andsw=2thenpokex,w1:x=x+22:bw(i)=bw(i)+1:w1=w3:goto600
521 w4=peek(x-1):ifw4<>32andw4<>34andw4<>115thensw=3
525 ifx=morx=m-22orx=m-44orx=m-66orx=m-88orx=m-198orx=m-220orx=m-242thensw=0
530 ifu1=1andbw(i)<2andsw=3thenpokex,w1:x=x-1:bw(i)=bw(i)+1:w1=w4:goto600
532 w5=peek(x+1):ifw5<>32andw5<>34andw5<>115thensw=4
535 ifx=norx=n-22orx=n-44orx=n-66orx=n-88orx=n-110orx=n-220orx=n-242orx=n-264thensw=0
540 ifu3=1andbw(i)<2andsw=4thenpokex,w1:x=x+1:bw(i)=bw(i)+1:w1=w5:goto600
600 ifz=0thenpokex,34:a(i)=x
610 ifz=1thenpokex,115:b(i)=x
615 fory=1to5:ifb(i)=k(y)thenk(y)=5:poke36875,150:be=be+1:ifbe>=4thenbe=0:goto2000
616 poke36875,0:nexty
620 sw=0:p1=0
630 ifsc=1theng1=0:w1=0:poke36876,200:poke36876,0:goto300
700 goto502
800 z=z+1:ifz>1thenz=0:zt=zt+1
801 ifzt<>9then805
802 forbo=1to25:ifa(bo)>0thenk1(bo)=k1(bo)+100
803 ifb(bo)>0thenk2(bo)=k2(bo)+70
804 nextbo
805 ifzt>=25then2500
810 fort=1to20
815 poke36874,130+t*2
819 fort2=1to15
820 ifa(t)+22=b(t2)ora(t)-22=b(t2)ora(t)-1=b(t2)ora(t)+1=b(t2)then840
830 goto860
840 tr=int(rnd(1)*20)+1:k1(t)=k1(t)-tr:ifk1(t)<=0thenpokea(t),116:a(t)=0
850 tl=int(rnd(1)*20)+1:k2(t2)=k2(t2)-tl
855 ifk2(t2)<=0thenpokeb(t2),140:b(t2)=0
860 nextt2
870 nextt
880 poke36874,0
1000 fort=1to25:bw(t)=0:nextt
1010 g1=0:w1=0
1015 poke36869,192:print"{clr}{home}{down}{down}{down}{down}{down}{down}wir befinden uns im"
1016 print"{down}jahre "ja+zt" n. chr."
1017 gosub5000
1020 goto110
2000 rem*sieg der germanen*
2010 poke36875,0:poke36869,192:poke36879,25:print"{clr}"
2100 print"{home}{red}{down}das roemische imperium{down}liegt am boden !"
2110 print"{down}{down}die germanen haben {down}haben sie wegen ihrer {down}fuehrungsfaehigkeiten"
2120 print"{down}zum koenig auf lebens-{down}zeit ernannt."
2130 print"{down}(das ist eine grosse {down}ehre,wenn man bedenkt,{down}dass bald die hunnen"
2140 print"{down}kommen)!!"
2150 goto2640
2490 rem*sieg der roemer*
2500 poke36869,192:poke36879,25:print"{clr}{home}{blu}":
2600 print"{down}das roemische imperium{down}konnte diesen klaeg- {down}lichen versuch einer"
2610 print"{down}horde barbaren laessig{down}abwehren."
2620 print"{down}den germanen folgenden{down}tip:"
2630 print"{down}versucht es in hundert{down}jahren nocheinmal!"
2640 print"{down}{down}neues spiel j/n ?"
2650 geta$:ifa$="j"thenzt=0:run
2660 ifa$="n"thenprint"{clr}{home}{down}{red}ihr seid deserteure!!!":end
2670 goto2650
3000 rem*joystickabfrage*
3010 pokeu+3,127:u3=-((peek(u+1)and128)=0):pokeu+3,255
3020 u1=-((peek(u)and16)=0):u4=-((peek(u)and8)=0):u2=-((peek(u)and4)=0)
3030 sc=-((peek(37137)and32)=0)
3040 return
4990 rem*bildschirmfarben*
5000 print"{down}{down}{down}waehlen sie die {down}bildschirmfarben:"
5001 print"{down}{rvon}f1{rvof} = bildschirmfarbe {down}{rvon}f3{rvof} = rahmenfarbe "
5002 print"{down}{rvon}s{rvof} = start"
5005 poke36879,o1+o2:geta$:ifa$="{f1}"theno1=o1+16:ifo1>248theno1=24
5010 ifa$="{f3}"theno2=o2+1:ifo2>7theno2=0
5020 ifa$="s"thenreturn
5030 goto5005
6000 data4192,4237,4282,4305,4306,4308,4310,4312
6010 data4255,4301,4321,4420,4460,4428,4540,4361,4557
6020 data4368,4375,4355
6030 data4173,4194,4195,4196,4217,4218,4239,4240,4241
6040 data4242,4262,4263,4264,4265,4266
6050 data4427,4544,4491,4437,4256
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen