Invalid Number of Parameters

i got this error in a script i was using today

here is the line the error pointed me to


if(FishMode=2)or(FishMode=3)then

 

i think this should work

Code:

if (fishmode=2) or (fishmode=3) then

if that dosent work thats not the problom

 

i got that part fixed then i get the same error with this

Trys:=Trys+1;

 

Post the whole script.

 

Code:

////////////////////////////////////
// Catherby Fisher //
// v1.5 //
// By Taminoo //
// With some Help of Portal(god) //
// AND MUTANT CAUSE..hes the shiz//
////////////////////////////////////////////////////
// Start in Catherby bank for lobby for swordfish,//
// Most Western booth. //
// Have Cage, Harpoon, Or Net in first invin slot //
// MUST have atleast 1 extra cage/harpoon in 1st //
// bank slot!! //
////////////////////////////////////////////////////
// v1.0-Inital Testing //
// v1.1-Shark Fishing Added //
// v1.5-ALOT of updates //
////////////////////////////////////////////////////
program fisher;
{.include library2.txt}
{.include MRI.txt}
{.include boxbreaker2.txt}
var fishs,trips,trys:integer;

procedure banks;forward;
procedure catchfish;forward;
procedure tobank;forward;
procedure script;forward;

const
/////SET THESE///////////////////////////////////////
LampSkill = 'fishing'; //
Us = 1;//Set the username and password number //
Look = 5;//Number of times to look for lost item //
FishMode = 1;// 1 for Catherby Lobby //
// 2 for Catherby Swordfish/Tuna //
// 3 for Catherby Shark //
/////DONT TOUCH//////////////////////////////////////
road = 5592411; //
tree = 15891; //
bubbles = 15249544; //
bank = 3060683; //
/////////////////////////////////////////////////////

procedure report;
var RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt; Time:String;
begin
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60; RHours:=Minutes
div 60; Time:=inttostr(Seconds)+' Seconds';
avtime:=Seconds/trips;
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '
+inttostr(RSeconds)+' Seconds';
end;
clearreport;
addtoreport('SS Ulti Fisher v1.0');
addtoreport(' By Taminoo');
addtoreport('-------------------');
addtoreport('Worked for '+ Time);
addtoreport('Ran ' + inttostr(trips) + ' times');
if(FishMode=1)then
addtoreport('Fished & Banked ' + inttostr(fishs) + ' Lobbies');
if(FishMode=2)then
addtoreport('Fished & Banked ' + inttostr(fishs) + ' Swordfish or Tuna');
if(FishMode=3)then
addtoreport('Fished & Banked ' + inttostr(fishs) + ' Sharks');
end;
end;

procedure runaway;
begin
mouse(701,84,0,0,true)
wait(5000)
mouse(610,78,0,0,true)
catchfish;
end;

Procedure StandStill;
begin
Mouse(647,82,2,2,true);
wait(3000);
end;

procedure Randoms;
begin
if(FishEquip)then
begin
repeat
if(FishMode=1)then
PickUpObject('Take Lob','Lobster Pot',607847)
if (fishmode=2) or (fishmode=3) then
PickUpObject('Take Harpoon',942722)
Trys:=Trys+1;
until(Look=Trys)
if(Look=Trys)then
ToBank;
end;
FindMiscRandoms;
if(FindText)then
begin
Talk;
end
FindStrangeBox;
login(Us);
if(Fight)then
begin
ToBank;
Banks;
Script;
end;
if(Dead)then
begin
Logout;
end;
UseLamp(LampSkill);
end;
procedure tofish;
begin
if(FishMode=1)or(FishMode=2)or(FishMode=3)then
begin
randoms;
if(findcolor(x,y,road,677,95,695,102))then
Mouse(x,y,0,0,true)
Flag;
repeat
randoms;
if(findcolor(x,y,road,667,85,690,90))then
Mouse(x,y,0,0,true)
Flag;
until(findcolor(x,y,tree,666,80,700,105))
randoms;
Mouse(680,108,0,0,true)
Flag;
end;
end;

procedure tobank;
begin
run(true)
Mouse(647,184,0,0,true)
if(FishMode=1)or(FishMode=2)or(FishMode=3)then
begin
randoms;
if(findcolor(x,y,road,580,40,650,75))then
Mouse(x,y,0,0,true)
Flag;
repeat
randoms;
if(findcolor(x,y,road,610,80,640,95))then
Mouse(x,y,0,0,true)
Flag;
until(findcolor(x,y,bank,624,54,638,73))
randoms;
Mouse(630,73,0,0,true)
Flag;
end;
end;

procedure CatchFish;
begin
repeat
Randoms;
if(FishMode=1)then
begin
Randoms;
repeat
if(FindObj('Ca',bubbles,10))then
Mouse(x,y,0,0,false)
until(SearchForText(3,3,515,336,'Cage',2))
If(SearchForText(3,3,515,336,'Cage',2))then
ClickText(3,3,515,336,'Cage',2);
Randoms;
end;
if(FishMode=3)then
begin
Randoms;
repeat
if(FindObj('Net',bubbles,10))then
Mouse(x,y,0,0,false)
until(SearchForText(3,3,515,336,'Harpoon',2))
If(SearchForText(3,3,515,336,'Harpoon',2))then
ClickText(3,3,515,336,'Harpoon',2);
Randoms;
end;
if(FishMode=2)then
begin
Randoms;
repeat
if(FindObj('Cage',bubbles,10))then
Mouse(x,y,0,0,false)
until(SearchForText(3,3,515,336,'Harpoon',2))
If(SearchForText(3,3,515,336,'Harpoon',2))then
ClickText(3,3,515,336,'Harpoon',2);
Randoms;
end;
wait(5000)
if(InventoryCount=28)then
begin
ToBank;
Banks;
Script;
end;
Randoms;
wait(5000)
if(InventoryCount=28)then
begin
ToBank;
Banks;
Script;
end;
Randoms;
wait(5000)
if(InventoryCount=28)then
begin
ToBank;
Banks;
Script;
end;
Randoms;
wait(5000)
if(InventoryCount=28)then
begin
ToBank;
Banks;
Script;
end;
Randoms;
wait(5000)
if(InventoryCount=28)then
begin
ToBank;
Banks;
Script;
end;
Randoms;
StandStill;
until(InventoryCount=28)
end;

procedure banks;
begin
repeat
randoms;
openbank;
until(bankscreen)
depositall;
Mouse(93,77,0,0,true)
Mouse(459,44,0,0,true)
randoms;
fishs:=fishs+27;
end;

Procedure Thingy;
begin
If(FishMode=1)Then
begin
GetFishEquipColor('Pot')
end;
If(FishMode=2)or(FishMode=2)Then
begin
GetFishEquipColor('Harpoon')
end;
end;

Procedure CheckLib;
begin
If(Not(LibVersion='3.3'))Then
begin
WriteLn('Please Visit http://www.runesc.net')
WriteLn('To Get Updated Library2.txt Version 3.1')
repeat wait(100) until(false)
end;
end;

procedure script;
begin
tofish;
CatchFish;
tobank;
banks;
Trips:=trips+1;
report;
end;

begin
ST:=GetSystemTime;
loadlibrary('Internet Explorer');
BoxOpenerSetup;
LoadMRI;
CheckLib;
SetBrightness('V-Bright')
Thingy;
setchat('Off')
repeat
script;
until(false)
end.program New;
begin
end.

 

Get a different script, that one is extremely old.

 

are there any you know of. I want a catherby lobby catcher and banker

 

No, sorry.