14 января 2013

Катапультирование

Нажмите T, чтобы с силой вылететь из машины, которая через секунду эффектно взорвётся.

{$CLEO}
0000:
while true //1
wait 0
   if //2
   player.Defined(0)
   then
    if and //3
    not actor.Dead($PLAYER_ACTOR)
    actor.Driving($PLAYER_ACTOR)
    0AB0: key_pressed 0x54
    80E1: not player 0 pressed_key 15
    then
    03C0: 0@ = actor $PLAYER_ACTOR car
    0407: store_coords_to 1@ 2@ 3@ from_car 0@ with_offset 0.0 0.0 10.0
    car.StorePos(0@,4@,5@,6@)
     if //4
     06BD: no_obstacles_between 1@ 2@ 3@ and 4@ 5@ 6@ solid 1 car 0 actor 0 object 1 particle 0
     then
     0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 1@ 2@ 3@
     04C4: store_coords_to 4@ 5@ 6@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 320.0
      if //5
      06BD: no_obstacles_between 1@ 2@ 3@ and 4@ 5@ 6@ solid 1 car 1 actor 0 object 1 particle 0
      then
       if //5.1
       not actor.HasWeapon($PLAYER_ACTOR,46)
       then
       model.Load(#GUN_PARA)
       038B: load_requested_models
       01B2: give_actor $PLAYER_ACTOR weapon 46 ammo 1
       model.Destroy(#GUN_PARA)
       end //5.1
      actor.PutAt($PLAYER_ACTOR,4@,5@,6@)
      wait 2000
      015D: set_gamespeed 0.2
       for 7@ = 0 to 5 //5.2
       wait 125
       car.StorePos(0@,1@,2@,3@)
       020C: create_explosion_with_radius 10 at 1@ 2@ 3@
       end //5.2
      015D: set_gamespeed 1.0
      end //5
     end //4
  car.RemoveReferences(0@)
  end //3
 end //2
end //1

Комментариев нет: