Simple teleport request

temotemo1337

Известный
Автор темы
11
0
Hey, please someone make one simple teleport, that's what I need: when I enter an activation command it should teleport only to two coordinates and repeat until I deactivate it. I need that for job hack, usual teleport which is on sobeit is working so you shouldn't have any problem with that.
up
 
Последнее редактирование:

diva

Известный
251
44
Do you still need this? is this unloading/loading job? or what?
Here is it only code u can make it in .LUA activate -/ /j
Код:
script_name("TP to marker for Arizona RP")
script_description("Teleports you to the marker without a kick")
script_version_number(3)
script_version("1.2")
script_author("RollUp")

require 'lib.sampfuncs'

function main()
  if not isSampfuncsLoaded() or not isSampLoaded() then return end
  while not isSampAvailable() do
      wait(200)
  end
  sampRegisterChatCommand("j", atp)
  while true do
    wait(0)
    if tpres then
      coords, posX, posY, posZ = getTargetBlipCoordinates()
            z = getGroundZFor3dCoord(posX, posY, posZ)
            car = storeCarCharIsInNoSave(playerPed)
            if coords and  isCharInCar(playerPed, car) then
                sampSendSpawn()
                setCharCoordinates(playerPed, posX, posY, posZ)
                wait(200)
                tpres = false
            elseif coords then
        sampSendSpawn()
        setCharCoordinates(playerPed,-2467.99, 2278.16, 4.52 0 , -1543.92, 2627.95, 55.42 0, z+2.5)
        tpres = false
            else sampAddChatMessage('[TP for Arizona RP]: Поставьте метку на карте для телепорта.', 0x00FFAA00)
                tpres = false
      end
    end
  end
end

function onSendPacket(id)
    if id == PACKET_VEHICLE_SYNC and tpres then
        return false
  end
end


function atp()
  tpres = true
end
 

diva

Известный
251
44
Hey, thanks for the answer doe but... it's like cleaning job, you should drive around and it counts 1 km per some meters I dunno :), but I teleported to a marker and it automatically counted 1 km that's why I need that and yeah, I don't need any difficult teleport scripts with a bunch of syncs cuz teleport from sobeit on PageDN working anyway
You can find some teleports to checkpoint here, or in ugbase.eu if u still have some question PM me.
 

hnnssy

Известный
Друг
2,684
2,748
Bruh, it doesn't have any checkpoint systems, you should just drive around
I'm not stupid
CLEO:
{$CLEO}
wait 2000

31@ = 0
0b34: "cmd" @cmd

while true
wait 0
if 31@ == 1
then
    Actor.PutAt($PLAYER_ACTOR, -2467.99 2278.16 4.52)
    wait 1500
    Actor.PutAt($PLAYER_ACTOR, -1543.92 2627.95 55.42)
    wait 1500
end
end

:cmd
0B12: 31@ = 31@ XOR 1
0b43: