Major Change Only server side handle server script, now it's fully persistent

Author: phr0gz

source/INIT.sqf

@@ -1,166 +1,21 @@
 diag_log format ["------------------ DUWS-R START ----v0------ player: %1", profileName];
 
-//////////////////////////////////////////////////////
-//  HOW TO MANUALLY CREATE THE MISSION:   
-//  1)YOU MUST PLACE THE HQ LOCATION
-//  2)DEFINE THE CAPTURABLE ZONES
-//  -- YOU CAN ALSO JUST PUT A HQ SOMEWHERE AND LET THE ZONES BEING RANDOMLY GENERATED
-//  -- YOU MUST PLACE MANUALLY THE HQ IF YOU ARE ALREADY PLACING THE ZONES BY HAND 
-//  3) DONT FORGET TO DEFINE THE VARIABLES BELOW. If you are ONLY placing the HQ by hand, you just need to put "hq_manually_placed" to 
-//     "true" instead of "false". If you are also placing the zones by hand, make "zones_manually_placed" to "true".
-/////////////////////////////////////////////////////////////
-//  1) In the gamelogic, for the HQ( !! MAKE ONLY ONE HQ !!): _null=[getpos this] execVM "initHQ\BluHQinit.sqf" 
-// 
-//  2) In the init of gamelogic, to create a capturable enemy zone: 
-//      _null = ["zone name",pts awarded upon capture, zone radius,getpos this,false/true,false/true] execvm "createzone.sqf";
-//        "zone name": name of the zone
-//        pts awarded upon capture: points you earn when you capture the zone. Also the amount of points of army power you take and receive
-//          from the enemy after capture
-//        zone radius: how large the zone is
-//        getpos this: It's the position of the zone. The gamelogic actually. You don't have to modify this.
-//        false/true: if the zone is fortified or not. If the zone is fortified, there will be a bit more enemies and they will be maning 
-//          static defences if there are any
-//        false/true: if the zone is selecting randomly a prefab base. Prefab is selected according to the zone radius. The bigger the zone,
-//          the bigger the prefab asset will be chosen.
-//
-//  EXAMPLE, in the init of a gamelogic you have placed on the map:
-//    _null=["OP Xander",20,200,getpos this,true,false] execvm "initZones\createzone.sqf"
-//
-//  3) Define these variables:
-
-// choose between "tropical" - "arid" - "temperate" - "temperate_cold" - "mediterranean"
-if (isNil "weather_type") then {weather_type = "tropical";};
-// set the skill range of ennemy AI
-if (isNil "opfor_ai_skill") then {opfor_ai_skill = [0.1,0.3];};
-// set the skill range of friendly AI, from 0 to 1 (0 being completely dumb)
-if (isNil "blufor_ai_skill") then {blufor_ai_skill = [0.4,0.7];};
-
-// you must specify if you have manually placed HQ or not. false = HQ is randomly placed, true = you have manually placed the HQ
-hq_manually_placed = false;
-// you must specify if you have manually placed the zones or not. false = zones are randomly generated, true = you have manually placed the zones
-zones_manually_placed = false;  
-zones_max_dist_from_hq = 7500;
-dynamic_weather_enable = true;		
-maually_chosen = false;
-
-if (isNil "enable_fast_travel") then { enable_fast_travel = true; };
-// chopper taxi (support) will fast travel (teleport) or not
-if (isNil "enableChopperFastTravel") then { enableChopperFastTravel = true; };	
-// Starting CP
-if (isNil "commandpointsblu1") then { commandpointsblu1 = 20; };
-// STARTING ARMY POWER
-if (isNil "blufor_ap") then {blufor_ap = 0;};
-opfor_ap = 0; 
-
-///////////////////////////////////////////////////////
-// initialise variables
-//////////////////////////////////////////////////////
-// MOST OF THE VALUES ARE BEING OVERWRITTEN BY PLAYER INPUT AT THE BEGINNING
-//////////////////////////////////////////////////////
- 
-/////////////////////////////////////////////////////////////
-debugmode = false;  // Debug mode, kind of obsolete
-/// ------------- VALUES UNDER THIS ARE OVERWRITTEN
-zones_number = 9; // Number of capturables zones to create (when zones are created randomly)
-zones_spacing = 1200; // minimum space between 2 zones (in meters) // SOON OBSOLETE
-zones_max_radius = 1000;   // Determine the maximum radius a generated zone can have   
-zones_min_radius = 200; // Determine the minium radius a generated zone can have. SHOULD NOT BE UNDER 200.
-
-///////////////////////////////////////////////////////
-// This mission will have a harder time generating stuff if a lot of the terrain of the island is sloped, meaning that valid locations
-// will be harder/take longer to find (side missions, mission init).
-// Keep that in mind when tweaking the zones amount/radius value.
-/////////////////////////////////////////////////////////
-// preprocess the qrf file for the EH
-QRF_test = compile preprocessFile "WARCOM\WARCOM_opf_qrf.sqf";
-persistent_stat_script_init = [] execVM "persistent\persistent_stats_init.sqf";
-waitUntil {scriptDone persistent_stat_script_init};
-execvm "dynamic_music\dyn_music_init.sqf";
-
-// nber of missions succes(!!dont touch!!)
-missions_success = 0;
-
-zones_created = false;
-blu_hq_created = false;
-can_get_mission = true;
-failsafe_zones_not_found = false;
-createcenter sideLogic;
-LogicGroup = createGroup SideLogic;
-PAPABEAR=[West,"HQ"];
-locator_hq_actived = false;
-op_zones_index = 0;
-clientisSync = false;
-fobSwitch = false;
-player_is_choosing_hqpos = false;
-
-if (isNil "amount_zones_created") then {
-    amount_zones_created = 0;
-};
-
-if (isNil "HQ_pos_found_generated") then {
-    HQ_pos_found_generated = false;
-}; 	
-
-if (isNil "chosen_settings") then {
-    chosen_settings = false;
-};
-
-if (isNil "chosen_hq_placement") then {
-    chosen_hq_placement = false;
-};
-	
-if (isNil "zoneundercontrolblu") then {
-	zoneundercontrolblu = 0;
-};
-
-if (isNil "amount_zones_captured") then {
-	amount_zones_captured = 0;
-};
-
-if (isNil "savegameNumber") then {	
-	savegameNumber = 0;
-};
-
-if (isNil "capturedZonesNumber") then {	
-	capturedZonesNumber = 0;
-};	
-
-if (isNil "finishedMissionsNumber") then {	
-	finishedMissionsNumber = 0;
-};	
 
-if (isNil "OvercastVar") then {	
-	OvercastVar = 0;
-};	
-
-if (isNil "FogVar") then {	
-	FogVar = 0;
-};
+if (isServer) then { nul = [] execVM "serverinit.sqf"; };
+if (isDedicated) exitWith {};
+waitUntil {!isNull player};
 
-// this is a special one (if/else)
-if (isNil "Array_of_FOBS") then {
-    // if the player is sp or server or no fobs have been created
-	Array_of_FOBS = [];
-}
-else /// JIP for the client
-{
-    {
-        [_x] execVM "support\FOBactions.sqf";
-    } forEach Array_of_FOBS;
-};
+player allowDamage false;
 
-if (isNil "Array_of_FOBname") then {
-	Array_of_FOBname = [];
-};
+persistent_stat_script_init = [] execVM "persistent\persistent_stats_init.sqf";
+waitUntil {scriptDone persistent_stat_script_init};
+execvm "dynamic_music\dyn_music_init.sqf";
 
-game_master = ["player1"];
-	
-player allowDamage false;
 
 #include "dialog\supports_init.hpp"
 #include "dialog\squad_number_init.hpp"
 
-execVM "misc\gps_marker.sqf";
+if (hasInterface) then { execVM "misc\gps_marker.sqf";};
 if (!isMultiplayer) then {
 	getsize_script = [player] execVM "mapsize.sqf";
 };	
@@ -206,6 +61,9 @@ if (isMultiplayer) then {
         "finishedMissionsNumber" addPublicVariableEventHandler {[] execVM "persistent\persistent_stats_missions_total.sqf";}; // change the shown CP for request dialog	
 	};	
 
+	player globalChat format ["gamemaster: %1", game_master];
+	player globalChat format ["HQ_pos_found_generated: %1", HQ_pos_found_generated];
+	
 	if (!isDedicated && !HQ_pos_found_generated) then { // SERVER INIT
 		if (((vehiclevarname player) in game_master)) then {
 			DUWS_host_start = false;
@@ -226,9 +84,11 @@ if (!isDedicated && !HQ_pos_found_generated) then {
 	if (((vehiclevarname player) in game_master)) then {
 		_null = [] execVM "dialog\startup\hq_placement\placement.sqf";
 		waitUntil {chosen_hq_placement};	
-
+		player globalChat format ["hq_manually_placed: %1", hq_manually_placed];
+		player globalChat format ["player_is_choosing_hqpos: %1", player_is_choosing_hqpos];
 		// create random HQ
 		if (!hq_manually_placed && !player_is_choosing_hqpos) then {
+			player globalChat "lance recherche position...";
 			hq_create = [20, 0.015] execVM "initHQ\locatorHQ.sqf";
 			waitUntil {scriptDone hq_create};	
 		};
@@ -249,16 +109,6 @@ if (!isDedicated && !HQ_pos_found_generated) then {
 // AMBIANCE LOOP
 //_nul = [] execVM "musicloop.sqf";
 
-if (isServer) then {
-    // group cleaning script
-    0 = [
-        60*60, // seconds to delete dead bodies (0 means don't delete) 
-        60*60, // seconds to delete dead vehicles (0 means don't delete)
-        60*60, // seconds to delete dropped weapons (0 means don't delete)
-        0, // seconds to deleted planted explosives (0 means don't delete)
-        60*60 // seconds to delete dropped smokes/chemlights (0 means don't delete)
-    ] execVM 'repetitive_cleanup.sqf';	
-};
 
 if (hasInterface) then { 
     // WHEN CLIENT CONNECTS INIT (might need sleep)
@@ -284,13 +134,9 @@ if (!isMultiplayer) then {
     _handle = [] execVM "dialog\hc_init.sqf";
 };
 
-if (isServer) then {
-    // initialise the ressources per zone bonus
-    _basepoint = [] execVM "zonesundercontrol.sqf";
-};
 
-// init the bonuses you get when capturing zones
-_basepoint = [] execVM "zones_bonus.sqf";
+
+
 
 // INIT the operative list
 execVM "dialog\operative\operator_init.sqf";
@@ -347,11 +193,7 @@ if (isMultiplayer) then {
     ["island_captured_win",true,true] call BIS_fnc_endMission;
 };
 
-if (zones_manually_placed) then {
-    waitUntil {!isNil ("Array_of_OPFOR_zones")};
-    sleep 1;
-    _warcom_init = [Array_of_OPFOR_zones, getpos hq_blu1, [0,0,0], blufor_ap, opfor_ap, 2700,blufor_ai_skill,opfor_ai_skill, 1500] execVM "WARCOM\WARCOM_init.sqf";
-};
+
 
 if (mission_DUWS_firstlaunch) then {
     waitUntil {chosen_settings};

source/WARCOM/WARCOM_blu_assault.sqf

@@ -6,7 +6,7 @@ WARCOM_blu_attack_wave_avalaible = false;
 // Type of attack wave
 [] spawn {
           //WARCOM_blu_attack_wave_type = ["B_Soldier_TL_F","B_Soldier_F"];
-
+		diag_log format ["WARCOM_blufor_ap_assault: %1", WARCOM_blufor_ap];
           waitUntil {sleep 1; WARCOM_blufor_ap>=10};
           [West,"HQ"] sidechat "This is HQ, BLUFOR troops just arrived on the island, we'll soon be able to push through the enemy lines";
           WARCOM_blu_attack_wave_avalaible = true;

source/WARCOM/WARCOM_blu_patrol.sqf

@@ -1,9 +1,11 @@
 _loop = true;
 
 WARCOM_blu_patrol_type = "";
+diag_log format ["WARCOM_blufor_ap_patrol: %1", WARCOM_blufor_ap];
 
 // Type of attack wave
 [] spawn {
+		diag_log "spawn1";
           WARCOM_blu_patrol_type = (configFile >> "CfgGroups" >> "West" >> "BLU_F" >> "Infantry" >> "BUS_InfTeam");
 
           waitUntil {sleep 1; WARCOM_blufor_ap>40};          
@@ -36,25 +38,25 @@ WARCOM_blu_patrol_type = "";
 
           while {true} do {
 			  if (count WARCOM_zones_controled_by_BLUFOR > 1) then { // make sure blufor is controlling at least 2 zones
-			  sleep 2;
-			  
-			  // find a zone where to spawn OPF wave *** BEGIN
-			  _found = false;
-			  _randomZone = [];
-			  _failSafe = 0;
+				sleep 2;
+				
+				// find a zone where to spawn OPF wave *** BEGIN
+				_found = false;
+				_randomZone = [];
+				_failSafe = 0;
 				while {!_found} do {
-				_randomZone = WARCOM_zones_controled_by_BLUFOR call BIS_fnc_selectRandom;
-				if (_randomZone distance player > 2000) then {_found=true;};
-				sleep 0.2;
+					_randomZone = WARCOM_zones_controled_by_BLUFOR call BIS_fnc_selectRandom;
+					if (_randomZone distance player > 2000) then {_found=true;};
+					sleep 0.2;
 	//            player sidechat format["Failsafe: %1",_failsafe];
-				_failSafe = _failSafe + 1;
-				if (_failsafe > 10) then {sleep 300; _failsafe = 0;}
+					_failSafe = _failSafe + 1;
+					if (_failsafe > 10) then {sleep 300; _failsafe = 0;}
 				};
 			  // find a zone *** end 
-			  _randomZone = [(_randomZone select 0)+40,_randomZone select 1];
-			  _group = [_randomZone, WEST, WARCOM_blu_patrol_type,[],[],WARCOM_blu_ai_skill_range] call BIS_fnc_spawnGroup;
-			  _opf_assault = [_group] execVM "WARCOM\WARCOM_wp_blu_patrol.sqf";
-//			  _blu_assault = [_group,"derp"] execVM "WARCOM\WARCOM_gps_marker.sqf";  
+				_randomZone = [(_randomZone select 0)+40,_randomZone select 1];
+				_group = [_randomZone, WEST, WARCOM_blu_patrol_type,[],[],WARCOM_blu_ai_skill_range] call BIS_fnc_spawnGroup;
+				_opf_assault = [_group] execVM "WARCOM\WARCOM_wp_blu_patrol.sqf";
+//			  	_blu_assault = [_group,"derp"] execVM "WARCOM\WARCOM_gps_marker.sqf";  
 
 				// spawn armored
 				if (WARCOM_blufor_ap>50) then {
@@ -69,3 +71,4 @@ WARCOM_blu_patrol_type = "";
 			  sleep (random 1200);	//  patrol delay		  
           };
 };
+

source/WARCOM/WARCOM_init.sqf

@@ -44,21 +44,25 @@ _WARCOM_zones_controled_by_OPFOR = WARCOM_createdZones;
 WARCOM_zones_controled_by_OPFOR = [] + _WARCOM_zones_controled_by_OPFOR;
 
 // Init BLU patrols
+diag_log "Init BLU patrols";
 _blu_patrol = [] execVM "WARCOM\WARCOM_blu_patrol.sqf";
-waitUntil {scriptDone _blu_patrol};
+//waitUntil {scriptDone _blu_patrol};
 
 // Init OPF patrols
+diag_log "Init OPF patrols";
 _opf_patrol = [] execVM "WARCOM\WARCOM_opf_patrol.sqf";
-waitUntil {scriptDone _opf_patrol};
+//waitUntil {scriptDone _opf_patrol};
 
 // Initialize the BLU attack waves
+diag_log "Initialize the BLU attack waves";
 _blu_assault = [] execVM "WARCOM\WARCOM_blu_assault.sqf";
-waitUntil {scriptDone _blu_assault};
+//waitUntil {scriptDone _blu_assault};
 
 
 // Init the OPF attack waves
+diag_log "Init the OPF attack waves";
 _opf_assault = [] execVM "WARCOM\WARCOM_opf_assault.sqf";
-waitUntil {scriptDone _opf_assault};
+//waitUntil {scriptDone _opf_assault};
 
 
 

source/dialog/startup/startup_common.sqf

@@ -393,8 +393,17 @@ switch (_index) do {
 if (zones_max_radius <= zones_min_radius) exitWith {Hint "Unable to generate campaign:\nMaximum radius of a zone\nmust be superior to\nMinimum radius of a zone"};
 
 zones_spacing = zones_max_radius + 200;
+publicVariable "chosen_settings";
+publicVariable "zones_max_radius";
+publicVariable "zones_min_radius";
+publicVariable "zones_number";
 publicVariable "commandpointsblu1";
 publicVariable "weather_type";
 publicVariable "blufor_ai_skill";
 publicVariable "opfor_ai_skill";
+publicVariable "opfor_ap";
+publicVariable "blufor_ap";
 publicVariable "enableChopperFastTravel";
+publicVariable "enable_fast_travel";
+publicVariable "zones_max_dist_from_hq";
+

source/initHQ/locatorhq.sqf

@@ -1,8 +1,9 @@
 _found = false;
 _foundSafePos = [];
+player globalChat "recherche zone";
 while {!_found} do {
     _foundSafePos = [center_of_map, 0,half_of_map,5,0,0.1,0,[],[[0,0],[0,0]]] call BIS_fnc_findSafePos;
     if (_foundSafePos select 0 != 0 && _foundSafePos select 1 != 0) then {_found=true;};
 };
-
+player globalChat format ["foundSafePos: %1", _foundSafePos];
 _handle = [_foundSafePos] execVM "initHQ\bluHQinit.sqf";

source/initZones/locatorzonesV1.sqf

@@ -111,8 +111,10 @@ sleep 20;
 _zones_array = [_zones_array, 0] call BIS_fnc_removeIndex;
 
 //player globalchat format["%1",_zones_array];
-_warcom_init = [_zones_array, getpos hq_blu1, [0,0,0], blufor_ap, opfor_ap, 2700,blufor_ai_skill,opfor_ai_skill, 2000] execVM "WARCOM\WARCOM_init.sqf"; // 2700 is 40 mins
-waitUntil {scriptDone _warcom_init};
+serv_zones_array = [] + _zones_array;
+publicVariable "serv_zones_array";
+//_warcom_init = [_zones_array, getpos hq_blu1, [0,0,0], blufor_ap, opfor_ap, 2700,blufor_ai_skill,opfor_ai_skill, 2000] execVM "WARCOM\WARCOM_init.sqf"; // 2700 is 40 mins
+//waitUntil {scriptDone _warcom_init};
 savegame;
 sleep 1;
 [[format["Campaign generated<br />Welcome to %1, %2",_worldName,profilename]]] spawn BIS_fnc_typeText;