#Include Samp.ahk

#Persistent

F2::
{
    SendChat("Дамы и Господа, не упустите возможность забрать все мои деньги! ")
    sleep 2222
    SendChat("Минимальная ставка $350, максимальная $5000")
    return
}

$~Enter::
if (isInChat() && !isDialogOpen()) {
    Sleep 200
    dwAddress := dwSAMP + 0x12D8F8
    chatInput := readString(hGTA, dwAddress, 256)
    

if (RegExMatch(chatinput, "^/game"))
{
    
name:=getPlayerNameById(id)
Nick := RegExReplace(Name, "_", " ")

    showDialog("1", "Укажите выйгрыш игрока", "", "OK")
input, money, V, {enter}
sleep 300
showDialog("1", "Укажите ид игрока", "", "OK")
input, id, V, {enter}
sleep 300

name:=getPlayerNameById(id)
Nick := RegExReplace(Name, "_", " ")

SendChat("Начинаю игру с " Nick "")
sleep 2222
SendChat("/try бросил кости в пользу " Nick)
return
}

SendMessage, 0x50,, 0x4190419,, A
File = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
   FileRead, Chatlog, %File%
   fol = 0
   
   if (RegExMatch(Chatlog, "(.*)\sбросил\sкости\sв\sпользу\s(.*)\s\|\s\{(.*)\}\sНеудачно")) {
SendChat("К сожалению вы проиграли, попытайтесь в другой раз и возможно вам повезет!")
filedelete, % File
return
}

if (RegExMatch(Chatlog, "\w+\s+бросил\sкости\sв\sпользу\s\w+\s+|\s+{33AA33}Удачно")) {
   SendChat("Вы выйграли! Ваш выйгрыш составляет " money "")
   FileDelete, % File
   return
}
}

   return
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   /*

if (RegExMatch(text, "бросил кости в пользу " Nick "| {33AA33}Удачно"))
{
SendChat("Вы выйграли! Ваш выйгрыш составляет " money "")
sleep 300
SendChat("/pay " money " " id " ")
FileDelete, % FileCLog
return
}

if (RegExMatch(text, "(.*)| {FF0000}Неудачно"))
{
    SendChat("К сожалению вы проиграли, попытайтесь в другой раз и возможно вам повезет!")
    FileDelete, % FileCLog
    return
}
}

return