action Portal gun

[Mock 22]

Bom eu fiz isso rapidamente então ainda não tem tanto recurso, em breve pretendo deixar parecido com a Portal gun do portals 1

 

Ela é uma action, e por enquanto só é interessante ter uma por server. Aliais, é mais uma ferrament de GM, não é muito legal deixar players usarem a vontade.

 

 

Seguinte, ela funciona no item Golden Key e Blue Key, mas só vai funcionar como portal gun se os items não tiverem actionid.

 

Em fim cortando preliminares aqui está um video o script e as tags.

 

 

Tags:

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

Script:

--[[

Portal gun V 1.0
By: Mock the bear


Still improving...
:]

contact: <a href="mailto:matheus.mtb7@gmail.com">matheus.mtb7@gmail.com</a>
]]

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

[Faelzdanil 102]

Sensacional gostei muito...

 

E por incrível que pareça me faz lembrar o jogo Transformice !

 

kkkkkkk

[Mock 22]

Mas oi? por que? oO