i get this error
Line 313: [Error] (15809:8): Invalid number of parameters in script
its something with antiban
script here
i get this error
Line 313: [Error] (15809:8): Invalid number of parameters in script
its something with antiban
script here
~Hermen
You included invalid amount of params a parameter is the variables that is asked for when u use a function eg Move(X, Y); X and y is a parameter
i dont got any X,Y in my antiban procedure func
i already knew that but that the point i dont got any parameters in my antiban;
~Hermen
Here:
SCAR Code:////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k k k k k k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k k kk kk ooo tttttttttt k k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k kk kk o o tt ssssssss k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k kk kk o o tt s zzzzzzzzz k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k kkkk o o tt s zz k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k kk kk o o tt sssss zz k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k kk kk o o tt s zz k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k kk kk o o tt s zz k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k k kk kk o o tt ssssssss zzzzzzzzz k k\\\\\\\\\\\\\\\\\\\\\\
////////////////////////k k k ooo k k k\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////////////////////////// \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////////////////// \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////////////////////////instructions\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ /////////////////////
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
//////////////////////// \\\\\\\\\\\\\\\\\\\\\\
///////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
program KotszPrayerLeveler;
{.include SRL/SRL.scar}
{.include SRL/SRL/misc/trade.scar}
//setup
const
NumberOfUsers = 1; // = player [NUMBER] + 1 =? fill the ? in here
StartingPlayer = 0;//Player to start
BoneColor = 14013914;
HowMuchAntiBan= 5;//(recommend)let this.lesser number is lesser antiban 1-5 (choice of numbers)
Var
StartPlayer, Loads, NormalRandomsTime, FastRandomsTime, FindTalkTime, MyMark, FallyBuildingColor, buried : integer;
Var
Bone :integer;
Var
xp :extended;
Procedure DeclarePlayers;
Begin
StartPlayer := StartingPlayer;
NumberOfPlayers( NumberOfUsers );
CurrentPlayer := StartPlayer;
Players[0].Name :='mininghotxp';
Players[0].Pass :='honden';
Players[0].Nick :='hotx';
Players[0].Loc :='chaosaltar';
Players[0].Integer1 := 2;//Number of loads you want to do.
Players[0].Active:=True;
Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
End;
Procedure ChangeLocation(Location:string);
begin
Players[CurrentPlayer].Loc := location;
end;
//antiban procedure maked by me i am so good :D\\
procedure AntiBan(mins: Integer);
var
AntiBanCase: Integer;
begin
if ((TimeFromMark(PickUpMouseMark) / 1000) / 60 >= mins) then
AntiBanCase := Random(HowMuchAntiBan); (*1 over so it will do nothing sometimes*)
case AntiBanCase of
1: HoverSkill('Prayer', False);
2: PickUpMouse;
3: DragItem(1, 1 + Random(18));
4: GameTab(1 + Random(12));
5: DoEmote(1 + Random(20));
end;
end;
{is what the name says:P}
procedure KotszSignature;
begin
ClearDebug;
Writeln('//// kk kk ooo tttttttttt \\\\')
Writeln('//// kk kk o o tt ssssssss \\\\')
Writeln('//// kk kk o o tt s zzzzzzzzz \\\\')
Writeln('//// kkkk o o tt s zz \\\\')
Writeln('//// kk kk o o tt sssss zz \\\\')
Writeln('//// kk kk o o tt s zz \\\\')
Writeln('//// kk kk o o tt s zz \\\\')
Writeln('//// kk kk o o tt ssssssss zzzzzzzzz \\\\')
Writeln('//// ooo \\\\')
end;
//does what the name says:P\\
procedure KotszProggy;
begin
ClearDebug;
Writeln(' THANKS FOR USING MY KOTSZ PRAYER LEVELER!! ');
Writeln(' Please remember to post proggies/bugs ');
Writeln(' if you used this script ');
Writeln('////////////////////report\\\\\\\\\\\\\\\\\\\\\\\\');
Writeln(' Worked For : ' + ScriptTime2(2) );
Writeln(' Did ' + IntToStr(Loads) + ' Loads ');
Writeln(inttostr(players[currentplayer].integer1)+ ' bones buried ');
Writeln( + Floattostr(Xp)+ 'xp gained ' );
Writeln(' ');
SRLRandomsReport;
end;
{function findfast randoms credits to WT-Fawaki }
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 10 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
8 : If RC Then Result := True;
9: If FindTalk Then Result := True;
10: If HandleTrade Then Result := True;
End;
Wait(1);
end;
end;
{Credits to Wizzup}
Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
Var
I, iX,iY: Integer;
Begin
For I := iFrom To ITo Do
Begin
iX := Round(Distance * Sin(I * Pi / 180)) + 648;
iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
If GetColor(iX, iY) = 0 Then
Begin
Result := Result + 1;
End;
End;
End;
{credits to wizzup}
Function FindNormalRandomsTimeEx: Boolean;
Var
TempTime, Time1, Time2: LongInt;
Begin
TempTime := GetSystemTime;
If TempTime - NormalRandomsTime > 6000 Then
Begin
NormalRandomsTime := GetSystemTime;
Time1 := GetSystemTime;
Result := FindNormalRandoms;
Time2 := GetSystemTime;
Status('Calling FNRandoms; Took '+IntToStr(Time2-Time1)+'.');
Exit;
End;
If TempTime - FastRandomsTime > 2000 Then
Begin
FastRandomsTime := GetSystemTime;
Time1 := GetSystemTime;
Result := FindFastRandoms;
Time2 := GetSystemTime;
Status('Calling FFRandoms; Took '+IntToStr(Time2-Time1)+'.');
Exit;
End;
If TempTime - FindTalkTime > 500 Then
Begin
FindTalkTime := GetSystemTime;
Time1 := GetSystemTime;
Result := FindTalk;
Time2 := GetSystemTime;
Status('Calling FT; Took '+IntToStr(Time2-Time1)+'.');
Exit;
End;
End;
procedure LoadDTM; //The name of the procedure.
begin
Bone := DTMFromString('78DA63F4646660C862644006678E1E613002D' +
'220D1FF40C0E88CA906220B2381B42B504D1101352140353904D4' +
'F801D5A4E057030056770A2F');
end;
{procedure BuryBones bury the bones }
procedure BuryBones;
begin
Repeat
if(FindDTM(Bone, x, y,MIX1, MIY1, MIX2, MIY2 ))then
Begin
mouse(x,y,1,1,true);
Wait(1000+random(500));
Buried:=Buried + 1;
players[currentPlayer].integer1 := buried;
xp:=xp + 4.5;
end
else
Writeln('Cant find Bones.');
kotszProggy;
Until(Not(FindDTM(Bone, x, y, MIX1, MIY1, MIX2, MIY2)));
end;
{procedure GetBones to get bones from the ground }
procedure GetBones;
begin
if(not(LoggedIn))then
Exit;
repeat
if FindObj(x, y, 'one',BoneColor, 50) then Mouse(x, y, 1, 1, True);
Flag;
until (InvFull)
if(InvFull) then
writeln('inventory is full');
BuryBones;
end;
{procedure setupclient does wat the names says }
procedure SetUpClient;
begin
wait(500+random(500));
SetupSrl;
declareplayers;
wait(3000);
ActivateClient;
end;
{MainLoop}
begin
KotszSignature;
SetUpClient;
LoadDTM;
LoginPlayer;
HighestAngle;
MakeCompass('N');
AntiBan(60);
Repeat
If not LoggedIn Or WeAreDead then break
FindFastRandoms;
GetBones;
BuryBones;
if(Loads >= Players[CurrentPlayer].Integer1)then
begin
kotszProggy;
NextPlayer(True);
end;
end.
but why that (60) after it? thats was wrong? lol thanks
dude compile it still not working i did knew that
look at this Line 324: [Error] (15820:1): Identifier expected in script
its somthing with the main loop i dunno what
~Hermen
yeah but be careful its part of the Anti Ban!
I take no Responsibility!
read my post before your post and is the antiban okay you think? the otehr functions doesnt work i think scar is to up to date i got scar 3.11 and srl 3.81
what does the (60) means? after antiban
~Hermen
The (60) means 60 minutes i think because it was under the parameter "min" (minutes)
There are currently 1 users browsing this thread. (0 members and 1 guests)