Помощь в изменении скриптов

FYP

FYP

Известный
Автор темы
Администратор
1,758
5,730
Здесь вы можете попросить других пользователей внести какие-то небольшие изменения в скрипт, например, изменить активацию.
Для вопросов по программированию и разработке на форуме есть отдельная категория Разработка.

Рекомендации:
  1. Не просите о редактировании .asi, .sf, .luac, .dll, .exe и прочих файлов, не поддающихся простой декомпиляции. Скрипты формата .ahk (AutoHotKey), .lua (Lua/MoonLoader) и .cs (CLEO) легко поддаются изменению.
  2. Сообщения по типу "спасибо, помог" по правилам форума считаются флудом и скорее всего будут удалены. Если вам помогли, вы можете нажать кнопку Мне нравится под ответом - это даст понять, что ответ верный.
  3. За злонамеренное распространение вредоносного ПО - перманентный бан. Имейте это в виду.
Удаление копирайтов является нарушением авторских прав, если автор не дал на это своего разрешения. Правила BlastHack запрещают нарушать авторские права, поэтому если вам нужно их убрать - обращайтесь к автору.
 
Последнее редактирование:
  • Нравится
  • Влюблен
  • Клоун
Реакции: minxty, Anofrix, Drednova и 20 других
V

Vegeta

Известный
14
0
Ok, eu queria que você mudasse o comando para /vegeta e a mensagem que aparece na tela "DONATELLO ON/OFF" substituir para "VEGETA ON/OFF" e também queria que você renomeasse o arquivo para vegeta.cs
 
H

holez

Новичок
30
5
Vegeta написал(а):
Entendo, mas poderia mudar apenas o comando então?
Нажмите для раскрытия...
CLEO: 
{$CLEO .cs}
{$INCLUDE SF}
0000:
repeat
0001: wait 0
until 0AFA: is_samp_available  
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
0AB1: call @Configuration 0 29@ 27@ 26@ 25@ 24@ 23@
0B34: samp register_client_command "vegeta" to_label @cmd_hook
0B34: samp register_client_command "montanacfg" to_label @cmd_hook2
0BE2: raknet setup_outcoming_packet_hook @PACKET_SYNC_HOOK
print "~b~AIMbot by Donatello,LOADED " time 3000
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
while true
0001: wait 0
end
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:cmd_hook
if 0B61: samp is_local_player_spawned
then
if 30@ == 0
then print "~r~Donatello on" time 3000
else print "~p~Donatello off" time 3000
end 
0B12: 30@ = 30@ XOR 1
end
0B43: samp cmd_ret
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:cmd_hook2
if 0B61: samp is_local_player_spawned
then
0AC8: 2@ = allocate_memory_size 20
0B35: samp 2@ = get_last_command_params
0AD4: 3@ = scan_string 2@ format "%d %d" 4@ 5@
if 3@ == 2
then
if 4@ == 1
then
0AF8: samp add_message_to_chat "{99CC00}Параметр TargetHookDistance был успешно обновлен!" 0xFFFFFF
0085: 28@ = 5@
0093: 29@ = integer 28@ to_float
0AF1: write_int 5@ to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "TargetHookDistance"
end
if 4@ == 2
then
0AF8: samp add_message_to_chat "{99CC00}Параметр Detour был успешно обновлен!" 0xFFFFFF
0085: 27@ = 5@
0AF1: write_int 5@ to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "Detour"
end
if 4@ == 3
then
0AF8: samp add_message_to_chat "{99CC00}Параметр CorrectAngle был успешно обновлен!" 0xFFFFFF
0085: 26@ = 5@
0AF1: write_int 5@ to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "CorrectAngle"
end
if 4@ == 4
then
0AF8: samp add_message_to_chat "{99CC00}Параметр GiveDamageRPC был успешно обновлен!" 0xFFFFFF
0085: 25@ = 5@
0AF1: write_int 5@ to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "GiveDamageRPC"
end
if 4@ == 5
then
0AF8: samp add_message_to_chat "{99CC00}Параметр RandomShot был успешно обновлен!" 0xFFFFFF
0085: 24@ = 5@
0AF1: write_int 5@ to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "RandomShot"
end
if 4@ == 6
then
0AF8: samp add_message_to_chat "{99CC00}Параметр ClistFilter был успешно обновлен!" 0xFFFFFF
0085: 23@ = 5@
0AF1: write_int 5@ to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "ClistFilter"
end
else 0AF8: samp add_message_to_chat "{99CC00}Введите: {00FFFF}/aimcfg {FFCC00}[номер параметра(1-6)] {FF0000}[значение]" 0xFFFFFF
end
0AC9: free_allocated_memory 2@
end
0B43: samp cmd_ret
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:DamageConvert
0001: wait 0
0A96: 2@ = actor $PLAYER_ACTOR struct
2@ += 0x72C
0A8D: 2@ = read_memory 2@ size 1 virtual_protect 0
0470: 0@ = actor $PLAYER_ACTOR current_weapon
0085: 1@ = 0@
if 2@ == 2
then 1@ += 25
end
if 2@ == 3
then 1@ += 36
end
1@ *= 112
1@ += 13150904
1@ += 0x22
0A8D: 1@ = read_memory 1@ size 2 virtual_protect 0
0093: 1@ = integer 1@ to_float
if and
0@ >= 22
0@ <> 25
0@ <> 26
0@ <> 27
0@ <= 34
then 1@ /= 3.0434782608695652173913043478261
end
0AB2: ret 1 1@
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:GiveTakeDamageRPC
0001: wait 0
0B3D: raknet 4@ = new_bit_stream
0B40: raknet bit_stream 4@ write 0 type BS_TYPE_BOOL size 1
0B40: raknet bit_stream 4@ write 0@ type BS_TYPE_SHORT size 2
0B40: raknet bit_stream 4@ write 1@ type BS_TYPE_FLOAT size 4
0B40: raknet bit_stream 4@ write 2@ type BS_TYPE_INT size 4
0B40: raknet bit_stream 4@ write 3 type BS_TYPE_INT size 4 
0B8A: raknet send_rpc 115 bit_stream 4@   
0B3E: raknet delete_bit_stream 4@
0AB2: ret 0
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:Detour
0001: wait 0
0AB1: call @DamageConvert 0 return_to 13@
0AB1: call @GiveTakeDamageRPC 3 0@ 13@ 1@
0AB2: ret 0
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:SEND_ONFOOT_PACKET
0001: wait 0
00A0: store_actor 0@ position_to 1@ 2@ 3@
0604: get_Z_angle_for_point 1@ 2@ store_to 17@
0B2B: samp 8@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0AC8: 4@ = allocate_memory_size 68
0BBA: samp store_player 8@ onfoot_data 4@
0C0D: struct 4@ offset 30 size 4 = 17@
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: ret 0
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:SendSilentBullet
0001: wait 0
0470: 3@ = actor $PLAYER_ACTOR current_weapon
00A0: store_actor $PLAYER_ACTOR position_to 4@ 5@ 6@
0B2B: samp 8@ = get_player_id_by_actor_handle 0@
00A0: store_actor 0@ position_to 9@ 10@ 11@
0AC8: 2@ = allocate_memory_size 40
0C0D: struct 2@ offset 0 size 1 = 1
0C0D: struct 2@ offset 1 size 2 = 8@
0C0D: struct 2@ offset 3 size 4 = 4@
0C0D: struct 2@ offset 7 size 4 = 5@
0C0D: struct 2@ offset 11 size 4 = 6@
0098: 22@ = random_float 0.0 _to_ 0.2
0209: 21@ = random_int_in_ranges 0 1
if 21@ == 1
then 005B: 9@ += 22@
else 005B: 9@ -= 22@
end
0098: 22@ = random_float 0.0 _to_ 0.2
0209: 21@ = random_int_in_ranges 0 1
if 21@ == 1
then 005B: 10@ += 22@
else 005B: 10@ -= 22@
end
0098: 22@ = random_float 0.0 _to_ 0.2
0209: 21@ = random_int_in_ranges 0 1
if 21@ == 1
then 005B: 1@ += 22@
else 005B: 1@ -= 22@
end
0C0D: struct 2@ offset 15 size 4 = 9@
0C0D: struct 2@ offset 19 size 4 = 10@
0C0D: struct 2@ offset 23 size 4 = 11@
0098: 22@ = random_float 0.0 _to_ 0.2
0098: 23@ = random_float 0.0 _to_ 0.2
0098: 24@ = random_float 0.0 _to_ 0.2
0C0D: struct 2@ offset 27 size 4 = 22@
0C0D: struct 2@ offset 31 size 4 = 23@
0C0D: struct 2@ offset 35 size 4 = 24@
0C0D: struct 2@ offset 39 size 1 = 3@
0B3D: raknet 12@ = new_bit_stream
0B40: raknet bit_stream 12@ write 206 type BS_TYPE_BYTE size 1   
0B40: raknet bit_stream 12@ write 2@ type BS_TYPE_ARRAY size 40
0B8B: raknet send bit_stream 12@
0B3E: raknet delete_bit_stream 12@
0AC9: free_allocated_memory 2@
0AB2: ret 2 8@ 3@
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:ColorFilter
0001: wait 0
if 0@ == 1
then
0B2B: samp 22@ = get_player_id_by_actor_handle 1@
0B2B: samp 21@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B37: samp 20@ = get_player_color 22@
0B37: samp 19@ = get_player_color 21@
if 0085: 20@ == 19@
then 18@ = 1
end
end
if and
0@ == 1
18@ == 0
then 17@ = 1
end
if 0@ == 0
then 17@ = 1
end
//alloc 15@ 67
//format 15@ "Enemy: %d | My: %d | Identity: %d | True: %d" 20@ 19@ 18@ 17@
//chatmsg 15@ 0xFFFFFF
//free 15@
0AB2: ret 1 17@
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:PACKET_SYNC_HOOK
0001: wait 0
0BE5: raknet 2@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 3@ = get_hook_param PARAM_PACKETID
if 3@ == PACKET_BULLET_SYNC
then
if 30@ == 1
then
0AB1: @GET_AIM_TARGET_ACTOR 1 IN_RADIUS_FROM_CROSSHAIR 29@ _STORE_TO 7@
if 7@ <> -1
then
0AB1: call @ColorFilter 2 23@ 7@ 17@
if 17@ == 1
then
if 27@ == 1
then
if 26@ == 1
then 0AB1: call @SEND_ONFOOT_PACKET 1 7@
end
end
if 24@ == 0
then 0AB1: call @SendSilentBullet 1 7@ ret_to 0@ 1@
else
0209: 31@ = random_int_in_ranges 0 10
if 002D: 31@ >= 24@
then 0AB1: call @SendSilentBullet 1 7@ ret_to 0@ 1@
end
end
if 27@ == 1
then
if 25@ == 1
then 0AB1: call @Detour 2 0@ 1@
end
end
0BE0: raknet hook_ret false
end
end
end
end
0BE0: raknet hook_ret true
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:GET_AIM_TARGET_ACTOR
0001: wait 0
FOR 28@ = 0.0 TO 0@ STEP 8.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@
if
056D:  actor 31@ defined
then
if
803C: $PLAYER_ACTOR == 31@
then
04C4: store_coords_to 27@ 26@ 25@ from_actor 31@ with_offset 0.0 0.0 0.0
068D: get_camera_position_to 24@ 23@ 22@
if and
06BD:  no_obstacles_between 27@ 26@ 25@ and 24@ 23@ 22@ solid 1 car 1 actor 0 object 1 particle 0
80DF:  actor 31@ driving
8118:  actor 31@ dead
02CB:  actor 31@ bounding_sphere_visible
then
04C4: store_coords_to 10@ 11@ 12@ from_actor 31@ 0.0 0.0 0.0
0AB1: call_scm_func @getScreenXYFrom3DCoords 3 3D_coords_X 10@ Y 11@ Z 12@ store_screen_X_to 13@ Y_to 14@
0509: 15@ = distance_between_XY 339.1 179.1 and_XY 13@ 14@
if
0035:  28@ >= 15@
then
0AB2: 1 31@   
end
end
end
end
end
end
END
0AB2: 1 -1
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:Configuration
0001: wait 0
if 0AAB: file_exists "CLEO\AimConfig_v3[by_0pc0d3R].ini"
then
0AF0: 28@ = get_int_from_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "TargetHookDistance"
0AF0: 27@ = get_int_from_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "Detour"
0AF0: 26@ = get_int_from_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "QuatCorrector"
0AF0: 25@ = get_int_from_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "GiveDamageRPC"
0AF0: 24@ = get_int_from_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "RandomShot"
0AF0: 23@ = get_int_from_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "FriendlyFire"
0093: 29@ = integer 28@ to_float
else
0AF1: write_int 40 to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "TargetHookDistance"
0AF1: write_int 1 to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "Detour"
0AF1: write_int 1 to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "QuatCorrector"
0AF1: write_int 1 to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "GiveDamageRPC"
0AF1: write_int 0 to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "RandomShot"
0AF1: write_int 0 to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "FriendlyFire"
29@ = 40.0
27@ = 1
26@ = 1
25@ = 1
24@ = 0
23@ = 0
end
0AB2: ret 6 29@ 27@ 26@ 25@ 24@ 23@
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:getScreenXYFrom3DCoords
0001: wait 0
0AC7: 14@ = var 0@ offset
0AC7: 15@ = var 3@ offset
0AC7: 16@ = var 6@ offset
0AC7: 17@ = var 9@ offset
0AA5: call 0x70CE30 num_params 6 pop 6 {18@ 18@} 0 0 17@ 16@ 15@ 14@
0007: 12@ = 640.0
0007: 13@ = 448.0
0A8D: 14@ = read_memory 0xC17044 size 4 virtual_protect 0
0A8D: 15@ = read_memory 0xC17048 size 4 virtual_protect 0
0093: 14@ = integer 14@ to_float
0093: 15@ = integer 15@ to_float
0073: 12@ /= 14@
0073: 13@ /= 15@
006B: 3@ *= 12@
006B: 4@ *= 13@
0AB2: ret 2 3@ 4@
/////////////////////////////////// Happy End ! ////////////////////////////////////////////////////////////////////////////////////////////////
 

Вложения

  • montanasoft.cs
    33.2 KB · Просмотры: 5
  • Нравится
Реакции: Vegeta
m1kola

m1kola

Известный
292
17
holez написал(а):
CLEO: 
{$CLEO .cs}
{$INCLUDE SF}
0000:
repeat
0001: wait 0
until 0AFA: is_samp_available 
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
0AB1: call @Configuration 0 29@ 27@ 26@ 25@ 24@ 23@
0B34: samp register_client_command "vegeta" to_label @cmd_hook
0B34: samp register_client_command "montanacfg" to_label @cmd_hook2
0BE2: raknet setup_outcoming_packet_hook @PACKET_SYNC_HOOK
print "~b~AIMbot by Donatello,LOADED " time 3000
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
while true
0001: wait 0
end
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:cmd_hook
if 0B61: samp is_local_player_spawned
then
if 30@ == 0
then print "~r~Donatello on" time 3000
else print "~p~Donatello off" time 3000
end
0B12: 30@ = 30@ XOR 1
end
0B43: samp cmd_ret
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:cmd_hook2
if 0B61: samp is_local_player_spawned
then
0AC8: 2@ = allocate_memory_size 20
0B35: samp 2@ = get_last_command_params
0AD4: 3@ = scan_string 2@ format "%d %d" 4@ 5@
if 3@ == 2
then
if 4@ == 1
then
0AF8: samp add_message_to_chat "{99CC00}Параметр TargetHookDistance был успешно обновлен!" 0xFFFFFF
0085: 28@ = 5@
0093: 29@ = integer 28@ to_float
0AF1: write_int 5@ to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "TargetHookDistance"
end
if 4@ == 2
then
0AF8: samp add_message_to_chat "{99CC00}Параметр Detour был успешно обновлен!" 0xFFFFFF
0085: 27@ = 5@
0AF1: write_int 5@ to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "Detour"
end
if 4@ == 3
then
0AF8: samp add_message_to_chat "{99CC00}Параметр CorrectAngle был успешно обновлен!" 0xFFFFFF
0085: 26@ = 5@
0AF1: write_int 5@ to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "CorrectAngle"
end
if 4@ == 4
then
0AF8: samp add_message_to_chat "{99CC00}Параметр GiveDamageRPC был успешно обновлен!" 0xFFFFFF
0085: 25@ = 5@
0AF1: write_int 5@ to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "GiveDamageRPC"
end
if 4@ == 5
then
0AF8: samp add_message_to_chat "{99CC00}Параметр RandomShot был успешно обновлен!" 0xFFFFFF
0085: 24@ = 5@
0AF1: write_int 5@ to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "RandomShot"
end
if 4@ == 6
then
0AF8: samp add_message_to_chat "{99CC00}Параметр ClistFilter был успешно обновлен!" 0xFFFFFF
0085: 23@ = 5@
0AF1: write_int 5@ to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "ClistFilter"
end
else 0AF8: samp add_message_to_chat "{99CC00}Введите: {00FFFF}/aimcfg {FFCC00}[номер параметра(1-6)] {FF0000}[значение]" 0xFFFFFF
end
0AC9: free_allocated_memory 2@
end
0B43: samp cmd_ret
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:DamageConvert
0001: wait 0
0A96: 2@ = actor $PLAYER_ACTOR struct
2@ += 0x72C
0A8D: 2@ = read_memory 2@ size 1 virtual_protect 0
0470: 0@ = actor $PLAYER_ACTOR current_weapon
0085: 1@ = 0@
if 2@ == 2
then 1@ += 25
end
if 2@ == 3
then 1@ += 36
end
1@ *= 112
1@ += 13150904
1@ += 0x22
0A8D: 1@ = read_memory 1@ size 2 virtual_protect 0
0093: 1@ = integer 1@ to_float
if and
0@ >= 22
0@ <> 25
0@ <> 26
0@ <> 27
0@ <= 34
then 1@ /= 3.0434782608695652173913043478261
end
0AB2: ret 1 1@
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:GiveTakeDamageRPC
0001: wait 0
0B3D: raknet 4@ = new_bit_stream
0B40: raknet bit_stream 4@ write 0 type BS_TYPE_BOOL size 1
0B40: raknet bit_stream 4@ write 0@ type BS_TYPE_SHORT size 2
0B40: raknet bit_stream 4@ write 1@ type BS_TYPE_FLOAT size 4
0B40: raknet bit_stream 4@ write 2@ type BS_TYPE_INT size 4
0B40: raknet bit_stream 4@ write 3 type BS_TYPE_INT size 4
0B8A: raknet send_rpc 115 bit_stream 4@  
0B3E: raknet delete_bit_stream 4@
0AB2: ret 0
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:Detour
0001: wait 0
0AB1: call @DamageConvert 0 return_to 13@
0AB1: call @GiveTakeDamageRPC 3 0@ 13@ 1@
0AB2: ret 0
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:SEND_ONFOOT_PACKET
0001: wait 0
00A0: store_actor 0@ position_to 1@ 2@ 3@
0604: get_Z_angle_for_point 1@ 2@ store_to 17@
0B2B: samp 8@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0AC8: 4@ = allocate_memory_size 68
0BBA: samp store_player 8@ onfoot_data 4@
0C0D: struct 4@ offset 30 size 4 = 17@
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: ret 0
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:SendSilentBullet
0001: wait 0
0470: 3@ = actor $PLAYER_ACTOR current_weapon
00A0: store_actor $PLAYER_ACTOR position_to 4@ 5@ 6@
0B2B: samp 8@ = get_player_id_by_actor_handle 0@
00A0: store_actor 0@ position_to 9@ 10@ 11@
0AC8: 2@ = allocate_memory_size 40
0C0D: struct 2@ offset 0 size 1 = 1
0C0D: struct 2@ offset 1 size 2 = 8@
0C0D: struct 2@ offset 3 size 4 = 4@
0C0D: struct 2@ offset 7 size 4 = 5@
0C0D: struct 2@ offset 11 size 4 = 6@
0098: 22@ = random_float 0.0 _to_ 0.2
0209: 21@ = random_int_in_ranges 0 1
if 21@ == 1
then 005B: 9@ += 22@
else 005B: 9@ -= 22@
end
0098: 22@ = random_float 0.0 _to_ 0.2
0209: 21@ = random_int_in_ranges 0 1
if 21@ == 1
then 005B: 10@ += 22@
else 005B: 10@ -= 22@
end
0098: 22@ = random_float 0.0 _to_ 0.2
0209: 21@ = random_int_in_ranges 0 1
if 21@ == 1
then 005B: 1@ += 22@
else 005B: 1@ -= 22@
end
0C0D: struct 2@ offset 15 size 4 = 9@
0C0D: struct 2@ offset 19 size 4 = 10@
0C0D: struct 2@ offset 23 size 4 = 11@
0098: 22@ = random_float 0.0 _to_ 0.2
0098: 23@ = random_float 0.0 _to_ 0.2
0098: 24@ = random_float 0.0 _to_ 0.2
0C0D: struct 2@ offset 27 size 4 = 22@
0C0D: struct 2@ offset 31 size 4 = 23@
0C0D: struct 2@ offset 35 size 4 = 24@
0C0D: struct 2@ offset 39 size 1 = 3@
0B3D: raknet 12@ = new_bit_stream
0B40: raknet bit_stream 12@ write 206 type BS_TYPE_BYTE size 1  
0B40: raknet bit_stream 12@ write 2@ type BS_TYPE_ARRAY size 40
0B8B: raknet send bit_stream 12@
0B3E: raknet delete_bit_stream 12@
0AC9: free_allocated_memory 2@
0AB2: ret 2 8@ 3@
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:ColorFilter
0001: wait 0
if 0@ == 1
then
0B2B: samp 22@ = get_player_id_by_actor_handle 1@
0B2B: samp 21@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B37: samp 20@ = get_player_color 22@
0B37: samp 19@ = get_player_color 21@
if 0085: 20@ == 19@
then 18@ = 1
end
end
if and
0@ == 1
18@ == 0
then 17@ = 1
end
if 0@ == 0
then 17@ = 1
end
//alloc 15@ 67
//format 15@ "Enemy: %d | My: %d | Identity: %d | True: %d" 20@ 19@ 18@ 17@
//chatmsg 15@ 0xFFFFFF
//free 15@
0AB2: ret 1 17@
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:PACKET_SYNC_HOOK
0001: wait 0
0BE5: raknet 2@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 3@ = get_hook_param PARAM_PACKETID
if 3@ == PACKET_BULLET_SYNC
then
if 30@ == 1
then
0AB1: @GET_AIM_TARGET_ACTOR 1 IN_RADIUS_FROM_CROSSHAIR 29@ _STORE_TO 7@
if 7@ <> -1
then
0AB1: call @ColorFilter 2 23@ 7@ 17@
if 17@ == 1
then
if 27@ == 1
then
if 26@ == 1
then 0AB1: call @SEND_ONFOOT_PACKET 1 7@
end
end
if 24@ == 0
then 0AB1: call @SendSilentBullet 1 7@ ret_to 0@ 1@
else
0209: 31@ = random_int_in_ranges 0 10
if 002D: 31@ >= 24@
then 0AB1: call @SendSilentBullet 1 7@ ret_to 0@ 1@
end
end
if 27@ == 1
then
if 25@ == 1
then 0AB1: call @Detour 2 0@ 1@
end
end
0BE0: raknet hook_ret false
end
end
end
end
0BE0: raknet hook_ret true
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:GET_AIM_TARGET_ACTOR
0001: wait 0
FOR 28@ = 0.0 TO 0@ STEP 8.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@
if
056D:  actor 31@ defined
then
if
803C: $PLAYER_ACTOR == 31@
then
04C4: store_coords_to 27@ 26@ 25@ from_actor 31@ with_offset 0.0 0.0 0.0
068D: get_camera_position_to 24@ 23@ 22@
if and
06BD:  no_obstacles_between 27@ 26@ 25@ and 24@ 23@ 22@ solid 1 car 1 actor 0 object 1 particle 0
80DF:  actor 31@ driving
8118:  actor 31@ dead
02CB:  actor 31@ bounding_sphere_visible
then
04C4: store_coords_to 10@ 11@ 12@ from_actor 31@ 0.0 0.0 0.0
0AB1: call_scm_func @getScreenXYFrom3DCoords 3 3D_coords_X 10@ Y 11@ Z 12@ store_screen_X_to 13@ Y_to 14@
0509: 15@ = distance_between_XY 339.1 179.1 and_XY 13@ 14@
if
0035:  28@ >= 15@
then
0AB2: 1 31@  
end
end
end
end
end
end
END
0AB2: 1 -1
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:Configuration
0001: wait 0
if 0AAB: file_exists "CLEO\AimConfig_v3[by_0pc0d3R].ini"
then
0AF0: 28@ = get_int_from_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "TargetHookDistance"
0AF0: 27@ = get_int_from_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "Detour"
0AF0: 26@ = get_int_from_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "QuatCorrector"
0AF0: 25@ = get_int_from_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "GiveDamageRPC"
0AF0: 24@ = get_int_from_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "RandomShot"
0AF0: 23@ = get_int_from_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "FriendlyFire"
0093: 29@ = integer 28@ to_float
else
0AF1: write_int 40 to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "TargetHookDistance"
0AF1: write_int 1 to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "Detour"
0AF1: write_int 1 to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "QuatCorrector"
0AF1: write_int 1 to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "GiveDamageRPC"
0AF1: write_int 0 to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "RandomShot"
0AF1: write_int 0 to_ini_file "CLEO\AimConfig_v3[by_montana].ini" section "Settings" key "FriendlyFire"
29@ = 40.0
27@ = 1
26@ = 1
25@ = 1
24@ = 0
23@ = 0
end
0AB2: ret 6 29@ 27@ 26@ 25@ 24@ 23@
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
:getScreenXYFrom3DCoords
0001: wait 0
0AC7: 14@ = var 0@ offset
0AC7: 15@ = var 3@ offset
0AC7: 16@ = var 6@ offset
0AC7: 17@ = var 9@ offset
0AA5: call 0x70CE30 num_params 6 pop 6 {18@ 18@} 0 0 17@ 16@ 15@ 14@
0007: 12@ = 640.0
0007: 13@ = 448.0
0A8D: 14@ = read_memory 0xC17044 size 4 virtual_protect 0
0A8D: 15@ = read_memory 0xC17048 size 4 virtual_protect 0
0093: 14@ = integer 14@ to_float
0093: 15@ = integer 15@ to_float
0073: 12@ /= 14@
0073: 13@ /= 15@
006B: 3@ *= 12@
006B: 4@ *= 13@
0AB2: ret 2 3@ 4@
/////////////////////////////////// Happy End ! ////////////////////////////////////////////////////////////////////////////////////////////////
Нажмите для раскрытия...
Мне помогло поставить клео 4.1
 
  • Нравится
Реакции: holez
A

Alexxxagent

Новичок
3
1
Гайз, нужно поменять команду в клео телепорте (код открыт, вроде как). На /sp стоит слежка админская и из-за клео не могу следить. Нужно /sp изменить на /save, а /tp и /lp просто поменять местами. Через sanny отрывал код, но не нашел там этих команд, мб чего-то не шарю. Буду очень благодарен) За помощь пиарну инсту)

Стандартные команды:
/tp [x y z] - тп по координатам
/sp [имя позиции] - создать место для телепорта
/lp [имя позиции] - тпнуться на сохраненное место
 

Вложения

  • tp.cs
    908 байт · Просмотры: 10
ID_Heaven

ID_Heaven

Известный
810
284
У меня есть цлео вх зажимной, на единичку, может кто добавить к нему активацию по /wh, чтобы он так же работал как прежде, только, чтобы введешь /wh и можно было жмакать единичку, а когда снова вводишь /wh, когда жмакаешь на единичку он не работал. Вкратце, просто сделать активацию зажимного вэха на команду /wh (без уведомлений). Пожалуйста)
 

Вложения

  • Wh.cs
    19.4 KB · Просмотры: 7
H

holez

Новичок
30
5
Alexxxagent написал(а):
Гайз, нужно поменять команду в клео телепорте (код открыт, вроде как). На /sp стоит слежка админская и из-за клео не могу следить. Нужно /sp изменить на /save, а /tp и /lp просто поменять местами. Через sanny отрывал код, но не нашел там этих команд, мб чего-то не шарю. Буду очень благодарен) За помощь пиарну инсту)

Стандартные команды:
/tp [x y z] - тп по координатам
/sp [имя позиции] - создать место для телепорта
/lp [имя позиции] - тпнуться на сохраненное место
Нажмите для раскрытия...
CLEO: 
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
thread "XYZ"
0662: printstring "MADE BY MELOMANCOOL"
0662: printstring "FOR CHEAT-MASTER.RU"

:XYZ_53
wait 0
   SAMP.Available
jf @XYZ_53
0B34: samp register_client_command "lp" to_label @XYZ_115
0B34: samp register_client_command "savepos" to_label @XYZ_350
0B34: samp register_client_command "tp" to_label @XYZ_600

:XYZ_104
wait 0
goto @XYZ_104

:XYZ_115
   SAMP.IsCommandTyped(3@)
if
0AD4: 29@ = scan_string 3@ format "%f%f%f" 7@ 8@ 9@ 
jf @XYZ_238
Actor.PutAt($PLAYER_ACTOR, 7@, 8@, 9@)
chatmsg "Вы были телепортированы в: %.2f %.2f %.2f" 56576 7@ 8@ 9@
goto @XYZ_348

:XYZ_238
chatmsg "Синтаксис команды: /lp [X Y Z]" 14483456
chatmsg "Например: /lp 1154.07 -1770.2 16.6 - Телепорт на спаун 1 лвл" 14483456

:XYZ_348
SAMP.CmdRet

:XYZ_350
   SAMP.IsCommandTyped(3@)
if
0AD4: 29@ = scan_string 3@ format "%s" 3@v 
jf @XYZ_519
Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
0AF3: write_float 7@ to_ini_file "cleo\xyz.ini" section 3@v key "X"
0AF3: write_float 8@ to_ini_file "cleo\xyz.ini" section 3@v key "Y"
0AF3: write_float 9@ to_ini_file "cleo\xyz.ini" section 3@v key "Z"
chatmsg "Место \"%s\" успешно сохранено" 56576 3@v
goto @XYZ_598

:XYZ_519
chatmsg "Синтаксис команды: /savepos [имя]" 14483456
chatmsg "Например: /savepos Ферма 1" 14483456

:XYZ_598
SAMP.CmdRet

:XYZ_600
   SAMP.IsCommandTyped(3@)
if
0AD4: 29@ = scan_string 3@ format "%s" 3@v 
jf @XYZ_833
if and
0AF2: 7@ = get_float_from_ini_file "cleo\xyz.ini" section 3@v key "X"
0AF2: 8@ = get_float_from_ini_file "cleo\xyz.ini" section 3@v key "Y"
0AF2: 9@ = get_float_from_ini_file "cleo\xyz.ini" section 3@v key "Z"
jf @XYZ_780
Actor.PutAt($PLAYER_ACTOR, 7@, 8@, 9@)
chatmsg "Телепортировано в место \"%s\"" 56576 3@v
goto @XYZ_826

:XYZ_780
chatmsg "Сохраненное место \"%s\" не найдено" 14483456 3@v

:XYZ_826
goto @XYZ_902

:XYZ_833
chatmsg "Синтаксис команды: /tp [имя]" 14483456
chatmsg "Например: /tp Ферма 1" 14483456

:XYZ_902
SAMP.CmdRet
/sp заменил на /savepos, а не на /save

GhostUser⚡ написал(а):
У меня есть цлео вх зажимной, на единичку, может кто добавить к нему активацию по /wh, чтобы он так же работал как прежде, только, чтобы введешь /wh и можно было жмакать единичку, а когда снова вводишь /wh, когда жмакаешь на единичку он не работал. Вкратце, просто сделать активацию зажимного вэха на команду /wh (без уведомлений). Пожалуйста)
Нажмите для раскрытия...
CLEO: 
// 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

:Noname_2
wait 0
   SAMP.Available
jf @Noname_2
0B34: samp register_client_command "wh" to_label @Noname_484

:Noname_26
wait 0
if and
  0@ == 1
key_down 49
jf @Noname_26
call @Noname_105 0

:Noname_62
wait 0
if and
  0@ == 1
   not key_down 49
jf @Noname_62
call @Noname_265 0
goto @Noname_26

:Noname_105
0AA2: 30@ = load_library "SAMP.DLL" // IF and SET
0A8E: 1@ = 30@ + 457971 // int
0A8C: write_memory 1@ size 6 value -1869574000 virtual_protect 1
0A8E: 2@ = 30@ + 458004 // int
0A8C: write_memory 2@ size 6 value -1869574000 virtual_protect 1
0A8E: 3@ = 30@ + 458280 // int
0A8C: write_memory 3@ size 2 value 37008 virtual_protect 1
0A8E: 4@ = 30@ + 462648 // int
0A8C: write_memory 4@ size 2 value 37008 virtual_protect 1
0A8E: 5@ = 30@ + 462372 // int
0A8C: write_memory 5@ size 6 value -1869574000 virtual_protect 1
0AA3: free_library 30@
ret 0

:Noname_265
0AA2: 30@ = load_library "SAMP.DLL" // IF and SET
0A8E: 1@ = 30@ + 457971 // int
0A8C: write_memory 1@ size 4 value 24216591 virtual_protect 1
0A8E: 2@ = 1@ + 4 // int
0A8C: write_memory 2@ size 2 value 0 virtual_protect 1
0A8E: 3@ = 30@ + 458004 // int
0A8C: write_memory 3@ size 4 value 22053903 virtual_protect 1
0A8E: 4@ = 3@ + 4 // int
0A8C: write_memory 4@ size 2 value 0 virtual_protect 1
0A8E: 5@ = 30@ + 458280 // int
0A8C: write_memory 5@ size 2 value 16500 virtual_protect 1
0A8E: 6@ = 30@ + 462648 // int
0A8C: write_memory 6@ size 2 value 24948 virtual_protect 1
0A8E: 7@ = 30@ + 462372 // int
0A8C: write_memory 7@ size 4 value 24218127 virtual_protect 1
0A8E: 8@ = 7@ + 4 // int
0A8C: write_memory 8@ size 2 value 0 virtual_protect 1
0AA3: free_library 30@
ret 0

:Noname_484
0B12: 0@ = 0@ XOR 1
SAMP.CmdRet
 

Вложения

  • tp.cs
    18.1 KB · Просмотры: 9
  • wh.cs
    17.7 KB · Просмотры: 6
  • Нравится
Реакции: ID_Heaven и Alexxxagent
A

AquaMod

Известный
30
1
Здравствуйте, пытался сделать коордмастер по сохраненным координатам в .ini файле но чёт не получилось...
Прошу помощи ибо сам уже не представляю что нужно сделать что-бы было примерно так: командой /sp "название" сохраняешь нужные координаты с нужным названием в ini файл после чего когда нужно прописываешь команду /evotp "название координат"...
Ниже то что я пытался сделать
( если нужно могу кинуть код сюда )
Надеюсь что кто нибудь сможет помочь, обьяснить что я сделал не так...
 

Вложения

  • CORDtpTEST.cs
    1.2 KB · Просмотры: 7
T

th3nla0

Известный
46
4
измените с numpad1 на mouse 5/4 либо просто на 1, но если на 1, чтобы при вкл чате не работала
 

Вложения

  • AutoHotkey Script Keyboard.exe
    449 KB · Просмотры: 11
S

#saniwe

глаза пофикси
218
107
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
AlexFLIX написал(а):
Здравствуйте, пытался сделать коордмастер по сохраненным координатам в .ini файле но чёт не получилось...
Прошу помощи ибо сам уже не представляю что нужно сделать что-бы было примерно так: командой /sp "название" сохраняешь нужные координаты с нужным названием в ini файл после чего когда нужно прописываешь команду /evotp "название координат"...
Ниже то что я пытался сделать
( если нужно могу кинуть код сюда )
Надеюсь что кто нибудь сможет помочь, обьяснить что я сделал не так...
Нажмите для раскрытия...
Вам в раздел "Вопросы по разработке CLEO". Чтобы тут не засорять.
 
Bananious

Bananious

Известный
238
17
Сделайте чтобы телепортировало когда ты ввел команду и нажал кнопку R , а то у меня я ввожу команду и меня сразу тп
CLEO: 
{$CLEO}
0000:

repeat
    wait 0
until SAMP.Available()


0B34: samp register_client_command "tp" to_label @tp
0B34: samp register_client_command "afk" to_label @afk_142

:afk_131
wait 0 
jump @afk_131 
:afk_142
if 
  0@ == 0 
else_jump @afk_269 
0@ = 1 
chatmsg "{949494}[AFK] {A22915}ВКЛ." 16777215 
SAMP.WriteSAMPMemory(16864, 195, 1)
SAMP.WriteSAMPMemory(24896, 195, 1)
SAMP.WriteSAMPMemory(18480, 195, 1)
SAMP.WriteSAMPMemory(82384, 50064, 2)
jump @afk_372 
:afk_269
0@ = 0 
chatmsg "{949494}[AFK] {A22915}ВЫКЛ." 16777215 
SAMP.WriteSAMPMemory(16864, 0@, 1)
SAMP.WriteSAMPMemory(24896, 1@, 1)
SAMP.WriteSAMPMemory(18480, 2@, 1)
SAMP.WriteSAMPMemory(82384, 3@, 2)
:afk_372
SAMP.CmdRet

while true
    wait 0
    if 0@ == true
        then
            if 0C89:  key_just_pressed 82
            then
                03CB: set_rendering_origin_at 1@ 2@ 3@
            04E4: refresh_game_renderer_at 1@ 2@
            02CE: 8@ = ground_z_at 1@ 2@ 999.0
            8@ += 30.0
            wait 100
            0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 1@ 2@ 8@
            Actor.PutAt($PLAYER_ACTOR,1@,2@,-999.0)
            wait 0
            02CE: 8@ = ground_z_at 1@ 2@ 999.0
            Actor.PutAt($PLAYER_ACTOR,1@,2@,8@)
            wait 0
            Actor.PutAt($PLAYER_ACTOR, 1133.33, -1749.01, 13.5703)
            0AF8: samp add_message_to_chat "[Teleport] - Вы успешно телепортированы!" color -1
                    wait 100
            0@ = 0
        end
    end
end

:tp
0B12: 0@ = 0@ XOR 1
0AF8: samp add_message_to_chat "[Teleport] - Loaded" color -1
samp.CmdRet()
 
#RCoffiano

#RCoffiano

Участник
19
2
Заменить цену мед карты на 3.000
 

Вложения

  • AutoMedic by Vlad Horii.exe
    386 KB · Просмотры: 8
H

holez

Новичок
30
5
ChoQuRoss написал(а):
Сделайте чтобы телепортировало когда ты ввел команду и нажал кнопку R , а то у меня я ввожу команду и меня сразу тп
CLEO: 
{$CLEO}
0000:

repeat
    wait 0
until SAMP.Available()


0B34: samp register_client_command "tp" to_label @tp
0B34: samp register_client_command "afk" to_label @afk_142

:afk_131
wait 0
jump @afk_131
:afk_142
if
  0@ == 0
else_jump @afk_269
0@ = 1
chatmsg "{949494}[AFK] {A22915}ВКЛ." 16777215
SAMP.WriteSAMPMemory(16864, 195, 1)
SAMP.WriteSAMPMemory(24896, 195, 1)
SAMP.WriteSAMPMemory(18480, 195, 1)
SAMP.WriteSAMPMemory(82384, 50064, 2)
jump @afk_372
:afk_269
0@ = 0
chatmsg "{949494}[AFK] {A22915}ВЫКЛ." 16777215
SAMP.WriteSAMPMemory(16864, 0@, 1)
SAMP.WriteSAMPMemory(24896, 1@, 1)
SAMP.WriteSAMPMemory(18480, 2@, 1)
SAMP.WriteSAMPMemory(82384, 3@, 2)
:afk_372
SAMP.CmdRet

while true
    wait 0
    if 0@ == true
        then
            if 0C89:  key_just_pressed 82
            then
                03CB: set_rendering_origin_at 1@ 2@ 3@
            04E4: refresh_game_renderer_at 1@ 2@
            02CE: 8@ = ground_z_at 1@ 2@ 999.0
            8@ += 30.0
            wait 100
            0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 1@ 2@ 8@
            Actor.PutAt($PLAYER_ACTOR,1@,2@,-999.0)
            wait 0
            02CE: 8@ = ground_z_at 1@ 2@ 999.0
            Actor.PutAt($PLAYER_ACTOR,1@,2@,8@)
            wait 0
            Actor.PutAt($PLAYER_ACTOR, 1133.33, -1749.01, 13.5703)
            0AF8: samp add_message_to_chat "[Teleport] - Вы успешно телепортированы!" color -1
                    wait 100
            0@ = 0
        end
    end
end

:tp
0B12: 0@ = 0@ XOR 1
0AF8: samp add_message_to_chat "[Teleport] - Loaded" color -1
samp.CmdRet()
Нажмите для раскрытия...

CLEO: 
{$CLEO}
0000:

repeat
    wait 0
until SAMP.Available()


0B34: samp register_client_command "tp" to_label @tp
0B34: samp register_client_command "afk" to_label @afk_142

while true
wait 0
    if 0@ == true
        then
        if 0C89:  key_just_pressed 82
            then
            03CB: set_rendering_origin_at 1@ 2@ 3@
            04E4: refresh_game_renderer_at 1@ 2@
            02CE: 8@ = ground_z_at 1@ 2@ 999.0
            8@ += 30.0
            0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 1@ 2@ 8@
            Actor.PutAt($PLAYER_ACTOR,1@,2@,-999.0)
            02CE: 8@ = ground_z_at 1@ 2@ 999.0
            Actor.PutAt($PLAYER_ACTOR,1@,2@,8@)
            Actor.PutAt($PLAYER_ACTOR, 1133.33, -1749.01, 13.5703)
            0AF8: samp add_message_to_chat "[Teleport] - Вы успешно телепортированы!" color -1
        end
    end
end


:afk_142
  9@ == 0
jf @afk_269
9@ = 1
chatmsg "{949494}[AFK] {A22915}ВКЛ." 16777215
SAMP.WriteSAMPMemory(16864, 195, 1)
SAMP.WriteSAMPMemory(24896, 195, 1)
SAMP.WriteSAMPMemory(18480, 195, 1)
SAMP.WriteSAMPMemory(82384, 50064, 2)
jump @afk_372
:afk_269
9@ = 0
chatmsg "{949494}[AFK] {A22915}ВЫКЛ." 16777215
SAMP.WriteSAMPMemory(16864, 0@, 1)
SAMP.WriteSAMPMemory(24896, 1@, 1)
SAMP.WriteSAMPMemory(18480, 2@, 1)
SAMP.WriteSAMPMemory(82384, 3@, 2)
:afk_372
SAMP.CmdRet


:tp
0B12: 0@ = 0@ XOR 1
if 0@ == true
    then
    0AF8: samp add_message_to_chat "[Teleport] - {00BB00}Enabled" color -1
    else
    0AF8: samp add_message_to_chat "[Teleport] - {BB0000}Disabled" color -1
end
SAMP.CmdRet
 

Вложения

  • script.cs
    17.7 KB · Просмотры: 7
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. Carlos777
    Исходник Гайд Изменяем скомпилированные луа-скрипты
      • Нравится
    Ответы
    4
    Просмотры
    5K
    Lua
    MrCreepTon
    MrCreepTon
  2. chapo
    • Закрыта
    • Вопрос
      Помогите дауну в изменении цлео скриптов
      • Нравится
    Ответы
    1
    Просмотры
    789
    Помощь
    enrique newskii
    E
  3. samperskiy
    • Решено
    Помощь в изменении скриптов
      • Bug
    Ответы
    4
    Просмотры
    724
    Помощь
    YarikVL
    YarikVL
  4. Use[R]
    Заказ Фикс клео снегопада
    Ответы
    0
    Просмотры
    425
    Работа и услуги
    Use[R]
    Use[R]
  5. Lumonton
    • Вопрос
    Помощь в изменении скриптов
    Ответы
    16
    Просмотры
    918
    Помощь
    BakiHanma1
    B
Сверху Снизу