[Request]Cleo function add

Status
Not open for further replies.
S

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
S

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
R

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?
 
S

sweb1

Member
Joined
Dec 18, 2019
Messages
12
Reaction score
0
Location
Romania
Ravenous said:
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?
Click to expand...
Ma refer la comanda /gethit, am scris /gh ca prescurtare. Vreau sa implementez find cu hook pt og-times.
 
R

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@
 
S

sweb1

Member
Joined
Dec 18, 2019
Messages
12
Reaction score
0
Location
Romania
Ravenous said:
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@
Click to expand...

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.
 
S

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.
 
R

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
S

sweb1

Member
Joined
Dec 18, 2019
Messages
12
Reaction score
0
Location
Romania
Ravenous said:
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:
Click to expand...

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