Вопрос Не работает АХК в сампе.

Регистрация
11 Май 2013
Сообщения
81
Репутация
1
Спасибо
0
Монет
0
Строчки скрипта
#IfWinActive GTA:SA:MP
#include SAMP.ahk
!3::
SendMessage, 0x50,, 0x4190419,, A
targ:=getIdByPed(getTargetPed())
if (targ!="-1")
{
SendChat("/cuff "targ)
}
else
AddMessageToChatWindow("{ff6347} Ошибка: Не выбран игрок.")
Return

MButton::
SendMessage, 0x50,, 0x4190419,, A
o1:=Object()
o1:=GetCoordinates()
targ:=getIdByPed(getTargetPed())
if (targ==-1)
return
point:=readDWORD(hGTA, getTargetPed() + 0x79C)
slot:=readMem(hGTA, getTargetPed() + 0x718, 1, "byte")
if (point!=0 and getIdByPed(point)==-1 and slot>1 and slot<8)
{
AddMessageToChatWindow("{ff6347} Внимание: Нельзя выдавать розыск человеку, который стреляет в вас")
return
}
FilePath = roz.txt
IfNotExist, %FilePath%
{
AddMessageToChatWindow("{ff6347} Ошибка: Файл roz.txt в папке со скриптом не найден")
return
}
if (getDist(o1,getPedCoordinates(getPedById(targ)))<23)
{
kolvostrok:=0
Loop, Read, %FilePath%
{
if RegExMatch(A_LoopReadLine, "S")
{
kolvostrok:=kolvostrok+1
if (kolvostrok==rejim)
SendChat("/su " targ " " A_LoopReadLine)
}
}
}
Return

!MButton::
SendMessage, 0x50,, 0x4190419,, A
rejim := rejim+1
kolvostrok:=0
FilePath = roz.txt
IfNotExist, %FilePath%
{
AddMessageToChatWindow("{ff6347} Ошибка: Файл roz.txt в папке со скриптом не найден")
return
}
Loop, Read, %FilePath%
{
if RegExMatch(A_LoopReadLine, "S")
kolvostrok:=kolvostrok+1
}
if (kolvostrok<rejim)
rejim:=1
kolvostrok:=0
Loop, Read, %FilePath%
{
if RegExMatch(A_LoopReadLine, "S")
{
kolvostrok:=kolvostrok+1
if (kolvostrok==rejim)
if RegExMatch(A_LoopReadLine, "ds(.*?)$", strol)
AddMessageToChatWindow("{FFFF00} Теперь, нажимая на кнопку розыска, вы будете подавать в розыск за " strol1)
}
}
Return

numpad8::
targ:=getClosestPlayerIdCarNotCopFBI()
if (targ!="-1")
name:=getPlayerNameById(targ)
StringReplace, RPName, Name, _, %A_Space%, All
SendMessage, 0x50,, 0x4190419,, A
SendChat("/try повалил " RPname " на землю")
sleep 1200
File = %A_MyDocuments%GTA San Andreas User FilesSAMPchatlog.txt
FileRead, Chatlog, %File%
check = 0
nick:=getUsername()
if RegExMatch(Chatlog, "s).*" nick "sповалилs" RPname "sнаsземлюs.*?[(.*?)]", var)
{
if var1 = Удачно
{
SendMessage, 0x50,, 0x4190419,, A

SendChat("/cuff " targ "")
check = 1
}
if var1 = Неудачно
{
SendMessage, 0x50,, 0x4190419,, A

StringReplace, lala, name, _, %A_SPACE%, All
StringReplace, vava, nick, _, %A_SPACE%, All
SendChat("/do " lala " вырвался из захвата " vava "")
check = 1
}
if check not between 1 and 2
{
AddMessageToChatWindow("{ff6347}Ошибка: Рядом нет персонажа или он коп/ФБР.")
}
}
Return

!2::
SendMessage, 0x50,, 0x4190419,, A
txz:=0
gunidpat:=getPlayerWeaponId()
if (isPlayerDriver()!=-1)
{
AddChatMessage("{ff6347} Внимание: Резиновые пули нельзя использовать в машине!")
return
}
while (txz<8)
{
MouseClick, WheelUp
sleep 150
gunidpat:=getPlayerWeaponId()
if(gunidpat == 24) {
SendChat("/tazer")
break
}
else
txz++
}
if(txz == 8)
AddChatMessage("{ff6347} Ошибка: У вас нет пистолета Desert Eagle")
Return

!5::
SendMessage, 0x50,, 0x4190419,, A
targ:=getIdByPed(getTargetPed())
if (targ!="-1")
{
name:=getPlayerNameById(targ)
StringReplace, RPName, Name, _, %A_Space%, All
Random rand, 1, 3
if (rand==1)
SendChat("/me открыл дверь и посадил " RPname " в машину")
if (rand==2)
SendChat("/me открыл дверь и помог " RPname " сесть в машину")
if (rand==3)
SendChat("/me открыл дверь и затащил " RPname " в машину")
sleep 1200
SendChat("/cput " targ)
}
else
AddMessageToChatWindow("{ff6347} Ошибка: Не выбран игрок.")
Return

!6::
SendMessage,
 
Назад
Сверху