1. ;Script by DKM and enhanced by krzychuzokecia
2.  
3. _t = _this select 0
4.  
5. #alivecheck
6. ~1
7. ?(isNull _t): exit
8. ?(alive _t): goto "alivecheck"
9.  
10. ?format["%1", _t] == "scalar bool array string 0xfcffffef": exit
11. ?count (getpos _t) > 0: goto "nobug"
12. exit
13. #nobug
14.  
15. [_t] exec "\ffur_effects\kia_sparksandshock.sqs"
16.  
17. ? "Air" countType [_t] == 1: _gl = "logic" createVehicle [getpos _t select 0,getpos _t select 1,0]; _gl setpos getpos _t; _gl setDir (getDir _t); [_gl,_t,3] exec "\ffur_effects\dustwaveA.sqs"
18. ? "LandVehicle" countType [_t] == 1: [_t,3] exec "\ffur_effects\dustwave.sqs"
19.  
20. ~1.5
21.  
22. ? "LandVehicle" countType [_t] == 1 && random 1.0001 > 0.5: _logic = "logic" createVehicle getpos nearestObject [_t,"crater"]; _logic setpos getpos nearestObject [_t,"crater"]; [_logic,0,0 + random 0.2,10 + random 5] exec "\ffur_effects\hotground.sqs"
23.  
24. ~random 1.5
25. _h = .1
26. @ (getpos _t select 2) < 5
27. _f = "nmod_smoke" createvehicle getpos _t
28. _s = "nmod_fire" createvehicle getpos _t
29. _ar = [_f,_s]
30. _timer = 0
31. _bsay = 1
32. _hsay = 1
33. _f inflame true
34. _s inflame true
35. _anumb = 1.3
36.  
37. private ["_sensor"];
38. _sensor = "EmptyDetector" createVehicle [0,0,0]
39. _calcH = {private["_result"]; _sensor setpos [getpos _t select 0, getpos _t select 1]; _result = getpos _sensor select 2; _result};
40.  
41.         _i = Random (3)
42.         _i = _i - (_i Mod 1)
43.         ? _i <= 2: _t exec "\ffur_effects\fuelboom.sqs"
44.  
45. #cycle
46. _f inflame true
47. _s inflame true
48.  
49. #smokeandfire
50.  
51. _anumb = 1.3
52.  
53. ? abs (call _calcH) <= 2.4: "deletevehicle _x" foreach _ar; exit
54.  
55. ? (vehicle player != player): goto "skip"
56. ? (player distance _f < 7) && _hsay == 1: player globalChat "It's really hot up there!"; _hsay = 0
57. ? (player distance _f < 4) && alive player: TitleText ["", "black faded",random 0.1]
58. ? (player distance _f < 4) && _bsay == 1: player globalChat "Argh, I'm getting burned!"; _bsay = 0
59. ? (player distance _f < 4): player setDamage (damage player) + 0.01
60. #skip
61. ? (getpos _t select 2 > 3): _anumb = getpos _t select 2
62.  
63.         drop ["cl_fire" , "" , "Billboard" , 1 , 5 + random 5, [getpos _t select 0,getpos _t select 1,1.3] , [random 2 - random 2,random 2 - random 2,2 + random 2] , 1 , 1 , 1 , 0.2 , [random 0.09] , [[1,1,1,1],[1,1,1,0.75],[1,1,1,0.50],[0,0,0,0]] , [0,1] , 0 , 0.1 , "" , "" , ""]
64.  
65.         "_x setpos [getpos _t select 0, getpos _t select 1,_anumb]" foreach _ar
66.         ~_h
67.         _timer = _timer + _h
68.         ? _timer == 20 : _h = 1
69.         ? _timer < 20 : goto "smokeandfire"
70.         ? _timer < 600 : goto "smokeandfire"
71.  
72. _s inflame false
73.  
74. #smokeonly
75.  
76. _anumb = 1.3
77.  
78. ? abs (call _calcH) <= 2.4: "deletevehicle _x" foreach _ar; exit
79.  
80. ? (getpos _t select 2 > 3): _anumb = getpos _t select 2
81.  
82.         "_x setpos [getpos _t select 0, getpos _t select 1,_anumb]" foreach _ar
83.         ~_h
84.         _timer = _timer + _h
85.         ? _timer < 900 : goto "smokeonly"
86.  
87. "deletevehicle _x" foreach _ar
88.  
89. exit