SRL Archive - Help

I keep getting this error when compiling: [Error] (94:12): Type mismatch at line 93
Compiling failed.
Line 90: Failsafe;

Procedure Alter;
Var
  x, y: integer;
begin
  if not loggedin then exit;
  Antiban;
  Failsafe;
  DidRedClick;

begin
  If FindObjCustom(x, y, ['Enter', 'Ent'], [15382402, 16628877, 14728085], 15) then
  begin
    Writeln('Found Alter!');
    Getmousepos(x, y);

    Case random(11) of
    0..9: mouse(x, y, 5, 5, True);
    10: begin
        Mouse(x, y, 5, 5, False);
        Waitoption('enter', 500);

    end;
   end;
  end;
end;
end;            

Second problem: I keep getting this error when compiling:
[Error] (95:5): Invalid number of parameters at line 94
Compiling failed.

It usually just says this when you haven't entered sufficient data or to much data but there's only suppose to be 6 places in radial walking :S

Line 94 = 1: RadialWalk(3095872, 110, 160, 60, 5, 5);

procedure WalkToAlter;
var
  TPA: TPointArray;
  i: Integer;
begin
  if not loggedin then exit; //this should be at the beginning of each of your procedures or functions
  Setrun(true); //this turns run on
  for i := 1 to 5 do //if you don't know what this is, look up my tut on loops ;)

begin  RadialWalk(i)
    1: RadialWalk(3095872, 110, 160, 60, 5, 5);
    2: RadialWalk(2905681, 240, 280, 60, 5, 5);
    3: RadialWalk(2307126, 290, 360, 60, 5, 5);
    4: RadialWalk(2446161, 290, 350, 60, 5, 5);

  end;
end;
                                                                                                                     

the problem is in the method above this one. you likely forgot an "end;"

Procedure Alter;
Var
  x, y: integer;
begin
  If FindObjCustom(x, y, ['Enter', 'Ent'], [15382402], 15) then
  begin
    Writeln('Found Alter!')
    Getmousepos(x, y)

    Case random(10)+5 of
    0-9: mouse(x,y, 5, 5, true);
    10:
      begin
        Mouse(x, y, 5, 5, True)
        Waitoption('ent', 500);
      end;
    end;
  end;
end;  

You missed 2 End;
If you use Case that will count as "begin" and one end; because of "begin"

~Home

Trying changing:

[COLOR="blue"]Mouse(x, y, 5, 5, True)[/COLOR]

to

[COLOR="Blue"]Mouse(x, y, 5, 5, True)[/COLOR][COLOR="Red"];[/COLOR]

I used all your suggestions and it ended up compiling correctly I knew it had something to do with the lack of end;'s but I forgot to count the one in the script.
I guess I need some more help :/

Procedure Banking;
var
EssDTM: Integer;
begin;
  if not openbanknpc then exit;
  OpenBankNpc;
  DepositAll;
begin;
  EssDTM := DTMFromString('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbgJieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOACjDgwBAAAyBUIYQ==');
  If FindEssDTM(DTM, x, y)
  begin;
  MouseItem(false)
  Chooseoption('ithdraw-All', 'All');
   end;
  end;
 end;

Isn't that supposed to be

Procedure Banking;
var
EssDTM: Integer;
begin;
  if not openbanknpc then exit;
  OpenBankNpc;
  DepositAll;
begin;
  EssDTM := DTMFromString('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbgJieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOACjDgwBAAAyBUIYQ==');
  If FindDTM(EssDTM, x, y, MSX1, MSY1, MSX2, MSY2) then //Changed it here used MainScreen for example but you need those coords for where to find the DTM.)
  begin;
  MouseItem(false)
  Chooseoption('ithdraw-All', 'All');
  FreeDTM(EssDTM); //You have to free your DTM's, else they take up memory one wouldn't harm so much though.
   end;
  end;
 end;

Also don't use the

 Tags, if you post a Script post it within [SIMBA][//SIMBA] Tags if it's Simba or SCAR [SCAR][//SCAR]

From: Failure

Procedure Banking;
var
EssDTM: Integer;
begin;
  if not openbanknpc then exit;
  OpenBankNpc;
  DepositAll;
begin;
  EssDTM := DTMFromString('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbgJieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOACjDgwBAAAyBUIYQ==');
  If FindEssDTM(DTM, x, y)
  begin;
  MouseItem(false)
  Chooseoption('ithdraw-All', 'All');
   end;
  end;
 end;

Isn't that supposed to be

Procedure Banking;
var
EssDTM: Integer;
begin;
  if not openbanknpc then exit;
  OpenBankNpc;
  DepositAll;
begin;
  EssDTM := DTMFromString('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbgJieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOACjDgwBAAAyBUIYQ==');
  If FindDTM(EssDTM, x, y, MSX1, MSY1, MSX2, MSY2) then //Changed it here used MainScreen for example but you need those coords for where to find the DTM.)
  begin;
  MouseItem(false)
  Chooseoption('ithdraw-All', 'All');
  FreeDTM(EssDTM); //You have to free your DTM's, else they take up memory one wouldn't harm so much though.
   end;
  end;
 end;

Also don't use the

 Tags, if you post a Script post it within [SIMBA][//SIMBA] Tags if it's Simba or SCAR [SCAR][//SCAR]

Thanks for the help, mate. Now I get this error when compiling.

[Error] (94:21): Unknown identifier 'x' at line 93
Compiling failed.
Line 93 = If FindDTM(EssDTM, x, y) then

From: Deadly Serious
Thanks for the help, mate. Now I get this error when compiling.

[Error] (94:21): Unknown identifier 'x' at line 93
Compiling failed.
Line 93 = If FindDTM(EssDTM, x, y) then

No problem I myself aint a great Scripter either learning alsobut I used DTM's quite often.

If FindDTM(EssDTM, x, y, MSX1, MSY1, MSX2, MSY2)

You need more coords.

And put errors in the

 Tag so it's easier :D

From: Failure
No problem I myself aint a great Scripter either learning alsobut I used DTM's quite often.

If FindDTM(EssDTM, x, y, MSX1, MSY1, MSX2, MSY2)

You need more coords.

And put errors in the

 Tag so it's easier :D

I've got a lot to learn :P I've only watched YoHo's first tuts and read a few other tutorials.
Thanks for all the responses.

From: Deadly Serious
I've got a lot to learn :P I've only watched YoHo's first tuts and read a few other tutorials.
Thanks for all the responses.

:)

So it's fixed now or still getting some errors (I can't help with RadialWalking, had trouble it myself…)

AlsoI aint famliar with

MouseItem(False);

I mostly use

Mouse(x, y, 5, 7, False);// The 5, 5, is to randomsize the pixels that it clicks, the 5 = X axis and the 7 = Y axis.

From: Failure
:)

So it's fixed now or still getting some errors (I can't help with RadialWalking, had trouble it myself…)

AlsoI aint famliar with

MouseItem(False);

I mostly use

Mouse(x, y, 5, 7, False);// The 5, 5, is to randomsize the pixels that it clicks, the 5 = X axis and the 7 = Y axis.

I use that mouse function as well usually. I started writing this script after watching my first video. So, some parts are very badly written and some parts are okay. I'll change that soon.
When you talked about how I needed more co ords

If FindDTM(EssDTM, x, y, MSX1, MSY1, MSX2, MSY2)

What do you mean? How do I get more co ords or do I just type in that line?
Because it still gives me the same "x error."
Sorry, my knowledge is very minimal.

From: Deadly Serious
I use that mouse function as well usually. I started writing this script after watching my first video. So, some parts are very badly written and some parts are okay. I'll change that soon.
When you talked about how I needed more co ords

If FindDTM(EssDTM, x, y, MSX1, MSY1, MSX2, MSY2)

What do you mean? How do I get more co ords or do I just type in that line?
Because it still gives me the same "x error."
Sorry, my knowledge is very minimal.

Well you could use the color picker for more Coords just the area where the DTM is quite sure in your inventory.

Procedure Banking;
var
EssDTM: Integer;
x, y:Integer;
begin;
  if not openbanknpc then 
  Begin
  OpenBankNpc;
  DepositAll;
  end else //It can be a lack of my knowledge I barley Script for Runescape but what you do here isn't right I guess, when the bank isn't open you exitfixed it though hopefully lol.
begin //Don't use ; after a begin.
  EssDTM := DTMFromString('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbgJieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOACjDgwBAAAyBUIYQ==');
  If FindDTM(EssDTM, x, y, MIX1, MIY1, MIX2, MIY2) then //Changed it here used MainInventory for example but you need those coords for where to find the DTM.)
  begin //You had a ";" after this beginning never do that that might caused the problem.
  WriteLn('Found the essence DTM');
  MouseItem(false)
  Chooseoption('ithdraw-All', 'All');
  FreeDTM(EssDTM); //You have to free your DTM's, else they take up memory one wouldn't harm so much though.
   end;
  end;
 end;

Try that else someone else has to help you because it seems fine for me …

It's compiled, thanks for the help mate. I'll test it in 10 and see if it works :D

From: Deadly Serious
It's compiled, thanks for the help mate. I'll test it in 10 and see if it works :D

Hehe great, good luck though I have my doubts about your banking procedure but we'll see/hear it you always can ask again :)

Cause from my logical brain you used DepositAll; soo all the things below is useless ? :p

After deposit all, it's suppose to withdraw the ess.
But I get this error, after it clicks "deposit all."

Successfully executed.
The following DTMs were not freed: [2]

From: Deadly Serious
After deposit all, it's suppose to withdraw the ess.
But I get this error, after it clicks "deposit all."

Successfully executed.
The following DTMs were not freed: [2]

Ohh yeah right, haha sorry I totally forgot about Deposit and Withdraw wasn't paying much attention sorry :p

About the error, I myself also have that constantly I don't know why, but does it cause a stop/crash ?

Procedure Banking;
var
EssDTM: Integer;
x, y:Integer;
begin;
  if not openbanknpc then 
  Begin
  OpenBankNpc;
  DepositAll;
  end else
begin //Don't use ; after a begin.
  EssDTM := DTMFromString('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbgJieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOACjDgwBAAAyBUIYQ==');
  If FindDTM(EssDTM, x, y, MIX1, MIY1, MIX2, MIY2) then //Changed it here used MainInventory for example but you need those coords for where to find the DTM.)
  begin //You had a ";" after this beginning never do that that might caused the problem.
  WriteLn('Found the essence DTM');
  MouseItem(false)
  Chooseoption('ithdraw-All', 'All');
   end;
  end;
  FreeDTM(EssDTM); //You have to free your DTM's, else they take up memory one wouldn't harm so much though.
 end;

Not sure if it makes a diffrence… :p

From: Failure
Ohh yeah right, haha sorry I totally forgot about Deposit and Withdraw wasn't paying much attention sorry :p

About the error, I myself also have that constantly I don't know why, but does it cause a stop/crash ?

Procedure Banking;
var
EssDTM: Integer;
x, y:Integer;
begin;
  if not openbanknpc then 
  Begin
  OpenBankNpc;
  DepositAll;
  end else
begin //Don't use ; after a begin.
  EssDTM := DTMFromString('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbgJieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOACjDgwBAAAyBUIYQ==');
  If FindDTM(EssDTM, x, y, MIX1, MIY1, MIX2, MIY2) then //Changed it here used MainInventory for example but you need those coords for where to find the DTM.)
  begin //You had a ";" after this beginning never do that that might caused the problem.
  WriteLn('Found the essence DTM');
  MouseItem(false)
  Chooseoption('ithdraw-All', 'All');
   end;
  end;
  FreeDTM(EssDTM); //You have to free your DTM's, else they take up memory one wouldn't harm so much though.
 end;

Not sure if it makes a diffrence… :p

It just stops after "deposit all." It doesn't seem to want to find or withdraw the ess :/
Oh, didn't see your edit, will check it now.

From: Deadly Serious
It just stops after "deposit all." It doesn't seem to want to find or withdraw the ess :/
Oh, didn't see your edit, will check it now.

Ohhmy bad fucked up I guess, I really don'tuse it for Runescape so I'm not really aware of the functions though you should make sure the bank screen is open.

Procedure Banking;
var
EssDTM: Integer;
x, y:Integer;
begin;
  if not openbanknpc then 
  Begin
  OpenBankNpc;
  DepositAll;
  end;
begin //Don't use ; after a begin.
  EssDTM := DTMFromString('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbgJieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOACjDgwBAAAyBUIYQ==');
  If FindDTM(EssDTM, x, y, MIX1, MIY1, MIX2, MIY2) then //Changed it here used MainInventory for example but you need those coords for where to find the DTM.)
  begin //You had a ";" after this beginning never do that that might caused the problem.
  WriteLn('Found the essence DTM');
  MouseItem(false)
  Chooseoption('ithdraw-All', 'All');
   end;
  end;
  FreeDTM(EssDTM); //You have to free your DTM's, else they take up memory one wouldn't harm so much though.
 end;

It still doesn't find or withdraw the essence. The "OpenBankNpc;" opens the bank for me.
Edit: What do you mean main inventory?

If FindDTM(EssDTM, x, y, MIX1, MIY1, MIX2, MIY2) then //Changed it here used MainInventory for example but you need those coords for where to find the DTM.)

From: Deadly Serious
It still doesn't find or withdraw the essence. The "OpenBankNpc;" opens the bank for me.

Procedure Banking;
var
EssDTM: Integer;
x, y:Integer;
begin
  if not openbanknpc then 
  Begin
  OpenBankNpc;
  DepositAll;
  end;
begin //Don't use ; after a begin.
  EssDTM := DTMFromString('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbgJieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOACjDgwBAAAyBUIYQ==');
  If FindDTM(EssDTM, x, y, MIX1, MIY1, MIX2, MIY2) then //Changed it here used MainInventory for example but you need those coords for where to find the DTM.)
  begin //You had a ";" after this beginning never do that that might caused the problem.
  WriteLn('Found the essence DTM');
  MouseItem(false)
  Chooseoption('ithdraw-All', 'All');
   end;
  end;
  FreeDTM(EssDTM); //You have to free your DTM's, else they take up memory one wouldn't harm so much though.
 end;

There was a ; after the begin… Doh if this wont work then I don't know then you should look up on how to bank since I don't have knowledge about those functions.

From: Failure

Procedure Banking;
var
EssDTM: Integer;
x, y:Integer;
begin
  if not openbanknpc then 
  Begin
  OpenBankNpc;
  DepositAll;
  end;
begin //Don't use ; after a begin.
  EssDTM := DTMFromString('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbgJieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOACjDgwBAAAyBUIYQ==');
  If FindDTM(EssDTM, x, y, MIX1, MIY1, MIX2, MIY2) then //Changed it here used MainInventory for example but you need those coords for where to find the DTM.)
  begin //You had a ";" after this beginning never do that that might caused the problem.
  WriteLn('Found the essence DTM');
  MouseItem(false)
  Chooseoption('ithdraw-All', 'All');
   end;
  end;
  FreeDTM(EssDTM); //You have to free your DTM's, else they take up memory one wouldn't harm so much though.
 end;

There was a ; after the begin… Doh if this wont work then I don't know then you should look up on how to bank since I don't have knowledge about those functions.

From: Deadly Serious

Edit: What do you mean main inventory?

If FindDTM(EssDTM, x, y, MIX1, MIY1, MIX2, MIY2) then //Changed it here used MainInventory for example but you need those coords for where to find the DTM.)

I changed it accordingly and it still didn't work. I'm getting the EssDTM out of the bank.

From: Deadly Serious
I changed it accordingly and it still didn't work. I'm getting the EssDTM out of the bank.

Yeh uhm I thought it was to deposit, what it basicly does now it searches the for the Essence in the Inventory let me get the function of the bank screen.

change the MIX1, MIY1, MIX2, MIY2, to your coords where the essence is or try MSX1, MSY1, MSX2, MSY1. Couldn't find the function of the bank screen but I guess it's BSX1 etc.

From: Failure
Yeh uhm I thought it was to deposit, what it basicly does now it searches the for the Essence in the Inventory let me get the function of the bank screen.

change the MIX1, MIY1, MIX2, MIY2, to your coords where the essence is or try MSX1, MSY1, MSX2, MSY1. Couldn't find the function of the bank screen but I guess it's BSX1 etc.

Thanks mate, I didn't actually think I needed coords for DTM. I'll test it out now.

Hm, I seem to get this with BSX1 etc.

[Error] (95:29): Unknown identifier 'BSX1' at line 94
Compiling failed.

I might need to research this more.

From: Deadly Serious
Thanks mate, I didn't actually think I needed coords for DTM. I'll test it out now.

Hm, I seem to get this with BSX1 etc.

[Error] (95:29): Unknown identifier 'BSX1' at line 94
Compiling failed.

I might need to research this more.

I told you I wasn't sure if that would work haha maybe MB (Main Bank) I wasjust thinking, so just get your own coordsor use MSX1 etc. I would rather togo for your own coords formore accuracy, and make a fail safe if it didn'tgot them make it search for in (The option where you can type and search)

From: Failure
I told you I wasn't sure if that would work haha maybe MB (Main Bank) I wasjust thinking, so just get your own coordsor use MSX1 etc. I would rather togo for your own coords formore accuracy, and make a fail safe if it didn'tgot them make it search for in (The option where you can type and search)

I tried MB, it compiled fine but still didn't find the essence. I used my own coords from the color picks and it just did the same thing. Opened bank, deposited all and then shut down. I might use a different operation rather then DTM. It isn't working at all for me :/

Hmm, where do you exactly bank? I really hope someone else helps you out, else I gotta try to make it myself first :p.

Does it opens the bank?

Might try to replace the

MouseItem(false)

To

Mouse(x, y, 5, 5, False);

I'm not sure which DTM you are using for Pure Essence or normal ones, this one works for normal

Normal Essence.

DTMFromString('m5wEAAHictc47CoAwEEXRuAoXFHADioUavyj+UBRF3b03MIWVXQInxfCYeb5SqkIoIsRIUKLFgBkL1g87m9BLrkaBVHaEn4zN7zhx4xEXDmyyf0SHRu7nMMiEkb42E2jN7zni7rlq/NP6BUcFE2U=');

Will get Pure essence, so will edit mypost after it.

Pure Essence DTM.

DTMFromString('m/AEAAHictc7NBoBQEIbh0110ByUiKpFS6TaSSH9ExJHuvvcwi7Rod4ZnMZ+ZMa5SKkWJGg3aD5NXKJAhgQ/vxfQBQkSIZTbHjgsaJw7JNswYMaBHJyasMnfInpY798cymguORXbL5ud/3z9QpBDB');

I tried the Script, for me it wont even open the bank nor Deposit all the items…

Nevermind forgot I had to be in safe mode lol

First when you receive an error like unknown identifier that means you have declared it in your var
X,Y:integer;

You would replace x or y with with the variable name you using.

Second. For your banking use this
BankTab(1);
WithDraw(0,0,28);
This will withdraw 28 items from you first bank slot in your fist bank tab.
I will post a better reply when I get on pc

Mouse(x, y, 5, 5, False);
  Wait(50+random(300));
  ChooseOption('All');

It took the item out for me fine, you might have to update the DTM.

Thanks Failure and Cruizing.
I wanted a more complex withdrawing system but I suck at coding and need a lot of help.
I'll test it out now, hopefully it works. Then all I have to worry about is the walking.

Procedure Banking;
var
EssDTM: Integer;
x, y:Integer;
begin;
  if not openbanknpc then exit;
  begin
  OpenBankNpc;
  DepositAll;
  end;
begin
  EssDTM := DTMFromString('m5wEAAHictc47CoAwEEXRuAoXFHADioUavyj+UBRF3b03MIWVXQInxfCYeb5SqkIoIsRIUKLFgBkL1g87m9BLrkaBVHaEn4zN7zhx4xEXDmyyf0SHRu7nMMiEkb42E2jN7zni7rlq/NP6BUcFE2U=');
  If FindDTM(EssDTM, x, y, MIX1, MIY1, MIX2, MIY2) then //Changed it here used MainScreen for example but you need those coords for where to find the DTM.)
  begin
  WriteLn('Found the essence DTM');
  Mouse(x, y, 5, 5, False);
  Wait(50+random(300));
  ChooseOption('All');
end;
 end;
FreeDTM(EssDTM);
 end;                                      

This is my latest version with all your changes. I'm using it in Varrock West Bank.
It opens the bank, deposits all and then just says: Successfully executed.
Without finding the ess or even right clicking it.

From: Deadly Serious
Thanks Failure and Cruizing.
I wanted a more complex withdrawing system but I suck at coding and need a lot of help.
I'll test it out now, hopefully it works. Then all I have to worry about is the walking.

Procedure Banking;
var
EssDTM: Integer;
x, y:Integer;
begin;
  if not openbanknpc then exit;
  begin
  OpenBankNpc;
  DepositAll;
  end;
begin
  EssDTM := DTMFromString('m5wEAAHictc47CoAwEEXRuAoXFHADioUavyj+UBRF3b03MIWVXQInxfCYeb5SqkIoIsRIUKLFgBkL1g87m9BLrkaBVHaEn4zN7zhx4xEXDmyyf0SHRu7nMMiEkb42E2jN7zni7rlq/NP6BUcFE2U=');
  If FindDTM(EssDTM, x, y, MIX1, MIY1, MIX2, MIY2) then //Changed it here used MainScreen for example but you need those coords for where to find the DTM.)
  begin
  WriteLn('Found the essence DTM');
  Mouse(x, y, 5, 5, False);
  Wait(50+random(300));
  ChooseOption('All');
end;
 end;
FreeDTM(EssDTM);
 end;                                      

This is my latest version with all your changes. I'm using it in Varrock West Bank.
It opens the bank, deposits all and then just says: Successfully executed.
Without finding the ess or even right clicking it.

first thing i see is this

  if not openbanknpc then exit;
  begin
  OpenBankNpc;
  DepositAll;
  end;

i would do

  if not openbanknpc then 
  begin
  exit;
  end else
  OpenBankNpc;
  DepositAll;
  end;

and for this the first begin is not needed

begin
  EssDTM := DTMFromString('m5wEAAHictc47CoAwEEXRuAoXFHADioUavyj+UBRF3b03MIWVXQInxfCYeb5SqkIoIsRIUKLFgBkL1g87m9BLrkaBVHaEn4zN7zhx4xEXDmyyf0SHRu7nMMiEkb42E2jN7zni7rlq/NP6BUcFE2U=');
  If FindDTM(EssDTM, x, y, MIX1, MIY1, MIX2, MIY2) then //Changed it here used MainScreen for example but you need those coords for where to find the DTM.)
  begin
  WriteLn('Found the essence DTM');
  Mouse(x, y, 5, 5, False);
  Wait(50+random(300));
  ChooseOption('All');
end;
 end;
FreeDTM(EssDTM);
 end;

Again i would do it like so…

  EssDTM := DTMFromString('m5wEAAHictc47CoAwEEXRuAoXFHADioUavyj+UBRF3b03MIWVXQInxfCYeb5SqkIoIsRIUKLFgBkL1g87m9BLrkaBVHaEn4zN7zhx4xEXDmyyf0SHRu7nMMiEkb42E2jN7zni7rlq/NP6BUcFE2U=');
  If FindDTM(EssDTM, x, y, MIX1, MIY1, MIX2, MIY2) then //Changed it here used MainScreen for example but you need those coords for where to find the DTM.)
  begin
  WriteLn('Found the essence DTM');
  Mouse(x, y, 5, 5, False);
  Wait(50+random(300));
  ChooseOption('All');
 end;
FreeDTM(EssDTM);
 end;

it all seems ok for me just a extra begin you didn't need
let me know how it goes

Edit: Watched another one of Yoho's tuts and it worked :D It was 4 years old but I thought I may as well give it a crack.
Now all I need to do is to get it to walk.