Декомпиляция Ahk

[Андруша.]

В архиве два скрипта, декомпилируйте пожалуйста)
https://www.sendspace.com/file/whjr3q

 

[Leetovskiy]

Смог открыть только один, "Таблетки медиков".

MsgBox, Bubusik король. Подробная информация в "Помощь".
menu, tray, NoStandard
menu, tray, add , Помощь
menu, tray, add , Выйти
#IfWinActive GTA:SA:MP
Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
block=0
f10::
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, Продать лекарство указанному игроку
{
Sendinput {F6}/c Откат на продажу лекарств, ожидайте. {ENTER}
}
IfInString, stroka, У игрока недостаточно средств для покупки.
{
Sendinput {F6}/c У тебя денег не хватает, не могу продать. {ENTER}
}
IfInString, stroka, >> ПМ от
{
if (InStr(stroka, "таблетки")) or (InStr(stroka, "табл")) or (InStr(stroka, "tabl"))
or (InStr(stroka, "meds")) or (InStr(stroka, "Табл")) or (InStr(stroka, "Таблы"))
or (InStr(stroka, "таблы")) 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, "табл")) or (InStr(stroka, "tabl"))
or (InStr(stroka, "meds")) or (InStr(stroka, "Табл")) or (InStr(stroka, "Таблы"))
or (InStr(stroka, "таблы"))  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, "табл")) or (InStr(stroka, "tabl"))
or (InStr(stroka, "meds")) or (InStr(stroka, "Табл")) or (InStr(stroka, "Таблы"))
or (InStr(stroka, "таблы"))  or (InStr(stroka, "+"))
{
RegExMatch(stroka, ".*\[(.*)\]", idigroka)
Sendinput {F6}/sellmeds %idigroka1% 2000{ENTER}
Sleep 300
nstroki+=1
goto start
}
}
nstroki+=1
goto start
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,,
(
Данное приложение автоматически продает таблетки(реагирует на слова в любые чаты). Скрипт активируется нажатием на кнопку f10(В /c чат уведомление об удачном включении скрипта).
И не забывайте что Bubusik КОРОЛ!

Нажмите ОК для продолжения.
)
return
Выйти:
exitapp
Return

 

[Андруша.]

Хорошо, большое спасибо

 

[DimasikCheater]

Смог открыть только один, "Таблетки медиков".

MsgBox, Bubusik король. Подробная информация в "Помощь".
menu, tray, NoStandard
menu, tray, add , Помощь
menu, tray, add , Выйти
#IfWinActive GTA:SA:MP
Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
block=0
f10::
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, Продать лекарство указанному игроку
{
Sendinput {F6}/c Откат на продажу лекарств, ожидайте. {ENTER}
}
IfInString, stroka, У игрока недостаточно средств для покупки.
{
Sendinput {F6}/c У тебя денег не хватает, не могу продать. {ENTER}
}
IfInString, stroka, >> ПМ от
{
if (InStr(stroka, "таблетки")) or (InStr(stroka, "табл")) or (InStr(stroka, "tabl"))
or (InStr(stroka, "meds")) or (InStr(stroka, "Табл")) or (InStr(stroka, "Таблы"))
or (InStr(stroka, "таблы")) 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, "табл")) or (InStr(stroka, "tabl"))
or (InStr(stroka, "meds")) or (InStr(stroka, "Табл")) or (InStr(stroka, "Таблы"))
or (InStr(stroka, "таблы"))  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, "табл")) or (InStr(stroka, "tabl"))
or (InStr(stroka, "meds")) or (InStr(stroka, "Табл")) or (InStr(stroka, "Таблы"))
or (InStr(stroka, "таблы"))  or (InStr(stroka, "+"))
{
RegExMatch(stroka, ".*\[(.*)\]", idigroka)
Sendinput {F6}/sellmeds %idigroka1% 2000{ENTER}
Sleep 300
nstroki+=1
goto start
}
}
nstroki+=1
goto start
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,,
(
Данное приложение автоматически продает таблетки(реагирует на слова в любые чаты). Скрипт активируется нажатием на кнопку f10(В /c чат уведомление об удачном включении скрипта).
И не забывайте что Bubusik КОРОЛ!

Нажмите ОК для продолжения.
)
return
Выйти:
exitapp
Return

Автор давал разрешение на декомпил? Нарушение авторских прав >> закрытие проекта (форума), штраф владельцу, Вам.
Вы хотите, чтобы кто-то подал жалобу?

 

[Leetovskiy]

Автор давал разрешение на декомпил? Нарушение авторских прав >> закрытие проекта (форума), штраф владельцу, Вам.
Вы хотите, чтобы кто-то подал жалобу?

А ты забавный.

 

[mac]

закрытие проекта (форума), штраф владельцу, Вам.

*ржач мака.mp3*
СУКА НИМАГУ БЛЯТЬ, У МЕНЯ СУКА КОТ УМЕР ОТ СМЕХА, СЕСТРА ОТ ТВОЕЙ ШУТКИ В РЕАНИМАЦИИ