{$CLEO .cs}

{
by DK22Pac
24/04/2011
Vol-GTA mods
}

model.Load(1313)
038B:

while true
    wait 0
    if and
        86B9: not cutscene_data_loaded
        player.Defined(0)
    then
        for 20@ = 22 to 38
            if or
                20@ == 34
                20@ == 35
                20@ == 36
                20@ == 37
            then
                continue
            end
            if
                02D8: actor $player_actor current_weapon == 20@
            then
                if
                    02D6: actor $player_actor fires_weapon 20@ in_rectangle_cornerA -3000.0 -3000.0 cornerB 3000.0 3000.0
                then
                    21@ = true
                    break
                else
                    21@ = false
                end
            else
                21@ = false
            end

        end
        if
            21@ == true
        then
            21@ = false
            00A0: store_actor $player_actor position_to 10@ 11@ 12@
            0AB1: call_scm_func @__VarToOffset 1 varnumber 25 result 23@  //0AC7: 23@ = var 25@ offset
            0AB1: call_scm_func @__VarToOffset 1 varnumber 7 result 4@  //0AC7: 4@ = var 7@ offset
            0AB1: call_scm_func @__VarToOffset 1 varnumber 1 result 14@  //0AC7: 14@ = var 1@ offset
            0AA6: call_method 0x514970 struct 0xB6F028 num_params 6 pop 0 4@ 23@ 12@ 11@ 10@ 50.0
            0AA6: call_method 0x514970 struct 0xB6F028 num_params 6 pop 0 14@ 23@ 12@ 11@ 10@ 1.0
            if and
                86BD: not no_obstacles_between 1@ 2@ 3@ and 7@ 8@ 9@ solid 1 car 1 actor 1 object 1 particle 0
                06BD: no_obstacles_between 1@ 2@ 3@ and 7@ 8@ 9@ solid 0 car 1 actor 1 object 0 particle 0
            then
                for 0@ = 1 to 15
                    0087: 4@ = 1@
                    005B: 4@ += 7@
                    4@ /= 2.0
                    0087: 5@ = 2@
                    005B: 5@ += 8@
                    5@ /= 2.0
                    0087: 6@ = 3@
                    005B: 6@ += 9@
                    6@ /= 2.0
                    if
                        86BD: not no_obstacles_between 1@ 2@ 3@ and 4@ 5@ 6@ solid 1 car 1 actor 1 object 1 particle 0
                    then
                        0087: 7@ = 4@
                        0087: 8@ = 5@
                        0087: 9@ = 6@
                    else
                        0087: 1@ = 4@
                        0087: 2@ = 5@
                        0087: 3@ = 6@
                    end
                end
                if
                    86BD: not no_obstacles_between 1@ 2@ 3@ and 4@ 5@ 6@ solid 0 car 1 actor 1 object 0 particle 0
                then
                    goto @end
                else
                    0087: 4@ = 1@
                    005B: 4@ += 7@
                    4@ /= 2.0
                    0087: 5@ = 2@
                    005B: 5@ += 8@
                    5@ /= 2.0
                    0087: 6@ = 3@
                    005B: 6@ += 9@
                    6@ /= 2.0
                    object.Create(30@, 1313, 0.0, 5.0, -500.0)
                    object.CollisionDetection(30@) = false
                    08D2: object 30@ scale_model 1.2
                    object.PutAt(30@, 4@, 5@, 6@)
                    for 0@ = 0.0 to 190.0 step 4.0
                        0087: 15@ = 0@
                        0087: 17@ = 0@
                        inc(17@, 4.0)
                        02F7: 13@ = cosine 15@
                        02F6: 14@ = sine 15@
                        02F7: 18@ = cosine 17@
                        02F6: 19@ = sine 17@
                        mul(13@, 0.04)
                        mul(14@, 0.04)
                        mul(18@, 0.04)
                        mul(19@, 0.04)
                        0400: store_coords_to 20@ 21@ 22@ from_object 30@ with_offset 13@ 14@ 0.0
                        0400: store_coords_to 23@ 24@ 25@ from_object 30@ with_offset 18@ 19@ 0.0
                        if
                            86BD: not no_obstacles_between 20@ 21@ 22@ and 23@ 24@ 25@ solid 1 car 0 actor 0 object 1 particle 0
                        then
                            break
                        end
                    end
                    0453: set_object 30@ XY_rotation 0.0 0.0 angle 15@
                    for 0@ = 0.0 to 190.0 step 4.0
                        0087: 26@ = 0@
                        0087: 17@ = 0@
                        inc(17@, 4.0)
                        02F7: 13@ = cosine 26@
                        02F6: 14@ = sine 26@
                        02F7: 18@ = cosine 17@
                        02F6: 19@ = sine 17@
                        mul(13@, 0.04)
                        mul(14@, 0.04)
                        mul(18@, 0.04)
                        mul(19@, 0.04)
                        0400: store_coords_to 20@ 21@ 22@ from_object 30@ with_offset 0.0 13@ 14@
                        0400: store_coords_to 23@ 24@ 25@ from_object 30@ with_offset 0.0 18@ 19@
                        if
                            86BD: not no_obstacles_between 20@ 21@ 22@ and 23@ 24@ 25@ solid 1 car 0 actor 0 object 1 particle 0
                        then
                            break
                        end
                    end
                    inc(26@, 90.0)
                    0453: set_object 30@ XY_rotation 26@ 29@ angle 15@
                    object.RemoveReferences(30@)
                    goto @end
                end
            end
        end
    :end
    end
end

:__VarToOffset
0A9F: 23@ = current_thread_pointer
23@ += 0x3C
0@ *= 4
005A: 23@ += 0@ // address of the local variable
0AB2: ret 1 23@