hatte mal zuviel langeweile:
Meinung posten nicht vergessen ! =)
Und versucht das erste Mal ohne Zettel,das Zufallsgenerierte Feldwählen muss ich mir noch ausdenken !
Code:
::Made by "Dankeschön"
@echo off
set O=0
set K=0
set Q=0
set /p X=Starten? (J)a oder (N)ein?
if "%X%"=="J" goto AUswahl
if "%X%"=="N" goto Ende
:Auswahl
set /p Y=Spielnummer (1-3)?
if "%Y%"=="1" goto Start1
if "%Y%"=="2" goto Start2
if "%Y%"=="3" goto Start3
if "%Y%"=="Cheatme" goto Cheatmodus
:Fehler
echo Falsche Eingabe
pause
goto Auswahl
:Cheatmodus
set /p K=Treffer Schiff 1:
set /p O=Treffer Schiff 2:
set /p Q=Siegpunkte:
echo Gecheatet
goto Start1
:Start1
echo Werte: a-e und 1 bis 5. Bitte nehmen Sie nichts doppelt.
set /p U=Bitte geben Sie ihre Koordinaten an!
echo.
if "%U%"=="a1" goto A1
if "%U%"=="a2" goto A2
if "%U%"=="a3" goto A3
if "%U%"=="a4" goto A4
if "%U%"=="a5" goto A5
if "%U%"=="b1" goto B1
if "%U%"=="b2" goto B2
if "%U%"=="b3" goto B3
if "%U%"=="b4" goto B4
if "%U%"=="b5" goto B5
if "%U%"=="c1" goto C1
if "%U%"=="c2" goto C2
if "%U%"=="c3" goto C3
if "%U%"=="c4" goto C4
if "%U%"=="c5" goto C5
if "%U%"=="d1" goto D1
if "%U%"=="d2" goto D2
if "%U%"=="d3" goto D3
if "%U%"=="d4" goto D4
if "%U%"=="d5" goto D5
if "%U%"=="e1" goto E1
if "%U%"=="e2" goto E2
if "%U%"=="e3" goto E3
if "%U%"=="e4" goto E4
if "%U%"=="e5" goto E5
if "%U%"=="" echo Falsche Eingabe!
if "%U%"=="" goto Start1
:Falsch
echo Sie haben eine falsche Eingabe gemacht.
pause
cls
goto Start1
:A1
echo Treffer!
set Q=1
set K=1
goto 12
:A2
echo Treffer!
set Q=1
set K=1
goto 12
:A3
echo Treffer!
set Q=1
set K=1
goto 12
:A4
echo Daneben!
goto 12
:A5
echo Treffer!
set Q=1
set O=1
goto 12
:B1
echo Daneben!
goto 12
:B2
echo Daneben!
goto 12
:B3
echo Daneben!
goto 12
:B4
echo Daneben!
goto 12
:B5
echo Treffer!
set Q=1
set O=1
goto 12
:C1
echo Daneben!
goto 12
:C2
echo Daneben!
goto 12
:C3
echo Daneben!
goto 12
:C4
echo Daneben!
goto 12
:C5
echo Treffer!
set Q=1
set O=1
goto 12
:D1
echo Daneben!
goto 12
:D2
echo Daneben!
goto 12
:D3
echo Daneben!
goto 12
:D4
echo Daneben!
goto 12
:D5
echo Daneben!
goto 12
:E1
echo Daneben!
goto 12
:E2
echo Daneben!
goto 12
:E3
echo Daneben!
goto 12
:E4
echo Daneben!
goto 12
:E4
echo Daneben!
goto 12
:12
echo.
echo Der Computer nimmt:
set /a Zufall1=%random% %%5+1
set /a random1=%random% %%5+1
goto Zufall%Zufall1%
:Zufall1
set Buch=a
echo %random1%%Buch%
set Zufw1=%random1%%Buch%
pause
goto auswertung1
:Zufall2
set Buch=b
echo %random1%%Buch%
set Zufw1=%random1%%Buch%
pause
goto auswertung1
:Zufall3
set Buch=c
echo %random1%%Buch%
set Zufw1=%random1%%Buch%
pause
goto auswertung1
:Zufall4
set Buch=d
echo %random1%%Buch%
set Zufw1=%random1%%Buch%
pause
goto auswertung1
:Zufall5
set Buch=e
echo %random1%%Buch%
set Zufw1=%random1%%Buch%
pause
goto auswertung1
:auswertung1
echo.
if %K%==0 echo 0 Treffer [Schiff 1]
if %O%==0 echo 0 Treffer [Schiff 2]
if %Q%==0 echo 0 Siegpunkte
if %K%==1 echo 1 Treffer [Schiff 1]
if %O%==1 echo 1 Treffer [Schiff 2]
if %Q%==1 echo 1 Siegpunkt
pause
cls
echo Runde 2.
set /p T=Koordinaten?
if "%T%"=="a1" goto A12
if "%T%"=="a2" goto A22
if "%T%"=="a3" goto A32
if "%T%"=="a4" goto A42
if "%T%"=="a5" goto A52
if "%T%"=="b1" goto B12
if "%T%"=="b2" goto B22
if "%T%"=="b3" goto B32
if "%T%"=="b4" goto B42
if "%T%"=="b5" goto B52
if "%T%"=="c1" goto C12
if "%T%"=="c2" goto C22
if "%T%"=="c3" goto C32
if "%T%"=="c4" goto C42
if "%T%"=="c5" goto C52
if "%T%"=="d1" goto D12
if "%T%"=="d2" goto D22
if "%T%"=="d3" goto D32
if "%T%"=="d4" goto D42
if "%T%"=="d5" goto D52
if "%T%"=="e1" goto E12
if "%T%"=="e2" goto E22
if "%T%"=="e3" goto E32
if "%T%"=="e4" goto E42
if "%T%"=="e5" goto E52
if %T%==%U% echo KEINE doppelten Angaben.
if %T%==%U% pause
if %T%==%U% goto 12
:Falsch2
echo Sie haben eine falsche Eingabe gemacht.
pause
cls
goto 12
:A12
echo Treffer!
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if %K%==1 set K=2
if %K%==0 set K=1
goto 13
:A22
echo Treffer!
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if %K%==1 set K=2
if %K%==0 set K=1
goto 13
:A32
echo Treffer!
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if %K%==1 set K=2
if %K%==0 set K=1
goto 13
:A42
echo Daneben!
goto 13
:A52
echo Treffer!
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if %O%==1 set O=2
if %O%==0 set O=1
goto 13
:B12
echo Daneben!
goto 13
:B22
echo Daneben!
goto 13
:B32
echo Daneben!
goto 13
:B42
echo Daneben!
goto 13
:B52
echo Treffer!
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if %O%==1 set O=2
if %O%==0 set O=1
goto 13
:C12
echo Daneben!
goto 13
:C22
echo Daneben!
goto 13
:C32
echo Daneben!
goto 13
:C42
echo Daneben!
goto 13
:C52
echo Treffer!
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if %O%==1 set O=2
if %O%==0 set O=1
goto 13
:D12
echo Daneben!
goto 13
:D22
echo Daneben!
goto 13
:D32
echo Daneben!
goto 13
:D42
echo Daneben!
goto 13
:D52
echo Daneben!
goto 13
:E12
echo Daneben!
goto 13
:E22
echo Daneben!
goto 13
:E32
echo Daneben!
goto 13
:E42
echo Daneben!
goto 13
:E42
echo Daneben!
goto 13
:13
echo.
echo Der Computer nimmt:
set /a Zufall2=%random% %%5+1
set /a random2=%random% %%5+1
goto Zufall%Zufall2%2
:Zufall12
set Buch=a
set Zufw2=%Random2%%Buch%
if %Zufw2%==%Zufw1% goto 13
echo %random2%%Buch%
pause
goto auswahl2
:Zufall22
set Buch=b
set Zufw2=%Random2%%Buch%
if %Zufw2%==%Zufw1% goto 13
echo %random2%%Buch%
pause
goto auswahl2
:Zufall32
set Buch=c
set Zufw2=%Random2%%Buch%
if %Zufw2%==%Zufw1% goto 13
echo %random2%%Buch%
pause
goto auswahl2
:Zufall42
set Buch=d
set Zufw2=%Random2%%Buch%
if %Zufw2%==%Zufw1% goto 13
echo %random2%%Buch%
pause
goto auswahl2
:Zufall52
set Buch=e
set Zufw2=%Random2%%Buch%
if %Zufw2%==%Zufw1% goto 13
echo %random2%%Buch%
pause
goto auswahl2
:auswahl2
echo.
if %K%==0 echo 0 Trefferpunkte [Schiff 1]
if %O%==0 echo 0 Trefferpunkte [Schiff 2]
if %Q%==0 echo 0 Siegpunkte
if %K%==2 echo 2 Trefferpunkte [Schiff 1]
if %K%==1 echo 1 Trefferpunkt [Schiff 1]
if %O%==2 echo 2 Trefferpunkte [Schiff 2]
if %O%==1 echo 1 Trefferpunkt [Schiff 2]
if %Q%==2 echo 2 Siegpunkte
if %Q%==1 echo 1 Siegpunkt
pause
cls
echo Runde 3.
set /p L=Koordinaten?
if "%L%"=="a1" goto A13
if "%L%"=="a2" goto A23
if "%L%"=="a3" goto A33
if "%L%"=="a4" goto A43
if "%L%"=="a5" goto A53
if "%L%"=="b1" goto B13
if "%L%"=="b2" goto B23
if "%L%"=="b3" goto B33
if "%L%"=="b4" goto B43
if "%L%"=="b5" goto B53
if "%L%"=="c1" goto C13
if "%L%"=="c2" goto C23
if "%L%"=="c3" goto C33
if "%L%"=="c4" goto C43
if "%L%"=="c5" goto C53
if "%L%"=="d1" goto D13
if "%L%"=="d2" goto D23
if "%L%"=="d3" goto D33
if "%L%"=="d4" goto D43
if "%L%"=="d5" goto D53
if "%L%"=="e1" goto E13
if "%L%"=="e2" goto E23
if "%L%"=="e3" goto E33
if "%L%"=="e4" goto E43
if "%L%"=="e5" goto E53
if %L%==%U% echo KEINE doppelten Angaben.
if %L%==%U% pause
if %L%==%U% goto 13
if %L%==%T% echo KEINE doppelten Angaben.
if %L%==%T% pause
if %L%==%T% goto 13
:Falsch3
echo Sie haben eine falsche Eingabe gemacht.
pause
cls
goto 13
:A13
echo Treffer!
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if %K%==2 set K=3
if %K%==1 set K=2
if %K%==0 set K=1
goto 14
:A23
echo Treffer!
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if %K%==2 set K=3
if %K%==1 set K=2
if %K%==0 set K=1
goto 14
:A33
echo Treffer!
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if %K%==2 set K=3
if %K%==1 set K=2
if %K%==0 set K=1
goto 14
:A43
echo Daneben!
goto 14
:A53
echo Treffer!
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if %O%==2 set O=3
if %O%==1 set O=2
if %O%==0 set O=1
goto 14
:B13
echo Daneben!
goto 14
:B23
echo Daneben!
goto 14
:B33
echo Daneben!
goto 14
:B43
echo Daneben!
goto 14
:B53
echo Treffer!
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if %O%==2 set O=3
if %O%==1 set O=2
if %O%==0 set O=1
goto 14
:C13
echo Daneben!
goto 14
:C23
echo Daneben!
goto 14
:C33
echo Daneben!
goto 14
:C43
echo Daneben!
goto 14
:C53
echo Treffer!
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if %O%==2 set O=3
if %O%==1 set O=2
if %O%==0 set O=1
goto 14
:D13
echo Daneben!
goto 14
:D23
echo Daneben!
goto 14
:D33
echo Daneben!
goto 14
:D43
echo Daneben!
goto 14
:D53
echo Daneben!
goto 14
:E13
echo Daneben!
goto 14
:E23
echo Daneben!
goto 14
:E33
echo Daneben!
goto 14
:E43
echo Daneben!
goto 14
:E43
echo Daneben!
goto 14
:14
echo Der Computer nimmt:
set /a Zufall3=%random% %%5+1
set /a random3=%random% %%5+1
goto Zufall%Zufall3%3
:Zufall13
set Buch=a
set Zufw3=%Random3%%Buch%
if %Zufw2%==%Zufw1% goto 14
if %Zufw3%==%Zufw2% goto 14
echo %random2%%Buch%
pause
goto auswahl3
:Zufall23
set Buch=b
set Zufw3=%Random3%%Buch%
if %Zufw2%==%Zufw1% goto 14
if %Zufw3%==%Zufw2% goto 14
echo %random2%%Buch%
pause
goto auswahl3
:Zufall33
set Buch=c
set Zufw3=%Random3%%Buch%
if %Zufw2%==%Zufw1% goto 14
if %Zufw3%==%Zufw2% goto 14
echo %random2%%Buch%
pause
goto auswahl3
:Zufall43
set Buch=d
set Zufw3=%Random3%%Buch%
if %Zufw2%==%Zufw1% goto 14
if %Zufw3%==%Zufw2% goto 14
echo %random2%%Buch%
pause
goto auswahl3
:Zufall53
set Buch=e
set Zufw3=%Random3%%Buch%
if %Zufw2%==%Zufw1% goto 14
if %Zufw3%==%Zufw2% goto 14
echo %random2%%Buch%
pause
goto auswahl3
:auswahl3
echo.
if %K%==0 echo 0 Trefferpunkte [Schiff 1]
if %O%==0 echo 0 Trefferpunkte [Schiff 2]
if %Q%==0 echo 0 Siegpunkte
if %K%==3 echo 3 Trefferpunkte- Schiff 1 versenkt
if %O%==3 echo 3 Trefferpunkte- Schiff 2 versenkt
if %Q%==3 echo 3 Siegpunkte
if %K%==2 echo 2 Trefferpunkte [Schiff 1]
if %K%==1 echo 1 Trefferpunkt [Schiff 1]
if %O%==2 echo 2 Trefferpunkte [Schiff 2]
if %O%==1 echo 1 Trefferpunkt [Schiff 2]
if %Q%==2 echo 2 Siegpunkte
if %Q%==1 echo 1 Siegpunkt
pause
cls
echo Runde 4.
set /p Z=Koordinaten?
if "%Z%"=="a1" goto A14
if "%Z%"=="a2" goto A24
if "%Z%"=="a3" goto A34
if "%Z%"=="a4" goto A44
if "%Z%"=="a5" goto A54
if "%Z%"=="b1" goto B14
if "%Z%"=="b2" goto B24
if "%Z%"=="b3" goto B34
if "%Z%"=="b4" goto B44
if "%Z%"=="b5" goto B54
if "%Z%"=="c1" goto C14
if "%Z%"=="c4" goto C44
if "%Z%"=="c5" goto C54
if "%Z%"=="d1" goto D14
if "%Z%"=="d2" goto D24
if "%Z%"=="d3" goto D34
if "%Z%"=="d4" goto D44
if "%Z%"=="d5" goto D54
if "%Z%"=="e1" goto E14
if "%Z%"=="e2" goto E24
if "%Z%"=="e3" goto E34
if "%Z%"=="e4" goto E44
if "%Z%"=="e5" goto E54
if %Z%==%T% echo KEINE doppelten Angaben.
if %Z%==%T% pause
if %Z%==%T% goto 14
if %Z%==%L% echo KEINE doppelten Angaben.
if %Z%==%L% pause
if %Z%==%L% goto 14
if %Z%==%U% echo KEINE doppelten Angaben.
if %Z%==%U% pause
if %z%==%U% goto 14
:Falsch4
echo Sie haben eine falsche Eingabe gemacht.
pause
cls
goto 14
:A14
if %Q%==3 set Q=4
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if "%K%"=="2" echo Schiff versenkt!
if "%K%"=="1" set K=1
if "%K%"=="0" set K=1
echo Treffer!
goto 15
:A24
if %Q%==3 set Q=4
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if "%K%"=="2" echo Schiff versenkt!
if "%K%"=="1" set K=1
if "%K%"=="0" set K=1
echo Treffer!
goto 15
:A34
if %Q%==3 set Q=4
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if "%K%"=="2" echo Schiff versenkt!
if "%K%"=="1" set K=1
if "%K%"=="0" set K=1
echo Treffer!
goto 15
:A44
echo Daneben!
goto 15
:A54
if %Q%==3 set Q=4
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if "%O%"=="2" echo Schiff versenkt!
if "%O%"=="1" set O=2
if "%O%"=="0" set O=1
echo Treffer!
goto 15
:B14
echo Daneben!
goto 15
:B24
echo Daneben!
goto 15
:B34
echo Daneben!
goto 15
:B44
echo Daneben!
goto 15
:B54
if %Q%==3 set Q=4
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if "%O%"=="2" echo Schiff versenkt!
if "%O%"=="1" set O=2
if "%O%"=="0" set O=1
echo Treffer!
goto 15
:C14
echo Daneben!
goto 15
:C24
echo Daneben!
goto 15
:C34
echo Daneben!
goto 15
:C44
echo Daneben!
goto 15
:C54
if %Q%==3 set Q=4
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if "%O%"=="2" echo Schiff versenkt!
if "%O%"=="1" set O=2
if "%O%"=="0" set O=1
echo Treffer!
goto 15
:D14
echo Daneben!
goto 15
:D24
echo Daneben!
goto 15
:D34
echo Daneben!
goto 15
:D44
echo Daneben!
goto 15
:D54
echo Daneben!
goto 15
:E14
echo Daneben!
goto 15
:E24
echo Daneben!
goto 15
:E34
echo Daneben!
goto 15
:E44
echo Daneben!
goto 15
:E44
echo Daneben!
goto 15
:15
if %K%==0 echo 0 Trefferpunkte [Schiff 1]
if %O%==0 echo 0 Trefferpunkte [Schiff 2]
if %Q%==0 echo 0 Siegpunkte
if %Q%==4 echo 4 Siegpunkte
if %K%==3 echo 3 Trefferpunkte- Schiff 1 versenkt
if %O%==3 echo 3 Trefferpunkte- Schiff 2 versenkt
if %Q%==3 echo 3 Siegpunkte
if %K%==2 echo 2 Trefferpunkte [Schiff 1]
if %K%==1 echo 1 Trefferpunkt [Schiff 1]
if %O%==2 echo 2 Trefferpunkte [Schiff 2]
if %O%==1 echo 1 Trefferpunkt [Schiff 2]
if %Q%==2 echo 2 Siegpunkte
if %Q%==1 echo 1 Siegpunkt
echo Runde 5.
set /p LS=Koordinaten?
if "%LS%"=="a1" goto A15
if "%LS%"=="a2" goto A25
if "%LS%"=="a3" goto A35
if "%LS%"=="a4" goto A45
if "%LS%"=="a5" goto A55
if "%LS%"=="b1" goto B15
if "%LS%"=="b2" goto B25
if "%LS%"=="b3" goto B35
if "%LS%"=="b4" goto B45
if "%LS%"=="b5" goto B55
if "%LS%"=="c1" goto C15
if "%LS%"=="c4" goto C45
if "%LS%"=="c5" goto C55
if "%LS%"=="d1" goto D15
if "%LS%"=="d2" goto D25
if "%LS%"=="d3" goto D35
if "%LS%"=="d4" goto D45
if "%LS%"=="d5" goto D55
if "%LS%"=="e1" goto E15
if "%LS%"=="e2" goto E25
if "%LS%"=="e3" goto E35
if "%LS%"=="e4" goto E45
if "%LS%"=="e5" goto E55
if %LS%==%Z% echo KEINE doppelten Angaben.
if %LS%==%Z% pause
if %LS%==%Z% goto 15
if %LS%==%T% echo KEINE doppelten Angaben.
if %LS%==%T% pause
if %LS%==%T% goto 15
if %LS%==%L% echo KEINE doppelten Angaben.
if %LS%==%L% pause
if %LS%==%L% goto 15
if %LS%==%U% echo KEINE doppelten Angaben.
if %LS%==%U% pause
if %LS%==%U% goto 15
:Falsch5
echo Sie haben eine falsche Eingabe gemacht.
pause
cls
goto 15
:A15
if %Q%==4 set Q=5
if %Q%==3 set Q=4
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if "%K%"=="2" echo Schiff versenkt!
if "%K%"=="1" set K=1
if "%K%"=="0" set K=1
echo Treffer!
goto 16
:A25
if %Q%==4 set Q=5
if %Q%==3 set Q=4
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if "%K%"=="2" echo Schiff versenkt!
if "%K%"=="1" set K=1
if "%K%"=="0" set K=1
echo Treffer!
goto 16
:A35
if %Q%==4 set Q=5
if %Q%==3 set Q=4
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if "%K%"=="2" echo Schiff versenkt!
if "%K%"=="1" set K=1
if "%K%"=="0" set K=1
echo Treffer!
goto 16
:A45
echo Daneben!
pause
goto 16
:A55
if %Q%==4 set Q=5
if %Q%==3 set Q=4
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if "%O%"=="2" echo Schiff versenkt!
if "%O%"=="1" set O=2
if "%O%"=="0" set O=1
echo Treffer!
goto 16
:B15
echo Daneben!
goto 16
:B25
echo Daneben!
goto 16
:B35
echo Daneben!
goto 16
:B45
echo Daneben!
goto 16
:B55
if %Q%==4 set Q=5
if %Q%==3 set Q=4
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if "%O%"=="2" echo Schiff versenkt!
if "%O%"=="1" set O=2
if "%O%"=="0" set O=1
echo Treffer!
goto 16
:C15
echo Daneben!
goto 16
:C25
echo Daneben!
goto 16
:C35
echo Daneben!
goto 16
:C45
echo Daneben!
goto 16
:C55
if %Q%==4 set Q=5
if %Q%==3 set Q=4
if %Q%==2 set Q=3
if %Q%==1 set Q=2
if %Q%==0 set Q=1
if "%O%"=="2" echo Schiff versenkt!
if "%O%"=="1" set O=2
if "%O%"=="0" set O=1
echo Treffer!
goto 16
:D15
echo Daneben!
goto 16
:D25
echo Daneben!
goto 16
:D35
echo Daneben!
goto 16
:D45
echo Daneben!
goto 16
:D55
echo Daneben!
goto 16
:E15
echo Daneben!
goto 16
:E25
echo Daneben!
goto 16
:E35
echo Daneben!
goto 16
:E45
echo Daneben!
goto 16
:E45
echo Daneben!
goto 16
:16
echo Nicht vollendet !
pause
exit
Meinung posten nicht vergessen ! =)
Und versucht das erste Mal ohne Zettel,das Zufallsgenerierte Feldwählen muss ich mir noch ausdenken !