im really confused
Line 57: [Error] (14506:51): Invalid number of parameters in script
SCAR Code:
program Hidecrafter;
{.include SRL/SRL.scar}
var
Needle: Integer;
HardLeather: Integer;
Hidesdone: Integer;
TotalXp: Integer;
const
HowManyLoads = 10;
Direction = 'N'; //compass
Procedure Declareplayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers );
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='.';
Players[0].Active:=True;
Players[0].String2:=''; //bank pin if any
end;
procedure LoadBitmaps;
begin
Hardleather := BitmapFromString(32, 32, 'z78DAE598C10EC32008865FA940B7' +
'ACD72DBEFF2B2D593DD86C182C08DA71F86FD6EFD3262ACB62522' +
'0C8D12AB3D18A095EF51CCC0868238474488145D5C86BB513DD90' +
'72AA2D3AEFCE2FE63ABFC222E7E70B462EF3F2F3CC120B0D7FEDE' +
'FB2268FB18019F9F7C4840FD89CF83BB8B8AEBF37FF597209BF91' +
'05C3AF230FE5372077B418825F7B5F3AD40AF4C47B9885D8E5DAF' +
'C6506F00B5C38FE7DC66F0B9591869F490D7FB38B0BF939FE062F' +
'17FEF2FC9A963F5B18F36B5C8AB1ADF7FF11F8F5EFAF580BDBF7A' +
'F277F8FFEC3B4FCCD2EFAD3C1A5A3059C91863FB4AF08A27E1163' +
'31648F171AF34FEB0D19EDE5C7');
end;
procedure Report;
begin
SRLRandomsReport;
WriteLn(' Rebels Hidescrafter Report')
WriteLn(' Running Time: ' + (TimeRunning) + '')
WriteLn(' Hidescrafted: ' + IntToStr(Hidesdone) + '')
WriteLn(' XP Gained: ' + IntToStr(TotalXP) + '')
end;
procedure withdrawhides;
begin
OpenBank;
If(PinScreen)Then
InPin(Players[CurrentPlayer].String2);
If(FindBitmap(hardleather,x,y,MSX1,MSY1,MSX2,MSY2))Then
Mouse(x,y,1,1,true)
Wait(100 + Random(200))
ClickOption('All', 1)
closebank;
end;
begin
SetUpSRL;
DeclarePlayers;
Loadbitmaps
loginplayer;
withdrawhides;
end.