//Just in case
IfSpawned
  tmpargument = passage
  ClosePassage

// Someone cast an unlock spell
IfOrdered
  tmpx = selforder
  tmpy = 491  // The unique code for an unlock order
  IfXIsEqualToY
      tmpargument = passage
      OpenPassage
      tmpargument = 0
      SendMessageNear

// ZZ> This function makes the door open if its passage is open
KeepAction			//
tmpargument = passage		// Is the passage clear?
IfPassageOpen			// 
  tmpargument = 0		  //
  IfStateIs			  // State 0 ( Closed )
    tmpargument = ACTIONMG	    //
    DoAction			    //
      tmpargument = 1		      // Open it
      SetState			      //
      tmpargument = 0		      //
      tmpdistance = 11025	      //
      PlaySound			      //
      tmpargument = 1		      //
      PlaySound			      //
Else
  tmpargument = 1		  //
  IfStateIs			  // State 1 ( Open )
    tmpargument = ACTIONMJ	    // 71 is the code for MJ
    DoAction			    //
      tmpargument = 0		      // Close it
      SetState			      //
End				// Finished with this character
