2 versions of a power miner the new 1 i rewrite most of it
well heres version 1
SCAR Code:
program PoWeRmInEr;
{.include SRL/SRL.scar}
{.include SRL\SRL\Skill\Mining.scar}
{.include SRL\SRL\Misc\Trade.scar}
//The Scar Noobs Antiban Modded By Me.
//Reads JADS And Pwnaz0rs tut they pwn.
//The Rest Of The Script Was Made By Me.
//Drop Procedure Is Really Slow.
//Will Add Better AutoColor.
//Start Logged Out For Better Results.
//Edited Wizzups Proggie Changed Some Bits.
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.
ClickRock = 5000;//How Long To Click Again
Run = 'N';// The direction to run when a fight is found
PickE = True;//Is The Pick Equiped
Responder = True;//Do You Want To AutoTalk.
//-------------------------Leve Please---------------------
Const
CopperColor = 3824768;
TinColor = 8553356;
ClayColor = 4553880;
IronColor = 2569045;
SilverColor = 12434885;
CoalColor = 2834753;
GoldColor = 1881051;
MithrilColor = 7359564;
AdamantColor = 6322272;
RuniteColor = 0;//POWERMINNING RUNE WTF
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 Leters Of Youre Name';
Players[0].String1 :='Tin'; //Will be mined mostly.
Players[0].Skill := ''; //Skill for genie lamp
Players[0].Active:=True;
Players[1].Name :='Username';
Players[1].Pass :='Password';
Players[1].Nick :='3 Leters Of Youre Name';
Players[1].String1 :='Tin'; //Will be mined mostly.
Players[1].Skill := ''; //Skill for genie lamp
Players[1].Active:=True;
Players[2].Name :='Username';
Players[2].Pass :='Password';
Players[2].Nick :='3 Leters Of Youre Name';
Players[2].String1 :='Tin'; //Will be mined mostly.
Players[2].Skill := ''; //Skill for genie lamp
Players[2].Active:=True;
Players[3].Name :='Username';
Players[3].Pass :='Password';
Players[3].Nick :='3 Leters Of Youre Name';
Players[3].String1 :='Tin'; //Will be mined mostly.
Players[3].Skill := ''; //Skill for genie lamp
Players[3].Active:=True;
Players[4].Name :='Username';
Players[4].Pass :='Password';
Players[4].Nick :='3 Leters Of Youre Name';
Players[4].String1 :='Tin'; //Will be mined mostly.
Players[4].Skill := ''; //Skill for genie lamp
Players[4].Active:=True;
Players[5].Name :='Username';
Players[5].Pass :='Password';
Players[5].Nick :='3 Leters Of Youre Name';
Players[5].String1 :='Tin'; //Will be mined mostly.
Players[5].Skill := ''; //Skill for genie lamp
Players[5].Active:=True;
end;
Procedure PowerMinerReport;
Var
Ores, Gasses, Talked: integer;
Begin
ClearDebug;
WriteLn('----------------------------------------------')
WriteLn(' Rudebois Powerminer ')
WriteLn('----------------------------------------------')
WriteLn('Ores Mined and Dropped : '+IntToStr(Ores));
If Gasses > 0 Then WriteLn('Number of avoided gasses: '+IntToStr(Gasses))
Writeln('You have reponded about '+IntToStr(Talked)+'times');
Writeln('Worked for '+ TimeRunning);
Writeln('----------------------------------------------')
WriteLn(' Post Proggies Please ')
WriteLn('----------------------------------------------')
WriteLn(' Thanks For Using My PowerMiner ')
WriteLn(' ---www.srl-forums.com--- ')
WriteLn('----------------------------------------------')
SRLRandomsReport;
End;
Procedure Start;
Begin
Writeln('----------------------------------------------------------')
Writeln(' _ _ _ _ ')
Writeln(' | | | | (_) | | ')
Writeln(' _ __ _ _ __ | | ___| |__ ___ _ __ _| | _____ __ ')
Writeln(' | __| | | |/ _` |/ _ \ _ \ / _ \| |/ _ | |/ _ \ \/ / ')
Writeln(' | | | |_| | (_| | __/ |_) | (_) | | (_| | | __/> < ')
Writeln(' |_| \__,_|\__,_|\___|_.__/ \___/|_|\__,_|_|\___/_/\_\ ')
Writeln('----------------------------------------------------------')
Writeln(' You Are Using Rudebois PowerMiner ')
Writeln(' "£$%^Please Enjoy^%$£" ')
Writeln(' ---Post Proggies Please--- ')
Writeln('----------------------------------------------------------')
If(Not(Loggedin)) then
LoginPlayer;
setChat('hide',1);
setChat('friends',2);
setChat('off',3);
SetRun(True);
HighestAngle;
PerfectNorth;
End;
procedure SetOreColor;
begin
case LowerCase(Players[CurrentPlayer].String1) of
'copper' : OreColor1 := CopperColor;
'tin' : OreColor1 := TinColor;
'clay' : OreColor1 := ClayColor;
'iron' : OreColor1 := IronColor;
'silver' : OreColor1 := SilverColor;
'coal' : OreColor1 := CoalColor;
'gold' : OreColor1 := GoldColor;
'mithril' : OreColor1 := MithrilColor;
'adamant' : OreColor1 := AdamantColor;
'runite' : OreColor1 := RuniteColor;
end;
end;
Procedure Mineing;
Begin
if
(findColorSpiral(x,y,OreColor1,2,2,418,304)) Then
MMouse(x,y,3,3)
IsUpText('ine');
Mouse(x,y,2,2,True)
Wait(ClickRock + Random(1000))
end;
procedure Inventory;
begin
repeat
Mineing;
Until (InvFull)
end;
procedure checkforgas; //The Scar Noob Gas Procedure
var
XX, YY :Integer;
gas :Integer;
begin
if(GasColors(XX, YY))then
begin
RunAwayDirection('N');
wait(9500+random(700));
RunBack;
end;
gas:= gas + 1
end;
procedure Randoms;
begin
If(FindFight) then
Runawaydirection(Run);
wait(15000+random(2500));
RunBack;
FindMod;
FindDemon;
FindMime;
FindScapeRune;
SolvePinball;
Dwarfitem;
FindName;
FindLamp(Players[CurrentPlayer].Skill);
FindTalk;
SolveBox;
//SolveFrog;
FindFrogCave;
FindNormalRandoms;// For the sandwich lady
end;
procedure AutoTalk;
Var
Talked: integer;
begin
if(InChat('Mining lvls?')) or
(inChat('Mining levels?')) or
(InChat('Mining lvl')) or
(inChat('Mining level')) or
(InChat('Mining level?')) or
(inChat('Mining lvls')) or
(inChat('Mining levels')) or
(InChat('Mine lvl?')) or
(InChat('Mine lvls?')) or
(InChat('Mine lvl')) or
(InChat('Mine lvls'))then
begin
TypeSend(IntToStr(GetSkillLevel('mining')))
Talked:= Talked + 1;
end;
end;
procedure AutoResponder;
Var
Talked: integer;
begin
if(Responder = True)then
begin
if (InChat('Wc lvls') or
InChat('Wc lvls?') or
InChat('Woodcut lvls') or
InChat('Woodcut lvls?') or
InChat('Woodcutting lvls') or
InChat('Woodcutting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
Talked:= Talked + 1;
end;
if (InChat('Attack lvls') or
InChat('Attack lvls?') or
InChat('Atack lvls') or
InChat('Atack lvls?') or
InChat('Attac lvls') or
InChat('Attac lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Attack')))
Talked:= Talked + 1;
end;
if (InChat('Defenc lvls') or
InChat('Defenc lvls?') or
InChat('Defence lvls') or
InChat('Defence lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Defence')))
Talked:= Talked + 1;
end;
if (InChat('Hp lvls') or
InChat('Hp lvls?') or
InChat('Hitpoint lvls') or
InChat('Hitpoint lvls?') or
InChat('Hitpoints lvls') or
InChat('Hitpoints lvls?') or
InChat('Hitp lvls') or
InChat('Hitp lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
Talked:= Talked + 1;
end;
if (InChat('Range lvls') or
InChat('Range lvls?') or
InChat('Rangin lvls') or
InChat('Rangin lvls?') or
InChat('Ranged lvls') or
InChat('Ranged lvls?') or
InChat('Ranging lvls') or
InChat('Ranging lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Ranged')))
Talked:= Talked + 1;
end;
if (InChat('Pray lvls') or
InChat('Pray lvls?') or
InChat('Prayer lvls') or
InChat('Prayer lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Prayer')))
Talked:= Talked + 1;
end;
if (InChat('Mage lvls') or
InChat('Mage lvls?') or
InChat('Mag lvls') or
InChat('Mag lvls?') or
InChat('Magic lvls') or
InChat('Magic lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Magic')))
Talked:= Talked + 1;
end;
if (InChat('Cook lvls') or
InChat('Cook lvls?') or
InChat('Cookin lvls') or
Inchat('Cookin lvls?') or
InChat('Cooking lvls') or
InChat('Cooking lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Cooking')))
Talked:= Talked + 1;
end;
if (InChat('Fletch lvls') or
InChat('Fletch lvls?') or
InChat('Fletching lvls') or
InChat('Fletching lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fletching')))
Talked:= Talked + 1;
end;
if (InChat('Firemaking lvls') or
InChat('FireMaking lvls?') or
Inchat('Fire making lvls') or
InChat('Fire making lvls')) then
begin
TypeSend(IntToStr(GetSkillLevel('Firemaking')))
Talked:= Talked + 1;
end;
if (InChat('Craft lvls') or
InChat('Craftt lvls?') or
InChat('Craftin lvls') or
InChat('Crafting lvls?') or
InChat('Crafting lvls') or
InChat('Crafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Crafting')))
Talked:= Talked + 1;
end;
if (InChat('Smelt lvls') or
InChat('Smelt lvls?') or
InChat('Smelting lvls') or
InChat('Smelting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Smelting')))
Talked:= Talked + 1;
end;
if (InChat('Rc lvls') or
InChat('Rc lvls?') or
InChat('Runecraft lvls') or
InChat('Runecraft lvls?') or
InChat('Runecrafting lvls') or
InChat('Runecrafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Runecraft')))
Talked:= Talked + 1;
end;
if (InChat('Wna b freinds?') or
InChat('Wna be freinds?') or
InChat('Wana b freinds?') or
InChat('Wana be freinds?') or
InChat('Want 2 b freinds?') or
InChat('Want 2 be freinds?') or
InChat('Want to b freinds?') or
InChat('Want to be freinds?')) then
begin
TypeSend('No ty')
Talked:= Talked + 1;
end;
if (InChat(Players[CurrentPlayer].Name)) then
begin
TypeSend('Yeah?')
Talked:= Talked + 1;
end;
if (InChat('lol') or
InChat('lmao') or
InChat('rofl') or
InChat('haha'))then
begin
TypeSend('lolz')
Talked:= Talked + 1;
end;
if (InChat('Hi' + (Players[CurrentPlayer].Name)) or
InChat('Hey' + (Players[CurrentPlayer].Name)) or
InChat('Hello' + (Players[CurrentPlayer].Name))) then
begin
TypeSend('Hi')
Talked:= Talked + 1;
end;
end;
if(not(Responder = True))then
end;
procedure AntiBanActions;
var
DBanMe: Integer;
begin
DBanMe:= Random(14);
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 DropOres;
Begin
if
PickE = True Then
Mousespeed := 5;
DropTo(1,28);
mouseSpeed := 25;
If
PickE = False then
Mousespeed := 5;
DropTo(2,28);
mouseSpeed := 25;
end;
Begin
SetupSRL;
Repeat
DeclarePlayers;
Start;
PowerMinerReport;
SetOreColor;
Mineing;
Inventory;
checkforgas;
Randoms;
AutoTalk;
AntiBanActions;
DropOres;
PowerMinerReport;
if (not(Loggedin)) then NextPlayer(False);
Until(False);
end.
heres no 2
SCAR Code:
{-Script Info:
# ScriptName = PowerMiner 3.03
# Author = Rudeboialex
# Description = SRL PowerMiner
# Build = 3.03
# Released = 27/04/07
# Comments = Will Powermine Any Rocks Except Rune
# Thanks to Rkroxpunk For Inspireing Me To Do This Update
# Thanks Pentti For Dropping procedure
# Thanks sumilion for gas procedure
}
program Powerminer;
{.include SRL/SRL.scar}
{.include SRL\SRL\Skill\Mining.scar}
{.include srl/srl/skill/Fighting.scar}
Const
Loads = 10;//How Many Loads To Do Per Player.
NumberOfUsers = 8;//How Many Players Are You Using.
StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
RunDir = 'N';//Direction To Run For Fights And Gas.
{-------------------------------------------------------------------------------------
AutoColor Levae Please
----------------------------------------------------------------------------------------}
Const
CopperColor = 3824768;
TinColor = 8553356;
ClayColor = 4553880;
IronColor = 2569045;
SilverColor = 12434885;
CoalColor = 2834753;
GoldColor = 1881051;
MithrilColor = 7359564;
AdamantColor = 6322272;
RuniteColor = 0;//POWERMINNING RUNE WTF
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 Leters Of Youre Name';
Players[0].String1 :='Iron'; // What Ore To Mine.
Players[0].String2 :='Tin'; // Another Ore To Mine.
Players[0].String1 :='Copper';// A Third Ore To mine.
Players[0].Skill := ''; //Skill for genie lamp .
Players[0].Active:=True;
Players[1].Name :='Username';
Players[1].Pass :='Password';
Players[1].Nick :='3 Leters Of Youre Name';
Players[1].String1 :='Iron'; // What Ore To Mine.
Players[1].String2 :='Tin'; // Another Ore To Mine.
Players[1].String1 :='Copper';// A Third Ore To mine.
Players[1].Skill := ''; //Skill for genie lamp
Players[1].Active:=True;
Players[2].Name :='Username';
Players[2].Pass :='Password';
Players[2].Nick :='3 Leters Of Youre Name';
Players[2].String1 :='Iron'; // What Ore To Mine.
Players[2].String2 :='Tin'; // Another Ore To Mine.
Players[2].String1 :='Copper';// A Third Ore To mine.
Players[2].Skill := ''; //Skill for genie lamp
Players[2].Active:=True;
Players[3].Name :='Username';
Players[3].Pass :='Password';
Players[3].Nick :='3 Leters Of Youre Name';
Players[3].String1 :='Iron'; // What Ore To Mine.
Players[3].String2 :='Tin'; // Another Ore To Mine.
Players[3].String1 :='Copper';// A Third Ore To mine.
Players[3].Skill := ''; //Skill for genie lamp
Players[3].Active:=True;
Players[4].Name :='Username';
Players[4].Pass :='Password';
Players[4].Nick :='3 Leters Of Youre Name';
Players[4].String1 :='Iron'; // What Ore To Mine.
Players[4].String2 :='Tin'; // Another Ore To Mine.
Players[4].String1 :='Copper';// A Third Ore To mine.
Players[4].Skill := ''; //Skill for genie lamp
Players[4].Active:=True;
Players[5].Name :='Username';
Players[5].Pass :='Password';
Players[5].Nick :='3 Leters Of Youre Name';
Players[5].String1 :='Iron'; // What Ore To Mine.
Players[5].String2 :='Tin'; // Another Ore To Mine.
Players[5].String1 :='Copper';// A Third Ore To mine.
Players[5].Skill := ''; //Skill for genie lamp
Players[5].Active:=True;
Players[6].Name :='Username';
Players[6].Pass :='Password';
Players[6].Nick :='3 Leters Of Youre Name';
Players[6].String1 :='Iron'; // What Ore To Mine.
Players[6].String2 :='Tin'; // Another Ore To Mine.
Players[6].String1 :='Copper';// A Third Ore To mine.
Players[6].Skill := ''; //Skill for genie lamp
Players[6].Active:=True;
Players[7].Name :='Username';
Players[7].Pass :='Password';
Players[7].Nick :='3 Leters Of Youre Name';
Players[7].String1 :='Iron'; // What Ore To Mine.
Players[7].String2 :='Tin'; // Another Ore To Mine.
Players[7].String1 :='Copper';// A Third Ore To mine.
Players[7].Skill := ''; //Skill for genie lamp
Players[7].Active:=True;
end;
{-------------------------------------------------------------------------------
Logs in Player And Write My Name In Debug Box
--------------------------------------------------------------------------------}
Procedure Start;
Begin
Writeln('----------------------------------------------------------')
Writeln(' _ _ _ _ ')
Writeln(' | | | | (_) | | ')
Writeln(' _ __ _ _ __ | | ___| |__ ___ _ __ _| | _____ __ ')
Writeln(' | __| | | |/ _` |/ _ \ _ \ / _ \| |/ _ | |/ _ \ \/ / ')
Writeln(' | | | |_| | (_| | __/ |_) | (_) | | (_| | | __/> < ')
Writeln(' |_| \__,_|\__,_|\___|_.__/ \___/|_|\__,_|_|\___/_/\_\ ')
Writeln('----------------------------------------------------------')
Writeln(' You Are Using Rudebois PowerMiner ')
Writeln(' "£$%^Please Enjoy^%$£" ')
Writeln(' ---Post Proggies Please--- ')
Writeln('----------------------------------------------------------')
if (not(Loggedin)) then LoginPlayer;
SetChat('hide', 1);
End;
procedure SetOreColor;
begin
case LowerCase(Players[CurrentPlayer].String1) of
'copper' : OreColor1 := CopperColor;
'tin' : OreColor1 := TinColor;
'clay' : OreColor1 := ClayColor;
'iron' : OreColor1 := IronColor;
'silver' : OreColor1 := SilverColor;
'coal' : OreColor1 := CoalColor;
'gold' : OreColor1 := GoldColor;
'mithril' : OreColor1 := MithrilColor;
'adamant' : OreColor1 := AdamantColor;
'runite' : OreColor1 := RuniteColor;
end;
case Lowercase(Players[CurrentPlayer].String2) of
'copper' : OreColor2 := CopperColor;
'tin' : OreColor2 := TinColor;
'clay' : OreColor2 := ClayColor;
'iron' : OreColor2 := IronColor;
'silver' : OreColor2 := SilverColor;
'coal' : OreColor2 := CoalColor;
'gold' : OreColor2 := GoldColor;
'mithril' : OreColor2 := MithrilColor;
'adamant' : OreColor2 := AdamantColor;
'runite' : OreColor2 := RuniteColor;
end;
case Lowercase(Players[CurrentPlayer].String3) of
'copper' : OreColor3 := CopperColor;
'tin' : OreColor3 := TinColor;
'clay' : OreColor3 := ClayColor;
'iron' : OreColor3 := IronColor;
'silver' : OreColor3 := SilverColor;
'coal' : OreColor3 := CoalColor;
'gold' : OreColor3 := GoldColor;
'mithril' : OreColor3 := MithrilColor;
'adamant' : OreColor3 := AdamantColor;
'runite' : OreColor3 := RuniteColor;
end;
end;
procedure HandleGas; //Ty Sumillion
var
TempMouseSpeed, GasTime: Integer;
begin
Writeln('Gas found!');
TempMouseSpeed := MouseSpeed;
MouseSpeed := 5;
Mouse(MMCX, MMCY, 5, 5, true);
MarkTime(GasTime);
MouseSpeed := TempMouseSpeed;
while(TimeFromMark(GasTime) < 35000)do
if(Random(20) > 15)then
IdleTime(500, 500, 0.4)
else
Wait(1000);
ReportVars[3] := ReportVars[3] + 1;
end;
Procedure PowerMinerReport;
Var
Ores, Gasses: integer;
Begin
ClearDebug;
WriteLn('----------------------------------------------')
WriteLn(' Rudebois Powerminer ')
WriteLn('----------------------------------------------')
WriteLn('Ores Mined and Dropped : '+IntToStr(Ores));
If Gasses > 0 Then WriteLn('Number of avoided gasses: '+IntToStr(Gasses))
Writeln('Worked for '+ TimeRunning);
WriteLn('Fights Ran Away From: '+IntToStr(Fights));
Writeln('----------------------------------------------')
WriteLn(' Post Proggies Please ')
WriteLn('----------------------------------------------')
WriteLn(' Thanks For Using My PowerMiner ')
WriteLn(' ---www.srl-forums.com--- ')
WriteLn('----------------------------------------------')
End;
Procedure SolveFight;
begin
if(InFight)then
begin
if(GetHp<GetSkillLevel('hitpoints'))then
begin
RunAwayDirection(RunDir)
Fights:=Fights+1
wait(40000+random(10000))
if(not(loggedIn))then
LogInPlayer;
wait(1000)
RunBack;
end;
end;
end;
Procedure Randoms;
begin
FindMod;
FindDemon;
FindMime;
FindScapeRune;
SolvePinball;
Dwarfitem;
FindName;
FindTalk;
SolveBox;
SolveFrog;
FindFrogCave;
FindNormalRandoms;// For the sandwich lady
end;
procedure AutoTalk;
Var
Talked: integer;
begin
if(InChat('Mining lvls?')) or
(inChat('Mining levels?')) or
(InChat('Mining lvl')) or
(inChat('Mining level')) or
(InChat('Mining level?')) or
(inChat('Mining lvls')) or
(inChat('Mining levels')) or
(InChat('Mine lvl?')) or
(InChat('Mine lvls?')) or
(InChat('Mine lvl')) or
(InChat('Mine lvls'))then
begin
TypeSend(IntToStr(GetSkillLevel('mining')))
Talked:= Talked + 1;
end;
end;
Procedure AntiBanActions;
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 DropOres;
var
OreBmp:Integer;
Mspeed:Integer;
begin
DwarfItem;
OreBmp := BitmapFromString(11, 11, 'z78DA73730301033070436' +
'2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC5022' +
'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0600F' +
'B599CC1');
Mspeed:=MouseSpeed;
MouseSpeed:=2
repeat
SolveFight;
Randoms;
AntiBanActions;
AutoTalk;
If(FindBitMapMaskTolerance(OreBmp,x,y,MIX1,MIY1,MIX2,MIY2,20,25))then
begin
MMouse(x,y,15,15)
getmousepos(x,y)
wait(50+random(50))
if(IsUpText('ore'))then
begin
Mouse(x,y,0,0,False)
ClickOption('Drop',2)
end
else
begin
Mouse(MIX1+4,MIY1-60,7,7,True)
end;
end;
wait(500+random(500))
until(not(FindBitMapMaskTolerance(OreBmp,x,y,MIX1,MIY1,MIX2,MIY2,20,25)))
MouseSpeed:=MSpeed;
end;
Procedure MainMineing;
Begin
Repeat
Randoms;
AntiBanActions;
AutoTalk;
HandleGas;
SolveFight;
Begin
If
(findColorSpiral(x,y,OreColor1,2,2,418,304)) or
(findColorSpiral(x,y,OreColor2,2,2,418,304)) or
(findColorSpiral(x,y,OreColor3,2,2,418,304)) Then
MMouse(x,y,3,3)
IsUpText('ine');
Mouse(x,y,2,2,True)
End
Until (InvFull)
If (InvFull) Then
DropOres;
End;
begin
SetupSRL;
Repeat
DeclarePlayers;
MainMineing;
PowerMinerReport;
if (not(Loggedin)) then NextPlayer(False);
Until (False);
End.