mirror of
https://github.com/acemod/ACE3.git
synced 2024-08-30 18:23:18 +00:00
76 lines
2.4 KiB
Plaintext
76 lines
2.4 KiB
Plaintext
/*
|
|
* Author: esteldunedain
|
|
* Update temperature of a weapon.
|
|
*
|
|
* Argument:
|
|
* 0: Unit <OBJECT>
|
|
* 1: Weapon <STRING>
|
|
* 2: Heat increment (J) <NUMBER>
|
|
*
|
|
* Return value:
|
|
* Current temperature <NUMBER>
|
|
*
|
|
* Public: No
|
|
*/
|
|
#include "\z\ace\addons\overheating\script_component.hpp"
|
|
|
|
EXPLODE_3_PVT(_this,_unit,_weapon,_heatIncrement);
|
|
|
|
private ["_variableName", "_oldHeat", "_temperature", "_time", "_barrelMass"];
|
|
|
|
// each weapon has it's own variable. Can't store the temperature in the weapon since they are not objects unfortunately.
|
|
_variableName = format [QGVAR(%1), _weapon];
|
|
|
|
// get old values
|
|
_oldHeat = _unit getVariable [_variableName, [0, 0]];
|
|
_temperature = _oldHeat select 0;
|
|
_time = _oldHeat select 1;
|
|
|
|
_barrelMass = 0.50 * (getNumber (configFile >> "CfgWeapons" >> _weapon >> "WeaponSlotsInfo" >> "mass") / 22.0) max 1.0;
|
|
|
|
_fnc_cooling = {
|
|
EXPLODE_3_PVT(_this,_temperature,_barrelMass,_totalTime);
|
|
|
|
// If a long time passed since the last shot, there's no need to calculate anything; the weapon should be cool
|
|
if (_totalTime > 1800) exitWith {0};
|
|
|
|
private ["_barrelSurface", "_time", "_deltaTime"];
|
|
_barrelSurface = _barrelMass / 7850 / 0.003;
|
|
|
|
_time = 0;
|
|
while {true} do {
|
|
_deltaTime = (_totalTime - _time) min 20;
|
|
|
|
_temperature = _temperature - (
|
|
// Convective cooling
|
|
25 * _barrelSurface * _temperature
|
|
// Radiative cooling
|
|
+ 0.4 * 5.67e-8 * _barrelSurface *
|
|
( (_temperature + 273.15)*(_temperature + 273.15)
|
|
* (_temperature + 273.15)*(_temperature + 273.15)
|
|
- 273.15 * 273.15 * 273.15 *273.15 )
|
|
) * _deltaTime / (_barrelMass * 466);
|
|
|
|
if (_temperature < 1) exitWith {0};
|
|
|
|
if (isNil "_temperature") exitWith {
|
|
diag_log text format ["[ACE] ERROR: _totalTime = %1; _time = %2; _deltaTime = %3;", _totalTime, _time, _deltaTime];
|
|
0
|
|
};
|
|
|
|
_time = _time + _deltaTime;
|
|
if (_time >= _totalTime) exitWith { _temperature max 0 };
|
|
};
|
|
};
|
|
|
|
// Calculate cooling
|
|
_temperature = [_temperature, _barrelMass, time - _time] call _fnc_cooling;
|
|
// Calculate heating
|
|
// Steel Heat Capacity = 466 J/(Kg.K)
|
|
_temperature = _temperature + _heatIncrement / (_barrelMass * 466);
|
|
|
|
// Publish the variable
|
|
[_unit, _variableName, [_temperature, time], 2.0] call EFUNC(common,setVariablePublic);
|
|
|
|
_temperature
|