Version vom 10. September 2013, 21:18 Uhr

Video

Zum Video

Script

@echo off
title Spieleset
color A

:int
set w1=@
set w2=_
set w3=_
set w4=_
set w5=A

:map
cls
echo.
echo.
echo.
echo         #%w1%%w2%%w3%%w4%%w5%#
echo.

choice /t 1 /N /C:QADC /D C > nul

if "%w1%"=="-" set w1=_&&goto npc
if "%w2%"=="-" set w2=_&&goto npc
if "%w3%"=="-" set w3=_&&goto npc
if "%w4%"=="-" set w4=_&&goto npc

if errorlevel 255 goto map
if errorlevel 4 goto npc
if errorlevel 3 goto rechts
if errorlevel 2 goto links
if errorlevel 1 goto hit
if errorlevel 0 goto map 

:rechts
if "%w5%"=="A" goto npc
if "%w4%"=="A" set w5=A&&set w4=_&&goto npc
if "%w3%"=="A" set w4=A&&set w3=_&&goto npc
if "%w2%"=="A" set w3=A&&set w2=_&&goto npc
if "%w1%"=="A" set w2=A&&set w1=_&&goto npc 

:links
if "%w1%"=="A" goto npc

if "%w2%"=="A" if "%w1%"=="@" set w2=_&&goto lose
if "%w2%"=="A" set w1=A&&set w2=_&&goto npc

if "%w3%"=="A" if "%w2%"=="@" set w3=_&&goto lose
if "%w3%"=="A" set w2=A&&set w3=_&&goto npc 

if "%w4%"=="A" if "%w3%"=="@" set w4=_&&goto lose
if "%w4%"=="A" set w3=A&&set w4=_&&goto npc

if "%w5%"=="A" if "%w4%"=="@" set w5=_&&goto lose
if "%w5%"=="A" set w4=A&&set w5=_&&goto npc

:hit
if "%w5%"=="A" set w4=-&&goto npc
if "%w4%"=="A" set w3=-&&goto npc
if "%w3%"=="A" set w2=-&&goto npc
if "%w2%"=="A" set w1=-&&goto npc
if "%w1%"=="A" goto npc 

:npc

set /a "npc=%random% %% 5+1"

if "%npc%"=="1" goto npclinks
if "%npc%"=="2" goto npclinks
if "%npc%"=="3" goto npcrechts
if "%npc%"=="4" goto npcrechts
if "%npc%"=="5" goto bleib

:npclinks
if "%w5%"=="@" set w4=@&&set w5=_&&goto map
if "%w4%"=="@" set w3=@&&set w4=_&&goto map
if "%w3%"=="@" set w2=@&&set w3=_&&goto map
if "%w2%"=="@" set w1=@&&set w2=_&&goto map
if "%w1%"=="@" goto map 

goto map

:npcrechts
if "%w5%"=="@" goto map 

if "%w4%"=="@" if "%w5%"=="A" set w5=@&&set w4=_&&goto lose

if "%w3%"=="@" if "%w4%"=="A" set w4=@&&set w3=_&&goto lose
if "%w3%"=="@" if "%w4%"=="-" set w3=_&&goto map
if "%w3%"=="@" set w4=@&&set w3=_&&goto map

if "%w2%"=="@" if "%w3%"=="A" set w3=@&&set w2=_&&goto lose
if "%w2%"=="@" if "%w3%"=="-" set w2=_&&goto map
if "%w2%"=="@" set w3=@&&set w2=_&&goto map

if "%w1%"=="@" if "%w2%"=="A" set w2=@&&set set w1=_&&goto lose
if "%w1%"=="@" if "%w2%"=="-" set w1=_&&goto map
if "%w1%"=="@" set w2=@&&set w1=_&&goto map

:bleib
goto map

:lose
cls
echo.
echo.
echo.
echo         #%w1%%w2%%w3%%w4%%w5%#
echo.
timeout /t 3 /nobreak > nul
goto int