Scripting Error

[Deadly Serious]

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;

[[Nathan]]

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

[Home]

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

[shnk]

Trying changing:
Mouse(x, y, 5, 5, True)

to


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

[Deadly Serious]

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 :/

[Failure]

Procedure Banking;
var
EssDTM: Integer;
begin;
if not openbanknpc then exit;
OpenBankNpc;
DepositAll;
begin;
EssDTM := DTMFromString('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbg JieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOAC jDgwBAAAyBUIYQ==');
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('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbg JieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOAC jDgwBAAAyBUIYQ==');
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 [CODE] Tags, if you post a Script post it within [SIMBA][//SIMBA] Tags if it's Simba or SCAR [SCAR][//SCAR]

[Deadly Serious]

Procedure Banking;
var
EssDTM: Integer;
begin;
if not openbanknpc then exit;
OpenBankNpc;
DepositAll;
begin;
EssDTM := DTMFromString('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbg JieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOAC jDgwBAAAyBUIYQ==');
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('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbg JieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOAC jDgwBAAAyBUIYQ==');
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 [CODE] 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

[Failure]

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 [CODE] Tag so it's easier :D

[Deadly Serious]

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 [CODE] 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.

[Failure]

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.

[Deadly Serious]

:)

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.

[Failure]

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('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbg JieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOAC jDgwBAAAyBUIYQ==');
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 ...

[Deadly Serious]

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

[Failure]

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

[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]

[Failure]

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('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbg JieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOAC jDgwBAAAyBUIYQ==');
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

[Deadly Serious]

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('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbg JieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOAC jDgwBAAAyBUIYQ==');
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.

[Failure]

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('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbg JieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOAC jDgwBAAAyBUIYQ==');
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;

[Deadly Serious]

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.)

[Failure]

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('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbg JieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOAC jDgwBAAAyBUIYQ==');
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.

[Deadly Serious]

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('mggAAAHicY2NgYChjZGCoAeJcIM4C4iogbg JieSDWhGIpIBaGirk6OTHYWVszyMnIMDjY2TGkJyUxxEREMOAC jDgwBAAAyBUIYQ==');
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.



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.

[Failure]

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.

[Deadly Serious]

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.

[Failure]

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)

[Deadly Serious]

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 :/

[Failure]

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('m5wEAAHictc47CoAwEEXRuAoXFHADioUavy j+UBRF3b03MIWVXQInxfCYeb5SqkIoIsRIUKLFgBkL1g87m9BL rkaBVHaEn4zN7zhx4xEXDmyyf0SHRu7nMMiEkb42E2jN7zni7r lq/NP6BUcFE2U=');

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

Pure Essence DTM.

DTMFromString('m/AEAAHictc7NBoBQEIbh0110ByUiKpFS6TaSSH9ExJHuvvcwi7R od4ZnMZ+ZMa5SKkWJGg3aD5NXKJAhgQ/vxfQBQkSIZTbHjgsaJw7JNswYMaBHJyasMnfInpY798cymguOR XbL5ud/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

[Mark]

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

[Failure]

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.

[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('m5wEAAHictc47CoAwEEXRuAoXFHADioUavy j+UBRF3b03MIWVXQInxfCYeb5SqkIoIsRIUKLFgBkL1g87m9BL rkaBVHaEn4zN7zhx4xEXDmyyf0SHRu7nMMiEkb42E2jN7zni7r lq/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.

[Mark]

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('m5wEAAHictc47CoAwEEXRuAoXFHADioUavy j+UBRF3b03MIWVXQInxfCYeb5SqkIoIsRIUKLFgBkL1g87m9BL rkaBVHaEn4zN7zhx4xEXDmyyf0SHRu7nMMiEkb42E2jN7zni7r lq/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('m5wEAAHictc47CoAwEEXRuAoXFHADioUavy j+UBRF3b03MIWVXQInxfCYeb5SqkIoIsRIUKLFgBkL1g87m9BL rkaBVHaEn4zN7zhx4xEXDmyyf0SHRu7nMMiEkb42E2jN7zni7r lq/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('m5wEAAHictc47CoAwEEXRuAoXFHADioUavy j+UBRF3b03MIWVXQInxfCYeb5SqkIoIsRIUKLFgBkL1g87m9BL rkaBVHaEn4zN7zhx4xEXDmyyf0SHRu7nMMiEkb42E2jN7zni7r lq/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

[Deadly Serious]

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.