tombow
04-16-2012, 09:55 PM
made my first bot just need a proggy to complete it now :) !its auto miner iv got it set to copper atm but i have options to change to iron or tin
program copperminer;
{$DEFINE SMART}
{.include SRL\SRL.simba}
{.Include SRL\SRL\Misc\Debug.simba}
//{$i SRL\SRL\Misc\paintsmart.simba}
//at the bottom set witch u wana mine minecop(copper)minetin(tin) mineiron(iron)
Const
SRLStats_Username = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
NumbOfPlayers= 1; //How many players are you using
StartPlayer= 0; //Player to start auoting with! (0 means first char)
LoadsTotal= 999999; //How Many Total Lods To Do Per Character!
Version= '1.0'; //NO TOUCHY! program new;
{************************************************* ******************************
procedure DeclarePlayers;
By: SRL
Description: SRL's Player Setup
************************************************** *****************************}
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Active := True;
Integers[1] := 4; //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
Integers[2] := 4; //Seconds to try mining rock before clicking another.
end;
end;
{************************************************* ******************************
Procedure StatsGuise(wat:String);
By: YoHoJo
Description: Combination of Status & Diguise
************************************************** *****************************}
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
{************************************************* ******************************
Function CheckAndClick(X,Y:Integer):Boolean;
By: YoHoJo
Description: Moves mouse to x,y, checks for uptext, and clikcs if found
************************************************** *****************************}
Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
Begin
MMouse(x, y, 5, 5);
If WaitUptext(UpText, 5000) Then
Begin
Result:=True;
GetMousePos(x, y);
Case RClick Of
'R':
Begin
Mouse(x, y, 0, 0, False);
WaitOption('ine', 2000);
FFlag(0);
End;
'L':
Begin
Mouse(x, y, 0, 0,True);
Wait(100+Random(50));
FFlag(0);
End;
End;
End;
End;
Procedure Antiban;
Begin
Case Random(100) Of
1: HoverSkill('magic', False);
2: HoverSkill('random', False);
3: Boredhuman;
4: Wait(2500 + random(4500));
5: HoverSkill('construction', False);
6: PickUpMouse;
7: RandomMovement;
8: RandomRClick;
end;
end;
Procedure Failsafe (reason:string);
begin
players[currentplayer].Loc:=reason;
logout;
stats_commit;
terminatescript;
end;
Function minecop:boolean;
var
x, y, Plusone, treecounter: integer;
begin
FindNormalRandoms;
plusone:= Invcount + 1;
If FindObjcustom(x, y, ['Mine', 'copper', 'e c'], [4687337, 4291285, 4943530], 7) Then
begin
StatsGuise('hooray we found the bastard');
getmousepos(x, y);
case random(1) of
0: mouse (x, y, 5, 5, true);
1: begin
mouse (x, y, 5, 5, false);
WaitOption ('mine', 1000);
end;
end;
flag;
marktime(treecounter);
Repeat
FindNormalRandoms;
statsGuise('Antiban and waiting');
Antiban;
wait(100);
if invcount=plusone then
writeln('we got one');
until (invcount=plusone) or (timefrommark(treecounter) > 9000)
End;
end;
Function minetin:boolean;
var
x, y, Plusone, treecounter: integer;
begin
FindNormalRandoms;
plusone:= Invcount + 1;
If FindObjcustom(x, y, ['Mine', 'tin', 'e t'], [8289924, 10592680, 5066064], 7) Then
begin
StatsGuise('hooray we found the tin');
getmousepos(x, y);
case random(1) of
0: mouse (x, y, 5, 5, true);
1: begin
mouse (x, y, 5, 5, false);
WaitOption ('mine', 1000);
end;
end;
flag;
marktime(treecounter);
Repeat
FindNormalRandoms;
statsGuise('Antiban and waiting');
Antiban;
wait(100);
if invcount=plusone then
writeln('we got one');
until (invcount=plusone) or (timefrommark(treecounter) > 9000)
End;
end;
Function mineiron:boolean;
var
x, y, Plusone, treecounter: integer;
begin
FindNormalRandoms;
plusone:= Invcount + 1;
If FindObjcustom(x, y, ['Mine', 'iron', 'e i'], [2847627, 3030632, 3557496], 7) Then
begin
StatsGuise('hooray we found the iron');
getmousepos(x, y);
case random(1) of
0: mouse (x, y, 5, 5, true);
1: begin
mouse (x, y, 5, 5, false);
WaitOption ('mine', 1000);
end;
end;
flag;
marktime(treecounter);
Repeat
FindNormalRandoms;
statsGuise('Antiban and waiting');
Antiban;
wait(100);
if invcount=plusone then
writeln('we got one');
until (invcount=plusone) or (timefrommark(treecounter) > 9000)
End;
end;
Procedure GoodbyeOres;
begin
repeat
DropAll;
until (invcount = 0);
end;
begin
Smart_Server := 54;
Smart_Members := true;
Smart_Signed := false;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayers;
repeat
minecop;
if InvFull Then
GoodbyeOres;
Until(false);
End.
program copperminer;
{$DEFINE SMART}
{.include SRL\SRL.simba}
{.Include SRL\SRL\Misc\Debug.simba}
//{$i SRL\SRL\Misc\paintsmart.simba}
//at the bottom set witch u wana mine minecop(copper)minetin(tin) mineiron(iron)
Const
SRLStats_Username = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
NumbOfPlayers= 1; //How many players are you using
StartPlayer= 0; //Player to start auoting with! (0 means first char)
LoadsTotal= 999999; //How Many Total Lods To Do Per Character!
Version= '1.0'; //NO TOUCHY! program new;
{************************************************* ******************************
procedure DeclarePlayers;
By: SRL
Description: SRL's Player Setup
************************************************** *****************************}
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Active := True;
Integers[1] := 4; //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
Integers[2] := 4; //Seconds to try mining rock before clicking another.
end;
end;
{************************************************* ******************************
Procedure StatsGuise(wat:String);
By: YoHoJo
Description: Combination of Status & Diguise
************************************************** *****************************}
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
{************************************************* ******************************
Function CheckAndClick(X,Y:Integer):Boolean;
By: YoHoJo
Description: Moves mouse to x,y, checks for uptext, and clikcs if found
************************************************** *****************************}
Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
Begin
MMouse(x, y, 5, 5);
If WaitUptext(UpText, 5000) Then
Begin
Result:=True;
GetMousePos(x, y);
Case RClick Of
'R':
Begin
Mouse(x, y, 0, 0, False);
WaitOption('ine', 2000);
FFlag(0);
End;
'L':
Begin
Mouse(x, y, 0, 0,True);
Wait(100+Random(50));
FFlag(0);
End;
End;
End;
End;
Procedure Antiban;
Begin
Case Random(100) Of
1: HoverSkill('magic', False);
2: HoverSkill('random', False);
3: Boredhuman;
4: Wait(2500 + random(4500));
5: HoverSkill('construction', False);
6: PickUpMouse;
7: RandomMovement;
8: RandomRClick;
end;
end;
Procedure Failsafe (reason:string);
begin
players[currentplayer].Loc:=reason;
logout;
stats_commit;
terminatescript;
end;
Function minecop:boolean;
var
x, y, Plusone, treecounter: integer;
begin
FindNormalRandoms;
plusone:= Invcount + 1;
If FindObjcustom(x, y, ['Mine', 'copper', 'e c'], [4687337, 4291285, 4943530], 7) Then
begin
StatsGuise('hooray we found the bastard');
getmousepos(x, y);
case random(1) of
0: mouse (x, y, 5, 5, true);
1: begin
mouse (x, y, 5, 5, false);
WaitOption ('mine', 1000);
end;
end;
flag;
marktime(treecounter);
Repeat
FindNormalRandoms;
statsGuise('Antiban and waiting');
Antiban;
wait(100);
if invcount=plusone then
writeln('we got one');
until (invcount=plusone) or (timefrommark(treecounter) > 9000)
End;
end;
Function minetin:boolean;
var
x, y, Plusone, treecounter: integer;
begin
FindNormalRandoms;
plusone:= Invcount + 1;
If FindObjcustom(x, y, ['Mine', 'tin', 'e t'], [8289924, 10592680, 5066064], 7) Then
begin
StatsGuise('hooray we found the tin');
getmousepos(x, y);
case random(1) of
0: mouse (x, y, 5, 5, true);
1: begin
mouse (x, y, 5, 5, false);
WaitOption ('mine', 1000);
end;
end;
flag;
marktime(treecounter);
Repeat
FindNormalRandoms;
statsGuise('Antiban and waiting');
Antiban;
wait(100);
if invcount=plusone then
writeln('we got one');
until (invcount=plusone) or (timefrommark(treecounter) > 9000)
End;
end;
Function mineiron:boolean;
var
x, y, Plusone, treecounter: integer;
begin
FindNormalRandoms;
plusone:= Invcount + 1;
If FindObjcustom(x, y, ['Mine', 'iron', 'e i'], [2847627, 3030632, 3557496], 7) Then
begin
StatsGuise('hooray we found the iron');
getmousepos(x, y);
case random(1) of
0: mouse (x, y, 5, 5, true);
1: begin
mouse (x, y, 5, 5, false);
WaitOption ('mine', 1000);
end;
end;
flag;
marktime(treecounter);
Repeat
FindNormalRandoms;
statsGuise('Antiban and waiting');
Antiban;
wait(100);
if invcount=plusone then
writeln('we got one');
until (invcount=plusone) or (timefrommark(treecounter) > 9000)
End;
end;
Procedure GoodbyeOres;
begin
repeat
DropAll;
until (invcount = 0);
end;
begin
Smart_Server := 54;
Smart_Members := true;
Smart_Signed := false;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayers;
repeat
minecop;
if InvFull Then
GoodbyeOres;
Until(false);
End.