www.boul.de
VGA Planets - Druckversion

+- www.boul.de (https://www.boul.de)
+-- Forum: Pinwand (https://www.boul.de/forumdisplay.php?fid=10)
+--- Forum: Spiel-"Zeug" (https://www.boul.de/forumdisplay.php?fid=26)
+--- Thema: VGA Planets (/showthread.php?tid=215)



VGA Planets - Fnups - 22.05.2016

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.