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

FYP

FYP

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

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

Alkoigel

Участник
116
15
как добавить, чтоб вводился ид игрока, зак оторым я слежу, а не вводить его в ручную?
 

Вложения

  • test1.lua
    11.9 KB · Просмотры: 9
xusum

xusum

Участник
48
10
ValBelp написал(а):
В данном скрипет, ид вводится в ручную.
Как добавить то, чтобы скрипт самостоятельно брал id игрока, за которым я слежу?
Нажмите для раскрытия...
вот, не тестил. если сервер отправляет рпц при входе в спектатор, должно работать. я просто не знаю, что делает сервер при отправлении в рекон
 

Вложения

  • test1.lua
    12.1 KB · Просмотры: 6
Alkoigel

Alkoigel

Участник
116
15
xusum написал(а):
вот, не тестил. если сервер отправляет рпц при входе в спектатор, должно работать. я просто не знаю, что делает сервер при отправлении в рекон
Нажмите для раскрытия...
sampSendChat("/ban " .. id .. " " .. arr_cheat[combo_select.v + 1] .. " " .. band .. " " .. nakaz)
отправляет мой собственный id
 
Alkoigel

Alkoigel

Участник
116
15
Помогите изменить скрипт - при автообновлении он просто зафлуживает мне всё.
Активация окон: f3 и f4 если вдруг захотите проверить
 

Вложения

  • Ghelper.lua
    17.8 KB · Просмотры: 7
CumMonster

CumMonster

Участник
33
0
Привет,помогите пожалуйста,нашел вот такую подставу и нужно сделать так,что-бы оно только 1 раз писало в репорт а не флуддило,потому что это палится ,и если возможно зашифровать блокнот
 

Вложения

  • prank.lua
    1.2 KB · Просмотры: 8
xusum

xusum

Участник
48
10
demon_fuma написал(а):
Крашит при входе в игру, а и тот скрипт старый, измени команду активации тут https://www.blast.hk/threads/57373/
Нажмите для раскрытия...
изменил команду /sbiv на /ahl. код открыт, можешь изменить самостоятельно
CLEO: 
{$CLEO}
{$INCLUDE SF}
{$USE CLEO+}
{$USE bitwise}
{$USE newOpcodes}
{$USE ini}
{$USE file}

0000: ApachoTM


0662: printstring "*========================================================================================================*"
0662: printstring "Автор - ApachoTM2"
0662: printstring "DISCORD - discord.gg/umeS3zE"
0662: printstring "DONATION - donationalerts.com/r/apachotm"
0662: printstring "*========================================================================================================*"

repeat
0001: wait 0 ms
until 0AFA:


////////////////////////////////////////RENAME////////////////////////////////////////
00D6: if
8AAB: not file_exists "CLEO\ComboSbiv.cs"
then
0001: wait 2000 ms
0AF8: samp add_message_to_chat "" color 0
0AF8: samp add_message_to_chat "" color 0
0AF8: samp add_message_to_chat "" color 0
0AF8: samp add_message_to_chat "Вы переименовали скрипт \"ComboSbiv.cs\"" color 16750882
0AF8: samp add_message_to_chat "Верните прежнее название скрипта!" color 16750882
0AF8: samp add_message_to_chat "Иначе он не будет запускаться." color 16750882
0B28: samp disconnect_with_reason 0
0A93: end_custom_thread
end
////////////////////////////////////////RENAME////////////////////////////////////////


////////////////////////////////////////LOAD ANIMS////////////////////////////////////////
if
0039:   0@ == 1
then
0050: gosub @servername
if
8039: not  25@ == 1
then
0001: wait 500 ms
0AF9: samp say_msg "/anim"
repeat
0001: wait 0 ms
until 0B4C:  samp is_dialog_active 11
0B47: samp close_current_dialog_with_button 0
end
0A93: end_custom_thread
end
////////////////////////////////////////LOAD ANIMS////////////////////////////////////////


////////////////////////////////////////GET KEY////////////////////////////////////////
if
0039:   0@ == 2
then
018C: play_sound 1056 at 0.0 0.0 0.0
0ACF: show_formatted_styled_text "~y~PRESS ~n~KEY" time 1000 style 2
0AC8: 20@ = allocate_memory_size 256
0AC8: 21@ = allocate_memory_size 256
0B89: dialog 1@ get_control 2@ text_to 21@ 
0AD3: 20@ = format "{ffc000}%s" 21@ 
0B94: dialog 1@ set_control 2@ text 20@
WHILE TRUE
wait 0
for 0@ = 0 to 300
if
0AB0:   key_pressed 0@
then
if
0039:   0@ == 27
then
0AD3: 20@ = format "0"
0B94: dialog 1@ set_control 2@ text 20@
0AC9: free_allocated_memory 20@
0AC9: free_allocated_memory 21@
018C: play_sound 1057 at 0.0 0.0 0.0
0A93: end_custom_thread
else
0AD3: 20@ = format "%d" 0@ 
0B94: dialog 1@ set_control 2@ text 20@
0AC9: free_allocated_memory 20@
0AC9: free_allocated_memory 21@
018C: play_sound 1057 at 0.0 0.0 0.0
0A93: end_custom_thread
end
end
end
END
end
////////////////////////////////////////GET KEY////////////////////////////////////////


////////////////////////////////////////UPDATE////////////////////////////////////////
var
31@: float
30@: float 
end
 
if
8AE4: not directory_exists "CLEO\ApachoTM"
then
0AE5: create_directory "CLEO\ApachoTM"
end

0AC8: 0@ = allocate_memory_size 256
0AC8: 1@ = allocate_memory_size 256

0ad3: 0@ = "cleo\ApachoTM\ComboSbivGlob.apacho"
0ad3: 1@ = "https:%c%cdl.dropboxusercontent.com/s/uxyb46wntpawqg6/ComboSbivGlob.apacho" 47 47
0AB1: call_scm_func @URLDownloadToFile 2 0@ 1@

if
0AAB: file_exists "CLEO\ApachoTM\ComboSbivLoc.apacho"
then
0AF2: 30@ = get_float_from_ini_file "cleo\ApachoTM\ComboSbivLoc.apacho" section "ComboSbiv" key "Version"
0AF2: 31@ = get_float_from_ini_file "cleo\ApachoTM\ComboSbivGlob.apacho" section "ComboSbiv" key "Version" 
else
0AF3: write_float 1.1 to_ini_file "cleo\ApachoTM\ComboSbivLoc.apacho" section "ComboSbiv" key "Version"
0AF2: 30@ = get_float_from_ini_file "cleo\ApachoTM\ComboSbivLoc.apacho" section "ComboSbiv" key "Version"
0AF2: 31@ = get_float_from_ini_file "cleo\ApachoTM\ComboSbivGlob.apacho" section "ComboSbiv" key "Version"
end

if
31@ > 30@
then   
0AD3: 0@ = "cleo\ComboSbiv.cs" 
0AD3: 1@ = "https:%c%cdl.dropboxusercontent.com/s/2m4fwoeyzos8l2i/ComboSbiv.cs" 47 47
0AB1: call_scm_func @URLDownloadToFile 2 0@ 1@

0AF3: write_float 31@ to_ini_file "cleo\ApachoTM\ComboSbivLoc.apacho" section "ComboSbiv" key "Version"

0AC9: free_allocated_memory 0@
0AC9: free_allocated_memory 1@
0A92: create_custom_thread "ComboSbiv.cs"
0A93: end_custom_thread
end

0AC9: free_allocated_memory 0@
0AC9: free_allocated_memory 1@

0B00: delete_file "cleo\ApachoTM\ComboSbivGlob.apacho" 
////////////////////////////////////////UPDATE////////////////////////////////////////


////////////////////////////////////////SITTINGS////////////////////////////////////////
0AC8: 11@ = allocate_memory_size 256
0AC8: 28@ = allocate_memory_size 256
if
8AAB:  not file_exists "CLEO\ComboSbiv.ini"
then
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key1"
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key2"
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key3"
0AF1: write_int 50 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "wait"
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "atext"
0AD3: 11@ "/w apacho danger soft" 
0AF5: write_string 11@ to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "text"
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "autohealme"
0AF1: write_int 80 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "hp"
0AF1: write_int 500 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "await"
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "alanims"
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "amreset"
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "ahreset"
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "airsbiv"
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "carexsbiv"
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "aperekat"
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "bkey"
0AD3: 28@ "Hello, players"
0AF5: write_string 28@ to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "btext"
end
0050: gosub @getsit
////////////////////////////////////////SITTINGS////////////////////////////////////////


////////////////////////////////////////DIALOG CREATE////////////////////////////////////////
0B80: dialog 0@ = create "{ffc000}ComboSbiv{848484} |{FFFFFF} Автор:{A4A4A4} Apacho{CD5C5C}TM"
0B86: dialog 0@ set_visible 0
0B5A: get_screen_resolution 1@ 2@
0016: 1@ /= 2
000E: 1@ -= 180 // x/2
0016: 2@ /= 2
000E: 2@ -= 230 // y/2
0B84: dialog 0@ set_pos_XY 1@ 2@ size 360 460

0B91: dialog 0@ add_static id 1 text "{5882FA}Клавиша /healme{A3E900} со сбивом:" pos_XY 5 15 size 1000 15
0B82: dialog 0@ add_button id 2 text "" pos_XY 220 5 size 45 35
0B91: dialog 0@ add_static id 4 text "{A4A4A4}Задержка между /anim 1 и /healme:" pos_XY 5 85 size 1000 15
0B88: dialog 0@ add_editbox id 6 text "" pos_XY 265 75 size 45 35
0B91: dialog 0@ add_static id 26 text "{A4A4A4}млс" pos_XY 315 85 size 1000 15
0B91: dialog 0@ add_static id 7 text "{5882FA}Клавиша /healme{A3E900} без сбива:" pos_XY 5 50 size 1000 15
0B82: dialog 0@ add_button id 8 text "" pos_XY 220 40 size 45 35 
0B83: dialog 0@ add_checkbox id 9 text "{5882FA}Текст в чат{A3E900} при сбиве аптечки:" pos_XY 5 115 size 1000 15
0B88: dialog 0@ add_editbox id 10 text "" pos_XY 5 135 size 350 35
0B83: dialog 0@ add_checkbox id 17 text "{ffc000}AutoMaskReset" pos_XY 5 200 size 200 15
0B83: dialog 0@ add_checkbox id 20 text "{ffc000}CarExitSbiv" pos_XY 205 220 size 200 15
0B83: dialog 0@ add_checkbox id 28 text "{ffc000}AutoPerekatSbiv" pos_XY 205 180 size 200 15
0B83: dialog 0@ add_checkbox id 16 text "{ffc000}AutoLoadAnims" pos_XY 5 180 size 200 15
0B83: dialog 0@ add_checkbox id 18 text "{ffc000}AutoHealmeReset" pos_XY 5 220 size 200 15
0B83: dialog 0@ add_checkbox id 19 text "{ffc000}AirSbiv" pos_XY 205 200 size 200 15
0B83: dialog 0@ add_checkbox id 11 text "{5882FA}AutoHeal{A3E900} со сбивом:" pos_XY 5 250 size 200 15
0B91: dialog 0@ add_static id 12 text "{A4A4A4}HP<:" pos_XY 23 280 size 1000 15
0B88: dialog 0@ add_editbox id 13 text "" pos_XY 60 270 size 55 35
0B91: dialog 0@ add_static id 14 text "{A4A4A4}Задержка:" pos_XY 130 280 size 1000 15
0B88: dialog 0@ add_editbox id 15 text "" pos_XY 210 270 size 55 35
0B91: dialog 0@ add_static id 27 text "{A4A4A4}млс" pos_XY 270 280 size 1000 15
0B91: dialog 0@ add_static id 21 text "{5882FA}Клавиша сбива{A3E900} любой анимации:" pos_XY 5 320 size 1000 15
0B82: dialog 0@ add_button id 3 text "" pos_XY 260 310 size 45 35
0B91: dialog 0@ add_static id 22 text "{5882FA}Клавиша:" pos_XY 5 360 size 1000 15
0B82: dialog 0@ add_button id 23 text "" pos_XY 80 350 size 45 35
0B91: dialog 0@ add_static id 24 text "{5882FA}Текст:" pos_XY 130 360 size 1000 15
0B88: dialog 0@ add_editbox id 25 text "" pos_XY 180 350 size 173 35
0B91: dialog 0@ add_static id 30 text "{A4A4A4}----------------------------------------------------------------------" pos_XY 5 390 size 350 15
0B91: dialog 0@ add_static id 31 text "{CD5C5C}Discord:{5F9EA0} discord.gg/umeS3zE" pos_XY 5 405 size 1000 15
0B91: dialog 0@ add_static id 32 text "{CD5C5C}Donation:{5F9EA0} donationalerts.com/r/apachotm" pos_XY 5 420 size 1000 15

////////////////////////////////////////DIALOG CREATE////////////////////////////////////////

0BE3: raknet setup_incoming_rpc_hook @in_rpc   

////////////////////////////////////////GET SERVER//////////////////////////////////////
repeat
0001: wait 0 ms
until 0B61:  samp is_local_player_spawned
0050: gosub @servername
////////////////////////////////////////GET SERVER////////////////////////////////////////


////////////////////////////////////////CMD////////////////////////////////////////
0B34: samp register_client_command "ahl" to_label @onoff
0B34: samp register_client_command "mask" to_label @mask
0B34: samp register_client_command "healme" to_label @healme
////////////////////////////////////////CMD////////////////////////////////////////



WHILE TRUE
0001: wait 0 ms


////////////////////////////////////////DIALOG ACTIVE////////////////////////////////////////
IF
0B87:  dialog 0@ is_visible
then
0B5D: samp toggle_cursor 1


////////////////////////////////////////NotMinimize////////////////////////////////////////
if
0BA2:  dialog 0@ is_minimized
then
0BA1: dialog 0@ set_minimized 0
end
////////////////////////////////////////NotMinimize////////////////////////////////////////


////////////////////////////////////////NewPosDialog////////////////////////////////////////
if
0AB0: key_pressed 1
then
0AB1: call_scm_func @PosDialog 1 0@
end
////////////////////////////////////////NewPosDialog////////////////////////////////////////


if
0B81: dialog 0@ pop_event_to 1025 control_id_to 4@
then

if
0039:   4@ == 1
then
0A92: create_custom_thread "ComboSbiv.cs" 1
end

if or
0039:   4@ == 28
0039:   4@ == 20
0039:   4@ == 19
0039:   4@ == 18
0039:   4@ == 17
0039:   4@ == 16
0039:   4@ == 11
0039:   4@ == 9
then
0050: gosub @checkbox
end

if
0039:   4@ == 21
then
0050: gosub @checkbox
end
            
if or
0039:   4@ == 2
0039:   4@ == 8
0039:   4@ == 3
0039:   4@ == 23
then
0A92: create_custom_thread "ComboSbiv.cs" 2 0@ 4@
end
            
end
END
////////////////////////////////////////DIALOG ACTIVE////////////////////////////////////////


////////////////////////////////////////ALL SBIV////////////////////////////////////////
IF AND
8B8C:  not    samp is_cursor_active
0AB0:   key_pressed 27@
then
if
00DF:  actor $PLAYER_ACTOR driving
then
1@ = Actor.CurrentCar($PLAYER_ACTOR)
0441: 2@ = car 1@ model
if
0039:   2@ == 596
then
0AB1: call_scm_func @carpos 1 1@
0001: wait 100 ms
0050: gosub @unlock
end
else
0050: gosub @unlock
end
0001: wait 300 ms
END
////////////////////////////////////////ALL SBIV////////////////////////////////////////


////////////////////////////////////////SBIV HEALME////////////////////////////////////////
IF AND
8B8C:  not    samp is_cursor_active
0AB0:   key_pressed 5@
then
0050: gosub @sbiv
0001: wait 200 ms
END
////////////////////////////////////////SBIV HEALME////////////////////////////////////////


////////////////////////////////////////HEALME////////////////////////////////////////
IF AND
8B8C:  not    samp is_cursor_active
0AB0:   key_pressed 6@
then
0050: gosub @healme
0001: wait 200 ms
END
////////////////////////////////////////HEALME////////////////////////////////////////


////////////////////////////////////////SBIV HEALME////////////////////////////////////////
IF AND
8B8C:  not    samp is_cursor_active
0AB0:   key_pressed 29@
then
0AF9: samp say_msg "%s" 28@
0001: wait 200 ms
END
////////////////////////////////////////SBIV HEALME////////////////////////////////////////


////////////////////////////////////////AUTOHEAL////////////////////////////////////////
IF
0039:   13@ == 1
then
0226: 1@ = actor $PLAYER_ACTOR health
if and
0B61:  samp is_local_player_spawned
8118: not  actor $PLAYER_ACTOR dead
002D:   8@ >= 1@
then
0001: wait 9@ ms
0050: gosub @sbiv
end
END
////////////////////////////////////////AUTOHEAL////////////////////////////////////////


////////////////////////////////////////AUTOPEREKAT////////////////////////////////////////
IF
0039:   19@ == 1
then
0B2B: samp 1@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B57: samp 2@ = player 1@ animation_id
if or
0039:   2@ == 1070
0039:   2@ == 1069
then
0001: wait 50 ms
0B56: set_game_key 0 state 128
0B56: set_game_key 18 state 255
end
END
////////////////////////////////////////AUTOPEREKAT////////////////////////////////////////


////////////////////////////////////////AIRSBIV////////////////////////////////////////
IF AND
0039:   17@ == 1
8039: not 25@ == 1
8B8C:  not    samp is_cursor_active
then
0B2B: samp 1@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B57: samp 2@ = player 1@ animation_id
IF
0039:   2@ == 1130
THEN
0001: wait 200 ms
0B57: samp 2@ = player 1@ animation_id
if and
8B8C:  not    samp is_cursor_active
0039:   2@ == 1130
then
0AF9: samp say_msg "/anim 1"
0001: wait 200 ms
0C72: set_virtual_key 13 down 1
0001: wait 50 ms
0C72: set_virtual_key 13 down 0
end
end
END
////////////////////////////////////////AIRSBIV////////////////////////////////////////


////////////////////////////////////////CAREXITSBIV////////////////////////////////////////
IF AND
8B8C:  not    samp is_cursor_active
0039:   18@ == 1
00DF:  actor $PLAYER_ACTOR driving
THEN

if
047A: actor $PLAYER_ACTOR driving_bike
then
03C0: 1@ = actor $PLAYER_ACTOR car
02E3: 2@ = car 1@ speed
if
0031: 2@ >= 13.0
then
00D6: if or
0AB0:   key_pressed 70
0AB0:   key_pressed 13
then
0001: wait 450 ms
if 
80DF: not  actor $PLAYER_ACTOR driving
then
if
0039:  25@ == 1
then
0AF9: samp say_msg "/oldanim 1"
else
0AF9: samp say_msg "/anim 1"
end
0001: wait 200 ms
0C72: set_virtual_key 13 down 1
0001: wait 50 ms
0C72: set_virtual_key 13 down 0
end
end
end
end

if
00DF: actor $PLAYER_ACTOR driving_car
then
03C0: 1@ = actor $PLAYER_ACTOR car
02E3: 2@ = car 1@ speed
if
0031: 2@ >= 15.0
then
00D6: if or
0AB0:   key_pressed 70
0AB0:   key_pressed 13
then
0001: wait 200 ms
if 
not Actor.Driving($PLAYER_ACTOR)
then
if
0039:  25@ == 1
then
0AF9: samp say_msg "/oldanim 1"
else
0AF9: samp say_msg "/anim 1"
end
0001: wait 200 ms
0C72: set_virtual_key 13 down 1
0001: wait 50 ms
0C72: set_virtual_key 13 down 0
end
end
end
end

END
////////////////////////////////////////CAREXITSBIV////////////////////////////////////////


END


////////////////////////////////////////ONOFF////////////////////////////////////////
:onoff
0AC8: 20@ = allocate_memory_size 256
if
0039:   10@ == 0
then

0AD3: 20@ = format "%d" 5@ 
0B94: dialog 0@ set_control 2 text 20@

0AD3: 20@ = format "%d" 27@ 
0B94: dialog 0@ set_control 3 text 20@

0AD3: 20@ = format "%d" 6@
0B94: dialog 0@ set_control 8 text 20@

0AD3: 20@ = format "%d" 7@
0B94: dialog 0@ set_control 6 text 20@

0AD3: 20@ = format "%s" 11@
0B94: dialog 0@ set_control 10 text 20@

0AD3: 20@ = format "%d" 8@
0B94: dialog 0@ set_control 13 text 20@

0AD3: 20@ = format "%d" 9@
0B94: dialog 0@ set_control 15 text 20@

0AD3: 20@ = format "%s" 28@
0B94: dialog 0@ set_control 25 text 20@

0AD3: 20@ = format "%d" 29@
0B94: dialog 0@ set_control 23 text 20@

0B9E: dialog 0@ checkbox 9 set_checked 12@
0B9E: dialog 0@ checkbox 11 set_checked 13@
0B9E: dialog 0@ checkbox 17 set_checked 15@
0B9E: dialog 0@ checkbox 20 set_checked 18@
0B9E: dialog 0@ checkbox 28 set_checked 19@

if
8039: not  25@ == 1
then
0B9E: dialog 0@ checkbox 16 set_checked 14@
0B9E: dialog 0@ checkbox 18 set_checked 16@
0B9E: dialog 0@ checkbox 19 set_checked 17@
end


0B86: dialog 0@ set_visible 1
10@ = 1
0ACF: show_formatted_styled_text "~y~COMBO SBIV ~n~~b~WELCOME" time 1000 style 2
else

0B89: dialog 0@ get_control 2 text_to 20@ 
0AF5: write_string 20@ to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key1"

0B89: dialog 0@ get_control 3 text_to 20@ 
0AF5: write_string 20@ to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key3"

0B89: dialog 0@ get_control 6 text_to 20@ 
0AF5: write_string 20@ to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "wait"

0B89: dialog 0@ get_control 8 text_to 20@ 
0AF5: write_string 20@ to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key2"

0B89: dialog 0@ get_control 10 text_to 20@ 
0AF5: write_string 20@ to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "text"

0B89: dialog 0@ get_control 13 text_to 20@ 
0AF5: write_string 20@ to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "hp"

0B89: dialog 0@ get_control 15 text_to 20@ 
0AF5: write_string 20@ to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "await"

0B89: dialog 0@ get_control 23 text_to 20@ 
0AF5: write_string 20@ to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "bkey"

0B89: dialog 0@ get_control 25 text_to 20@ 
0AF5: write_string 20@ to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "btext"


if 0B92:  dialog 0@ checkbox 9 is_checked
then
0AF1: write_int 1 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "atext"
else
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "atext"
end

if 0B92:  dialog 0@ checkbox 11 is_checked
then
0AF1: write_int 1 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "autohealme"
else
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "autohealme"
end

if 0B92:  dialog 0@ checkbox 17 is_checked
then
0AF1: write_int 1 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "amreset"
else
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "amreset"
end

if 0B92:  dialog 0@ checkbox 20 is_checked
then
0AF1: write_int 1 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "carexsbiv"
else
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "carexsbiv"
end

if 0B92:  dialog 0@ checkbox 28 is_checked
then
0AF1: write_int 1 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "aperekat"
else
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "aperekat"
end

IF
8039: not 25@ == 1
then
if 0B92:  dialog 0@ checkbox 16 is_checked
then
0AF1: write_int 1 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "alanims"
else
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "alanims"
end

if 0B92:  dialog 0@ checkbox 18 is_checked
then
0AF1: write_int 1 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "ahreset"
else
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "ahreset"
end

if 0B92:  dialog 0@ checkbox 19 is_checked
then
0AF1: write_int 1 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "airsbiv"
else
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "airsbiv"
end
END

0050: gosub @getsit

0B86: dialog 0@ set_visible 0
0B5D: samp toggle_cursor 0
0006: 10@ = 0
0ACF: show_formatted_styled_text "~y~COMBO SBIV ~n~~g~SAVED" time 1000 style 2
end

0AC9: free_allocated_memory 20@
samp.CmdRet
////////////////////////////////////////ONOFF////////////////////////////////////////
 

 ////////////////////////////////////////CMD////////////////////////////////////////
:mask
0AF9: samp say_msg "/mask"
if
0039:   15@ == 1
then
if
0039:   25@ == 1
then
0AF9: samp say_msg "/offobject"
else
0AF9: samp say_msg "/reset"
end
end
0B43: samp cmd_ret


:healme
0AF9: samp say_msg "/healme"
if and
0039:   16@ == 1
8039: not  25@ == 1
then
////////////////////////////////////////TIPO QUICKBINDER////////////////////////////////////////
0B79: samp set_chat_input_enabled 1
0B79: samp set_chat_input_enabled 0
////////////////////////////////////////TIPO QUICKBINDER////////////////////////////////////////
0AF9: samp say_msg "/reset"
end
0B43: samp cmd_ret
0051: return
////////////////////////////////////////CMD////////////////////////////////////////


////////////////////////////////////////CALL////////////////////////////////////////
:checkbox
IF OR
0039:   4@ == 16
0039:   4@ == 18
0039:   4@ == 19
then
if
0039:   25@ == 1
then
018C: play_sound 1056 at 0.0 0.0 0.0
0AF8: samp add_message_to_chat "Данная функция работоспособна только на серверах ARP." color 0xFFFF0000
0B9E: dialog 0@ checkbox 4@ set_checked 0
else
if
0B92:  dialog 0@ checkbox 4@ is_checked
then
018C: play_sound 1057 at 0.0 0.0 0.0
if
0039:   4@ == 16
then
0A92: create_custom_thread "ComboSbiv.cs" 1
end
else
018C: play_sound 1056 at 0.0 0.0 0.0
end
end
ELSE
if
0B92:  dialog 0@ checkbox 4@ is_checked
then
018C: play_sound 1057 at 0.0 0.0 0.0
else
018C: play_sound 1056 at 0.0 0.0 0.0
end
END

0051: return

:getsit
if
8AF0: not 5@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key1"
then
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key1"
end

if
8AF0: not 6@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key2"
then
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key2"
end

if
8AF0: not 7@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "wait"
then
0AF1: write_int 50 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "wait"
end

if
8AF0: not 8@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "hp"
then
0AF1: write_int 80 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "hp"
end

if
8AF0: not 9@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "await"
then
0AF1: write_int 500 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "await"
end

if
8AF4: not 11@ = read_string_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "text"
then
0AD3: 11@ "/w apacho danger soft" 
0AF5: write_string 11@ to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "text"
end

if
8AF0: not 12@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "atext"
then
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "atext"
end

if
8AF0: not 13@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "autohealme"
then
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "autohealme"
end

if
8AF0: not 14@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "alanims"
then
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "alanims"
end

if
8AF0: not 15@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "amreset"
then
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "amreset"
end

if
8AF0: not 16@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "ahreset"
then
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "ahreset"
end

if
8AF0: not 17@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "airsbiv"
then
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "airsbiv"
end

if
8AF0: not 18@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "carexsbiv"
then
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "carexsbiv"
end

if
8AF0: not 19@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "aperekat"
then
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "aperekat"
end

if
8AF0: not 27@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key3"
then
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key3"
end

if
8AF4: not 28@ = read_string_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "btext"
then
0AD3: 28@ "Hello, players"
0AF5: write_string 28@ to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "btext"   
end

if
8AF0: not 29@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "bkey"
then
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "bkey"
end

0AF0: 5@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key1"
0AF0: 6@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key2"
0AF0: 7@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "wait"
0AF0: 8@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "hp"
0AF0: 9@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "await"
0AF4: 11@ = read_string_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "text"
0AF0: 12@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "atext"
0AF0: 13@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "autohealme"
0AF0: 14@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "alanims"
0AF0: 15@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "amreset"
0AF0: 16@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "ahreset"
0AF0: 17@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "airsbiv"
0AF0: 18@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "carexsbiv"
0AF0: 19@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "aperekat"
0AF0: 27@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "key3"
0AF4: 28@ = read_string_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "btext"
0AF0: 29@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "bkey"
0051: return

:sbiv
if
80DF: not  actor $PLAYER_ACTOR driving
then
if
0039:   25@ == 1
then
0AF9: samp say_msg "/oldanim 1"
else
0AF9: samp say_msg "/anim 1"
end
0001: wait 7@ ms
////////////////////////////////////////TIPO QUICKBINDER////////////////////////////////////////
0B79: samp set_chat_input_enabled 1
0B79: samp set_chat_input_enabled 0
////////////////////////////////////////TIPO QUICKBINDER////////////////////////////////////////
end

0AF9: samp say_msg "/healme"

if and
0039:   16@ == 1
8039: not  25@ == 1
then
0AF9: samp say_msg "/reset"
end

if
0039:   12@ == 1
then
0AF9: samp say_msg "%s" 11@
end

if
80DF: not  actor $PLAYER_ACTOR driving
then
0001: wait 200 ms
0C72: set_virtual_key 13 down 1
0001: wait 50 ms
0C72: set_virtual_key 13 down 0
END
0051: return

:PosDialog
0B5E: get_cursor_pos 3@ 4@
0B85: samp dialog 0@ get_position_to 1@ 2@ size_to 5@ 6@
if and
001D:  3@ > 1@
001D:  4@ > 2@
then
005A: 1@ += 5@
005A: 2@ += 6@
if and
001D:  1@ > 3@
001D:  2@ > 4@
then
0062: 1@ -= 5@
0062: 2@ -= 6@ 
0062: 3@ -= 1@
0062: 4@ -= 2@
while 0AB0: key_pressed 1
wait 0
0B5E: get_cursor_pos 1@ 2@
0062: 1@ -= 3@
0062: 2@ -= 4@
0B84: samp dialog 0@ set_pos_XY 1@ 2@ size 5@ 6@
end
end
end
0AB2: ret 0

:carpos
0407: store_coords_to 1@ 2@ 3@ from_car 0@ with_offset -3.0 0.0 0.5
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 1@ 2@ 3@
0AB2: ret 0

:unlock
Player.CanMove($PLAYER_CHAR) = True
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
SAMP.ApplySpecialAction(NONE)
0812: AS_actor $PLAYER_ACTOR perform_animation "HIT_WALK" IFP "PED" framedelta 6.0 loopA 0 lockX 1 lockY 1 lockF 0 time 1 // versionB
0393: actor $PLAYER_ACTOR perform_animation "HIT_WALK" at 18.0 times_normal_rate
0051: return

:servername
0AC8: 26@ = allocate_memory_size 256
0B3A: samp 26@ = get_current_server_name
if
0C29: 25@ = stristr string1 26@ string2 "Diamond"
then
0006: 25@ = 1 //DIAMOND
end
0AC9: free_allocated_memory 26@
0051: return
////////////////////////////////////////CALL////////////////////////////////////////


////////////////////////////////////////HOOK////////////////////////////////////////
:in_rpc
0BE5: raknet 21@ = get_hook_param PARAM_PACKETID

IF
0039:   21@ == 73
THEN
0BE5: raknet 21@ = get_hook_param PARAM_BITSTREAM
0BED: raknet bit_stream 21@ set_read_offset 64
0BE7: raknet 22@ = bit_stream_read 21@ type BS_TYPE_INT
0AC8: 23@ = allocate_memory_size 256
0BE8: raknet bit_stream 21@ read_array 23@ size 22@
0C1E: array 23@ element 22@ el_size 1 = 0
if and
0039:   14@ == 1
0C29: 24@ = stristr string1 23@ string2 "welcome"
then
0A92: create_custom_thread "ComboSbiv.cs" 1     
end
0AC9: free_allocated_memory 23@
END

IF
0039:   21@ == 93
THEN
0BE5: raknet 21@ = get_hook_param PARAM_BITSTREAM
0BE7: raknet 22@ = bit_stream_read 21@ type BS_TYPE_INT
0BE7: raknet 22@ = bit_stream_read 21@ type BS_TYPE_INT   
0AC8: 23@ = allocate_memory_size 256
0BE8: raknet bit_stream 21@ read_array 23@ size 22@
0C0D: struct 23@ offset 22@ size 1 = 0
if
0039:   13@ == 1
then
if or
0C29: 24@ = stristr string1 23@ string2 "У Вас нет с собой аптечек"
0C29: 24@ = stristr string1 23@ string2 "Вам необходимо"
0C29: 24@ = stristr string1 23@ string2 "Не флудите"
0C29: 24@ = stristr string1 23@ string2 "так часто использовать аптечки"
then
0AF1: write_int 0 to_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "autohealme"
0AF0: 13@ = get_int_from_ini_file "CLEO\ComboSbiv.ini" section "ComboSbiv" key "autohealme"
end
end
0AC9: free_allocated_memory 23@
END

0BE0: raknet hook_ret TRUE 
////////////////////////////////////////HOOK////////////////////////////////////////


////////////////////////////////////////UPDATE////////////////////////////////////////
:URLDownloadToFile
0AA2: 10@ = load_library "Urlmon.dll" // IF and SET
0AA4: 11@ = get_proc_address "URLDownloadToFileA" 10@
0AA7: address 11@ params 5 pop 0 /*params*/ 0 0 0@ 1@ 0 /*ret*/ 12@   
ret 0
////////////////////////////////////////UPDATE////////////////////////////////////////
 

Вложения

  • ComboSbiv.cs
    10.8 KB · Просмотры: 6
xusum

xusum

Участник
48
10
CumMonster написал(а):
Привет,помогите пожалуйста,нашел вот такую подставу и нужно сделать так,что-бы оно только 1 раз писало в репорт а не флуддило,потому что это палится ,и если возможно зашифровать блокнот
Нажмите для раскрытия...
 

Вложения

  • prank.luac
    30.7 KB · Просмотры: 6
  • Нравится
Реакции: CumMonster
Войдите или зарегистрируйтесь для ответа.

Похожие темы

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