Code-Bin #283 - Cmud ADO Mapper Code

Cmud ADO Mapper Code
Posted by: ADO Mapper | May 18, 2009 @ 6:49pm

Other Code

#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

Syntax Highlighting

[Open in new window]

Author Comments

none

Rating

4.57 / 8
146 Votes