[SW3] [MOD] - The SW3.Expansion Mod - 0.5.3G

[nocalora29]

Thanks for the hint, im going to look into it

And I don't really plan to stop the development of this mod until im Finished, the main thing im working on right now is basically the Path-finding for the CPU-Players, I have found a way to do that, but that would require me to write 120x120 paths from systems to systems, since I will never write that amount of code by hand I am currently writing a additional program with VB.NET to automatically index all systems in Star wolves and using an algorithm to create lua code which represent table's with the shortest way to a possible system

like so:
{"_AI_IN_THIS_SYSTEM", "AI_NEEDS_TO_GO_TO_THIS_SYSTEM", {"Shortest way from Neighbor of THIS_SYSTEM to AI_TARGET_SYSTEM"}};

Im struggling to do that tbh, but I won't give up!.

-----------------------------------------------
Also, I tweaked the "Repair" function at the maintance stations, so you won't immediatley have 100% HP, instead you will have to wait a certain amount of time until your HP Completely recharges, increments are at 10% of total Hull HP each 0.1s

BUT like with all of my "Plugins" it is completely customizable, see the "InitTeamScript" Section.

I named it ASRS:

--      /\          /\\ \\  /\\/\\       /\\/\\\\\\\  /\\      /\\\\\\\\
--     /\ \\      /\\    /\\/\\/\ /\\   /\\\/\\    /\\/\\      /\\      
--    /\  /\\      /\\      /\\/\\ /\\ / /\\/\\    /\\/\\      /\\      
--   /\\   /\\       /\\    /\\/\\  /\\  /\\/\\\\\\\  /\\      /\\\\\\  
--  /\\\\\\ /\\         /\\ /\\/\\   /\  /\\/\\       /\\      /\\      
-- /\\       /\\  /\\    /\\/\\/\\       /\\/\\       /\\      /\\      
--/\\         /\\   /\\ \\  /\\/\\       /\\/\\       /\\\\\\\\/\\\\\\\\
--                                 -  =   V E R S I O N   1 . 1   =  -                              
--/\\\\\\\    /\\\\\\\\/\\\\\\\        /\       /\\/\\\\\\\      /\\ \\   /\\\ /\\\\\\      /\       /\\\ /\\\\\\/\\    /\\\\     /\\\     /\\
--/\\    /\\  /\\      /\\    /\\     /\ \\     /\\/\\    /\\  /\\    /\\      /\\         /\ \\          /\\    /\\  /\\    /\\  /\ /\\   /\\
--/\\    /\\  /\\      /\\    /\\    /\  /\\    /\\/\\    /\\   /\\      	   /\\        /\  /\\         /\\    /\\/\\        /\\/\\ /\\  /\\
--/\ /\\      /\\\\\\  /\\\\\\\     /\\   /\\   /\\/\ /\\         /\\          /\\       /\\   /\\        /\\    /\\/\\        /\\/\\  /\\ /\\
--/\\  /\\    /\\      /\\         /\\\\\\ /\\  /\\/\\  /\\          /\\       /\\      /\\\\\\ /\\       /\\    /\\/\\        /\\/\\   /\ /\\
--/\\    /\\  /\\      /\\        /\\       /\\ /\\/\\    /\\  /\\    /\\      /\\     /\\       /\\      /\\    /\\  /\\     /\\ /\\    /\ \\
--/\\      /\\/\\\\\\\\/\\       /\\         /\\/\\/\\      /\\  /\\ \\        /\\    /\\         /\\     /\\    /\\    /\\\\     /\\      /\\
--                                                                                                                                        
--  /\\ \\      /\\   /\\\\\\\    /\\/\\\\\\\  /\\\ /\\\\\\
--/\\    /\\ /\\   /\\/\\    /\\  /\\/\\    /\\     /\\    
-- /\\      /\\       /\\    /\\  /\\/\\    /\\     /\\    
--   /\\    /\\       /\ /\\      /\\/\\\\\\\       /\\    
--      /\\ /\\       /\\  /\\    /\\/\\            /\\    
--/\\    /\\ /\\   /\\/\\    /\\  /\\/\\            /\\    
--  /\\ \\     /\\\\  /\\      /\\/\\/\\            /\\    
--Author: Nocalora29

--Replaces:
--Data\Scripts\Include\DockStation.script -> DialogR_fin()

--This Plugin disables the INSTANT 100% HP Recovery from Repair Stations
--Instead of magically repairing your hull to 100% in a sec, this Plugin -
--will Repair your Mothership over time, but only if your mothership isn't moving.
Default_ASRS_Name = "ASRS";
Default_ASRS_Error_InProg = "ASRS: Repair allready in Progress!";
Default_ASRS_Error_MoveDetect = "ASRS: Repair Cancelled!, you need to stand still!";
Default_ASRS_Fin = "ASRS: Successfully Repaired!";

__ASRS_InProgress = FALSE;
function _ASRS_RepairMS_Init()
	local AllowASRS = GetQuestLabel("__ASRS@Config_Allow");
	if (AllowASRS=="True") then
		_ASRS_RepairMS();
	else
		local N=GetPlayerCredits();
		if (N>=1000) then
			RepairBase();
			SubPlayerCredits(1000);
			OutputToScreenLog("#UI_TradeStationOkRepair",7);
		else	
			OutputToScreenLog("#UI_TradeStationNotRepair",7);
		end;
	end;

end;

function _ASRS_RepairMS()
	if (__ASRS_InProgress==FALSE) then
		__ASRS_InProgress = TRUE;
		local _ASRS_Allow = GetQuestLabel("");
		local PCash = GetPlayerCredits();
		local RepCost=1000;
		local _PCarc = GetPlayerMotherShip();
		local _PMSMaxHP = _PCarc:GetMaxHP();

		if (PCash>=RepCost) then
			SubPlayerCredits(RepCost);
			--Begin Repair Process
			local MSPos = _PCarc:GetPosition();
			setglobal("_ASRS_MSPos", MSPos);
			
			_ASRS_RepairMS_2(_PMSMaxHP);
		else	
			OutputToScreenLog("#UI_TradeStationNotRepair",7);

		end;
	else
		OutputToScreenLog(Default_ASRS_Error_InProg,7);
	end;
end;

__ASRS_MS_CompleteP = 0;
__ASRS_MS_MaxSpeed = 0;
__ASRS_MS_MaxSteeringPower = 0;
__ASRS_ILShowTime = 0.4;
__ASRS_OutOfSphere = FALSE;
function _ASRS_RepairMS_2(_PMSMaxHP)
	setglobal("_ASRS_PMSMaxHP", _PMSMaxHP);
	local RepDelay = tonumber(GetQuestLabel("__ASRS@Config_RepairDelay"));
	local RepAmount = tonumber(GetQuestLabel("__ASRS@Config_RepairAmount"));
	local UsePerc = GetQuestLabel("__ASRS@Config_UsePercentageRepair");
	local Perc = tonumber(GetQuestLabel("__ASRS@Config_Percentage"));
	local Req_StandStill = GetQuestLabel("__ASRS@Config_Require_StandStill");
	local DisDrives	= GetQuestLabel("__ASRS@Config_DisableDrive");
	local CRadius = tonumber(GetQuestLabel("__ASRS@Config_StandStill_Radius"));
	local _PCarc = GetPlayerMotherShip();
	local _PCurHP = _PCarc:GetCurHP();
	local PercRAND = GetQuestLabel("__ASRS@Config_PercRAND");
	local PercRANDMin = tonumber(GetQuestLabel("__ASRS@Config_PercRAND_Min"));
	local PercRANDMax = tonumber(GetQuestLabel("__ASRS@Config_PercRAND_Max"));

	--Options
	-- // Disable Drives
	if (DisDrives=="True") then
		__ASRS_MS_MaxSpeed = _PCarc:GetMaxSpeed();
		__ASRS_MS_MaxSteeringPower = _PCarc:GetSteeringPower();
		_PCarc:SetMaxSpeed(0);
		_PCarc:SetSteeringPower(0);
	end;
	--Repair
	if (Req_StandStill=="False") then
		--Does not need to stand still
		if (UsePerc=="False") then
			--Value Repair
			if (_PMSMaxHP >= _PCurHP) then
				_PCarc:SetHP(_PCurHP + RepAmount);
				Timer_Seq(RepDelay, _ASRS_RepairMS_Loop);
			end;
		else
			--Percentage Repair
			if (_PMSMaxHP >= _PCurHP) then
				local PercVal = 0;
				if (PercRAND=="False") then 
					PercVal = ((_PMSMaxHP / 100) * Perc); 
				else 
					PercVal = ((_PMSMaxHP / 100) * random(PercRANDMin, PercRANDMax)); 
				end;
				_PCarc:SetHP(_PCurHP + PercVal);
				
				__ASRS_MS_CompleteP = (_PMSMaxHP / _PCurHP) * 100
				OutputToScreenLog("ASRS: "..format("%.2f", __ASRS_MS_CompleteP).."% Completed", RepDelay+__ASRS_ILShowTime);
				
				Timer_Seq(RepDelay, _ASRS_RepairMS_Loop);
			end;
		end;
	else
		--Does need to stand still
		--_ASRS_OutsideRange_Trigger = CreateTrigger();
		--_ASRS_OutsideRange_Trigger:AttachEvent(_EVENT_INSIDEVOLUME);
		--_ASRS_OutsideRange_Trigger:SetObject(_PCarc);
		--_ASRS_OutsideRange_Trigger:SetVolume(_PCarc:GetPosition(), CRadius);
		--_ASRS_OutsideRange_Trigger:AttachCondition(TrueCondition);
		--_ASRS_OutsideRange_Trigger:AttachAction(_ASRS_RepairMS_LeaveRadius);
		--_ASRS_OutsideRange_Trigger:Activate();
		_ASRS_OutsideRange_Trigger = NewTrigger("outside", TrueCondition, _ASRS_RepairMS_LeaveRadius, _PCarc, _PCarc:GetPosition(), CRadius, FALSE);
		_ASRS_OutsideRange_Trigger:Activate();
		
		if (__ASRS_OutOfSphere==FALSE) then
			if (UsePerc=="False") then
				--Value Repair
				if (_PMSMaxHP >= _PCurHP) then
					_PCarc:SetHP(_PCurHP + RepAmount);
					Timer_Seq(RepDelay, _ASRS_RepairMS_Loop);
				end;
			else
				--Percentage Repair
				if (_PMSMaxHP >= _PCurHP) then
					local PercVal = 0;
					if (PercRAND=="False") then 
						PercVal = ((_PMSMaxHP / 100) * Perc); 
					else 
						PercVal = ((_PMSMaxHP / 100) * random(PercRANDMin, PercRANDMax)); 
					end;
					_PCarc:SetHP(_PCurHP + PercVal);
					
					__ASRS_MS_CompleteP = (_PCurHP / _PMSMaxHP) * 100
					OutputToScreenLog("ASRS: "..format("%.2f", __ASRS_MS_CompleteP).."% Completed", RepDelay+__ASRS_ILShowTime);
				
					Timer_Seq(RepDelay, _ASRS_RepairMS_Loop);
				end;
			end;
		else
			--Movement Detected
			OutputToScreenLog(Default_ASRS_Error_MoveDetect,7);
			__ASRS_InProgress = FALSE;
			__ASRS_OutOfSphere = FALSE;
			_ASRS_OutsideRange_Trigger:Delete();
		end;
	end;
	--Finish
	if (_PCurHP>=_PMSMaxHP) then 
		__ASRS_InProgress = FALSE;
		__ASRS_OutOfSphere = FALSE;
		_ASRS_OutsideRange_Trigger:Delete();
		
		_PCarc:SetHP(_PMSMaxHP); 
		OutputToScreenLog(Default_ASRS_Fin,7);
		
		--Options
		-- // Enable Drives
		if (DisDrives=="True") then
			_PCarc:SetMaxSpeed(__ASRS_MS_MaxSpeed);
			_PCarc:SetSteeringPower(__ASRS_MS_MaxSteeringPower);
		end;
		
	end;
end;

function _ASRS_RepairMS_LeaveRadius()
	__ASRS_OutOfSphere = TRUE;
end;

function _ASRS_RepairMS_Loop()
	local _PMSMaxHP = getglobal("_ASRS_PMSMaxHP");
	_ASRS_RepairMS_2(_PMSMaxHP);
end;

You could in theory allready use this, only be sure to load it by any system.lst and Place Replace this COMPLETE Function in scripts\dockstation.script

function DialogR_fin0()

end;

with

function DialogR_fin0()
-- > @Plugins\ASRS.lua
	_ASRS_RepairMS_Init();
end;

-InitTeamScript-

	SetQuestLabel("__ASRS@Config_Allow", 				"True");		-- ASRS Plugin - Boolean - Allow ASRS? [True = Use ASRS, False = Use Vanilla Repair System]
	SetQuestLabel("__ASRS@Config_RepairDelay", 			0.1);			-- ASRS Plugin - Repair Rate (Seconds)
	SetQuestLabel("__ASRS@Config_RepairAmount", 		100);			-- ASRS Plugin - Repair amount per RepairDelay
	SetQuestLabel("__ASRS@Config_UsePercentageRepair",  "True");		-- ASRS Plugin - Repair depending on Percentage of Max HP
	SetQuestLabel("__ASRS@Config_Percentage",			3);				-- ASRS Plugin - Percentage Value
	SetQuestLabel("__ASRS@Config_PercRAND",				"True");		-- ASRS Plugin - Eanble Random Repair Percentage
	SetQuestLabel("__ASRS@Config_PercRAND_Min",			3);				-- ASRS Plugin - Random Percentage Min
	SetQuestLabel("__ASRS@Config_PercRAND_Max",			7);				-- ASRS Plugin - Random Percentage Max
	SetQuestLabel("__ASRS@Config_DisableDrive",			"False");		-- ASRS Plugin - Disable Mothership Drives (No Movement Possible until Completion)
	SetQuestLabel("__ASRS@Config_Require_StandStill", 	"True");		-- ASRS Plugin - Require - Standing Still (Mothership)
	SetQuestLabel("__ASRS@Config_StandStill_Radius",	5);			    -- ASRS Plugin - Max Range before Cancel of Repair

Just paste the above code ANYWHERE in the InitTeamScript file
If anyone feels like it, feel free to install it and tell me how it feels like.

-System.lst- Section
IF you use Expansion Mod: use the plugins\system.lst and write it in there, also place the file you created with the code at top of this post and you're good to go.
IF you use the vanilla game: use the scripts\system.lst and write in in there also, watch out that you place the file where you have pointed at it in the system.lst

=This works for a vanilla game and a modded game=