#1 17-07-2016 08:52

Shanker69
Registered: 17-07-2016
Posts: 12

A Question about Sanny

{$CLEO .cs}
	Thread "Invulnerable"
	:inv_01
wait 0
if and
0256:   player $PLAYER_CHAR defined
0AB0:   key_pressed 17 // ctrl
0AB0:   key_pressed 81 // q
jf @inv_01
jf @inv_02
Actor.SetImmunities($Player_Actor, 0, 0, 0, 1, 0) // activated
	
:inv_02
jump @inv_01
	:inv_03
wait 0
if and
0256:   player $PLAYER_CHAR defined
0AB0:   key_pressed 17 // ctrl 
0AB0:   key_pressed 82 // r
jf @inv_03
jf @inv_04
Actor.SetImmunities($Player_Actor, 0, 0, 0, 0, 0) // deactivated
	:inv_04
jump @inv_03
	:inv_dead
wait 0
if
0118:   actor $Player_Actor dead
jf @inv_dead
wait 100
jump @inv_01
	0A93: end_custom_thread

As can you see 2nd bind ( key_pressed 17 & 82 ) doesn't work, i don't know why, maybe its a sanny bug? so i must do this script like ...

03A4: name_thread 'INVULNERABLE'
	
:inv_01
wait 0
if and
0256:   player $PLAYER_CHAR defined
0AB0:   key_pressed 17
0AB0:   key_pressed 81
jf @inv_01
Actor.SetImmunities($Player_Actor, 0, 0, 0, 1, 0)
wait 10000
Actor.SetImmunities($Player_Actor, 0, 0, 0, 0, 0)
jf @inv_01
jump @inv_01

0459: end_thread_named 'INVULNERABLE'

Can some one tell me why x2 labels with differents key_pressed, just first label with key_pressed work?
look here,

{$CLEO .cs}

0000: NOP

03A4: name_thread 'SETHPCAR'


:Set_HP
wait 100
if
Player.Defined($Player_CHAR)
jf @Set_HP_2
jump @Set_HP_3

:Set_HP_2
jf @Set_HP

:Set_HP_3
wait 0
if and
Actor.Driving($PLAYER_ACTOR)
0AB0:   key_pressed 82  // 
jf @Set_HP_4
1@ = Actor.CurrentCar($PLAYER_ACTOR)
0224:   set_car 1@ health_to 999999 // 
wait 200

:Set_HP_4
jump @Set_HP_3

0459: end_thread_named 'SETHPCAR'

03A4: name_thread 'INVULNERABLE'
	
:inv_01
wait 0
if and
0256:   player $PLAYER_CHAR defined
0AB0:   key_pressed 17
0AB0:   key_pressed 81
jf @inv_01
Actor.SetImmunities($Player_Actor, 0, 0, 0, 1, 0)
wait 10000
Actor.SetImmunities($Player_Actor, 0, 0, 0, 0, 0)
jf @inv_01
jump @inv_01


0459: end_thread_named 'INVULNERABLE'

As can you see here, its just one cleo script with two scripts, set health car and invulnerable at collisions, but , just first script its working, set health car, if vulnerable was first script and sethp car 2nd script, just first script its working ... i don't know why, can some one tell me why? or this is bug? or i just missed something ...

Offline

#2 17-07-2016 10:31

wmysterio
Registered: 04-03-2011
Posts: 215
Website

Re: A Question about Sanny

1) Don't use 0459 opcode in this script. Need write 0A93: end_custom_thread.
2) Opcode 03A4 only changes the thread name. In code

0459: end_thread_named 'SETHPCAR'
03A4: name_thread 'INVULNERABLE'
// you command

you close a thread and then it starts again work with him. The CLEO is to use only one active thread.

Possible solutions:

{$CLEO}
0000: NOP

while true
wait 0

    while Player.Defined($PLAYER_CHAR)
    wait 0
    
        if and
        Actor.Driving($PLAYER_ACTOR)
        0AB0:   key_pressed 82
        then
        1@ = Actor.CurrentCar($PLAYER_ACTOR)
        0224: set_car 1@ health_to 999999  
        end  
        
        if and
        0AB0:   key_pressed 17
        0AB0:   key_pressed 81
        then
        Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 1, 0)
        wait 10000
        Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
        end
  
        // write you conditions here...

    end
    
end

Another option - use several Cleo-scripts

Last edited by wmysterio (17-07-2016 10:33)

Offline

#3 17-07-2016 11:56

Shanker69
Registered: 17-07-2016
Posts: 12

Re: A Question about Sanny

wmysterio wrote:

1) Don't use 0459 opcode in this script. Need write 0A93: end_custom_thread.
2) Opcode 03A4 only changes the thread name. In code

0459: end_thread_named 'SETHPCAR'
03A4: name_thread 'INVULNERABLE'
// you command

you close a thread and then it starts again work with him. The CLEO is to use only one active thread.

Possible solutions:

{$CLEO}
0000: NOP

while true
wait 0

    while Player.Defined($PLAYER_CHAR)
    wait 0
    
        if and
        Actor.Driving($PLAYER_ACTOR)
        0AB0:   key_pressed 82
        then
        1@ = Actor.CurrentCar($PLAYER_ACTOR)
        0224: set_car 1@ health_to 999999  
        end  
        
        if and
        0AB0:   key_pressed 17
        0AB0:   key_pressed 81
        then
        Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 1, 0)
        wait 10000
        Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
        end
  
        // write you conditions here...

    end
    
end

Another option - use several Cleo-scripts

Now this is working, but, u did just a little mistake, car repair work just for one time but i repaired it, thanks a lot smile p.s, that method to do scripts its ... i preff with labels or several scripts but .. is k like that smile ty

Offline

#4 18-07-2016 18:05

Shanker69
Registered: 17-07-2016
Posts: 12

Re: A Question about Sanny

Hey, i have other problems, im trying to set vehicles health if im passenger and i don't know how ... i just did that

        if and
        Actor.Driving($PLAYER_ACTOR)
        0AB0:   key_pressed 17
        0AB0:   key_pressed 82
        then
        1@ = Actor.CurrentCar($PLAYER_ACTOR)
        010B: 2@ = player $PLAYER_CHAR money
        0224: set_car 1@ health_to 2@
        end

( this script depend of player money )

something other what i don't know is ...

{$CLEO .cs}
if and
0AB0:   key_pressed 17
0AB0:   key_pressed 82
then
0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)

( this tp at marker , but how can i tp at every checkpoint what is on?)

Offline

#5 18-07-2016 18:57

wmysterio
Registered: 04-03-2011
Posts: 215
Website

Re: A Question about Sanny

this tp at marker , but how can i tp at every checkpoint what is on?

Use opcode 0AB6 as condition:

if and
0AB0:   key_pressed 17
0AB0:   key_pressed 82
0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET
then
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
end

If CJ is a passenger(Maybe I did not understand the question):

if and
Actor.Driving($PLAYER_ACTOR)
0AB0:   key_pressed 17
0AB0:   key_pressed 82
then
1@ = Actor.CurrentCar($PLAYER_ACTOR) // Get player car and
046C: 2@ = car 1@ driver             // get driver in car
    if
    056D:   actor 2@ defined // if driver exist
    then
        if
        803C:   not $PLAYER_ACTOR == 2@  // and if it is not CJ ( 2@ and $PLAYER_ACTOR equals int variable in this moment )
        then
        010B: 3@ = player $PLAYER_CHAR money // get money CJ. Why is this? :)
        0224: set_car 1@ health_to 3@        // set car new health level
        end
    end
end

Offline

#6 19-07-2016 15:01

Shanker69
Registered: 17-07-2016
Posts: 12

Re: A Question about Sanny

wmysterio wrote:

Not working smile anyway, i play just samp not single player:) i have other problem but i cant resolve it ... idk what the f*ck is wrong with this but,

  {$CLEO .cs}
0000: NOP
// {P$}
5@ = 17
6@ = 82
7@ = 84
8@ = 49
9@ = 0
10@ = 10000
11@ = 4000
12@ = 85
13@ = 15
14@ = 63
15@ = 2000
16@ = 20000
17@ = 31
18@ = 68
19@ = 1000
20@ = 32
21@ = 91
22@ = 812
23@ = 71
24@ = 61
25@ = 510
26@ = 41
27@ = 31
28@ = 21
29@ = 50001
30@ = 20
31@ = 210
32@ = 211
33@ = 213
//{over}

while true
wait 9@
 
    while Player.Defined($PLAYER_CHAR)
    wait 9@
     
        if and
        Actor.Driving($PLAYER_ACTOR)
        // key_pressed 0@
        0AB0:   key_pressed 5@
        0AB0:   key_pressed 6@
        then
        1@ = Actor.CurrentCar($PLAYER_ACTOR)
        010B: 2@ = player $PLAYER_CHAR money
        0224: set_car 1@ health_to 2@                                                 
        end                                                                
        
        if and
        Actor.Driving($PLAYER_ACTOR)
        // key_pressed 1@
        0AB0:   key_pressed 5@
        0AB0:   key_pressed 6@
        then
        1@ = Actor.CurrentCar($PLAYER_ACTOR)
        010B: 2@ = player $PLAYER_CHAR money
        0224: set_car 1@ health_to 2@
        end
        
        if and
        // key_pressed 2@
        0AB0:   key_pressed 5@
        0AB0:   key_pressed 7@
        then
        0AB6: store_target_marker_coords_to 0@ 1@ 2@ 
        Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
        end
        
        if and
        // key_pressed 4@
        0AB0:   key_pressed 5@
        0AB0:   key_pressed 8@
        then
        Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 1, 0)
        0AD1: show_formatted_text_highpriority "Wait 10 seconds before using other scripts." time 10@
        wait 10@
        Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
        end
        
        wait 0 
        0A8C: write_memory 7431746 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 7431765 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 12216218 size 4 value 13 virtual_protect 1 
        if and
        0AB0:   key_pressed 18 
        0AB0:   key_pressed 87
        then
        wait 0
        0A8C: write_memory 7431746 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 7431765 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 12216218 size 4 value 13 virtual_protect 1 
        if 
        Actor.Driving($PLAYER_ACTOR)
        then
        0A8C: write_memory 7431746 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 7431765 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 12216218 size 4 value 13 virtual_protect 1 
        0@ = Actor.CurrentCar($PLAYER_ACTOR)
        0A8C: write_memory 7431746 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 7431765 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 12216218 size 4 value 13 virtual_protect 1 
        02E3: 1@ = car 0@ speed 
        if 
            not 1@ >= 150.0
        then
        Car.SetSpeedInstantly(0@, 61.0)
        1@ *= 1.15 
        1@ += 4.0 
        Car.SetSpeedInstantly(0@, 1@)
        wait 50
        
        if
        0ADC:   test_cheat "HELP"
        then
        0AD1: show_formatted_text_highpriority "Ctrl + 1  = Disable Colissions/Ctrl + R = Set HP Car/Ctrl + T  = Teleport to" time 11@ 0x0AD1
        wait 9@
        end
        
       end
           
     end
        
   end
     
end  

last script. "test_cheat help" doesn't work idk why.... can u resolve it for me?

Offline

#7 19-07-2016 17:48

wmysterio
Registered: 04-03-2011
Posts: 215
Website

Re: A Question about Sanny

"test_cheat help" doesn't work idk why.

test_cheat in this script works only when:
- 0AB0:   key_pressed 18
- 0AB0:   key_pressed 87
- Actor.Driving($PLAYER_ACTOR)
and
- not 1@ >= 150.0 // car speed

You need change location of condition from down to up in while:

// script...

while true
wait 9@
  
    while Player.Defined($PLAYER_CHAR)
    wait 9@    

        if
        0ADC:   test_cheat "HELP"
        then
        0AD1: show_formatted_text_highpriority "Ctrl + 1  = Disable Colissions/Ctrl + R = Set HP Car/Ctrl + T  = Teleport to" time 11@ // 0x0AD1
        wait 9@
        end

// script...

What is this word?

f*ck

Sorry, I do not speak english well.

Offline

#8 19-07-2016 19:37

Shanker69
Registered: 17-07-2016
Posts: 12

Re: A Question about Sanny

wmysterio wrote:

"test_cheat help" doesn't work idk why.

test_cheat in this script works only when:
- 0AB0:   key_pressed 18
- 0AB0:   key_pressed 87
- Actor.Driving($PLAYER_ACTOR)
and
- not 1@ >= 150.0 // car speed

You need change location of condition from down to up in while:

// script...

while true
wait 9@
  
    while Player.Defined($PLAYER_CHAR)
    wait 9@    

        if
        0ADC:   test_cheat "HELP"
        then
        0AD1: show_formatted_text_highpriority "Ctrl + 1  = Disable Colissions/Ctrl + R = Set HP Car/Ctrl + T  = Teleport to" time 11@ // 0x0AD1
        wait 9@
        end

// script...

What is this word?

f*ck

Sorry, I do not speak english well.

you don't really need to know what it means smile)
another question, if im trying to do this script JUST with commands, not "key_pressed", how can i? i found this :

0B34: samp register_client_command "command" to_label @label_name  & Samp.Available

but this is still not working if im trying to compile it ... already compiled and script still working well .. but probably with new sanny builder, are new commands etc

what i mean saying, do it as well plz and the rest i can do solo

{$CLEO .cS}
:LABEL_01
wait 0                        
if 
   SAMP.Available
else_jump @LABEL_01
0B34: samp register_client_command "command1" to_label @LABEL_02 // if i write in chat "/command1" the cheat will set my hp to 100

:LABEL_02
   SAMP.IsCommandTyped(0@)
Actor.Health($PLAYER_ACTOR) = 100
print "HEALTH RESTORED!" 2000 
SAMP.CmdRet

i already know how to do more scripts but just with "key_pressed", like the last script what its up smile but this is boring... i preff commands in chat smile

Offline

#9 19-07-2016 19:49

wmysterio
Registered: 04-03-2011
Posts: 215
Website

Re: A Question about Sanny

you don't really need to know what it means

Ok )

what i mean saying, do it as well plz and the rest i can do solo

Sorry. I don't worked with SAMP commands

Offline

#10 19-07-2016 19:56

Shanker69
Registered: 17-07-2016
Posts: 12

Re: A Question about Sanny

wmysterio wrote:

you don't really need to know what it means

Ok )

what i mean saying, do it as well plz and the rest i can do solo

Sorry. I don't worked with SAMP commands

ok .. then, f*ck = fute ( in ucrainian), now can u tell me if u know other program who can be more easy than sanny to create what i said up?

Offline

#11 19-07-2016 20:32

wmysterio
Registered: 04-03-2011
Posts: 215
Website

Re: A Question about Sanny

fute ( in ucrainian)

Maybe, = fute( in Romanian) ? I understood the meaning of the word.

now can u tell me if u know other program who can be more easy than sanny to create what i said up

Sanny Builder is best programm.
Maybe, this code is worked:

{$CLEO}
0000: NOP
 
repeat
wait 0
until 0AFA:   is_samp_available
 
0B34: samp register_client_command "command1" to_label @COMMAND1 // if i write in chat "/command1" the cheat will set my hp to 100 
 
while true // Main loop (use always)
wait 0
end
 
// Next command List:

 // COMMAND BEGIN
:COMMAND1
//Actor.Health($PLAYER_ACTOR) = 100  ; maybe this command is not used in SAMP Func. View http://blast.hk/wiki/opcodes:list
0AF8: samp add_message_to_chat "HEALTH RESTORED!" color -1
0B43: samp cmd_ret
// COMMAND END

Last edited by wmysterio (19-07-2016 21:03)

Offline

#12 19-07-2016 21:12

Shanker69
Registered: 17-07-2016
Posts: 12

Re: A Question about Sanny

wmysterio wrote:

fute ( in ucrainian)

Maybe, = fute( in Romanian) ? I understood the meaning of the word.

now can u tell me if u know other program who can be more easy than sanny to create what i said up

Sanny Builder is best programm.
Maybe, this code is worked:

{$CLEO}
0000: NOP
 
repeat
wait 0
until 0AFA:   is_samp_available
 
0B34: samp register_client_command "command1" to_label @COMMAND1 // if i write in chat "/command1" the cheat will set my hp to 100 
 
while true // Main loop (use always)
wait 0
end
 
// Next command List:

 // COMMAND BEGIN
:COMMAND1
//Actor.Health($PLAYER_ACTOR) = 100  ; maybe this command is not used in SAMP Func. View http://blast.hk/wiki/opcodes:list
0AF8: samp add_message_to_chat "HEALTH RESTORED!" color -1
0B43: samp cmd_ret
// COMMAND END

yea, you found the first command, but 0B34 is still not working smile i will try it .. if i will not find, then i will do all my script with " key presseds " smile)

{$CLEO .cs}
0000: NOP
// {P$}
5@ = 17
6@ = 82
7@ = 84
8@ = 49
9@ = 0
10@ = 10000
11@ = 4000
12@ = 85
13@ = 15
14@ = 63
15@ = 2000
16@ = 20000
17@ = 74
18@ = 68
19@ = 1000
20@ = 32
21@ = 91
22@ = 812
23@ = 73
24@ = 61
25@ = 510
26@ = 41
27@ = 31
28@ = 21
29@ = 50001
30@ = 20
31@ = 210
32@ = 211
33@ = 213
//{over}
 
while true
wait 9@
  
    while Player.Defined($PLAYER_CHAR)
    wait 9@
      
        if and
        Actor.Driving($PLAYER_ACTOR)
        // key_pressed 0@
        0AB0:   key_pressed 5@
        0AB0:   key_pressed 6@
        then
        1@ = Actor.CurrentCar($PLAYER_ACTOR)
        010B: 2@ = player $PLAYER_CHAR money
        0224: set_car 1@ health_to 2@                                                
        end
        
        if and
        NOT Actor.Driving($PLAYER_ACTOR)
        0AB0:   key_pressed 5@
        0AB0:   key_pressed 23@
        then
        0330: set_player $PLAYER_CHAR infinite_run 1   
        end   
        
        if and
        NOT Actor.Driving($PLAYER_ACTOR)
        0AB0:   key_pressed 5@
        0AB0:   key_pressed 17@
        then
        0330: set_player $PLAYER_CHAR infinite_run 0 
        end
                                                                         
        if and
        Actor.Driving($PLAYER_ACTOR)
        // key_pressed 1@
        0AB0:   key_pressed 5@
        0AB0:   key_pressed 6@
        then
        1@ = Actor.CurrentCar($PLAYER_ACTOR)
        010B: 2@ = player $PLAYER_CHAR money
        0224: set_car 1@ health_to 2@
        end
         
        if and
        // key_pressed 2@
        0AB0:   key_pressed 5@
        0AB0:   key_pressed 7@
        then
        0AB6: store_target_marker_coords_to 0@ 1@ 2@
        Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
        end
         
        if and
        // key_pressed 4@
        0AB0:   key_pressed 5@
        0AB0:   key_pressed 8@
        then
        Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 1, 0)
        0AD1: show_formatted_text_highpriority "Wait 10 seconds before using other scripts." time 10@
        wait 10@
        Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
        end
         
        wait 0 
        0A8C: write_memory 7431746 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 7431765 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 12216218 size 4 value 13 virtual_protect 1 
        if and
        0AB0:   key_pressed 18 
        0AB0:   key_pressed 87
        then
        wait 0
        0A8C: write_memory 7431746 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 7431765 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 12216218 size 4 value 13 virtual_protect 1 
        if
        Actor.Driving($PLAYER_ACTOR)
        then
        0A8C: write_memory 7431746 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 7431765 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 12216218 size 4 value 13 virtual_protect 1 
        0@ = Actor.CurrentCar($PLAYER_ACTOR)
        0A8C: write_memory 7431746 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 7431765 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 12216218 size 4 value 13 virtual_protect 1 
        02E3: 1@ = car 0@ speed 
        if
            not 1@ >= 150.0
        then
        Car.SetSpeedInstantly(0@, 61.0)
        1@ *= 1.15 
        1@ += 4.0 
        Car.SetSpeedInstantly(0@, 1@)
        wait 50
         
         
       end
            
     end
         
   end
      
end 

Offline

#13 19-07-2016 21:19

wmysterio
Registered: 04-03-2011
Posts: 215
Website

Re: A Question about Sanny

Maybe, opcode 0AFA:   is_samp_available always returns false and command 0B34 is never executed.
SAMP Funk probably is not functioning properly or improperly installed.

Offline

#14 20-07-2016 07:51

Shanker69
Registered: 17-07-2016
Posts: 12

Re: A Question about Sanny

wmysterio wrote:

Maybe, opcode 0AFA:   is_samp_available always returns false and command 0B34 is never executed.
SAMP Funk probably is not functioning properly or improperly installed.

anyway .... my script looking like that :

{$CLEO .cs}
0000: NOP

while true
wait 0
  
    while Player.Defined($PLAYER_CHAR)
    wait 0
      
        if and
        Actor.Driving($PLAYER_ACTOR)
        // key_pressed 0@
        0AB0:   key_pressed 17
        0AB0:   key_pressed 82
        then
        1@ = Actor.CurrentCar($PLAYER_ACTOR)
        010B: 2@ = player $PLAYER_CHAR money
        0224: set_car 1@ health_to 2@                                                
        end
        
        if and
        0AB0:   key_pressed 17
        0AB0:   key_pressed 83
        then
        04C4: store_coords_to $saved_x $saved_y $saved_z from_actor $PLAYER_ACTOR with_offset 0.0 0.0 -1.0
        $saved_a = Actor.Angle($PLAYER_ACTOR)
        077E: get_active_interior_to $saved_i
        0AD1: show_formatted_text_highpriority "Position saved! Press Ctrl+L to come back." time 3500
        end
        
        if and
        0AB0:   key_pressed 17
        0AB0:   key_pressed 76
        then
        Actor.PutAt($PLAYER_ACTOR, $saved_x, $saved_y, $saved_z)
        0AD1: show_formatted_text_highpriority "Position loaded!" time 3500         
        end
                 
        if and
        NOT Actor.Driving($PLAYER_ACTOR)
        0AB0:   key_pressed 17
        0AB0:   key_pressed 73
        then
        0330: set_player $PLAYER_CHAR infinite_run 1
        0AD1: show_formatted_text_highpriority "INFINITE RUN ON! PRESS CTRL+Z+I FOR DEACTIVATE IT" time 3500  
        end   
        
        if and
        NOT Actor.Driving($PLAYER_ACTOR)
        0AB0:   key_pressed 17
        0AB0:   key_pressed 73
        0AB0:   key_pressed 90
        then
        0330: set_player $PLAYER_CHAR infinite_run 0        
        0AD1: show_formatted_text_highpriority "INFINITE RUN OFF!" time 3500  
        end
                                                                         
        if and
        Actor.Driving($PLAYER_ACTOR)
        0AB0:   key_pressed 17
        0AB0:   key_pressed 82
        then
        1@ = Actor.CurrentCar($PLAYER_ACTOR)
        010B: 2@ = player $PLAYER_CHAR money
        0224: set_car 1@ health_to 2@
        end
         
        if and
        // key_pressed 2@
        0AB0:   key_pressed 17
        0AB0:   key_pressed 84
        then
        0AB6: store_target_marker_coords_to 0@ 1@ 2@
        Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
        end
         
        if and
        // key_pressed 4@
        0AB0:   key_pressed 17
        0AB0:   key_pressed 49
        then
        Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 1, 0)
        0AD1: show_formatted_text_highpriority "Wait 10 seconds before using other scripts." time 10000
        wait 10000
        Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
        end
        
        if and
        0AB0:   key_pressed 17
        0AB0:   key_pressed 87
        then
        0AA2: 14@ = load_library "samp.dll" // IF and SET 
        0A8E: 1@ = 14@ + 457971 // int 
        0A8C: write_memory 1@ size 6 value -1869574000 virtual_protect 1 
        0A8E: 2@ = 14@ + 458004 // int 
        0A8C: write_memory 2@ size 6 value -1869574000 virtual_protect 1 
        0A8E: 3@ = 14@ + 458280 // int 
        0A8C: write_memory 3@ size 2 value 37008 virtual_protect 1 
        0A8E: 4@ = 14@ + 462648 // int 
        0A8C: write_memory 4@ size 2 value 37008 virtual_protect 1 
        0A8E: 5@ = 14@ + 462372 // int 
        0A8C: write_memory 5@ size 6 value -1869574000 virtual_protect 1 
        0AA3: free_library 14@
        0AD1: show_formatted_text_highpriority "It is Loaded :)" time 3500
        end
        
        if and
        0AB0:   key_pressed 17
        0AB0:   key_pressed 87
        0AB0:   key_pressed 90
        then
        0AA2: 14@ = load_library "samp.dll" // IF and SET 
        0A8E: 1@ = 14@ + 457971 // int 
        0A8C: write_memory 1@ size 4 value 24216591 virtual_protect 1 
        0A8E: 2@ = 1@ + 4 // int 
        0A8C: write_memory 2@ size 2 value 0 virtual_protect 1 
        0A8E: 3@ = 14@ + 458004 // int 
        0A8C: write_memory 3@ size 4 value 22053903 virtual_protect 1 
        0A8E: 4@ = 3@ + 4 // int 
        0A8C: write_memory 4@ size 2 value 0 virtual_protect 1 
        0A8E: 5@ = 14@ + 458280 // int 
        0A8C: write_memory 5@ size 2 value 16500 virtual_protect 1 
        0A8E: 6@ = 14@ + 462648 // int 
        0A8C: write_memory 6@ size 2 value 24948 virtual_protect 1 
        0A8E: 7@ = 14@ + 462372 // int 
        0A8C: write_memory 7@ size 4 value 24218127 virtual_protect 1 
        0A8E: 8@ = 7@ + 4 // int 
        0A8C: write_memory 8@ size 2 value 0 virtual_protect 1 
        0AA3: free_library 14@
        0AD1: show_formatted_text_highpriority "That's not loaded anymore:(" time 3500
        end 
                       
        wait 0 
        0A8C: write_memory 7431746 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 7431765 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 12216218 size 4 value 13 virtual_protect 1 
        if and
        0AB0:   key_pressed 18 
        0AB0:   key_pressed 87
        then
        wait 0
        0A8C: write_memory 7431746 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 7431765 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 12216218 size 4 value 13 virtual_protect 1 
        if
        Actor.Driving($PLAYER_ACTOR)
        then
        0A8C: write_memory 7431746 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 7431765 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 12216218 size 4 value 13 virtual_protect 1 
        0@ = Actor.CurrentCar($PLAYER_ACTOR)
        0A8C: write_memory 7431746 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 7431765 size 4 value 100000.0 virtual_protect 1 
        0A8C: write_memory 12216218 size 4 value 13 virtual_protect 1 
        02E3: 1@ = car 0@ speed 
        if
            not 1@ >= 150.0
        then
        Car.SetSpeedInstantly(0@, 61.0)
        1@ *= 1.15 
        1@ += 4.0 
        Car.SetSpeedInstantly(0@, 1@)
        wait 50
         
         
       end
            
     end
         
   end
      
end 

but i didn't finished it smile i have many ideas
what i want to know, what is opcode to create an dialog, in that dialog i wanna tell something like that
in script:
if
key_pressed x
then
showplayerdialog(dialog_x, "dialog name", "ok(that is cancel)")
dialog_x = and here i will enter the text

now im trying do:

if
        0ADC:   test_cheat "GIVEMEM4"
        then
        Model.Load(#M4)
        038B: load_requested_models 
        Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, 31, 999)
        0AD1: show_formatted_text_highpriority "M4 Loaded!" time 3500
        end
        
        if
        0ADC:   test_cheat "GIVEMECOMBATSHOTGUN"
        then
        Model.Load(#SHOTGSPA)
        038B: load_requested_models 
        Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, 27, 999)
        0AD1: show_formatted_text_highpriority "Combat Shotgun Loaded!" time 3500
        end
        
        if
        0ADC:   test_cheat "GIVEMETEC9"
        then
        Model.Load(#TEC9)
        038B: load_requested_models 
        Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, 32, 999)
        0AD1: show_formatted_text_highpriority "Tec9 Loaded!" time 3500
        end
        
        if
        0ADC:   test_cheat "GIVEMEPARACHUTE"
        then
        Model.Load(#)
        038B: load_requested_models 
        Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, 32, 999)
        0AD1: show_formatted_text_highpriority "Tec9 Loaded!" time 3500
        end
        
        
        if
        0ADC:   test_cheat "GIVEMEDEAGLE"
        then
        Model.Load(#DESERT_EAGLE)
        038B: load_requested_models 
        Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, 24, 999)
        0AD1: show_formatted_text_highpriority "Deagle Loaded!" time 3500
        end

as can you see... without commands its hard but is ok ... what i don't know is, the fucking load name at parachute smile) i know id is 371 but i must enter the load name ... and i cant find it

Last edited by Shanker69 (20-07-2016 08:21)

Offline

#15 20-07-2016 09:13

wmysterio
Registered: 04-03-2011
Posts: 215
Website

Re: A Question about Sanny

load name at parachute

See Sanny Builder Documentation.

if
0ADC:   test_cheat "GIVEMEPARACHUTE"
then
Model.Load(#GUN_PARA)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, 46, 999) 
          
Model.Destroy(#GUN_PARA) // ALWAYS DESTROY LOADED MODELS WHEN NO LONGER NEEDED

0AD1: show_formatted_text_highpriority "Parachute Loaded!" time 3500
end

what i want to know, what is opcode to create an dialog, in that dialog i wanna tell something like that

In SCM and CLEO this command is none. We need to do manually.

Last edited by wmysterio (20-07-2016 09:25)

Offline

#16 20-07-2016 09:31

Shanker69
Registered: 17-07-2016
Posts: 12

Re: A Question about Sanny

wmysterio wrote:

load name at parachute

See Sanny Builder Documentation.

if
0ADC:   test_cheat "GIVEMEPARACHUTE"
then
Model.Load(#GUN_PARA)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, 46, 999) 
          
Model.Destroy(#GUN_PARA) // ALWAYS DESTROY LOADED MODELS WHEN NO LONGER NEEDED

0AD1: show_formatted_text_highpriority "Parachute Loaded!" time 3500
end

what i want to know, what is opcode to create an dialog, in that dialog i wanna tell something like that

In SCM and CLEO this command is none. We need to do manually.

i dont understand ... how can i do it manually? can u show me an example?

Offline

#17 20-07-2016 09:36

wmysterio
Registered: 04-03-2011
Posts: 215
Website

Re: A Question about Sanny

how can i do it manually?

This is when you write a lot of auxiliary code.

can u show me an example?

This task is not free.

Offline

#18 20-07-2016 16:40

Shanker69
Registered: 17-07-2016
Posts: 12

Re: A Question about Sanny

wmysterio wrote:

how can i do it manually?

This is when you write a lot of auxiliary code.

can u show me an example?

This task is not free.

nope thanks i can do it with myself smile) and you did a mistake, with labels can too do more scripts, before i did just a little mistake and u didn't saw it smile)

{$CLEO .cs}


0000: NOP 

:NONAME_2
wait 0 

:NONAME_6
   Player.Defined($PLAYER_CHAR)
jf @NONAME_1991 
wait 0 
if and
   Actor.Driving($PLAYER_ACTOR)
0ADC:   test_cheat "REPAIRMYCAR" 
jf @NONAME_102 
1@ = Actor.CurrentCar($PLAYER_ACTOR)
2@ = Player.Money($PLAYER_CHAR)
Car.Health(1@) = 2@
0AD1: show_formatted_text_highpriority "VEHICLE REPAIRED!" time 3500  

:NONAME_102
if 
0ADC:   test_cheat "SAVEPOS" 
jf @NONAME_189 
04C4: store_coords_to $SAVED_X $SAVED_Y $SAVED_Z from_actor $PLAYER_ACTOR with_offset 0.0 0.0 -1.0 
$SAVED_A = Actor.Angle($PLAYER_ACTOR)
077E: get_active_interior_to $SAVED_I 
0AD1: show_formatted_text_highpriority "POSITION SAVED!" time 3500  

:NONAME_189
if 
0ADC:   test_cheat "LOADPOS" 
jf @NONAME_249 
Actor.PutAt($PLAYER_ACTOR, $SAVED_X, $SAVED_Y, $SAVED_Z)
0AD1: show_formatted_text_highpriority "POSITION LOADED!" time 3500  

:NONAME_249
if and
   not Actor.Driving($PLAYER_ACTOR)
0ADC:   test_cheat "INFRUNON" 
jf @NONAME_308 
Player.InfiniteRun($PLAYER_CHAR) = True
0AD1: show_formatted_text_highpriority "INFINITE RUN ON!" time 3500  

:NONAME_308
if and
   not Actor.Driving($PLAYER_ACTOR)
0ADC:   test_cheat "INFRUNOFF" 
jf @NONAME_369 
Player.InfiniteRun($PLAYER_CHAR) = False
0AD1: show_formatted_text_highpriority "INFINITE RUN OFF!" time 3500  

:NONAME_369
if and
   Actor.Driving($PLAYER_ACTOR)
0ADC:   test_cheat "REPAIRMYCAR" 
jf @NONAME_449 
1@ = Actor.CurrentCar($PLAYER_ACTOR)
2@ = Player.Money($PLAYER_CHAR)
Car.Health(1@) = 2@
0AD1: show_formatted_text_highpriority "VEHICLE REPAIRED!" time 3500  

:NONAME_449
if 
0ADC:   test_cheat "GOMARKER" 
jf @NONAME_530 
0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET 
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
0AD1: show_formatted_text_highpriority "YOU HAVE BEEN TELEPORTED!" time 3500  

:NONAME_530
if 
0ADC:   test_cheat "INVON" 
jf @NONAME_603 
Actor.SetImmunities($PLAYER_ACTOR, 1, 1, 1, 1, 1)
0AD1: show_formatted_text_highpriority "INVULNERABLE AT COLLISIONS ON!" time 3500  

:NONAME_603
if 
0ADC:   test_cheat "INVOFF" 
jf @NONAME_678 
Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
0AD1: show_formatted_text_highpriority "INVULNERABLE AT COLLISIONS OFF!" time 3500  

:NONAME_678
if 
0ADC:   test_cheat "GIVEMEM4" 
jf @NONAME_736 
Model.Load(#M4)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, M4, 999)
0AD1: show_formatted_text_highpriority "M4 LOADED!" time 3500  

:NONAME_736
if 
0ADC:   test_cheat "GIVEME27" 
jf @NONAME_806 
Model.Load(#SHOTGSPA)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, CombatShotgun, 999)
0AD1: show_formatted_text_highpriority "COMBAT SHOTGUN LOADED!" time 3500  

:NONAME_806
if 
0ADC:   test_cheat "GIVEME32" 
jf @NONAME_866 
Model.Load(#TEC9)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, Tec9, 999)
0AD1: show_formatted_text_highpriority "TEC9 LOADED!" time 3500  

:NONAME_866
if 
0ADC:   test_cheat "GIVEMEMINIGUN" 
jf @NONAME_934 
Model.Load(#MINIGUN)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, Minigun, 9999)
0AD1: show_formatted_text_highpriority "MINIGUN LOADED!" time 3500  

:NONAME_934
if 
0ADC:   test_cheat "GIVEMEDILDO" 
jf @NONAME_1004 
Model.Load(#GUN_DILDO2)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, WhiteDildo, 9999)
0AD1: show_formatted_text_highpriority "DICK LOADED! XD :))" time 3500  

:NONAME_1004
if 
0ADC:   test_cheat "GIVEMEPAR" 
jf @NONAME_1069 
Model.Load(#GUN_PARA)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, Parachute, 1)
0AD1: show_formatted_text_highpriority "PARACHUTE LOADED!" time 3500  

:NONAME_1069
if 
0ADC:   test_cheat "FREEZEME" 
jf @NONAME_1129 
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
Player.CanMove($PLAYER_CHAR) = False
0AD1: show_formatted_text_highpriority "YOU GOT FREEZE!" time 3500  

:NONAME_1129
if 
0ADC:   test_cheat "NOFREEZE" 
jf @NONAME_1191 
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
Player.CanMove($PLAYER_CHAR) = True
0AD1: show_formatted_text_highpriority "YOU GOT UNFREEZE!" time 3500  

:NONAME_1191
if 
0ADC:   test_cheat "UPME" 
jf @NONAME_1283 
04C4: store_coords_to $ACTOR_X $ACTOR_Y $ACTOR_Z from_actor $PLAYER_ACTOR with_offset 0.0 0.0 5.0 
Actor.PutAt($PLAYER_ACTOR, $ACTOR_X, $ACTOR_Y, $ACTOR_Z)
0AD1: show_formatted_text_highpriority "YOU ARE ABOVE 5 UNITS!" time 3500  

:NONAME_1283
if 
0ADC:   test_cheat "DOWNME" 
jf @NONAME_1377 
04C4: store_coords_to $ACTOR_X $ACTOR_Y $ACTOR_Z from_actor $PLAYER_ACTOR with_offset 0.0 0.0 -5.0 
Actor.PutAt($PLAYER_ACTOR, $ACTOR_X, $ACTOR_Y, $ACTOR_Z)
0AD1: show_formatted_text_highpriority "YOU ARE BELOW 5 UNITS!" time 3500  

:NONAME_1377
if 
0ADC:   test_cheat "GIVEME35" 
jf @NONAME_1448 
Model.Load(#ROCKETLA)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, RPG, 999)
0AD1: show_formatted_text_highpriority "ROCKET LAUNCHER LOADED!" time 3500  

:NONAME_1448
if 
0ADC:   test_cheat "GIVEMEDEAGLE" 
jf @NONAME_1514 
Model.Load(#DESERT_EAGLE)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, DesertEagle, 999)
0AD1: show_formatted_text_highpriority "DEAGLE LOADED!" time 3500  

:NONAME_1514
if 
0ADC:   test_cheat "LOADON" 
jf @NONAME_1713 
0AA2: 14@ = load_library "SAMP.DLL" // IF and SET 
0A8E: 1@ = 14@ + 457971 // int 
0A8C: write_memory 1@ size 6 value -1869574000 virtual_protect 1 
0A8E: 2@ = 14@ + 458004 // int 
0A8C: write_memory 2@ size 6 value -1869574000 virtual_protect 1 
0A8E: 3@ = 14@ + 458280 // int 
0A8C: write_memory 3@ size 2 value 37008 virtual_protect 1 
0A8E: 4@ = 14@ + 462648 // int 
0A8C: write_memory 4@ size 2 value 37008 virtual_protect 1 
0A8E: 5@ = 14@ + 462372 // int 
0A8C: write_memory 5@ size 6 value -1869574000 virtual_protect 1 
0AA3: free_library 14@ 
0AD1: show_formatted_text_highpriority "IT IS LOADED :)" time 3500  

:NONAME_1713
if 
0ADC:   test_cheat "LOADOFF" 
jf @NONAME_1984 
0AA2: 14@ = load_library "SAMP.DLL" // IF and SET 
0A8E: 1@ = 14@ + 457971 // int 
0A8C: write_memory 1@ size 4 value 24216591 virtual_protect 1 
0A8E: 2@ = 1@ + 4 // int 
0A8C: write_memory 2@ size 2 value 0 virtual_protect 1 
0A8E: 3@ = 14@ + 458004 // int 
0A8C: write_memory 3@ size 4 value 22053903 virtual_protect 1 
0A8E: 4@ = 3@ + 4 // int 
0A8C: write_memory 4@ size 2 value 0 virtual_protect 1 
0A8E: 5@ = 14@ + 458280 // int 
0A8C: write_memory 5@ size 2 value 16500 virtual_protect 1 
0A8E: 6@ = 14@ + 462648 // int 
0A8C: write_memory 6@ size 2 value 24948 virtual_protect 1 
0A8E: 7@ = 14@ + 462372 // int 
0A8C: write_memory 7@ size 4 value 24218127 virtual_protect 1 
0A8E: 8@ = 7@ + 4 // int 
0A8C: write_memory 8@ size 2 value 0 virtual_protect 1 
0AA3: free_library 14@ 
0AD1: show_formatted_text_highpriority "THAT'S NOT LOADED ANYMORE:(" time 3500  

:NONAME_1984
jump @NONAME_6 

:NONAME_1991
jump @NONAME_2 

with labels is more easy to do scripts

Offline

#19 20-07-2016 18:33

wmysterio
Registered: 04-03-2011
Posts: 215
Website

Re: A Question about Sanny

1@ = Actor.CurrentCar($PLAYER_ACTOR)
2@ = Player.Money($PLAYER_CHAR)
Car.Health(1@) = 2@

Could be so

1@ = Actor.CurrentCar($PLAYER_ACTOR)
0A30: repair_car 1@

nope thanks i can do it with myself

Good luck.

with labels is more easy to do scripts

So it seems at first glance.

and you did a mistake

Over 5 years of experience I can afford mistakes.

Offline

#20 25-07-2016 09:21

Shanker69
Registered: 17-07-2016
Posts: 12

Re: A Question about Sanny

Hey, im trying to do /.help at my script but if this looking like that:

Script 1

there is label with hex ( /.help )

Script 2

etc ...

this working but ... when i run script 1, automatticaly /.help running to ... idk why iidk how to resolve it ... f*ck it sad

there is the hex

hex
41 75 74 68 6F 72 3A 20 53 68 61 6E 6B 65 72 0D 0A 20
 0D 0A 43 6F 6D 6D 61 6E 64 73 3A 20 0D 0A 2F 66 6C 6F
  6F 64 20 28 20 31 20 2D 20 61 62 62 72 65 76 69 61 74
   69 6F 6E 20 29 0D 0A 20 0D 0A 54 45 53 54 5F 43 48 45
    41 54 53 28 4C 49 4B 45 20 49 4E 20 53 49 4E 47 4C 45
     20 57 48 45 4E 20 55 20 41 43 54 49 56 41 54 45 20 41
      4E 20 50 41 53 53 57 4F 52 44 29 0D 0A 0D 0A 52 45 50
       41 49 52 4D 59 43 41 52 20 26 20 53 41 56 45 50 4F 53
        20 26 20 4C 4F 41 44 50 4F 53 0D 0A 49 4E 46 52 55 4E
         4F 4E 20 26 20 49 4E 46 52 55 4E 4F 46 46 20 26 20 47
          4F 4D 41 52 4B 45 52 20 26 20 49 4E 56 4F 4E 0D 0A 49
           4E 56 4F 46 46 20 26 20 47 49 56 45 4D 45 4D 34 20 26
            20 47 49 56 45 4D 45 32 37 20 26 20 47 49 56 45 4D 45
             33 32 0D 0A 47 49 56 45 4D 45 4D 49 4E 49 47 55 4E 20
              26 20 47 49 56 45 4D 45 44 49 4C 44 4F 20 26 20 47 49
               56 45 4D 45 50 41 52 0D 0A 46 52 45 45 5A 45 4D 45 20
                26 20 4E 4F 46 52 45 45 5A 45 20 26 20 55 50 4D 45 20
                 26 20 44 4F 57 4E 4D 45 0D 0A 47 49 56 45 4D 45 33 35
                  20 26 20 4F 50 20 26 20 42 49 4B 45 31 20 26 20 42 49
                   4B 45 32 20 26 20 47 4F 4C 53 0D 0A 47 4F 4C 56 20 26
                    20 47 4F 53 46 20 26 20 47 49 56 45 4D 45 44 45 41 47
                     4C 45 20 26 20 4C 4F 41 44 4F 4E 0D 0A 4C 4F 41 44 4F
                      46 46
end

there is the script:

// 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 

0B34: samp register_client_command "flood" to_label @NONAME_1500 
0B34: samp register_client_command "1" to_label @NONAME_1500 // this is silent version for flood 
 

:NONAME_2
wait 0 

:NONAME_6
   Player.Defined($PLAYER_CHAR)
jf @NONAME_1991 
wait 0 
if and
   Actor.Driving($PLAYER_ACTOR)
0ADC:   test_cheat "REPAIRMYCAR" 
jf @NONAME_102 
1@ = Actor.CurrentCar($PLAYER_ACTOR)
2@ = Player.Money($PLAYER_CHAR)
Car.Health(1@) = 2@
0AD1: show_formatted_text_highpriority "VEHICLE REPAIRED!" time 3500  
 
:NONAME_102
if 
0ADC:   test_cheat "SAVEPOS" 
jf @NONAME_189 
04C4: store_coords_to $SAVED_X $SAVED_Y $SAVED_Z from_actor $PLAYER_ACTOR with_offset 0.0 0.0 -1.0 
$SAVED_A = Actor.Angle($PLAYER_ACTOR)
077E: get_active_interior_to $SAVED_I 
0AD1: show_formatted_text_highpriority "POSITION SAVED!" time 3500  

:NONAME_189
if 
0ADC:   test_cheat "LOADPOS" 
jf @NONAME_249 
Actor.PutAt($PLAYER_ACTOR, $SAVED_X, $SAVED_Y, $SAVED_Z)
0AD1: show_formatted_text_highpriority "POSITION LOADED!" time 3500  

:NONAME_249
if and
   not Actor.Driving($PLAYER_ACTOR)
0ADC:   test_cheat "INFRUNON" 
jf @NONAME_308 
Player.InfiniteRun($PLAYER_CHAR) = True
0AD1: show_formatted_text_highpriority "INFINITE RUN ON!" time 3500  

:NONAME_308
if and
   not Actor.Driving($PLAYER_ACTOR)
0ADC:   test_cheat "INFRUNOFF" 
jf @NONAME_369 
Player.InfiniteRun($PLAYER_CHAR) = False
0AD1: show_formatted_text_highpriority "INFINITE RUN OFF!" time 3500  

:NONAME_369
if and
   Actor.Driving($PLAYER_ACTOR)
0ADC:   test_cheat "REPAIRMYCAR" 
jf @NONAME_449 
1@ = Actor.CurrentCar($PLAYER_ACTOR)
2@ = Player.Money($PLAYER_CHAR)
Car.Health(1@) = 2@
0AD1: show_formatted_text_highpriority "VEHICLE REPAIRED!" time 3500  

:NONAME_449
if 
0ADC:   test_cheat "GOMARKER" 
jf @NONAME_530 
0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET 
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
0AD1: show_formatted_text_highpriority "YOU HAVE BEEN TELEPORTED!" time 3500  

:NONAME_530
if 
0ADC:   test_cheat "INVON" 
jf @NONAME_603 
Actor.SetImmunities($PLAYER_ACTOR, 1, 1, 1, 1, 1)
0AD1: show_formatted_text_highpriority "INVULNERABLE AT COLLISIONS ON!" time 3500  

:NONAME_603
if 
0ADC:   test_cheat "INVOFF" 
jf @NONAME_678 
Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
0AD1: show_formatted_text_highpriority "INVULNERABLE AT COLLISIONS OFF!" time 3500  

:NONAME_678
if 
0ADC:   test_cheat "GIVEMEM4" 
jf @NONAME_736 
Model.Load(#M4)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, M4, 999)
0AD1: show_formatted_text_highpriority "M4 LOADED!" time 3500  

:NONAME_736
if 
0ADC:   test_cheat "GIVEME27" 
jf @NONAME_806 
Model.Load(#SHOTGSPA)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, CombatShotgun, 999)
0AD1: show_formatted_text_highpriority "COMBAT SHOTGUN LOADED!" time 3500  

:NONAME_806
if 
0ADC:   test_cheat "GIVEME32" 
jf @NONAME_866 
Model.Load(#TEC9)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, Tec9, 999)
0AD1: show_formatted_text_highpriority "TEC9 LOADED!" time 3500  

:NONAME_866
if 
0ADC:   test_cheat "GIVEMEMINIGUN" 
jf @NONAME_934 
Model.Load(#MINIGUN)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, Minigun, 9999)
0AD1: show_formatted_text_highpriority "MINIGUN LOADED!" time 3500  

:NONAME_934
if 
0ADC:   test_cheat "GIVEMEDILDO" 
jf @NONAME_1004 
Model.Load(#GUN_DILDO2)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, WhiteDildo, 9999)
0AD1: show_formatted_text_highpriority "DICK LOADED! XD :))" time 3500  

:NONAME_1004
if 
0ADC:   test_cheat "GIVEMEPAR" 
jf @NONAME_1069 
Model.Load(#GUN_PARA)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, Parachute, 1)
0AD1: show_formatted_text_highpriority "PARACHUTE LOADED!" time 3500  

:NONAME_1069
if 
0ADC:   test_cheat "FREEZEME" 
jf @NONAME_1129 
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
Player.CanMove($PLAYER_CHAR) = False
0AD1: show_formatted_text_highpriority "YOU GOT FREEZE!" time 3500  

:NONAME_1129
if 
0ADC:   test_cheat "NOFREEZE" 
jf @NONAME_1191 
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
Player.CanMove($PLAYER_CHAR) = True
0AD1: show_formatted_text_highpriority "YOU GOT UNFREEZE!" time 3500  

:NONAME_1191
if 
0ADC:   test_cheat "UPME" 
jf @NONAME_1283 
04C4: store_coords_to $ACTOR_X $ACTOR_Y $ACTOR_Z from_actor $PLAYER_ACTOR with_offset 0.0 0.0 5.0 
Actor.PutAt($PLAYER_ACTOR, $ACTOR_X, $ACTOR_Y, $ACTOR_Z)
0AD1: show_formatted_text_highpriority "YOU ARE ABOVE 5 UNITS!" time 3500  

:NONAME_1283
if 
0ADC:   test_cheat "DOWNME" 
jf @NONAME_1377 
04C4: store_coords_to $ACTOR_X $ACTOR_Y $ACTOR_Z from_actor $PLAYER_ACTOR with_offset 0.0 0.0 -5.0 
Actor.PutAt($PLAYER_ACTOR, $ACTOR_X, $ACTOR_Y, $ACTOR_Z)
0AD1: show_formatted_text_highpriority "YOU ARE BELOW 5 UNITS!" time 3500  

:NONAME_1377
if 
0ADC:   test_cheat "GIVEME35" 
jf @NONAME_1421 
Model.Load(#ROCKETLA)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, RPG, 999)
0AD1: show_formatted_text_highpriority "ROCKET LAUNCHER LOADED!" time 3500  

:NONAME_1421
if and
Actor.Driving($PLAYER_ACTOR)
0ADC:   test_cheat "OP"
jf @NONAME_1422
$CAR = Actor.CurrentCar($PLAYER_ACTOR)
$CAR_A = Car.Angle($CAR)
Car.Angle($CAR) = $CAR_A
Car.RemoveReferences($car)
0AD1: show_formatted_text_highpriority "Fliped!" time 3500 

:NONAME_1422
if
0ADC:   test_cheat "BIKE1"
jf @NONAME_1423
08C6: set_actor $PLAYER_ACTOR stay_on_bike 1
0AD1: show_formatted_text_highpriority "Now you cant fall from the bike!" time 3500 

:NONAME_1423
if
0ADC:   test_cheat "BIKE2"
jf @NONAME_1424
08C6: set_actor $PLAYER_ACTOR stay_on_bike 0
0AD1: show_formatted_text_highpriority "Now you can fall from the bike!" time 3500

:NONAME_1424
if
0ADC:   test_cheat "GOLS"
jf @NONAME_1425 
Actor.PutAt($PLAYER_ACTOR, 1542.8267, -1675.6636, 13.5553)
select_interior 0 
0860: link_actor $PLAYER_ACTOR to_interior 0
0AD1: show_formatted_text_highpriority "Los Santos!" time 3500

:NONAME_1425
if
0ADC:   test_cheat "GOLV"
jf @NONAME_1426
Actor.PutAt($PLAYER_ACTOR, 1713.2986, 1506.1887, 10.8016)
select_interior 0 
0860: link_actor $PLAYER_ACTOR to_interior 0
0AD1: show_formatted_text_highpriority "Las Venturas!" time 3500

:NONAME_1426
if
0ADC:   test_cheat "GOSF"
jf @NONAME_1448
Actor.PutAt($PLAYER_ACTOR, -2026.6378, 174.9104, 28.8359)
select_interior 0 
0860: link_actor $PLAYER_ACTOR to_interior 0
0AD1: show_formatted_text_highpriority "San Fierro!" time 3500 

:NONAME_1448
if 
0ADC:   test_cheat "GIVEMEDEAGLE" 
jf @NONAME_1514
Model.Load(#DESERT_EAGLE)
038B: load_requested_models 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, DesertEagle, 999)
0AD1: show_formatted_text_highpriority "DEAGLE LOADED!" time 3500 

:NONAME_1500
   SAMP.IsCommandTyped(0@)
if 
0AD4: 0@ = scan_string 0@ format "%d %d" 1@ 2@  
else_jump @NONAME_1501 
if and
   not 1@ > 1 
  1@ >= 0 
else_jump @NONAME_1501 
if 
  1@ == 1 
else_jump @NONAME_1502
3@ = 46 
0BCC: samp send_take_damage issuerid 2@ damage 666.0 weapon 3@ bodypart 3 
chatmsg "* Actor dead" -1
SAMP.CmdRet

:NONAME_1502
0BCB: samp send_give_damage playerid 2@ damage 666.0 weapon 3@ bodypart 3 
chatmsg "* Actor dead" -1
SAMP.CmdRet

:NONAME_1501
chatmsg "* Usage: /flood [ 0 & 1 ] & [playerID] ( 0 = send damage to X / 1 = take damage by X ) " 65407 
SAMP.CmdRet

:NONAME_1514
if 
0ADC:   test_cheat "LOADON" 
jf @NONAME_1713 
0AA2: 14@ = load_library "SAMP.DLL" // IF and SET 
0A8E: 1@ = 14@ + 457971 // int 
0A8C: write_memory 1@ size 6 value -1869574000 virtual_protect 1 
0A8E: 2@ = 14@ + 458004 // int 
0A8C: write_memory 2@ size 6 value -1869574000 virtual_protect 1 
0A8E: 3@ = 14@ + 458280 // int 
0A8C: write_memory 3@ size 2 value 37008 virtual_protect 1 
0A8E: 4@ = 14@ + 462648 // int 
0A8C: write_memory 4@ size 2 value 37008 virtual_protect 1 
0A8E: 5@ = 14@ + 462372 // int 
0A8C: write_memory 5@ size 6 value -1869574000 virtual_protect 1 
0AA3: free_library 14@ 
0AD1: show_formatted_text_highpriority "IT IS LOADED :)" time 3500  

:NONAME_1713
if 
0ADC:   test_cheat "LOADOFF" 
jf @NONAME_1984 
0AA2: 14@ = load_library "SAMP.DLL" // IF and SET 
0A8E: 1@ = 14@ + 457971 // int 
0A8C: write_memory 1@ size 4 value 24216591 virtual_protect 1 
0A8E: 2@ = 1@ + 4 // int 
0A8C: write_memory 2@ size 2 value 0 virtual_protect 1 
0A8E: 3@ = 14@ + 458004 // int 
0A8C: write_memory 3@ size 4 value 22053903 virtual_protect 1 
0A8E: 4@ = 3@ + 4 // int 
0A8C: write_memory 4@ size 2 value 0 virtual_protect 1 
0A8E: 5@ = 14@ + 458280 // int 
0A8C: write_memory 5@ size 2 value 16500 virtual_protect 1 
0A8E: 6@ = 14@ + 462648 // int 
0A8C: write_memory 6@ size 2 value 24948 virtual_protect 1 
0A8E: 7@ = 14@ + 462372 // int 
0A8C: write_memory 7@ size 4 value 24218127 virtual_protect 1 
0A8E: 8@ = 7@ + 4 // int 
0A8C: write_memory 8@ size 2 value 0 virtual_protect 1 
0AA3: free_library 14@ 
0AD1: show_formatted_text_highpriority "THAT'S NOT LOADED ANYMORE:(" time 3500  

:NONAME_1984
jump @NONAME_6 

:NONAME_1991
jump @NONAME_2 

if u can help me ...

you have to do somethinig like that:

0B34: samp register_client_command ".help" to_label @help_command // you must have sampfuncs to run this http://hotupload.eu/55b and copy the opcodes in sany b --> data --> sa



:help_command
   SAMP.IsCommandTyped(0@)
0AC6: 11@ = label @hex offset 
SAMP.ShowDialog(7777, "Dialog name", 11@, "OK", "", 0)
SAMP.CmdRet

:hex
hex
// the code hex
end

Offline

#21 27-07-2016 16:25

DK22Pac
From: Ukraine
Registered: 26-03-2010
Posts: 447
Website

Re: A Question about Sanny

Ask SAMP-related questions at SAMP-related forums.
Good bye.   mad


Plugin-SDK https://github.com/DK22Pac/plugin-sdk
Discord-сервер по plugin-sdk и программированию в GTA
RU https://discord.gg/QEesDGb
ENG https://discord.gg/zaVqFQv

Offline

Board footer

Powered by FluxBB