cheatersalwayswin
Newcomer
- Joined
- Mar 10, 2009
- Sythe Gold
- 0
- Messages
- 1
new to scripting and do not know why giving me an error can anyone help?
//Hosted by Runescape 101
//Download more free scar scripts from www.rs101.info
//////////////////////////////////////////////////////////////////////////////////////////////
/// GuildMiner 4.4 ///
/// By cokemeetspepsi ///
//////////////////////////////////////////////////////////////////////////////////////////////
/// Credits To: w0oT for making smelthing script (borowed some BMP's) and for good ideas, ///
/// Scriptex (borowed some ideas), ///
/// All others who helped me. ///
//////////////////////////////////////////////////////////////////////////////////////////////
/// Instructions: ///
/// 1. ADD COLORS THAT ARE REQESTED IN 40-50 LINES! ///
/// 2. Try to get a north angle or almost as north! ///
/// 3. U must look from above in RS2! ///
/// 4. V-bright, 32bit colors ///
/// 5. U NEED TO HAVE PUBLIC CHAT OFF/HIDE ///
/// 6. U Need Scar version 1.12 ///
/// 7. START IN EAST BANK OF FALADOR! ///
/// 8. PICKAXES MUST BE IN FIRST BANK SLOT!! ///
//////////////////////////////////////////////////////////////////////////////////////////////
program GuildMiner;
var x, y, a, b, c, w1, w2, w3, w4, w5, flag, climb, ClimbYellow,
ClimbUpYellow, ClimbUp, quickBank, quickBankYellow, inbank, widAllY, widAll,
trips, L, Talk, TalkY, Bpicks, Talked, Ran:integer;
ST:LongInt;
Go,Find,Fight:boolean;
const
{================= Setup ===================}
Speed = 2;
{Set script working speed. If your Pc is slow then make script run slower.
1 = Fast, 2 = Normal, 3 = Slow}
Pick = 2;
{1 if you can't wield pickaxe.
2 if you can wield pickaxe}
username = ''; username
password = ''; password
{========== Colors on main screen ==========}
CoalOre = 2703167; 726036 at (270, 198)
{============ Colors on minimap ============}
BColor = 6150654; 2542824 at (668, 163)
Walk1 = 9211287; 6842741 at (351, 192)
Ladder = 1192303; 1716543 at (259, 183)
Rocks = 6577001; 7171955 at (661, 183)
GColor = 9143184; 1842207 at (219, 202)
Procedure SetTime;
begin
Case Speed of
1: begin
w1:= 50; w2:= 100; w3:= 250; w4:= 500; w5:= 1000;
end;
2: begin
w1:= 100; w2:= 200; w3:= 500; w4:= 1000; w5:= 2000;
end;
3: begin
w1:= 200; w2:= 400; w3:= 800; w4:= 1500; w5:= 3000;
end;
end;
end;
//BumisD2YK4L's RS2 Login //modified by Aton
procedure LoginIfNeeded;
begin
if((GetColor(325,263)=65535)and(GetColor(286,304)=16777215))then
begin
repeat
Status('Trying to Loggin...')
wait(500);
ClickMouse(459,319,true);
wait(1000);
if((Getcolor(284,234)=65535)and(GetColor(326,336)=16777215))then
begin
Clickmouse(390,270,true);
Wait(500);
SendKeysSilent(username);
Wait(500);
ClickMouse(395,285,true);
Wait(500);
SendKeysSilent(password);
Wait(500);
if(GetColor(317,339)=16777215)then
begin
repeat
wait(100);
ClickMouse(320,340,true);
Wait(5000);
until(Not (GetColor(317,339)=16777215));
repeat
Wait(500);
until(GetColor (270,103)=65535);
repeat
Wait(500);
MoveMouse(450,99);
Wait(500);
ClickMouse(450,99,true);
Wait(500);
until(not(Getcolor(270,103)=65535));
end;
end;
until(not(GetColor(404,328)=723723));
end;
end;
Procedure PrintProgressReport; //The EdMandel and Phalanx. Edited by Aton
var
RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
Time:String;
Begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
avtime:=Seconds/trips;
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '
+inttostr(RSeconds)+' Seconds';
end;
begin
writeln(' ');
writeln('Progress Report:');
writeln('Worked for '+Time);
writeln(''+inttostr(Talked)+' Time Talked To Random Event')
Writeln(''+inttostr(Ran)+' Time Ran From Random Event')
writeln(''+inttostr(Bpicks)+' New Pickaxes Taken')
writeln('Mined and Banked ('+inttostr(trips)+' Time) '+inttostr(trips*28)
+' Coal');
writeln('Gained '+inttostr(trips*1400)+' Mining Experience');
writeln('Currently Averaging '+inttostr(3600/avtime*28)+' Coal Mined and '
+inttostr(3600/avtime*1400)+' Experience an Hour');
end;
End;
procedure SetRunOff;
begin
Wait(50);
MoveMouse(720,510);
Wait(50);
ClickMouse(720,510,true);
Wait(100);
MoveMouse(580,285);
Wait(50);
ClickMouse(580,285,true);
Wait(100);
MoveMouse(655,210);
Wait(50);
ClickMouse(655,210,true);
Wait(100);
end;
procedure SetRunOn;
begin
Wait(50);
MoveMouse(720,510);
Wait(50);
ClickMouse(720,510,true);
Wait(100);
MoveMouse(635,285);
Wait(50);
ClickMouse(635,285,true);
Wait(100);
MoveMouse(655,210);
Wait(50);
ClickMouse(655,210,true);
Wait(100);
end;
Procedure MapFlag;
begin
Wait(w2);
if(FindBitmapIn(flag,x,y,550,5,750,177))then
begin
repeat
wait(w3);
until(not FindBitmapIn(flag,x,y,550,5,750,177));
Wait(w1);
end;
end;
Procedure MapFlagV;
begin
Wait(7000);
Mapflag;
end;
Procedure GoCenter;
begin
If(findcolorspiral(x,y,(GColor),550,5,750,177))then
begin
Status('Going to Center');
MoveMouse(x,y);
Wait(w1);
ClickMouse(x,y,true);
Mapflag;
Wait(w3);
end;
If(Not(FindColorSpiral(a,b,(GColor),550,5,750,177)))and
(FindColorSpiral(x,y,(Rocks),550,5,750,177))then
Begin
Status('Going To Center');
MoveMouse(x,y)
Wait(w1);
ClickMouse(x,y,true);
Mapflag;
Wait(w3);
end;
End;
procedure NewPicks;
begin
MoveMouse(590,245);
Wait(w1);
ClickMouse(590,245,true);
Wait(w4);
MoveMouse(100,85);
Wait(w1);
ClickMouse(100,85,true);
Wait(w4);
end;
Procedure CloseBank;
begin
Wait(w1);
MoveMouse(460,45);
Wait(w1);
ClickMouse(460,45,true);
Wait(w4);
end;
Procedure TakeOff;
begin
MoveMouse(690,210);
Wait(w1);
ClickMouse(690,210,true);
Wait(w1);
MoveMouse(600,333);
Wait(w1);
ClickMouse(600,333,true);
Wait(w1);
MoveMouse(655,210);
Wait(w1);
ClickMouse(655,210,true);
wait(w4);
end;
Procedure PutOn;
begin
MoveMouse(655,210);
Wait(w1);
ClickMouse(655,210,true);
Wait(w1);
MoveMouse(590,245);
Wait(w1);
ClickMouse(590,245,true);
Wait(w4);
end;
procedure GoUp;
begin
C:=0;
Go:=false;
begin
repeat
Status('Going up '+inttostr(c)+'/50');
x:=80+random(150);
y:=100+random(125);
MoveMouse(x,y);
wait(50);
ClickMouse(x,y,false);
Wait(w1);
C:=c+1;
if(FindBitmap(ClimbUp,x,y))or
(FindBitmap(ClimbUpYellow,x,y))or(C>=50)then break;
MoveMouse(10,10);
wait(50);
until(False);
end;
if(FindBitmap(ClimbUp,x,y))or
(FindBitmap(ClimbUpYellow,x,y))then
begin
Go:=true;
Wait(w1);
MoveMouse(x,y);
wait(w1);
ClickMouse(x,y,true);
Wait(w4);
end;
if(go=true)then
begin
L:=0;
repeat
L:= L+5;
Status('Finding Bank '+inttostr(L)+'/100');
Wait(500);
Until(FindColorSpiral2(x,y,(walk1),550,5,750,177))or(l>=100);
end;
end;
procedure GoDown;
begin
C:=0;
Go:=false;
begin
repeat
If(findColorSpiral(x,y,(Rocks),550,5,750,177))then break;
Status('Going Down '+inttostr(c)+'/50');
x:=100+random(140);
y:=90+random(140);
MoveMouse(x,y);
wait(50);
ClickMouse(x,y,false);
Wait(w1);
C:=c+1;
if(FindBitmap(Climb,x,y))or(FindBitmap(ClimbYellow,x,y))or(C>=50)then break;
MoveMouse(10,10);
Wait(50);
until(False);
end;
if (FindBitmap(Climb,x,y))or
(FindBitmap(ClimbYellow,x,y))then
begin
Go:=true;
Wait(w1);
MoveMouse(x,y)
wait(w1);
ClickMouse(x,y,true);
Wait(w4);
end;
if(go=true)then
begin
L:=0;
repeat
L:= L+5;
Status('Cheking are we in Guild '+inttostr(L)+'/100');
Wait(500);
Until((FindColorSpiral2(x,y,(rocks),550,5,750,177))or(L>=100));
end;
if(go=true)and(FindColorSpiral2(x,y,(rocks),550,5,750,177))then
begin
Status('We are in Guild!');
SetRunOn;
MoveMouse(x-3,y);
Wait(w1);
ClickMouse(x-3,y,true);
Wait(w4);
Mapflag;
end;
end;
procedure ToLadder;
begin
c:=0;
Find:=false;
If (FindColorSpiral2(x,y,(Ladder),550,5,750,177))then
begin
Find:=True;
Status('Ladder Found!');
MoveMouse(x+3,y);
Wait(w1);
ClickMouse(x+3,y,true);
Wait(w5);
Mapflag;
GoUp;
end;
If (FindColorSpiral2(x,y,(Gcolor),550,5,750,177))and(Find=false)then
begin
Status('Finding Middlepoint');
MoveMouse(x,y);
Wait(w1);
ClickMouse(x,y,true);
wait(w1);
MapFlag;
end;
If (FindColorSpiral2(x,y,(Rocks),590,70,605,110))and(Find=false)then
begin
repeat
if(FindColorSpiral2(x,y,(Rocks),590,70,605,110))then
Status('Going To Ladder 1/2');
MoveMouse(x,y);
Wait(w1);
ClickMouse(x,y,true);
Wait(w1);
Mapflag;
until(not FindColorSpiral2(x,y,(Rocks),590,70,605,110))or
(FindColorSpiral(x,y,(Ladder),550,5,750,177));
end;
If (FindColorSpiral2(x,y,(Ladder),550,5,750,177))and(Find=false)then
begin
Find:=True;
Status('Going To Ladder 2/2');
MoveMouse(x+3,y);
Wait(w1);
ClickMouse(x+3,y,true);
Wait(w5);
Mapflag;
GoUp;
end;
if(Go=false)and(Not FindColorSpiral(x,y,(walk1),550,5,750,177))or
(Find=false)and(Not FindColorSpiral(x,y,(walk1),550,5,750,177))then
begin
LogInIfNeeded;
ToLadder;
end;
If(L>=100)then
begin
Status('Bank Not Found!');
LogInIfNeeded;
ToLadder;
end;
end;
Procedure FindFight;
begin
If(FindColorSpiral(x,y,65280,160,100,400,250))then
begin
Status('Random Event Found');
SaveScreenShot('RandomEventRun.bmp');
Fight:=True;
Ran:=Ran+1
SetRunOn;
ToLadder;
Status('Waiting 10 sec...');
Wait(10000);
GoDown;
end;
END;
procedure FindText;
begin
C:=0;
Fight:=False;
If(findColorSpiral(a,b,65535,0,0,500,375))then
begin
SaveScreenShot('RandomEventTalk.bmp');
repeat
FindFight;
if(Fight=True)then break;
Status('Searching For Random Event '+inttostr(c)+'/50');
C:= C+1;
x:= 100+random(250);
y:= 100+random(200);
MoveMouse(x,y);
wait(50);
ClickMouse(x,y,false);
Wait(w1);
if(findBitmap(Talk,x,y))or(FindBitmap(TalkY,x,y))or(C>50)then break;
MoveMouse(10,10)
Wait(50);
Until(false);
if(FindBitmap(Talk,x,y))or(FindBitmap(TalkY,x,y))then
Talked:=Talked+1
ClickMouse(x,y,True);
wait(3000);
MoveMouse(x-100,y);
Wait(w1);
ClickMouse(x-100,y,true);
MapFlag;
If(c>50)then
end;
end;
Procedure ToGuild;
begin
c:=0;
SetRunOn;
Find:=false;
if (FindColorSpiral(x,y,(Walk1),550,5,750,177))then
begin
Find:=True;
FindText;
Status('Statue Found!');
MoveMouse(x-5,y);
Wait(w1);
ClickMouse(x-5,y,true);
Wait(10000);
MapFlag;
GoDown;
end;
If (FindColorSpiral(x,y,(Bcolor),550,5,750,177))and(Find=false)then
begin
FindText;
Status('Going To Guild 1/2');
MoveMouse(675,105);
Wait(w1);
ClickMouse(675,105,true);
Wait(w5);
MapFlag;
end;
if (FindColorSpiral(x,y,(Walk1),550,5,750,177))and(Find=false)then
begin
Find:=True;
FindText;
Status('Going To Guild 2/2');
MoveMouse(x-5,y);
Wait(w1);
ClickMouse(x-5,y,true);
Wait(w5);
MapFlagV;
GoDown;
end;
if(go=false)and(not FindColorSpiral(x,y,(Rocks),550,5,750,177))or
(Find=false)and(not FindColorSpiral(x,y,(Rocks),550,5,750,177))then
begin
LoginIfNeeded;
ToGuild;
end;
If(L>=100)then
begin
Status('Guild Not Found!');
LoginIfNeeded;
ToGuild;
end;
End;
Procedure ToBank;
begin
If (FindColorSpiral2(x,y,(walk1),550,5,750,177))then
begin
FindText;
Status('Going To Bank 1/2');
MoveMouse(x+5,y-44);
Wait(w1)
ClickMouse(x+5,y-44,true);
Wait(w4);
MapFlag;
end;
If (FindColorSpiral2(x,y,(BColor),550,5,750,177))then
begin
FindText;
Status('Going To Bank 2/2');
MoveMouse(x,y+1);
Wait(w1);
ClickMouse(x,y+1,true);
Wait(10000)
Mapflag;
end;
end;
Procedure OpenBank;
begin
c:=0;
L:=0;
Wait(100);
FindText;
begin
repeat
Status('Opening Bank '+inttostr(l)+'/50');
x:=110+random(200);
y:=180+random(130);
MoveMouse(x,y);
wait(50);
ClickMouse(x,y,false);
Wait(w1);
L:= L+1;
if(FindBitMap(quickbank,x,y))or(FindBitMap(quickbankyellow,x,y))or(L>=50)then break;
MoveMouse(10,10);
Wait(w1);
until(false);
if(L>=50)then
begin
LoginIfNeeded;
ToBank;
OpenBank;
end;
if(FindBitMap(quickbank,x,y))or(FindBitMap(quickbankyellow,x,y))then
begin
Wait(w1);
MoveMouse(x,y)
Wait(w1);
ClickMouse(x,y,true);
Wait(w4);
end;
end;
repeat
c:= c+5;
wait(500);
Status('Checking if bank is opend '+inttostr(c)+'/100');
until(FindBitMap(inbank,x,y))or(c=100);
If(c=100) then
begin
LogInIfNeeded;
ToBank;
OpenBank;
end;
end;
Procedure Deposit;
begin
Status('Depositing Stuf');
Wait(w1)
if (findColorSpiral(x,y,65536,560,280,745,475))and(Pick=1)or
(FindColorSpiral(x,y,65536,615,235,745,280))and(Pick=1)or
(FindColorSpiral(x,y,65536,560,235,745,475))and(Pick=2)then
begin
MoveMouse(x,y);
Wait(w1);
ClickMouse(x,y,false);
Wait(w2);
end;
If (FindBitmapIn(widAllY,x,y,560,235,745,475))or
(FindBitmapIn(widAll,x,y,560,235,745,475))then
begin
MoveMouse(x,y);
Wait(w1);
ClickMouse(x,y,true);
Wait(w2);
end;
Wait(1000);
end;
procedure DepositStuf;
begin
case Pick of
1:
begin
repeat
Deposit;
until(Not (findColorSpiral(x,y,65536,560,280,745,475)))And
(Not (FindColorSpiral(x,y,65536,615,235,745,280)));
end;
2:
begin
repeat
Deposit;
until(Not (FindColorSpiral(x,y,65536,560,235,745,475)));
end;
end;
End;
procedure DoMining;
begin
L:= 0;
c:= 0;
repeat
Wait(w1);
x:= 274;
y:= 180;
L:= L+1;
c:= 0;
LoginIfNeeded;
FindText;
FindFight;
Status('Mining Coal');
if(FindColorSpiral(x,y,(CoalOre),x-270,y-175,x+270,y+175))then
begin
MoveMouse(x,y);
Wait(w1);
ClickMouse(x, y, true);
Mapflag;
wait(1000);
if(GetColor(114,444)=0)and
(GetColor(121,442)=0)then
begin
L:=0;
Repeat
C:= c+1
Wait(100);
Until(not ((GetColor(114,444)=0)and
(GetColor(121,442)=0)))or(c>40);
if(c>40)then
DoMining;
end;
end;
until(GetColor(423,411)=0)or(getColor(490,431)=0)or(L>45);
if(getColor(490,431)=0)then
begin
Status('Going For New Pickaxe');
Wait(100);
Bpicks:=Bpicks+1;
TakeOff;
SetRunOff;
ToLadder;
ToBank;
OpenBank;
DepositStuf;
NewPicks;
CloseBank;
PutOn;
ToGuild;
DoMining;
end;
If(L>45)then
begin
GoCenter;
DoMining;
end;
End;
Procedure LoadBmps;
begin
flag := BitmapFromString(2, 2,
'FF00005D3311C656045D3311');
widAllY := BitmapFromString(8, 10,
'5D54475D54475D5447FFFF00FFFF00FFFF005D54475D54475D5447' +
'5D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447FFFF00' +
'FFFF000000000000005D5447FFFF00FFFF005D5447FFFF00FFFF00' +
'0000005D54475D5447FFFF00FFFF005D5447FFFF00FFFF00FFFF00' +
'FFFF00FFFF00FFFF00FFFF005D5447FFFF00FFFF00000000000000' +
'000000FFFF00FFFF005D5447FFFF00FFFF000000005D54475D5447' +
'FFFF00FFFF005D5447FFFF00FFFF000000005D54475D5447FFFF00' +
'FFFF005D5447FFFF00FFFF000000005D54475D5447FFFF00FFFF00' +
'5D5447FFFF00FFFF000000005D54475D5447FFFF00FFFF00');
widAll := BitmapFromString(8, 11,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D5447FFFFFFFFFFFFFFFFFF5D54475D54475D54475D5447' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF' +
'0000000000005D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFF000000' +
'5D54475D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFFFFFFFFFFFFFF' +
'FFFFFFFFFFFFFFFFFF5D5447FFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFF' +
'FFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF' +
'5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF5D5447' +
'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF');
Climb := BitmapFromString(12, 11,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D5447FFFFFFFFFFFFFFFFFF' +
'5D54475D54475D5447FFFFFFFFFFFF5D54475D54475D5447FFFFFF' +
'FFFFFF000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF000000' +
'5D5447FFFFFFFFFFFF0000000000005D54470000000000005D5447' +
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D54475D5447' +
'5D54475D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
'0000005D54475D54475D54475D54475D5447FFFFFFFFFFFF000000' +
'5D5447FFFFFFFFFFFF0000005D54475D54475D54475D54475D5447' +
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D54475D5447' +
'5D54475D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
'0000005D54475D54475D54475D54475D5447FFFFFFFFFFFF000000' +
'5D54475D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFF5D54475D5447' +
'FFFFFFFFFFFF0000005D54475D54475D5447FFFFFFFFFFFFFFFFFF' +
'0000000000005D5447FFFFFFFFFFFF000000');
ClimbYellow := BitmapFromString(11, 10,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D5447FFFF00FFFF00FFFF005D5447' +
'5D54475D5447FFFF00FFFF005D54475D5447FFFF00FFFF00000000' +
'FFFF00FFFF005D54475D5447FFFF00FFFF005D5447FFFF00FFFF00' +
'0000000000005D54470000000000005D5447FFFF00FFFF005D5447' +
'FFFF00FFFF000000005D54475D54475D54475D54475D5447FFFF00' +
'FFFF005D5447FFFF00FFFF000000005D54475D54475D54475D5447' +
'5D5447FFFF00FFFF005D5447FFFF00FFFF000000005D54475D5447' +
'5D54475D54475D5447FFFF00FFFF005D5447FFFF00FFFF00000000' +
'5D54475D54475D54475D54475D5447FFFF00FFFF005D5447FFFF00' +
'FFFF000000005D54475D54475D54475D54475D5447FFFF00FFFF00' +
'5D54475D5447FFFF00FFFF005D5447FFFF00FFFF005D54475D5447' +
'FFFF00FFFF00');
ClimbUp := BitmapFromString(13, 12,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D5447FFFFFF' +
'FFFFFFFFFFFF5D54475D54475D5447FFFFFFFFFFFF5D54475D5447' +
'5D54475D5447FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447' +
'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF000000000000' +
'5D54470000000000005D5447FFFFFFFFFFFF0000005D54475D5447' +
'FFFFFFFFFFFF0000005D54475D54475D54475D54475D5447FFFFFF' +
'FFFFFF0000005D54475D5447FFFFFFFFFFFF0000005D54475D5447' +
'5D54475D54475D5447FFFFFFFFFFFF0000005D54475D5447FFFFFF' +
'FFFFFF0000005D54475D54475D54475D54475D5447FFFFFFFFFFFF' +
'0000005D54475D5447FFFFFFFFFFFF0000005D54475D54475D5447' +
'5D54475D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF' +
'0000005D54475D54475D54475D54475D5447FFFFFFFFFFFF000000' +
'5D54475D54475D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFF5D5447' +
'5D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447FFFFFF' +
'FFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF0000005D5447' +
'5D54475D54475D54475D54470000000000000000005D54475D5447' +
'5D5447000000000000');
ClimbUpYellow := BitmapFromString(12, 12,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D5447FFFF00FFFF00FFFF00' +
'5D54475D54475D5447FFFF00FFFF005D54475D54475D5447FFFF00' +
'FFFF00000000FFFF00FFFF005D54475D5447FFFF00FFFF00000000' +
'5D5447FFFF00FFFF000000000000005D54470000000000005D5447' +
'FFFF00FFFF000000005D5447FFFF00FFFF000000005D54475D5447' +
'5D54475D54475D5447FFFF00FFFF000000005D5447FFFF00FFFF00' +
'0000005D54475D54475D54475D54475D5447FFFF00FFFF00000000' +
'5D5447FFFF00FFFF000000005D54475D54475D54475D54475D5447' +
'FFFF00FFFF000000005D5447FFFF00FFFF000000005D54475D5447' +
'5D54475D54475D5447FFFF00FFFF000000005D5447FFFF00FFFF00' +
'0000005D54475D54475D54475D54475D5447FFFF00FFFF00000000' +
'5D54475D5447FFFF00FFFF005D5447FFFF00FFFF005D54475D5447' +
'FFFF00FFFF000000005D54475D54475D5447FFFF00FFFF00FFFF00' +
'0000000000005D5447FFFF00FFFF000000005D54475D54475D5447' +
'5D54470000000000000000005D54475D54475D5447000000000000' +
'');
quickbank := BitmapFromString(63, 6,
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF000000' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00FFFF00000000FFFF00FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'');
quickbankyellow := BitmapFromString(70, 2,
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000000000FFFF00FFFF00FFFF00FFFF00' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000000000000000' +
'00000000FFFF00FFFF00000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00FFFF00000000FFFF00FFFF000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000000000FFFF00FFFF00FFFF00000000000000000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF0000000000000000000000000000000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000000000FFFF' +
'00FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF000000' +
'00000000FFFF00FFFF000000000000');
inbank := BitmapFromString(79, 2,
'FF981FFF981FFF981F000000000000000000000000000000000000' +
'000000FF981FFF981FFF981FFF981FFF981F000000000000000000' +
'000000FF981FFF981FFF981FFF981F000000000000000000FF981F' +
'FF981FFF981FFF981FFF981F000000000000000000FF981FFF981F' +
'000000FF981FFF981F000000000000000000000000000000000000' +
'000000FF981FFF981FFF981FFF981F000000000000000000000000' +
'FF981FFF981F000000000000000000000000000000000000000000' +
'000000FF981FFF981F000000FF981FFF981F000000000000000000' +
'FF981FFF981F000000000000FF981FFF981F000000000000000000' +
'FF981FFF981F000000000000000000000000000000000000FF981F' +
'FF981F000000000000FF981FFF981F000000000000FF981FFF981F' +
'000000000000FF981FFF981F000000000000FF981FFF981FFF981F' +
'000000FF981FFF981F000000000000FF981FFF981FFF981FFF981F' +
'000000000000000000000000000000000000000000FF981FFF981F' +
'000000000000FF981FFF981F000000000000000000FF981FFF981F' +
'000000000000000000000000000000000000000000000000FF981F' +
'FF981FFF981FFF981F000000000000000000000000FF981FFF981F' +
'000000000000FF981FFF981F000000');
Talk := BitmapFromString(15, 13,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
'FFFFFF5D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D5447000000FFFFFFFFFFFF0000000000000000005D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'FFFFFFFFFFFF0000005D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D5447FFFFFFFFFFFF000000' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D5447FFFFFFFFFFFF0000005D54475D54475D5447' +
'FFFFFFFFFFFFFFFFFFFFFFFF5D54475D54475D54475D54475D5447' +
'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF5D54475D54475D54475D5447FFFFFFFFFFFF000000' +
'5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000' +
'5D54475D54475D5447FFFFFFFFFFFF0000005D54475D5447FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF0000005D54475D54475D5447' +
'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF0000005D5447' +
'FFFFFFFFFFFF0000005D54475D54475D5447FFFFFFFFFFFF000000' +
'5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000' +
'5D54475D54475D54475D54470000000000005D54475D54475D5447' +
'5D5447000000000000000000000000000000');
TalkY := BitmapFromString(14, 12,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D5447FFFF00FFFF00FFFF00' +
'FFFF00FFFF00FFFF005D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D5447000000FFFF00FFFF00000000000000000000' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'FFFF00FFFF000000005D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D5447FFFF00FFFF000000005D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D5447FFFF00FFFF000000005D54475D54475D5447FFFF00FFFF00' +
'FFFF00FFFF005D54475D54475D54475D5447FFFF00FFFF00000000' +
'5D54475D5447FFFF00FFFF00000000000000FFFF00FFFF005D5447' +
'5D54475D5447FFFF00FFFF000000005D54475D54475D5447FFFF00' +
'FFFF00FFFF00FFFF00FFFF005D54475D54475D5447FFFF00FFFF00' +
'0000005D54475D5447FFFF00FFFF00000000000000FFFF00FFFF00' +
'5D54475D54475D5447FFFF00FFFF000000005D54475D5447FFFF00' +
'FFFF000000005D5447FFFF00FFFF005D54475D54475D5447FFFF00' +
'FFFF000000005D54475D54475D5447FFFF00FFFF00FFFF00FFFF00' +
'FFFF005D54475D54475D54475D54470000000000005D54475D5447' +
'5D54475D5447000000000000000000000000');
end;
Begin
LoadBmps; SetTime;
ST:=GetSystemTime;
trips:=0; Talked:=0; Ran:=0; Bpicks:=0;
LoginIfNeeded;
repeat
FindText;
ToGuild
DoMining;
SetRunOff;
ToLadder;
ToBank;
OpenBank;
DepositStuf;
CloseBank;
trips:= trips+1
PrintProgressReport;
until(false);
end.
//Hosted by Runescape 101
//Download more free scar scripts from www.rs101.info
//////////////////////////////////////////////////////////////////////////////////////////////
/// GuildMiner 4.4 ///
/// By cokemeetspepsi ///
//////////////////////////////////////////////////////////////////////////////////////////////
/// Credits To: w0oT for making smelthing script (borowed some BMP's) and for good ideas, ///
/// Scriptex (borowed some ideas), ///
/// All others who helped me. ///
//////////////////////////////////////////////////////////////////////////////////////////////
/// Instructions: ///
/// 1. ADD COLORS THAT ARE REQESTED IN 40-50 LINES! ///
/// 2. Try to get a north angle or almost as north! ///
/// 3. U must look from above in RS2! ///
/// 4. V-bright, 32bit colors ///
/// 5. U NEED TO HAVE PUBLIC CHAT OFF/HIDE ///
/// 6. U Need Scar version 1.12 ///
/// 7. START IN EAST BANK OF FALADOR! ///
/// 8. PICKAXES MUST BE IN FIRST BANK SLOT!! ///
//////////////////////////////////////////////////////////////////////////////////////////////
program GuildMiner;
var x, y, a, b, c, w1, w2, w3, w4, w5, flag, climb, ClimbYellow,
ClimbUpYellow, ClimbUp, quickBank, quickBankYellow, inbank, widAllY, widAll,
trips, L, Talk, TalkY, Bpicks, Talked, Ran:integer;
ST:LongInt;
Go,Find,Fight:boolean;
const
{================= Setup ===================}
Speed = 2;
{Set script working speed. If your Pc is slow then make script run slower.
1 = Fast, 2 = Normal, 3 = Slow}
Pick = 2;
{1 if you can't wield pickaxe.
2 if you can wield pickaxe}
username = ''; username
password = ''; password
{========== Colors on main screen ==========}
CoalOre = 2703167; 726036 at (270, 198)
{============ Colors on minimap ============}
BColor = 6150654; 2542824 at (668, 163)
Walk1 = 9211287; 6842741 at (351, 192)
Ladder = 1192303; 1716543 at (259, 183)
Rocks = 6577001; 7171955 at (661, 183)
GColor = 9143184; 1842207 at (219, 202)
Procedure SetTime;
begin
Case Speed of
1: begin
w1:= 50; w2:= 100; w3:= 250; w4:= 500; w5:= 1000;
end;
2: begin
w1:= 100; w2:= 200; w3:= 500; w4:= 1000; w5:= 2000;
end;
3: begin
w1:= 200; w2:= 400; w3:= 800; w4:= 1500; w5:= 3000;
end;
end;
end;
//BumisD2YK4L's RS2 Login //modified by Aton
procedure LoginIfNeeded;
begin
if((GetColor(325,263)=65535)and(GetColor(286,304)=16777215))then
begin
repeat
Status('Trying to Loggin...')
wait(500);
ClickMouse(459,319,true);
wait(1000);
if((Getcolor(284,234)=65535)and(GetColor(326,336)=16777215))then
begin
Clickmouse(390,270,true);
Wait(500);
SendKeysSilent(username);
Wait(500);
ClickMouse(395,285,true);
Wait(500);
SendKeysSilent(password);
Wait(500);
if(GetColor(317,339)=16777215)then
begin
repeat
wait(100);
ClickMouse(320,340,true);
Wait(5000);
until(Not (GetColor(317,339)=16777215));
repeat
Wait(500);
until(GetColor (270,103)=65535);
repeat
Wait(500);
MoveMouse(450,99);
Wait(500);
ClickMouse(450,99,true);
Wait(500);
until(not(Getcolor(270,103)=65535));
end;
end;
until(not(GetColor(404,328)=723723));
end;
end;
Procedure PrintProgressReport; //The EdMandel and Phalanx. Edited by Aton
var
RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
Time:String;
Begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
avtime:=Seconds/trips;
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '
+inttostr(RSeconds)+' Seconds';
end;
begin
writeln(' ');
writeln('Progress Report:');
writeln('Worked for '+Time);
writeln(''+inttostr(Talked)+' Time
Writeln(''+inttostr(Ran)+' Time
writeln(''+inttostr(Bpicks)+' New Pickaxes Taken')
writeln('Mined and Banked ('+inttostr(trips)+' Time
+' Coal');
writeln('Gained '+inttostr(trips*1400)+' Mining Experience');
writeln('Currently Averaging '+inttostr(3600/avtime*28)+' Coal Mined and '
+inttostr(3600/avtime*1400)+' Experience an Hour');
end;
End;
procedure SetRunOff;
begin
Wait(50);
MoveMouse(720,510);
Wait(50);
ClickMouse(720,510,true);
Wait(100);
MoveMouse(580,285);
Wait(50);
ClickMouse(580,285,true);
Wait(100);
MoveMouse(655,210);
Wait(50);
ClickMouse(655,210,true);
Wait(100);
end;
procedure SetRunOn;
begin
Wait(50);
MoveMouse(720,510);
Wait(50);
ClickMouse(720,510,true);
Wait(100);
MoveMouse(635,285);
Wait(50);
ClickMouse(635,285,true);
Wait(100);
MoveMouse(655,210);
Wait(50);
ClickMouse(655,210,true);
Wait(100);
end;
Procedure MapFlag;
begin
Wait(w2);
if(FindBitmapIn(flag,x,y,550,5,750,177))then
begin
repeat
wait(w3);
until(not FindBitmapIn(flag,x,y,550,5,750,177));
Wait(w1);
end;
end;
Procedure MapFlagV;
begin
Wait(7000);
Mapflag;
end;
Procedure GoCenter;
begin
If(findcolorspiral(x,y,(GColor),550,5,750,177))then
begin
Status('Going to Center');
MoveMouse(x,y);
Wait(w1);
ClickMouse(x,y,true);
Mapflag;
Wait(w3);
end;
If(Not(FindColorSpiral(a,b,(GColor),550,5,750,177)))and
(FindColorSpiral(x,y,(Rocks),550,5,750,177))then
Begin
Status('Going To Center');
MoveMouse(x,y)
Wait(w1);
ClickMouse(x,y,true);
Mapflag;
Wait(w3);
end;
End;
procedure NewPicks;
begin
MoveMouse(590,245);
Wait(w1);
ClickMouse(590,245,true);
Wait(w4);
MoveMouse(100,85);
Wait(w1);
ClickMouse(100,85,true);
Wait(w4);
end;
Procedure CloseBank;
begin
Wait(w1);
MoveMouse(460,45);
Wait(w1);
ClickMouse(460,45,true);
Wait(w4);
end;
Procedure TakeOff;
begin
MoveMouse(690,210);
Wait(w1);
ClickMouse(690,210,true);
Wait(w1);
MoveMouse(600,333);
Wait(w1);
ClickMouse(600,333,true);
Wait(w1);
MoveMouse(655,210);
Wait(w1);
ClickMouse(655,210,true);
wait(w4);
end;
Procedure PutOn;
begin
MoveMouse(655,210);
Wait(w1);
ClickMouse(655,210,true);
Wait(w1);
MoveMouse(590,245);
Wait(w1);
ClickMouse(590,245,true);
Wait(w4);
end;
procedure GoUp;
begin
C:=0;
Go:=false;
begin
repeat
Status('Going up '+inttostr(c)+'/50');
x:=80+random(150);
y:=100+random(125);
MoveMouse(x,y);
wait(50);
ClickMouse(x,y,false);
Wait(w1);
C:=c+1;
if(FindBitmap(ClimbUp,x,y))or
(FindBitmap(ClimbUpYellow,x,y))or(C>=50)then break;
MoveMouse(10,10);
wait(50);
until(False);
end;
if(FindBitmap(ClimbUp,x,y))or
(FindBitmap(ClimbUpYellow,x,y))then
begin
Go:=true;
Wait(w1);
MoveMouse(x,y);
wait(w1);
ClickMouse(x,y,true);
Wait(w4);
end;
if(go=true)then
begin
L:=0;
repeat
L:= L+5;
Status('Finding Bank '+inttostr(L)+'/100');
Wait(500);
Until(FindColorSpiral2(x,y,(walk1),550,5,750,177))or(l>=100);
end;
end;
procedure GoDown;
begin
C:=0;
Go:=false;
begin
repeat
If(findColorSpiral(x,y,(Rocks),550,5,750,177))then break;
Status('Going Down '+inttostr(c)+'/50');
x:=100+random(140);
y:=90+random(140);
MoveMouse(x,y);
wait(50);
ClickMouse(x,y,false);
Wait(w1);
C:=c+1;
if(FindBitmap(Climb,x,y))or(FindBitmap(ClimbYellow,x,y))or(C>=50)then break;
MoveMouse(10,10);
Wait(50);
until(False);
end;
if (FindBitmap(Climb,x,y))or
(FindBitmap(ClimbYellow,x,y))then
begin
Go:=true;
Wait(w1);
MoveMouse(x,y)
wait(w1);
ClickMouse(x,y,true);
Wait(w4);
end;
if(go=true)then
begin
L:=0;
repeat
L:= L+5;
Status('Cheking are we in Guild '+inttostr(L)+'/100');
Wait(500);
Until((FindColorSpiral2(x,y,(rocks),550,5,750,177))or(L>=100));
end;
if(go=true)and(FindColorSpiral2(x,y,(rocks),550,5,750,177))then
begin
Status('We are in Guild!');
SetRunOn;
MoveMouse(x-3,y);
Wait(w1);
ClickMouse(x-3,y,true);
Wait(w4);
Mapflag;
end;
end;
procedure ToLadder;
begin
c:=0;
Find:=false;
If (FindColorSpiral2(x,y,(Ladder),550,5,750,177))then
begin
Find:=True;
Status('Ladder Found!');
MoveMouse(x+3,y);
Wait(w1);
ClickMouse(x+3,y,true);
Wait(w5);
Mapflag;
GoUp;
end;
If (FindColorSpiral2(x,y,(Gcolor),550,5,750,177))and(Find=false)then
begin
Status('Finding Middlepoint');
MoveMouse(x,y);
Wait(w1);
ClickMouse(x,y,true);
wait(w1);
MapFlag;
end;
If (FindColorSpiral2(x,y,(Rocks),590,70,605,110))and(Find=false)then
begin
repeat
if(FindColorSpiral2(x,y,(Rocks),590,70,605,110))then
Status('Going To Ladder 1/2');
MoveMouse(x,y);
Wait(w1);
ClickMouse(x,y,true);
Wait(w1);
Mapflag;
until(not FindColorSpiral2(x,y,(Rocks),590,70,605,110))or
(FindColorSpiral(x,y,(Ladder),550,5,750,177));
end;
If (FindColorSpiral2(x,y,(Ladder),550,5,750,177))and(Find=false)then
begin
Find:=True;
Status('Going To Ladder 2/2');
MoveMouse(x+3,y);
Wait(w1);
ClickMouse(x+3,y,true);
Wait(w5);
Mapflag;
GoUp;
end;
if(Go=false)and(Not FindColorSpiral(x,y,(walk1),550,5,750,177))or
(Find=false)and(Not FindColorSpiral(x,y,(walk1),550,5,750,177))then
begin
LogInIfNeeded;
ToLadder;
end;
If(L>=100)then
begin
Status('Bank Not Found!');
LogInIfNeeded;
ToLadder;
end;
end;
Procedure FindFight;
begin
If(FindColorSpiral(x,y,65280,160,100,400,250))then
begin
Status('Random Event Found');
SaveScreenShot('RandomEventRun.bmp');
Fight:=True;
Ran:=Ran+1
SetRunOn;
ToLadder;
Status('Waiting 10 sec...');
Wait(10000);
GoDown;
end;
END;
procedure FindText;
begin
C:=0;
Fight:=False;
If(findColorSpiral(a,b,65535,0,0,500,375))then
begin
SaveScreenShot('RandomEventTalk.bmp');
repeat
FindFight;
if(Fight=True)then break;
Status('Searching For Random Event '+inttostr(c)+'/50');
C:= C+1;
x:= 100+random(250);
y:= 100+random(200);
MoveMouse(x,y);
wait(50);
ClickMouse(x,y,false);
Wait(w1);
if(findBitmap(Talk,x,y))or(FindBitmap(TalkY,x,y))or(C>50)then break;
MoveMouse(10,10)
Wait(50);
Until(false);
if(FindBitmap(Talk,x,y))or(FindBitmap(TalkY,x,y))then
Talked:=Talked+1
ClickMouse(x,y,True);
wait(3000);
MoveMouse(x-100,y);
Wait(w1);
ClickMouse(x-100,y,true);
MapFlag;
If(c>50)then
end;
end;
Procedure ToGuild;
begin
c:=0;
SetRunOn;
Find:=false;
if (FindColorSpiral(x,y,(Walk1),550,5,750,177))then
begin
Find:=True;
FindText;
Status('Statue Found!');
MoveMouse(x-5,y);
Wait(w1);
ClickMouse(x-5,y,true);
Wait(10000);
MapFlag;
GoDown;
end;
If (FindColorSpiral(x,y,(Bcolor),550,5,750,177))and(Find=false)then
begin
FindText;
Status('Going To Guild 1/2');
MoveMouse(675,105);
Wait(w1);
ClickMouse(675,105,true);
Wait(w5);
MapFlag;
end;
if (FindColorSpiral(x,y,(Walk1),550,5,750,177))and(Find=false)then
begin
Find:=True;
FindText;
Status('Going To Guild 2/2');
MoveMouse(x-5,y);
Wait(w1);
ClickMouse(x-5,y,true);
Wait(w5);
MapFlagV;
GoDown;
end;
if(go=false)and(not FindColorSpiral(x,y,(Rocks),550,5,750,177))or
(Find=false)and(not FindColorSpiral(x,y,(Rocks),550,5,750,177))then
begin
LoginIfNeeded;
ToGuild;
end;
If(L>=100)then
begin
Status('Guild Not Found!');
LoginIfNeeded;
ToGuild;
end;
End;
Procedure ToBank;
begin
If (FindColorSpiral2(x,y,(walk1),550,5,750,177))then
begin
FindText;
Status('Going To Bank 1/2');
MoveMouse(x+5,y-44);
Wait(w1)
ClickMouse(x+5,y-44,true);
Wait(w4);
MapFlag;
end;
If (FindColorSpiral2(x,y,(BColor),550,5,750,177))then
begin
FindText;
Status('Going To Bank 2/2');
MoveMouse(x,y+1);
Wait(w1);
ClickMouse(x,y+1,true);
Wait(10000)
Mapflag;
end;
end;
Procedure OpenBank;
begin
c:=0;
L:=0;
Wait(100);
FindText;
begin
repeat
Status('Opening Bank '+inttostr(l)+'/50');
x:=110+random(200);
y:=180+random(130);
MoveMouse(x,y);
wait(50);
ClickMouse(x,y,false);
Wait(w1);
L:= L+1;
if(FindBitMap(quickbank,x,y))or(FindBitMap(quickbankyellow,x,y))or(L>=50)then break;
MoveMouse(10,10);
Wait(w1);
until(false);
if(L>=50)then
begin
LoginIfNeeded;
ToBank;
OpenBank;
end;
if(FindBitMap(quickbank,x,y))or(FindBitMap(quickbankyellow,x,y))then
begin
Wait(w1);
MoveMouse(x,y)
Wait(w1);
ClickMouse(x,y,true);
Wait(w4);
end;
end;
repeat
c:= c+5;
wait(500);
Status('Checking if bank is opend '+inttostr(c)+'/100');
until(FindBitMap(inbank,x,y))or(c=100);
If(c=100) then
begin
LogInIfNeeded;
ToBank;
OpenBank;
end;
end;
Procedure Deposit;
begin
Status('Depositing Stuf');
Wait(w1)
if (findColorSpiral(x,y,65536,560,280,745,475))and(Pick=1)or
(FindColorSpiral(x,y,65536,615,235,745,280))and(Pick=1)or
(FindColorSpiral(x,y,65536,560,235,745,475))and(Pick=2)then
begin
MoveMouse(x,y);
Wait(w1);
ClickMouse(x,y,false);
Wait(w2);
end;
If (FindBitmapIn(widAllY,x,y,560,235,745,475))or
(FindBitmapIn(widAll,x,y,560,235,745,475))then
begin
MoveMouse(x,y);
Wait(w1);
ClickMouse(x,y,true);
Wait(w2);
end;
Wait(1000);
end;
procedure DepositStuf;
begin
case Pick of
1:
begin
repeat
Deposit;
until(Not (findColorSpiral(x,y,65536,560,280,745,475)))And
(Not (FindColorSpiral(x,y,65536,615,235,745,280)));
end;
2:
begin
repeat
Deposit;
until(Not (FindColorSpiral(x,y,65536,560,235,745,475)));
end;
end;
End;
procedure DoMining;
begin
L:= 0;
c:= 0;
repeat
Wait(w1);
x:= 274;
y:= 180;
L:= L+1;
c:= 0;
LoginIfNeeded;
FindText;
FindFight;
Status('Mining Coal');
if(FindColorSpiral(x,y,(CoalOre),x-270,y-175,x+270,y+175))then
begin
MoveMouse(x,y);
Wait(w1);
ClickMouse(x, y, true);
Mapflag;
wait(1000);
if(GetColor(114,444)=0)and
(GetColor(121,442)=0)then
begin
L:=0;
Repeat
C:= c+1
Wait(100);
Until(not ((GetColor(114,444)=0)and
(GetColor(121,442)=0)))or(c>40);
if(c>40)then
DoMining;
end;
end;
until(GetColor(423,411)=0)or(getColor(490,431)=0)or(L>45);
if(getColor(490,431)=0)then
begin
Status('Going For New Pickaxe');
Wait(100);
Bpicks:=Bpicks+1;
TakeOff;
SetRunOff;
ToLadder;
ToBank;
OpenBank;
DepositStuf;
NewPicks;
CloseBank;
PutOn;
ToGuild;
DoMining;
end;
If(L>45)then
begin
GoCenter;
DoMining;
end;
End;
Procedure LoadBmps;
begin
flag := BitmapFromString(2, 2,
'FF00005D3311C656045D3311');
widAllY := BitmapFromString(8, 10,
'5D54475D54475D5447FFFF00FFFF00FFFF005D54475D54475D5447' +
'5D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447FFFF00' +
'FFFF000000000000005D5447FFFF00FFFF005D5447FFFF00FFFF00' +
'0000005D54475D5447FFFF00FFFF005D5447FFFF00FFFF00FFFF00' +
'FFFF00FFFF00FFFF00FFFF005D5447FFFF00FFFF00000000000000' +
'000000FFFF00FFFF005D5447FFFF00FFFF000000005D54475D5447' +
'FFFF00FFFF005D5447FFFF00FFFF000000005D54475D5447FFFF00' +
'FFFF005D5447FFFF00FFFF000000005D54475D5447FFFF00FFFF00' +
'5D5447FFFF00FFFF000000005D54475D5447FFFF00FFFF00');
widAll := BitmapFromString(8, 11,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D5447FFFFFFFFFFFFFFFFFF5D54475D54475D54475D5447' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF' +
'0000000000005D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFF000000' +
'5D54475D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFFFFFFFFFFFFFF' +
'FFFFFFFFFFFFFFFFFF5D5447FFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFF' +
'FFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF' +
'5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF5D5447' +
'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF');
Climb := BitmapFromString(12, 11,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D5447FFFFFFFFFFFFFFFFFF' +
'5D54475D54475D5447FFFFFFFFFFFF5D54475D54475D5447FFFFFF' +
'FFFFFF000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF000000' +
'5D5447FFFFFFFFFFFF0000000000005D54470000000000005D5447' +
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D54475D5447' +
'5D54475D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
'0000005D54475D54475D54475D54475D5447FFFFFFFFFFFF000000' +
'5D5447FFFFFFFFFFFF0000005D54475D54475D54475D54475D5447' +
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D54475D5447' +
'5D54475D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
'0000005D54475D54475D54475D54475D5447FFFFFFFFFFFF000000' +
'5D54475D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFF5D54475D5447' +
'FFFFFFFFFFFF0000005D54475D54475D5447FFFFFFFFFFFFFFFFFF' +
'0000000000005D5447FFFFFFFFFFFF000000');
ClimbYellow := BitmapFromString(11, 10,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D5447FFFF00FFFF00FFFF005D5447' +
'5D54475D5447FFFF00FFFF005D54475D5447FFFF00FFFF00000000' +
'FFFF00FFFF005D54475D5447FFFF00FFFF005D5447FFFF00FFFF00' +
'0000000000005D54470000000000005D5447FFFF00FFFF005D5447' +
'FFFF00FFFF000000005D54475D54475D54475D54475D5447FFFF00' +
'FFFF005D5447FFFF00FFFF000000005D54475D54475D54475D5447' +
'5D5447FFFF00FFFF005D5447FFFF00FFFF000000005D54475D5447' +
'5D54475D54475D5447FFFF00FFFF005D5447FFFF00FFFF00000000' +
'5D54475D54475D54475D54475D5447FFFF00FFFF005D5447FFFF00' +
'FFFF000000005D54475D54475D54475D54475D5447FFFF00FFFF00' +
'5D54475D5447FFFF00FFFF005D5447FFFF00FFFF005D54475D5447' +
'FFFF00FFFF00');
ClimbUp := BitmapFromString(13, 12,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D5447FFFFFF' +
'FFFFFFFFFFFF5D54475D54475D5447FFFFFFFFFFFF5D54475D5447' +
'5D54475D5447FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447' +
'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF000000000000' +
'5D54470000000000005D5447FFFFFFFFFFFF0000005D54475D5447' +
'FFFFFFFFFFFF0000005D54475D54475D54475D54475D5447FFFFFF' +
'FFFFFF0000005D54475D5447FFFFFFFFFFFF0000005D54475D5447' +
'5D54475D54475D5447FFFFFFFFFFFF0000005D54475D5447FFFFFF' +
'FFFFFF0000005D54475D54475D54475D54475D5447FFFFFFFFFFFF' +
'0000005D54475D5447FFFFFFFFFFFF0000005D54475D54475D5447' +
'5D54475D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF' +
'0000005D54475D54475D54475D54475D5447FFFFFFFFFFFF000000' +
'5D54475D54475D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFF5D5447' +
'5D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447FFFFFF' +
'FFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF0000005D5447' +
'5D54475D54475D54475D54470000000000000000005D54475D5447' +
'5D5447000000000000');
ClimbUpYellow := BitmapFromString(12, 12,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D5447FFFF00FFFF00FFFF00' +
'5D54475D54475D5447FFFF00FFFF005D54475D54475D5447FFFF00' +
'FFFF00000000FFFF00FFFF005D54475D5447FFFF00FFFF00000000' +
'5D5447FFFF00FFFF000000000000005D54470000000000005D5447' +
'FFFF00FFFF000000005D5447FFFF00FFFF000000005D54475D5447' +
'5D54475D54475D5447FFFF00FFFF000000005D5447FFFF00FFFF00' +
'0000005D54475D54475D54475D54475D5447FFFF00FFFF00000000' +
'5D5447FFFF00FFFF000000005D54475D54475D54475D54475D5447' +
'FFFF00FFFF000000005D5447FFFF00FFFF000000005D54475D5447' +
'5D54475D54475D5447FFFF00FFFF000000005D5447FFFF00FFFF00' +
'0000005D54475D54475D54475D54475D5447FFFF00FFFF00000000' +
'5D54475D5447FFFF00FFFF005D5447FFFF00FFFF005D54475D5447' +
'FFFF00FFFF000000005D54475D54475D5447FFFF00FFFF00FFFF00' +
'0000000000005D5447FFFF00FFFF000000005D54475D54475D5447' +
'5D54470000000000000000005D54475D54475D5447000000000000' +
'');
quickbank := BitmapFromString(63, 6,
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF000000' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00FFFF00000000FFFF00FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'');
quickbankyellow := BitmapFromString(70, 2,
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000000000FFFF00FFFF00FFFF00FFFF00' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000000000000000' +
'00000000FFFF00FFFF00000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00FFFF00000000FFFF00FFFF000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000000000FFFF00FFFF00FFFF00000000000000000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF0000000000000000000000000000000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000000000FFFF' +
'00FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF000000' +
'00000000FFFF00FFFF000000000000');
inbank := BitmapFromString(79, 2,
'FF981FFF981FFF981F000000000000000000000000000000000000' +
'000000FF981FFF981FFF981FFF981FFF981F000000000000000000' +
'000000FF981FFF981FFF981FFF981F000000000000000000FF981F' +
'FF981FFF981FFF981FFF981F000000000000000000FF981FFF981F' +
'000000FF981FFF981F000000000000000000000000000000000000' +
'000000FF981FFF981FFF981FFF981F000000000000000000000000' +
'FF981FFF981F000000000000000000000000000000000000000000' +
'000000FF981FFF981F000000FF981FFF981F000000000000000000' +
'FF981FFF981F000000000000FF981FFF981F000000000000000000' +
'FF981FFF981F000000000000000000000000000000000000FF981F' +
'FF981F000000000000FF981FFF981F000000000000FF981FFF981F' +
'000000000000FF981FFF981F000000000000FF981FFF981FFF981F' +
'000000FF981FFF981F000000000000FF981FFF981FFF981FFF981F' +
'000000000000000000000000000000000000000000FF981FFF981F' +
'000000000000FF981FFF981F000000000000000000FF981FFF981F' +
'000000000000000000000000000000000000000000000000FF981F' +
'FF981FFF981FFF981F000000000000000000000000FF981FFF981F' +
'000000000000FF981FFF981F000000');
Talk := BitmapFromString(15, 13,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
'FFFFFF5D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D5447000000FFFFFFFFFFFF0000000000000000005D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'FFFFFFFFFFFF0000005D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D5447FFFFFFFFFFFF000000' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D5447FFFFFFFFFFFF0000005D54475D54475D5447' +
'FFFFFFFFFFFFFFFFFFFFFFFF5D54475D54475D54475D54475D5447' +
'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF5D54475D54475D54475D5447FFFFFFFFFFFF000000' +
'5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000' +
'5D54475D54475D5447FFFFFFFFFFFF0000005D54475D5447FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF0000005D54475D54475D5447' +
'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF0000005D5447' +
'FFFFFFFFFFFF0000005D54475D54475D5447FFFFFFFFFFFF000000' +
'5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000' +
'5D54475D54475D54475D54470000000000005D54475D54475D5447' +
'5D5447000000000000000000000000000000');
TalkY := BitmapFromString(14, 12,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D5447FFFF00FFFF00FFFF00' +
'FFFF00FFFF00FFFF005D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D5447000000FFFF00FFFF00000000000000000000' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'FFFF00FFFF000000005D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D5447FFFF00FFFF000000005D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D5447FFFF00FFFF000000005D54475D54475D5447FFFF00FFFF00' +
'FFFF00FFFF005D54475D54475D54475D5447FFFF00FFFF00000000' +
'5D54475D5447FFFF00FFFF00000000000000FFFF00FFFF005D5447' +
'5D54475D5447FFFF00FFFF000000005D54475D54475D5447FFFF00' +
'FFFF00FFFF00FFFF00FFFF005D54475D54475D5447FFFF00FFFF00' +
'0000005D54475D5447FFFF00FFFF00000000000000FFFF00FFFF00' +
'5D54475D54475D5447FFFF00FFFF000000005D54475D5447FFFF00' +
'FFFF000000005D5447FFFF00FFFF005D54475D54475D5447FFFF00' +
'FFFF000000005D54475D54475D5447FFFF00FFFF00FFFF00FFFF00' +
'FFFF005D54475D54475D54475D54470000000000005D54475D5447' +
'5D54475D5447000000000000000000000000');
end;
Begin
LoadBmps; SetTime;
ST:=GetSystemTime;
trips:=0; Talked:=0; Ran:=0; Bpicks:=0;
LoginIfNeeded;
repeat
FindText;
ToGuild
DoMining;
SetRunOff;
ToLadder;
ToBank;
OpenBank;
DepositStuf;
CloseBank;
trips:= trips+1
PrintProgressReport;
until(false);
end.
.
