| |
Hier der Code für die Bratwurstbudensimulation:
INCLUDE "APPFRAME.OXH"
INCLUDE "CONST.OPH"
APP HansWurst,&10272A73
CAPTION "HansWurst",KlangGerman%
ICON "iconhw.ico"
ENDA
PROC start:
GLOBAL name$(25),stand$(40)
GLOBAL geld%,einnahmen%,ausgaben%,umsatz%
GLOBAL grill%,würste%,semmeln%,stand%,zutaten%,kühlschrank%,theke%,semmelnkorb%
GLOBAL zange%,messer%,senf%,ketchup%,kasse%,kohle%,geschirr%
GLOBAL kunden%,schmutz%,tage%,schulden%
GLOBAL savegame$(255)
GLOBAL i%,e%
geld%=200
savegame$="C:SystemAppsHansWurstSavegameSavegame.hw"
e%=EXIST (savegame$)
gIPRINT "Bratwurstmanager Version 1.0"
PAUSE 30
main:
ENDP
PROC main:
CLS
gIPRINT "Hauptmenü"
PRINT "1 = Home"
PRINT "2 = Stand"
PRINT "3 = Shop"
PRINT "4 = Bank"
PRINT "5 = Spiel"
PRINT " "
PRINT "Name:",name$
PRINT " "
PRINT "Standname:",stand$
PRINT " "
PRINT "Gesamte Spieltage:",tage%
PRINT " "
PRINT "Aktueller Kontostand:",geld%
PRINT " "
PRINT "Verschmutzungsgrad:",schmutz%,"(bei 10 ist das Game Over)"
PRINT " "
PRINT "Schulden:",schulden%
i%=GET
IF i%=%1
home:
ELSEIF i%=%2
stand:
ELSEIF i%=%3
shop:
ELSEIF i%=%4
bank:
ELSEIF i%=%5
spiel:
ENDIF
ENDP
PROC home:
CLS
gIPRINT "Location: Home"
PRINT "1 = Bilanz ansehen"
PRINT "2 = Werbung buchen"
PRINT "3 = Gegenstände"
PRINT "4 = Hauptmenü"
i%=GET
IF i%=%1
bilanz:
ELSEIF i%=%2
werbung:
ELSEIF i%=%3
gegenstände:
ELSEIF i%=%4
main:
ENDIF
ENDP
PROC bilanz:
CLS
gIPRINT "Location: Home / Point: Bilanz"
PRINT "Name:",name$
PRINT "Stand:",stand$
PRINT "Aktueller Kontostand:",geld%
PRINT "Einnahmen (Gesamt):",einnahmen%
PRINT "Ausgaben (Gesamt):",ausgaben%
PRINT "Umsatz (Gesamt):",umsatz%
PRINT "Bekanntheitsgrad:",kunden%
PRINT "Taste drücken um zurück zu gehen"
GET
home:
ENDP
PROC werbung:
CLS
gIPRINT "Location: Home / Point: Werbung"
PRINT "1 = Flyer Preis: 120$"
PRINT "2 = Autowerbung (Aufkleber) Preis: 250$"
PRINT "3 = Radiowerbung Preis: 400$"
PRINT "4 = Fernsehwerbung Preis: 650$"
PRINT "5 = Zurück"
i%=GET
IF i%=%1
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 120
gIPRINT "Zu wenig Geld"
werbung:
PAUSE 30
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-120
PAUSE 40
gIPRINT "Flyerwerbung gebucht"
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-120
umsatz%=umsatz%-120
kunden%=kunden%+1
home:
ELSEIF i%=%2
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 250
gIPRINT "Zu wenig Geld"
PAUSE 30
werbung:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-250
PAUSE 40
gIPRINT "Autowerbung gebucht"
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-250
umsatz%=umsatz%-250
kunden%=kunden%+2
home:
ELSEIF i%=%3
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 400
gIPRINT "Zu wenig Geld"
PAUSE 30
werbung:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-400
PAUSE 40
gIPRINT "Radiowerbung gebucht"
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-400
umsatz%=umsatz%-400
kunden%=kunden%+3
home:
ELSEIF i%=%4
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 650
gIPRINT "Zu wenig Geld"
PAUSE 30
werbung:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-650
PAUSE 40
gIPRINT "Fernsehwerbung gebucht"
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-650
umsatz%=umsatz%-650
kunden%=kunden%+4
home:
ELSEIF i%=%5
home:
ENDIF
ENDP
PROC gegenstände:
CLS
gIPRINT "Location: Home / Point: Gegenstände"
PRINT "Auflistung der Gegenstände die du besitzt:"
PRINT " "
PRINT "Grill / Stufe:",grill%
PRINT "Würste / Vorrat:",würste%
PRINT "Semmeln / Vorrat:",semmeln%
PRINT "Stand / Stufe:",stand%
PRINT "Zutaten / Vorrat:",zutaten%
PRINT "Kühlschrank / Stufe:",kühlschrank%
PRINT "Theke / Stufe:",theke%
PRINT "Semmelnkorb / Stufe:",semmelnkorb%
PRINT "Zange / Stufe:",zange%
PRINT "Messer / Stufe:",messer%
PRINT "Senf / Vorrat:",senf%
PRINT "Ketchup / Vorrat:",ketchup%
PRINT "Kasse / Stufe:",kasse%
PRINT "Grillkohle / Vorrat:",kohle%
PRINT "Geschirr / Stufe:",geschirr%
PRINT "Taste drücken um zurück zu gehen"
GET
home:
ENDP
PROC stand:
CLS
gIPRINT "Location: Stand"
PRINT "1 = Verkaufen"
PRINT "2 = Reinigen"
PRINT "3 = Standnamen ändern"
PRINT "4 = Zurück"
i%=GET
IF i%=%1
verkaufen:
ELSEIF i%=%2
reinigen:
ELSEIF i%=%3
standnamenändern:
ELSEIF i%=%4
main:
ENDIF
ENDP
PROC verkaufen:
CLS
gIPRINT "Location: Stand / Point: Verkaufen"
PAUSE 20
IF semmeln% <10
gIPRINT "Zu wenig Semmeln / min. 10"
PAUSE 30
stand:
ELSEIF würste% <10
gIPRINT "Zu wenig Würste / min.10"
PAUSE 30
stand:
ELSEIF ketchup% <10
gIPRINT "Zu wenig Ketchup / min.10"
PAUSE 30
stand:
ELSEIF zutaten% <10
gIPRINT "Zu wenig Zutaten / min. 10"
PAUSE 30
stand:
ELSEIF kohle% <10
gIPRINT "Zu wenig Grillkohle / min. 10"
PAUSE 30
stand:
ENDIF
semmeln%=semmeln%-10
würste%=würste%-10
zutaten%=zutaten%-10
ketchup%=ketchup%-10
kohle%=kohle%-10
tage%=tage%+1
gIPRINT "Uhrzeit: 8 Uhr"
PAUSE 20
gIPRINT "Uhrzeit: 9 Uhr"
PAUSE 20
gIPRINT "Uhrzeit: 10 Uhr"
PAUSE 20
gIPRINT "Uhrzeit: 11 Uhr"
PAUSE 20
gIPRINT "Uhrzeit: 12 Uhr"
PAUSE 20
gIPRINT "Uhrzeit: 13 Uhr"
PAUSE 20
gIPRINT "Uhrzeit: 14 Uhr"
PAUSE 20
gIPRINT "Uhrzeit: 15 Uhr"
PAUSE 20
gIPRINT "Uhrzeit: 16 Uhr"
PAUSE 20
gIPRINT "Feierabend..."
PAUSE 30
schmutz%=schmutz%+1
IF schmutz%=4
gIPRINT "Der Stand muss gereinigt werden"
PAUSE 40
ELSEIF schmutz%=9
gIPRINT "Der Stand muss unbedingt gereinigt werden, ansonsten wird er geschlossen"
PAUSE 50
ELSEIF schmutz%=10
gIPRINT "Das Gesundheitsamt hat den Stand wegen zu viel Schmutz geschlossen"
PAUSE 50
STOP
ENDIF
IF kunden%=0
gIPRINT "Einnahmen: 20€"
PAUSE 30
geld%=geld%+20
einnahmen%=einnahmen%+20
umsatz%=umsatz%+20
ELSEIF kunden%=1
gIPRINT "Einnahmen: 30€"
PAUSE 30
geld%=geld%+30
einnahmen%=einnahmen%+30
umsatz%=umsatz%+30
ELSEIF kunden% >1
gIPRINT "Einnahmen: 35€"
PAUSE 30
geld%=geld%+35
einnahmen%=einnahmen%+35
umsatz%=umsatz%+35
ELSEIF kunden% >5
gIPRINT "Einnahmen: 40€"
PAUSE 30
geld%=geld%+40
einnahmen%=einnahmen%+40
umsatz%=umsatz%+40
ELSEIF kunden% >10
gIPRINT "Einnahmen: 50€"
PAUSE 30
geld%=geld%+50
einnahmen%=einnahmen%+50
umsatz%=umsatz%+50
ELSEIF kunden% >15
gIPRINT "Einnahmen: 60€"
PAUSE 30
geld%=geld%+60
einnahmen%=einnahmen%+60
umsatz%=umsatz%+60
ELSEIF kunden% >20
gIPRINT "Einnahmen: 65€"
PAUSE 30
geld%=geld%+65
einnahmen%=einnahmen%+65
umsatz%=umsatz%+65
ELSEIF kunden% >25
gIPRINT "Einnahmen: 70€"
PAUSE 30
geld%=geld%+70
einnahmen%=einnahmen%+70
umsatz%=umsatz%+70
ELSEIF kunden% >30
gIPRINT "Einnahmen: 75€"
PAUSE 30
geld%=geld%+75
einnahmen%=einnahmen%+75
umsatz%=umsatz%+75
ELSEIF kunden% >35
gIPRINT "Einnahmen: 80€"
PAUSE 30
geld%=geld%+80
einnahmen%=einnahmen%+80
umsatz%=umsatz%+80
ELSEIF kunden% >40
gIPRINT "Einnahmen: 85€"
PAUSE 30
geld%=geld%+85
einnahmen%=einnahmen%+85
umsatz%=umsatz%+85
ELSEIF kunden% >50
gIPRINT "Einnahmen: 90€"
PAUSE 30
geld%=geld%+90
einnahmen%=einnahmen%+90
umsatz%=umsatz%+90
ELSEIF kunden% >60
gIPRINT "Einnahmen: 100€"
PAUSE 30
geld%=geld%+100
einnahmen%=einnahmen%+100
umsatz%=umsatz%+100
ELSEIF kunden% >80
gIPRINT "Einnahmen: 120€"
PAUSE 30
geld%=geld%+120
einnahmen%=einnahmen%+120
umsatz%=umsatz%+120
ELSEIF kunden% >90
gIPRINT "Einnahmen: 130€"
PAUSE 30
geld%=geld%+130
einnahmen%=einnahmen%+130
umsatz%=umsatz%+130
ELSEIF kunden% >100
gIPRINT "Einnahmen: 140€"
PAUSE 30
geld%=geld%+140
einnahmen%=einnahmen%+140
umsatz%=umsatz%+140
ELSEIF kunden% >120
gIPRINT "Einnahmen: 150€"
PAUSE 30
geld%=geld%+150
einnahmen%=einnahmen%+150
umsatz%=umsatz%+150
ELSEIF kunden% >140
gIPRINT "Einnahmen: 180€"
PAUSE 30
geld%=geld%+180
einnahmen%=einnahmen%+180
umsatz%=umsatz%+180
ELSEIF kunden% >150
gIPRINT "Einnahmen: 200€"
PAUSE 30
geld%=geld%+200
einnahmen%=einnahmen%+200
umsatz%=umsatz%+200
ENDIF
stand:
ENDP
PROC reinigen:
CLS
gIPRINT "Location: Stand / Point: Reinigen"
PAUSE 30
gIPRINT "Stand wird gereinigt"
PAUSE 30
gIPRINT "Stand wird gereinigt."
PAUSE 30
gIPRINT "Stand wird gereinigt.."
PAUSE 30
gIPRINT "Stand wird gereinigt..."
PAUSE 30
gIPRINT "Reinigung abgeschlossen"
PAUSE 30
gIPRINT "Verschmutzungsgrad um 1 Stufe vermindert"
PAUSE 50
schmutz%=schmutz%-1
IF schmutz%=0
gIPRINT "Der Stand ist klinisch rein"
PAUSE 40
ENDIF
stand:
ENDP
PROC standnamenändern:
CLS
gIPRINT "Location: Stand / Point: Standnamen ändern"
PRINT "Aktueller Name des Standes:",stand$
PRINT "1 = Ändern"
PRINT "2 = Zurück"
i%=GET
IF i%=%1
CLS
PRINT "Neuen Namen eingeben:"
INPUT stand$
CLS
gIPRINT "Standname wurde geändert"
PAUSE 30
IF stand$="Hansis Wurstbude"
gIPRINT "Cheat erfolgreich"
PAUSE 30
gIPRINT "Transferiere 1000 €"
geld%=geld%+1000
einnahmen%=einnahmen%+1000
umsatz%=umsatz%+1000
PAUSE 30
gIPRINT "Erfolgreich abgeschlossen"
ELSEIF stand$="Hansi braucht Kunden"
gIPRINT "Cheat erfolgreich"
PAUSE 30
gIPRINT "Erhöhe Bekanntheitsgrad"
PAUSE 30
kunden%=kunden%+20
gIPRINT "Erfolgreich abgeschlossen"
PAUSE 30
ENDIF
ELSEIF i%=%2
stand:
ENDIF
stand:
ENDP
PROC shop:
CLS
gIPRINT "Location: Shop"
PRINT "1 = Waren kaufen"
PRINT "2 = Aufrüsten"
PRINT "3 = Zurück"
i%=GET
IF i%=%1
warenkaufen:
ELSEIF i%=%2
aufrüsten:
ELSEIF i%=%3
main:
ENDIF
ENDP
PROC warenkaufen:
CLS
gIPRINT "Location: Shop / Point: Waren kaufen"
PRINT "1 = Würste / 10 Stück, Preis: 5€"
PRINT "2 = Semmeln / 10 Stück, Preis: 5€"
PRINT "3 = Zutaten / 10 Stück, Preis: 5€"
PRINT "4 = Ketchup / 10 Stück, Preis: 5€"
PRINT "5 = Kohle / 10 Stück, Preis: 5€"
PRINT "6 = Alles 10 mal kaufen Preis: 25€"
PRINT "7 = Zurück"
i%=GET
IF i%=%1
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 5
gIPRINT "Zu wenig Geld"
warenkaufen:
PAUSE 30
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-5
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-5
umsatz%=umsatz%-5
würste%=würste%+10
warenkaufen:
ELSEIF i%=%2
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 5
gIPRINT "Zu wenig Geld"
PAUSE 30
warenkaufen:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-5
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-5
umsatz%=umsatz%-5
semmeln%=semmeln%+10
warenkaufen:
ELSEIF i%=%3
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 5
gIPRINT "Zu wenig Geld"
PAUSE 30
warenkaufen:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-5
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-5
umsatz%=umsatz%-5
zutaten%=zutaten%+10
warenkaufen:
ELSEIF i%=%4
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 5
gIPRINT "Zu wenig Geld"
PAUSE 30
warenkaufen:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-5
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-5
umsatz%=umsatz%-5
ketchup%=ketchup%+10
warenkaufen:
ELSEIF i%=%5
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 5
gIPRINT "Zu wenig Geld"
PAUSE 30
warenkaufen:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-5
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-5
umsatz%=umsatz%-5
kohle%=kohle%+10
warenkaufen:
ELSEIF i%=%6
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 25
gIPRINT "Zu wenig Geld"
PAUSE 30
warenkaufen:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-25
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-25
umsatz%=umsatz%-25
semmeln%=semmeln%+10
würste%=würste%+10
zutaten%=zutaten%+10
ketchup%=ketchup%+10
kohle%=kohle%+10
warenkaufen:
ELSEIF i%=%7
shop:
ENDIF
ENDP
PROC aufrüsten:
CLS
gIPRINT "Location: Shop / Point: Aufrüsten"
PRINT "1 = Kühlschrank"
PRINT "2 = Grill"
PRINT "3 = Theke"
PRINT "4 = Messer"
PRINT "5 = Geschirr"
PRINT "6 = Zurück"
i%=GET
IF i%=%1
kühlschrank:
ELSEIF i%=%2
grill:
ELSEIF i%=%3
theke:
ELSEIF i%=%4
messer:
ELSEIF i%=%5
geschirr:
ELSEIF i%=%6
shop:
ENDIF
ENDP
PROC kühlschrank:
CLS
PRINT "1 = Kühlschrank Stufe 1 / Preis: 80€"
PRINT "2 = Kühlschrank Stufe 2 / Preis: 150€"
PRINT "3 = Kühlschrank Stufe 3 / Preis: 220€"
PRINT "4 = Kühlschrank Stufe 4 / Preis: 320€"
PRINT "5 = Kühlschrank Stufe 5 / Preis: 500€"
PRINT "6 = Zurück"
i%=GET
IF i%=%1
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF kühlschrank% >0
gIPRINT "Ist bereits Stufe 1 oder höher"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 80
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-80
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-80
kühlschrank%=kühlschrank%+1
aufrüsten:
ELSEIF i%=%2
gIPRINT "Überprüfe Aufrüstung"
PAUSE 30
IF kühlschrank% >1
gIPRINT "Ist bereits Stufe 2 oder höher"
PAUSE 30
aufrüsten:
ELSEIF kühlschrank%=0
gIPRINT "Stufe 1 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 150
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-150
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-150
kühlschrank%=kühlschrank%+1
aufrüsten:
ELSEIF i%=%3
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF kühlschrank% >2
gIPRINT "Ist bereits Stufe 3 oder höher"
PAUSE 30
aufrüsten:
ELSEIF kühlschrank%=1
gIPRINT "Stufe 2 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 220
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-220
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-220
kühlschrank%=kühlschrank%+1
aufrüsten:
ELSEIF i%=%4
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF kühlschrank% >3
gIPRINT "Ist bereits Stufe 4 oder höher"
PAUSE 30
aufrüsten:
ELSEIF kühlschrank%=2
gIPRINT "Stufe 3 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 320
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-320
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-320
kühlschrank%=kühlschrank%+1
aufrüsten:
ELSEIF i%=%5
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF kühlschrank% >4
gIPRINT "Ist bereits Stufe 5"
PAUSE 30
aufrüsten:
ELSEIF kühlschrank%=3
gIPRINT "Stufe 4 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 500
gIPRINT "Zu wenig Geld"
aufrüsten:
PAUSE 30
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-500
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-500
kühlschrank%=kühlschrank%+1
aufrüsten:
ELSEIF i%=%6
CLS
shop:
ENDIF
ENDP
PROC grill:
CLS
PRINT "1 = Grill Stufe 1 / Preis: 80€"
PRINT "2 = Grill Stufe 2 / Preis: 150€"
PRINT "3 = Grill Stufe 3 / Preis: 220€"
PRINT "4 = Grill Stufe 4 / Preis: 320€"
PRINT "5 = Grill Stufe 5 / Preis: 500€"
PRINT "6 = Zurück"
i%=GET
IF i%=%1
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF grill% >0
gIPRINT "Ist bereits Stufe 1 oder höher"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 80
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-80
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-80
grill%=grill%+1
aufrüsten:
ELSEIF i%=%2
gIPRINT "Überprüfe Aufrüstung"
PAUSE 30
IF grill% >1
gIPRINT "Ist bereits Stufe 2 oder höher"
PAUSE 30
aufrüsten:
ELSEIF grill%=0
gIPRINT "Stufe 1 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 150
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-150
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-150
grill%=grill%+1
aufrüsten:
ELSEIF i%=%3
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF grill% >2
gIPRINT "Ist bereits Stufe 3 oder höher"
PAUSE 30
aufrüsten:
ELSEIF grill%=1
gIPRINT "Stufe 2 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 220
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-220
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-220
grill%=grill%+1
aufrüsten:
ELSEIF i%=%4
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF grill% >3
gIPRINT "Ist bereits Stufe 4 oder höher"
PAUSE 30
aufrüsten:
ELSEIF grill%=2
gIPRINT "Stufe 3 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 320
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-320
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-320
grill%=grill%+1
aufrüsten:
ELSEIF i%=%5
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF grill% >4
gIPRINT "Ist bereits Stufe 5"
PAUSE 30
aufrüsten:
ELSEIF grill%=3
gIPRINT "Stufe 4 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 500
gIPRINT "Zu wenig Geld"
aufrüsten:
PAUSE 30
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-500
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-500
grill%=grill%+1
aufrüsten:
ELSEIF i%=%6
CLS
shop:
ENDIF
ENDP
PROC theke:
CLS
PRINT "1 = Theke Stufe 1 / Preis: 80€"
PRINT "2 = Theke Stufe 2 / Preis: 150€"
PRINT "3 = Theke Stufe 3 / Preis: 220€"
PRINT "4 = Theke Stufe 4 / Preis: 320€"
PRINT "5 = Theke Stufe 5 / Preis: 500€"
PRINT "6 = Zurück"
i%=GET
IF i%=%1
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF theke% >0
gIPRINT "Ist bereits Stufe 1 oder höher"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 80
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-80
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-80
theke%=theke%+1
aufrüsten:
ELSEIF i%=%2
gIPRINT "Überprüfe Aufrüstung"
PAUSE 30
IF theke% >1
gIPRINT "Ist bereits Stufe 2 oder höher"
PAUSE 30
aufrüsten:
ELSEIF theke%=0
gIPRINT "Stufe 1 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 150
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-150
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-150
theke%=theke%+1
aufrüsten:
ELSEIF i%=%3
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF theke% >2
gIPRINT "Ist bereits Stufe 3 oder höher"
PAUSE 30
aufrüsten:
ELSEIF theke%=1
gIPRINT "Stufe 2 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 220
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-220
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-220
theke%=theke%+1
aufrüsten:
ELSEIF i%=%4
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF theke% >3
gIPRINT "Ist bereits Stufe 4 oder höher"
PAUSE 30
aufrüsten:
ELSEIF theke%=2
gIPRINT "Stufe 3 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 320
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-320
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-320
theke%=theke%+1
aufrüsten:
ELSEIF i%=%5
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF theke% >4
gIPRINT "Ist bereits Stufe 5"
PAUSE 30
aufrüsten:
ELSEIF theke%=3
gIPRINT "Stufe 4 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 500
gIPRINT "Zu wenig Geld"
aufrüsten:
PAUSE 30
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-500
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-500
theke%=theke%+1
aufrüsten:
ELSEIF i%=%6
CLS
shop:
ENDIF
ENDP
PROC messer:
CLS
PRINT "1 = Messer Stufe 1 / Preis: 80€"
PRINT "2 = Messer Stufe 2 / Preis: 150€"
PRINT "3 = Messer Stufe 3 / Preis: 220€"
PRINT "4 = Messer Stufe 4 / Preis: 320€"
PRINT "5 = Messer Stufe 5 / Preis: 500€"
PRINT "6 = Zurück"
i%=GET
IF i%=%1
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF messer% >0
gIPRINT "Ist bereits Stufe 1 oder höher"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 80
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-80
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-80
messer%=messer%+1
aufrüsten:
ELSEIF i%=%2
gIPRINT "Überprüfe Aufrüstung"
PAUSE 30
IF messer% >1
gIPRINT "Ist bereits Stufe 2 oder höher"
PAUSE 30
aufrüsten:
ELSEIF messer%=0
gIPRINT "Stufe 1 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 150
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-150
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-150
messer%=messer%+1
aufrüsten:
ELSEIF i%=%3
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF messer% >2
gIPRINT "Ist bereits Stufe 3 oder höher"
PAUSE 30
aufrüsten:
ELSEIF messer%=1
gIPRINT "Stufe 2 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 220
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-220
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-220
messer%=messer%+1
aufrüsten:
ELSEIF i%=%4
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF messer% >3
gIPRINT "Ist bereits Stufe 4 oder höher"
PAUSE 30
aufrüsten:
ELSEIF messer%=2
gIPRINT "Stufe 3 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 320
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-320
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-320
messer%=messer%+1
aufrüsten:
ELSEIF i%=%5
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF messer% >4
gIPRINT "Ist bereits Stufe 5"
PAUSE 30
aufrüsten:
ELSEIF messer%=3
gIPRINT "Stufe 4 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 500
gIPRINT "Zu wenig Geld"
aufrüsten:
PAUSE 30
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-500
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-500
messer%=messer%+1
aufrüsten:
ELSEIF i%=%6
CLS
shop:
ENDIF
ENDP
PROC geschirr:
CLS
PRINT "1 = Geschirr Stufe 1 / Preis: 80€"
PRINT "2 = Geschirr Stufe 2 / Preis: 150€"
PRINT "3 = Geschirr Stufe 3 / Preis: 220€"
PRINT "4 = Geschirr Stufe 4 / Preis: 320€"
PRINT "5 = Geschirr Stufe 5 / Preis: 500€"
PRINT "6 = Zurück"
i%=GET
IF i%=%1
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF geschirr% >0
gIPRINT "Ist bereits Stufe 1 oder höher"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 80
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-80
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-80
geschirr%=geschirr%+1
aufrüsten:
ELSEIF i%=%2
gIPRINT "Überprüfe Aufrüstung"
PAUSE 30
IF geschirr% >1
gIPRINT "Ist bereits Stufe 2 oder höher"
PAUSE 30
aufrüsten:
ELSEIF geschirr%=0
gIPRINT "Stufe 1 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 150
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-150
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-150
geschirr%=geschirr%+1
aufrüsten:
ELSEIF i%=%3
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF geschirr% >2
gIPRINT "Ist bereits Stufe 3 oder höher"
PAUSE 30
aufrüsten:
ELSEIF geschirr%=1
gIPRINT "Stufe 2 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 220
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-220
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-220
geschirr%=geschirr%+1
aufrüsten:
ELSEIF i%=%4
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF geschirr% >3
gIPRINT "Ist bereits Stufe 4 oder höher"
PAUSE 30
aufrüsten:
ELSEIF geschirr%=2
gIPRINT "Stufe 3 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 320
gIPRINT "Zu wenig Geld"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-320
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-320
geschirr%=geschirr%+1
aufrüsten:
ELSEIF i%=%5
gIPRINT "Überprüfe Aufrüsten"
PAUSE 30
IF geschirr% >4
gIPRINT "Ist bereits Stufe 5"
PAUSE 30
aufrüsten:
ELSEIF geschirr%=3
gIPRINT "Stufe 4 erforderlich"
PAUSE 30
aufrüsten:
ENDIF
gIPRINT "Überprüfe Kontostand..."
PAUSE 30
IF geld% < 500
gIPRINT "Zu wenig Geld"
aufrüsten:
PAUSE 30
ENDIF
gIPRINT "Geld wird abgebucht..."
geld%=geld%-500
PAUSE 40
gIPRINT "Buchung erfolgreich"
PAUSE 40
ausgaben%=ausgaben%-500
geschirr%=geschirr%+1
aufrüsten:
ELSEIF i%=%6
CLS
shop:
ENDIF
ENDP
PROC bank:
CLS
gIPRINT "Location: Bank"
PRINT "1 = Kredit aufnehmen"
PRINT "2 = Kredit abzahlen (Komplett)"
PRINT "3 = Zurück"
i%=GET
IF i%=%1
kreditaufnehmen:
ELSEIF i%=%2
kreditabzahlen:
ELSEIF i%=%3
main:
ENDIF
ENDP
PROC kreditaufnehmen:
CLS
gIPRINT "Location: Bank / Point: Kredit aufnehmen"
PRINT "1 = 500 €"
PRINT "2 = 1000 €"
PRINT "3 = 2000 €"
PRINT "4 = Zurück"
i%=GET
IF i%=%1
gIPRINT "Überprüfe Einnahmen"
PAUSE 40
IF kunden% >1
gIPRINT "Kredit bewilligt"
PAUSE 30
ELSEIF kunden% <1
gIPRINT "Einkommen zu niedrig"
PAUSE 30
bank:
ENDIF
gIPRINT "Überweise Geld"
PAUSE 40
geld%=geld%+500
umsatz%=umsatz%+500
einnahmen%=einnahmen%+500
schulden%=schulden%+500
bank:
ELSEIF i%=%2
gIPRINT "Überprüfe Einnahmen"
PAUSE 40
IF kunden% >15
gIPRINT "Kredit bewilligt"
PAUSE 30
ELSEIF kunden% <15
gIPRINT "Einkommen zu niedrig"
PAUSE 30
bank:
ENDIF
gIPRINT "Überweise Geld"
PAUSE 40
geld%=geld%+1000
umsatz%=umsatz%+1000
einnahmen%=einnahmen%+1000
schulden%=schulden%+1000
bank:
ELSEIF i%=%3
gIPRINT "Überprüfe Einnahmen"
PAUSE 40
IF kunden% >40
gIPRINT "Kredit bewilligt"
PAUSE 30
ELSEIF kunden% <40
gIPRINT "Einkommen zu niedrig"
PAUSE 30
bank:
ENDIF
gIPRINT "Überweise Geld"
PAUSE 40
geld%=geld%+2000
umsatz%=umsatz%+2000
einnahmen%=einnahmen%+2000
schulden%=schulden%+2000
bank:
ENDIF
ENDP
PROC kreditabzahlen:
gIPRINT "Überprüfe Konto"
PAUSE 40
IF geld% < schulden%
gIPRINT "Zu wenig Geld"
PAUSE 30
bank:
ELSEIF geld% = schulden% OR geld% > schulden%
geld%=geld%-schulden%
schulden%=schulden%-schulden%
bank:
ENDIF
ENDP
PROC spiel:
CLS
gIPRINT "Location: Spiel"
PRINT "1 = Namen ändern"
PRINT "2 = Spiel speichern"
PRINT "3 = Spiel laden"
PRINT "4 = Spiel beenden"
PRINT "5 = Zurück"
i%=GET
IF i%=%1
namenändern:
ELSEIF i%=%2
spielspeichern:
ELSEIF i%=%3
spielladen:
ELSEIF i%=%4
spielbeenden:
ELSEIF i%=%5
main:
ENDIF
ENDP
PROC namenändern:
CLS
gIPRINT "Location: Spiel / Point: Namen ändern"
PRINT "Aktueller Name:",name$
PRINT " "
PRINT "Neuen Namen eingeben:"
INPUT name$
spiel:
ENDP
PROC spielspeichern:
gIPRINT "Überprüfe Spielstände"
PAUSE 40
TRAP MKDIR "C:SystemAppsHansWurstSavegame"
IF EXIST (savegame$)
gIPRINT "Alten Spielstand gefunden"
PAUSE 30
CLS
PRINT "Alten Spielstand überschreiben ?"
PRINT "(j)a (n)ein"
i%=GET
IF i%=%j
DELETE savegame$
CREATE "C:SystemAppsHansWurstSavegameSavegame.hw",A,name$,stand$,geld%,einnahmen%,ausgaben%,umsatz%,theke%,kühlschrank%,zutaten%,stand%,semmeln%,würste%,grill%,geschirr%,kohle%,kasse%,senf%,ketchup%,messer%,schulden%,tage%,schmutz%,kunden%
gIPRINT "Spiel gespeichert"
PAUSE 40
CLOSE
spiel:
ELSEIF i%=%n
spiel:
ENDIF
ELSE
CREATE "C:SystemAppsHansWurstSavegameSavegame.hw",A,name$,stand$,geld%,einnahmen%,ausgaben%,umsatz%,theke%,kühlschrank%,zutaten%,stand%,semmeln%,würste%,grill%,geschirr%,kohle%,kasse%,senf%,ketchup%,messer%,schulden%,tage%,schmutz%,kunden%
gIPRINT "Spiel gespeichert"
CLOSE
PAUSE 40
spiel:
ENDIF
ENDP
PROC spielladen:
gIPRINT "Suche Spielstand"
PAUSE 40
IF EXIST (savegame$)
OPEN savegame$,A,name$,stand$,geld%,einnahmen%,ausgaben%,umsatz%,theke%,kühlschrank%,zutaten%,stand%,semmeln%,würste%,grill%,geschirr%,kohle%,kasse%,senf%,ketchup%,messer%,schulden%,tage%,schmutz%,kunden%
gIPRINT "Spiel geladen"
CLOSE
PAUSE 30
spiel:
ELSE
gIPRINT "Kein Spielstand vorhanden"
PAUSE 40
spiel:
ENDIF
ENDP
PROC spielbeenden:
CLS
gIPRINT "Beende..."
PAUSE 50
CLS
STOP
ENDP
|
|
