area
    SuckableNorth
    SuckableSouth
    SuckableEast
    SuckableWest
mob
    icon='Space Brawl.dmi'
    Login()
        src.loc=locate(2,2,1)
obj
    icon='Space Brawl.dmi'
    Airlock
        icon_state="Closed"
    verb
        Open_Airlock()
            set src in oview(1)
            OpenAirlock()
    proc
        OpenAirlock()
            for(var/area/SuckableNorth/N in world)
                new/turf/SuckNorth(N)
            for(var/area/SuckableSouth/S in world)
                new/turf/SuckSouth(S)
            for(var/area/SuckableEast/E in world)
                new/turf/SuckEast(E)
            for(var/area/SuckableWest/W in world)
                new/turf/SuckWest(W)
turf
    var
        suck_dir
    icon='Space Brawl.dmi'
    name=""
    SuckNorth
        suck_dir = NORTH
        Entered()
            Airlock()
    SuckSouth
        suck_dir = SOUTH
        Entered()
            Airlock()
    SuckEast
        suck_dir = EAST
        Entered()
            Airlock()
    SuckWest
        suck_dir = WEST
        Entered()
            Airlock()
    Wall
        icon_state="Wall"
        density = 1
    Floor
        icon_state="Floor"
turf
    proc
        Airlock()
            spawn(3) usr.Move(get_step(usr,suck_dir))