#SingleInstance Force
#Persistent
#Include udf.ahk
#IfWinActive GTA:SA:MP
if (getsexbyskin(getPlayerSkinId()) = 2)
{
global RP1 := "а"
global RP2 := "ась"
}
else
{
global RP1 := ""
global RP2 := "ся"
}
return
$~vkD::
{
if (IsInChat() && !IsDialogOpen())
{
Sleep, 170
dwAddress := dwSAMP + 0x12D8F8
chatInput := readString(hGTA, dwAddress, 256)
Sleep, 30
if (RegExMatch(chatInput, "i)^\/sobes"))
{
if (RegExMatch(chatInput, "i)^\/sobes (\d{1,3})", var))
{
id := var1
nick := RegExReplace(getPlayerNameById(id), "_", " ")
goto, dialoge
}
else
addchatmessageEx("AAAAAA" , "/sobes [id]")
}
}
}
Return
dialoge:
ShowDialog(2, "Призыв", "Начать призыв`nПопросить паспорт`nПроверки на MG`nОдобрить`nОтказать", "Ок")
Result := LineResultForScript()
if (!Result)
return
goto, met%Result%
return
met1:
SendChat("Здарова! Ты кароч на призыве. Чё как сам?")
sleep 1000
addChatMessageEx("B8DBB8", "[F11]: {CCCCCC}Открыть диалог с возможными действиями.")
Keywait, F11 , D
goto, dialoge
return
met2:
SendChat("Кароч. Не будем тянуть кота. Давай сюда паспорт.")
sleep 1000
addChatMessageEx("B8DBB8", "[F11]: {CCCCCC}Открыть диалог с возможными действиями.")
Keywait, F11 , D
goto, dialoge
return
met3:
ShowDialog(2, "Проверки на MG", "Что такое скиллы?`n/n Покажите паспорт ещё раз", "Ок")
Result := LineResultForScript()
if (!Result)
return
goto, Proverka%Result%
return
Proverka1:
SendChat("Что такое скиллы?")
sleep 1000
addChatMessageEx("B8DBB8", "[F11]: {CCCCCC}Открыть диалог с возможными действиями.")
Keywait, F11 , D
goto, dialoge
return
Proverka2:
SendChat("/n Покажите паспорт ещё раз")
sleep 1000
addChatMessageEx("B8DBB8", "[F11]: {CCCCCC}Открыть диалог с возможными действиями.")
Keywait, F11 , D
goto, dialoge
return
met4:
SendChat("Поздравляю " nick ". Ты нам подходишь!")
sleep 2000
SendChat("/me передал" RP1 " талон " nick)
sleep 1000
SendChat("/r [Призыв]: Жетон №" id " - подходит!")
return
met5:
SendChat("Извини братан, ты не годен.")
return
LineResultForScript()
{
if (!isDialogOpen() || getDialogStyle() = 0 || getDialogStyle() = 1 || getDialogStyle() = 3)
return false
while (isDialogOpen())
continue
if (GetKeyState("Esc", "P"))
return false
return getDialogLineNumber()
}