Spelmaskin ~ ett annat parti spel (1 / 2 steg)

Steg 1: kod

: Intro
CLS
ECHO Hej och Välkommen till Slot maskin av Prof. Pickle.
ECHO.
ECHO 1) spela
ECHO 2) instruktioner
Upprepa 3) Exit
Val/c 123 /n
om % errorlevel % equ 1 goto diff
om % errorlevel % equ 2 goto hjälpa
om % errorlevel % equ 3 goto avslutar

: hjälpa
CLS
ECHO instruktioner:
ECHO.
ECHO "Enarmad bandit" syftar till att få så mycket pengar som möjligt.
ECHO.
ECHO du göra detta genom att prova lyckan med en spelmaskin.
ECHO får du en kombination av tre eller mer, du får pengar.
ECHO.
ECHO.
ECHO hur mycket pengar du får styrs av din svårighetsgrad (lätt, medium
ECHO eller hårt).
ECHO.
ECHO att vinna, måste du nå en cash limit, återigen, detta är beroende av
ECHO dina svårigheter.
ECHO.
ECHO.
eko om du når $0 då du förlorar, och kan antingen börja igen eller avsluta.
ECHO.
ECHO.
ECHO.
ECHO tryck på valfri tangent för att gå tillbaka
Pausa > nul
goto Intro

: diff
CLS
ECHO Välj dina svårigheter
ECHO.
ECHO 1) Easy
Upprepa 2) Medium
Upprepa 3) Hard
Val/c 123 /n
om % errorlevel % equ 1 goto lätt
om % errorlevel % equ 2 goto med
om % errorlevel % equ 3 goto hårt

: lätt
CLS
satte runt = 0
ställa in diff = 1
Ange num1 = 2
Ange num2 = 1
Ställ in pengar = 500
gå till Play
: med
CLS
satte runt = 0
ställa in diff = 2
Ange num1 = 4
Ange num2 = 1
Ställ in pengar = 300
gå till play
: svårt
CLS
satte runt = 0
ställa in diff = 3
Ange num1 = 6
Ange num2 = 1
Ställ in pengar = 200
gå till play

: Spela
Ange/a runda = % rund % + 1
CLS
ECHO pengar: % pengar %
ECHO.
om % runda % equ 1 om % diff % equ 1 eko
om % runda % equ 1 om % diff % equ 2 eko
om % runda % equ 1 om % diff % equ 3 eko
om % runda % gtr 1 om % diff % equ 1 echo % TECK1% % TECK2% % char3%
om % runda % gtr 1 om % diff % equ 2 echo % TECK1% % TECK2% % char3% % char4% % char5%
om % runda % gtr 1 om % diff % equ 3 echo % TECK1% % TECK2% % char3% % char4% % char5% % char6% % char7%
ECHO.
om % runda % gtr 1 echo % msg
om % runda % gtr 1 echo pengar % faktor % av % belopp %
ECHO.
ECHO.
om % runda % equ 1 echo trycker du på valfri tangent för att börja snurra
om % runda % gtr 1 echo trycker du på valfri tangent för att gå igen
Pausa > nul
gå till spin

: spin
Ange antal = 0
ställa in TECK1 =
ställa in TECK2 =
ställa in char3 =
ställa in char4 =
ställa in char5 =
ställa in char6 =
ställa in char7 =
ställa in char8 =
ställa in char9 =
ställa in char10 =
gå till spin % diff %
: spin1
Set/a slot = % slumpmässiga % % % num1% + % num2%
Ange/a count = % count % + 1
om % kortplats % equ 1 set char % count % =
om % kortplats % equ 2 set char % count % =
om % kortplats % equ 3 set char % count % =
om % count % equ 3 goto kolla % diff %
gå till spin1
: spin2
Set/a slot = % slumpmässiga % % % num1% + % num2%
Ange/a count = % count % + 1
om % kortplats % equ 1 set char % count % =
om % kortplats % equ 2 set char % count % =
om % kortplats % equ 3 set char % count % =
om % kortplats % equ 4 set char % count % =
om % kortplats % equ 5 set char % count % =
om % count % equ 5 goto kolla % diff %
gå till spin2
: spin3
Set/a slot = % slumpmässiga % % % num1% + % num2%
Ange/a count = % count % + 1
om % kortplats % equ 1 set char % count % =
om % kortplats % equ 2 set char % count % =
om % kortplats % equ 3 set char % count % =
om % kortplats % equ 4 set char % count % =
om % kortplats % equ 5 set char % count % =
om % kortplats % equ 6 set char % count % =
om % kortplats % equ 7 set char % count % =
om % count % equ 7 goto kolla % diff %
gå till spin3
: check1
Ställ in win = 0
om % TECK1% equ % TECK2% om % TECK2% equ % char3% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $100
Ställ in/a pengar = % pengar % + 100
Ställ in win = 1
)
om % vinna % equ 0)
Ställ in kalibr.faktor = minskade
Ställ in msg = LOSE!
fast belopp = 10
Ställ in/a pengar = % pengar %-10
)
om % pengar % geq 5000 goto vinner
om % pengar % leq 0 goto förlorar
gå till play
: check2
Ställ in win = 0
om % TECK1% equ % TECK2% om % TECK2% equ % char3% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $50
Ställ in/a pengar = % pengar % + 50
Ställ in win = 1
gå till check3n
)
om % TECK2 equ % char3% om % char3% equ % char4% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $50
Ställ in/a pengar = % pengar % + 50
Ställ in win = 1
gå till check3n
)
om % char3% equ % char4% om % char4% equ % char5% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $50
Ställ in/a pengar = % pengar % + 50
Ställ in win = 1
gå till check3n
)
om % TECK1% equ % TECK2% om % TECK2 equ % char3% om % char3% equ % char4% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $75
Ställ in/a pengar = % pengar % + 75
Ställ in win = 1
gå till check3n
)
om % TECK2 equ % char3% om % char3% equ % char4% om % char4% equ % char5% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $75
Ställ in/a pengar = % pengar % + 75
Ställ in win = 1
gå till check3n
)
om % TECK1% equ % TECK2% om % TECK2 equ % char3% om % char3% equ % char4% om % char4% equ % char5% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $100
Ställ in/a pengar = % pengar % + 100
Ställ in win = 1
gå till check3n
)
: check3n
om % vinna % equ 0)
Ställ in kalibr.faktor = minskade
Ställ in msg = LOSE!
fast belopp = 20
Ställ in/a pengar = % pengar %-20
)
om % pengar % geq 1000 goto vinner
om % pengar % leq 0 goto förlorar
gå till play
: check3
Ställ in win = 0
om % TECK1% equ % TECK2% om % TECK2% equ % char3% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $25
Ställ in/a pengar = % pengar % + 25
Ställ in win = 1goto check3n
)
om % TECK2 equ % char3% om % char3% equ % char4% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $25
Ställ in/a pengar = % pengar % + 25
Ställ in win = 1
gå till check3n
)
om % char3% equ % char4% om % char4% equ % char5% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $25
Ställ in/a pengar = % pengar % + 25
Ställ in win = 1
gå till check3n
)
om % char4% equ % char5% om % char5% equ % char6% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $25
Ställ in/a pengar = % pengar % + 25
Ställ in win = 1
gå till check3n
)
om % char5% equ % char6% om % char6% equ % char7% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $25
Ställ in/a pengar = % pengar % + 25
Ställ in win = 1
gå till check3n
)
om % TECK1% equ % TECK2% om % TECK2 equ % char3% om % char3% equ % char4% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $50
Ställ in/a pengar = % pengar % + 50
Ställ in win = 1
gå till check3n
)
om % TECK2 equ % char3% om % char3% equ % char4% om % char4% equ % char5% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $50
Ställ in/a pengar = % pengar % + 50
Ställ in win = 1
gå till check3n
)
om % char3% equ % char4% om % char4% equ % char5% om % char5% equ % char6% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $50
Ställ in/a pengar = % pengar % + 50
Ställ in win = 1
gå till check3n
)
om % char4% equ % char5% om % char5% equ % char6% om % char6% equ % char7% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $50
Ställ in/a pengar = % pengar % + 50
Ställ in win = 1
gå till check3n
)
om % TECK1% equ % TECK2% om % TECK2 equ % char3% om % char3% equ % char4% om % char4% equ % char5% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $75
Ställ in/a pengar = % pengar % + 75
Ställ in win = 1
gå till check3n
)
om % TECK2 equ % char3% om % char3% equ % char4% om % char4% equ % char5% om % char5% equ % char6% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $75
Ställ in/a pengar = % pengar % + 75
Ställ in win = 1
gå till check3n
)
om % char3% equ % char4% om % char4% equ % char5% om % char5% equ % char6% om % char6% equ % char7% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $75
Ställ in/a pengar = % pengar % + 75
Ställ in win = 1
gå till check3n
)
om % TECK1% equ % TECK2% om % TECK2 equ % char3% om % char3% equ % char4% om % char4% equ % char5% om % char5% equ % char6% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $100
Ställ in/a pengar = % pengar % + 100
Ställ in win = 1
gå till check3n
)
om % TECK2 equ % char3% om % char3% equ % char4% om % char4% equ % char5% om % char5% equ % char6% om % char6% equ % char7% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $100
Ställ in/a pengar = % pengar % + 100
Ställ in win = 1
gå till check3n
)
om % TECK1% equ % TECK2% om % TECK2 equ % char3% om % char3% equ % char4% om % char4% equ % char5% om % char5% equ % char6% om % char6% equ % char7% ()
Ställ in kalibr.faktor = ökat
Ställ in msg = vinna!
fast belopp = $200
Ställ in/a pengar = % pengar % + 200
Ställ in win = 1
gå till check3n
)
: check3n
om % vinna % equ 0)
Ställ in kalibr.faktor = minskade
Ställ in msg = LOSE!
fast belopp = 20
Ställ in/a pengar = % pengar %-20
)
om % pengar % geq 500 goto vinner
om % pengar % leq 0 goto förlorar
gå till play

: vinna
CLS
ECHO Grattis!
ECHO.
ECHO du vann!
ECHO.
ECHO det tog dig % runda % rundor att uppnå totalt $% pengar %.
ECHO.
eko vill du spela igen? (J/N)
Val/c yn /n
om % errorlevel % equ 1 goto diff
Exit

: förlora
CLS
ECHO du förlorat!
ECHO.
ECHO du bara överlevde % runda % rundor.
ECHO.
ECHO tips: prova att spela på en enklare svårighetsgrad.
ECHO.
eko vill du spela igen? (J/N)
Val/c yn /n
om % errorlevel % equ 1 goto diff
Exit

: avsluta
CLS
ECHO kommer så snart? (J/N)
Val/c yn /n
om % errorlevel % equ 1 avslutar
goto Intro