////////////////////////////////////////////////////////////////////////////////////////////// /// 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 = ''; //Enter Your Username password = ''; //Enter Your Password {========== Colors on main screen ==========} CoalOre = 2703167; //Add Coal color {============ Colors on minimap ============} BColor = 6150654; //Add a yellow color of Bank simbol Walk1 = 9211287; //Add the color of the statue (right next to the ladder going down) Ladder = 1192303; //Add Ladder color Rocks = 6577001; //Add Coal Rocks color in MINIMAP! GColor = 9143184; //Add Guild simbol color(Pickaxe color) 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[s] Talked To Random Event') Writeln(''+inttostr(Ran)+' Time[s] Ran From Random Event') writeln(''+inttostr(Bpicks)+' New Pickaxes Taken') writeln('Mined and Banked ('+inttostr(trips)+' Time[s]) '+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.