whenever i tried putting in antiban it said unkown identifiers so i put in SetupSRLAntiBan; in the script and then i got Duplicate identifier RandomRClick in script how can i fix this?
whenever i tried putting in antiban it said unkown identifiers so i put in SetupSRLAntiBan; in the script and then i got Duplicate identifier RandomRClick in script how can i fix this?
SCAR Code:// antirandom antiban
// Just fill in monster colors, declare players and hit run
program Autofight;
{.include SRL/SRL.Scar}
{.include SRL/SRL/core/AntiBan.scar}
var
kills:Integer;
const
MonsterColor1 = 8617351;
MonsterColor2 = 6976114;
procedure DeclarePlayers;
begin
HowManyPlayers := 5; // number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 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: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure one;
begin
if(FindColor(x,y,MonsterColor1,MSX1,MSY1,MSX2,MSY2))Then
begin
MMouse(x,y,2,2);
if(IsUpText('Attack'))then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,false);
Chooseoptionex('Attack');
kills:=kills + 1
end;
end;
end;
Procedure AntiBan;
var
DBanMe: Integer;
begin
DBanMe:= Random(10);
case DBanMe of
0: RandomRClickEvery(2 + Random(13));
1: HoverSkill('Mining', False);
2: RandomChatEvery(10 + Random(5));
3: RotateEvery(20 + Random(10));
4: LeaveScreenEvery(5 + Random(5));
5: HoverEvery(15 + Random(5), 'Attack');
6: PickUpMouse;
7: BoredEvery(9 + Random(24));
8: DragItem(1, 1 + Random(18));
9: GameTab(1 + Random(12));
10: RotateEvery(7 + random(4));
end;
end;
procedure Two;
begin
if(FindColor(x,y,MonsterColor2,MSX1,MSY1,MSX2,MSY2))Then
begin
MMouse(x,y,2,2);
if(IsUpText('Attack'))then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,false);
Chooseoptionex('Attack');
kills:=kills + 1
end;
end;
end;
procedure Report;
begin
Writeln('~~~~~~~~~~~~~~~');
Writeln('Worked for ;'+ ScriptTime2(2))
Writeln('Killed'+IntToStr(kills)+ 'kills');
Writeln('~~~~~~~~~~~~~~~');
end;
begin
SetupSRL;
SetupSRLAntiBan;
repeat
One;
Two;
AntiBan;
DeclarePlayers;
LoginPlayer;
FindFastRandoms;
FindNormalRandoms;
until(false);
end.
Remove {.include SRL/SRL/core/AntiBan.scar}, its already included with SRL.scar
but when i do that it says unkown identifiers randomrclick and the rest of it![]()
Nope still doesnt work
sorry for long reply time had to go somewhere yesterday
so any help? still doesnt work
There are currently 1 users browsing this thread. (0 members and 1 guests)