Gammon Forum

function process_exits (exits_str)
     -- generate a "room ID" by hashing the room name, description and exits
  -- break up exits into individual directions
exits = {}
 for exit in string.gmatch (exits_str, "%w+") do
    local ex = valid_direction [exit]
    if ex then
      exits [ex] = "-666"  -- don't know where it goes yet
end -- if
  end -- for
  if not rooms [uid] then
rooms [uid] = {name = name, roomdesc = uid, exits = exits, area=area, fillcolour=terrain_color[terrain], fillbrush=0, bordercolour=0xffffff}
  end -- if
  -- save so we know current room later on  
  current_room = uid


--  ColourNote ("rosybrown", "", roomdesc)
--  ColourNote ("olive", "", uid)
    
local room = rooms [current_room]
  
  -- not cached - see if in database
  if not room then
    -- print ("Loading room", current_room, "from database")
    room = load_room_from_database (current_room)
  end -- not in cache
   
    
  
  if not room then
    -- print ("Added room", uid)  -- debugging
    -- print ("Name", name)
    -- ColourNote ("rosybrown", "", roomdesc)
     
    db:exec ("BEGIN TRANSACTION;") 	

    save_room_to_database (current_room, name, roomdesc)
    save_exits_to_database (current_room, exits)
    
    db:exec ("COMMIT;") 

    -- get it back now
    room = load_room_from_database (current_room)

  end -- if room not there
  
  -- call mapper to draw this rom
  mapper.draw (uid)    -- redraw room with name

  -- try to work out where previous room's exit led  
  if expected_exit == "-666" and from_room then
    fix_up_exit ()
  end -- exit was wrong
  
end -- process_exits