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.