REDCODE/CTI34-KPLIB-Ruha
1
0
Fork 0
Code Issues 3 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Initial baseline - KP Liberation v0.96.7a Ruha variant

Browse Source
This commit is contained in:
Samuele Lorefice
2026-06-11 01:08:09 +02:00
commit 6f5e757e92
478 changed files with 64458 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
scripts/server/remotecall/del_logiTruck_remote_call.sqf Normal file
View File

@@ -0,0 +1,79 @@
if (!isServer) exitWith {};
params ["_index", "_nearfob", "_clientID"];
logiError = 0;
if (((KP_liberation_logistics select _index) select 1) <= 0) exitWith {logiError = 1; _clientID publicVariableClient "logiError";};
private _storage_areas = (_nearfob nearobjects GRLIB_fob_range) select {(_x getVariable ["KP_liberation_storage_type",-1]) == 0};
if ((count _storage_areas) == 0) exitWith {(localize "STR_LOGISTIC_NOSPACE") remoteExec ["hint",_clientID]; logiError = 1; _clientID publicVariableClient "logiError";};
private _price_s = 50;
private _price_a = 0;
private _price_f = 50;
private _crateSum = (ceil(_price_s / 100)) + (ceil(_price_a / 100)) + (ceil(_price_f / 100));
private _spaceSum = 0;
{
if (typeOf _x == KP_liberation_large_storage_building) then {
_spaceSum = _spaceSum + (count KP_liberation_large_storage_positions) - (count (attachedObjects _x));
};
if (typeOf _x == KP_liberation_small_storage_building) then {
_spaceSum = _spaceSum + (count KP_liberation_small_storage_positions) - (count (attachedObjects _x));
};
} forEach _storage_areas;
if (_spaceSum < _crateSum) exitWith {(localize "STR_LOGISTIC_NOSPACE") remoteExec ["hint",_clientID]; logiError = 1; _clientID publicVariableClient "logiError";};
{
private _space = 0;
if (typeOf _x == KP_liberation_large_storage_building) then {
_space = (count KP_liberation_large_storage_positions) - (count (attachedObjects _x));
};
if (typeOf _x == KP_liberation_small_storage_building) then {
_space = (count KP_liberation_small_storage_positions) - (count (attachedObjects _x));
};
while {(_space > 0) && (_price_s > 0)} do {
private _amount = 100;
if ((_price_s / 100) < 1) then {
_amount = _price_s;
};
_price_s = _price_s - _amount;
private _crate = [KP_liberation_supply_crate, _amount, getPos _x] call KPLIB_fnc_createCrate;
[_crate, _x] call KPLIB_fnc_crateToStorage;
_space = _space - 1;
};
while {(_space > 0) && (_price_a > 0)} do {
private _amount = 100;
if ((_price_a / 100) < 1) then {
_amount = _price_a;
};
_price_a = _price_a - _amount;
private _crate = [KP_liberation_ammo_crate, _amount, getPos _x] call KPLIB_fnc_createCrate;
[_crate, _x] call KPLIB_fnc_crateToStorage;
_space = _space - 1;
};
while {(_space > 0) && (_price_f > 0)} do {
private _amount = 100;
if ((_price_f / 100) < 1) then {
_amount = _price_f;
};
_price_f = _price_f - _amount;
private _crate = [KP_liberation_fuel_crate, _amount, getPos _x] call KPLIB_fnc_createCrate;
[_crate, _x] call KPLIB_fnc_crateToStorage;
_space = _space - 1;
};
if ((_price_s == 0) && (_price_a == 0) && (_price_f == 0)) exitWith {};
} forEach _storage_areas;
please_recalculate = true;
(KP_liberation_logistics select _index) set [1, ((KP_liberation_logistics select _index) select 1) - 1];