#LOCAL $xyvalues; #LOCAL $room_x; #LOCAL $room_y
$room_x=@room_x; $room_y=@room_y
#SWITCH ($direction="north") {$room_y=($room_y-440)}
($direction="northeast") {$room_y=$room_y-440;$room_x=$room_x+440}
($direction="east") {$room_x=$room_x+440}
($direction="southeast") {$room_y=$room_y+440;$room_x=$room_x+440}
($direction="south") {$room_y=$room_y+440}
($direction="southwest") {$room_y=$room_y+440;$room_x=$room_x-440}
($direction="west") {$room_x=$room_x-440}
($direction="northwest") {$room_y=$room_y-440;$room_x=$room_x-440}
{#SAY "ERROR";#EXIT}
current_room_vnum=%roomvnum()
#MAKEROOM $direction
#WAIT 100
new_room_vnum=%roomvnum()
query = %concat("SELECT * FROM ObjectTbl WHERE ([ObjId] = ",@new_room_vnum,")")
//STANDARD CONNECTION
#VAR rs %comcreate( "ADODB.Recordset")
#CALL @rs.Open( @query, "mapper", 2, 2)
#VAR Fields @rs.Fields
//STANDARD CONNECTION
#VAR rs("LabelDir").Value 4
#VAR rs("X").Value $room_x
#VAR rs("Y").Value $room_y
#VAR rs("Dx").Value 264
#VAR rs("Dy").Value 264
#CALL @rs.Update
#ECHO @checkupdate()
//STANDARD CONNECTION CLOSE
#CALL @rs.close
#VAR rs ""
#VAR Fields ""
//STANDARD CONNECTION CLOSE