CLEAR , , 5000 DIM kind1m(5), kind2m(5), kind3m(5), heirat(5), tod(5), a9(30), a8(30), b1(30), korn(30), rang(30), b2(30), b3(30), b4(30), b5(30), zoll(30), mwst(30), ekst(30), staat(30), ents(5), entk(5), entg(5) DIM kind1w(5), kind2w(5), kind3w(5), sold(30), mil(30), art(30), inf(30), kav(30), kfaa(30), schnigge(30), galleone(30), kogge(30), zukunft(5), bann(5), gueter(10) DIM kinder(5), stnd(30), Quartal(30), jahr(30), wetter(30), segen(30), schiffe(30), salz(30), holz(30), tuch(30), silber(30), gold(30), moebel(30) DIM bier(30), helfer(30), honig(30), pech(30), eisen(30), fleisch(30), fisch(30), felle(30), eisenwaren(30), segnen(5), baus(5), bauk(5), baug(5) DIM hanf(30), leder(30), tran(30), wein(30), wolle(30), kleidung(30), schmuck(30), met(30), kfai(30), kfak(30), qg(5), qk(5), qs(5), krieg(5) DIM kfam(30), wetter$(30), t$(7), faul(30), feld(30), soldaten(30), g(30), t(30), mw(30), mw$(10), name$(30), land$(15), essig(30), parfuem(30) DIM kindm1$(30), alterm1(5), kindm2$(30), alterm2(5), kindm3$(30), alterm3(5), alter(5), pest(30), spy(30), spykosten(30), kfas(30) DIM kindw1$(30), alterw1(5), kindw2$(30), alterw2(5), kindw3$(30), alterw3(5), kindneu(5), fuhrwagen(30), angriff(30) SCREEN 12 GOSUB fortladen GOSUB spielstandladen ': GOTO 1000 '1000 RANDOMIZE TIMER: GOSUB statuszeile: COLOR 7 LOCATE 3, 1: PRINT "Folgende Herrscher und Einheiten stehen sich gegenber:" COLOR 2 LOCATE 5, 1: PRINT mw$(eigen); name$(eigen); land$(eigen): LOCATE 7, 26: PRINT "Anzahl" LOCATE 8, 1: PRINT "eigene Infanteristen" LOCATE 9, 1: PRINT "eigene Kavalleristen" LOCATE 10, 1: PRINT "eigene Artilleristen" LOCATE 11, 1: PRINT "eigene Milizen......" COLOR 4 LOCATE 5, 40: PRINT mw$(gegner); name$(gegner); land$(gegner): LOCATE 7, 71: PRINT "Anzahl" LOCATE 8, 40: PRINT "gegnerische Infanteristen" LOCATE 9, 40: PRINT "gegnerische Kavalleristen" LOCATE 10, 40: PRINT "gegnerische Artilleristen" LOCATE 11, 40: PRINT "gegnerische Milizen......" GOSUB printsoldaten: GOSUB addsoldaten GOSUB taste: LOCATE 30, 1: COLOR 15: PRINT " "; FOR beginn = 2 TO 0 STEP -1: LOCATE 13, 1: COLOR beginn: PRINT "Der Krieg beginnt"; beginn: SLEEP 1: NEXT beginn DO WHILE asoldaten > 0 AND vsoldaten > 0 DO '1010 'IF eigeneeinheit = 1 AND inf(eigen) > 0 THEN angriff = inf(eigen): astark = kfai(eigen): aeinheit$ = "Infanterie": GOTO 1011 'IF eigeneeinheit = 2 AND kav(eigen) > 0 THEN angriff = kav(eigen): astark = kfak(eigen): aeinheit$ = "Kavallerie": GOTO 1011 'IF eigeneeinheit = 3 AND art(eigen) > 0 THEN angriff = art(eigen): astark = kfaa(eigen): aeinheit$ = "Artillerie": GOTO 1011 'IF eigeneeinheit = 4 AND mil(eigen) > 0 THEN angriff = mil(eigen): astark = kfam(eigen): aeinheit$ = "Miliz": GOTO 1011 'IF asoldaten = 0 THEN GOTO schlachtende 'GOTO 1010 'IF asoldaten = 0 Or vsoldaten = 0 Then GOTO schlachtende zeit = (RND * 500000) + 100000 aglueck = INT(RND * 10) DO eigeneeinheit = INT(RND * 4) + 1 SELECT CASE eigeneeinheit CASE 1 angriff = inf(eigen): astark = kfai(eigen): aeinheit$ = "Infanterie" CASE 2 angriff = kav(eigen): astark = kfak(eigen): aeinheit$ = "Kavallerie" CASE 3 angriff = art(eigen): astark = kfaa(eigen): aeinheit$ = "Artillerie" CASE 4 angriff = mil(eigen): astark = kfam(eigen): aeinheit$ = "Miliz" END SELECT LOOP WHILE angriff = 0 '1011 'IF gegnerischeeinheit = 1 AND inf(gegner) > 0 THEN verteidigung = inf(gegner): vstark = kfai(gegner): veinheit$ = "Infanterie": GOTO 1015 'IF gegnerischeeinheit = 2 AND kav(gegner) > 0 THEN verteidigung = kav(gegner): vstark = kfak(gegner): veinheit$ = "Kavallerie": GOTO 1015 'IF gegnerischeeinheit = 3 AND art(gegner) > 0 THEN verteidigung = art(gegner): vstark = kfaa(gegner): veinheit$ = "Artillerie": GOTO 1015 'IF gegnerischeeinheit = 4 AND mil(gegner) > 0 THEN verteidigung = mil(gegner): vstark = kfam(gegner): veinheit$ = "Miliz": GOTO 1015 'IF vsoldaten = 0 THEN GOTO schlachtende 'GOTO 1010 vglueck = INT(RND * 10) DO gegnerischeeinheit = INT(RND * 4) + 1 SELECT CASE gegnerischeeinheit CASE 1 verteidigung = inf(gegner): vstark = kfai(gegner): veinheit$ = "Infanterie" CASE 2 verteidigung = kav(gegner): vstark = kfak(gegner): veinheit$ = "Kavallerie" CASE 3 verteidigung = art(gegner): vstark = kfaa(gegner): veinheit$ = "Artillerie" CASE 4 verteidigung = mil(gegner): vstark = kfam(gegner): veinheit$ = "Miliz" END SELECT LOOP WHILE verteidigung = 0 COLOR 7 'IF eigeneeinheit = 1 AND gegnerischeeinheit = 1 THEN abonus = 1: vbonus = 1 'IF eigeneeinheit = 1 AND gegnerischeeinheit = 2 THEN abonus = 1: vbonus = 2 'IF eigeneeinheit = 1 AND gegnerischeeinheit = 3 THEN abonus = 2: vbonus = 1 'IF eigeneeinheit = 1 AND gegnerischeeinheit = 4 THEN abonus = 2: vbonus = 1 'IF eigeneeinheit = 2 AND gegnerischeeinheit = 1 THEN abonus = 2: vbonus = 1 'IF eigeneeinheit = 2 AND gegnerischeeinheit = 2 THEN abonus = 1: vbonus = 1 'IF eigeneeinheit = 2 AND gegnerischeeinheit = 3 THEN abonus = 3: vbonus = 1 'IF eigeneeinheit = 2 AND gegnerischeeinheit = 4 THEN abonus = 2: vbonus = 1 'IF eigeneeinheit = 3 AND gegnerischeeinheit = 1 THEN abonus = 3: vbonus = 1.7 'IF eigeneeinheit = 3 AND gegnerischeeinheit = 2 THEN abonus = 3: vbonus = 1 'IF eigeneeinheit = 3 AND gegnerischeeinheit = 3 THEN abonus = 1: vbonus = 1 'IF eigeneeinheit = 3 AND gegnerischeeinheit = 4 THEN abonus = 3: vbonus = 1.3 'IF eigeneeinheit = 4 AND gegnerischeeinheit = 1 THEN abonus = 1: vbonus = 2 'IF eigeneeinheit = 4 AND gegnerischeeinheit = 2 THEN abonus = 1: vbonus = 2 'IF eigeneeinheit = 4 AND gegnerischeeinheit = 3 THEN abonus = 2: vbonus = 1 'IF eigeneeinheit = 4 AND gegnerischeeinheit = 4 THEN abonus = 1: vbonus = 1 RESTORE boni FOR x = 1 TO (eigeneeinheit - 1) * 4 + gegnerischeeinheit READ abonus, vbonus NEXT boni: DATA 1,1, 1,2, 2,1, 2,1 DATA 2,1, 1,1, 3,1, 2,1 DATA 3,1.7, 3,1, 1,1, 3,1.3 DATA 1,2, 1,2, 2,1, 1,1 LOCATE 15, 1: PRINT " " LOCATE 15, 1: PRINT "Ihre "; aeinheit$; " bek„mpft die gegnerische "; veinheit$ vergleich = (verteidigung * vstark * vglueck * vbonus) SELECT CASE (angriff * astark * aglueck * abonus) CASE IS > vergleich COLOR 2 SELECT CASE gegnerischeeinheit CASE 1 IF inf(gegner) > 0 THEN inf(gegner) = inf(gegner) - 1: kfai(gegner) = kfai(gegner) - (RND * 1) CASE 2 IF kav(gegner) > 0 THEN kav(gegner) = kav(gegner) - 1: kfak(gegner) = kfak(gegner) - (RND * 1) CASE 3 IF art(gegner) > 0 THEN art(gegner) = art(gegner) - 1: kfaa(gegner) = kfaa(gegner) - (RND * 1) CASE 4 IF mil(gegner) > 0 THEN mil(gegner) = mil(gegner) - 1: kfam(gegner) = kfam(gegner) - (RND * 1) END SELECT LOCATE 18, 1 PRINT "Die gegnerische "; veinheit$; " Einheit wurde vernichtet!" EXIT DO CASE IS < vergleich COLOR 4 SELECT CASE eigeneeinheit CASE 1 IF inf(eigen) > 0 THEN inf(eigen) = inf(eigen) - 1: kfai(eigen) = kfai(eigen) - (RND * 1) CASE 2 IF kav(eigen) > 0 THEN kav(eigen) = kav(eigen) - 1: kfak(eigen) = kfak(eigen) - (RND * 1) CASE 3 IF art(eigen) > 0 THEN art(eigen) = art(eigen) - 1: kfaa(eigen) = kfaa(eigen) - (RND * 1) CASE 4 IF mil(eigen) > 0 THEN mil(eigen) = mil(eigen) - 1: kfam(eigen) = kfam(eigen) - (RND * 1) END SELECT LOCATE 18, 1 PRINT "Ihre eigene "; aeinheit$; " Einheit wurde vernichtet!" EXIT DO END SELECT 'IF (angriff * astark * aglueck * abonus) > (verteidigung * vstark * vglueck * vbonus) THEN GOSUB 30 'IF (angriff * astark * aglueck * abonus) < (verteidigung * vstark * vglueck * vbonus) THEN GOSUB 40 'IF (angriff * astark * aglueck * abonus) = (verteidigung * vstark * vglueck * vbonus) THEN GOTO 1010 LOOP '1017 'schlachtende: GOSUB printsoldaten FOR gugi = 1 TO zeit: NEXT gugi LOCATE 18, 1: PRINT " " GOSUB addsoldaten IF asoldaten < 0 THEN asoldaten = 0 IF vsoldaten < 0 THEN vsoldaten = 0 'IF asoldaten > 0 AND vsoldaten > 0 THEN GOTO 1010 LOOP LOCATE 15, 1: PRINT " " GOSUB taste IF asoldaten > 0 THEN GOSUB gewonnen IF asoldaten <= 0 THEN GOSUB verloren angriff(eigen) = aglueck + 4 krieg = 1: GOSUB fortspeichern: GOSUB spielstandspeichern: CLEAR , , 5000: CHAIN "k:\spy\krieg\13-1.bas" '1100 gewonnen: GOSUB statuszeile: GOSUB addsoldaten: COLOR 7 LOCATE 5, 1: PRINT "Siegreich war die Schlacht und die Verwstung groá." kaputt = INT(RND * asoldaten) IF kaputt > (asoldaten / 2) AND (feld(gegner) > 0 AND inf(eigen) > 0) OR (feld(gegner) > 0 AND kav(eigen) > 0) OR (feld(gegner) > 0 AND mil(eigen) > 0) THEN a = INT(RND * feld(gegner)) kaputt = INT(RND * asoldaten) + 1 IF kaputt > (asoldaten / 2) AND (b2(gegner) > 0 AND art(eigen) > 0) THEN b = INT(RND * b2(gegner)) kaputt = INT(RND * asoldaten) + 1 IF kaputt > (asoldaten / 2) AND (b3(gegner) > 0 AND art(eigen) > 0) THEN c = INT(RND * b3(gegner)) kaputt = INT(RND * asoldaten) + 1 IF kaputt > (asoldaten / 2) AND (b4(gegner) > 0 AND art(eigen) > 0) THEN d = INT(RND * b4(gegner)) kaputt = INT(RND * asoldaten) + 1 IF kaputt > (asoldaten / 2) AND (b5(gegner) > 0 AND art(eigen) > 0) THEN e = INT(RND * b5(gegner)) kaputt = INT(RND * asoldaten) + 1 IF kaputt > (asoldaten / 2) AND (schnigge(gegner) > 0 AND ents(gegner) = 0 AND inf(eigen) > 0) OR (schnigge(gegner) > 0 AND ents(gegner) = 0 AND mil(eigen) > 0) OR (schnigge(gegner) > 0 AND ents(gegner) = 0 AND art(eigen) > 0) THEN g = INT(RND * schnigge(gegner)) kaputt = INT(RND * asoldaten) + 1 IF kaputt > (asoldaten / 2) AND (kogge(gegner) > 0 AND entk(gegner) = 0 AND inf(eigen) > 0) OR (kogge(gegner) > 0 AND entk(gegner) = 0 AND mil(eigen) > 0) OR (kogge(gegner) > 0 AND entk(gegner) = 0 AND art(eigen) > 0) THEN h = INT(RND * kogge(gegner)) kaputt = INT(RND * asoldaten) + 1 IF kaputt > (asoldaten / 2) AND (galleone(gegner) > 0 AND entg(gegner) = 0 AND inf(eigen) > 0) OR (galleone(gegner) > 0 AND entg(gegner) = 0 AND mil(eigen) > 0) OR (galleone(gegner) > 0 AND entg(gegner) = 0 AND art(eigen) > 0) THEN i = INT(RND * galleone(gegner)) kaputt = INT(RND * asoldaten) + 1 IF kaputt > (asoldaten / 2) AND a8(gegner) > 0 THEN j = INT(RND * (a8(gegner) / 2)) kaputt = INT(RND * asoldaten) + 1 IF kaputt > (asoldaten / 2) AND b1(gegner) > 0 THEN k = INT(RND * b1(gegner)): IF b1(gegner) - k < 500 THEN k = b1(gegner) - 500 kaputt = INT(RND * asoldaten) + 1 IF kaputt > (asoldaten / 2) AND a9(gegner) > 0 THEN l = INT(RND * a9(gegner)) COLOR 4 IF a > 0 THEN LOCATE 10, 1: PRINT a; "Felder brannten nieder": feld(gegner) = feld(gegner) - a IF b > 0 THEN LOCATE 11, 1: PRINT b; "Mhlen wurden zerst”rt": b2(gegner) = b2(gegner) - b IF c > 0 THEN LOCATE 12, 1: PRINT c; "H„user wurden dem Erdboden gleichgemacht": b3(gegner) = b3(gegner) - c IF d > 0 THEN LOCATE 13, 1: PRINT d; "Palastteile wurden zerst”rt": b4(gegner) = b4(gegner) - d IF e > 0 THEN LOCATE 14, 1: PRINT e; "Kathedralenteile haben den Krieg nicht berstanden": b5(gegner) = b5(gegner) - e IF g > 0 THEN LOCATE 15, 1: PRINT g; "Schniggen wurden versenkt": schnigge(gegner) = schnigge(gegner) - g IF h > 0 THEN LOCATE 16, 1: PRINT h; "Koggen wurden versenkt": kogge(gegner) = kogge(gegner) - h IF i > 0 THEN LOCATE 17, 1: PRINT i; "Galleonen wurden versenkt": galleone(gegner) = galleone(gegner) - i IF j > 0 THEN LOCATE 18, 1: PRINT j; "Hektar Land wurde erobert": a8(gegner) = a8(gegner) - j: a8(eigen) = a8(eigen) + j IF k > 0 THEN LOCATE 19, 1: PRINT k; "Einwohner wurden ermordet": b1(gegner) = b1(gegner) - k IF l > 0 THEN LOCATE 20, 1: PRINT l; "Gold wurde geraubt": a9(gegner) = a9(gegner) - l: a9(eigen) = a9(eigen) + l GOSUB taste RETURN '1200 verloren: GOSUB statuszeile: COLOR 4 LOCATE 12, 1: PRINT "Sie haben die Schlacht verloren und mssen unverrichteter Dinge abziehen." LOCATE 13, 1: PRINT "Der Kaiser, das Volk und die Kirche sind erbost" stnd(eigen) = (stnd(eigen) / 2): segen(eigen) = INT(segen(eigen) / 2) GOSUB taste RETURN '10010 spielstandspeichern: temp = eigen OPEN "k:\spy\krieg\savegame.dat" FOR OUTPUT AS #1 FOR eigen = 1 TO a4 WRITE #1, a9(eigen), a8(eigen), b1(eigen), korn(eigen), rang(eigen), b2(eigen), temp, bann(eigen), essig(eigen), tod(eigen) WRITE #1, zoll(eigen), mwst(eigen), ekst(eigen), schnigge(eigen), galleone(eigen), land$(eigen), parfuem(eigen) WRITE #1, staat(eigen), sold(eigen), mil(eigen), art(eigen), inf(eigen), kav(eigen), segnen(eigen), moebel(eigen) WRITE #1, kind1m(eigen), kind2m(eigen), kind3m(eigen), kogge(eigen), stnd(eigen), Quartal(eigen), jahr(eigen), wetter(eigen), segen(eigen) WRITE #1, kind1w(eigen), kind2w(eigen), kind3w(eigen), schiffe(eigen), salz(eigen), holz(eigen), tuch(eigen), silber(eigen), gold(eigen) WRITE #1, kinder(eigen), bier(eigen), helfer(eigen), honig(eigen), pech(eigen), eisen(eigen), fleisch(eigen) WRITE #1, fisch(eigen), felle(eigen), eisenwaren(eigen), b3(eigen), b4(eigen), b5(eigen), baus(eigen), bauk(eigen), baug(eigen) WRITE #1, hanf(eigen), leder(eigen), tran(eigen), wein(eigen), wolle(eigen), kleidung(eigen) WRITE #1, kfak(eigen), kfam(eigen), wetter$(eigen), t$, faul(eigen), feld(eigen), gueter(eigen) WRITE #1, soldaten(eigen), g(eigen), t(eigen), mw(eigen), mw$(eigen), name$(eigen), qg(eigen), qk(eigen), qs(eigen) WRITE #1, schmuck(eigen), met(eigen), kfai(eigen), kfaa(eigen), zukunft(eigen), ents(eigen), entk(eigen), entg(eigen) WRITE #1, kindm1$(eigen), alterm1(eigen), kindw1$(eigen), alterw1(eigen), alter(eigen) WRITE #1, kindm2$(eigen), alterm2(eigen), kindw2$(eigen), alterw2(eigen), kindneu(eigen) WRITE #1, kindm3$(eigen), alterm3(eigen), kindw3$(eigen), alterw3(eigen) WRITE #1, kpe, lpe, kpv, lpv, noetig, moeglichk, moeglichl, pest(eigen) WRITE #1, salz, holz, tuch, bier, fleisch, fisch, felle, honig, tran, hanf, helfer WRITE #1, leder, pech, eisen, wein, silber, gold, met, kleidung, eisenwaren, moebel WRITE #1, schmuck, parfuem, wolle, essig, fk, hk, pk, mk, kk, sver, kver, gver, var WRITE #1, spreis, kpreis, gpreis, mengess, mengesk, mengesg, heirat(eigen), spy(eigen), spykosten(eigen), kfas(eigen), fuhrwagen(eigen) WRITE #1, angriff(eigen) NEXT eigen: CLOSE #1: eigen = temp OPEN "k:\spy\krieg\spza.dat" FOR OUTPUT AS #1 WRITE #1, a4 CLOSE #1 RETURN '10011 fortspeichern: OPEN "k:\spy\krieg\fort.dat" FOR OUTPUT AS #1 WRITE #1, weiter, krieg, gegner, eigen CLOSE #1 RETURN '10020 spielstandladen: temp = eigen OPEN "k:\spy\krieg\spza.dat" FOR INPUT AS #1 INPUT #1, a4 CLOSE #1 OPEN "k:\spy\krieg\savegame.dat" FOR INPUT AS #1 FOR eigen = 1 TO a4 INPUT #1, a9(eigen), a8(eigen), b1(eigen), korn(eigen), rang(eigen), b2(eigen), temp, bann(eigen), essig(eigen), tod(eigen) INPUT #1, zoll(eigen), mwst(eigen), ekst(eigen), schnigge(eigen), galleone(eigen), land$(eigen), parfuem(eigen) INPUT #1, staat(eigen), sold(eigen), mil(eigen), art(eigen), inf(eigen), kav(eigen), segnen(eigen), moebel(eigen) INPUT #1, kind1m(eigen), kind2m(eigen), kind3m(eigen), kogge(eigen), stnd(eigen), Quartal(eigen), jahr(eigen), wetter(eigen), segen(eigen) INPUT #1, kind1w(eigen), kind2w(eigen), kind3w(eigen), schiffe(eigen), salz(eigen), holz(eigen), tuch(eigen), silber(eigen), gold(eigen) INPUT #1, kinder(eigen), bier(eigen), helfer(eigen), honig(eigen), pech(eigen), eisen(eigen), fleisch(eigen) INPUT #1, fisch(eigen), felle(eigen), eisenwaren(eigen), b3(eigen), b4(eigen), b5(eigen), baus(eigen), bauk(eigen), baug(eigen) INPUT #1, hanf(eigen), leder(eigen), tran(eigen), wein(eigen), wolle(eigen), kleidung(eigen) INPUT #1, kfak(eigen), kfam(eigen), wetter$(eigen), t$, faul(eigen), feld(eigen), gueter(eigen) INPUT #1, soldaten(eigen), g(eigen), t(eigen), mw(eigen), mw$(eigen), name$(eigen), qg(eigen), qk(eigen), qs(eigen) INPUT #1, schmuck(eigen), met(eigen), kfai(eigen), kfaa(eigen), zukunft(eigen), ents(eigen), entk(eigen), entg(eigen) INPUT #1, kindm1$(eigen), alterm1(eigen), kindw1$(eigen), alterw1(eigen), alter(eigen) INPUT #1, kindm2$(eigen), alterm2(eigen), kindw2$(eigen), alterw2(eigen), kindneu(eigen) INPUT #1, kindm3$(eigen), alterm3(eigen), kindw3$(eigen), alterw3(eigen) INPUT #1, kpe, lpe, kpv, lpv, noetig, moeglichk, moeglichl, pest(eigen) INPUT #1, salz, holz, tuch, bier, fleisch, fisch, felle, honig, tran, hanf, helfer INPUT #1, leder, pech, eisen, wein, silber, gold, met, kleidung, eisenwaren, moebel INPUT #1, schmuck, parfuem, wolle, essig, fk, hk, pk, mk, kk, sver, kver, gver, var INPUT #1, spreis, kpreis, gpreis, mengess, mengesk, mengesg, heirat(eigen), spy(eigen), spykosten(eigen), kfas(eigen), fuhrwagen(eigen) INPUT #1, angriff(eigen) IF EOF(1) THEN EXIT FOR NEXT eigen CLOSE #1: eigen = temp RETURN '10021 fortladen: OPEN "k:\spy\krieg\fort.dat" FOR INPUT AS #1 INPUT #1, weiter, krieg, gegner, eigen CLOSE #1 RETURN '20 printsoldaten: COLOR 2 LOCATE 8, 25: PRINT inf(eigen) LOCATE 9, 25: PRINT kav(eigen) LOCATE 10, 25: PRINT art(eigen) LOCATE 11, 25: PRINT mil(eigen) COLOR 4 LOCATE 8, 70: PRINT inf(gegner) LOCATE 9, 70: PRINT kav(gegner) LOCATE 10, 70: PRINT art(gegner) LOCATE 11, 70: PRINT mil(gegner) RETURN '25 addsoldaten: asoldaten = inf(eigen) + kav(eigen) + art(eigen) + mil(eigen) vsoldaten = inf(gegner) + kav(gegner) + art(gegner) + mil(gegner) RETURN '30 COLOR 2 ' IF veinheit$ = "Infanterie" AND inf(gegner) > 0 THEN inf(gegner) = inf(gegner) - 1: kfai(gegner) = kfai(gegner) - (RND * 1): LOCATE 18, 1: PRINT "Die gegnerische "; veinheit$; " Einheit wurde vernichtet!": RETURN ' IF veinheit$ = "Kavallerie" AND kav(gegner) > 0 THEN kav(gegner) = kav(gegner) - 1: kfak(gegner) = kfak(gegner) - (RND * 1): LOCATE 18, 1: PRINT "Die gegnerische "; veinheit$; " Einheit wurde vernichtet!": RETURN ' IF veinheit$ = "Artillerie" AND art(gegner) > 0 THEN art(gegner) = art(gegner) - 1: kfaa(gegner) = kfaa(gegner) - (RND * 1): LOCATE 18, 1: PRINT "Die gegnerische "; veinheit$; " Einheit wurde vernichtet!": RETURN ' IF veinheit$ = "Miliz" AND mil(gegner) > 0 THEN mil(gegner) = mil(gegner) - 1: kfam(gegner) = kfam(gegner) - (RND * 1): LOCATE 18, 1: PRINT "Die gegnerische "; veinheit$; " Einheit wurde vernichtet!": RETURN ' RETURN '40 COLOR 4 ' IF aeinheit$ = "Infanterie" AND inf(eigen) > 0 THEN inf(eigen) = inf(eigen) - 1: kfai(eigen) = kfai(eigen) - (RND * 1): LOCATE 18, 1: PRINT "Ihre eigene "; aeinheit$; " Einheit wurde vernichtet!": RETURN ' IF aeinheit$ = "Kavallerie" AND kav(eigen) > 0 THEN kav(eigen) = kav(eigen) - 1: kfak(eigen) = kfak(eigen) - (RND * 1): LOCATE 18, 1: PRINT "Ihre eigene "; aeinheit$; " Einheit wurde vernichtet!": RETURN ' IF aeinheit$ = "Artillerie" AND art(eigen) > 0 THEN art(eigen) = art(eigen) - 1: kfaa(eigen) = kfaa(eigen) - (RND * 1): LOCATE 18, 1: PRINT "Ihre eigene "; aeinheit$; " Einheit wurde vernichtet!": RETURN ' IF aeinheit$ = "Miliz" AND mil(eigen) > 0 THEN mil(eigen) = mil(eigen) - 1: kfam(eigen) = kfam(eigen) - (RND * 1): LOCATE 18, 1: PRINT "Ihre eigene "; aeinheit$; " Einheit wurde vernichtet!": RETURN ' RETURN '50 taste: LOCATE 30, 1: COLOR 15: PRINT "RETURN fr WEITER!"; DO key$ = INKEY$ IF key$ = CHR$(13) THEN RETURN ELSEIF key$ <> "" THEN BEEP ': GOTO 50 END IF LOOP 'WHILE key$ = "" '100 statuszeile: CLS : COLOR 15: PRINT mw$(eigen); name$(eigen); land$(eigen); " im Jahre des Herrn "; jahr(eigen); ","; Quartal(eigen); ". Quartal" RETURN