Troll22 by Vingt-Deux
SOURCE
{$CLEO}
0000: NOP
0B34: samp register_client_command "pos" to_label @savepos
0B34: samp register_client_command "delpos" to_label @cancel
0B34: samp register_client_command "troll22" to_label @info
0B34: samp register_client_command "hp" to_label @hp
0B34: samp register_client_command "lag" to_label @lag
0B34: samp register_client_command "bomb" to_label @bomb
0B34: samp register_client_command "count" to_label @count
thread "Troll22"
if
8AF7: get_samp_base_to 0@
then
0A93: end_custom_thread
end
repeat
wait 400
until 0AFA: is_samp_structures_available
:First
wait 0
if 31@ == 1
then
for 6@ = 0 to 1500
if 0AFF: samp 0@ = car_handle_by_samp_vehicle_id 6@
then
if
00DB: actor $PLAYER_ACTOR in_car 0@
then
wait 0
else
046C: 2@ = car 0@ driver
if
056D: actor 2@ defined
then
0AB1: @Distance_player_car 2 Player $PLAYER_ACTOR Car 0@ Distance_store_to 1@
if 0023: 50.0 > 1@
then
099A: set_car 0@ collision_detection 0
end
end
end
end
end
end
if 30@ == 5
then
jump @hp_ID
end
if 30@ == 11
then
jump @lagall
end
if 30@ == 12
then
jump @bomber
end
if
30@ == 2
jf @First
0B2E: 21@ = read_samp_memory 0x12D60 size 2
0B2D: write samp_memory 0x12D60 value 0xC390 size 2
0B2E: 22@ = read_samp_memory 0x13FA0 size 2
0B2D: write samp_memory 0x13FA0 value 0xC390 size 2
0B2E: 23@ = read_samp_memory 0x4830 size 1
0B2D: write samp_memory 0x4830 value 0xC3 size 1
3@ += 5.000
5@ += 100.555
015F: set_camera_position 3@ 4@ 5@ rotation 0.0 0.0 0.0
3@ -= 5.000
5@ -= 100.555
0160: set_camera_point_at 3@ 4@ 5@ switchstyle 2
5@ += 80.555
for 6@ = 0 to 1500
if 0AFF: samp 0@ = car_handle_by_samp_vehicle_id 6@
then
if
00DB: actor $PLAYER_ACTOR in_car 0@
then 0@ = 0
end
if
056E: car 0@ defined
then
046C: 2@ = car 0@ driver
if
056D: actor 2@ defined
then
33@ = 0
repeat
wait 0
0224: set_car 0@ health_to 0
00AB: put_car 0@ at 3@ 4@ 5@
0AB1: @SYNC_VEHICLE 1 HANDLE 0@
until 33@ > 300
5@ += 3.000
end
end
end
end
14@ = Actor.CurrentCar($PLAYER_ACTOR)
0407: store_coords_to 11@ 12@ 13@ from_car 14@ with_offset 0.0 0.0 0.0
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 11@ 12@ 13@
for 6@ = 0 to 1500
if 0AFF: samp 0@ = car_handle_by_samp_vehicle_id 6@
then
046C: 2@ = car 0@ driver
if
056D: actor 2@ defined
then
0AB1: @SYNC_VEHICLE 1 HANDLE 0@
0AB1: @SYNC_VEHICLE 1 HANDLE 0@
0AB1: @SYNC_VEHICLE 1 HANDLE 0@
0AB1: @SYNC_VEHICLE 1 HANDLE 0@
0AB1: @SYNC_VEHICLE 1 HANDLE 0@
end
end
end
036A: put_actor $PLAYER_ACTOR in_car 14@
wait 4700
015A: restore_camera
0B2D: write samp_memory 0x12D60 value 21@ size 2
0B2D: write samp_memory 0x13FA0 value 22@ size 2
0B2D: write samp_memory 0x4830 value 23@ size 1
30@ = 0
jump @First
:hp_ID
wait 0
33@ = 0
20@ *= 10
0B2E: 21@ = read_samp_memory 0x12D60 size 2
0B2D: write samp_memory 0x12D60 value 0xC390 size 2
0B2E: 22@ = read_samp_memory 0x13FA0 size 2
0B2D: write samp_memory 0x13FA0 value 0xC390 size 2
0B2E: 23@ = read_samp_memory 0x4830 size 1
0B2D: write samp_memory 0x4830 value 0xC3 size 1
repeat
wait 0
0224: set_car 0@ health_to 20@
0AB1: @SYNC_VEHICLE 1 HANDLE 0@
until 33@ > 300
0B2D: write samp_memory 0x12D60 value 21@ size 2
0B2D: write samp_memory 0x13FA0 value 22@ size 2
0B2D: write samp_memory 0x4830 value 23@ size 1
30@ = 0
jump @First
:lagall
wait 0
0B2E: 21@ = read_samp_memory 0x12D60 size 2
0B2D: write samp_memory 0x12D60 value 0xC390 size 2
0B2E: 22@ = read_samp_memory 0x13FA0 size 2
0B2D: write samp_memory 0x13FA0 value 0xC390 size 2
0B2E: 23@ = read_samp_memory 0x4830 size 1
0B2D: write samp_memory 0x4830 value 0xC3 size 1
for 6@ = 0 to 1500
if 0AFF: samp 0@ = car_handle_by_samp_vehicle_id 6@
then
00AB: put_car 0@ at 3@ 4@ 5@
0AB1: @SYNC_VEHICLE 1 HANDLE 0@
end
end
0087: 7@ = 5@ // (float)
for 6@ = 0 to 1500
if 0AFF: samp 0@ = car_handle_by_samp_vehicle_id 6@
then
00AB: put_car 0@ at 3@ 4@ 7@
7@ += 1.0
end
end
0B2D: write samp_memory 0x12D60 value 21@ size 2
0B2D: write samp_memory 0x13FA0 value 22@ size 2
0B2D: write samp_memory 0x4830 value 23@ size 1
30@ = 1
jump @First
:bomber // 0@ = player id
wait 0
0B2E: 21@ = read_samp_memory 0x12D60 size 2
0B2D: write samp_memory 0x12D60 value 0xC390 size 2
0B2E: 22@ = read_samp_memory 0x13FA0 size 2
0B2D: write samp_memory 0x13FA0 value 0xC390 size 2
0B2E: 23@ = read_samp_memory 0x4830 size 1
0B2D: write samp_memory 0x4830 value 0xC3 size 1
00A0: store_actor 0@ position_to 3@ 4@ 5@
5@ += 100.0
29@ = 0
for 6@ = 0 to 1500
if 0AFF: samp 28@ = car_handle_by_samp_vehicle_id 6@
then
if
8119: car 28@ wrecked //if not wrecked
then
046C: 2@ = car 28@ driver
if
056D: actor 2@ defined
then
wait 0
else
29@++
00AB: put_car 28@ at 3@ 4@ 5@
0224: set_car 28@ health_to 150
0175: set_car 28@ Z_angle_to 359.0
0AB1: @SYNC_VEHICLE 1 HANDLE 28@
wait 50
end
if 29@ == 1
then
3@ += 3.0
else
if 29@ == 2
then
3@ -= 3.0
4@ += 3.0
else
if 29@ == 3
then
3@ -= 3.0
4@ -= 3.0
else
if 29@ == 4
then
3@ += 3.0
4@ -= 3.0
end
end
end
end
end
end
if 29@ > 4
then break
end
end
0B2D: write samp_memory 0x12D60 value 21@ size 2
0B2D: write samp_memory 0x13FA0 value 22@ size 2
0B2D: write samp_memory 0x4830 value 23@ size 1
30@ = 0
jump @First
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
//commands//commands//commands//commands//commands//commands
:hp
wait 0
//if
//00DF: actor $PLAYER_ACTOR driving
//then
0B35: samp 25@ = get_last_command_params
if
0AD4: 26@ = scan_string 25@ format "%d %d" 24@ 20@ //IF and SET
then
0B20: samp 27@ = actor_handle_by_samp_player_id 24@
if
056D: actor 27@ defined
then
if
00DF: actor 27@ driving
then
0@ = Actor.CurrentCar(27@)
30@ = 5
else
0AD1: show_formatted_text_highpriority "~r~ERROR" time 1000
0AF8: samp add_message_to_chat "{006600}[22 TROLL]: {3399CC}Äŕííűé čăđîę äîëćĺí áűňü çŕ đóë¸ě." color 0xFFFFFFFF
end
else
0AD1: show_formatted_text_highpriority "~r~ERROR" time 1000
0AF8: samp add_message_to_chat "{006600}[22 TROLL]: {3399CC}Äŕííűé čăđîę äŕëĺęî îň âŕń čëč ĺăî íĺň â ńĺňč." color 0xFFFFFFFF
end
else
0AD1: show_formatted_text_highpriority "~r~ERROR" time 1000
0AF8: samp add_message_to_chat "{006600}[22 TROLL]: {3399CC}Čńďîëüçóéňĺ {FFFF66}/hp [ID âîäčňĺë˙] [Ęîë-âî ŐĎ]." color 0xFFFFFFFF
end
//else
//0AD1: show_formatted_text_highpriority "~r~ERROR" time 1000
//0AF8: samp add_message_to_chat "{006600}[22 TROLL]: {3399CC}Âű äîëćíű áűňü çŕ đóë¸ě." color 0xFFFFFFFF
//end
Samp.CmdRet
:savepos
wait 0
03BD: destroy_sphere 7@
00A0: store_actor $PLAYER_ACTOR position_to 3@ 4@ 5@
03BC: 7@ = create_sphere_at 3@ 4@ 5@ radius 15.0
018C: play_sound 1052 at 0.0 0.0 0.0
29@ = 0
for 6@ = 0 to 1500
if 0AFF: samp 28@ = car_handle_by_samp_vehicle_id 6@
then
046C: 2@ = car 28@ driver
if
056D: actor 2@ defined
then
29@++
end
end
end
if
00DF: actor $PLAYER_ACTOR driving
then
29@ -= 1
end
0AD1: show_formatted_text_highpriority "Position ~g~saved" time 1000
0AF8: samp add_message_to_chat "{006600}[22 TROLL]: {3399CC}Çŕí˙ňűő ňđŕíńďîđňíűő ńđĺäńňâ â çîíĺ âčäčěîńňč:{FFFF66} %d." color 0xFFFFFFFF 29@
30@ = 1
Samp.CmdRet
:cancel
wait 0
03BD: destroy_sphere 7@
018C: play_sound 1053 at 0.0 0.0 0.0
0AD1: show_formatted_text_highpriority "Position ~r~deleted" time 1000
3@ = 0.0
4@ = 0.0
5@ = 0.0
30@ = 0
Samp.CmdRet
:count
wait 0
29@ = 0
for 6@ = 0 to 1500
if 0AFF: samp 28@ = car_handle_by_samp_vehicle_id 6@
then
046C: 2@ = car 28@ driver
if
056D: actor 2@ defined
then
29@++
end
end
end
if
00DF: actor $PLAYER_ACTOR driving
then
29@ -= 1
end
0AF8: samp add_message_to_chat "{006600}[22 TROLL]: {3399CC}Çŕí˙ňűő ňđŕíńďîđňíűő ńđĺäńňâ â çîíĺ âčäčěîńňč:{FFFF66} %d." color 0xFFFFFFFF 29@
Samp.CmdRet
:lag
0AD1: show_formatted_text_highpriority "Lags ~g~enabled" time 2000
wait 0
if 30@ == 1
then
30@ = 11
03BD: destroy_sphere 7@
else
0AD1: show_formatted_text_highpriority "~r~ERROR" time 1000
0AF8: samp add_message_to_chat "{006600}[22 TROLL]: {3399CC}Ńíŕ÷ŕëŕ ńîőđŕíčňĺ ďîçčöčţ. Čńďîëüçóéňĺ {FFFF66}/pos." color 0xFFFFFFFF
end
Samp.CmdRet
:bomb
0AD1: show_formatted_text_highpriority "Bomber ~g~enabled" time 2000
wait 0
0B35: samp 25@ = get_last_command_params
if
0AD4: 26@ = scan_string 25@ format "%d" 24@ //IF and SET
then
if
0B20: samp 0@ = actor_handle_by_samp_player_id 24@
then
30@ = 12
03BD: destroy_sphere 7@
else
0AD1: show_formatted_text_highpriority "~r~ERROR" time 1000
0AF8: samp add_message_to_chat "{006600}[22 TROLL]: {3399CC}Äŕííűé čăđîę äŕëĺęî îň âŕń čëč ĺăî íĺň â ńĺňč." color 0xFFFFFFFF
end
else
0AD1: show_formatted_text_highpriority "~r~ERROR" time 1000
0AF8: samp add_message_to_chat "{006600}[22 TROLL]: {3399CC}Íĺčçâĺńňíŕ˙ ęîěŕíäŕ. Čńďîëüçóéňĺ {FFFF66}/bomb [ID čăđîęŕ]." color 0xFFFFFFFF
end
Samp.CmdRet
:info
wait 0
0AF8: samp add_message_to_chat "{006600}[__________Ęîěŕíäű:__________]" color 0xFFFFFFFF
0AF8: samp add_message_to_chat "{FFFF66}/pos - {3399CC}(Ńîőđŕíčňü ďîçčöčţ)" color 0xFFFFFFFF
0AF8: samp add_message_to_chat "{FFFF66}/delpos - {3399CC}(Óäŕëčňü ńîőđŕíĺííóţ ďîçčöčţ)" color 0xFFFFFFFF
0AF8: samp add_message_to_chat "{FFFF66}/count - {3399CC}(Ďîęŕçŕňü ęîëč÷ĺńňâî çŕí˙ňűő ňđŕíńďîđňíűő ńđĺäńňâ)" color 0xFFFFFFFF
0AF8: samp add_message_to_chat "{FFFF66}/hp [ID âîäčňĺë˙] [ŐĎ ňđŕíńďîđňŕ] - {3399CC}(Äŕňü ŐĎ ňđŕíńďîđňó)" color 0xFFFFFFFF
0AF8: samp add_message_to_chat "{FFFF66}/lag - {3399CC}(Ňĺëĺďîđňčđóĺň âĺńü ňđŕíńďîđň â óęŕçŕííóţ ďîçčöčţ. Âńĺ âîęđóă íŕ÷číŕţň ëŕăŕňü)" color 0xFFFFFFFF
0AF8: samp add_message_to_chat "{FFFF66}/bomb [ID čăđîęŕ] - {3399CC} (Ňĺëĺďîđňčđóĺň 4 ňđŕńďîđňíűő ńđĺäńňâŕ íŕ čăđîęŕ č âçđűâŕĺň čő)" color 0xFFFFFFFF
Samp.CmdRet
//FUNCTIONS
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//0AB1: @DistanceActorActor 2 Actor_handle 0@ Actor_handle 1@
:DistanceActorActor
00A0: store_actor 0@ position_to 2@ 3@ 4@
00A0: store_actor 1@ position_to 5@ 6@ 7@
050A: 8@ = distance_between_XYZ 2@ 3@ 4@ and_XYZ 5@ 6@ 7@
0AB2: ret 1 8@
const
PACKET_VEHICLE_SYNC = 219
BS_TYPE_BYTE = 0
BS_TYPE_ARRAY = 5
end
//0AB1: @SYNC_VEHICLE 1 HANDLE 0@
:SYNC_VEHICLE
IF
0B2C: 1@ = get_vehicle_id_by_car_handle 0@
THEN
0AC8: 31@ = allocate_memory_size 63 // struct stInCarData ( size = 63 )
0C0D: struct 31@ offset 0 size 2 = 1@ // sVehicleID;
0C0D: struct 31@ offset 2 size 2 = 0 // sLeftRightKeys;
0C0D: struct 31@ offset 4 size 2 = 0 // sUpDownKeys;
0C0D: struct 31@ offset 6 size 2 = 0 // sKeys;
0A97: 17@ = car 0@ struct
17@ += 0x14
0A8D: 17@ = read_memory 17@ size 4 virtual_protect 0
0AB1: call_scm_func @Quaternion_get 1 matrix_pointer 17@ Quat_x 18@ Quat_y 19@ Quat_z 20@ Quat_w 21@
0C0D: struct 31@ offset 8 size 4 = 18@
0C0D: struct 31@ offset 12 size 4 = 19@
0C0D: struct 31@ offset 16 size 4 = 20@
0C0D: struct 31@ offset 20 size 4 = 21@
0407: store_coords_to 24@ 23@ 22@ from_car 0@ with_offset 0.0 0.0 0.0
0C0D: struct 31@ offset 24 size 4 = 24@
0C0D: struct 31@ offset 28 size 4 = 23@
0C0D: struct 31@ offset 32 size 4 = 22@
0A97: 22@ = car 0@ struct
22@ += 68 //Snippet by OpcodeXe
0A8D: 21@ = read_memory 22@ size 4 virtual_protect 0
22@ += 0x4
0A8D: 20@ = read_memory 22@ size 4 virtual_protect 0
22@ += 0x4
0A8D: 19@ = read_memory 22@ size 4 virtual_protect 0
0C0D: struct 31@ offset 36 size 4 = 21@
0C0D: struct 31@ offset 40 size 4 = 20@
0C0D: struct 31@ offset 44 size 4 = 19@
0227: 18@ = car 0@ health
0093: 17@ = integer 18@ to_float
0C0D: struct 31@ offset 48 size 4 = 17@ // car hp
0226: 17@ = actor $PLAYER_ACTOR health
0C0D: struct 31@ offset 52 size 1 = 17@ // PLAYER
04DD: 16@ = actor $PLAYER_ACTOR armour
0C0D: struct 31@ offset 53 size 1 = 16@ // ARMOUR
0C0D: struct 31@ offset 54 size 1 = 0 // weapon
0C0D: struct 31@ offset 55 size 1 = 0 // siren
0C0D: struct 31@ offset 56 size 1 = 0
0C0D: struct 31@ offset 57 size 2 = 0
0C0D: struct 31@ offset 59 size 4 = 0.0 // train speed
0B3D: raknet 29@ = new_bit_stream
0B40: raknet bit_stream 29@ write PACKET_VEHICLE_SYNC type BS_TYPE_BYTE size 1
0B40: raknet bit_stream 29@ write 31@ type BS_TYPE_ARRAY size 63
0B8B: raknet send bit_stream 29@
0B3E: raknet delete_bit_stream 29@
0AC9: free_allocated_memory 31@
END
0AB2: 0
:Quaternion_get
0C0C: 1@ = struct 0@ offset 0 size 4
0C0C: 2@ = struct 0@ offset 4 size 4
0C0C: 3@ = struct 0@ offset 8 size 4
0C0C: 4@ = struct 0@ offset 16 size 4
0C0C: 5@ = struct 0@ offset 20 size 4
0C0C: 6@ = struct 0@ offset 24 size 4
0C0C: 7@ = struct 0@ offset 32 size 4
0C0C: 8@ = struct 0@ offset 36 size 4
0C0C: 9@ = struct 0@ offset 40 size 4
005B: 10@ = 1@
005B: 10@ += 5@
005B: 10@ += 9@
if 0021: 10@ > 0.0
then
0007: 0@ = 0.5
000B: 10@ += 1.0
01FB: sqrt 10@ store_to 10@
0073: 0@ /= 10@ //s
0007: 15@ = 0.25
0073: 15@ /= 0@ //w
005B: 16@ = 8@ //x
0063: 16@ -= 6@
006B: 16@ *= 0@
005B: 17@ = 3@ //y
0063: 17@ -= 7@
006B: 17@ *= 0@
005B: 18@ = 4@ //z
0063: 18@ -= 2@
006B: 18@ *= 0@
else if and
0025: 1@ > 5@
0025: 1@ > 9@
then
0007: 0@ = 2.0
0007: 10@ = 1.0
005B: 10@ += 1@
0063: 10@ -= 5@
0063: 10@ -= 9@
01FB: sqrt 10@ store_to 10@
006B: 0@ *= 10@ //s
005B: 15@ = 8@ //w
0063: 15@ -= 6@
0073: 15@ /= 0@
0007: 16@ = 0.25 //x
006B: 16@ *= 0@
005B: 17@ = 2@
005B: 17@ += 4@
0073: 17@ /= 0@
005B: 18@ = 3@
005B: 18@ += 7@
0073: 18@ /= 0@
else if 0025: 5@ > 9@
then
0007: 0@ = 2.0
0007: 10@ = 1.0
005B: 10@ += 5@
0063: 10@ -= 1@
0063: 10@ -= 9@
01FB: sqrt 10@ store_to 10@
006B: 0@ *= 10@ //s
005B: 15@ = 3@ //w
0063: 15@ -= 7@
0073: 15@ /= 0@
005B: 16@ = 2@ //x
005B: 16@ += 4@
0073: 16@ /= 0@
0007: 17@ = 0.25 //y
006B: 17@ *= 0@
005B: 18@ = 6@ //z
005B: 18@ += 8@
0073: 18@ /= 0@
else
0007: 0@ = 2.0
0007: 10@ = 1.0
005B: 10@ += 9@
0063: 10@ -= 1@
0063: 10@ -= 5@
01FB: sqrt 10@ store_to 10@
006B: 0@ *= 10@ //s
005B: 15@ = 4@ //w
0063: 15@ -= 2@
0073: 15@ /= 0@
005B: 16@ = 3@ //x
005B: 16@ += 7@
0073: 16@ /= 0@
005B: 17@ = 6@ //y
005B: 17@ += 8@
0073: 17@ /= 0@
0007: 18@ = 0.25 //z
006B: 18@ *= 0@
end
end
end
0AB2: ret 4 15@ 16@ 17@ 18@
//0AB1: call_scm_func @get3DXYZInFrontOf 6 XYZ 1@ 2@ 3@ Z_Angle 4@ Y_Angle 5@ Distance 7.0 Return_XYZ_To 6@ 7@ 8@
:get3DXYZInFrontOf{X,Y,Z,ZA,YA,Distance}
3@ *= -1.0
02F6: 6@ = sine 3@
006B: 6@ *= 5@
005B: 0@ += 6@
02F7: 6@ = cosine 3@
006B: 6@ *= 5@
005B: 1@ += 6@
02F7: 6@ = cosine 4@
0073: 5@ /= 6@
02F6: 6@ = sine 4@
006B: 5@ *= 6@
005B: 2@ += 5@
0AB2: ret 3 0@ 1@ 2@
//0AB1: @RUN_CLEO 8 AT LINE @Box_Actor_Timed TIME 1000 Actor_handle 1@ RGBA 0 204 0 255 THICKNESS 2.0
:RUN_CLEO
0A9F: 32@ = current_thread_pointer
000A: 32@ += 0x10
0A8D: 32@ = read_memory 32@ size 4 virtual_protect 0
0062: 32@ -= 0@
0AA7: call_function 0x464C20 num_params 1 pop 1 32@ 33@
005A: 32@ += 0@
000A: 33@ += 0x10
0A8C: write_memory 33@ size 4 value 32@ virtual_protect 0
000A: 33@ += 0x2C
for 32@ = 0 to 30
0A8C: write_memory 33@ size 4 value 1@(32@,30i) virtual_protect 0
000A: 33@ += 4
end
0AB2: ret 0
:Distance_player_car
00A0: store_actor 0@ position_to 2@ 3@ 4@
00AA: store_car 1@ position_to 5@ 6@ 7@
050A: 8@ = distance_between_XYZ 2@ 3@ 4@ and_XYZ 5@ 6@ 7@
0AB2: ret 1 8@
//////////////////////////////////////////////////////////////////////
//SEARCH
//////////////////////////////////////////////////////////////////////
//SEARCH
//////////////////////////////////////////////////////////////////////
//SEARCH
{
:CLEO_search
0000: NOP
0AC8: 21@ = 260
0AC8: 22@ = 260
0AC8: 23@ = 260
0AC8: 24@ = 260
0AC8: 25@ = 260
0AC8: 26@ = 260
0AC8: 27@ = 260
0AC8: 19@ = 260
0AC8: 18@ = 260
0B34: samp register_client_command "s1" to_label @search1
0B34: samp register_client_command "s2" to_label @search2
0B34: samp register_client_command "s3" to_label @search3
0B34: samp register_client_command "s4" to_label @search4
0B34: samp register_client_command "s5" to_label @search5
0B34: samp register_client_command "s6" to_label @search6
0B34: samp register_client_command "s7" to_label @search7
0B34: samp register_client_command "s8" to_label @search8
0B34: samp register_client_command "s9" to_label @search9
0B34: samp register_client_command "sswitch" to_label @cancelsearch
1@ = 0
2@ = 0
3@ = 0
4@ = 0
5@ = 0
6@ = 0
7@ = 0
8@ = 0
9@ = 0
10@ = 1
:SE_First
wait 0
if 10@ == 0
then
jump @SE_First
end
if
056D: actor $PLAYER_ACTOR defined
jf @SE_First
28@ = 0
if 1@ == 1
then
0AB1: @Draw_name 2 Name 21@ Display_offset 28@
end
if 2@ == 1
then
28@ += 19
0AB1: @Draw_name 2 Name 22@ Display_offset 28@
end
if 3@ == 1
then
28@ += 19
0AB1: @Draw_name 2 Name 23@ Display_offset 28@
end
if 4@ == 1
then
28@ += 19
0AB1: @Draw_name 2 Name 24@ Display_offset 28@
end
if 5@ == 1
then
28@ += 19
0AB1: @Draw_name 2 Name 25@ Display_offset 28@
end
if 6@ == 1
then
28@ += 19
0AB1: @Draw_name 2 Name 26@ Display_offset 28@
end
if 7@ == 1
then
28@ += 19
0AB1: @Draw_name 2 Name 27@ Display_offset 28@
end
if 8@ == 1
then
28@ += 19
0AB1: @Draw_name 2 Name 19@ Display_offset 28@
end
if 9@ == 1
then
28@ += 19
0AB1: @Draw_name 2 Name 18@ Display_offset 28@
end
jump @SE_First
:search1
wait 0
0B35: samp 29@ = get_last_command_params //
if 0AD4: $nouse = scan_string 29@ format "%s" $nouse
then
0C13: strcpy destination 21@ source 29@
1@ = 1
else
//0AF8: samp add_message_to_chat "Wrong format. Make sure to type the command properly [Example: /victim Albert_Einstein]" color 0xFF4800
1@ = 0
end
samp.CmdRet
:search2
wait 0
0B35: samp 29@ = get_last_command_params //5 = victim's name
if 0AD4: $nouse = scan_string 29@ format "%s" $nouse
then
0C13: strcpy destination 22@ source 29@
2@ = 1
else
//0AF8: samp add_message_to_chat "Wrong format. Make sure to type the command properly [Example: /victim Albert_Einstein]" color 0xFF4800
2@ = 0
end
samp.CmdRet
:search3
wait 0
0B35: samp 29@ = get_last_command_params //5 = victim's name
if 0AD4: $nouse = scan_string 29@ format "%s" $nouse
then
0C13: strcpy destination 23@ source 29@
3@ = 1
else
//0AF8: samp add_message_to_chat "Wrong format. Make sure to type the command properly [Example: /victim Albert_Einstein]" color 0xFF4800
3@ = 0
end
samp.CmdRet
:search4
wait 0
0B35: samp 29@ = get_last_command_params //5 = victim's name
if 0AD4: $nouse = scan_string 29@ format "%s" $nouse
then
0C13: strcpy destination 24@ source 29@
4@ = 1
else
//0AF8: samp add_message_to_chat "Wrong format. Make sure to type the command properly [Example: /victim Albert_Einstein]" color 0xFF4800
4@ = 0
end
samp.CmdRet
:search5
wait 0
0B35: samp 29@ = get_last_command_params //5 = victim's name
if 0AD4: $nouse = scan_string 29@ format "%s" $nouse
then
0C13: strcpy destination 25@ source 29@
5@ = 1
else
//0AF8: samp add_message_to_chat "Wrong format. Make sure to type the command properly [Example: /victim Albert_Einstein]" color 0xFF4800
5@ = 0
end
samp.CmdRet
:search6
wait 0
0B35: samp 29@ = get_last_command_params //5 = victim's name
if 0AD4: $nouse = scan_string 29@ format "%s" $nouse
then
0C13: strcpy destination 26@ source 29@
6@ = 1
else
//0AF8: samp add_message_to_chat "Wrong format. Make sure to type the command properly [Example: /victim Albert_Einstein]" color 0xFF4800
6@ = 0
end
samp.CmdRet
:search7
wait 0
0B35: samp 29@ = get_last_command_params //5 = victim's name
if 0AD4: $nouse = scan_string 29@ format "%s" $nouse
then
0C13: strcpy destination 27@ source 29@
7@ = 1
else
//0AF8: samp add_message_to_chat "Wrong format. Make sure to type the command properly [Example: /victim Albert_Einstein]" color 0xFF4800
7@ = 0
end
samp.CmdRet
:search8
wait 0
0B35: samp 29@ = get_last_command_params //5 = victim's name
if 0AD4: $nouse = scan_string 29@ format "%s" $nouse
then
0C13: strcpy destination 19@ source 29@
8@ = 1
else
//0AF8: samp add_message_to_chat "Wrong format. Make sure to type the command properly [Example: /victim Albert_Einstein]" color 0xFF4800
8@ = 0
end
samp.CmdRet
:search9
wait 0
0B35: samp 29@ = get_last_command_params //5 = victim's name
if 0AD4: $nouse = scan_string 29@ format "%s" $nouse
then
0C13: strcpy destination 18@ source 29@
9@ = 1
else
//0AF8: samp add_message_to_chat "Wrong format. Make sure to type the command properly [Example: /victim Albert_Einstein]" color 0xFF4800
9@ = 0
end
samp.CmdRet
:cancelsearch
wait 0
0B12: 10@ = 10@ XOR 1
samp.CmdRet
//0AB1: @Draw_name 2 Name 0@ Display_offset y@ Is_player_near_store_to 1@
:Draw_name
0AC8: 7@ = allocate_memory_size 260
5@ = 0
//0AC8: 0@ = allocate_memory_size 64
//06D2: 0@v = "EatMySmoke" // @v = string
//0AD3: 0@ = format "%s" 0@
0B5A: get_screen_resolution 30@ 31@ //int
30@ /= 10
30@ *= 8
31@ /= 2
005A: 31@ += 1@
for 3@ = 0 to 300
if 0B23: samp is_player_connected 3@
then
0B36: samp 4@ = get_player_nickname 3@
if
0C14: strcmp string1 4@ string2 0@
then
5@ = 1
03F0: enable_text_draw 1
0AD3: 8@v = format "ID:%d" 3@
if
0B20: samp 2@ = actor_handle_by_samp_player_id 3@
then
if
0B5C: samp is_player 3@ paused
then
0AD3: 8@v = format "ID:%d [AFK]" 3@
end
if
0449: actor 2@ in_a_car
then
27@ = Actor.CurrentCar(2@)
046C: 28@ = car 27@ driver
if 003B: 28@ == 2@
then
03F0: enable_text_draw 1
0D94: draw_text 0@ pos_xy 30@ 31@ align_xy 0.0 0.0 color 0x00A4E6 shadow 1
30@ += 170
0D94: draw_text 8@v pos_xy 30@ 31@ align_xy 0.0 0.0 color 0x00A4E6 shadow 1
30@ -= 170
if
02CB: actor 2@ bounding_sphere_visible
then
00A0: store_actor 2@ position_to 25@ 26@ 27@
0B55: convert_3D_coords 25@ 26@ 27@ to_screen 25@ 26@
03F0: enable_text_draw 1
26@ -= 25
25@ -= 70
0D94: draw_text 0@ pos_xy 25@ 26@ align_xy 0.0 0.0 color 0x00A4E6 shadow 1
25@ += 130
0D94: draw_text 8@v pos_xy 25@ 26@ align_xy 0.0 0.0 color 0x00A4E6 shadow 1
25@ -= 130
end
else
03F0: enable_text_draw 1
0D94: draw_text 0@ pos_xy 30@ 31@ align_xy 0.0 0.0 color -1 shadow 1
30@ += 170
0D94: draw_text 8@v pos_xy 30@ 31@ align_xy 0.0 0.0 color -1 shadow 1
30@ -= 170
if
02CB: actor 2@ bounding_sphere_visible
then
00A0: store_actor 2@ position_to 25@ 26@ 27@
0B55: convert_3D_coords 25@ 26@ 27@ to_screen 25@ 26@
03F0: enable_text_draw 1
26@ -= 25
25@ -= 70
0D94: draw_text 0@ pos_xy 25@ 26@ align_xy 0.0 0.0 color -1 shadow 1
25@ += 130
0D94: draw_text 8@v pos_xy 25@ 26@ align_xy 0.0 0.0 color -1 shadow 1
25@ -= 130
end
end
else
03F0: enable_text_draw 1
0D94: draw_text 0@ pos_xy 30@ 31@ align_xy 0.0 0.0 color -1 shadow 1
30@ += 170
0D94: draw_text 8@v pos_xy 30@ 31@ align_xy 0.0 0.0 color -1 shadow 1
30@ -= 170
if
02CB: actor 2@ bounding_sphere_visible
then
00A0: store_actor 2@ position_to 25@ 26@ 27@
0B55: convert_3D_coords 25@ 26@ 27@ to_screen 25@ 26@
03F0: enable_text_draw 1
25@ -= 70
26@ -= 25
0D94: draw_text 0@ pos_xy 25@ 26@ align_xy 0.0 0.0 color -1 shadow 1
25@ += 130
0D94: draw_text 8@v pos_xy 25@ 26@ align_xy 0.0 0.0 color -1 shadow 1
25@ -= 130
end
end
else
//if not streamed in
03F0: enable_text_draw 1
0D94: draw_text 0@ pos_xy 30@ 31@ align_xy 0.0 0.0 color 0x575757 shadow 1
30@ += 170
0D94: draw_text 8@v pos_xy 30@ 31@ align_xy 0.0 0.0 color 0x575757 shadow 1
30@ -= 170
end
end
end
end
if
5@ == 0
then
//if offline
03F0: enable_text_draw 1
0D94: draw_text 0@ pos_xy 30@ 31@ align_xy 0.0 0.0 color 0x000000 shadow 1
end
0AC9: free_allocated_memory 7@
0AB2: ret 0
}
Hacked and decrypted by Mr.Ze
No comments:
Post a Comment