RE: Calling all Scenario Designers
Posted: Sun May 15, 2016 12:12 pm
by rico21
THE UNITS
include "Functions.BSF"
FUNCTION StartTurn(side)
{
int i ;
int time ;
int j ;
int x ;
int y ;
int xx ;
int yy ;
int id ;
int status ;
int random ;
int team ;
if ( GetTurn() == -1 )
{
PreBattleSetup();
}
//redeploiement aleatoire des unites sous couvert respectif
if (GetTurn() == -1 )
{
AddVizFunctionCall("GetHeadImage", 0, "BP0Image:", 13)
ShowUIScreenToSide("BattlePop0", "Anim1", "IDS_AUTO_REINF_1", GetWorkString(13), 0)
//Steiner'Men
PlaceUnit(17, 16, 2, 0, 0, "ITALIAN_LMG")//weapon
PlaceUnit(18, 16, 2, 0, 0, "ITALIAN_DEMOLISHER")//1line
PlaceUnit(19, 16, 2, 0, 0, "ITALIAN_LMG")//weapon
PlaceUnit(16, 17, 2, 0, 0, "ITALIAN_INFANTRY")//1line
PlaceUnit(17, 17, 2, 0, 0, "ITALIAN_INFANTRY")//1line
PlaceUnit(18, 17, 2, 0, 0, "ITALIAN_INFANTRY")//1line
PlaceUnit(19, 17, 2, 0, 0, "ITALIANSCOUT")//1line
PlaceUnit(16, 18, 2, 0, 0, "SEMOVENTE_47_32")//su-76i
PlaceUnit(17, 18, 2, 0, 0, "SEMOVENTE_47_32")//su-76i
PlaceUnit(18, 18, 2, 0, 0, "SEMOVENTE_47_32")//su-76i
PlaceUnit(16, 19, 2, 0, 0, "CARRO_ARMATO_L640")//t26s
PlaceUnit(17, 19, 2, 0, 0, "CARRO_ARMATO_L640")//t26s
PlaceUnit(18, 19, 2, 0, 0, "CARRO_ARMATO_L640")//t26s
PlaceUnit(16, 20, 2, 0, 0, "VOLKSGRENADIER")//engeener
PlaceUnit(17, 20, 2, 0, 0, "SOVIET_ASSAULT_SMG")//engeener
PlaceUnit(18, 20, 2, 0, 0, "BRANDENBURGER")//engeener
PlaceUnit(16, 21, 2, 0, 0, "ITALIAN_BERSAGLIERI")//elite
PlaceUnit(17, 21, 2, 0, 0, "ITALIAN_BERSAGLIERI")//elite
PlaceUnit(18, 21, 2, 0, 0, "ITALIAN_BERSAGLIERI")//elite
PlaceUnit(18, 23, 3, 0, 0, "ITALIAN_MORTAR")//weapon
PlaceUnit(16, 24, 1, 0, 0, "ITALIAN_HMG")//weapon
//FOE
PlaceUnit(38, 37, 0, 1, 0, "GERMAN_MG34")//weapon
PlaceUnit(38, 38, 0, 1, 0, "GERMAN_MG34")//weapon
PlaceUnit(44, 38, 0, 1, 0, "GERMAN_OSTRUPPEN")//2line
PlaceUnit(44, 39, 0, 1, 0, "GERMAN_OSTRUPPEN")//2line
PlaceUnit(44, 40, 0, 1, 0, "GERMAN_OSTRUPPEN")//2line
PlaceUnit(44, 41, 0, 1, 0, "GERMAN_OSTRUPPEN")//2line
PlaceUnit(45, 37, 0, 1, 0, "GERMAN_OSTRUPPEN")//2line
PlaceUnit(44, 37, 0, 1, 0, "GERMAN_OSTRUPPEN")//2line
PlaceUnit(45, 42, 0, 1, 0, "GERMAN_OSTRUPPEN")//2line
PlaceUnit(44, 42, 0, 1, 0, "GERMAN_OSTRUPPEN")//2line
PlaceUnit(42, 37, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(42, 38, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(42, 39, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(42, 40, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(42, 41, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(42, 42, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(41, 37, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(41, 38, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(41, 39, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(41, 40, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(41, 41, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(41, 42, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(45, 38, 0, 1, 0, "GERMAN_OSTRUPPEN")//2line
PlaceUnit(45, 39, 0, 1, 0, "GERMAN_OSTRUPPEN")//2line
PlaceUnit(45, 40, 0, 1, 0, "GERMAN_OSTRUPPEN")//2line
PlaceUnit(45, 41, 0, 1, 0, "GERMAN_OSTRUPPEN")//2line
PlaceUnit(40, 37, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(40, 38, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(40, 39, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(40, 40, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(40, 41, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(40, 42, 0, 1, 0, "WAFFEN_SS")
PlaceUnit(39, 37, 0, 1, 0, "GERMAN_SCOUT")//1line
PlaceUnit(39, 38, 0, 1, 0, "GERMAN_SCOUT")//1line
PlaceUnit(38, 39, 0, 1, 0, "GERMAN_INFANTRY")//1line
PlaceUnit(38, 40, 0, 1, 0, "GERMAN_INFANTRY")//1line
PlaceUnit(38, 41, 0, 1, 0, "GERMAN_INFANTRY")//1line
PlaceUnit(38, 42, 0, 1, 0, "GERMAN_INFANTRY")//1line
PlaceUnit(43, 38, 0, 1, 0, "STUGG")
PlaceUnit(43, 40, 0, 1, 0, "PANZERIV_F2")
PlaceUnit(43, 37, 0, 1, 0, "TIGER")
PlaceUnit(39, 42, 0, 1, 0, "88MM")
PlaceUnit(39, 41, 0, 1, 0, "75MM_PAK40")
PlaceUnit(39, 40, 0, 1, 0, "GERMAN_MORTAR")//weapon
PlaceUnit(39, 39, 0, 1, 0, "GERMAN_MG42")//weapon
PlaceUnit(43, 39, 0, 1, 0, "STUGG")
PlaceUnit(43, 41, 0, 1, 0, "PANZERIV_F2")
}
time = GetGlobal("time")
if((side == 0) && (GetTurn() == time))
{
id = PlaceUnit(27, 42, 2, 0, 0, "SOVIET_PARTISAN_MOLOTOV")//wea.
AddVizCam(GetUnitX(id), GetUnitY(id), 0)
AddVizFunctionCall("ShowUIScreen", "BattleHead0", "Anim1", "IDS_STALAG_1", "BHead0Image:german_infantry_head")
//Steiner Reinforcement Ghetto units
id = PlaceUnit(27, 45, 2, 0, 0, "SOVIET_PARTISAN_MOLOTOV")//cons
id = PlaceUnit(21, 43, 2, 0, 0, "SOVIET_PARTISAN_MOLOTOV")//cons
id = PlaceUnit(21, 44, 2, 0, 0, "SOVIET_PARTISAN_MOLOTOV")//cons
id = PlaceUnit(23, 43, 2, 0, 0, "SOVIET_PARTISAN_MOLOTOV")//cons
id = PlaceUnit(24, 44, 2, 0, 0, "SOVIET_PARTISAN_MOLOTOV")//cons
id = PlaceUnit(19, 44, 3, 0, 0, "SOVIET_PARTISAN_LMG")//weapon
id = PlaceUnit(23, 44, 3, 0, 0, "SOVIET_PARTISAN_LMG")//weapon
id = PlaceUnit(26, 42, 2, 0, 0, "SOVIET_PARTISAN_LMG")//weapon
id = PlaceUnit(26, 43, 3, 0, 0, "SOVIET_PARTISAN")//2line
id = PlaceUnit(24, 43, 3, 0, 0, "SOVIET_PARTISAN")//2line
id = PlaceUnit(20, 44, 3, 0, 0, "SOVIET_PARTISAN")//2line
id = PlaceUnit(19, 43, 3, 0, 0, "SOVIET_PARTISAN")//2line
id = PlaceUnit(18, 42, 3, 0, 0, "SOVIET_PARTISAN_SNIPER")//weap.
id = PlaceUnit(20, 43, 3, 0, 0, "SOVIET_SABOTEUR")//1line
id = PlaceUnit(23, 45, 3, 0, 0, "SOVIET_SABOTEUR")//1line
id = PlaceUnit(26, 44, 3, 0, 0, "SOVIET_SABOTEUR")//1line
}
if((side == 0) && (GetTurn() == time+2))
{
id = PlaceUnit(35, 41, 6, 1, 7, "SDKFZ251_2_MORTAR")
AddVizCam(GetUnitX(id), GetUnitY(id), 0)
AddVizFunctionCall("ShowUIScreen", "BattleHead0", "Anim1", "IDS_STALAG_2", "BHead0Image:german_infantry_head")
//Foe Reinforcement
id = PlaceUnit(34, 42, 6, 1, 7, "SDKFZ251_21")
id = PlaceUnit(34, 41, 6, 1, 7, "SDKFZ251_HALFTRACK")
id = PlaceUnit(35, 43, 6, 1, 7, "SDKFZ251_16_FLAME")//wea.
id = PlaceUnit(34, 43, 6, 1, 7, "SDKFZ251_HALFTRACK")
id = PlaceUnit(35, 42, 6, 1, 7, "STUH42")
id = PlaceUnit(36, 43, 6, 1, 7, "WAFFEN_SS")
id = PlaceUnit(37, 43, 6, 1, 7, "WAFFEN_SS")
id = PlaceUnit(37, 41, 6, 1, 7, "WAFFEN_SS")
id = PlaceUnit(36, 41, 5, 1, 7, "WAFFEN_SS")
id = PlaceUnit(36, 42, 6, 1, 7, "GERMAN_ENGINEER")//engee.
id = PlaceUnit(37, 42, 6, 1, 7, "GERMAN_FLAMETHROWER")//w.
id = PlaceUnit(38, 42, 6, 1, 7, "GERMAN_MG34")//weapon
id = PlaceUnit(38, 43, 6, 1, 7, "GERMAN_INFANTRY")//elite
id = PlaceUnit(38, 41, 6, 1, 7, "GERMAN_INFANTRY")//elite
}
}
FUNCTION Tick(side)
{
int id ;
//Steiner Reinforcement Repair Workshop
//check if vp are hold
if ((GetScriptGlobal("Slith_VictoryPoints", "VP#0") == 0) && (GetGlobal("atelier") == 0))
{
id = PlaceUnit(47, 21, 6, 0, 0, "STUGG")//su122
AddVizCam(GetUnitX(id), GetUnitY(id), 0)
AddVizFunctionCall("ShowUIScreen", "BattleHead0", "Anim1", "IDS_STALAG_3", "BHead0Image:german_infantry_head")
id = PlaceUnit(47, 20, 6, 0, 0, "NASHORN")//su152
SetGlobal("atelier",1);
}