Перейти к содержанию
ABSOLUTE

Скрипты, программы и т.п.

Рекомендуемые сообщения

1) Название:
2) Краткое описание:
3) Язык программирования:
4) * Используемые модули (Includes):

5) Исходный код:

 

 

Правила:
Отключить подпись !

Публиковать строго по форме выше !

Исходный код прятать под

!

** За публикацию с ссылкой на скачивание и/или в формате .exe - удаление поста, при повторе - мут !

 

*   -   Если таковые имеются. Если нет: пропускайте пункт.
**   -   Если есть необходимость опубликовать скрипт/программу в формате .exe: обращаться строго ко мне в ЛС.
Изменено пользователем Dark_Knight

Поделиться сообщением


Ссылка на сообщение

 

Автор: 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

 

 

Изменено пользователем ABSOLUTE

Поделиться сообщением


Ссылка на сообщение

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

 

 

Изменено пользователем RuslaN123
  • Лайк 1

Поделиться сообщением


Ссылка на сообщение

Авто-показ статистики

Показывает статистику при наведении прицела и нажатии клавиши "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=видос]

 

Поделиться сообщением


Ссылка на сообщение

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

 

 

 

Убрал подпись.

Изменено пользователем RuslaN123

Поделиться сообщением


Ссылка на сообщение

 


32feb70a062b9821ceedb80720448ec4.png


by ABSOLUTE for GalaxY-RPG

 

15479c1ab128da2eb7a728670c4667d3.png760f8dd709d97c628bde43c614ef13cc.png


 

 

Программа написана для упрощенного использования команды /blacklist.

Во время работы она запоминает игроков, которых вы добавили в личный Чёрный Список или удалили из него.

После перезапуска игры программа сама восстанавливает Чёрный Список из сохраненных ранее данных.

 

Инструкция:

1. Запустить программу ДО запуска игры.

2. Использовать команду /blacklist, добавляя или удаляя игроков из списка игнорируемых.

3. После выхода из игры программа будет отключена автоматически.

4. Перед следующим входом в игру вновь запустите данную программу.

5. После входа в игру Чёрный Список будет восстановлен (через 1.5 секунды после авторизации)

 

Изменено пользователем ABSOLUTE
  • Лайк 1

Поделиться сообщением


Ссылка на сообщение

1. Таймер
2. При активации выводит таймер на мониторе и после его окончания выводит текст определенное время на экране. Настройки создаются автоматически
3. Cleo
4. Инклуд 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

 

 

Изменено пользователем Dark_Knight

Поделиться сообщением


Ссылка на сообщение

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 

 

Изменено пользователем KIRILL29

Поделиться сообщением


Ссылка на сообщение

1) Название: Пароль

2) Краткое описание: Позволяет повесить "пароль" на ваш скрипт

3) Язык программирования: ахк

4) Исходный код:

 

 

pass = ТУТ ПАРОЛЬ
InputBox,pass1,PassWord,Введите пароль:
if (pass != pass1)
{
MsgBox,Пароль введён не верно
ExitApp
}
else
{
goto, label1
}
return

label1:
ТУТ ВАШ СКРИПТ

 

Изменено пользователем KIRILL29
  • Спасибо 1

Поделиться сообщением


Ссылка на сообщение

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. После проведения операции исходный файл удалится, новый появится в папке со скриптом

Поделиться сообщением


Ссылка на сообщение




38ddc49fb0c4984015b4b077bc4152af.png

 




Видео 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

 


 

 




При первом запуске программа запросит "Ключ Активации", который Вы можете приобрести по этой ссылке:
 

052c2d6f7b967078b18d23891346934b.jpg


Для оплаты Qiwi или Yandex.Деньги обращаться в ЛС на форуме или скайп

Изменено пользователем ABSOLUTE
Обновление программы

Поделиться сообщением


Ссылка на сообщение

Один из моих первых скриптов. Может пригодится кому-то:

 

1) - Менеджер для Наёмных Агентов
2) - Работает
через /f чат Агентства. Выдает заказы и показывает следующий заказ по запросу в чат.
3) - AutoHotKey
4) - Изображение в папку со скриптом

 
[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 

 

 

Изменено пользователем ABSOLUTE

Поделиться сообщением


Ссылка на сообщение

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 Вместо ника котофей, введи свой в точности!

Изменено пользователем Котофей

Поделиться сообщением


Ссылка на сообщение

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.txt
block=0
^1::
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, "способные выдать лицензию"))
{
RegExMatch(stroka, "В данный момент есть законники, способные выдать лицензию. Например, (.*)\[.*\]", id)
Sleep 100
Sendinput {F6}/pm %id1% Дай, пожалуйста, лицу адвокату. {enter}
Sleep 300
nstroki+=1
goto start
}
}
IfInString, stroka, Офицер
{
if (InStr(stroka, "тебе лицензию на освобождение"))
{
RegExMatch(stroka,"Офицер (.*) дала? тебе лицензию на освобождение", lawyers)
SendInput {f6}/pm %lawyers1% Спасибо.{enter}
Sleep 300
nstroki+=1
goto start
}
}
nstroki+=1
goto start
return
^2::
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,,
(
• Активация - ctrl+1. Деактивация - ctrl+2
• Cкрипт для автоматического прошения лицензии, встаем на значок лицензии и он делает все за вас!
• Автор - ABSOLUTE, edit  KIRILL29 (Ghost29) and _KoToFei_

)
return

Выйти:
ExitApp
return

 

Изменено пользователем Котофей

Поделиться сообщением


Ссылка на сообщение

Авто-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"
if
0@ = SAMP.Base()
else_jump @Auto_62
0A93: end_custom_thread

:Auto_62
not SAMP.Available
else_jump @Auto_82
wait 100
jump @Auto_62

:Auto_82
wait 0
if and
0AD2: 29@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 88
else_jump @Auto_143
10@ = SAMP.GetSAMPPlayerIDByActorHandle(29@)
say "/free %d 5000" 10@
wait 500

:Auto_143
if and
0AD2: 29@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 90
else_jump @Auto_200
10@ = SAMP.GetSAMPPlayerIDByActorHandle(29@)
say "/free %d 6000" 10@
wait 500

:Auto_200
if and
0AD2: 29@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 88
else_jump @Auto_258
10@ = SAMP.GetSAMPPlayerIDByActorHandle(29@)
say "/free %d 10000" 10@
wait 500

:Auto_258
if and
0AD2: 29@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 66
else_jump @Auto_316
10@ = SAMP.GetSAMPPlayerIDByActorHandle(29@)
say "/free %d 12000" 10@
wait 500

:Auto_316
jump @Auto_82

 

  • Лайк 1

Поделиться сообщением


Ссылка на сообщение

1) CaptureHelp
2) Выдаёт оружие (м4 и игл) тому кто напишет в пм, обычный чат, /s чат: m4, м4, мку, игл, eagle, нарко, drugs и т.д. т.п.

Активация F2 / де активация F3
3) 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  

 

 

 

Поделиться сообщением


Ссылка на сообщение

1) Название: счетчик отката нарко
2) Краткое описание: Bezimyanni_5724574_20517141.png
3) Язык программирования: CLEO
4) * Используемые модули (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 

 

Поделиться сообщением


Ссылка на сообщение

1.Название: CarDealer
2.Краткое описание: При продаже авто игроку отсчитывает откат и выводит его в чате, так же продает авто ближайшему игроку т.е сидящему рядом в авто.
3.Язык программирования: AutoHotKey
4.Используемые модули: SAMP UDF
5.Исходный код: [spoiler=Исходник]#SingleInstance, force
#Include, include.ahk
menu, tray, NoStandard
menu, tray, add , Перезагрузить
menu, tray, add , Выйти
RegRead, nick, HKEY_CURRENT_USER, Software\SAMP, PlayerName
MsgBox, 0, CarDealer, Приветствую тебя %nick%`nАктивация скрипта F4`nДеактивация F5`nАвтор Quasper - GalaxY I
Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
block=0
vk73::
on=1
addChatMessage("{00ebcf} CarDealer - On")
addChatMessage("{00ff11}Чтобы продать авто нажмите {ff0000}Клавишу \ {00ff11}(под Backspace)")
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, "игроку")) or (InStr(stroka, "за"))
{
addChatMessage("{00ff09} Следующая продажа через 2 минуты")
Sleep, 120000
addChatMessage("{00ff09} Откат прошёл, можешь продавать")
Sleep, 1000
nstroki+=1
goto start
}
}
nstroki+=1
goto start
return
vk74::
if on=1
{
on=2
addChatMessage("{ff0000} CarDealer - Off")
}
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
vkDC::
Gui, Submit, NoHide
id := getClosestPlayerId()
SendChat("/sellcar "id " 1000")
return
Перезагрузить:
Reload
return
Выйти:
ExitApp
return

 

  • Лайк 2

Поделиться сообщением


Ссылка на сообщение

1) Название: Откат /udc /udp 
2) Краткое описание: Как по мне удобный скрипт, который не засоряет чат screen
3) Язык программирования: AHK
4) * Используемые модули (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

Поделиться сообщением


Ссылка на сообщение
В 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 Вместо ника котофей, введи свой в точности!

Можеш кинуть ссылку на скачивания?

Поделиться сообщением


Ссылка на сообщение
В 21.01.2019 в 19:02, Dahik_Pihtyak сказал:

Можеш кинуть ссылку на скачивания?

Чувак ты серьезно? Тебе дали исходный код скрипта, поставь ахк и скомпилируй... Какое еще скачивание?:dash_mini::dash_mini::dash_mini:

Поделиться сообщением


Ссылка на сообщение
В 22.02.2019 в 10:20, BlackSpace сказал:

Чувак ты серьезно? Тебе дали исходный код скрипта, поставь ахк и скомпилируй... Какое еще скачивание?:dash_mini::dash_mini::dash_mini:

Ето как?

Поделиться сообщением


Ссылка на сообщение

  • Сейчас на странице   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×