MoveEvent Real Fut Ball

[bomba]

Real Fut Ball

Script1:

function onStepIn(cid, item, pos)

dir = getPlayerLookDir(cid)


if dir == 0 then
doRemoveItem(item.uid,1)
pos.y = pos.y-1
doCreateItem(2109,1,pos)

elseif dir == 1 then
doRemoveItem(item.uid,1)
pos.x = pos.x+1
doCreateItem(2109,1,pos)

elseif dir == 2 then
doRemoveItem(item.uid,1)
pos.y = pos.y+1
doCreateItem(2109,1,pos)

elseif dir == 3 then
doRemoveItem(item.uid,1)
pos.x = pos.x-1
doCreateItem(2109,1,pos)


end
end

Script2:

<movevent event="StepIn" itemid="2109" script="ball.lua" />

Have BUGs, please repair the errors!

 

[Bondiski]

Cool, I diddn't have any erros, nice work!

 

[Colandus]

Shorten:

function onStepIn(cid, item, pos) 
	local dir = getPlayerLookDir(cid)
	local key = dir % 2 == 1 and "x" or "y"
	local newDir = isInArray({1, 2}, dir) and 1 or -1
	pos[key] = pos[key] + newDir
	doCreateItem(2109, 1, pos) 
end

 

[bomba]

Bug the ball in wall...

 

[Colandus]

Yes, I've already thought about it... But I don't wanna make it (right now), but maybe later if nobody does it before me

Edit:

-- Script by ~Colandus~ and ~Pedro B.~
 
function onStepIn(cid, item, pos)
    local dir = getPlayerLookDir(cid) 
    local key = dir % 2 == 1 and "x" or "y"
    local newDir = isInArray({1, 2}, dir)==TRUE and 1 or -1
    pos[key] = pos[key] + newDir
 
    local ret = queryTileAddThing(item.uid, pos)
    if(ret == RETURNVALUE_NOERROR) then
        doTeleportThing(item.uid, pos)
    end
    return TRUE
end

 

[bomba]

You it is a good Scripter.
All good English are scripters, already the good Brazilians are mappers.
I translating use, but of the one to understand what I say, hehehe
I wait that somebody obtains to arrange the error of the wall.

 

[Colandus]

I already did that, look at the script above, it has fixed the wallbug, but it was Pedro B (he's brazillian ). from another forum who made that fix, I only made the script shorter