Code:
program Cutter;
{.include SRL/SRL.scar}
{.include SRL/SRL/extended/xBank.scar}
{.include SRL/SRL/skill/Woodcutting.scar}
var
xyx,yxy,xxx,yyy,xb,yb,DTM1,xx,yy,DTM2,xyy,yxx,bmp1,bmp2:Integer;
{***************************SETUP**********************************************}
procedure DeclarePlayers;//Since this is a member's script I figured that there
begin //would only be one player
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='Seers';
Players[0].Active:=True;
end;
const
Breaks = True ; //Take Breaks
AntiBanOn = True ; //Use Anti-Ban
TripsToDo=100 ; //How Many Trips You Want To Do
PinN='0000'; //Your Pin #, If you dont have one leave 0000
{**********************DONT CHANGE THIS****************************************}
TreeColor1=18560 ;//color of tree in gamescreen DONT CHANGE
TreeColor2=10336 ;//color of tree in gamescreen DONT CHANGE
TreeMM1=1395819 ; //color of tree in mm Dont Change
TreeMM2=999500 ; //color of tree in mm DONT CHANGE
TreeMM3=1982564 ; //color of tree in mm DONT CHANGE
BankMM1=5623535 ;//color of bank in mm DONT CHANGE
BankMM2=4692663 ;//color of bank in mm DONT CHANGE
BankMM3=811387 ;//color of bank in mm DONT CHANGE
MM1=570 ;
MM2=5 ;
MM3=720 ;
MM4=160 ;
{*************************MAIN SCRIPT******************************************}
var
Trips: Integer;
Gained: Integer;
procedure LoadStuff;
begin
bmp1 := BitmapFromString(8, 8, 'z78DAAD8E3B0EC0300843AF0426' +
'69C2DCCFFD8F54A55E2CB1B4523D3C217848365BC1C40927C76C8' +
'94BD922BAEF8F689CC99E7120ABCFBD3ACAEAEBD757DF4AFF0DE1' +
'3E94DABF86579AF622FFFA37D7484ED9');
bmp2 := BitmapFromString(12, 8, 'z78DAD58FB10D00200CC35E4A4' +
'15C5092FF4FA2C0C288CA84878C9603641045AB7341BC185C8EA2' +
'A606F420E1D986B5EC0C8307B926D86E380CF6F0D7FEFD7BCF009' +
'A6573BC');
DTM1 := DTMFromString('78DA636C646260B0624001620202609A11CA6' +
'7EC01AA3121A0A609A8468F809A2EA01A4B026A3A8830A78EB07B' +
'00AE2005B3');
DTM2 := DTMFromString('78DA63AC636260F06140017FFE30816946289' +
'FB10DC8F720A0A68B083593807C2F22D4B811505306E4BB13A186' +
'80BF00DF121390');
end;
procedure newmove1; //finds one of the maple symbols on minimap
begin
MakeCompass('n');
if (FindSymbol(xx,yy,'tree')) then
begin
if findcolor(xx,yy,(GetSymbolColor(xx,yy,'tree')),MM1,MM2,MM3,90) then
Mouse(xx,yy,1,1,true);
Flag;
WriteLn('Found Symbol Color; Color is ' + InttoStr(GetSymbolColor(xx,yy,'tree')));
Flag;
end else
if (FindDtmIn(xx, yy, DTM1, 620, 20, 680, 80)) then
begin
Mouse(xx,yy,1,1,true);
Flag;
WriteLn('Found DTM1');
end else
if (findcolortolerance(xx,yy,(AutoColorThis(bmp1,20,MM1,MM2,MM3,MM4)),580,40,MM3,MM4,10)) then
begin
Mouse(xx,yy,1,1,true);
Flag;
WriteLn('Found BMP1');
end else
begin
WriteLn('Area unknown or Could not find the color')
end;
Flag;
end;
procedure ChopTree;
begin
WriteLn('Chopping Tree');
repeat
if (findcolorspiraltolerance(xyx,yxy,TreeColor1,0,0,518,342,7))
or (findcolorspiraltolerance(xyx,yxy,TreeColor2,0,0,518,342,7)) then
begin
mouse(xyx+10,yxy,1,1,true);
wait(6000+random(2300));
{Leveled;
wait(100+random(20));
Randoms;
wait(100+random(20));}
end;
until (invfull = true)
if (invfull = true) then
WriteLn('Finished Chopping');
end;
var
Ang: Extended;
procedure newmovebank; //moves to ladder then moves to one of the bankers
begin
MakeCompass('n');
if (FindSymbol(xyy,yxx,'bank')) then
begin
Mouse(xyy,yxx,1,1,true);
Flag;
WriteLn('Found Symbol Color; Color is ' + InttoStr(GetSymbolColor(xyy,yxx,'bank')));
end else
if (FindDTMRotated(DTM2,xyy,yxx,570,5,730,160,0,360,0.5,Ang)) then
begin
Mouse(xyy,yxx,0,0,true);
Flag;
WriteLn('Found DTM2');
end else
if (findcolortolerance(xyy,yxx,(AutoColorThis(bmp2,5,MM1,MM2,MM3,MM4)),MM1,MM2,MM3,MM4,5)) then
begin
Mouse(xyy,yxx,1,1,true);
Flag;
WriteLn('Found BMP2')
end else
WriteLn('Area unknown or Could not find the color')
end;
procedure bankem; //banks
begin
wait(1000+random(500));
OpenBank;
if (PinScreen = true) and (PinN = '0000') then
begin
LogOut;
WriteLn('Pin # Wrong or Forgot to Setup Pin #');
end else
if (PinScreen = true) and not (PinN = '0000') then
begin
InPin(PinN);
end else
if (PinScreen = false) and (BankScreen = true) then
Deposit2(1,0);
CloseBank;
end;
begin
ClearDebug;
Trips:=0;
SetupSrl;
DisguiseScar('iTunes');
Newline:=Newline;
DeclarePlayers;
ActivateClient;
//LoginPlayer;
LoadStuff;
//AntiPoo;
repeat
newmove1;
ChopTree;
newmovebank;
bankem;
Trips:=(Trips+1)
if (Breaks = true) then
LogOutEvery(1,10+random(4))
until(Trips = TripsToDo)
LogOut;
end.
Its not working. It does the first move right but then it seems that its skips the flag procedure. It starts to move the mouse on the gray cobblestone of the sceen trim. I dont know what to do. Your help is appreciated.