Action Portal Gun 1.0

Mock · Mar 21, 2013

Well, i made this in 30 mins XD
Just a silly script, a bit useful to server admins or something

For while it support 1 portal per server =s

Features:

Create yellow and blue portals
Transport creatures and items
Move in straight line until find an obstacle
Use on yourself to deactivate both portals
WIP choose the portal
WIP grab items

Video:
[video=youtube;xPM8QigQ9rg]http://www.youtube.com/watch?v=xPM8QigQ9rg[/video]
I am using crystal key and golden key with AID 0, you can choose another item.

The tags (actions.xml):

Code:

	<action itemid="2090" event="script" value="mock_portal.lua" allowfaruse="1"/>
	<action itemid="2091" event="script" value="mock_portal.lua" allowfaruse="1"/>

Code:

Lua:

--[[

Portal gun V 1.0
By: Mock the bear


Still improving...
:]

contact: [email][email protected][/email]
]]

PORTAL_CONF = {
	yellow	=	{2091,28,3}, --Item, portal effect, shooting effect
	blue	=	{2090,30,1}, --Item, portal effect, shooting effect
	DELAY=300, --300ms

	--dont touch on this!

	portals = {},
	_T = {},
	_run = false;
}

function isWalkable(pos, creature, proj, pz)-- by Nord
        if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end
        if getTopCreature(pos).uid > 0 and creature then return false end
        if getTileInfo(pos).protection and pz then return false, true end
        local n = not proj and 3 or 2
        for i = 0, 255 do
                pos.stackpos = i
                local tile = getTileThingByPos(pos)
                if tile.itemid ~= 0 and not isCreature(tile.uid) then
                        if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
                                return false
                        end
                end
        end
        return true
end


function compPos(p1,p2) --comparate positions
	if p1.x == p2.x and p2.y == p1.y then
		return true
	end
end
function getLastPathPos(p1,p2,ef) --calculate the path to the p2
	local dir,oldP;
	local n = 0;
	local p = {x=p1.x,y=p1.y,z=p1.z}

	while not compPos(p,p2) do
		oldp = {x=p.x,y=p.y,z=p.z}
		dir = getDirectionTo(p,p2);
		p = getPosByDir(p,dir);
		if ef then
			doSendMagicEffect(p,ef)
		end
		n = n+1
		if not isWalkable(p, true, true,true) or n >= 20 then
			return oldp
		end

	end
	return p
end
function gerReversePortal(i) --derp
	return i == 1 and 2 or 1
end
function controlPortals() --controll everything
	local no = 0
	for i=1,2 do
		if PORTAL_CONF.portals[i] then
			doSendMagicEffect(PORTAL_CONF.portals[i][1],PORTAL_CONF.portals[i][3])
			PORTAL_CONF.portals[i][1].stackpos = 255;
			if PORTAL_CONF.portals[gerReversePortal(i)] then
				local t = getThingFromPos(PORTAL_CONF.portals[i][1],false)
				if t.uid ~= 0 and not PORTAL_CONF._T[t.uid] then
					local P =  PORTAL_CONF.portals[gerReversePortal(i)][1]
					doTeleportThing(t.uid,P)
					doSendMagicEffect(P,10)
					PORTAL_CONF._T[t.uid] = {gerReversePortal(i),isCreature(t.uid)}
					return addEvent(controlPortals,100)
				end
			end
			for e,b in pairs(PORTAL_CONF._T) do
				if (b and e and b[1]) then
					if PORTAL_CONF._T[e] and PORTAL_CONF._T[e][1] == i then
						if (not isCreature(e) and not isMovable(e) or not getThingPosition(e)) or not compPos(PORTAL_CONF.portals[i][1],getThingPosition(e)) then
							PORTAL_CONF._T[e] = nil
						end
					end
				end
			end

		end
	end
	addEvent(controlPortals,PORTAL_CONF.DELAY)

end

function onUse(cid, item, fromPosition, itemEx, toPosition)
	if not PORTAL_CONF._run then
		controlPortals()
		PORTAL_CONF._run = true
	end
	if item.actionid ~= 0 then
		return false --Also the key need to be used as a normal key with aid 0
	end

	local pos = getLastPathPos(getCreaturePosition(cid),toPosition  ,item.itemid == PORTAL_CONF.yellow[1] and PORTAL_CONF.yellow[3] or PORTAL_CONF.blue[3])
	if compPos(pos,getCreaturePosition(cid)) then
		PORTAL_CONF.portals = {}
	else
		if item.itemid == PORTAL_CONF.yellow[1] then
			doTransformItem(item.uid, PORTAL_CONF.blue[1])
			PORTAL_CONF.portals[1] = { pos,false,PORTAL_CONF.yellow[2] }
		else
			doTransformItem(item.uid, PORTAL_CONF.yellow[1])
			PORTAL_CONF.portals[2] = { pos,false,PORTAL_CONF.blue[2] }
		end
	end
	return true
end

Enjoy and report bugs, also do not post anywhere else without my authorization kay? :3

Printer · Mar 21, 2013

Wow it looks great

Mock · Mar 21, 2013

Video uploaded

[video=youtube;xPM8QigQ9rg]http://www.youtube.com/watch?v=xPM8QigQ9rg&feature=youtu.be[/video]

Michy · Mar 23, 2013

Mock you're the best scripter ^^! for me...

High Timez · Mar 24, 2013

when I go to use the keys it says "you cannot use this object"

Potar · Mar 24, 2013

Cyko said:
Wow it looks great

And it works ^_^

Anyway really nice idea, I'll change it for myself, like owner of tp (can use only the teleport), more than one in server (check owner of tp) and disappearing teleport after one minute.

Mock · Mar 25, 2013

dont use actionid in keys

Lbtg · Apr 16, 2013

how to make i , that i can use it also on pz zone ?

RaikND · Apr 16, 2013

omg usefull for "make new events" D:

Mock · Apr 18, 2013

i cand add it on next version.
but i see under your name
"Experienced Member "
And lua log, i think you are experienced so you can do it yoursef, i'm right?

Evil Puncker · Apr 19, 2013

Mock said:
i cand add it on next version.
but i see under your name
"Experienced Member "

anyone that got a certain post count is given the Experienced Member title

btw very funny script =)

obelivioa · Apr 19, 2013

i need help please fast

Lbtg · Apr 23, 2013

Mock said:
i cand add it on next version.
but i see under your name
"Experienced Member "
And lua log, i think you are experienced so you can do it yoursef, i'm right?

i just pretend

so you are not right Mr. Mock

Mock · Jun 26, 2013

Oh, okay... at the end of the week i am going to upgrade.
But... if you cant simply add one condition in this scripts, you're are just a lua script poser with the lua logo on avatar, i'm right? =]

tetra20 · Jun 26, 2013

is that real or i am dreaming

Mock Is Online ^^

Printer · Jun 26, 2013

This should do it

Lua:

--[[
 
Portal gun V 1.0
By: Mock the bear
 
 
Still improving...
:]
 
contact: <a href="mailto:[email protected]">[email protected]</a>
]]
 
PORTAL_CONF = {
        blockpz = false--If you want to be able using it in protection zone
	yellow	= {2091,28,3}, --Item, portal effect, shooting effect
	blue	= {2090,30,1}, --Item, portal effect, shooting effect
	DELAY=300, --300ms
 
	--dont touch on this!
 
	portals = {},
	_T = {},
	_run = false;
}
 
function isWalkable(pos, creature, proj, pz)-- by Nord
        if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end
        if getTopCreature(pos).uid > 0 and creature then return false end
		if (PORTAL_CONF.blockpz)then
			if getTileInfo(pos).protection and pz then return false, true end
		end
        local n = not proj and 3 or 2
        for i = 0, 255 do
                pos.stackpos = i
                local tile = getTileThingByPos(pos)
                if tile.itemid ~= 0 and not isCreature(tile.uid) then
                        if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
                                return false
                        end
                end
        end
        return true
end
 
 
function compPos(p1,p2) --comparate positions
	if p1.x == p2.x and p2.y == p1.y then
		return true
	end
end
function getLastPathPos(p1,p2,ef) --calculate the path to the p2
	local dir,oldP;
	local n = 0;
	local p = {x=p1.x,y=p1.y,z=p1.z}
 
	while not compPos(p,p2) do
		oldp = {x=p.x,y=p.y,z=p.z}
		dir = getDirectionTo(p,p2);
		p = getPosByDir(p,dir);
		if ef then
			doSendMagicEffect(p,ef)
		end
		n = n+1
		if not isWalkable(p, true, true,true) or n >= 20 then
			return oldp
		end
 
	end
	return p
end
function gerReversePortal(i) --derp
	return i == 1 and 2 or 1
end
function controlPortals() --controll everything
	local no = 0
	for i=1,2 do
		if PORTAL_CONF.portals[i] then
			doSendMagicEffect(PORTAL_CONF.portals[i][1],PORTAL_CONF.portals[i][3])
			PORTAL_CONF.portals[i][1].stackpos = 255;
			if PORTAL_CONF.portals[gerReversePortal(i)] then
				local t = getThingFromPos(PORTAL_CONF.portals[i][1],false)
				if t.uid ~= 0 and not PORTAL_CONF._T[t.uid] then
					local P =  PORTAL_CONF.portals[gerReversePortal(i)][1]
					doTeleportThing(t.uid,P)
					doSendMagicEffect(P,10)
					PORTAL_CONF._T[t.uid] = {gerReversePortal(i),isCreature(t.uid)}
					return addEvent(controlPortals,100)
				end
			end
			for e,b in pairs(PORTAL_CONF._T) do
				if (b and e and b[1]) then
					if PORTAL_CONF._T[e] and PORTAL_CONF._T[e][1] == i then
						if (not isCreature(e) and not isMovable(e) or not getThingPosition(e)) or not compPos(PORTAL_CONF.portals[i][1],getThingPosition(e)) then
							PORTAL_CONF._T[e] = nil
						end
					end
				end
			end
 
		end
	end
	addEvent(controlPortals,PORTAL_CONF.DELAY)
 
end
 
function onUse(cid, item, fromPosition, itemEx, toPosition)
	if not PORTAL_CONF._run then
		controlPortals()
		PORTAL_CONF._run = true
	end
	if item.actionid ~= 0 then
		return false --Also the key need to be used as a normal key with aid 0
	end
 
	local pos = getLastPathPos(getCreaturePosition(cid),toPosition  ,item.itemid == PORTAL_CONF.yellow[1] and PORTAL_CONF.yellow[3] or PORTAL_CONF.blue[3])
	if compPos(pos,getCreaturePosition(cid)) then
		PORTAL_CONF.portals = {}
	else
		if item.itemid == PORTAL_CONF.yellow[1] then
			doTransformItem(item.uid, PORTAL_CONF.blue[1])
			PORTAL_CONF.portals[1] = { pos,false,PORTAL_CONF.yellow[2] }
		else
			doTransformItem(item.uid, PORTAL_CONF.yellow[1])
			PORTAL_CONF.portals[2] = { pos,false,PORTAL_CONF.blue[2] }
		end
	end
	return true
end

strychi · Jul 28, 2013

can somebody please help my
i can make the teleport but if i make the second teleport the both teleports disapear and i cant make a new one

i got this error on my console

[28/07/2013 17:14:44] Lua Script Error: [Action Interface]
[28/07/2013 17:14:44] in a timer event called from:
[28/07/2013 17:14:44] data/actions/scripts/fibula/portalgun.lua

nUse
[28/07/2013 17:14:45] data/actions/scripts/fibula/portalgun.lua:78: attempt to call global 'getThingFromPos' (a nil value)
[28/07/2013 17:14:45] stack traceback:
[28/07/2013 17:14:45] [C]: in function 'getThingFromPos'
[28/07/2013 17:14:45] data/actions/scripts/fibula/portalgun.lua:78: in function <data/actions/scripts/fibula/portalgun.lua:71>

i use the [9.80-9.86] The Forgotten Server v0.2.15 (Mystic Spirit) as server

i realy wanne use this script but i not a scripter and dont have an idea to fix this

thanks for your help

Lbtg · Jul 28, 2013

i think this works only on 0.3.

strychi · Jul 31, 2013

can u make it for 0.2 plx i realy like this script ;s?

Lbtg · Jul 31, 2023

Printer said:

This should do it

Lua:

--[[
 
Portal gun V 1.0
By: Mock the bear
 
 
Still improving...
:]
 
contact: <a href="mailto:[email protected]">[email protected]</a>
]]
 
PORTAL_CONF = {
        blockpz = false--If you want to be able using it in protection zone
    yellow    = {2091,28,3}, --Item, portal effect, shooting effect
    blue    = {2090,30,1}, --Item, portal effect, shooting effect
    DELAY=300, --300ms
 
    --dont touch on this!
 
    portals = {},
    _T = {},
    _run = false;
}
 
function isWalkable(pos, creature, proj, pz)-- by Nord
        if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end
        if getTopCreature(pos).uid > 0 and creature then return false end
        if (PORTAL_CONF.blockpz)then
            if getTileInfo(pos).protection and pz then return false, true end
        end
        local n = not proj and 3 or 2
        for i = 0, 255 do
                pos.stackpos = i
                local tile = getTileThingByPos(pos)
                if tile.itemid ~= 0 and not isCreature(tile.uid) then
                        if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
                                return false
                        end
                end
        end
        return true
end
 
 
function compPos(p1,p2) --comparate positions
    if p1.x == p2.x and p2.y == p1.y then
        return true
    end
end
function getLastPathPos(p1,p2,ef) --calculate the path to the p2
    local dir,oldP;
    local n = 0;
    local p = {x=p1.x,y=p1.y,z=p1.z}
 
    while not compPos(p,p2) do
        oldp = {x=p.x,y=p.y,z=p.z}
        dir = getDirectionTo(p,p2);
        p = getPosByDir(p,dir);
        if ef then
            doSendMagicEffect(p,ef)
        end
        n = n+1
        if not isWalkable(p, true, true,true) or n >= 20 then
            return oldp
        end
 
    end
    return p
end
function gerReversePortal(i) --derp
    return i == 1 and 2 or 1
end
function controlPortals() --controll everything
    local no = 0
    for i=1,2 do
        if PORTAL_CONF.portals[i] then
            doSendMagicEffect(PORTAL_CONF.portals[i][1],PORTAL_CONF.portals[i][3])
            PORTAL_CONF.portals[i][1].stackpos = 255;
            if PORTAL_CONF.portals[gerReversePortal(i)] then
                local t = getThingFromPos(PORTAL_CONF.portals[i][1],false)
                if t.uid ~= 0 and not PORTAL_CONF._T[t.uid] then
                    local P =  PORTAL_CONF.portals[gerReversePortal(i)][1]
                    doTeleportThing(t.uid,P)
                    doSendMagicEffect(P,10)
                    PORTAL_CONF._T[t.uid] = {gerReversePortal(i),isCreature(t.uid)}
                    return addEvent(controlPortals,100)
                end
            end
            for e,b in pairs(PORTAL_CONF._T) do
                if (b and e and b[1]) then
                    if PORTAL_CONF._T[e] and PORTAL_CONF._T[e][1] == i then
                        if (not isCreature(e) and not isMovable(e) or not getThingPosition(e)) or not compPos(PORTAL_CONF.portals[i][1],getThingPosition(e)) then
                            PORTAL_CONF._T[e] = nil
                        end
                    end
                end
            end
 
        end
    end
    addEvent(controlPortals,PORTAL_CONF.DELAY)
 
end
 
function onUse(cid, item, fromPosition, itemEx, toPosition)
    if not PORTAL_CONF._run then
        controlPortals()
        PORTAL_CONF._run = true
    end
    if item.actionid ~= 0 then
        return false --Also the key need to be used as a normal key with aid 0
    end
 
    local pos = getLastPathPos(getCreaturePosition(cid),toPosition  ,item.itemid == PORTAL_CONF.yellow[1] and PORTAL_CONF.yellow[3] or PORTAL_CONF.blue[3])
    if compPos(pos,getCreaturePosition(cid)) then
        PORTAL_CONF.portals = {}
    else
        if item.itemid == PORTAL_CONF.yellow[1] then
            doTransformItem(item.uid, PORTAL_CONF.blue[1])
            PORTAL_CONF.portals[1] = { pos,false,PORTAL_CONF.yellow[2] }
        else
            doTransformItem(item.uid, PORTAL_CONF.yellow[1])
            PORTAL_CONF.portals[2] = { pos,false,PORTAL_CONF.blue[2] }
        end
    end
    return true
end

maybe someone can remake it for 1.4tfs + ? in revscript maybe ? :O

Action Portal Gun 1.0

Mock the bear (MTB)

if Printer then print("LUA") end

Mock the bear (MTB)

Member

Novacane

SocialWorld

Mock the bear (MTB)

Intermediate OT User

facebook.xenoria.org

Mock the bear (MTB)

Evil Puncker

Guest

New Member

Intermediate OT User

Mock the bear (MTB)

DD

if Printer then print("LUA") end

New Member

Intermediate OT User

New Member

Intermediate OT User

Similar threads