CLEO Help help me convert one, SAMPFUNCS call function line to normal

CLEO related

newbie69

Member
Joined
Sep 15, 2017
Messages
6
Reaction score
0
i had old script which worked without samp funcs, this is the code below

call @Noname_264 3 1@ 2@ 3@ 4@ 5@, is the line that needs to be converted

Code:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
03F0: enable_text_draw 1
wait 5000
13@ = 0

:Noname_11
wait 0
if and
0AB0: 75
0AB0: 51
then
    if 13@ == 1
    then
    13@ = 0
    else
    13@ = 1
    end
wait 500
end
if and
   Player.Defined($PLAYER_ACTOR)
   13@ == 1
else_jump @Noname_257
0A8D: 29@ = read_memory 12010652 size 4 virtual_protect 0
29@ += 4
0A8D: 29@ = read_memory 29@ size 4 virtual_protect 0
30@ = 0

:Noname_71
0A8D: 31@ = read_memory 29@ size 1 virtual_protect 0
29@ += 1
if and
  31@ >= 0
  128 > 31@
else_jump @Noname_232
005A: 31@ += 30@ // (int)
15@ = Object.Model(31@)
Object.StorePos(31@, 1@, 2@, 3@)
call @Noname_264 3 1@ 2@ 3@ 4@ 5@
for 14@ = 2040 to 2043 step 1
    if or
    003B: 15@ == 14@
    0039: 15@ == 1240
    then
    0342: set_text_draw_centered 1
    081C: draw_text_outline 1 RGBA 0 0 0 255
    033F: set_text_draw_letter_size 0.3 1.0
    0340: set_text_draw_RGBA 0 255 0 255
    045A: draw_text_1number 4@ 5@ GXT 'NUMBER' number 15@  // ~1~
    end
end

:Noname_232
30@ += 256
  30@ > 89344
else_jump @Noname_71

:Noname_257
jump @Noname_11

:Noname_264
0AA7: call_function 7392816 num_params 6 pop 6 1 1 7@s 6@s 2@s 0@s 29@ 
0073: 2@ /= 6@ // (float)
0073: 2@ /= 4@ // (float)
0073: 3@ /= 7@ // (float)
0073: 3@ /= 4@ // (float)
2@ *= 640.0
3@ *= 448.0
ret 2 2@ 3@
 

Parazitas

God
Staff member
Joined
Jan 2, 2017
Messages
3,315
Solutions
7
Reaction score
937
Location
Lithuania
PHP:
{$CLEO .cs}

0000:

REPEAT
IF 8AA2: $NOT_USED = "samp.dll"
THEN 0A93: end_custom_thread
END
WAIT 1500
UNTIL 0AA2: $NOT_USED = "samp.dll"

WHILE TRUE
WAIT 0

IF 0256:   player $PLAYER_CHAR defined
THEN

    IF 0ADC:   test_cheat "K1"
    THEN
        IF 13@ == FALSE
        THEN 13@ = TRUE
        ELSE 13@ = FALSE
        END
    END
    
    IF 13@ == TRUE
    THEN
        0A8D: 29@ = read_memory 0xB7449C size 4 virtual_protect 0
        000A: 29@ += 0x4
        0A8D: 29@ = read_memory 29@ size 4 virtual_protect 0
        FOR 30@ = 0 TO 89344 step 0x100
            0A8D: 31@ = read_memory 29@ size 1 virtual_protect 0
            000A: 29@ += 0x1
            IF AND
                0029:  31@ >= 0x00 
                001B:  0x80 > 31@
            THEN 
                005A: 31@ += 30@     
                IF AND
                03CA:   object 31@ exists
                02CC:   object 31@ bounding_sphere_visible
                THEN 
                    0984: 15@ = object 31@ model    
                    0400: store_coords_to 1@ 2@ 3@ from_object 31@ with_offset 0.0 0.0 0.0
                    0AB1: @getScreenXYFrom3DCoords 3 XYZ 1@ 2@ 3@ _Returned: XY 4@ 5@
                    FOR 14@ = 2040 TO 2043 step 1
                        IF OR
                        003B: 15@ == 14@
                        0039: 15@ == 1240
                        THEN
                            03F0: enable_text_draw 1
                            0342: set_text_draw_centered 1
                            081C: draw_text_outline 1 RGBA 0 0 0 255
                            033F: set_text_draw_letter_size 0.3 1.0
                            0340: set_text_draw_RGBA 0 255 0 255
                            045A: draw_text_1number 4@ 5@ GXT 'NUMBER' number 15@  // ~1~
                        END
                    END
                END
            END
        END
    END
END

END

:getScreenXYFrom3DCoords
0AA7: call_function 7392816 num_params 6 pop 6 1 1 7@s 6@s 2@s 0@s 29@ 
0073: 2@ /= 6@ // (float)
0073: 2@ /= 4@ // (float)
0073: 3@ /= 7@ // (float)
0073: 3@ /= 4@ // (float)
2@ *= 640.0
3@ *= 448.0
0AB2: ret 2 2@ 3@
 
Top