SCAR Code:
program PoWeRmInEr;
{.include SRL/SRL.scar}
{.include SRL\SRL\Skill\Mining.scar}
{.include SRL\SRL\Misc\Trade.scar}
//JADS AnitBan Credit Goes To Him.
//Reads JADS tut they pwn.
//The Rest Of The Script Was Made By Me.
//Drop Procedure Is Really Slow
//Will Bulid On This Script In Future
Const
Loads = 2;//How Many Loads.
NumberOfUsers = 1;//How Many Players Are You Using.
StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
RudeProggy = True;//Use My Proggy Please For Reports.
Color = 4418452;//The Color Of The Ore You Want To Mine.
ClickRock = 5000;//How Long To Click Again
RunDir = 'S'; // RunDirection, choose it wisely.
Procedure DeclarePlayers;
//If Not Using Any Left Over Players Delete There Forms.
Begin
HowManyPlayers:= NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='UserName';
Players[0].Pass :='Password';
Players[0].Nick :='3-4 Letters Of Youre USername';
Players[0].Active:=True;
Players[1].Name :='Username';
Players[1].Pass :='Password';
Players[1].Nick :='3-4 Letters Of Youre Username';
Players[1].Active:= True;
Players[2].Name :='Username';
Players[2].Pass :='Password';
Players[2].Nick :='3-4 Letters Of Youre Username';
Players[2].Active:= True;
Players[3].Name :='Username';
Players[3].Pass :='Password';
Players[3].Nick :='3-4 Letters Of Youre Username';
Players[3].Active:= True;
Players[4].Name :='Username';
Players[4].Pass :='Password';
Players[4].Nick :='3-4 Letters Of Youre Username';
Players[4].Active:= True;
end;
Procedure Start;
Begin
Writeln('[]--------You Are Using RudeBois PowerMiner---------[]')
Writeln('(*&^%$Have Fun$%^&*')
Writeln('Post Proggies Please')
End;
Procedure FindRocks;
Begin
If
(FindColorSpiral(x,y,Color,2,2,418,304)) Then
Begin
Writeln('Found Ore Now Starting Script')
End Else
Writeln('Didnt Find Ore');
end;
Procedure MineRocks;
Begin
if
(findColorSpiral(x,y,Color,2,2,418,304)) Then
MMouse(x,y,3,3)
IsTextAt2(9,9,'Mine',20)
Mouse(x,y,2,2,True)
Wait(ClickRock + Random(500))
end;
procedure Inventory;
begin
repeat
MineRocks;
Until (InvFull)
end;
Function FindFastRandoms: Boolean; // By WT-Fakawi.
Var
i: Integer;
Begin
For I := 1 To 11 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;
8 : If RC Then
Result := True;
9 : If FindFight Then
Begin
Result := True;
RunTo(RunDir, True);
End;
10: If FindTalk Then
Result := True;
11: If HandleTrade Then
Result := True;
End;
Wait(1);
End;
End;
function DoAntiBan: Boolean;
begin
AntiBan;
wait(50 + random(100));
BoredEvery(3 + random(3));
wait(100 + random(100))
RotateEvery(7 + random(4));
wait(750 + random(250));
LeaveScreenEvery(5 + random(7));
wait(500 + random(150));
end;
Procedure DropOres;
begin
Mousespeed := 5;
DropTo(2,28);
mouseSpeed := 25;
end;
Begin
SetupSRL;
Repeat
DeclarePlayers;
Start;
FindRocks;
MineRocks;
Inventory;
FindFastRandoms;
DoAntiBan;
DropOres;
Until(False);
end.
How and were do i put it any help appreciated please