22.05.2016, 02:51:11
Batch
Code:
@echo off
set gamedir=
set gamedsc=
set racenam2=
set racename=
set racenum=
set racenum2=
set turn=
:menugame
cls
echo VGA Planets 3.0 STarT-Up-BaTch for FreeDOS (www.freedos.org)
::^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
echo.
echo.
echo (-) Quit
echo (S)etup
echo (1) Game 1 [free]
::if not exist game1\_name.txt type game1\_name.txt echo (1) Game 1 [free]
echo.
::if exist game1/beamspec.dat echo (2) Game 2
echo (2) Game 2 [free]
echo.
echo (3) Game 3 [free]
echo.
echo (4) Game 4 [free]
echo.
echo (5) Game 5 [free]
echo.
echo (6) Game 6 [free]
echo.
echo (A) Setup Host 1 [free]
echo (B) Setup Host 2 [free]
echo (C) Setup Host 3 [free]
echo (D) Setup Host 4 [free]
choice /C:-s123456abcd /n your choice:
IF ERRORLEVEL 12 goto host4
IF ERRORLEVEL 11 goto host3
IF ERRORLEVEL 10 goto host2
IF ERRORLEVEL 9 goto host1
IF ERRORLEVEL 8 goto game6
IF ERRORLEVEL 7 goto game5
IF ERRORLEVEL 6 goto game4
IF ERRORLEVEL 5 goto game3
IF ERRORLEVEL 4 goto game2
IF ERRORLEVEL 3 goto game1
IF ERRORLEVEL 2 goto setup
IF ERRORLEVEL 1 goto done
:game1
set gamedir=game1
set gamedsc=xxx
goto menurace
:game2
set gamedir=game2
set gamedsc=xxx
goto menurace
:game3
set gamedir=game3
set gamedsc=xxx
goto menurace
:game4
set gamedir=game4
set gamedsc=xxx
goto menurace
:game5
set gamedir=game5
set gamedsc=xxx
goto menurace
:game6
set gamedir=game6
set gamedsc=xxx
goto menurace
:host1
:host2
:host3
:host4
:setup
goto menugame
:menurace
if exist %gamedir%\_head del %gamedir%\_head>nul
for %%z in (1,2,3,4,5,6,7,8,9,10,11) do if exist %gamedir%\player%%z.rst copy %gamedir%\player%%z.rst %gamedir%\player%%z.rsl
if not exist %gamedir%\gen5.dat if exist %gamedir%\*.rst ccunpack.exe /w %gamedir%
cls
echo Game %gamedir% - %gamedsc%
echo.
echo.
echo (-) Quit
echo (L)ast menu
if exist _host*.bat echo (H)ostrun
echo.
echo.
if exist %gamedir%\gen1.dat echo (1) The Solar Federation
if exist %gamedir%\gen2.dat echo (2) The Lizard Alliance
if exist %gamedir%\gen3.dat echo (3) The Empire of the Birds
if exist %gamedir%\gen4.dat echo (4) The Fascist Empire
if exist %gamedir%\gen5.dat echo (5) The Privateer Bands
if exist %gamedir%\gen6.dat echo (6) The Cyborg Collective
if exist %gamedir%\gen7.dat echo (7) The Crystal Confederation
if exist %gamedir%\gen8.dat echo (8) The Evil Empire
if exist %gamedir%\gen9.dat echo (9) The Robotic Imperium
if exist %gamedir%\gena.dat echo (a) The Rebel Confederation
if exist %gamedir%\genb.dat echo (b) The Missing Colonies of Man
echo.
choice /C:-l123456789abh /n Race:
IF ERRORLEVEL 14 goto hostrun
IF ERRORLEVEL 13 goto raceb
IF ERRORLEVEL 12 goto racea
IF ERRORLEVEL 11 goto race9
IF ERRORLEVEL 10 goto race8
IF ERRORLEVEL 9 goto race7
IF ERRORLEVEL 8 goto race6
IF ERRORLEVEL 7 goto race5
IF ERRORLEVEL 6 goto race4
IF ERRORLEVEL 5 goto race3
IF ERRORLEVEL 4 goto race2
IF ERRORLEVEL 3 goto race1
IF ERRORLEVEL 2 goto menugame
IF ERRORLEVEL 1 goto done
:race1
if not exist %gamedir%\gen1.dat goto menurace
set racename=The Solar Federation
set racenam2=The Feds
set racenum=1
set racenum2=1
goto menumain
:race2
if not exist %gamedir%\gen2.dat goto menurace
set racename=The Lizard Alliance
set racenam2=The Lizards
set racenum=2
set racenum2=2
goto menumain
:race3
if not exist %gamedir%\gen3.dat goto menurace
set racename=The Empire of the Birds
set racenam2=The Bird Men
set racenum=3
set racenum2=3
goto menumain
:race4
if not exist %gamedir%\gen4.dat goto menurace
set racename=The Fascist Empire
set racenam2=The Fascists
set racenum=4
set racenum2=4
goto menumain
:race5
if not exist %gamedir%\gen5.dat goto menurace
set racename=The Privateer Bands
set racenam2=The Privateers
set racenum=5
set racenum2=5
goto menumain
:race6
if not exist %gamedir%\gen6.dat goto menurace
set racename=The Cyborg Collective
set racenam2=The Cyborgs
set racenum=6
set racenum2=6
goto menumain
:race7
if not exist %gamedir%\gen7.dat goto menurace
set racename=The Crystal Confederation
set racenam2=The Crystal People
set racenum=7
set racenum2=7
goto menumain
:race8
if not exist %gamedir%\gen8.dat goto menurace
set racename=The Evil Empire
set racenam2=The Evil Empire
set racenum=8
set racenum2=8
goto menumain
:race9
if not exist %gamedir%\gen9.dat goto menurace
set racename=The Robotic Imperium
set racenam2=The Robots
set racenum=9
set racenum2=9
goto menumain
:racea
if not exist %gamedir%\gena.dat goto menurace
set racename=The Rebel Confederation
set racenam2=The Rebels
set racenum=10
set racenum2=a
goto menumain
:raceb
if not exist %gamedir%\genb.dat goto menurace
set racename=The Missing Colonies of Man
set racenam2=The Colonies
set racenum=11
set racenum2=b
goto menumain
:hostrunx
::call _host1.bat
::call host1\arun1.bat
:: und rst zur?ckkopieren... copy host1234\player%racenum%.rst %gamedir
goto menurace
:menumain
echo %racenam2%... with love ;-)
:menumain2
echo ~GENERAL>_turn.frm
echo ~FORMAT>>_turn.frm
echo Game %gamedsc%, Turn ###>>_turn.frm
echo ~PRINT>>_turn.frm
echo Turn>>_turn.frm
vpa.exe %racenum% %gamedir% /b /rep:_turn.frm,_head>nul
del _turn.frm>nul
:menumain3
cls
type %gamedir%\_head
echo Race %racenum2% - %racename%
echo.
echo send your (M)aketurn (-) Quit
echo Re(U)npack last .RST (L)ast menu
if exist _host*.bat echo (H)ostrun
echo.
echo (2) RandGen (3) RandMax
echo (1) start VPA (4) VPA-Features
echo.
if exist viewmess.exe echo (5) View Messages
if exist ships.exe echo (6) Ships
echo.
echo (7) start PCC (8) FCs-List
echo.
choice /C:-lmu12345678 /n your choice:
IF ERRORLEVEL 12 goto fcslist
IF ERRORLEVEL 11 goto runpcc
IF ERRORLEVEL 10 goto shipview
IF ERRORLEVEL 9 goto viewmess
IF ERRORLEVEL 8 goto vpafeat
IF ERRORLEVEL 7 goto randmax
IF ERRORLEVEL 6 goto randgen
IF ERRORLEVEL 5 goto vpa
IF ERRORLEVEL 4 goto reunpack
IF ERRORLEVEL 3 goto maketurn
IF ERRORLEVEL 2 goto menurace
IF ERRORLEVEL 1 goto done
::viewmess, (sendmess), ships, plantabl
::shipnames
:: ------------------> VPUNPACK
:fcslist
list FCSthost.TXT
goto menumain3
:runpcc
cc\cc.exe %gamedir%
goto menumain3
:shipview
ships %gamedir%
goto menumain3
:viewmess
viewmess.exe %gamedir%
goto menumain3
:randgen
randgen.exe %gamedir% /p%racenum% /n
goto menumain3
:randmax
echo.
randmax.exe -w -p%racenum% %gamedir%
goto menumain3
:vpa
vpa.exe %racenum% %gamedir% /S
goto menumain3
:vpafeat
goto menumain3
:reunpack
echo.
::sicherheitsabfrage
choice /n /t:n,5 unpacking again... really (y/N)?
IF ERRORLEVEL 2 goto menumain3
echo.
copy %gamedir%\player%racenum%.rsl %gamedir%\player%racenum%.rst>nul
ccunpack %gamedir%
::del %gamedir%\player%racenum%.rst>nul
goto menumain2
:maketurn
::maketurn.exe %gamedir%
choice
:: Destination vorher festlegen
:: copy player%racenum%.trn ::zum jeweiligen Ziel. if not speficfied, nach EXPORT!
goto menumain2
::hostrun
::setup
::setup VPA
::---> vpadat*.ini ::accept data
ACCEPTDATA0 = NO
ACCEPTDATA1 = NO
ACCEPTDATA2 = NO
ACCEPTDATA3 = NO
ACCEPTDATA4 = NO
ACCEPTDATA5 = NO
ACCEPTDATA6 = NO
ACCEPTDATA7 = NO
ACCEPTDATA8 = NO
ACCEPTDATA9 = NO
ACCEPTDATA10 = NO
ACCEPTDATA11 = NO
::---> vpaclr*.ini ::enemy/ally/own
RACECOLOR1 = ENEMY
RACECOLOR2 = ENEMY
RACECOLOR3 = ENEMY
RACECOLOR4 = OWN
RACECOLOR5 = ENEMY
RACECOLOR6 = ENEMY
RACECOLOR7 = ENEMY
RACECOLOR8 = ENEMY
RACECOLOR9 = ENEMY
RACECOLOR10 = ENEMY
RACECOLOR11 = ENEMY
vpa /m
goto menumain2
::installthis
:done
echo.
Eines der nützlichsten Tiere ist das Schwein. Von ihm kann man alles verwenden, das Fleisch von vorn bis hinten, die Haut für Leder, die Borsten für Bürsten und den Namen als Schimpfwort. 