Scripting Error

Printable View

Show 40 post(s) from this thread on one page

Scripting Error

I keep getting this error when compiling: [Error] (94:12): Type mismatch at line 93
Compiling failed.
Line 90: Failsafe;
Progress Report:
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);
Progress Report:
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;

12-30-2011, 11:21 PM
[Nathan]

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

Simba Code:

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

12-30-2011, 11:32 PM
shnk

Trying changing:

Code:

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

to

Code:

Mouse(x, y, 5, 5, True);
01-01-2012, 08:35 AM
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 :/

Simba Code:

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

Simba Code:

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 [CODE] Tags, if you post a Script post it within [SIMBA][//SIMBA] Tags if it's Simba or SCAR [SCAR][//SCAR]

Quote:

Originally Posted by Failure

Simba Code:

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

Simba Code:

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

01-01-2012, 09:06 AM
Failure
Quote:

Originally Posted by 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.
Simba Code:
```
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
01-01-2012, 09:11 AM
Deadly Serious
Quote:
Originally Posted by Failure

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

Simba Code:

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.
01-01-2012, 09:14 AM
Failure
Quote:

Originally Posted by 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
Simba Code:
```
MouseItem(False);
```
I mostly use
Simba Code:
```
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.
```
01-01-2012, 09:22 AM
Deadly Serious
Quote:
Originally Posted by 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

Simba Code:

MouseItem(False);

I mostly use

Simba Code:

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

Code:

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.

Quote:

Originally Posted by 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

Code:

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.
Simba Code:
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 ...

01-01-2012, 09:34 AM
Deadly Serious

It's compiled, thanks for the help mate. I'll test it in 10 and see if it works :D
01-01-2012, 09:41 AM
Failure

Quote:

Originally Posted by 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
01-01-2012, 09:46 AM
Deadly Serious

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

Code:

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

Quote:

Originally Posted by Deadly Serious

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

Code:

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 ?
Simba Code:
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

Quote:
Originally Posted by 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 ?
Simba Code:
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.

Quote:

Originally Posted by 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.

Simba Code:

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;

01-01-2012, 10:08 AM
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?

Code:

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

Quote:

Originally Posted by Deadly Serious

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

Simba Code:

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.

Quote:
Originally Posted by Failure
Simba Code:
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.
Quote:

Originally Posted by Deadly Serious

Edit: What do you mean main inventory?

Code:

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.

01-01-2012, 10:39 AM
Failure

Quote:

Originally Posted by 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.
01-01-2012, 10:41 AM
Deadly Serious

Quote:

Originally Posted by 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.

Code:

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

I might need to research this more.
01-01-2012, 11:51 AM
Failure

Quote:

Originally Posted by 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.

Code:

[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)
01-01-2012, 12:00 PM
Deadly Serious

Quote:

Originally Posted by 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 :/

Show 40 post(s) from this thread on one page

All times are GMT. The time now is 05:26 PM.