SannyBuilder.com Forums

63.43494882292201 Вроде бы так:

@CraZZZy-GameRRR -

0AD9: write_formatted_text "aaa%c%cbbb" in_file $hFile 13 10

@Wire - http://sannybuilder.com/forums/viewtopi … 723#p12723

@Wire - В свойствах проекта посмотри Соглашение о вызовах если __cdecl (/Gd), то pop 2, если __stdcall (/Gz), то pop 0.

@Wire -
mydll.cpp

__declspec(dllexport) int plus (int a, int b) {
    return a + b;
}

mydll.def

EXPORTS
plus

{$CLEO}
0000:
while true
    wait 0
    if
        0AB0:  key_pressed 0x73
    then
        if
            0AA2: 0@ = load_library "CLEO\mydll.dll" // IF and SET
        then
            if
                0AA4: 1@ = get_proc_address "plus" library 0@ // IF and SET
            then
                0AA7: call_function 1@ num_params 2 pop 0 1 2 2@
                0ACE: show_formatted_text_box "%d" 2@
            end
            0AA3: free_library 0@
        end
    end
end

---

__cdecl (/Gd)        pop 2
__stdcall (/Gz)        pop 0

@mr.Andrei -

{$CLEO}

var
    0@: Float = 1.0
    1@: Float = 1.0
    33@: Integer = 0
end

while true
    wait 0
    if and
        0AB0:  key_pressed 0x73
        33@ > 150
    then
        0@ -= 0.01
        if 
            0@ < 0.0 
        then 
            0@ = 0.0 
        end
        33@ = 0    
    end
    
    if and
        0AB0:  key_pressed 0x74
        33@ > 150
    then
        0@ += 0.01
        if 
            0@ > 1.0 
        then 
            0@ = 1.0 
        end
        33@ = 0 
    end 
        
    if
        1@ <> 0@
    then
        0ACE: show_formatted_text_box "%.2f" 0@
        01EB: set_traffic_density_multiplier_to 0@
        1@ = 0@   
    end
end

{$CLEO}
31@ = 0
0AC6: 0@ = label @lbl offset
0A8C: write_memory 0x469E2C size 4 value 0@ virtual_protect 1
0AC7: 1@ = var 31@ offset
0@ += 2
0A8C: write_memory 0@ size 4 value 1@ virtual_protect 0
while true
    wait 0
    if
        31@ == 1
    then
        while true
            wait 0
            if and
                $ONMISSION == 0
                not Actor.Driving($PLAYER_ACTOR)    
            then
                Break
            end
        end
        0AA5: call 0x619060 num_params 1 pop 0 2        
        0ACE: show_formatted_text_box "SAVE OK"
        31@ = 0
    end
end

:lbl
hex
    C705 00000000 01000000  // MOV DWORD PTR DS:[00000000], 1
    B8 9B9A4600             // MOV EAX,00469A9B
    FFE0                    // JMP EAX
end

Проверил все работает. Осталось добавить различных проверок:

0256:   player $PLAYER_CHAR defined 
0AA9:    is_game_version_original

@Sergey81 -

{$CLEO}
0AC6: 0@ = label @lbl offset
0A8C: write_memory 0x00469E2C size 4 value 0@ virtual_protect 1
0A93: end_custom_thread

:lbl
hex
    B8 9B9A4600     // MOV EAX,00469A9B
    FFE0            // JMP EAX
end

@fighter390 - в справке все есть.
Для 00E1: Документация по SCM -> GTA SA -> Номера клавиш.
Для 0AB0: CLEO 3 Code Library -> Список значений кнопок для 0AB0.

@BoPoH - извратский метод с помощью 0AC8\0AC9:

{$CLEO}
0000:
while true
    wait 0
    if
        0AB0:  key_pressed 0x73
    then
        if
            0AA2: 0@ = load_library "msvcrt.dll" // IF and SET
        then
            if
                0AA4: 1@ = get_proc_address "_ultoa" library 0@ // IF and SET
            then
                0AC8: 10@ = allocate_memory_size 16
                0AA5: call 1@ num_params 3 pop 3 10 10@ 12345
                0ACA: show_text_box 10@
                0AC9: free_allocated_memory 10@
            end
            0AA3: free_library 0@
        end
    end
end

или тоже извратский, но буфером служит локальная переменная:

{$CLEO}
0000:
while true
    wait 0
    if
        0AB0:  key_pressed 0x73
    then
        if
            0AA2: 0@ = load_library "msvcrt.dll" // IF and SET
        then
            if
                0AA4: 1@ = get_proc_address "_ultoa" library 0@ // IF and SET
            then
                11@ = 0
                12@ = 0
                13@ = 0
                14@ = 0
                0AC7: 10@ = var 11@ offset
                0AA5: call 1@ num_params 3 pop 3 10 10@ 12345
                0ACA: show_text_box 11@v
            end
            0AA3: free_library 0@
        end
    end
end

@MB116 - из-за

jump @MAN

у тебя скрипт выполняется постоянно, ты его зациклил. Используй

0A93: end_custom_thread

, чтобы завершить скрипт:

{$CLEO}
#FAM1.Load
while not #FAM1.Available
    wait 0
end
0@ = Actor.Create(CivMale, #FAM1, 2494.4622,-1680.92,13.3385)
#FAM1.Destroy
0A93: end_custom_thread

cop_ambient.ifp
	Copbrowse_in
	Copbrowse_loop
	Copbrowse_nod
	Copbrowse_out
	Copbrowse_shake