You are not logged in.
- Topics: Active | Unanswered
Pages: 1
#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_threadAs 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
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
endAnother 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 code0459: end_thread_named 'SETHPCAR' 03A4: name_thread 'INVULNERABLE' // you commandyou 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 endAnother 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 
p.s, that method to do scripts its ... i preff with labels or several scripts but .. is k like that 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
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
{$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 endlast script. "test_cheat help" doesn't work idk why.... can u resolve it for me?
Offline
#7 19-07-2016 17:48
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 speedYou 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 )
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.CmdReti already know how to do more scripts but just with "key_pressed", like the last script what its up but this is boring... i preff commands in chat
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
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 i will try it .. if i will not find, then i will do all my script with " key presseds " )
{$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
#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 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 ) 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
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
endwhat 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 endwhat 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
#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 ) 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 )
{$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
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 
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
endthere 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
Re: A Question about Sanny
Ask SAMP-related questions at SAMP-related forums.
Good bye. 
Plugin-SDK https://github.com/DK22Pac/plugin-sdk
Discord-сервер по plugin-sdk и программированию в GTA
RU https://discord.gg/QEesDGb
ENG https://discord.gg/zaVqFQv
Offline
Pages: 1