1. #LOCAL $xyvalues; #LOCAL $room_x; #LOCAL $room_y
  2. $room_x=@room_x; $room_y=@room_y
  3.  
  4. #SWITCH  ($direction="north") {$room_y=($room_y-440)}
  5.   ($direction="northeast") {$room_y=$room_y-440;$room_x=$room_x+440}
  6.   ($direction="east") {$room_x=$room_x+440} 
  7.   ($direction="southeast") {$room_y=$room_y+440;$room_x=$room_x+440} 
  8.   ($direction="south") {$room_y=$room_y+440}
  9.   ($direction="southwest") {$room_y=$room_y+440;$room_x=$room_x-440} 
  10.   ($direction="west") {$room_x=$room_x-440} 
  11.   ($direction="northwest") {$room_y=$room_y-440;$room_x=$room_x-440}
  12.   {#SAY "ERROR";#EXIT}
  13.  
  14. current_room_vnum=%roomvnum()
  15. #MAKEROOM $direction
  16. #WAIT 100
  17. new_room_vnum=%roomvnum()  
  18.  
  19. query = %concat("SELECT * FROM ObjectTbl WHERE ([ObjId] = ",@new_room_vnum,")")
  20.  
  21. //STANDARD CONNECTION
  22. #VAR rs %comcreate( "ADODB.Recordset")
  23. #CALL @rs.Open( @query, "mapper", 2, 2)
  24. #VAR Fields @rs.Fields
  25. //STANDARD CONNECTION
  26. #VAR rs("LabelDir").Value 4
  27. #VAR rs("X").Value $room_x
  28. #VAR rs("Y").Value $room_y
  29. #VAR rs("Dx").Value 264
  30. #VAR rs("Dy").Value 264
  31. #CALL @rs.Update
  32. #ECHO @checkupdate()
  33.  
  34. //STANDARD CONNECTION CLOSE
  35. #CALL @rs.close
  36. #VAR rs ""
  37. #VAR Fields ""
  38. //STANDARD CONNECTION CLOSE