TFS 1.1 Functions [GetPositionTowardsTarget, MoveCreaturesInArea, Dungeon System]

[kyoushirou]

Hi! These are my TFS 1.1 Functions I made to make my life easier. Just place them in global.lua if you want to use them.
They are not professional, I'm just a self-taught amateur and this is not the best way to do this, I'm sure.
Also, some of them are just to save me the trouble of repeating longer code that I use a lot.

If you'd like to share them somewhere else, credit me please. Zealan or Kyoushirou is fine, I go by both.

function GetPositionTowardsTarget(cid)
Returns the position closest to you that is in the direction towards your target.

function GetPositionTowardsTarget(cid)
    if (not isCreature(cid)) or (getCreatureTarget(cid) == nil) then
        print('You have either not defined target or cid.')
        return false
    else
        local PlayerPos = getCreaturePosition(cid)
        local targetPos = getCreaturePosition(getCreatureTarget(cid))
                    if(PlayerPos.x == targetPos.x) and (PlayerPos.y < targetPos.y) then
                        return {x = PlayerPos.x, y = PlayerPos.y+1, z = PlayerPos.z}
                    elseif(PlayerPos.x == targetPos.x) and (PlayerPos.y > targetPos.y) then
                        return {x = PlayerPos.x, y = PlayerPos.y-1, z = PlayerPos.z}
                    elseif(PlayerPos.x < targetPos.x) and (PlayerPos.y == targetPos.y) then
                        return {x = PlayerPos.x+1, y = PlayerPos.y, z = PlayerPos.z}
                    elseif(PlayerPos.x > targetPos.x) and (PlayerPos.y == targetPos.y) then
                        return {x = PlayerPos.x-1, y = PlayerPos.y, z = PlayerPos.z}
                    elseif(PlayerPos.x > targetPos.x) and (PlayerPos.y > targetPos.y) then
                        return {x = PlayerPos.x-1, y = PlayerPos.y-1, z = PlayerPos.z}
                    elseif(PlayerPos.x > targetPos.x) and (PlayerPos.y < targetPos.y) then
                        return {x = PlayerPos.x-1, y = PlayerPos.y+1, z = PlayerPos.z}
                    elseif(PlayerPos.x < targetPos.x) and (PlayerPos.y < targetPos.y) then
                        return {x = PlayerPos.x+1, y = PlayerPos.y+1, z = PlayerPos.z}
                    elseif(PlayerPos.x < targetPos.x) and (PlayerPos.y > targetPos.y) then
                        return {x = PlayerPos.x+1, y = PlayerPos.y-1, z = PlayerPos.z}
                    end
    end
end

MoveCreaturesInArea(AreaCenterPosition, rangeX, rangeY, destination)
Moves any creatures inside target area to target position.

function MoveCreaturesInArea(AreaCenterPosition, rangeX, rangeY, destination)
local creatures = getSpectators(AreaCenterPosition, rangeY, rangeX, nil, nil)
    if creatures ~= nil then
        for i, pid in ipairs(creatures) do
            doTeleportThing(pid, destination)
        end
    end 
end

function MoveCreaturesInAreaWithEffect(AreaCenterPosition, rangeX, rangeY, destination, effect)
Same as the previous, but also sends a distanceshoot to the target positon.

function MoveCreaturesInAreaWithEffect(AreaCenterPosition, rangeX, rangeY, destination, effect)
local creatures = getSpectators(AreaCenterPosition, rangeY, rangeX, nil, nil)
    if creatures ~= nil then
        for i, pid in ipairs(creatures) do
            doTeleportThing(pid, destination)
            doSendDistanceShoot(getCreaturePosition(pid), destination, effect)
        end
    end 
end

function IsBossAlive(dungeonPosition, rangeX, rangeY, AcceptedNamesArray)
Simply checks if creature is alive in certain area, checks by name. Uses an array of names that you have to define. Eg: local AcceptedNamesArray = {'bla', 'bla2'}

function IsBossAlive(dungeonPosition, rangeX, rangeY, AcceptedNamesArray)
local Boss = getSpectators(dungeonPosition, rangeY, rangeX, nil, nil)
    if Boss ~= nil then 
        for i, pid in ipairs(Boss) do
            if not isInArray(AcceptedNamesArray, getCreatureName(pid)) then
                return false
            else
                return true
            end
        end
    else 
        return false
    end
end

function IsDungeonFree(dungeonPosition, rangeX, rangeY, AcceptedNamesArray)
Same thing as previous function, but this one returns true if theres nobody with a different name inside.

function IsDungeonFree(dungeonPosition, rangeX, rangeY, AcceptedNamesArray)
local creaturesinside = getSpectators(dungeonPosition, rangeY, rangeX, nil, nil)
    if creaturesinside ~= nil then 
        for i, pid in ipairs(creaturesinside) do
            if not isInArray(AcceptedNamesArray, getCreatureName(pid)) then
                return false
            else
                return true
            end
        end
    else 
        return true
    end
end

function CleanDungeon(dungeonPosition, rangeX, rangeY)
Removes creatures in an area

function CleanDungeon(dungeonPosition, rangeX, rangeY)
local creatures = getSpectators(dungeonPosition, rangeY, rangeX, nil, nil)
    if creatures ~= nil then
        for i, pid in ipairs(creatures) do
            doRemoveCreature(pid)
        end
    end 
end