tpm1164
07-13-2007, 10:32 PM
its my first one so ya. credits to JAD for being an awesome teacher and itsChris917, thx guys.
-Simple Anti Randoms
-Proggy
-Working on MultiPlayer and Anti Ban
so ya here it is......
program PowerMiner;
{.include SRL/SRL.scar}
const
RockColor= 10948023;// color of the rock you are mining
PickWeilded= True;// is the pick weiled
MaxLoads= 5;// how many loads you want to do
var
loads: integer;
procedure AntiRandom;
begin
FindTalk;
FindNormalRandoms;
if (FindFight=True)then
begin
RunAwayDirection('N');
Wait(5000+random(10000));
RunBack;
end;
end;
procedure Proggy;
begin
ClearDebug;
Writeln('------------------------------------');
Writeln('did' + IntToStr(Loads) + ' Loads ');
Writeln('====================================');
Writeln('did' + IntToStr(Loads) + ' Clicks ');
Writeln('------------------------------------');
end;
procedure Mine;
begin
if(FindColorSpiralTolerance(x,y,RockColor,MSX1,MSY 1,MSX2,MSY2,8)) then
begin
MMouse(x,y,3,3)
if(IsUpText('ine')) then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,True);
end;
end;
end;
procedure DropThatShit;
begin
If(InvFull)then
begin
Loads := Loads + 1;
if(PickWeilded=True) then
DropAll
if(PickWeilded=;False) then
DropTo(2,28);
end;
end;
begin
SetupSRL;
ActivateClient;
Wait(2000+random(500));
repeat
Mine;
DropThatShit;
until( Loads >= MaxLoads);
TypeSend('Bored...')
end.
and dont ever forget...:google: :f:
-Simple Anti Randoms
-Proggy
-Working on MultiPlayer and Anti Ban
so ya here it is......
program PowerMiner;
{.include SRL/SRL.scar}
const
RockColor= 10948023;// color of the rock you are mining
PickWeilded= True;// is the pick weiled
MaxLoads= 5;// how many loads you want to do
var
loads: integer;
procedure AntiRandom;
begin
FindTalk;
FindNormalRandoms;
if (FindFight=True)then
begin
RunAwayDirection('N');
Wait(5000+random(10000));
RunBack;
end;
end;
procedure Proggy;
begin
ClearDebug;
Writeln('------------------------------------');
Writeln('did' + IntToStr(Loads) + ' Loads ');
Writeln('====================================');
Writeln('did' + IntToStr(Loads) + ' Clicks ');
Writeln('------------------------------------');
end;
procedure Mine;
begin
if(FindColorSpiralTolerance(x,y,RockColor,MSX1,MSY 1,MSX2,MSY2,8)) then
begin
MMouse(x,y,3,3)
if(IsUpText('ine')) then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,True);
end;
end;
end;
procedure DropThatShit;
begin
If(InvFull)then
begin
Loads := Loads + 1;
if(PickWeilded=True) then
DropAll
if(PickWeilded=;False) then
DropTo(2,28);
end;
end;
begin
SetupSRL;
ActivateClient;
Wait(2000+random(500));
repeat
Mine;
DropThatShit;
until( Loads >= MaxLoads);
TypeSend('Bored...')
end.
and dont ever forget...:google: :f: