ABSOLUTE 44 Жалоба Опубликовано 20 ноября, 2014 (изменено) 1) Название:2) Краткое описание:3) Язык программирования:4) * Используемые модули (Includes): 5) Исходный код: Правила:Отключить подпись ! Публиковать строго по форме выше ! Исходный код прятать под ! ** За публикацию с ссылкой на скачивание и/или в формате .exe - удаление поста, при повторе - мут ! * - Если таковые имеются. Если нет: пропускайте пункт. ** - Если есть необходимость опубликовать скрипт/программу в формате .exe: обращаться строго ко мне в ЛС. Изменено 30 ноября, 2014 пользователем Dark_Knight Поделиться сообщением Ссылка на сообщение
KiRiLL29 21 Жалоба Опубликовано 21 ноября, 2014 (изменено) 1) Название: automeds 2) Краткое описание: выдает таблетки тем, кто напишет в пм/s/b/c чаты опр. слова (+, медс, табл, meds и т.д.) 3) Язык программирования: ahk 4) Исходный код: menu, tray, NoStandard menu, tray, add , Справка menu, tray, add , Выйти Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt block=0 NumpadDiv:: on=1 SendInput {f6}/c автоматическая раздача таблеток включена.{enter} Loop, read, %Filename% nstroki=%A_Index% start: if on=2 return if block=1 goto start FileReadLine, stroka, %Filename%, %nstroki% if ErrorLevel { nstroki-=1 goto start } if stroka= { nstroki+=1 goto start } IfInString, stroka, >> ПМ от { if (InStr(stroka, "+")) or (InStr(stroka, "meds")) or (InStr(stroka, "tabl")) or (InStr(stroka, "табл")) or (InStr(stroka, "ьудс")) or (InStr(stroka, "vtlc")) or (InStr(stroka, "таблетки")) { RegExMatch(stroka, ".*\((.*)\):", idigroka) Sendinput {F6}/sellmeds %idigroka1% 2000{ENTER} Sleep 300 nstroki+=1 goto start } } IfInString, stroka, говорит: { if (InStr(stroka, "+")) or (InStr(stroka, "meds")) or (InStr(stroka, "tabl")) or (InStr(stroka, "табл")) or (InStr(stroka, "ьудс")) or (InStr(stroka, "vtlc")) or (InStr(stroka, "таблетки")) { RegExMatch(stroka, ".*\[(.*)\].", idigroka) Sendinput {F6}/sellmeds %idigroka1% 2000{ENTER} Sleep 300 nstroki+=1 goto start } } nstroki+=1 goto start return F4:: if on=1 { on=2 Sendinput {f6}/c автоматическая раздача таблеток выключена.{enter} } return ~$F6 UP:: if block=0 { block=1 return } if block=1 { sleep 600 block=0 } return ~$enter UP:: if block=1 { sleep 600 block=0 } return Справка: msgbox 32,, ( • Активация - Numpad /. Деактивация - F4 • Cкрипт для автоматической продажи таблеток за 2.000$. Если кто-то рядом напишет: "meds, медс, табл, +, таблетки, ьедс, vtlc", то скрипт автоматически продаст тому игроку таблетки. • Работает на ближние чаты(/c, /b, обычный) и на пм. • Автор - KIRILL29 (Ghost29). GY1. • За основу был взят AutoLawyer от DuMoH. ) return Выйти: ExitApp return 1) Название: AutoScreen 2) Краткое описание: Автоматически скринит обыски, su, cuff, tazer и т.д. 3) Язык программирования: ahk 4)[spoiler=Исходный код] Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt block=0 ^x:: on=1 SendInput {f6}vkl{enter} Loop, read, %Filename% nstroki=%A_Index% start: if on=2 return if block=1 goto start FileReadLine, stroka, %Filename%, %nstroki% if ErrorLevel { nstroki-=1 goto start } if stroka= { nstroki+=1 goto start } IfInString, stroka, KIRILL29 { if (InStr(stroka, "KIRILL29 обыскал игрока"))or (InStr(stroka, "KIRILL29 посадил")) or (InStr(stroka, "бахнул тазером")) or (InStr(stroka, "закован в наручники")) { RegExMatch(stroka, ".*\((.*)\):", idigroka) Sleep 100 Sendinput {F2} Sleep 300 nstroki+=1 goto start } } IfInString, stroka, Ты увеличил { if (InStr(stroka, "розыск"))or (InStr(stroka, "Ты увеличил")) { RegExMatch(stroka, ".*\((.*)\):", idigroka) Sleep 100 Sendinput {F2} Sleep 300 nstroki+=1 goto start } } IfInString, stroka, Ты дал { if (InStr(stroka, "звезды"))or (InStr(stroka, "звезд"))or (InStr(stroka, "Причина")) { RegExMatch(stroka, ".*\((.*)\):", idigroka) Sleep 100 Sendinput {F2} Sleep 300 nstroki+=1 goto start } } nstroki+=1 goto start return ^z:: if on=1 { on=2 Sendinput {f6}vikl{enter} } return ~$F6 UP:: if block=0 { block=1 return } if block=1 { sleep 600 block=0 } return ~$enter UP:: if block=1 { sleep 600 block=0 } return Изменено 21 ноября, 2014 пользователем KIRILL29 4 1 Поделиться сообщением Ссылка на сообщение
ABSOLUTE 44 Жалоба Опубликовано 21 ноября, 2014 (изменено) Автор: Alexander. 1) AutoGuns 2) Возможность быстро собирать игроку оружие и давать наркотики. Очень удобный script для захватов/отхватов. 3) AutoHotKey 4) Исходный код: [spoiler=Исходный код] F11:: Send, ^{vk41} Send, ^{vk43}{backspace} var100=%clipboard% sendinput {f6}/sellgun %var100% "Название оружия" {enter} Sleep 300 sendinput {f6}/sellgun %var100% "Название оружия" {enter} Sleep 300 sendinput {f6}/give drugs %var100% "Количество наркотиков" {enter} return Автор: SaMoGoN 1) Биндер для законников 2) Биндер для законников 3) AutoHotKey 4) Исходный код: [spoiler=Исходный код] #IfWinActive GTA:SA:MP numpad0::SendInput {F6}/tazer{ENTER} numpad1::SendInput {F6}/frisk{Space} numpad3::SendInput {F6}/clear{Space} numpad5::SendInput {F6}/cvet 22{ENTER} Home::SendInput {F6}/lawyer{Space} End::SendInput {F6}/block{Space} +1::SendInput {F6}/givelicense Sailing{Space} +2::SendInput {F6}/givelicense Fishing{Space} +3::SendInput {F6}/givelicense weapon{Space} !1::SendInput {F6}/take drugs{Space} !2::SendInput {F6}/take materials{Space} !3::SendInput {F6}/take weapons{Space} !4::SendInput {F6}/take gunlicense 24{left 3} !5::SendInput {F6}/take driverslicense 40 АФК на дороге{left 17} ~RButton & 1::SendInput {F6}/su 3 Нападение на Законника{left 25} ~RButton & 2::SendInput {F6}/su 6 Убийство Законника{left 21} ~RButton & 3::SendInput {F6}/su 1 Наркотики{left 12} ~RButton & 4::SendInput {F6}/su 1 Материалы{left 12} ~RButton & 5::SendInput {F6}/su 2 Наркотики + Материалы{left 23} ~RButton & 6::SendInput {F6}/su 3 Уход от проверки{left 19} ~RButton & 7::SendInput {F6}/su 6 Оскорбление Законника{left 24} Автор: Froom 1) АвтоСообщения 2) Данный скрипт посылает сообщение в /d, /r и /f чат каждые 2 минуты 3) AutoHotKey 4) Исходный код: [spoiler=Исходный код] loop{ IfWinActive, GTA:SA:MP SendInput {F6}/f [Сообщение]{Enter} Sleep 50 Sendinput {f6}/f [Сообщение]{Enter} Sleep, 60000 } return Изменено 21 ноября, 2014 пользователем ABSOLUTE Поделиться сообщением Ссылка на сообщение
RuslaN123 7 Жалоба Опубликовано 22 ноября, 2014 (изменено) Autotogooc Данный скрипт включает /togooc при входе в игру. (И /cds, но это уже лидерам, кому не нужно можете удалить строку) Cleo SF {$CLEO} 0000: while not SAMP.Available() wait 400 end while true wait 0 repeat wait 0 until 0B61: samp is_local_player_spawned 0af9: "/togooc" 0af9: "/cds" while true if 0B61: samp is_local_player_spawned then wait 0 end end Изменено 22 ноября, 2014 пользователем RuslaN123 1 Поделиться сообщением Ссылка на сообщение
.nexus 150 Жалоба Опубликовано 24 ноября, 2014 Авто-показ статистики Показывает статистику при наведении прицела и нажатии клавиши "Z". cleo sf [spoiler=Исходник] {$CLEO} thread "galaxy-rpg.ru by [nexus]" if not 0@ = SAMP.Base() then 0A93: end_custom_thread end while not SAMP.Available() wait 100 end while true wait 0 if and 0ab0: key_pressed 90 // Z Клавиша назначения 0AD2: 1@ = player $PLAYER_CHAR targeted_actor then 2@ = SAMP.GetSAMPPlayerIDByActorHandle(1@) 0af9: samp say_msg "/showstats %d" 2@ //Команда wait 1000 end end [spoiler=видос] Поделиться сообщением Ссылка на сообщение
RuslaN123 7 Жалоба Опубликовано 24 ноября, 2014 (изменено) Autocvet Включение цвета при респавне, как после подключения, так и после смерти(Вместо 3 можно поставить любое другое значение) Cleo SF {$CLEO} 0000: while not SAMP.Available() wait 400 end while true wait 0 repeat wait 0 until 0B61: samp is_local_player_spawned wait 4000 0af9: "/cvet 3" while true wait 0 if Actor.Dead($PLAYER_ACTOR) then wait 7000 0af9: "/cvet 3" end wait 0 repeat wait 0 until Actor.Dead($PLAYER_ACTOR) end end Убрал подпись. Изменено 24 ноября, 2014 пользователем RuslaN123 Поделиться сообщением Ссылка на сообщение
ABSOLUTE 44 Жалоба Опубликовано 28 ноября, 2014 (изменено) by ABSOLUTE for GalaxY-RPG Программа написана для упрощенного использования команды /blacklist. Во время работы она запоминает игроков, которых вы добавили в личный Чёрный Список или удалили из него. После перезапуска игры программа сама восстанавливает Чёрный Список из сохраненных ранее данных. Инструкция: 1. Запустить программу ДО запуска игры. 2. Использовать команду /blacklist, добавляя или удаляя игроков из списка игнорируемых. 3. После выхода из игры программа будет отключена автоматически. 4. Перед следующим входом в игру вновь запустите данную программу. 5. После входа в игру Чёрный Список будет восстановлен (через 1.5 секунды после авторизации) Изменено 14 августа, 2016 пользователем ABSOLUTE 1 Поделиться сообщением Ссылка на сообщение
Dark_Knight 672 Жалоба Опубликовано 30 ноября, 2014 (изменено) 1. Таймер2. При активации выводит таймер на мониторе и после его окончания выводит текст определенное время на экране. Настройки создаются автоматически3. Cleo4. Инклуд SAMPFUNCSСурс {$CLEO} {$NOSOURCE} {$INCLUDE SF} if not 31@ = samp.Base() then end_thread else while not samp.Available() wait 100 end end const PosX = 0@ PosY = 1@ Second = 2@ Red = 3@ Green = 4@ Blue = 5@ Shadow = 6@ Alpha = 7@ ARGB = 8@ FontName = 9@ FontHeight = 10@ FontCreate = 11@ FontOffset = 12@ File = 13@ Key_Activation = 14@ Command = 16@ Message = 17@ Message_delay = 18@ end var PosY : int PosY_offset : int FontHeight : int FontOffset : int 19@ : int 28@ : int 29@ : int 30@ : int 32@ : int Message_delay : int Second : int end 0000: if 0AAB: file_exists "CLEO\timer.ini" then gosub @load_setting else gosub @write_setting gosub @load_setting end 0B67: render a Alpha r Red g Green b Blue to_argb ARGB 0B6D: render FontCreate = create_font FontName height FontHeight flags 0x5 while true wait 0 32@ = 0 if and 0ab0: Key_Activation 8B21: samp is_chat_opened then while 0ab0: Key_Activation wait 0 end 30@ = Second Second *= 1000 29@ = Second 32@ = 0 0ac8: 27@ = 32 while 32@ <= Second wait 0 28@ = 32@ 28@ -= 29@ 28@ /= 1000 28@ *= -1 0ad3: 27@ = "%d" 28@ 0B6F: render font FontCreate draw_text 27@ pos PosX PosY color ARGB end 32@ = 0 19@ = Message_delay Message_delay *= 1000 while 32@ <= Message_delay wait 0 0B6F: render font FontCreate draw_text Message pos PosX PosY color ARGB end Message_delay = 19@ 0ac9: 27@ 32@ = 0 Second = 30@ end end :reload_setting 0B6E: render release_font FontCreate 0B63: samp unregister_client_command Command gosub @load_setting 0B67: render a Alpha r Red g Green b Blue to_argb ARGB 0B6D: render FontCreate = create_font FontName height FontHeight flags 0x0C samp.CmdRet() :RenderText return :load_setting 0ac8: FontName = 128 0ac8: Command = 128 0ac8: Message = 128 0AF0: PosX = get_int_from_ini_file "CLEO\timer.ini" section "Timer" key "PositionX" 0AF0: PosY = get_int_from_ini_file "CLEO\timer.ini" section "Timer" key "PositionY" 0AF4: FontName = read_string_from_ini_file "CLEO\timer.ini" section "Timer" key "FontName" 0AF4: Command = read_string_from_ini_file "CLEO\timer.ini" section "Timer" key "Command" 0AF4: Message = read_string_from_ini_file "CLEO\timer.ini" section "Timer" key "Message" 0AF0: FontHeight = read_string_from_ini_file "CLEO\timer.ini" section "Timer" key "FontHeight" 0AF0: Second = read_string_from_ini_file "CLEO\timer.ini" section "Timer" key "Second" 0AF0: Message_delay = read_string_from_ini_file "CLEO\timer.ini" section "Timer" key "Message_delay" 0AF0: Key_Activation = get_int_from_ini_file "CLEO\timer.ini" section "Timer" key "Key_Activation" 0AF0: Red = get_int_from_ini_file "CLEO\timer.ini" section "Color" key "R" 0AF0: Green = get_int_from_ini_file "CLEO\timer.ini" section "Color" key "G" 0AF0: Blue = get_int_from_ini_file "CLEO\timer.ini" section "Color" key "B" 0AF0: Alpha = get_int_from_ini_file "CLEO\timer.ini" section "Color" key "A" 0b34: Command @reload_setting return :write_setting File = file.Open("Cleo\timer.ini", "wt") 0AF1: 240 = get_int_from_ini_file "CLEO\timer.ini" section "Timer" key "PositionX" //Позиция таймера по иксу 0AF1: 29 = get_int_from_ini_file "CLEO\timer.ini" section "Timer" key "PositionY" //Позиция таймера по игрику 0AF1: 10 = get_int_from_ini_file "CLEO\timer.ini" section "Timer" key "FontHeight" //Высота шрифта 0AF1: 5 = get_int_from_ini_file "CLEO\timer.ini" section "Timer" key "Second" //Время таймера 0AF1: 2 = get_int_from_ini_file "CLEO\timer.ini" section "Timer" key "Message_delay" //Время задержки сообщения 0AF5: write_string "Tahoma" to_ini_file "CLEO\timer.ini" section "Timer" key "FontName" //Название шрифта, который будет выводит 0AF5: write_string "timer" to_ini_file "CLEO\timer.ini" section "Timer" key "Command" //Команда перезагрузки настроек 0AF5: write_string "Текст сообщения" to_ini_file "CLEO\timer.ini" section "Timer" key "Message" //Текст сообщения 0AF1: 89 = get_int_from_ini_file "CLEO\timer.ini" section "Timer" key "Key_Activation" //Клавиша активации 0AF1: 16 = get_int_from_ini_file "CLEO\timer.ini" section "Color" key "R" 0AF1: 255 = get_int_from_ini_file "CLEO\timer.ini" section "Color" key "G" 0AF1: 16 = get_int_from_ini_file "CLEO\timer.ini" section "Color" key "B" 0AF1: 255 = get_int_from_ini_file "CLEO\timer.ini" section "Color" key "A" file.Close(File) return Изменено 30 ноября, 2014 пользователем Dark_Knight Поделиться сообщением Ссылка на сообщение
KiRiLL29 21 Жалоба Опубликовано 7 декабря, 2014 (изменено) 1) Название: Будильник 2) Краткое описание: Будильник 3) Язык программирования: ahk 4) Исходный код: Menu,Tray,NoStandard Menu, tray, Add, Выйти., Exit Gui, Add, Text, x6 y11 w130 h90 vMyTime, Пододжите Gui, Font, S8 CRed, Verdana Gui, Add, GroupBox, x146 y1 w250 h100 , Будильник Gui, Font, S8 CBlack, Verdana Gui, Add, Edit, x156 y21 w40 h20 vPCh, ч. Gui, Add, Edit, x206 y21 w70 h20 vPMin, мин. Gui, Add, Edit, x286 y21 w60 h20 vPSek, сек. Gui, Add, Button, x166 y61 w100 h30 gPostt, Поставить ; Generated using SmartGUI Creator 4.0 Gui, Show, x131 y91 h116 w409, Будильник 0.1 SetTimer, c, 10 rabota = 0 Return GuiClose: ExitApp Exit: ExitApp return Postt: If (rabota = 0) { rabota = 1 } else rabota = 0 return c: Gui, Submit, NoHide If (rabota = 1) { vremia = ( Ваше время: %A_Hour%:%A_Min%:%A_Sec% Время звонка: %PCH%:%PMin%:%PSek% ) GuiControl,,MyTime,%vremia%`n`n`n If (PCH=A_Hour) and (PMin=A_Min) and (PSek<=A_Sec) { MsgBox,БЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗ rabota = 0 GuiControl,,ln,Поставить } } else vremia = ( Ваше время: %A_Hour%:%A_Min%:%A_Sec% ) GuiControl,,MyTime,%vremia%`n`n`n return Изменено 16 января, 2015 пользователем KIRILL29 Поделиться сообщением Ссылка на сообщение
KiRiLL29 21 Жалоба Опубликовано 12 января, 2015 (изменено) 1) Название: Пароль 2) Краткое описание: Позволяет повесить "пароль" на ваш скрипт 3) Язык программирования: ахк 4) Исходный код: pass = ТУТ ПАРОЛЬ InputBox,pass1,PassWord,Введите пароль: if (pass != pass1) { MsgBox,Пароль введён не верно ExitApp } else { goto, label1 } return label1: ТУТ ВАШ СКРИПТ Изменено 26 августа, 2015 пользователем KIRILL29 1 Поделиться сообщением Ссылка на сообщение
KiRiLL29 21 Жалоба Опубликовано 21 января, 2015 1) Название: --- 2) Краткое описание: Заменяет определенный слова на те, который нужны вам. 3) Язык программирования: Ahk 4) Исходный код: Gui, Add, Button, x0 y0 w100 h30 gFile, Файл Gui, Add, Text, x101 y7 w50 h16 , Сменить: Gui, Add, Edit, x154 y6 w64 h18 Center vEdit gEdit, Gui, Add, Text, x221 y7 w13 h13 , на Gui, Add, Edit, x238 y6 w64 h18 Center vEdit1 gEdit1, Gui, Add, Button, x302 y0 w80 h30 gSmena, Сменить Gui, Show, Center h30 w382 , Смена разделителя Return Edit: Gui, Submit, NoHide return Edit1: Gui, Submit, NoHide Return File: FileSelectFile, File, 3, %A_Desktop%, Выберите текстовый файл, (*.txt) if file = { MsgBox, 0x10, Error!, Файл не выбран! } Return Smena: if file = { MsgBox, 0x10, Error!, Файл не выбран! } else { FileRead, File1, %File% StringReplace, replace, File1, %Edit%, %Edit1%, All FileDelete, %File% FileAppend, %replace%, %A_ScriptDir%\File.txt MsgBox, 64, Готово!, Выполнено успешно!, 3 } Return GuiClose: ExitApp p.s. После проведения операции исходный файл удалится, новый появится в папке со скриптом Поделиться сообщением Ссылка на сообщение
ABSOLUTE 44 Жалоба Опубликовано 27 января, 2015 (изменено) Видео by @FenX(ADEPT) Программа позволяет проверить нахождение игрока в Чёрном Списке + Чёрный Список игроков настраивается в файле+ Программа НЕ трeбует перезапуска игры+ Программа НЕ трeбует установленного CLEO или SampFuncs+ Программа НЕ трeбует ввода каких-либо команд в чат Необходимо нацелиться на игрока и нажать Клавишу Активации Обновление от 19.03.2015: + Не реагирует на регистр букв (ABSOLUTE = AbsOluTe)+ Не реагирует на точки в конце (ABSOLUTE = ABSOLUTE.)+ Сохраняет гор.клавишу после перезапуска программы + Минимум ошибок за счет удаления ненужного кода и оптимизации основного (теперь скрипт работает гораздо быстрее). Прирост производительности ~56% Обновление от 23.03.2015: + MАКСИМАЛЬНАЯ совместимость с другими скриптами на базе AutoHotKey+ Добавлен пункт меню: "Настройки": теперь сообщения в чате можно редактировать + Переписан код, исправлены мелкие недочеты Обновление от 24.03.2015: + Проверка на открытый чат (скрипт не работает при написании в чат) Видео работы Программы: ЗДЕСЬ Скачать программу: ЗДЕСЬV I R U S T O T A L При первом запуске программа запросит "Ключ Активации", который Вы можете приобрести по этой ссылке: Для оплаты Qiwi или Yandex.Деньги обращаться в ЛС на форуме или скайп Изменено 23 марта, 2015 пользователем ABSOLUTE Обновление программы Поделиться сообщением Ссылка на сообщение
ABSOLUTE 44 Жалоба Опубликовано 11 марта, 2015 (изменено) Один из моих первых скриптов. Может пригодится кому-то: 1) - Менеджер для Наёмных Агентов2) - Работает через /f чат Агентства. Выдает заказы и показывает следующий заказ по запросу в чат.3) - AutoHotKey4) - Изображение в папку со скриптом [spoiler=Исходный код] ; Просьба уважать авторские права и не удалять строки с информацией об авторе! ; SA:MP Hitman Portable ; Язык: Русский/English ; Платформа: XP/Vista/Windows7 ; Автор: ABSOLUTE <Skype: i-ashbringer> #NoEnv #SingleInstance ignore version = v2.00_B Gui, Margin , 0, 0 Gui, Add, Picture, x0 y0 w400 h300 , ИЗОБРАЖЕНИЕ.PNG Gui, Add, Button, x42 y230 w150 h40 gStart, ACTIVATION Gui, Add, Button, x202 y230 w160 h40 gStop, DEACTIVATION Gui, -Border -Caption Gui, Show, NoActivate Return Start: IfWinExist, GTA:SA:MP { FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt Pattern1 := "S) \*\*.*(\[\d+]): givehit.*(\R|$)" , sPos1 := 1 Pattern2 := "S) \*\*.*(\[\d+]): contracts.*(\R|$)" , sPos2 := 1 Pattern3 := "S) Игрок:.*(\[\d+]), Стоимость заказа:.*(\R|$)" , sPos3 := -250 MsgBox, 64, ACTIVATION, Program ACTIVATED `nTo stop press "DEACTIVATION", 3 WinActivate GTA:SA:MP Sleep, 2000 Goto, Started } else { MsgBox, 16, WARNING, GTA:SA:MP NOT FOUND!, 3 return } Started: LogFile = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt FileRead, Log1, *t %LogFile% IfWinActive, GTA:SA:MP { Sleep, 100 If RegExMatch(Log1, Pattern1, Match1, sPos1) { SendInput {F6}contracts{Enter} Sleep, 500 If RegExMatch(Match1, "\[\d+]", line1) If RegExMatch(line1, "\d+", line2) SendInput {F6}givehit %line2%{Enter} } sPos1 := StrLen(Log1), (sPos1 = 0) ? sPos1 := 1 Sleep 100 Goto, StartedNext } else { Goto, StartedNext } StartedNext: LogFile = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt FileRead, Log2, *t %LogFile% IfWinActive, GTA:SA:MP { Sleep, 100 If RegExMatch(Log2, Pattern2, Match2, sPos2) { SendInput {F6}contracts{Enter} Sleep, 500 LogFile = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt FileRead, Log3, *t %LogFile% If RegExMatch(Log3, Pattern3, Match3, sPos3) { If RegExMatch(Match3, "\w+\[\d+]", line3) If RegExMatch(Match3, "\$\d+", line4) SendInput {F6}/f Next target: %line3%. Cost: %line4%{Enter} } else { SendInput {F6}/f No more contracts.{Enter} } } sPos2 := StrLen(Log2), (sPos2 = 0) ? sPos2 := 1 Sleep 100 Goto, Started } else { Goto, Started } F3:: Pause return Stop: Reload Return GuiClose: ExitApp Изменено 11 марта, 2015 пользователем ABSOLUTE Поделиться сообщением Ссылка на сообщение
Котофей 70 Жалоба Опубликовано 23 августа, 2015 (изменено) 1) Таймер для наркотиков2) После того, как вы примете наркотики, через 2 минуты, после отката, вам напишется в чат, что использовать можно их снова! 3) Ahk 4) SelectedFile = %A_MyDocuments%\Gta San Andreas User Files\samp\chatlog.txt timer:Loop, Read, %SelectedFile%{IfInString, A_LoopReadLine, _KoToFei_ достал пакетик, насыпал белого порошка, свернул стодолларовую купюру в трубочку и начал нюхать.{Goto, start}}goto, timerstart:FileDelete, %SelectedFile%FileAppend, , %SelectedFile%Sleep, 120000SendInput, {F6}/c Наркотики можно принимать снова{!}{Enter}goto, timer P.S Вместо ника котофей, введи свой в точности! Изменено 24 августа, 2015 пользователем Котофей Поделиться сообщением Ссылка на сообщение
Котофей 70 Жалоба Опубликовано 26 августа, 2015 (изменено) 1) Авто Лицензия 2) Подходим на значок лицензии, и он автоматически пишет в пм, 5+ рангам, и просит лицу, после того, как вам дадут лицу. он напишет спасибо! Правой кнопкой открывается справка! 3) Ahk 4) menu, tray, NoStandard menu, tray, add , Справкаmenu, tray, add , ВыйтиFilename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txtblock=0^1::on=1SendInput {f6}/c Скрипт адвокатов включен{enter}Loop, read, %Filename%nstroki=%A_Index%start:if on=2returnif block=1goto startFileReadLine, stroka, %Filename%, %nstroki%if ErrorLevel{nstroki-=1goto start}if stroka={nstroki+=1goto start}IfInString, stroka, В данный момент есть законники{if (InStr(stroka, "способные выдать лицензию")){RegExMatch(stroka, "В данный момент есть законники, способные выдать лицензию. Например, (.*)\[.*\]", id)Sleep 100Sendinput {F6}/pm %id1% Дай, пожалуйста, лицу адвокату. {enter}Sleep 300nstroki+=1goto start}}IfInString, stroka, Офицер{if (InStr(stroka, "тебе лицензию на освобождение")){RegExMatch(stroka,"Офицер (.*) дала? тебе лицензию на освобождение", lawyers)SendInput {f6}/pm %lawyers1% Спасибо.{enter}Sleep 300nstroki+=1goto start}}nstroki+=1goto startreturn^2::if on=1{on=2Sendinput {f6}/c Скрипт адвокатов выключен{enter}}return~$F6 UP::if block=0{block=1return}if block=1{sleep 600block=0}return~$enter UP::if block=1{sleep 600block=0}returnСправка:msgbox 32,,(• Активация - ctrl+1. Деактивация - ctrl+2• Cкрипт для автоматического прошения лицензии, встаем на значок лицензии и он делает все за вас!• Автор - ABSOLUTE, edit KIRILL29 (Ghost29) and _KoToFei_ )returnВыйти:ExitAppreturn Изменено 26 августа, 2015 пользователем Котофей Поделиться сообщением Ссылка на сообщение
Котофей 70 Жалоба Опубликовано 29 августа, 2015 Авто-free При прицеливании на игрока и нажатие на клавишу z - 5k , x - 10k, B - 12k , сумма для Gy 3 , для остальных ставьте сами, красным обозначена сумма выпуска, а синим клавиша, настраиваем под себя, автор не я. изменил Rey619 cleo sf // This file was decompiled using SASCM.ini published by [nexus] (http://galaxy-rpg.ru/index.php?showuser=72470) on 10.10.2014{$CLEO .cs}//-------------MAIN---------------thread "Auto"0662: printstring "AHOHIM edit Rey619"if0@ = SAMP.Base()else_jump @Auto_620A93: end_custom_thread:Auto_62not SAMP.Availableelse_jump @Auto_82wait 100jump @Auto_62:Auto_82wait 0if and0AD2: 29@ = player $PLAYER_CHAR targeted_actor //IF and SETkey_down 88else_jump @Auto_14310@ = SAMP.GetSAMPPlayerIDByActorHandle(29@)say "/free %d 5000" 10@wait 500:Auto_143if and0AD2: 29@ = player $PLAYER_CHAR targeted_actor //IF and SETkey_down 90else_jump @Auto_20010@ = SAMP.GetSAMPPlayerIDByActorHandle(29@)say "/free %d 6000" 10@wait 500:Auto_200if and0AD2: 29@ = player $PLAYER_CHAR targeted_actor //IF and SETkey_down 88else_jump @Auto_25810@ = SAMP.GetSAMPPlayerIDByActorHandle(29@)say "/free %d 10000" 10@wait 500:Auto_258if and0AD2: 29@ = player $PLAYER_CHAR targeted_actor //IF and SETkey_down 66else_jump @Auto_31610@ = SAMP.GetSAMPPlayerIDByActorHandle(29@)say "/free %d 12000" 10@wait 500:Auto_316jump @Auto_82 1 Поделиться сообщением Ссылка на сообщение
¤ GENESIS ¤ 8 Жалоба Опубликовано 31 августа, 2015 1) CaptureHelp2) Выдаёт оружие (м4 и игл) тому кто напишет в пм, обычный чат, /s чат: m4, м4, мку, игл, eagle, нарко, drugs и т.д. т.п.Активация F2 / де активация F33) AutoHotKey 4) menu, tray, NoStandard menu, tray, add , Выйти Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt block=0 F2:: on=1 SendInput {f6}/me включил автоматическую раздачу оружия и наркотиков.{enter} Loop, read, %Filename% nstroki=%A_Index% start: if on=2 return if block=1 goto start FileReadLine, stroka, %Filename%, %nstroki% if ErrorLevel { nstroki-=1 goto start } if stroka= { nstroki+=1 goto start } IfInString, stroka, >> ПМ от { if (InStr(stroka, "m4")) or (InStr(stroka, "м4")) or (InStr(stroka, "мку")) { RegExMatch(stroka, ".*\((.*)\):", idigroka) Sendinput {F6}/sellgun %idigroka1% m4{ENTER} Sleep 300 nstroki+=1 goto start } } IfInString, stroka, >> ПМ от { if (InStr(stroka, "дигл")) or (InStr(stroka, "игл")) or (InStr(stroka, "deagle")) or (InStr(stroka, "eagle")) { RegExMatch(stroka, ".*\[(.*)\].", idigroka) Sendinput {F6}/sellgun %idigroka1% eagle{ENTER} Sleep 300 nstroki+=1 goto start } } IfInString, stroka, >> ПМ от { if (InStr(stroka, "нарко")) or (InStr(stroka, "narko")) or (InStr(stroka, "drugs")) or (InStr(stroka, "нарик")) or (InStr(stroka, "наркотики")) { RegExMatch(stroka, ".*\[(.*)\].", idigroka) Sendinput {F6}/give drugs %idigroka1% 20{ENTER} Sleep 300 nstroki+=1 goto start } } IfInString, stroka, говорит: { if (InStr(stroka, "m4")) or (InStr(stroka, "м4")) or (InStr(stroka, "мку")) { RegExMatch(stroka, ".*\((.*)\):", idigroka) Sendinput {F6}/sellgun %idigroka1% m4{ENTER} Sleep 300 nstroki+=1 goto start } } IfInString, stroka, говорит: { if (InStr(stroka, "дигл")) or (InStr(stroka, "игл")) or (InStr(stroka, "deagle")) or (InStr(stroka, "eagle")) { RegExMatch(stroka, ".*\[(.*)\].", idigroka) Sendinput {F6}/sellgun %idigroka1% eagle{ENTER} Sleep 300 nstroki+=1 goto start } } IfInString, stroka, говорит: { if (InStr(stroka, "нарко")) or (InStr(stroka, "narko")) or (InStr(stroka, "drugs")) or (InStr(stroka, "нарик")) or (InStr(stroka, "наркотики")) { RegExMatch(stroka, ".*\[(.*)\].", idigroka) Sendinput {F6}/give drugs %idigroka1% 20{ENTER} Sleep 300 nstroki+=1 goto start } } IfInString, stroka, кричит: { if (InStr(stroka, "m4")) or (InStr(stroka, "м4")) or (InStr(stroka, "мку")) { RegExMatch(stroka, ".*\((.*)\):", idigroka) Sendinput {F6}/sellgun %idigroka1% m4{ENTER} Sleep 300 nstroki+=1 goto start } } IfInString, stroka, кричит: { if (InStr(stroka, "дигл")) or (InStr(stroka, "игл")) or (InStr(stroka, "deagle")) or (InStr(stroka, "eagle")) { RegExMatch(stroka, ".*\[(.*)\].", idigroka) Sendinput {F6}/sellgun %idigroka1% eagle{ENTER} Sleep 300 nstroki+=1 goto start } } IfInString, stroka, кричит: { if (InStr(stroka, "нарко")) or (InStr(stroka, "narko")) or (InStr(stroka, "drugs")) or (InStr(stroka, "нарик")) or (InStr(stroka, "наркотики")) { RegExMatch(stroka, ".*\[(.*)\].", idigroka) Sendinput {F6}/give drugs %idigroka1% 20{ENTER} Sleep 300 nstroki+=1 goto start } } nstroki+=1 goto start return F3:: if on=1 { on=2 Sendinput {f6}/me выключил автоматическую раздачу оружия и наркотиков.{enter} } return ~$F6 UP:: if block=0 { block=1 return } if block=1 { sleep 600 block=0 } return ~$enter UP:: if block=1 { sleep 600 block=0 } return Выйти: ExitApp return Поделиться сообщением Ссылка на сообщение
BlackSpace 35 Жалоба Опубликовано 4 ноября, 2015 Название: Прокачивание скилла детективаКраткое описание: обычный скрипт с примитивным пользовательским интерфейсом, в котором пользователь сам указывает время отката(в секундах)Язык программирования: AutohotKey[spoiler=Исходный код]Gui, Font, S10 CDefault, ArialGui, Add, Text, x29 y2 w160 h20 , Введите откат в секундахGui, Add, Edit, x64 y32 w90 h20 vSek,Gui, Add, Button, x69 y62 w80 h20 gKey, СохранитьGui, Show, x131 y91 h95 w221, Детективmenu, tray, NoStandardmenu, tray, add , Справкаmenu, tray, add, Перезагрузитьmenu, tray, add , ВыйтиReturnGuiClose:ExitAppreturnKey:GuiControlGet, SekEnvMult, Sek, 1000MsgBox, Данные успешно сохраненыgui, minimizeF2::Loop{SendInput {f6}/find 1{enter}Sleep, 500SendInput {f6}/find 5{enter}Sleep, %sek%}F3::ReloadreturnСправка:msgbox 32,,(• Активация - F2. Деактивация - F3• Автор - Quasper. GY1.)Перезагрузить:reloadreturnВыйти:ExitApp 6 Поделиться сообщением Ссылка на сообщение
.MaHuKeH 16 Жалоба Опубликовано 14 февраля, 2016 1) Название: счетчик отката нарко2) Краткое описание: 3) Язык программирования: CLEO4) * Используемые модули (Includes): cleo, sf, nosource 5) Исходный код: {$CLEO} {$NOSOURCE} {$INCLUDE SF} if not 31@ = samp.Base() then end_thread else while not samp.Available() wait 100 end end alloc 0@ 1024 alloc 1@ 1024 while true wait 0 if key_down 123 then while key_down 123 wait 0 end chatmsg "Откат на наркотики - активирован. {00CCFF}[ Creator - MaHuKeH ] " 0x00CC00 repeat wait 0 0B75: samp get_chat_string 99 text_to 1@ prefix_to 2@ color_to 3@ prefix_color_to 4@ if 0C18: 0@ = strstr string1 1@ string2 "Odyvan4eG достал пакетик," then wait 10000 chatmsg "[UC] - До употребления наркотиков осталось 60 секунд." 0x99CCFF wait 10000 chatmsg "[UC] - До употребления наркотиков осталось 50 секунд." 0x99CCFF wait 10000 chatmsg "[UC] - До употребления наркотиков осталось 40 секунд." 0x99CCFF wait 10000 chatmsg "[UC] - До употребления наркотиков осталось 30 секунд." 0x99CCFF wait 10000 chatmsg "[UC] - До употребления наркотиков осталось 20 секунд." 0x99CCFF wait 10000 chatmsg "[UC] - До употребления наркотиков осталось 10 секунд." 0x99CCFF wait 10000 chatmsg "[UC] - Откат для принятия наркотиков прошел!" 0x99CCFF end until key_down 123 chatmsg "Откат на накротики - деактивирован. {00CCFF}[ Creator - MaHuKeH ] " 0xFF0000 while key_down 123 wait 0 end end end//while true Поделиться сообщением Ссылка на сообщение
BlackSpace 35 Жалоба Опубликовано 17 сентября, 2016 1.Название: CarDealer2.Краткое описание: При продаже авто игроку отсчитывает откат и выводит его в чате, так же продает авто ближайшему игроку т.е сидящему рядом в авто.3.Язык программирования: AutoHotKey4.Используемые модули: SAMP UDF5.Исходный код: [spoiler=Исходник]#SingleInstance, force#Include, include.ahkmenu, tray, NoStandardmenu, tray, add , Перезагрузитьmenu, tray, add , ВыйтиRegRead, nick, HKEY_CURRENT_USER, Software\SAMP, PlayerNameMsgBox, 0, CarDealer, Приветствую тебя %nick%`nАктивация скрипта F4`nДеактивация F5`nАвтор Quasper - GalaxY IFilename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txtblock=0vk73::on=1addChatMessage("{00ebcf} CarDealer - On")addChatMessage("{00ff11}Чтобы продать авто нажмите {ff0000}Клавишу \ {00ff11}(под Backspace)")Loop, read, %Filename%nstroki=%A_Index%start:if on=2returnif block=1goto startFileReadLine, stroka, %Filename%, %nstroki%if ErrorLevel{nstroki-=1goto start}if stroka={nstroki+=1goto start}IfInString, stroka, продан{if (InStr(stroka, "Автомобиль")) or (InStr(stroka, "игроку")) or (InStr(stroka, "за")){addChatMessage("{00ff09} Следующая продажа через 2 минуты")Sleep, 120000addChatMessage("{00ff09} Откат прошёл, можешь продавать")Sleep, 1000nstroki+=1goto start}}nstroki+=1goto startreturnvk74::if on=1{on=2addChatMessage("{ff0000} CarDealer - Off")}return~$F6 UP::if block=0{block=1return}if block=1{sleep 600block=0}return~$enter UP::if block=1{sleep 600block=0}returnvkDC::Gui, Submit, NoHideid := getClosestPlayerId()SendChat("/sellcar "id " 1000")returnПерезагрузить:ReloadreturnВыйти:ExitAppreturn 2 Поделиться сообщением Ссылка на сообщение
Андруся 24 Жалоба Опубликовано 6 марта, 2017 1) Название: Откат /udc /udp 2) Краткое описание: Как по мне удобный скрипт, который не засоряет чат screen3) Язык программирования: AHK4) * Используемые модули (Includes): SAMP udf 5) Исходный код: menu, tray, NoStandard menu, tray, add , Справка menu, tray, add , Выйти #include samp.ahk #IfWinActive GTA:SA:MP Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt Loop, read, %Filename% nstroki=%A_Index% start: name := getUsername() FileReadLine, stroka, %Filename%, %nstroki% if ErrorLevel { nstroki-=1 goto start } if stroka= { nstroki+=1 goto start } IfInString, stroka, %name% { if (InStr(stroka, "достал пакетик, насыпал белого порошка")) if (InStr(stroka, "достала пакетик, насыпала белого порошка")) if (InStr(stroka, "прикуривает косяк и пыхает.")) { timer = 65 Loop { timer -= 1 showGameText("~n~~n~~n~~n~~n~~n~" timer "", 1000, 5) hp := getPlayerHealth() if hp <= 0 { Reload } if timer = 0 { addchatmsg("{FA5882}Откат прошёл.") reload } sleep 990 } Sleep 300 nstroki+=1 goto start } } nstroki+=1 goto start return Справка: msgbox 32,, ( • Скрипт на откат наркотиков. • Активация автоматическая. • Автор Harpel. ) return Выйти: ExitApp 1 Поделиться сообщением Ссылка на сообщение
Dahik_Pihtyak 9 Жалоба Опубликовано 21 января, 2019 В 24.08.2015 в 00:12, Котофей сказал: 1) Таймер для наркотиков 2) После того, как вы примете наркотики, через 2 минуты, после отката, вам напишется в чат, что использовать можно их снова! 3) Ahk 4) Закрыть спойлер SelectedFile = %A_MyDocuments%\Gta San Andreas User Files\samp\chatlog.txt timer: Loop, Read, %SelectedFile% { IfInString, A_LoopReadLine, _KoToFei_ достал пакетик, насыпал белого порошка, свернул стодолларовую купюру в трубочку и начал нюхать. { Goto, start } } goto, timer start: FileDelete, %SelectedFile% FileAppend, , %SelectedFile% Sleep, 120000 SendInput, {F6}/c Наркотики можно принимать снова{!}{Enter} goto, timer P.S Вместо ника котофей, введи свой в точности! Можеш кинуть ссылку на скачивания? Поделиться сообщением Ссылка на сообщение
BlackSpace 35 Жалоба Опубликовано 22 февраля, 2019 В 21.01.2019 в 19:02, Dahik_Pihtyak сказал: Можеш кинуть ссылку на скачивания? Чувак ты серьезно? Тебе дали исходный код скрипта, поставь ахк и скомпилируй... Какое еще скачивание? Поделиться сообщением Ссылка на сообщение
Dahik_Pihtyak 9 Жалоба Опубликовано 17 марта, 2019 В 22.02.2019 в 10:20, BlackSpace сказал: Чувак ты серьезно? Тебе дали исходный код скрипта, поставь ахк и скомпилируй... Какое еще скачивание? Ето как? Поделиться сообщением Ссылка на сообщение