SRL Archive - OSR Help

Hey guys I need a little help on this, I might attempt to make a script that runs down in the edgeville dungeon, now the only problem is the trapdoor it can either be one of 2;

1: The trapdoor is closed closed and you need to open it then it goes into form 2.

2: The trapdoor is open and you just need to click climb down.

Now im not sure what im doing here, I even pmed yojo and he replied with this:
Do a FindObj for Opening it, if not found, then do another FindObj for climbing down it Eg:

If (not(FindObj(open the trapdoor) Then
If (not(FindObj(go down) Then
Being
Writeln('we fucked up we lost get outta der!')
End; 

But that just isn't working for me for some reason today if anyone could help me out it would be greatly appreciated here are the two find obj functions;

 - OPENING THE TRAP DOOR
Begin
If FindObjCustom(X, Y, ['Open', 'Trap', 'Door'], [3884108, 3357506], 5) Then
Begin
  GetMousePos(X, Y);
  Case Random(2) Of
  0: Mouse (X, Y, 5, 5, True);
  1: Begin
      Mouse (X, Y, 5, 5, False);
      Wait(20+Random(150));
      ChooseOption ('pen');
    End;
   End;
  End;
 End;                       

If the trapdoor is open

begin
  If FindObjCustom(X, Y, ['Clim', 'Trap', 'oor'], [6193293, 2699318, 2239283], 5) Then
  Begin
  GetMousePos(X, Y);
  Case Random(2) Of
  0: Mouse (X, Y, 5, 5, True);
  1: Begin
      Mouse (X, Y, 5, 5, False);
      Wait(20+Random(150));
      ChooseOption ('down');