[Request]Cleo function add

Status
Not open for further replies.

sweb1

Member
Joined
Dec 18, 2019
Messages
12
Reaction score
0
Location
Romania
* Name of the mod (if the mod doesn't exist, you don't have to tell one): AntiFW for HA
* Where you saw it (not the server, we mean if you saw any videos/screenshots about it or not): -
* What do you want (the most important part, explain this carefully): I would like to add a function in it that draws a line/hook from me to the contract that I am assigned with, like this (VIDEO), but to be shown whenever I use the command /gh that has already been assigned in the cleo mod.
* Details (add more details to your request) : -
* On/off key (specify it): /gh is already assigned so I want the find hook/line to be assigned to the same command. Thank you very much!
 

Attachments

  • AntiFW.cs
    21.8 KB · Views: 4

sweb1

Member
Joined
Dec 18, 2019
Messages
12
Reaction score
0
Location
Romania
I also have the code for the finder option, but I can`t seem to make it work into my implemented mod.
 

Attachments

  • finder.cs
    19.7 KB · Views: 2

Ravenous

Active member
Joined
Jan 21, 2016
Messages
61
Reaction score
4
Frate eu sunt gumball3000 si nici macar eu nu inteleg ce vrei sa faci, in modul tau antifw nu este niciun /gh, pe ce server vrei sa folosesti?
 

sweb1

Member
Joined
Dec 18, 2019
Messages
12
Reaction score
0
Location
Romania
Frate eu sunt gumball3000 si nici macar eu nu inteleg ce vrei sa faci, in modul tau antifw nu este niciun /gh, pe ce server vrei sa folosesti?
Ma refer la comanda /gethit, am scris /gh ca prescurtare. Vreau sa implementez find cu hook pt og-times.
 

Ravenous

Active member
Joined
Jan 21, 2016
Messages
61
Reaction score
4
Incearca asta:

Code:
{$CLEO}
0000: NOP
repeat
wait 50
until 0AFA: is_samp_structures_available
31@ = 0
10@ = 0
15@ = 0
17@ = 1
12@ = -1
0ac8: 20@ = 260


0B34: samp register_client_command "undercover" to_label @activated_400                                           
0B34: samp register_client_command "turn" to_label @activated_401
0B34: samp register_client_command "antifw" to_label @activated_402
0B34: samp register_client_command "gethit" to_label @gethit
0B34: samp register_client_command "killcp" to_label @killcp
chatmsg "{0099ff}Hitman Agency AntiFW By Synder!" -1
chatmsg "{0073e6}Foloseste /AntiFW pentru a opri modul." -1


while true
wait 0
if
12@ > -1
then
    if
    SAMP.IsPlayerConnected(12@)
    then
    0AB1: @drawline 1 12@
    else
    12@ = -1
    end
end
  
if
0118:   actor $PLAYER_ACTOR dead
then
31@ = 0
end
    if 17@ == 1
    then
        if
        call @htpd_593 0
        then
        call @htpd_466 0 30@ 29@ 28@
        Actor.StorePos($PLAYER_ACTOR, 27@, 26@, 25@)
        050A: 16@ = distance_between_XYZ 27@ 26@ 25@ and_XYZ 30@ 29@ 28@
        0092: 16@ = float 16@ to_integer
        else
        16@ = 101
        end
        if or
        31@ == 0
        10@ == 0
        then
            if
            not Actor.Driving($PLAYER_ACTOR)
            then
            0470: 0@ = actor $PLAYER_ACTOR current_weapon
                if 0@ == 34
                then
                01B9: set_actor $PLAYER_ACTOR armed_weapon_to 0
                print "~r~Foloseste /turn off si /undercover pentru a putea folosi armele.!" 2000
                end
            end
        end
      
        if
        16@ <= 100
        then
            if
            not Actor.Driving($PLAYER_ACTOR)
            then
            0470: 0@ = actor $PLAYER_ACTOR current_weapon
                if 0@ == 34
                then
                01B9: set_actor $PLAYER_ACTOR armed_weapon_to 0
                print "~r~Tinta este prea aproape!" 2000
                end
            end
        end
    end
end
                  


:gethit
SAMP.IsCommandTyped(20@)
if
0AD4: 20@ = scan_string 20@ format "%d" 12@
then
    say "/gethit %d" 12@
else
    print "~r~/gethit <id>" 2000
end
samp.CmdRet

:killcp
12@ = -1
say "/killcp"
samp.CmdRet

:activated_400
0B12: 31@ = 31@ XOR 1
0AF9: samp say_msg "/undercover"
samp.CmdRet

:activated_402
0B12: 17@ = 17@ XOR 1
If 17@ == 1
then
0AF8: samp add_message_to_chat "{ff6600}AntiFw {00ff00}pornit!" -1
else
0AF8: samp add_message_to_chat "{ff6600}AntiFw {ff0000}oprit!" -1
end
samp.CmdRet

:activated_401
SAMP.IsCommandTyped(20@)
if
0C14: 20@ "on"
then
10@ = 0
0AF9: samp say_msg "/turn on"
else
    if
    0C14: 20@ "off"
    then
        if 11@ == 1
        then
        10@ = 1
        11@ = 0
        0AF9: samp say_msg "/turn on"
        0AF9: samp say_msg "/turn off"
        else
        10@ = 1
        0AF9: samp say_msg "/turn off"
        end
        else
            if
            0C14: 20@ "off calls"
            then
            10@ = 0
            11@ = 1
            0AF9: samp say_msg "/turn off calls"
            end
        end
end
samp.CmdRet

:htpd_466
if
0AA2: 0@ = load_library "samp.dll" // IF and SET
jf @htpd_579
0A8E: 1@ = 0@ + 2203916 // int
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
1@ += 12
0A8D: 2@ = read_memory 1@ size 4 virtual_protect 0
1@ += 4
0A8D: 3@ = read_memory 1@ size 4 virtual_protect 0
1@ += 4
0A8D: 4@ = read_memory 1@ size 4 virtual_protect 0
0AA3: free_library 0@

:htpd_579
ret 3 2@ 3@ 4@

:htpd_593
if
0AA2: 0@ = load_library "samp.dll" // IF and SET
jf @htpd_697
0A8E: 1@ = 0@ + 2203916 // int
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
1@ += 36
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
if
  1@ == 1
jf @htpd_690
return_true
goto @htpd_692

:htpd_690
return_false

:htpd_692
0AA3: free_library 0@

:htpd_697
ret 0

:drawline
IF
SAMP.IsPlayerConnected(0@)
THEN
    IF
    10@ = SAMP.GetActorHandleByPlayerID(0@)
    THEN
    Actor.StorePos($PLAYER_ACTOR, 25@, 26@, 27@)
    0AB1: call_scm_func @GET_BONE_POS 2 FROM_ACTOR 10@ BONE 6 _STORE_TO 28@ 29@ 30@
    0B55: convert_3D_coords 25@ 26@ 27@ to_screen 25@ 26@
    0B55: convert_3D_coords 28@ 29@ 30@ to_screen 28@ 29@
    0B68: render draw_line_point1 25@ 26@ point2 28@ 29@ width 2 color 0xFFFF0000
    0B70: render draw_polygon_pos 25@ 26@ size 10 10 corners 14 rotation 0 color 0xFF000000
    0B70: render draw_polygon_pos 28@ 29@ size 10 10 corners 14 rotation 0 color 0xFF000000
    end
end
0AB2:  0             
              
:GET_BONE_POS
0085: 10@ = 0@
0085: 15@ = 1@
1@ = 0.0
2@ = 0.0
3@ = 0.0
0A96: 0@ = actor 10@ struct
0AC7: 4@ = var 1@ offset
0AA6: call_method 0x5E01C0 struct 0@ num_params 3 pop 0 bIncludeAnim 1 iBoneID 15@ vOffset 4@
0AB2: retn 3 1@ 2@ 3@
 

sweb1

Member
Joined
Dec 18, 2019
Messages
12
Reaction score
0
Location
Romania
Incearca asta:

Code:
{$CLEO}
0000: NOP
repeat
wait 50
until 0AFA: is_samp_structures_available
31@ = 0
10@ = 0
15@ = 0
17@ = 1
12@ = -1
0ac8: 20@ = 260


0B34: samp register_client_command "undercover" to_label @activated_400                                          
0B34: samp register_client_command "turn" to_label @activated_401
0B34: samp register_client_command "antifw" to_label @activated_402
0B34: samp register_client_command "gethit" to_label @gethit
0B34: samp register_client_command "killcp" to_label @killcp
chatmsg "{0099ff}Hitman Agency AntiFW By Synder!" -1
chatmsg "{0073e6}Foloseste /AntiFW pentru a opri modul." -1


while true
wait 0
if
12@ > -1
then
    if
    SAMP.IsPlayerConnected(12@)
    then
    0AB1: @drawline 1 12@
    else
    12@ = -1
    end
end
 
if
0118:   actor $PLAYER_ACTOR dead
then
31@ = 0
end
    if 17@ == 1
    then
        if
        call @htpd_593 0
        then
        call @htpd_466 0 30@ 29@ 28@
        Actor.StorePos($PLAYER_ACTOR, 27@, 26@, 25@)
        050A: 16@ = distance_between_XYZ 27@ 26@ 25@ and_XYZ 30@ 29@ 28@
        0092: 16@ = float 16@ to_integer
        else
        16@ = 101
        end
        if or
        31@ == 0
        10@ == 0
        then
            if
            not Actor.Driving($PLAYER_ACTOR)
            then
            0470: 0@ = actor $PLAYER_ACTOR current_weapon
                if 0@ == 34
                then
                01B9: set_actor $PLAYER_ACTOR armed_weapon_to 0
                print "~r~Foloseste /turn off si /undercover pentru a putea folosi armele.!" 2000
                end
            end
        end
     
        if
        16@ <= 100
        then
            if
            not Actor.Driving($PLAYER_ACTOR)
            then
            0470: 0@ = actor $PLAYER_ACTOR current_weapon
                if 0@ == 34
                then
                01B9: set_actor $PLAYER_ACTOR armed_weapon_to 0
                print "~r~Tinta este prea aproape!" 2000
                end
            end
        end
    end
end
                 


:gethit
SAMP.IsCommandTyped(20@)
if
0AD4: 20@ = scan_string 20@ format "%d" 12@
then
    say "/gethit %d" 12@
else
    print "~r~/gethit <id>" 2000
end
samp.CmdRet

:killcp
12@ = -1
say "/killcp"
samp.CmdRet

:activated_400
0B12: 31@ = 31@ XOR 1
0AF9: samp say_msg "/undercover"
samp.CmdRet

:activated_402
0B12: 17@ = 17@ XOR 1
If 17@ == 1
then
0AF8: samp add_message_to_chat "{ff6600}AntiFw {00ff00}pornit!" -1
else
0AF8: samp add_message_to_chat "{ff6600}AntiFw {ff0000}oprit!" -1
end
samp.CmdRet

:activated_401
SAMP.IsCommandTyped(20@)
if
0C14: 20@ "on"
then
10@ = 0
0AF9: samp say_msg "/turn on"
else
    if
    0C14: 20@ "off"
    then
        if 11@ == 1
        then
        10@ = 1
        11@ = 0
        0AF9: samp say_msg "/turn on"
        0AF9: samp say_msg "/turn off"
        else
        10@ = 1
        0AF9: samp say_msg "/turn off"
        end
        else
            if
            0C14: 20@ "off calls"
            then
            10@ = 0
            11@ = 1
            0AF9: samp say_msg "/turn off calls"
            end
        end
end
samp.CmdRet

:htpd_466
if
0AA2: 0@ = load_library "samp.dll" // IF and SET
jf @htpd_579
0A8E: 1@ = 0@ + 2203916 // int
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
1@ += 12
0A8D: 2@ = read_memory 1@ size 4 virtual_protect 0
1@ += 4
0A8D: 3@ = read_memory 1@ size 4 virtual_protect 0
1@ += 4
0A8D: 4@ = read_memory 1@ size 4 virtual_protect 0
0AA3: free_library 0@

:htpd_579
ret 3 2@ 3@ 4@

:htpd_593
if
0AA2: 0@ = load_library "samp.dll" // IF and SET
jf @htpd_697
0A8E: 1@ = 0@ + 2203916 // int
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
1@ += 36
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
if
  1@ == 1
jf @htpd_690
return_true
goto @htpd_692

:htpd_690
return_false

:htpd_692
0AA3: free_library 0@

:htpd_697
ret 0

:drawline
IF
SAMP.IsPlayerConnected(0@)
THEN
    IF
    10@ = SAMP.GetActorHandleByPlayerID(0@)
    THEN
    Actor.StorePos($PLAYER_ACTOR, 25@, 26@, 27@)
    0AB1: call_scm_func @GET_BONE_POS 2 FROM_ACTOR 10@ BONE 6 _STORE_TO 28@ 29@ 30@
    0B55: convert_3D_coords 25@ 26@ 27@ to_screen 25@ 26@
    0B55: convert_3D_coords 28@ 29@ 30@ to_screen 28@ 29@
    0B68: render draw_line_point1 25@ 26@ point2 28@ 29@ width 2 color 0xFFFF0000
    0B70: render draw_polygon_pos 25@ 26@ size 10 10 corners 14 rotation 0 color 0xFF000000
    0B70: render draw_polygon_pos 28@ 29@ size 10 10 corners 14 rotation 0 color 0xFF000000
    end
end
0AB2:  0            
             
:GET_BONE_POS
0085: 10@ = 0@
0085: 15@ = 1@
1@ = 0.0
2@ = 0.0
3@ = 0.0
0A96: 0@ = actor 10@ struct
0AC7: 4@ = var 1@ offset
0AA6: call_method 0x5E01C0 struct 0@ num_params 3 pop 0 bIncludeAnim 1 iBoneID 15@ vOffset 4@
0AB2: retn 3 1@ 2@ 3@

In hitman nu ai functia de <id> la /gethit. E comanda standalone, cand tastezi /gethit iti da automat contract din lista de pe server, deci nu pot testa daca nu pot da /gethit pentru a vedea daca merge sau nu hook-ul la find.
Daca poti scoate syntaxa de define id la /gethit o sa pot testa.
 

sweb1

Member
Joined
Dec 18, 2019
Messages
12
Reaction score
0
Location
Romania
E buguit complet, nu pot pune arma in mana desi am /turn off si /undercover, apare intr-una mesajul de atentionare. Functia de turn off nu merge in script deci a trebuit sa o scot ca sa pot scrie /turn off in-game.
Am reusit eu sa scot /gethit <id>, dar e totul buguit.
 

Ravenous

Active member
Joined
Jan 21, 2016
Messages
61
Reaction score
4
eu am vazut video pe youtube ca dai gethit id pe og times, pune atunci sa fie pe find, asta trebuie sa mearga, nu are de ce sa fie buguit

Code:
{$CLEO}
0000: NOP
repeat
wait 50
until 0AFA: is_samp_structures_available
31@ = 0
10@ = 0
15@ = 0
17@ = 1
12@ = -1
0ac8: 20@ = 260


0B34: samp register_client_command "undercover" to_label @activated_400                                          
0B34: samp register_client_command "turn" to_label @activated_401
0B34: samp register_client_command "antifw" to_label @activated_402
0B34: samp register_client_command "find" to_label @find
0B34: samp register_client_command "killcp" to_label @killcp
chatmsg "{0099ff}Hitman Agency AntiFW By Synder!" -1
chatmsg "{0073e6}Foloseste /AntiFW pentru a opri modul." -1


while true
wait 0
if
12@ > -1
then
    if
    SAMP.IsPlayerConnected(12@)
    then
    0AB1: @drawline 1 12@
    else
    12@ = -1
    end
end

if
0118:   actor $PLAYER_ACTOR dead
then
31@ = 0
end
    if 17@ == 1
    then
        if
        call @htpd_593 0
        then
        call @htpd_466 0 30@ 29@ 28@
        Actor.StorePos($PLAYER_ACTOR, 27@, 26@, 25@)
        050A: 16@ = distance_between_XYZ 27@ 26@ 25@ and_XYZ 30@ 29@ 28@
        0092: 16@ = float 16@ to_integer
        else
        16@ = 101
        end
        if or
        31@ == 0
        10@ == 0
        then
            if
            not Actor.Driving($PLAYER_ACTOR)
            then
            0470: 0@ = actor $PLAYER_ACTOR current_weapon
                if 0@ == 34
                then
                01B9: set_actor $PLAYER_ACTOR armed_weapon_to 0
                print "~r~Foloseste /turn off si /undercover pentru a putea folosi armele.!" 2000
                end
            end
        end
     
        if
        16@ <= 100
        then
            if
            not Actor.Driving($PLAYER_ACTOR)
            then
            0470: 0@ = actor $PLAYER_ACTOR current_weapon
                if 0@ == 34
                then
                01B9: set_actor $PLAYER_ACTOR armed_weapon_to 0
                print "~r~Tinta este prea aproape!" 2000
                end
            end
        end
    end
end
                 


:find
SAMP.IsCommandTyped(20@)
if
0AD4: 20@ = scan_string 20@ format "%d" 12@
then
    say "/gethit %d" 12@
else
    print "~r~/gethit <id>" 2000
end
samp.CmdRet

:killcp
12@ = -1
say "/killcp"
samp.CmdRet

:activated_400
0B12: 31@ = 31@ XOR 1
0AF9: samp say_msg "/undercover"
samp.CmdRet

:activated_402
0B12: 17@ = 17@ XOR 1
If 17@ == 1
then
0AF8: samp add_message_to_chat "{ff6600}AntiFw {00ff00}pornit!" -1
else
0AF8: samp add_message_to_chat "{ff6600}AntiFw {ff0000}oprit!" -1
end
samp.CmdRet

:activated_401
SAMP.IsCommandTyped(20@)
if
0C14: 20@ "on"
then
10@ = 0
0AF9: samp say_msg "/turn on"
else
    if
    0C14: 20@ "off"
    then
        if 11@ == 1
        then
        10@ = 1
        11@ = 0
        0AF9: samp say_msg "/turn on"
        0AF9: samp say_msg "/turn off"
        else
        10@ = 1
        0AF9: samp say_msg "/turn off"
        end
        else
            if
            0C14: 20@ "off calls"
            then
            10@ = 0
            11@ = 1
            0AF9: samp say_msg "/turn off calls"
            end
        end
end
samp.CmdRet

:htpd_466
if
0AA2: 0@ = load_library "samp.dll" // IF and SET
jf @htpd_579
0A8E: 1@ = 0@ + 2203916 // int
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
1@ += 12
0A8D: 2@ = read_memory 1@ size 4 virtual_protect 0
1@ += 4
0A8D: 3@ = read_memory 1@ size 4 virtual_protect 0
1@ += 4
0A8D: 4@ = read_memory 1@ size 4 virtual_protect 0
0AA3: free_library 0@

:htpd_579
ret 3 2@ 3@ 4@

:htpd_593
if
0AA2: 0@ = load_library "samp.dll" // IF and SET
jf @htpd_697
0A8E: 1@ = 0@ + 2203916 // int
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
1@ += 36
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
if
  1@ == 1
jf @htpd_690
return_true
goto @htpd_692

:htpd_690
return_false

:htpd_692
0AA3: free_library 0@

:htpd_697
ret 0

:drawline
IF
SAMP.IsPlayerConnected(0@)
THEN
    IF
    10@ = SAMP.GetActorHandleByPlayerID(0@)
    THEN
    Actor.StorePos($PLAYER_ACTOR, 25@, 26@, 27@)
    0AB1: call_scm_func @GET_BONE_POS 2 FROM_ACTOR 10@ BONE 6 _STORE_TO 28@ 29@ 30@
    0B55: convert_3D_coords 25@ 26@ 27@ to_screen 25@ 26@
    0B55: convert_3D_coords 28@ 29@ 30@ to_screen 28@ 29@
    0B68: render draw_line_point1 25@ 26@ point2 28@ 29@ width 2 color 0xFFFF0000
    0B70: render draw_polygon_pos 25@ 26@ size 10 10 corners 14 rotation 0 color 0xFF000000
    0B70: render draw_polygon_pos 28@ 29@ size 10 10 corners 14 rotation 0 color 0xFF000000
    end
end
0AB2:  0            
             
:GET_BONE_POS
0085: 10@ = 0@
0085: 15@ = 1@
1@ = 0.0
2@ = 0.0
3@ = 0.0
0A96: 0@ = actor 10@ struct
0AC7: 4@ = var 1@ offset
0AA6: call_method 0x5E01C0 struct 0@ num_params 3 pop 0 bIncludeAnim 1 iBoneID 15@ vOffset 4@
0AB2: retn 3 1@ 2@ 3@

uite si compilat, poate tu nu il compilezi cum trebuie:
 

Attachments

  • antifw.cs
    23.6 KB · Views: 2

sweb1

Member
Joined
Dec 18, 2019
Messages
12
Reaction score
0
Location
Romania
eu am vazut video pe youtube ca dai gethit id pe og times, pune atunci sa fie pe find, asta trebuie sa mearga, nu are de ce sa fie buguit

Code:
{$CLEO}
0000: NOP
repeat
wait 50
until 0AFA: is_samp_structures_available
31@ = 0
10@ = 0
15@ = 0
17@ = 1
12@ = -1
0ac8: 20@ = 260


0B34: samp register_client_command "undercover" to_label @activated_400                                         
0B34: samp register_client_command "turn" to_label @activated_401
0B34: samp register_client_command "antifw" to_label @activated_402
0B34: samp register_client_command "find" to_label @find
0B34: samp register_client_command "killcp" to_label @killcp
chatmsg "{0099ff}Hitman Agency AntiFW By Synder!" -1
chatmsg "{0073e6}Foloseste /AntiFW pentru a opri modul." -1


while true
wait 0
if
12@ > -1
then
    if
    SAMP.IsPlayerConnected(12@)
    then
    0AB1: @drawline 1 12@
    else
    12@ = -1
    end
end

if
0118:   actor $PLAYER_ACTOR dead
then
31@ = 0
end
    if 17@ == 1
    then
        if
        call @htpd_593 0
        then
        call @htpd_466 0 30@ 29@ 28@
        Actor.StorePos($PLAYER_ACTOR, 27@, 26@, 25@)
        050A: 16@ = distance_between_XYZ 27@ 26@ 25@ and_XYZ 30@ 29@ 28@
        0092: 16@ = float 16@ to_integer
        else
        16@ = 101
        end
        if or
        31@ == 0
        10@ == 0
        then
            if
            not Actor.Driving($PLAYER_ACTOR)
            then
            0470: 0@ = actor $PLAYER_ACTOR current_weapon
                if 0@ == 34
                then
                01B9: set_actor $PLAYER_ACTOR armed_weapon_to 0
                print "~r~Foloseste /turn off si /undercover pentru a putea folosi armele.!" 2000
                end
            end
        end
    
        if
        16@ <= 100
        then
            if
            not Actor.Driving($PLAYER_ACTOR)
            then
            0470: 0@ = actor $PLAYER_ACTOR current_weapon
                if 0@ == 34
                then
                01B9: set_actor $PLAYER_ACTOR armed_weapon_to 0
                print "~r~Tinta este prea aproape!" 2000
                end
            end
        end
    end
end
                


:find
SAMP.IsCommandTyped(20@)
if
0AD4: 20@ = scan_string 20@ format "%d" 12@
then
    say "/gethit %d" 12@
else
    print "~r~/gethit <id>" 2000
end
samp.CmdRet

:killcp
12@ = -1
say "/killcp"
samp.CmdRet

:activated_400
0B12: 31@ = 31@ XOR 1
0AF9: samp say_msg "/undercover"
samp.CmdRet

:activated_402
0B12: 17@ = 17@ XOR 1
If 17@ == 1
then
0AF8: samp add_message_to_chat "{ff6600}AntiFw {00ff00}pornit!" -1
else
0AF8: samp add_message_to_chat "{ff6600}AntiFw {ff0000}oprit!" -1
end
samp.CmdRet

:activated_401
SAMP.IsCommandTyped(20@)
if
0C14: 20@ "on"
then
10@ = 0
0AF9: samp say_msg "/turn on"
else
    if
    0C14: 20@ "off"
    then
        if 11@ == 1
        then
        10@ = 1
        11@ = 0
        0AF9: samp say_msg "/turn on"
        0AF9: samp say_msg "/turn off"
        else
        10@ = 1
        0AF9: samp say_msg "/turn off"
        end
        else
            if
            0C14: 20@ "off calls"
            then
            10@ = 0
            11@ = 1
            0AF9: samp say_msg "/turn off calls"
            end
        end
end
samp.CmdRet

:htpd_466
if
0AA2: 0@ = load_library "samp.dll" // IF and SET
jf @htpd_579
0A8E: 1@ = 0@ + 2203916 // int
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
1@ += 12
0A8D: 2@ = read_memory 1@ size 4 virtual_protect 0
1@ += 4
0A8D: 3@ = read_memory 1@ size 4 virtual_protect 0
1@ += 4
0A8D: 4@ = read_memory 1@ size 4 virtual_protect 0
0AA3: free_library 0@

:htpd_579
ret 3 2@ 3@ 4@

:htpd_593
if
0AA2: 0@ = load_library "samp.dll" // IF and SET
jf @htpd_697
0A8E: 1@ = 0@ + 2203916 // int
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
1@ += 36
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
if
  1@ == 1
jf @htpd_690
return_true
goto @htpd_692

:htpd_690
return_false

:htpd_692
0AA3: free_library 0@

:htpd_697
ret 0

:drawline
IF
SAMP.IsPlayerConnected(0@)
THEN
    IF
    10@ = SAMP.GetActorHandleByPlayerID(0@)
    THEN
    Actor.StorePos($PLAYER_ACTOR, 25@, 26@, 27@)
    0AB1: call_scm_func @GET_BONE_POS 2 FROM_ACTOR 10@ BONE 6 _STORE_TO 28@ 29@ 30@
    0B55: convert_3D_coords 25@ 26@ 27@ to_screen 25@ 26@
    0B55: convert_3D_coords 28@ 29@ 30@ to_screen 28@ 29@
    0B68: render draw_line_point1 25@ 26@ point2 28@ 29@ width 2 color 0xFFFF0000
    0B70: render draw_polygon_pos 25@ 26@ size 10 10 corners 14 rotation 0 color 0xFF000000
    0B70: render draw_polygon_pos 28@ 29@ size 10 10 corners 14 rotation 0 color 0xFF000000
    end
end
0AB2:  0           
            
:GET_BONE_POS
0085: 10@ = 0@
0085: 15@ = 1@
1@ = 0.0
2@ = 0.0
3@ = 0.0
0A96: 0@ = actor 10@ struct
0AC7: 4@ = var 1@ offset
0AA6: call_method 0x5E01C0 struct 0@ num_params 3 pop 0 bIncludeAnim 1 iBoneID 15@ vOffset 4@
0AB2: retn 3 1@ 2@ 3@

uite si compilat, poate tu nu il compilezi cum trebuie:

Nu merge, modul in sine se incarca, totul ok, dar nu am line hook-ul ala.
 

Attachments

  • screenshot_21-12-2019_17-18-14-804.png
    screenshot_21-12-2019_17-18-14-804.png
    3.2 MB · Views: 6
Status
Not open for further replies.
Top