createTor

function createTor ( object,x, y, z, rz, Command,Spieler1, Spieler2, Spieler3, Spieler4)
    if not object or not x or not y or not z or not Command then
        outputDebugString("Error: Bad Argument @createTor")
        return false
    end

    if _G["tor"..Command] then
        outputDebugString("Error: createTor: Command is using")
        return false
    end

    _G["tor"..Command] = createObject(object,x,y,z,0,0,rz)
    setElementData(_G["tor"..Command],"z",z)
    _G["torstatus"..Command] = "zu"

    if not Spieler1 then
        Spieler1 = "none"
    end
    setElementData(_G["tor"..Command],"Spieler1",Spieler1)
    if not Spieler2 then
        Spieler2 = "none"
    end
    setElementData(_G["tor"..Command],"Spieler2",Spieler2)
    if not Spieler3 then
        Spieler3 = "none"
    end
    setElementData(_G["tor"..Command],"Spieler3",Spieler1)
    if not Spieler4 then
        Spieler4 = "none"
    end
    setElementData(_G["tor"..Command],"Spieler4",Spieler4)

    local Spieler1 = getElementData(_G["tor"..Command],"Spieler1")
    local Spieler2 = getElementData(_G["tor"..Command],"Spieler2")
    local Spieler3 = getElementData(_G["tor"..Command],"Spieler3")
    local Spieler4 = getElementData(_G["tor"..Command],"Spieler4")


    if Spieler1 == "none" and Spieler2 == "none" and Spieler3 == "none" and Spieler4 == "none" then
        setElementData(_G["tor"..Command],"playertor",false)
    else
        setElementData(_G["tor"..Command],"playertor",true)
    end



    addCommandHandler ( Command,
        function ( player ,cmd)
            local pname = getPlayerName(player)

            --Tor Variablen
            local x,y = getElementPosition(_G["tor"..cmd])
            local z = getElementData(_G["tor"..cmd],"z")

            --Spielerabfrage Variablen

            local acces

            local Spieler1 = getElementData(_G["tor"..cmd],"Spieler1")
            local Spieler2 = getElementData(_G["tor"..cmd],"Spieler2")
            local Spieler3 = getElementData(_G["tor"..cmd],"Spieler3")
            local Spieler4 = getElementData(_G["tor"..cmd],"Spieler4")


            if getElementData(_G["tor"..cmd],"playertor") == false then
                acces = true
            elseif Spieler1 == pname or Spieler2 == pname or Spieler3 == pname or Spieler4 == pname then
                acces = true
            else
                acces = false
            end


            if acces == true then
                if _G["torstatus"..cmd] == "zu" then
                    moveObject(_G["tor"..cmd],2000,x,y,z-10)
                    _G["torstatus"..cmd] = "auf"
                else
                    moveObject(_G["tor"..cmd],2000,x,y,z)
                    _G["torstatus"..cmd] = "zu"
                end
            else
                outputChatBox("Du hast keine Berechtigung um das Tor zuoeffnen!",player,125,0,0)
            end
        end
    )
    return true
end