Śr 05 lip, 2006 11:21
Witam wszystkich po dłuuuugim czasie ![:]](./images/smilies/icon_krzywy.gif)
Od jakiegoś czasu znowu zaczołem bawić się edytorkiem, misjami, filmikami itp. No i se wymyśliłem, że sfilmuje sobie spadający samolocik, a żeby efekty były lepsze, chcaiłem dodać ten skrypt... (patrz ponizej) który mi nie działa 
Rozruch skryptu wykonuje komendą nazwa_samolotu exec "PlaneCrash.sqs" i wywala mi linijkę:
@(!alive _plane):_plane setdammage .7;_plane setfuel 0;goto "startcrash" Error Unknown operator
Why?!
Od jakiegoś czasu znowu zaczołem bawić się edytorkiem, misjami, filmikami itp. No i se wymyśliłem, że sfilmuje sobie spadający samolocik, a żeby efekty były lepsze, chcaiłem dodać ten skrypt... (patrz ponizej) który mi nie działa
Rozruch skryptu wykonuje komendą nazwa_samolotu exec "PlaneCrash.sqs" i wywala mi linijkę:
@(!alive _plane):_plane setdammage .7;_plane setfuel 0;goto "startcrash" Error Unknown operator
Why?!
- Kod: Zaznacz cały
_plane = _this select 0
_player = player
_rNum = 10
_killCount = 0
_smokeCounter = 25
@(!alive _plane):_plane setdammage .7;_plane setfuel 0;_plane goto "startcrash"
#startcrash
_plane lock true
_pilot = driver _plane
_cargo = crew _plane
?_player in _plane:_inplane = true;_player addeventhandler ["dammaged", {_player setdammage
0}];_player addeventhandler ["killed", {_player setdammage 0}];_player addeventhandler ["hit",
{_player setdammage 0}]
_startheight = getpos _plane select 2
?(_plane getpos select 2) <= 2:goto "slide"
_pilot sidechat "Damn, we're hit! Brace for impact!"
_plane setdammage .5
_plane setvelocity [(velocity _plane select 0), (velocity _plane select 1), (velocity _plane
select 2) - 5]
@_plane getpos select 2 <= 1:_plane setvelocity [(velocity _plane select 0), (velocity _plane
select 1), (velocity _plane select 2) + 5];_InitVel = velocity _plane;titlecut ["","black out",
3];goto "slide"
#slide
_dir = getDir _plane
_vel1 = _InitVel select 0
_vel2 = _InitVel select 1
_vel1Diff = _vel1 * (5*10^(-20))
_vel2Diff = _vel2 * (5*10^(-20))
?(_dir > 90 && _dir <= 180):goto "southeast"
?(_dir > 180 && _dir <= 270):goto "southwest"
?(_dir > 270 && _dir <= 360):goto "northwest"
#northeast
_plane setdammage .8
"_x setdammage 0" foreach _cargo
_plane setvelocity [_(vel1 - _vel1Diff),(_vel2 - _vel2Diff),(velocity _plane select 2)]
_vel1Diff = _vel1Diff * 2
_vel2Diff = _vel2Diff * 2
~.01
?_vel1Diff >= _vel1: _plane setvelocity [0,0,0];_finalHeight = (getpos _plane select 2);_plane
setdammage 1;goto "randomsurvival"
_smokecounter = _smokeCounter - 1
?_smokeCounter == 0:smoke = "crater" camcreate getpos _plane;_smokeCounter = 25
goto "northeast"
#southeast
_plane setdammage .8
"_x setdammage 0" foreach _cargo
_plane setvelocity [_(vel1 - _vel1Diff),(_vel2 + _vel2Diff),(velocity _plane select 2)]
_vel1Diff = _vel1Diff * 2
_vel2Diff = _vel2Diff * 2
~.01
?_vel1Diff >= _vel1: _plane setvelocity [0,0,0];_finalHeight = (getpos _plane select 2);_plane
setdammage 1;goto "randomsurvival"
_smokecounter = _smokeCounter - 1
?_smokeCounter == 0:smoke = "crater" camcreate getpos _plane;_smokeCounter = 25
goto "southeast"
#southwest
_plane setdammage .8
"_x setdammage 0" foreach _cargo
_plane setvelocity [_(vel1 + _vel1Diff),(_vel2 + _vel2Diff),(velocity _plane select 2)]
_vel1Diff = _vel1Diff * 2
_vel2Diff = _vel2Diff * 2
~.01
?_vel1Diff >= _vel1: _plane setvelocity [0,0,0];_finalHeight = (getpos _plane select 2);_plane
setdammage 1;goto "randomsurvival"
_smokecounter = _smokeCounter - 1
?_smokeCounter == 0:smoke = "crater" camcreate getpos _plane;_smokeCounter = 25
goto "southwest
#northwest
_plane setdammage .8
"_x setdammage 0" foreach _cargo
_plane setvelocity [_(vel1 + _vel1Diff),(_vel2 - _vel2Diff),(velocity _plane select 2)]
_vel1Diff = _vel1Diff * 2
_vel2Diff = _vel2Diff * 2
~.01
?_vel1Diff >= _vel1: _plane setvelocity [0,0,0];_finalHeight = (getpos _plane select 2);_plane
setdammage 1;goto "randomsurvival"
_smokecounter = _smokeCounter - 1
?_smokeCounter == 0:smoke = "crater" camcreate getpos _plane;_smokeCounter = 25
goto ""northwest"
#randomsurvival
~3
_FallDistance = (_startHeight - _finalHeight)
_velocity = sqrt((_initvel select 0)^2 + (_initvel select 1)^2)
_Survival = (_FallDistance * _velocity)/2
?_Survival >= 100 && _Survival < 200:_rNum = 25;goto "kill"
?_Survival >= 200 && _Survival < 500:_rNum = 50;_killcount = 1;goto "kill"
?_Survival >= 500 && _Survival <= 1000:_rNum = 150;_killcount = 4;goto "kill"
?_Survival > 1000:_rNum = 250;_killcount = 15;goto "kill"
#kill
removealleventhandlers _player
_nCargo = count _Cargo
_kill = random _killcount
_nCargo <= _kill:"_x setdammage 1" foreach _cargo;goto "finish"
"_x setdammage (random _rnum)" foreach _cargo
_ncargo = _nCargo - 1
#KillLoop
?_kill == 0:goto "finish"
_dead = _Cargo select (random _nCargo)
_dead setdammage 1
_cargo = _cargo - _dead
_nCargo = _nCargo - 1
_kill = _kill - 1
goto "killLoop"
#finish
"_x setpos [((getpos _plane select 0) + (random 20) - (random 20)),((getpos _plane select 1) +
(random 20) - (random 20)),(getpos _plane select 2)]" foreach _cargo
?_inplane:titlecut ["","black in",5]
exit
