SannyBuilder.com Forums

Тупо, не учитывая флаги:

03C0: 0@ = actor $PLAYER_ACTOR car
0A97: 1@ = car 0@ struct
0085: 2@ = 1@ // (int) 
0085: 3@ = 1@ // (int) 
2@ += 0x36
3@ += 0x428
0A8C: write_memory 2@ size 1 value 2 virtual_protect 0
0A8C: write_memory 3@ size 1 value 16 virtual_protect 0

@ILdar -

{$CLEO}
0000:
while true
    wait 0
    if
        Player.Defined($PLAYER_CHAR)
    then
        0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 0@ closest_ped_to 1@
        if
            1@ <> -1
        then
            if and
                Actor.Dead(1@)
                00F3:   actor $PLAYER_ACTOR near_actor 1@ radius 2.0 2.0 0 on_foot
                0AB0:  key_pressed 0x75
            then
                04ED: load_animation "MEDIC"
                while 84EE:   not animation "MEDIC" loaded
                    wait 0
                end
                Player.CanMove($PLAYER_CHAR) = false
                01F7: set_player $PLAYER_CHAR ignored_by_cops 1
                03BF: set_player $PLAYER_CHAR ignored_by_everyone 1 
                0639: AS_actor $PLAYER_ACTOR rotate_to_actor 1@
                0605: actor $PLAYER_ACTOR perform_animation_sequence "CPR" IFP_file "MEDIC" 4.0 loop 0 0 0 0 time -1 // versionA
                wait 7000
                04A5: store_dead_actor 1@ position_to 2@ 3@ 4@
                0665: get_actor 1@ model_to 5@
                Actor.DestroyInstantly(1@)
                Actor.RemoveReferences(1@)
                Model.Load(5@)
                while not Model.Available(5@)
                    wait 0
                end
                1@ = Actor.Create(CivMale, 5@, 2@, 3@, 4@)
                Actor.RemoveReferences(1@)
                Model.Destroy(5@) 
                04EF: release_animation "MEDIC"
                03BF: set_player $PLAYER_CHAR ignored_by_everyone 0
                01F7: set_player $PLAYER_CHAR ignored_by_cops 0
                Player.CanMove($PLAYER_CHAR) = true 
            end
        end
    end
end

А я думал что опкод 02E3 возращает скорость в м/с.

@Admiral -
http://sannybuilder.com/forums/viewtopi … 1667#p1667
http://sannybuilder.com/forums/viewtopi … 2895#p2895
http://sannybuilder.com/forums/viewtopi … 2940#p2940
http://sannybuilder.com/forums/viewtopi … 3000#p3000

Список адресов для каждой машины.

@grand - в начале мейна оставь, остальные удали или закомментируй.

@ILdar - все прекрасно работает:

{$CLEO}
0@ = 0
while true
    wait 0
    if
        Player.Defined($PLAYER_CHAR)
    then
        if and
            0AB0:  key_pressed 0x73 // F4
            0@ == 0
        then
            0@ = 1
            #ARMY.Load()
            while not #ARMY.Available()
                wait 0
            end
            09C7: change_player $PLAYER_CHAR model_to #ARMY
            #ARMY.Destroy()
            wait 150
        end
        if and
            0AB0:  key_pressed 0x73 // F4
            0@ == 1
        then
            0@ = 0
            09C7: change_player $PLAYER_CHAR model_to #NULL
            wait 150    
        end
    end
end

@Noob -

{$CLEO}
0@ = 0
1@ = 0
33@ = 0
while true
    wait 0
    if
        Player.Defined($PLAYR_CHAR)
    then
        if and
            1@ == 1
            33@ > 1000
        then
            2@ = Actor.Health($PLAYER_ACTOR)
            2@ += 2
            Actor.Health($PLAYER_ACTOR) = 2@
            33@ = 0       
        end
        if and
            0AB0:  key_pressed 0x73
            0@ == 0
        then
            018C: play_sound 1058 at 0.0 0.0 0.0 
            0@ = 1
            1@ = 1
            wait 150
        end
        if and
            0AB0:  key_pressed 0x73
            0@ == 1
        then
            018C: play_sound 1058 at 0.0 0.0 0.0 
            0@ = 0
            1@ = 0
            wait 150
        end
    end
end

@Взъерошенный -

Model.Load(1216)
while not Model.Available(1216)
    wait 0
end
0@ = Object.Create(1216, 0, 0, 0)
Model.Destroy(1216)

Вот еще несколько моделек:

@Seemann - спасибо, это действительно работает как с опкодом так и без, значит там как-то активирована эта фича.

@Seemann - тестирование ничего не дало. Перепробовал множество вариантов только все безрезультатно.

1)

while true
    wait 0
    0470: 0@ = actor $PLAYER_ACTOR current_weapon
    if
        0@ <> 0
    then
        0555: remove_weapon 0@ from_actor $PLAYER_ACTOR 
    end
end

2) Camera.SetPosition - точка, где камера находится; Camera.PointAt - точка, куда смотрит камера.