Дата: Воскресенье, 06.09.2015, 04:12 | Сообщение # 2762
Новичок
Сообщений: 21
Статус: Offline
Colonhack[CM], в теле скрипта теперь только можно использовать задержки
0B34: samp register_client_command "dokl" to_label @kp5 while true wait 0 if 0@ == true then 0AF9: samp say_msg "/r [ОРБ]: Докладывает: Старшина Эрнесто Реинс. Состояние: %s" 22@ wait 3000 // так же быстро флудит какое бы я число не поставил 0AF9: samp say_msg "/c 60" 0AB1: call @keyPress 2 key 119 time 300 end 0@ = false end
Дата: Воскресенье, 06.09.2015, 04:12 | Сообщение # 2763
Бывалый
Сообщений: 343
Статус: Offline
Colonhack[CM], Вот тебе альтернатива, через диалог, активация на клавишу 4, вводишь в диалог состояние и оно выводится, тебе осталось сюда вставить код нажатия клавиши для скриншота.
Код
{$CLEO .cs} 0000:
repeat wait 300 until 0AFA: is_samp_available
while true wait 0 if 0ab0: 52 then 0AC8: 2@ = allocate_memory_size 128 SAMP.ShowDialog(21, "Доклад.", "Введите состояние:", "Ввести", "Закрыть", 1) repeat wait 0 until SAMP.DialogRespond(21, 1@, 0, 2@) if 1@ == 1 then if not 2@ == 0 then 0AF9: samp say_msg "/r [ОРБ]: Докладывает: Старшина Эрнесто Реинс. Состояние: %s" 2@ wait 3000 0AF9: samp say_msg "/c 60" wait 1000 { Сюда вставляй свою отправку функции на нажатие клавиши } end else 0AF8: samp add_message_to_chat "Диалог был закрыт." color -1 end end 0AC9: free_allocated_memory 2@ end
while true wait 0 if 1@ = 1 then Car.StorePos(2@, 3@ 4@ 5@) wait 100 Actor.PutAt($player_actor, 3@ 4@ 5@) // телепорт игрока к машине wait 100 0af8: "{1EFF00}[CarSearch]: {FFFFFF}Вы были телепортированны к машине!" 1@ = 0 end end
:CarSearch wait 0 0B35: samp 2@ = get_last_command_params if 056E: car 2@ defined jf @NoCar 1@ = 1 Samp.CmdRet()
:NoCar 0af8: "{1EFF00}[CarSearch]: {FFFFFF}Такой машины не найденно!" Samp.CmdRet()
Дата: Воскресенье, 06.09.2015, 04:13 | Сообщение # 2765
Боец
Сообщений: 94
Статус: Offline
JustNiko, не сканировал последние команды на наличие в стриме машины. Т.е:
Код
{$CLEO} 0000: if 8AF7: get_samp_base_to 0@ then 0A93: end_custom_thread end repeat wait 400 until 0AFA: is_samp_structures_available wait 1000 0af8: "{1EFF00}[CarSearch]: {FFFFFF}Успешно загружен. Автор: {1EFF00}JustNiko" 0af8: "{1EFF00}[CarSearch]: {FFFFFF}Помощь: {1EFF00}[Rorke]" 0B34: samp register_client_command "csearch" to_label @CarSearch
while true wait 0 if 1@ = 1 then Car.StorePos(7@, 3@ 4@ 5@) wait 100 Actor.PutAt($player_actor, 3@ 4@ 5@) wait 100 0af8: "{1EFF00}[CarSearch]: {FFFFFF}Вы были телепортированны к машине!" 1@ = 0 end end
:CarSearch wait 0 0B35: samp 2@ = get_last_command_params 0AD4: 6@ = scan_string 2@ format "%d" 7@ if 056E: car 7@ defined jf @NoCar 1@ = 1 Samp.CmdRet()
:NoCar 0af8: "{1EFF00}[CarSearch]: {FFFFFF}Такой машины не найденно!" Samp.CmdRet()
Дата: Воскресенье, 06.09.2015, 04:14 | Сообщение # 2771
Боец
Сообщений: 222
Статус: Offline
Решил попробовать езду без топлива, нашёл скрипт, работает (на arp - кикает через пару минут, если ездить). Хочу сделать кнопку активации\деактивации к этому скрипту (тык). Чтобы по надобности только включать.
Код
wait 0 :NONAME_4 wait 0 if and Player.Defined($PLAYER_CHAR) Actor.Driving($PLAYER_ACTOR) else_jump @NONAME_4 jump @NONAME_36
:START wait 0 if 0ADC: test_cheat "on" jf @MAIN if 31@ == 0 // ITS OFF then 31@ = 1 // ENABLE IT 018C: play_sound 1083 at 0.0 0.0 0.0 0ACD: show_text_highpriority "TRIGGERBOT ON" time 1337 else 31@ = 0 // TURN IT OFF 018C: play_sound 1084 at 0.0 0.0 0.0 0ACD: show_text_highpriority "TRIGGERBOT OFF" time 1337 end
:MAIN if 31@ == 1 // on jf @START if and 0AD2: 1@ = player $PLAYER_CHAR targeted_actor //IF and SET 0457: player $PLAYER_CHAR aiming_at_actor 1@ else_jump @START 0B56: set_game_key 17 state 255 wait 2 0B56: set_game_key 17 state 0 jump @START
Редактирован.
// This file was decompiled using SASCM.INI published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013 {$CLEO .cs}
:START wait 0 if 0ADC: test_cheat "on" jf @MAIN if 31@ == 0 // ITS OFF then 31@ = 1 // ENABLE IT 018C: play_sound 9 at 0.0 0.0 0.0 0ACD: show_text_highpriority "" time 1337 else 31@ = 0 // TURN IT OFF 018C: play_sound 0 at 0.0 0.0 0.0 0ACD: show_text_highpriority "" time 1337 end
:MAIN if 31@ == 1 // on jf @START if and 0AD2: 1@ = player $PLAYER_CHAR targeted_actor //IF and SET 0457: player $PLAYER_CHAR aiming_at_actor 1@ else_jump @START 0B56: set_game_key 17 state 255 wait 2 0B56: set_game_key 17 state 0 jump @START
При комплиривоние выдает ошибку : Неизвестная команда THREAD MONSTERCAT
Хотел изменить скрипт что-бы при вкл и выкл непроигрывался звук и текст невылезал)
Дата: Воскресенье, 06.09.2015, 04:14 | Сообщение # 2773
{ }
Сообщений: 1406
Статус: Offline
Вместо thread... напиши 0000:
Добавлено (02.01.2015, 14:22) --------------------------------------------- Кстати, ты не удалил звуки и тексты. Перед опокдами 018c: и 0acd: напиши //
Дата: Воскресенье, 06.09.2015, 04:14 | Сообщение # 2774
Новичок
Сообщений: 7
Статус: Offline
Вот что-сделал при комлировании выдает ошибку неизвестная команда 0000;
Кстате мог ты дать свой скайп?
// This file was decompiled using SASCM.INI published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013 {$CLEO .cs}
//-------------MAIN--------------- 0000;
:LOAD wait 0 if Player.Defined(0) jf @LOAD
:START wait 0 if 0ADC: test_cheat "on" jf @MAIN if 31@ == 0 // ITS OFF then 31@ = 1 // ENABLE IT //018C: play_sound 1083 at 0.0 0.0 0.0 //0ACD: show_text_highpriority "TRIGGERBOT ON" time 1337 else 31@ = 0 // TURN IT OFF //018C: play_sound 1084 at 0.0 0.0 0.0 //0ACD: show_text_highpriority "TRIGGERBOT OFF" time 1337 end
:MAIN if 31@ == 1 // on jf @START if and 0AD2: 1@ = player $PLAYER_CHAR targeted_actor //IF and SET 0457: player $PLAYER_CHAR aiming_at_actor 1@ else_jump @START 0B56: set_game_key 17 state 255 wait 2 0B56: set_game_key 17 state 0 jump @START Хуя*е !
