while (x > (global.island_x[1]+global.island_size[1]) or x < (global.island_x[1]-global.island_size[1]))
   {
   x = irandom(room_width)
   }
while (y > (global.island_y[1]+global.island_size[1]) or y < (global.island_y[1]-global.island_size[1]))
   {
   y = irandom(room_height)
   }