Benutzer:Techno DJ/Character+NPC-Script
Aus chessmail Wiki
Videos
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