#Include samp.ahk

global corddistance:=0x8
global keys:=false
global startCords:= Array(0,0,0)
global relogStat:=0

:?:/scd::
menu:=1
showDialog(1, "setCorddistance", "Введиет новое растояние для телепорта.`n[corddistance] := [" corddistance "]", "OK", "OK", 1)
Input, newCorddistance, V, {enter}
if menu = 1
{
    if (newCorddistance>0) && (newCorddistance<100)
    {
  corddistance:=newCorddistance
  showDialog(0, "setCorddistance" ,"[corddistance]:=[" corddistance "]", "OK", "OK" , 2)
  menu:=0
    }
    else
    {
  showDialog(0, "setCorddistance" ,"Ошибка! Введен не верный [corddistance]:=[" newCorddistance "]`n[corddistance] := [" corddistance "]", "OK", "OK" , 3)
    }
}
~Escape::
menu:=0
return

:?:/start::
if isPlayerInAnyVehicle() <> 0
{
    addChatMessage("Для работы скрипта выйдете из авто и начните заного")
    return
}
startCords:=getCoordinates()
bot_job:=true
keys:=false
firstAim:=1
while bot_job
{
    serchString1:=0
    serchString2:=0
    serchString3:=0
    if firstAim=0
    {
  sleep, 1000
  setPlayerHealth("0")
  SendInput, {RShift down}
  sleep, 150
  SendInput, {RShift up}
  sleep, 350
  SendInput, {RShift down}
  sleep, 150
  SendInput, {RShift up}
  sleep, 9000
    }
    GetChatLine(0, lastLine)
    pickUpCords:=CoordsFromRedmarker()
    while serchString1=0 && relogStat=0
    {
  CoordMaster(CoordsFromRedmarker()[1],CoordsFromRedmarker()[2],CoordsFromRedmarker()[3])
  sleep, 500
  if (pickUpCords[1]<>CoordsFromRedmarker()[1]) && (pickUpCords[2]<>CoordsFromRedmarker()[2]) && (pickUpCords[3]<>CoordsFromRedmarker()[3])
   serchString1:=1
    }
    
    pickUpCords:=CoordsFromRedmarker()
    while serchString2=0 && relogStat=0
    {
  CoordMaster(startCords[1], startCords[2], startCords[3])
  sleep, 500
  SendChat("/inget")
  sleep, 500
  if isPlayerInAnyVehicle() = 1
   exitCar()
  GetChatLine(0, lastLine)
  IfInString, lastLine, Отнесите груз к банкомату
   serchString2:=1
    }
    
    keys:=1
    while serchString3=0 && relogStat=0
    {
  CoordMaster(CoordsFromRedmarker()[1],CoordsFromRedmarker()[2],CoordsFromRedmarker()[3])
  sleep, 500
  if (pickUpCords[1]<>CoordsFromRedmarker()[1]) && (pickUpCords[2]<>CoordsFromRedmarker()[2]) && (pickUpCords[3]<>CoordsFromRedmarker()[3])
   serchString3:=1
    }
    keys:=0
    relogStat:=0
    firstAim:=0
}

:?:/tp inc::
CoordMaster(-2187.1499,295.0440,35.1172)
return

CoordMaster(X,Y,Z)
{
    setPlayerFreeze(2)
    getPlayerPos(pX,pY,pZ)
    markPos := Array(X,Y,Z)
    pPos := getCoordinates()
    dist:=getDist(markPos, pPos)
    jumpCount:=round(dist/corddistance)
    dX:=(X-pX)/jumpCount
    dY:=(Y-pY)/jumpCount
    dZ:=-40-pZ
    if abs(dZ) <= %corddistance%
    {
  setCoordinates(pX, pY, "-40", "0")
    }
    else
    {
  zCount:=round(dZ/corddistance)
  intZcount:= abs(zCount)
  zProm:=pZ
  loop, %intZcount%
  {
   zProm-=dZ/zCount
   setCoordinates(pX, pY, zProm, "0")
   if getPlayerHealth()=0
   {
    0hpDed()
   }
   GetChatLine(0, lastLineRel)
   IfInString, lastLineRel, Server closed the connection.
    relog()
   IfInString, lastLineRel, The server is restarting.
    relog()
   if relogStat=1
    return
  }
  setCoordinates(pX, pY, "-40", "0")
    }
    xProm:=pX
    yProm:=pY
    loop, %jumpCount%
    {
  xProm+=dX
  yProm+=dY
  setCoordinates(xProm, yProm, "-40", "0")
  if getPlayerHealth()=0
  {
   0hpDed()
  }
  GetChatLine(0, lastLineRel)
  IfInString, lastLineRel, Server closed the connection.
   relog()
  IfInString, lastLineRel, The server is restarting.
   relog()
  if relogStat=1
    return
    }
    setCoordinates(X, Y, "-40", "0")
    dZ:=-40-Z
    zProm:=-40
    if abs(dZ) <= %corddistance%
    {
  setCoordinates(X, Y, Z, "0")
    }
    else
    {
  zCount:=round(dZ/corddistance)
  intZcount:= abs(zCount)
  loop, %intZcount%
  {
   zProm+=dZ/zCount
   setCoordinates(X, Y, zProm, "0")
  }
  setCoordinates(X, Y, Z, "0")
  cx:=0
    }
    setPlayerFreeze(0)
    return
}

0hpDed()
{
    
}
return

relog()
{
    sleep, 25000
    CoordMaster(startCords[1], startCords[2], startCords[3])
    sleep, 3000
    SendInput, {enter down}
    sleep, 400
    SendInput, {enter up}
    sleep, 3000
    while getDialogID() <> 276
    {
  CoordMaster(startCords[1], startCords[2], startCords[3])
  sleep, 3000
  SendInput, {enter down}
  sleep, 400
  SendInput, {enter up}
  sleep, 3000
    }
    sleep, 3000
    while isDialogOpen()=1
    {
  SendInput, {enter down}
  sleep, 400
  SendInput, {enter up}
  sleep, 1000
    }
    while isPlayerInAnyVehicle() <> 0
    {
  sleep, 500
  SendInput, {n Down}
  sleep, 400
  SendInput, {n up}
    }
    sleep, 100
    relogStat:=1
}
return

exitCar()
{
    while isPlayerInAnyVehicle() = 1
    {
  SendInput, {n down}
  sleep, 100
  SendInput, {enter Up}
  sleep, 1000
    }
}

h::
setPlayerFreeze(0)
Reload