1

Тема: AHK SAMP: Частичное изменение скрипта/выявление вод. места

Добрый день, дорогие пользователи серого форума.
В общем, есть хороший скрипт, который определяет местоположение всех пассажиров в автомобиле, и просит остановить транспорт.
Суть в том, что дается выбрать четыре места, если в транспорте сидит больше одного человека.
Изменение заключается в том, чтобы скрипт автоматически определял того человека, который находится за рулем, чтобы не было выбора 4х мест.
Дальше идут три отыгровки с просьбой остановить транспорт(по нажатию одной клавиши - три отыгровки - это изменять не нужно, как было, так и оставить).
И выдача розыска выбранному человеку по нажатию определенной клавиши.
Вот сам скрипт, который нужно изменить. А нужно просто убрать выбор четырех мест и сделать так, чтобы выбирался только водитель. Если наведена функция не на того, то можно сбросить и заново выбрать нужного человека в транспорте.

#include SAMP.ahk
sbros=1
k:=0
su:=-1
start_time:=0


; Radar
NumpadAdd::
o1:=Object() 
o1:=GetCoordinates()
k:=-1
kid := Object("0", "1", "2", "3")
kid[0]:=-1
kid[1]:=-1
kid[2]:=-1
kid[3]:=-1
kid[0]:=getClosestPlayerId1()
if(kid[0]!=-1)
{ 
k:=0
p := getStreamedInPlayersInfo()
M:=getTargetVehicleModelNameById(kid[k])
N:=getPlayerNameById(kid[k])
For i, o in p
{ 
if(getTargetVehicleModelNameById(i)==M and (kid[0]!=i) and in_car_not_cop(i)==1 and person_passenger(i,kid[0])==1)
{	
k:=k+1
kid[k]:=i	
}
}


if(getDist(o1,getPedCoordinates(getPedById(kid[0])))<21 and kid[0]!=-1)
{
Speed:=getTargetVehicleSpeedById(kid[0])-30
Speed:=Ceil(Speed)
if(Speed<0)
Speed:=0
if(k==0)
{

addChatMessage("{F63939} ________________________________________" )
addChatMessage("{F63939} Адский радар: ВИЗИР 2" )
addChatMessage("{FFFFFF}Имя фамилия водителя: {F63939}" N " [" kid[0]"]" )
addChatMessage("{FFFFFF}Скорость автомобиля: {F63939}" Speed " Км/ч" )
addChatMessage("{FFFFFF}Т/С: {F63939}" M )
addChatMessage("{F63939} ________________________________________" )
su:=kid[0]
sbros:=0
}
else
{
k:=0
addChatMessage("{F63939} ____________________________________________________" )
addChatMessage("{F63939} Адский радар: ВИЗИР 2" )
addChatMessage("{FFFFFF}Error: {F63939}Выберите водителя машины" )
While(k<4)
{ 
addChatMessage("{FFFFFF}Имя фамилия: {F63939}"k+1 " " getPlayerNameById(kid[k])" ["kid[k]"]" )
k++
}
addChatMessage("{F63939} ____________________________________________________" )
}
}
else
{
addChatMessage("{F63939} ________________________________________" )
addChatMessage("{F63939} Адский радар: ВИЗИР 2" )
addChatMessage("{FFFFFF}Error: {F63939} Слишком далеко" )
addChatMessage("{F63939} ________________________________________" )
}
}
else
{
addChatMessage("{F63939} ________________________________________" )
addChatMessage("{F63939} Адский радар: ВИЗИР 2" )
addChatMessage("{FFFFFF}Error: {F63939} Т/С не обнаружено" )
addChatMessage("{F63939} ________________________________________" )
}
Return

; Радар номер один (первое место)
numpad1::
if(k>0)
{
addChatMessage("{F63939} ________________________________________" )
addChatMessage("{F63939} Адский радар: ВИЗИР 2" )
addChatMessage("{FFFFFF}Имя фамилия водителя: {F63939}" getPlayerNameById(kid[0])" [" kid[0]"]" )
addChatMessage("{FFFFFF}Скорость автомобиля: {F63939}" Speed " Км/ч" )
addChatMessage("{FFFFFF}Т/С: {F63939}" M)
addChatMessage("{F63939} ________________________________________" )
sbros:=0
su:=kid[0]
}
Return

; Радар номер два (второе место)
numpad2::
if(k>0)
{

addChatMessage("{F63939} ________________________________________" )
addChatMessage("{F63939} Адский радар: ВИЗИР 2" )
addChatMessage("{FFFFFF}Имя фамилия водителя: {F63939}" getPlayerNameById(kid[1])" [" kid[1]"]" )
addChatMessage("{FFFFFF}Скорость автомобиля: {F63939}" Speed " Км/ч" )
addChatMessage("{FFFFFF}Т/С: {F63939}" M)
addChatMessage("{F63939} ________________________________________" )
sbros:=0
su:=kid[1]
}
Return

; Радар номер три (третье место)
numpad3::
if(k>0)
{

addChatMessage("{F63939} ________________________________________" )
addChatMessage("{F63939} Адский радар: ВИЗИР 2" )
addChatMessage("{FFFFFF}Имя фамилия водителя: {F63939}" getPlayerNameById(kid[2])" [" kid[2]"]" )
addChatMessage("{FFFFFF}Скорость автомобиля: {F63939}" Speed " Км/ч" )
addChatMessage("{FFFFFF}Т/С: {F63939}" M)
addChatMessage("{F63939} ________________________________________" )
sbros:=0
su:=kid[2]
}
Return

; Радар номер четыре (четвертое место)
numpad4::
if(k>0)
{

addChatMessage("{F63939} ________________________________________" )
addChatMessage("{F63939} Адский радар: ВИЗИР 2" )
addChatMessage("{FFFFFF}Имя фамилия водителя: {F63939}" getPlayerNameById(kid[3])" [" kid[3]"]" )
addChatMessage("{FFFFFF}Скорость автомобиля: {F63939}" Speed " Км/ч" )
addChatMessage("{FFFFFF}Т/С: {F63939}" M)
addChatMessage("{F63939} ________________________________________" )
sbros:=0
su:=kid[3]
}
Return

; Выдать розыск
NumpadSub::
if (su!="-1")
{
SendChat("/su " su " 3 Неподчинение")

}
Return

; Megaphone (/m)
numpad5::
if(sbros==0)
{
elapsed_time := A_TickCount - start_time
if(elapsed_time>60000)
{ 
start_time := A_TickCount
SendChat("/m [SFPD] Водитель т/с " M ". Прижмитесь к обочине и остановите ваше транспортное средство!")
gh:=1
}
else
{
if(gh==1)
{
SendChat("/m [SFPD] Повторяю, водитель т/с " M ". Принять вправо и остановиться.")
gh:=2
roz:=-1
}
else
if(gh==2)
{
SendChat("/m [SFPD] Последнее предупреждение. К обочине, иначе буду стрелять!")
gh:=0
}
} 
}
else
{
elapsed_time := A_TickCount - start_time
if(elapsed_time>60000)
{ 
start_time := A_TickCount

SendChat("/m [SFPD]Водитель, прижмитесь к обочине и остановите ваше транспортное средство!")
gh:=1
}
else
{
if(gh==1)
{
SendChat("/m [SFPD] Повторяю, водитель. Принять вправо и остановиться.")
gh:=2

}
else
if(gh==2)
{
SendChat("/m [SFPD] Последнее предупреждение. К обочине, иначе буду стрелять!")
gh:=0
}
}
}
return

; Сброс цели
numpad0::
Sbros:=1
su:=-1
k:=0
start_time:=0
addchatmessage("Цель сброшена")
Return

За изменение скрипта заранее благодарю.