Easier?!
We had no good getuptext (That was so flawed) we had no TPAs and dtms and much less ddtms. We literally had to cut the screen up ourselves, and we couldnt find text or anything so we had to get a bitmap of the menu options when we needed to click menus!!
And no I won't kill youHy71194
Some day rocks will RULE the world!!
Lets say Scar was harder to code/RS was easyer to cheat
Happy now?
EDIT:
Gof, Quote right person maybe?
[CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

best script ever.
Code://////////////////////////////////////////////////// // Ultimate Miner & Banker 2.8 // // By chriz // //////////////////////////////////////////////////// //Setup: // // ·Need Scar version 1.13 // // ·High Details, V-Bright, Highest angle of view // // ·Map pointing north // // ·Pickaxe in the first bankslot // // ·Take minimap colors // // ·Mine at Varrock southeast or falador south // // or Mining Guild // //////////////////////////////////////////////////// program UltimateMinerBanker; var c,l,x,y,n,h,w,k,flag,Talk,TalkY,box,trips,picks,runs,talked,ore,Mine,MineY,Take,TakeY,lamps,ilamp,tempLadder,tempLadder2, rcmQuickBank,rcmQuickBankY,InBank,StoreAll,StoreAllY,CloseWindow,Yellowtext,FindingPick,gas,Pickmode,tempbank, PickAxe,PickAxeSteel,PickHead,PickHandle,Attached,drop,orebmp,hc1,hc2,hc3,hc4,hc5,BNorth,tripcount,town2: Integer; ST: LongInt; Loged,Fight,swinging,ColorsFound,fixed:boolean; {.include BoxBreaker.txt} const {=================Setup================} username = ''; //Enter Your Username password = ''; //Enter Your Password UsePAR = True; //use PAR over built in random event protection? Town = 2; //1 to start in varrock, 2 for falador, 3 for guild mining, 4 for iron/guildmining in falador Pick = 1; //1 if you can't wield pickaxe 2 if you can FindGaser = True; //Allows the script to look for steaming rocks but can slow down minning PickFindCount = 50; //number of times script looks for a broken pickhead until giving up and withdrawing a new one Pickup = true; //Pick up ore other people have dropped or not? Leftclick = True; // leftclick on the rocks when mining? Screenshot = False; //Take screenshots of random events? dir = ''; //Folder to take screenshots in, leave blank for scripts folder Make sure this folder exists in the scripts folder of you will get errors Tolerance = 0; //Tolerance to find the colors on the minimap, leave at 0! {===========From Game Screen===========} {Only needed if Iron mining} IronOre1 = 2700888; //Rocks Colors IronOre2 = 2569300; //Rocks Colors IronOre3 = 2832731; //Rocks Colors {Only needed if Guild mining} CoalOre1 = 2702396; //Rocks Colors CoalOre2 = 2834753; //Rocks Colors CoalOre3 = 3097668; //Rocks Colors {=============From MiniMap=============} banklogo = 6084350; //Minimaps banklogo color miningspot = 9076623; //Minimaps Pick Head color {Only needed if Iron mining} roadcolor = 7829631; //Minimaps Roads color {Only needed if Guild mining} Statue = 9277337; //Add the color of the n statue (right next to the ladder when going down) Ladder = 7746; //Add Ladder color Rocks = 4474428; //Add Coal Rocks color in MINIMAP! {===============End Setup==============} Procedure Mouse(x,y,rx,ry: integer; left:boolean); begin x:=x+random(rx); y:=y+random(ry); if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then begin MoveMouseSmoothEx(x,y,1,6,15,5+random(10),5+random(10)); GetMousePos(x,y); wait(50+random(50)) holdmouse(x,y,left) wait(5+random(80)) releasemouse(x,y,left) wait(100+random(100)) end; end; Procedure MMouse(x,y,rx,ry: Integer); {Made by Odie5533} begin x:=x+random(rx); y:=y+random(ry); if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then begin MoveMouseSmoothEx(x,y,1,6,15,5+random(10),5+random(10)); GetMousePos(x,y); end; end; {.include par.txt} Procedure PrintProgressReport; var RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt; Time:String; e:Integer; begin if(Not Loged)then 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 If (Town = 3) then e := 50 If (Town = 4) then e := 40 else e := 35 If (Town = 1) then writeln('-----Progress Report for Ironmining at Falador-----'); If (Town = 2) then writeln('-----Progress Report for Ironmining at Varrock-----'); If (Town = 3) then writeln('---------Progress Report for Guild Mining----------'); If (Town = 4) then writeln('---------Progress Report for Multi Mining----------'); writeln('Worked for '+Time); If (UsePAR = True)and(town = 2)then writeln('Ran away from random events '+inttostr(runs)+' Time[s]'); If (UsePAR = False)then writeln('Ran away from random events '+inttostr(runs)+' Time[s]'); If (UsePAR = False)then writeln('Talked to random events '+inttostr(talked)+' time[s]'); If (PickFindCount > 0)then writeln('Attached pick head '+inttostr(attached)+' time[s]'); If (FindGaser = true)then writeln('Stopped for gas '+inttostr(gas)+' time[s]'); writeln('New Pick Taken '+inttostr(Picks)+' Time[s]'); writeln('Fixed lamp '+inttostr(lamps)+' Time[s]'); writeln('Mined '+inttostr(trips)+' Time[s] '+inttostr(trips*(26+Pick))+' Ores'); writeln('Gained '+inttostr(trips*e*(26+Pick))+' mining Experience'); writeln('Currently Averaging '+inttostr(3600/avtime*(26+Pick))+' Ores and '+inttostr(3600/avtime*e*(26+Pick))+' Experience an Hour'); end; end; end; procedure GetScreenShot(reason:string; event:Integer); var x : string; begin if(screenshot)then begin x:=inttostr(Event) SaveScreenshot(apppath+'Scripts\'+dir+'\ScreenCaptureFor'+reason+inttostr(strtoint((copy(x,length(x),1))))+'.bmp'); writeln('ScreenCaptureFor'+reason+inttostr(strtoint((copy(x,length(x),1))))+'.bmp'); end; end; procedure sendkeysmooth(str:string); var x:integer; begin repeat x := x+1; wait(100+random(200)); sendkeyssilent(copy(str,x,1)); until x > length(str) end; Procedure ChatFix; {ChatFixer by Odie5533} begin while(not(GetColor(54,496)=255))do Mouse(45,485,15,10,true); wait(300+random(100)); while(not(GetColor(183,496)=255))do Mouse(176,485,15,10,true); wait(300+random(100)); while(not(GetColor(323,496)=255))do Mouse(315,485,15,10,true); wait(300+random(100)); end; Procedure FaceNorth; begin If (not(FindBitmapIn(BNorth,x,y,561,4,571,17))) then while(not(FindBitmapIn(BNorth,x,y,561,4,571,17)))do SendArrowSilentWait(1,2+random(2)); end; procedure Checkloginscreen; var p:integer; begin if(FindBitmap(CloseWindow,x,y))then begin p:=0; status('closing welcome box'); repeat Wait(400+random(100)); Mouse(x,y,40,4,true); Wait(500); p:=p+1; until(not FindBitmap(CloseWindow,x,y))or(p>=3); end; end; procedure LoginIfNeeded;//A stupid3ooo procedure based of many others var counter:integer; begin Checkloginscreen; if(IsTextAt2(293,251,'Username',10))then begin Mouse(460,322,10,2,true); Wait(500+random(500)); end; if(IsTextAt2(309,241,'Welcome to RuneScape',50))then begin Mouse(400,280,125,20,true); Wait(200+random(100)); if(IsTextAt2(293,251,'Username',50))then begin status('Logging in'); Mouse(400,256,20,5,true); Wait(50+random(25)); sendkeysmooth(username); Wait(400+random(150)); sendkeysmooth(chr(13)); Wait(400+random(150)); sendkeysmooth(password); Wait(400+random(100)); Mouse(300,322,20,5,true); repeat counter:=counter+1 wait(100); until(FindBitmap(CloseWindow,x,y))or(counter=150) Checkloginscreen; end; end; end; Procedure LogOut(why:string); begin Writeln(' '); Writeln(why); Writeln(' '); Wait(100+random(10)); Loged:=true; Mouse(635,470,25,20,true); Wait(100+random(10)); c:=0; repeat c:=c+1 Mouse(586,370,119,10,true); Wait(250+random(100)); until(GetColor(400,130)=1842201)and(GetColor(354,120)=1842201)or(c=15); end; Procedure SetRun(runon: boolean); {Edited by Odie5533} begin Wait(20+random(5)); Mouse(701,468,10,25,true); Wait(70+random(50)); if(not(GetColor(607,263)=2303648))and(RunOn)then Mouse(611,253,15,15,true); if(GetColor(607,263)=2303648)and(not RunOn)then Mouse(569,256,5,5,true); Wait(100+random(50)); Mouse(644,178,5,5,true); Wait(100+random(50)); End; Procedure MapFlag; var M:integer; begin Check4Mod; Wait(200); M:=0; if(FindBitmapIn(flag,x,y,570,5,725,162))then begin repeat wait(500); M:=M+1; until(FindBitmapIn(flag,x,y,633,64,665,90))and (not(GetColor(200,148)=16777215))or (not FindBitmapIn(flag,x,y,570,5,725,160))and(M>9); Wait(100); end; end; Procedure MapFlag2; begin Check4Mod; Wait(200); if(FindBitmapIn(flag,x,y,565,5,725,160))then begin repeat wait(1000); until(not FindBitmapIn(flag,x,y,565,5,725,160)); Wait(100); end; End; procedure TakePickaxe; begin Mouse(575,218,20,20,true); Wait(400+random(150)); Mouse(84,64,20,20,true); Wait(500+random(150)); n:=0; Picks:=Picks+1; end; Procedure TakeOff; begin if (PickMode=2) then begin Mouse(674,174,20,20,true); Wait(100+random(50)); Mouse(580,290,20,20,true); Wait(100+random(50)); Mouse(630,172,30,20,true); wait(400+random(50)); end; end; Procedure PutOn; begin if (PickMode=2) then begin if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true); Wait(50+random(50)); if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100))or (FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then Mouse(x,y,20,20,true); Wait(3000+random(50)); If (getcolor(26,417)=0)and(getcolor(217,428)=0) then begin Writeln('Cannot Equip that pick, switching pick mode') Pickmode:=1 end end; end; //===================================Banking==================================\\ Procedure ScrollBank; var v:integer; begin if(IsTextAt2(185,36,'The Bank of RuneScape', 100))then begin if (not(getcolor(475,75)=5531254))then begin status('Scrolling Bank Up...') wait(100+random(50)); MMouse(471,61,10,10); wait(random(25)); GetMousePos(x,y); HoldMouse(x,y,true); repeat wait(200+random(50)); v:= v+1 until (getcolor(475,75)=5531254)or(v>22) ReleaseMouse(x,y,true); end; end; end; procedure Deposit; var t :integer; begin repeat repeat wait(121+random(65)) if(findColorSpiral(x,y,65536,565,250,730,460))and(PickMode=1)or (FindColorSpiral(x,y,65536,611,215,730,245))and(PickMode=1)or (findColorSpiral(x,y,65536,570,235,745,485))and(PickMode=2)then begin c:=c+1; t:=t+1; Mouse(x-5,y,5,5,False); wait(227+random(33)); end; if (FindBitmapIn(StoreAllY,x,y,560,215,730,460))or (FindBitmapIn(StoreAll,x,y,560,215,730,460))then begin c:=0; Mouse(x,y,60,8,true); wait(1046+random(42)); end; until(not(findColorSpiral(x,y,65536,565,250,730,460)))and(PickMode=1)and (not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or (not(findColorSpiral(x,y,65536,560,235,745,475)))and(PickMode=2)or (c>4) or (t>5+random(5)) if(c>4)then begin c:=0; wait(121+random(65)) MoveMouseSmooth(573+random(10),189+random(10)); end; until(not(findColorSpiral(x,y,65536,565,250,730,460)))and(PickMode=1)and (not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or (not(findColorSpiral(x,y,65536,560,235,745,475)))and(PickMode=2)or (c>4) or (t>5+random(5)) end; procedure CloseBank; begin if(IsTextAt2(185,36,'The Bank of RuneScape', 100))and(GetColor(464,39)=8421504)then begin Mouse(430,39,5,5,true); wait(800+random(300)); end; end; Function FindObjColorTol(objname:string; objcolor,objtol:integer):boolean; var a,b:integer; begin if(not(IsTextAt2(9,9,objname,100)))then while(b<16)do begin wait(30); if(a = 27)then begin a:= 0; b:= b + 1; end; if(b > 15)then break; if(FindColorSpiralTolerance(x,y,objcolor,a*20+4,b*20+4,a*20+24,b*20+24,objtol))then begin MMouse(x,y,0,0); wait(100+random(50)); if(istextat2(9,9,objname,100))then begin result:=true; break; end; end; a:=a+1; end; end; procedure Banking; var c:integer; begin if(FindObjColorTol('Use Bank',tempbank,11))then begin tempbank:= GetColor(x,y); Mouse(x,y,0,20,false); wait(75+random(25)); if(FindBitmap(rcmQuickBank,x,y))or(FindBitmap(rcmQuickBankY,x,y))then begin Mouse(x,y,5,2,true); MapFlag; end else if(FindBitmap(box,x,y))then begin MMouse(x,y,-30,-30); end else MMouse(0,0,60,60); while(not(IsTextAt2(185,36,'The Bank of RuneScape',100)))and(c<30)do begin wait(50+random(50)); c:=c+1; end; end; if(IsTextAt2(185,36,'The Bank of RuneScape',100))and(not(GetColor(476,76)=5531254))then Mouse(472,81,4,10,true); //Scrolls your bank up wait(200+random(100)); If(n=1)then begin ScrollBank; TakePickaxe; CloseBank; end else begin ScrollBank; Deposit; CloseBank; end; end; //============================================================================\\ //===========================Map Walking for Varrock==========================\\ procedure ToRocksVarrock; begin Loginifneeded; L:=0; c:=0; if(FindColorSpiralTolerance(x,y,banklogo,575,70,730,135,Tolerance))Then begin SetRun(true); Wait(100) Status('Going Out of bank'); Mouse(x+21,y-26,5,5,True) MapFlag; c:=1 end; Loginifneeded; repeat if(FindColorSpiralTolerance(x,y,roadcolor,690,25,692,120,Tolerance))Then begin c:=c+1; Status('Going Out Varrock '+inttostr(c)+'/3'); wait(50) Mouse(x,y,5,5,True) MapFlag; end Loginifneeded; L:=L+1; Until(FindColorSpiralTolerance(x,y,roadcolor,585,108,710,110,Tolerance))and(c>2)or(L>30); c:=1; L:=0; repeat if(FindColorSpiralTolerance(x,y,roadcolor,585,108,710,110,Tolerance))Then begin Status('Going To Rocks '+inttostr(c)+'/9'); wait(50) Mouse(x,y,5,5,True) MapFlag; c:=c+1; end; Loginifneeded; L:=L+1; until(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))and(c>8)or(c>10)or(L>30); if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then begin Status('To center') wait(50) Mouse(x,y,5,5,True) MapFlag2; end; If(L>30)then begin LogOut('Lost To Rocks Varrock') end; end; procedure ToBankVarrock; begin Loginifneeded; c:=0; L:=0; if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then begin Status('Out of Mines') Mouse(x+30,y-35,5,5,True) MapFlag; c:=1 end; Loginifneeded; repeat If(FindColorSpiralTolerance(x,y,roadcolor,595,32,700,34,Tolerance))Then begin Status('Going To Varrock '+inttostr(c)+'/4'); wait(50) Mouse(x,y,5,5,True) MapFlag; c:=c+1; end; Loginifneeded; L:=L+1; Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>4)or(L>30) c:=1; L:=0; repeat If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then begin Status('Going To Bank '+inttostr(c)+'/3'); wait(50) Mouse(x,y,5,5,True) MapFlag; c:=c+1; end; Loginifneeded; L:=L+1; until(FindColorSpiralTolerance(x,y,banklogo,575,60,710,135,Tolerance))and(c>3)or(c>4)or(L>30) If(FindColorSpiralTolerance(x,y,banklogo,575,60,710,135,Tolerance))Then begin Status('Going In Bank') wait(50) Mouse(x,y,5,5,True) MapFlag2; Wait(5000) end; If(L>30)then begin LogOut('Lost To Bank Varrock') end Banking; end; //============================================================================\\ //===========================Map Walking for Falador==========================\\ procedure ToRocksFalador; begin Loginifneeded; L:=0; c:=0; if(FindColorSpiralTolerance(x,y,banklogo,575,70,730,135,Tolerance))Then begin SetRun(true); Wait(100) Status('Going Out of bank'); Mouse(x-30,y+20,5,5,True) MapFlag; Wait(200) c:=1 end; Loginifneeded; repeat if(FindColorSpiralTolerance(x,y,roadcolor,585,120,710,122,Tolerance))Then begin c:=c+1; Status('Going South '+inttostr(c)+'/8'); wait(50) Mouse(x,y,5,5,True) MapFlag; Wait(200) end Loginifneeded; L:=L+1; Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>7)or(L>30); c:=1; L:=0; repeat If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then begin Status('Going West '+inttostr(c)+'/2'); wait(50) Mouse(x,y,5,5,True) MapFlag; c:=c+1; end; Loginifneeded; L:=L+1; until(FindColorSpiralTolerance(x,y,roadcolor,585,115,710,117,Tolerance))and(c>2)or(L>30) c:=0; L:=0; repeat if(FindColorSpiralTolerance(x,y,roadcolor,585,115,710,117,Tolerance))Then begin c:=c+1; Status('Going south '+inttostr(c)+'/4'); wait(50) Mouse(x,y,5,5,True) MapFlag; end Loginifneeded; L:=L+1; Until(c>=2); L:=0; repeat begin c:=c+1; Status('Going south '+inttostr(c)+'/4'); wait(50) Mouse(650,125,5,5,True) MapFlag; end Loginifneeded; L:=L+1; until(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))and(c>2)or(c>3)or(L>30) if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then begin Status('To iron') wait(50) Mouse(x-15,y-15,10,10,True) MapFlag; end; if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then begin Wait(200) Mouse(x-30,y,5,5,True) MapFlag2; end; If(L>30)then begin LogOut('Lost To Rocks Falador') end; end; procedure ToBankFalador; begin Loginifneeded; c:=0; L:=0; if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then begin Status('Out of Mines') Mouse(x-15,y-15,10,10,True) MapFlag; end Loginifneeded; if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then begin c:=1 Loginifneeded; Status('Going north '+inttostr(c)+'/2'); wait(50) Mouse(x-15,y-60,5,5,True) MapFlag; end Loginifneeded; repeat if(FindColorSpiralTolerance(x,y,roadcolor,615,32,700,34,Tolerance))Then begin c:=c+1; Status('Going north '+inttostr(c)+'/2'); wait(50) Mouse(x,y,5,5,True) MapFlag; end Loginifneeded; L:=L+1; Until(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))or(c>4)or(L>30); c:=0; L:=0; repeat if(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))Then begin c:=c+1; Status('Going East '+inttostr(c)+'/2'); wait(50) Mouse(x,y,5,5,True) MapFlag; end Loginifneeded; L:=L+1; Until(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))and(c>1)or(c>3)or(L>30); c:=0; L:=0; repeat if(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))Then begin c:=c+1; Status('Going North '+inttostr(c)+'/8'); wait(50) Mouse(x,y,5,5,True) MapFlag; L:=0; end Loginifneeded; L:=L+1; Until(FindColorSpiralTolerance(x,y,banklogo,574,45,722,160,Tolerance))and(c>4)or(c>12)or(L>30); If(FindColorSpiralTolerance(x,y,banklogo,574,35,722,160,Tolerance))Then begin status('Going In Bank ') wait(50) Mouse(x,y,5,5,True) MapFlag2; Wait(4000) end If(L>30)then begin LogOut('Lost To Bank Falador') end Banking; end; //============================================================================\\ //========================Map Walking for Guild Mining========================\\ procedure ClimbLadder(color,ladder:integer); var count:integer; begin status('Climbing ladder'); if(FindObjColorTol('Climb',ladder,5))then begin Ladder:= GetColor(x,y); MMouse(x,y,2,2); Wait(300+random(150)); if(IsTextAt2(9,9,'Climb',100))then begin GetMousePos(x,y); If not (FindColorSpiral(x,y,color,565,5,725,160)) then Mouse(x,y,2,2,True); end; Wait(300+random(150)); repeat count:=count+1; wait(300+random(200)); until(FindColorSpiral(x,y,color,565,5,725,160))or(count>=20) end; end; procedure GoCenter; begin if(not(FindColorSpiral(x,y,miningspot,565,65,715,160)))then if(FindColorSpiral(x,y,Rocks,565,65,715,160))then begin Mouse(x,y,5,5,true); MapFlag; Wait(300+random(150)); end; if(FindColorSpiral(x,y,miningspot,565,65,715,160))then begin Mouse(x,y,20,20,true); MapFlag2; Wait(300+random(150)); end; end; Procedure ToBankGuild; begin If(Not Loged)then begin If (FindColorSpiral2(x,y,(statue),550,5,750,177))then begin Status('Going To Bank 1/2'); Mouse(x+5,y-46,3,3,true); Wait(400+random(150)); MapFlag; end; If (FindColorSpiral2(x,y,(banklogo),550,5,750,177))then begin Status('Going To Bank 2/2'); Mouse(x,y+2,1,1,true); Wait(5000+random(250)) Mapflag2; end; Banking; end; End; procedure ToLadder(climb:boolean); var counter:integer; begin If(Not Loged)then begin status('Walking to ladder'); repeat if(not(FindColor(x,y,Ladder,575,5,725,160)))and(FindColor(x,y,Rocks,585,65,625,160))then begin counter:=counter+1 Mouse(x,y,5,5,true); MapFlag; Wait(200+random(50)); end Loginifneeded; until(FindColorSpiral(x,y,Ladder,575,5,725,160))or(counter=5) if(FindColorSpiral(x,y,Ladder,575,5,725,160))then begin Mouse(x,y,5,5,true); MapFlag2; Wait(200+random(50)); if(climb=true)then begin ClimbLadder(Statue,Templadder2);end; end; if (climb=True)and(Not FindColorSpiral(x,y,(Statue),575,8,720,135))then begin LogInIfNeeded; ToLadder(climb); end else if(climb=true)then ToBankGuild; end; end; Procedure ToGuild; begin If(Not Loged)then begin If (not(FindColorSpiral(x,y,(Statue),550,5,750,177)))and(FindColorSpiral(x,y,(banklogo),550,5,750,177))then begin Status('Going To Guild'); Mouse(x+40,106,3,3,true); Wait(400+random(250)); MapFlag; end; if (FindColorSpiral(x,y,(Statue),550,5,750,177))then begin Status('Statue Found!'); Mouse(x-10,y,5,0,true); Wait(5000+random(250)); MapFlag2; if (FindColorSpiral(x,y,(Statue),638,73,658,93))then ClimbLadder(Rocks,templadder); end else begin FaceNorth; LogInIfNeeded; ToGuild; end; Wait(50+random(50)); if (Not FindColorSpiral(x,y,(Rocks),575,8,710,135))then begin LogInIfNeeded; ToGuild; end else GoCenter; end; end; //=============================Anti Random Events=============================\\ procedure FindPickHeadColor(f:Boolean); begin if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true); if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100)))and (not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100)))then begin Mouse(675,175,15,25,true); if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100)))and (not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100)))then begin If (f = True) Then begin writeln(''); writeln('ERROR! cannot find pick in screen, please put pick in inventory or your equip page and restart the script!'); writeln(''); ColorsFound:=False; end else Logout('No Picks Left'); end; end; if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100))or (FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then begin hc1:=GetColor(x+6,y+3); hc2:=GetColor(x+18,y+7); hc3:=GetColor(x+20,y+6); hc4:=GetColor(x+19,y+6); hc5:=GetColor(x+16,y+5); ColorsFound:=True; if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true); end; end; procedure ItemGrab; begin if(FindColorSpiral(x,y,241,565,5,725,160))then begin Mouse(x,y,1,1,true); MapFlag2; Wait(5000+random(100)); //FindTextSpiral('Take',240,180,50,5,10+random(10)); GetMousePos(x,y); Mouse(x,y,0,0,true); Wait(1000+random(100)); end; end; procedure FindFight; begin If(FindColorSpiral(x,y,65280,180,90,320,230))then Wait(1000); If(FindColorSpiral(x,y,65280,180,90,320,230))then begin Status('Random Event Found'); Fight:=True; GetScreenShot('RunFromFight',Runs); Runs:=Runs+1; SetRun(true); If (town2 = 3)or(town2 = 4)then begin ToLadder(false); Wait(10000+random(1000)); gocenter; end else begin Wait(50+random(10)); Mouse(680,60,5,5,true); Wait(100); Mapflag; Wait(10000+random(1000)); if(FindColorSpiralTolerance(x,y,miningspot,577,22,746,164,Tolerance))Then begin Mouse(x,y,5,5,True); MapFlag; If(Town2=2)then Mouse(x-30,y,5,5,True); end else Mouse(615,110,5,5,true); end; Wait(100); MapFlag2; SetRun(false); end; end; procedure TalkToRand; begin repeat if (FindColorSpiral(x,y,16711680,5,345,510,465))or (FindColorSpiral(x,y,16777215,5,345,510,465))then begin Mouse(x,y,50,2,true); wait(2000+random(1000)); end; until(GetColor(20,434)=0) end; procedure FindText; var counter:integer; begin if (FindColor(x,y,65535,0,0,515,338))then wait(200) if (FindColor(x,y,65535,0,0,515,338))then begin GetScreenShot('YellowtextFound',Yellowtext); Yellowtext := Yellowtext + 1; repeat counter:=counter+2+random(1); MMouse(x+counter,y+15,0,3) wait(5); if(FindColorSpiral(x,y,65280,180,90,320,230))then begin FindFight; break; end; if(IsTextAt2(9,9,'Ta',100))then begin GetMousePos(x,y); Mouse(x,y,1,1,false); Wait(200+random(100)); if(FindBitmap(Talk,x,y))or(FindBitmap(Talky,x,y))then begin Mouse(x,y,40,5,true); MapFlag2; wait(1000+random(1000)); GetScreenShot('Talked',Talked); Talked:=Talked+1 TalkToRand; end; end; until(counter>=250); end; end; procedure AttachPick; begin if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))and (FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))then begin if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))then begin GetScreenShot('FixingPick',Attached); Attached:=Attached+1 Mouse(x,y,5,5,true); Wait(1000+random(100)); end; if(FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))then begin Mouse(x,y,5,5,true); Wait(1000+random(100)); Fixed := True end; end else fixed := false; end; procedure FindPick; var DropCount,Counter:integer; begin if((GetColor(387,382)=0)and(GetColor(485,413)=0))then begin GetScreenShot('FindingPick',FindingPick); FindingPick := FindingPick + 1; repeat DropCount:=DropCount+1 If(FindBitmapSpiralTolerance(Orebmp,x,y,550,200,745,465,100))then begin Mouse(x,y,2,2,false); Wait(100+random(100)); if(FindBitmap(Drop,x,y))then begin Mouse(x,y,10,2,true); Wait(100+random(100)); MMouse(0,0,50,50); Wait(500+random(100)); end; end; until(DropCount=2); Mouse(683,184,5,5,true); wait(500+random(100)); Mouse(591,303,5,5,true); wait(500+random(100)); Mouse(647,183,5,5,true); wait(500+random(100)); repeat counter:=counter+1 if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))then break; if(FindColorSpiral(x,y,hc1,0,0,515,338))or (FindColorSpiral(x,y,hc2,0,0,515,338))or (FindColorSpiral(x,y,hc3,0,0,515,338))or (FindColorSpiral(x,y,hc4,0,0,515,338))or (FindColorSpiral(x,y,hc5,0,0,515,338))then begin MMouse(x,y,0,0); wait(100+random(100)); if(IsTextAt2(9,9,'Take', 100))then begin Mouse(x,y,2,2,true);MapFlag2;end end else itemgrab; until(counter>=PickFindCount)or(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50)); AttachPick; PutOn; end; end; Procedure FindLamp; begin while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100))do begin Mouse(x,y,10,10,true); wait(3000+random(1000)); Mouse(157,220,12,12,true) wait(3000+random(1000)); Mouse(248,255,10,2,true); wait(3000+random(1000)); Mouse(226,442,10,3,true); wait(3000+random(1000)); Lamps:=Lamps+1; end; end; Procedure FindRandoms; begin if(Not Loged)then begin LoginIfNeeded; Checkloginscreen; FindFight; FindBox; Check4Lamp('mining'); Check4Mod; if(UsePAR=true)then begin Check4Randoms; end else FindText; end; end; Procedure FindGas(findx,findy:integer); //By Stupid3ooo var counter,GasColor,bmap,gasfind:integer; ClientCanvas,BMapCanvas:TCanvas; begin if(FindGaser=true)then begin GasColor:=8296866;//8296866 if(FindColorSpiralTolerance(x,y,GasColor,findx-16,findy-16,findx+16,findy+16,20))then begin repeat counter:=counter+1 begin ClientCanvas:= GetClientCanvas; bmap:= BitmapFromString(32,32,''); BMapCanvas:= GetBitmapCanvas(bmap); CopyCanvas(ClientCanvas,BMapCanvas,findx-16,findy-16,findx+16,findy+16,0,0,32,32); wait(100); if(FindBitmap(bmap,x,y))then begin gasfind:=0;end else gasfind:=gasfind+1; FreeBitmap(bmap); end; if(gasfind=5)then begin WriteLn('Found Gas'); GetScreenShot('Gas',gas); Gas:=Gas+1; if(town2=3)or(town2=4)then begin if(FindColorSpiral(x,y,(Rocks),600,65,625,140))or(FindColorSpiral(x,y,(Rocks),660,65,680,140))then begin Mouse(x,y,5,5,true); end else Mouse(645,80,10,10,true); end else Mouse(645,80,10,10,true); mapflag2; FindRandoms; Wait(4000+random(2000)); FindGas(findx,findy); break; end; until(counter>=10); end; end; end; //============================================================================\\ procedure ToBank; begin if(Not Loged)then if(town=4)then begin town2 := tripcount; end else Town2 := Town case Town2 of 1: ToBankVarrock; 2: ToBankFalador; 3: ToLadder(True); 4: ToLadder(True); end; tripcount := tripcount + 1; If(tripcount = 5) then tripcount := 2; end; procedure ToRocks; begin if(Not Loged)then if(town=4)then begin town2 := tripcount; end else Town2 := Town case Town2 of 1: ToRocksVarrock; 2: ToRocksFalador; 3: ToGuild; 4: ToGuild; end; end; Procedure SetRandom; Var color:integer; begin Color:=1+Random(3); If (Town2 = 3)or(Town2 = 4)then case Color of 1: Begin Ore:=CoalOre1; end; 2: Begin Ore:=CoalOre2; end; 3: Begin Ore:=CoalOre3; end; end else case Color of 1: Begin Ore:=IronOre1; end; 2: Begin Ore:=IronOre2; end; 3: Begin Ore:=IronOre3; end; end; case k of 0: Begin w:=50; h:=35; end; 1: Begin w:=125; h:=95; end; 2: Begin w:=260; h:=155; i:=1; end; end; end; procedure DoMining; var ox,oy: integer; begin if(Not Loged)then begin L:= 0; c:= 0; repeat swinging:=True; c:=0; L:= L+1; LoginIfNeeded; FindRandoms; SetRandom; Status('Mining'); x:=255;y:=170; If(FindColorSpiralTolerance(ox,oy,ore,x-w,y-h,x+w,y+h,4))Then begin k:=0; if(FindGaser=true)then FindGas(ox,oy-10); Wait(50) MMouse(ox,oy,3,3) Wait(100+random(50)); If (IsTextAt2(9,9,'Mine Rocks',100))Or(Pickup=true)And(IsTextAt2(9,9,'Take Iron',100))Or(Pickup=true)And(IsTextAt2(9,9,'Take Coal',100))then begin Wait(50+random(50)); Mouse(ox,oy,0,0,Leftclick); Mapflag2; Wait(80+random(50)); If(FindBitmap(Mine,x,y))and(Leftclick=False)or(FindBitmap(MineY,x,y))and(Leftclick=False)or (FindBitmap(Take,x,y))and(Leftclick=False)or(FindBitmap(TakeY,x,y))and(Leftclick=False)then begin If(FindBitmap(Take,x,y))or(FindBitmap(TakeY,x,y))then swinging:=False; Mouse(x,y,60,10,true) Wait(100); Mapflag2; end else If (Leftclick=False) then begin MMouse(400,60,200,200) Wait(100+random(10)) end; Mapflag2; FindRandoms; wait(200+random(500)); If (Swinging=true) then if(GetColor(109,429)=0)and(GetColor(84,428)=0)then begin L:=0; C:=0; Repeat C:= c+1; Wait(10+random(40)); if(c=10)or(c=20)or(c=29)then begin FindRandoms; FindGas(ox,oy-10); end; Until(not((GetColor(109,429)=0))and(GetColor(84,428)=0))or (not((GetColor(109,429)=0))and(GetColor(80,428)=0))or(GetColor(279,426)=0)or(c>=35); end; end; end else begin k:=k+1; FindRandoms; Wait(200+random(100)); end; until(L>20)or(GetColor(97,394)=0)and(getColor(423,397)=0)or(GetColor(94,391)=0)and(getColor(422,398)=0)or (getColor(485,413)=0)or(GetColor(30,418)=0)and(GetColor(72,429)=0); if(getColor(485,413)=0)then begin Mouse(195,440,130,10,true); wait(200+random(100)); if(PickFindCount>0)then FindPick; if fixed = False then begin n:= 1; Writeln('Going For New Pickaxe'); Wait(100); TakeOff; ToBank; FindPickHeadColor(False); PutOn; ToRocks; end; DoMining; end; if(GetColor(30,418)=0)and(GetColor(72,429)=0)then begin LogOut('You are dead!'); end; If(L>20)then begin If(Town2=3)or(Town2=4)then GoCenter; if(FindColorSpiralTolerance(x,y,miningspot,577,22,746,164,Tolerance))Then begin Status('To center') If(Town2=2)then Mouse(x-30,y,5,5,True); If(Town2=1)then Mouse(x,y,5,5,True) end; MapFlag2; Wait(300) DoMining; end; end; end; procedure BitMaps; begin Box := BitmapFromString(6, 3, '0000000000005D54475D54470000000000000000000000005D5447' + '5D54470000000000000000000000005D54475D5447000000000000' + ''); Talk := BitmapFromString(17, 10, 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' + '000000000000000000000000000000000000FFFFFFFFFFFF000000' + '000000FFFFFFFFFFFF000000000000000000000000000000000000' + '000000000000000000000000000000FFFFFFFFFFFF000000000000' + 'FFFFFFFFFFFF000000000000000000000000000000000000000000' + '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' + 'FFFFFF000000000000000000000000000000000000000000000000' + '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' + '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' + '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' + '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' + '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' + '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' + 'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' + 'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' + 'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' + 'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' + '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' + 'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF'); TalkY := BitmapFromString(17, 10, 'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' + '000000000000000000000000000000000000FFFF00FFFF00000000' + '000000FFFF00FFFF00000000000000000000000000000000000000' + '000000000000000000000000000000FFFF00FFFF00000000000000' + 'FFFF00FFFF00000000000000000000000000000000000000000000' + '000000000000000000000000FFFF00FFFF00000000000000FFFF00' + 'FFFF00000000000000000000000000000000000000000000000000' + '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' + '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' + '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' + '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' + '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' + '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' + 'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' + 'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' + 'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' + 'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' + '000000000000FFFF00FFFF00000000000000000000000000FFFF00' + 'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00'); Mine := BitmapFromString(14, 12, '000000000000000000000000000000000000000000000000000000' + '000000000000000000000000000000000000FFFFFFFFFFFF000000' + '000000000000000000FFFFFFFFFFFF000000000000000000000000' + '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' + 'FFFFFF000000000000000000000000000000000000FFFFFFFFFFFF' + 'FFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000000000' + '000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' + 'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' + 'FFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' + '000000000000000000000000FFFFFFFFFFFF000000000000000000' + '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' + 'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' + '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' + '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' + '000000FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF' + '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' + '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' + '000000000000000000000000000000000000000000000000000000' + '000000000000000000000000000000000000'); MineY := BitmapFromString(14, 12, '000000000000000000000000000000000000000000000000000000' + '000000000000000000000000000000000000FFFF00FFFF00000000' + '000000000000000000FFFF00FFFF00000000000000000000000000' + '000000000000FFFF00FFFF00000000000000000000000000FFFF00' + 'FFFF00000000000000000000000000000000000000FFFF00FFFF00' + 'FFFF00000000000000FFFF00FFFF00FFFF00000000000000000000' + '000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00' + 'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' + 'FFFF00000000FFFF00FFFF00000000FFFF00FFFF00000000000000' + '000000000000000000000000FFFF00FFFF00000000000000000000' + '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' + 'FFFF00FFFF00000000000000000000000000FFFF00FFFF00000000' + '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' + '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' + '000000FFFF00FFFF00000000000000000000000000FFFF00FFFF00' + '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' + '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' + '000000000000000000000000000000000000000000000000000000' + '000000000000000000000000000000000000') Take := BitmapFromString(43, 4, 'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447FFFFFF' + 'FFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF000000' + '000000FFFFFFFFFFFF5D54475D54475D54475D54475D54475D5447' + 'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' + '5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFFFF' + 'FFFFFFFFFFFFFFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFF' + '0000000000005D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' + 'FFFFFF0000005D54475D54475D54475D54475D5447FF9040FF9040' + '0000005D5447FF9040FF90400000000000005D54475D5447FF9040' + 'FF90400000005D5447FF9040FF9040FFFFFFFFFFFF000000000000' + 'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' + '5D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' + '5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' + 'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' + '5D5447FF9040FF9040FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' + '0000005D5447FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447' + 'FFFFFFFFFFFF0000000000000000000000005D54475D54475D5447' + '5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' + '0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' + 'FF9040'); TakeY := BitmapFromString(43, 4, 'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447FFFF00' + 'FFFF00FFFF00FFFF000000000000005D5447FFFF00FFFF00000000' + '000000FFFF00FFFF005D54475D54475D54475D54475D54475D5447' + 'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' + '5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFF00' + 'FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00' + '0000000000005D54475D5447FFFF00FFFF000000005D5447FFFF00' + 'FFFF000000005D54475D54475D54475D54475D5447FF9040FF9040' + '0000005D5447FF9040FF90400000000000005D54475D5447FF9040' + 'FF90400000005D5447FF9040FF9040FFFF00FFFF00000000000000' + 'FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00FFFF005D5447' + '5D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' + '5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' + 'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' + '5D5447FF9040FF9040FFFF00FFFF000000005D5447FFFF00FFFF00' + '0000005D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447' + 'FFFF00FFFF000000000000000000000000005D54475D54475D5447' + '5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' + '0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' + 'FF9040'); flag := BitmapFromString(2, 2, 'FF00005D3311C656045D3311'); InBank := BitmapFromString(79, 2, 'FF981FFF981FFF981F000000000000000000000000000000000000' + '000000FF981FFF981FFF981FFF981FFF981F000000000000000000' + '000000FF981FFF981FFF981FFF981F000000000000000000FF981F' + 'FF981FFF981FFF981FFF981F000000000000000000FF981FFF981F' + '000000FF981FFF981F000000000000000000000000000000000000' + '000000FF981FFF981FFF981FFF981F000000000000000000000000' + 'FF981FFF981F000000000000000000000000000000000000000000' + '000000FF981FFF981F000000FF981FFF981F000000000000000000' + 'FF981FFF981F000000000000FF981FFF981F000000000000000000' + 'FF981FFF981F000000000000000000000000000000000000FF981F' + 'FF981F000000000000FF981FFF981F000000000000FF981FFF981F' + '000000000000FF981FFF981F000000000000FF981FFF981FFF981F' + '000000FF981FFF981F000000000000FF981FFF981FFF981FFF981F' + '000000000000000000000000000000000000000000FF981FFF981F' + '000000000000FF981FFF981F000000000000000000FF981FFF981F' + '000000000000000000000000000000000000000000000000FF981F' + 'FF981FFF981FFF981F000000000000000000000000FF981FFF981F' + '000000000000FF981FFF981F000000'); Drop := BitmapFromString(20, 2, 'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFF' + 'FFFFFF0000005D54475D54475D5447FFFFFFFFFFFF0000005D5447' + 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' + '5D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447FFFFFF' + 'FFFFFFFFFFFFFFFFFF000000'); PickAxe := BitmapFromString(30, 14, '564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' + '544A3B544A3B544A3B544A3B544A3B000001000001000001000001' + '544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' + '564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' + '544A3B544A3B564D42564D42544A3B4D44384D44380000012F2000' + '2F20003625003D2900000001564D42564D42564D42564D42564D42' + '564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' + '564D42564D42000001000001000001000001000001000001000001' + '000001000001392D1B44341E4D3B22544127000001302020564D42' + '544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' + '4D44384D4438564D42000001000001392D1B342918342918342918' + '34291834291834291834291834291834291840311E44341E4D3B22' + '000001302020544A3B544A3B564D42564D42564D42564D42564D42' + '544A3B544A3B564D42544A3B000001000001392D1B392D1B392D1B' + '3429183429183429183429183429183429183429183429181E1500' + '271B005441274D3B22000001000001564D42544A3B564D42564D42' + '564D42564D42564D42564D42544A3B564D42000001392D1B392D1B' + '392D1B392D1B392D1B342918342918342918342918342918342918' + '3429181E1500271B002F2000513E254D3B2248382044341E000001' + '000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' + '544A3B000001000001000001000001000001000001000001000001' + '0000010000010000010000011E15002F20002F20004D3B224D3B22' + '48382044341E40311E44341E000001000001564D42564D42564D42' + '544A3B544A3B564D42544A3B4D4438302020302020302020302020' + '3020203020203020203020203020200000011E1500271B002F2000' + '2F20004D3B224D3B2248382044341E40311E392D1B40311E44341E' + '000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' + '544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' + '1E15002F20002F20002F200000000100000100000144341E40311E' + '392D1B342918392D1B40311E44341E000001564D42544A3B564D42' + '564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' + '564D420000011E1500271B002F20002F2000000001302020302020' + '302020000001000001000001392D1B2F2515342918392D1B000001' + '302020564D42564D42564D42564D42544A3B544A3B564D42564D42' + '564D424D44384D4438564D420000011E15002F20002F2000000001' + '302020302020544A3B544A3B544A3B302020302020000001000001' + '0000012F2515392D1B000001544A3B564D42564D42564D42544A3B' + '544A3B544A3B564D42564D42544A3B544A3B0000011E15002F2000' + '2F20002F2000000001302020544A3B544A3B544A3B564D42564D42' + '544A3B544A3B30202030202000000100000140311E000001564D42' + '544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' + '0000011E15002F20002F2000000001302020302020544A3B544A3B' + '564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' + '000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' + '544A3B544A3B0000011E15002F20002F20002F2000000001302020' + '4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' + '544A3B544A3B544A3B564D42302020544A3B'); PickAxeSteel := BitmapFromString(30, 14, '564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' + '544A3B544A3B544A3B544A3B544A3B000001000001000001000001' + '544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' + '564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' + '544A3B544A3B564D42564D42544A3B4D44384D44380000012D1E00' + '2D1E003423003A2700000001564D42564D42564D42564D42564D42' + '564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' + '564D42564D42000001000001000001000001000001000001000001' + '0000010000015C5656686060756D6C827878000001302020564D42' + '544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' + '4D44384D4438564D42000001000001595353595353595353595353' + '595353595353595353595353595353575151615A596A6262756D6C' + '000001302020544A3B544A3B564D42564D42564D42564D42564D42' + '544A3B544A3B564D42544A3B0000010000015C5656595353575151' + '5751515751515751515751515751515751515751515751511C1400' + '251900827878756D6C000001000001564D42544A3B564D42564D42' + '564D42564D42564D42564D42544A3B564D42000001615A595F5858' + '5C5656595353575151575151544E4E544E4E544E4E544E4E544E4E' + '544E4E1C14002519002D1E007D7474756D6C6E67676A6262000001' + '000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' + '544A3B000001000001000001000001000001000001000001000001' + '0000010000010000010000011C14002D1E002D1E00797070756D6C' + '6E67676A6262635D5C6A6262000001000001564D42564D42564D42' + '544A3B544A3B564D42544A3B4D4438302020302020302020302020' + '3020203020203020203020203020200000011C14002519002D1E00' + '2D1E007B7272756D6C6E67676A6262635D5C5F5858635D5C686060' + '000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' + '544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' + '1C14002D1E002D1E002D1E00000001000001000001686060635D5C' + '5F58585751515C5656615A59665E5E000001564D42544A3B564D42' + '564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' + '564D420000011C14002519002D1E002D1E00000001302020302020' + '302020000001000001000001595353524B4B544E4E595353000001' + '302020564D42564D42564D42564D42544A3B544A3B564D42564D42' + '564D424D44384D4438564D420000011C14002D1E002D1E00000001' + '302020302020544A3B544A3B544A3B302020302020000001000001' + '0000014D47465F5858000001544A3B564D42564D42564D42544A3B' + '544A3B544A3B564D42564D42544A3B544A3B0000011C14002D1E00' + '2D1E002D1E00000001302020544A3B544A3B544A3B564D42564D42' + '544A3B544A3B302020302020000001000001665E5E000001564D42' + '544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' + '0000011C14002D1E002D1E00000001302020302020544A3B544A3B' + '564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' + '000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' + '544A3B544A3B0000011C14002D1E002D1E002D1E00000001302020' + '4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' + '544A3B544A3B544A3B564D42302020544A3B'); PickHandle := BitmapFromString(15, 27, '564D41595145564D41544A3C544A3C595145564D41564D41564D41' + '564D41595145000001000001544A3C4F4538544A3C595145564D41' + '544A3C544A3C544A3C5951455951455951455951450000012F2000' + '362400000001544A3C564D41544A3C544A3C564D41564D41564D41' + '5951455951455951450000012F20002F2000362400000001302020' + '564D41544A3C544A3C595145564D41595145564D41595145595145' + '0000012F2000362400362400000001302020564D41564D41564D41' + '564D41564D41544A3C544A3C544A3C0000012F20002F2000362400' + '362400000001302020544A3C544A3C544A3C544A3C544A3C544A3C' + '544A3C544A3C0000012F2000362400362400362400000001302020' + '544A3C564D41564D41564D41544A3C564D41564D410000012F2000' + '2F2000362400362400000001302020302020564D41564D41564D41' + '595145564D41564D41564D410000012F2000362400362400000001' + '302020302020544A3C544A3C544A3C544A3C595145544A3C544A3C' + '0000012F2000362400362400362400000001302020564D41564D41' + '544A3C544A3C544A3C564D41544A3C4F45380000012F2000362400' + '362400000001302020302020564D41564D41544A3C544A3C595145' + '595145564D410000012F2000362400362400362400000001302020' + '564D41564D41544A3C544A3C564D41564D41595145595145000001' + '2F20002F20002F2000000001302020302020564D41564D41544A3C' + '564D41564D41544A3C564D410000012F20002F20002F2000362400' + '000001302020564D41544A3C544A3C544A3C595145544A3C544A3C' + '564D410000012F20002F20002F2000000001302020302020544A3C' + '544A3C564D41564D41595145544A3C544A3C0000012F20002F2000' + '2F2000000001302020302020595145544A3C564D41595145595145' + '595145564D41564D410000012F20002F20002F2000000001302020' + '595145595145564D41564D41595145595145595145595145000001' + '2F20002F20002F2000000001302020302020595145595145595145' + '595145564D41564D41564D41564D410000012F20002F20002F2000' + '000001302020564D41595145595145595145595145564D41564D41' + '544A3C0000012F20002F20002F2000000001302020302020564D41' + '595145595145544A3C544A3C564D41595145564D410000012F2000' + '2F20002F2000000001302020544A3C564D41595145595145544A3C' + '544A3C564D41564D41564D410000012F20002F2000000001302020' + '302020544A3C564D41595145595145564D41544A3C544A3C4F4538' + '000001271B002F20002F2000000001302020595145544A3C564D41' + '595145595145595145544A3C544A3C544A3C0000011D1500271B00' + '000001302020302020595145544A3C564D41595145595145595145' + '564D41564D41564D410000011D15001D1500000001302020595145' + '544A3C544A3C564D41595145595145595145595145595145544A3C' + '0000011D15001D1500000001302020564D41595145595145595145' + '595145564D41595145595145564D41544A3C564D41000001000001' + '302020302020595145595145595145595145544A3C564D41595145' + '544A3C544A3C4F4538564D41595145302020302020564D41595145' + '564D41564D41564D41544A3C544A3C564D41544A3C544A3C544A3C' + ''); PickHead := BitmapFromString(6, 5, '2E1F002E1F00352400000001483E33483E331D1400261A002E1F00' + '352400000001483E331D14001D1400261A002E1F00000001302020' + '000001000001000001000001302020302020302020302020302020' + '302020302020483E33'); Orebmp := BitmapFromString(10, 10, '856C4B856C4B886E4D8B704F000001000001000001000001443827' + '584731856C4B886E4D000001000001302020302020000001382D1E' + '54442F68543B0000010000013020203020203020200000012D2518' + '483B296C573D6F593E302020302020302020544A3C544A3C000001' + '3D31225847316F593E725C40302020544A3C564D41544A3C564D41' + '0000014D3E2B6F593E755E43776044544A3C544A3C564D41564D41' + '564D41000001584731725C407760447A6346544A3C544A3C564D41' + '564D41564D41000001655239755E437A6346806748544A3C564D41' + '544A3C544A3C564D410000016F593E7A6346806748886E4D544A3C' + '544A3C544A3C4F4538544A3C544A3C000001000001000001000001' + '564D41564D41564D41544A3C4F4538544A3C564D41302020302020' + '302020'); iLamp := BitmapFromString(17, 6, '000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' + '9291128C8A1275740E000001000001000001000001000001D0CE18' + 'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' + '99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' + 'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' + '9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' + 'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' + '88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' + 'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' + '79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' + 'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' + '000001000001C2C118'); BNorth := BitmapFromString(8, 11, '640000640000640000000001640000790E00640000640000640000' + '790E00640000640000790E003F00003F0000790E00790E003F0000' + '3F0000790E00851B003F00003F0000851B00851B003F00003F0000' + '3F0000790E003F00003F00009622009622003F00003F00003F0000' + '790E003F00003F00009622009622003F00003F0000790E003F0000' + '3F00003F00009622009622003F00003F00009622003F00003F0000' + '3F00009622009622003F00003F00009622009622003F00003F0000' + '9C36009C36003F00003F0000AB4601AB46013F00003F00009C3600' + 'AB46013F00003F00009C3600AB4601AB4601AB4601AB4601AB4601' + 'AB4601AB46010000019C3600BA5604BA5604BA5604'); CloseWindow := BitmapFromString(43, 4, '494034808080808080494034494034494034494034808080808080' + '808080483E33483E33483E33808080808080483E33483E33463D32' + '483E33483E33483E33808080000000483E33483E33483E33483E33' + '808080000000483E33483E33000000494034808080808080808080' + '494034494034494034494034808080808080808080808080494034' + '000000808080494034494034808080494034000000000000000000' + '483E33808080483E33000000808080483E33463D32483E33483E33' + '483E33808080000000483E33808080483E33483E33808080000000' + '483E33808080483E33494034808080000000000000808080494034' + '494034808080494034000000808080808080000000494034808080' + '000000494034494034808080808080494034494034494034808080' + '808080808080483E33000000483E33483E33483E33483E33808080' + '000000483E33808080000000483E33808080000000483E33808080' + '000000483E33808080000000494034808080000000494034808080' + '000000494034808080808080000000494034808080000000494034' + '494034494034000000808080494034494034808080000000000000' + '000000494034483E33483E33483E33483E33483E33808080483E33' + '808080000000808080483E33000000483E33808080000000483E33' + '808080000000494034808080000000494034808080000000494034' + '808080'); rcmQuickBank := BitmapFromString(16, 6, 'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' + '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' + '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' + '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' + 'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' + 'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' + '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' + '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' + 'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000005D5447' + 'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' + '000000000000000000FFFFFFFFFFFFFFFFFF'); rcmQuickBankY := BitmapFromString(17, 5, 'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' + '000000000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' + 'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' + '000000000000FFFF00FFFF00000000000000000000FFFF00FFFF00' + '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' + '000000FFFF00FFFF00000000000000000000FFFF00FFFF00000000' + '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' + 'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' + 'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' + 'FFFF00000000000000000000'); StoreAllY := BitmapFromString(15, 6, 'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' + 'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' + 'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00000000' + '000000FFFF00FFFF00FFFF00FFFF00000000000000000000FFFF00' + 'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' + 'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' + 'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00000000' + '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' + '000000FFFF00FFFF00FFFF00FFFF00000000000000000000FFFF00' + 'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' + ''); StoreAll := BitmapFromString(15, 6, 'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' + 'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' + 'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' + '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' + 'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' + 'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' + 'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' + '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' + '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' + 'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' + ''); end; begin BitMaps; ST:=GetSystemTime; LoadChars('') SetMouseMode(False); tempbank:=2842230; tempLadder:=875655; tempLadder2:=2316400; tripcount := 3; town2:= town; Loged:=false; Fixed:=True Pickmode:=Pick LoginIfNeeded; Chatfix; FindPickHeadColor(true); PutOn; if(ColorsFound=true)then begin If(FindColorSpiralTolerance(x,y,banklogo,574,8,722,160,Tolerance))Then ToRocks; repeat If(Loged)then break; DoMining; ToBank; trips:=trips+1 PrintProgressReport; ToRocks; until(Loged); end; end.
agreed. I remember for my smelter dividing the screen up. I personally searched right to left in like lines i guess going up the screen. Each time extending the line a little further to the left and then calling findcolor etc. Ahh the good old times for findobj :P
Hahah renax. Chriz's ironminer. Legend.
I swear to god, this was my first script. I didnt have ANY tutorials, only the ones from f1 lolol.
SCAR Code:// INTERNET EXPLORER OPENER !!!
// BY - SEB
// HAVE INTERNET FIRST ROW SECOND PLACE!!!
program Internet;
begin
clickmouse(37,109,true);
wait(10);
clickmouse(37,109,true);
writeLn('the internet was opened!');
end.
Holy shit...
I found my cooker...
from CD...they are at least 2-3 years old...
I had few more scripts by dankness and odie but while opening them I got external error...
I remember this script...<-because this...SQUIG YOU ARE AWESOME!
SCAR Code://------ dark_snipers auto_yew_cutter-------\\
//---------------set colors ----------------\\
//---------------press play ----------------\\
//------------------------------------------\\
//--------- ______________________----------\\
//-------- /SQUIG YOU ARE AWESOME!\---------\\
//---------\______________________/---------\\
//()__()__()__()__()__()__()__()__()__()__()\\
program auto_yew_cutter_banker;
{.include squig.txt}
var
cutted,treesymbol,x,y:integer;
{//setup}const{setup\\}
road=7237496;//minimap road color
treecol=0;
yewlog=0;
bank=0;
I_want_to_cut=100;//how many you want to cut
//---end setup---\\
procedure loadbitmaps;
begin
treesymbol := BitmapFromString(17, 17, 'z78DAE594410E843008' +
'45AF04A5EDD0656DF5FE479ACCE08284E0B4D5DDB8783131FE571' +
'001F8AF0B0B46281E9F4AEEDCA9BD3CAE19BD64DC4B842331D770' +
'DE0BAD71361F5BFE9C53A8922DC75DAEE5325FB8F146F587E54E1' +
'5048DA0845E03D4EB8AEE54E1756FC2325C91EDDEA2E54BE98CD0' +
'CB1FB75897BC9B32319E3932D562D4F9B33320D409DA629FAE4DB' +
'2A5B578DB60EDDFA73D64D8C59239265CCC1FD963BA3FFA2B3FBB' +
'39D776F21BC8FB6AD8');
freebitmap(treesymbol);
end;
Procedure Flag;
var flagimage,timeout:integer;
begin
flagimage := BitmapFromString(2, 2,'FF00005D3311C656045D3311');
timeout:=0
repeat
timeout:=timeout+1;
wait(250);
until(not findbitmapin( flagimage, x, y, 570, 5, 725, 162)) or (timeout > 120);
freebitmap(flagimage);
end;
procedure road_trees;
begin
findcolorspiral(x,y,road,608, 122,665, 160)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
wait(7000+random(300))
flag;
wait(200+random(200))
findcolorspiral(x,y,road,629, 136, 658, 158)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
wait(200+random(200))
findcolorspiral(x,y,road,615, 134, 671, 162)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
wait(200+random(150))
end;
procedure find_tree;
begin
findbitmaptolerancein(treesymbol,x,y,545, 3,754, 160,7)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
wait(7000)
flag;
wait(200+random(55))
repeat
findcolorspiral(x,y,treecol,546, 1,658, 161)
wait(200)
movemousesmoothex(x,y,1,4,55,55,55)
wait(200)
IsTextat2(9,9,'chop down yew',100)
clickhuman(x,y,true)
findrandoms;
until(findcolorspiral(x,y,yewlog,691, 431,732, 457))or
findcolorspiral(x,y,yewlog,651, 431,689, 459)
findcolorspiral(x,y,road,682, 22,725, 62)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
flag;
findcolorspiral(x,y,road,645, 9, 668, 25)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
findcolorspiral(x,y,road,645, 9, 668, 25)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
end;
procedure tobank_banking;
begin
findcolorspiral(x,y,bank,621, 27,740, 157)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
wait(300)
openbank;
deposit(1,2,0)
deposit(1,3,0)
cutted:=cutted+28
end;
procedure progress_report;
begin
writeln('')
writeln('|-------Dark_snipers auto yew cutter--------')
writeln('|-------------------------------------------')
writeln('|------> cut'+inttostr(I_want_to_cut)+' yew logs')
writeln('|-------------------------------------------')
writeln('|---->worked for '+inttostr(timerunningmin)+' Minutes '+inttostr(timerunningsec)+' Seconds')
writeln('|-------------------------------------------')
end;
begin
setupsquig;
repeat
flag;
road_trees;
find_tree;
tobank_banking;
until(I_want_to_cut>=cutted)
end.
Ok here comes my first script, no fucking lauch!
SCAR Code://my first working scripts wat cooks food in al-kharid bank
//have food u want to cook in 1st bank slot
//this script is free and its working too!!!
//drag client window, set colours and hit play
//its haves antirandom too
//Created by Negaal
{.include squig.txt}
const
bank = 5099997;//minimap bank
rangeMM = 6262953;//minimap range or kebab seller symbol
rangeMs = 1579035 ;//mainscreen range color
var a,b,x,y : integer;
bbb : integer;
procedure cook;
begin
findcolor(a,b,Bank,555,5,735,155);
MouseC(a+random(2)-2,b+random(2)-2+bbb,1);
wait(1000+random(100));
mapflagging;
MapCompass('w');
wait(200);
OpenBank;
wait(150+random(50));
depositall;
banktop;
wait(random(50));
Withdraw(1,1,0);
wait(100+(3565));
MouseC(690+random(2)-2,110+random(2)-2+bbb,1);
wait(1000+(100));
mapflagging;
findcolor(a,b,rangemm,555,5,735,155);
MouseC(a+random(2)-2,b+random(2)-2+bbb,1);
wait(1000);
mapflagging;
useitem(1,1);
wait(200+(300));
findcolor(x,y,rangems,s1,s2,s3,s4);
movemouse(x,y);
wait(200+(300));
clickhuman(x,y,false);
wait(400+(1200));
clickhuman(x+random(3)-3,y+25,true);
wait(4000+(500));
mousec(260+random(2)-2,425+random(2)-2,2)
wait(400+(600));
mousec(260+random(2)-2,425+random(2)-2,1)
findrandoms;
wait(52000+(4679));
end;
begin
setupsquig;
cook;
findrandoms;
cook;
findrandoms;
cook;
findrandoms;
cook;
findrandoms;
cook;
findrandoms;
cook;
findrandoms;
cook;
findrandoms;
cook;
findrandoms;
cook;
findrandoms;
cook;
findrandoms;
cook;
cook;
findrandoms;
cook;
findrandoms;
cook;
findrandoms;
cook;
findrandoms;
cook;
end.
It's not made by me I think...
SCAR Code:program CowKiller;
{.include library2.txt}
////SETUP////////////////////////////////////////////////////////////////
const mcolour = 1781357;//The colour of the monster on the mainscreen//
/////////////////////////////////////////////////////////////////////////
procedure kill;
begin
repeat
findcolortolerance(x,y,mcolour,0,0,516,336,20);///finds cow color
mmouse(x,y,5,6); ///moves the mouse to the cow color
wait(500+random(500)); ///waits
until(IsTextAt2(9,9,'Walk here / 2 more options',100)=true) ///does the latter until it finds the text attack at the top of the screen
mouse(x,y,0,0,false);
wait(random(50));
Mouse(x,y,5,2,true);
wait(16000);
end;
begin
repeat ///starts looping
kill
GhostSpeak('Fighting'); ///autochat see library2.txt
until(false) ///loop forever
end.
I had few more scripts on CD, but it was kinda very damaged...
Ahhh, cleaned the CD a bit
SCAR Code:program Squigglyos_FireMakerDeluxe;
{.include Squig.txt}
//Requires Squig Version 4 or higher
{You will need a current version of Squig to run this}
{ Start in Edgevil Bank
Start with tinderbox in your first inventory slot
The rest of your inventory needs to be logs.
Logs in bank need to be in the first spot.}
{Version 3}
{This is a script created by Squigglyo
You may not pass this off as your own script
You may not sell this script
You may not alter this script
You may, use this as much as you like
For any problems, or info about future updates,
contact [email]lesser_demon_slayer@hotmail.com[/email], or pm me,
if you know where to find me}
{Squigglyo is, and always will be the owner of this script
and owns all rights to this script}
var
a, b, TotalDone, UpDown, bbb : integer;
NoMoreLogs, stoppingscript, once : boolean;
expgetting : extended;
TheStatus : string;
const
MiniWater = 12029819 ;//The stream east of the bank
WaterSymbol = 14769962 ;//The water symbol on the minimap
BankSymbol = 3853273 ;//The bank symbol color of the bank
TinderBox = 8224391 ;//The color of the tinerbox in your inventory (sorta grey)
UserName = 'lol' ;//Your username
Password = 'noob' ;//Your password
YourBankID = 7169;//Your Bank ID
TotalNeeded = 1400 ;//Total Amount of logs
TypeofLog = 2 ;//0 is normal, 1 is oak, 2 is willow,
//3 is for Teak, 4 is maple, 5 is Mahogany, 6 is yew and 7 is magic
Lamp = 'RC' ;//The skill you wish to train when a lamp comes
//DEBUG//
LogWait = 300 ;//Only change if you seem to be dropping logs and not burning them.
//Its the ammount of seconds to wait between logs (1 is the default value)
/////////
Function LogPresent : Boolean;
Var
TheLog, TheLog2, TheLog3, TheLog4 : Integer;
Begin
Thelog := BitmapFromString(28, 17, 'z78DAC5964992C3200C45AF046' +
'8C24B63C8FD8FD4698BAE1205243843358BBF006C9E85F465E7C6' +
'8389326C7C63862281233A464A21B327F9533A0843AA1AC987ADD' +
'173DEEE9F3EABEA710F84192524B73CF860801C9D306E92055196' +
'38CDCC8C70C0ACCF22E620774E0EB0CE6909679C3D6DB3AAFB17D' +
'47EA9BB387A4E112E88CD297D7C96D9AA0A9570B3F7FE15CE87A7' +
'FF5B3C5577F1C895A4D7ABF1349CB8A10F0E22802FBFCCE07B2A8' +
'DB9D501E7170855B5761A86B3A66C2650210156FFA9ABAAE72D0C' +
'AAE9219BC6A4EA79FA94A173B0A612BB7C50CE08B2E16EE366DF6' +
'309EDE9336D7826542B3538E08C52305BDAE6CDE71E75FB819F1B' +
'F75B8AD5B24B584E0E94204692844939F5AE7BCE9A035AF5CB1EF' +
'E44977D40FBA3256CE279DF0938ABFD41967E88B0E920CA19D943' +
'6A486C7E2A67F7152F72BEE6FF672E691F17E203C1FAB9CED81B7' +
'F8BF32547AD7F2608C5177527AD91AA4A68B377FDDE7BDA6536F7' +
'F6B8CCF930C2EE6B43BBC0930E3561FB14C30F312C5EDB');
TheLog2 := BitmapFromString(29, 11, 'z78DAB5954B72C4200C4' +
'4AF04E883589A01DFFF487190322517438A496558F4C21FF1DC48' +
'ED105EAF9A0A10D45002A5A34BA728C804CD343240CD9D23945CA' +
'93F55AF0CD56796EAEBE8BB480538FC69CDB457B514BB3067E87E' +
'AF25C98E8E6A4ACB9D10E083B4BF32EC33DB89FCABB7C62CC4177' +
'3E18AC1A8BCEEBBEA69D55BC496DA0E1B574A10BDBEF0F6039CAA' +
'9CF14CA7ED3EFA2147CA807AC57352C318890B1EB1FA27F55CF24' +
'93585FC20895DF5463BEF1BF1484D5D32860589D557CDF400F173' +
'3A4F9FBEABB4EAE451A5E1796411ECB76A8EF3C630AB3FA399CD5' +
'36D64C892F6510EBA6E16227CCED493D6FC6FD862BD7D8557A59A' +
'D926DFB652CEF5F30BDA5C985869D5E799D6FA6124C3BCEFBBBA9' +
'37B33EDD56918C538EF79F5CD29D0AF6FF1C930BAC5266E91BD6F' +
'10CE9C5A73D1094CD7F1C98DA748FDE95BA35DE5C306ED1B7F109' +
'F306346ACCEE82ECD842FB9929923');
TheLog3 := BitmapFromString(29, 11, 'z78DAB5D54B9284200C06' +
'E02B415EC05245EE7FA4B10CD31506B168BBC7C5BFF0015F4188C' +
'E5D5F314B448C8B08FA9A24002578CA6ED7949D9636EDD3A964F6' +
'C7B789824BBCE1EE927B74CD68EF0DF366D50A137D51AB2942E8A' +
'BA7CF77D7D6681930BA8419B267F114004736DD059B17DA7F706A' +
'72C0B59DFDD0FAABDA904819382C9C60D5776A9EFBD29BEF85BA3' +
'E35D53090E8F835B512344DFDDB0AA95F9DDA586445B26B6847B3' +
'CEC6304AAB1AD9264EE8489B580A8A3537E3EBFA67DE2037F76DD' +
'EDB06C2FB4E72A1DDA8404828F970AAF6DCFD5E5BABE2EC0CA379' +
'DFCDF95EA1DAE0182058E79FB55D5ECEAE3FF4D5FB35A7BED96B9' +
'109DAD3D4D6EDF2AAEAD1899BD63EFB6BA8537B42100EB046CF05' +
'8AFD0BE89DA6063ED03EECC0E769A5A3467FB53F964B9C40');
TheLog4 := BitmapFromString(29, 11, 'z78DAB595411683200C05AF' +
'0424806C117AFF23150DFA423156B165310B9F8DE33749953A3E9' +
'37319F2846E8644C4645E2A388D61A39D1137F2EB376831EE750C' +
'6415D4D0B9627BEE70DDB9DA7AD4BFB325960460F7E9399430D96' +
'20077CD1613945F71F6B6FFF024F2E7523F10E90AF784646CB10D' +
'26B677567AA08E828DE78608A0976A4B4A955D0E6DFDE5EB57765' +
'3C03B84EE27DB29788DAA26A95D80D8D4619E8D49CF2137694E45' +
'DBEC2D0277E695BFE42F91BB0986E7FB44B49DCB27D7D576EDD8D' +
'E9612A6CD203DF72EAFEF8A834E6093C53DBF4C9CB0819F784AB6' +
'08C67FF8B0BE15DF65C8F6F9BF06D9524F9289CFCE43F0D121B4D' +
'93EB0BDBD81D7ACEAB4AE7B86CE1B33BF9056');
Result:= FindBitmapTolerancein(TheLog, a, b, I1, I2, I3, I4, 30);
If(result=false)then
result:= FindBitmapTolerancein(TheLog2, a, b, I1, I2, I3, I4, 30);
If(result=False)Then
result:= FindBitmapTolerancein(TheLog3, a, b, I1, I2, I3, I4, 30);
If(result=False)Then
result:= FindBitmapTolerancein(TheLog4, a, b, I1, I2, I3, I4, 30);
FreeBitmap(TheLog);
FreeBitmap(TheLog2);
FreeBitmap(TheLog3);
FreeBitmap(TheLog4);
End;
Function AttemptPresent : Boolean;
Var
attempt : Integer;
Begin
attempt := BitmapFromString(15, 7,
'BAAB8ABAAB8ABAAB8AB9A581B9A581B9A581B9A581000000B9A581' +
'B9A581B9A581B9A581000000B9A581B9A581BBAE92000000000000' +
'000000BAAB8ABAAB8AB9A581000000000000000000B9A581B9A581' +
'000000000000000000000000BAAB8ABAAB8ABAAB8A000000B9A581' +
'B9A581000000BAAB8AB9A581B9A581B9A581000000B9A581B9A581' +
'BBAE92000000000000000000000000B9A581B9A581000000B9A581' +
'B9A581B9A581B9A581000000B9A581B9A581000000BAAB8ABAAB8A' +
'B9A581000000B9A581BAAB8A000000B9A581B9A581B9A581B9A581' +
'000000B9A581B9A581000000B9A581B9A581BAAB8A000000BAAB8A' +
'BAAB8A000000BAAB8AB9A581BAAB8ABAAB8A000000BAAB8ABAAB8A' +
'BAAB8A000000000000000000000000BAAB8ABAAB8ABAAB8A000000' +
'000000B9A581BAAB8AB9A581000000000000');
result:= FindBitmaptoleranceIn(attempt, a, b, 40, 410, 70, 430, 100);
FreeBitmap(attempt);
End;
Function CantPresent : Boolean;
Var
cant : Integer;
Begin
Cant := BitmapFromString(24, 11,
'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8AB9A581BAAB8A' +
'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A000000BAAB8ABAAB8A' +
'BAAB8ABBAE92BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABBAE92BAAB8ABAAB8ABAAB8A' +
'BAAB8ABAAB8ABAAB8A000000BAAB8ABAAB8ABBAE92BBAE92BAAB8A' +
'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
'BAAB8ABBAE92BBAE92BBAE92BAAB8ABBAE92BAAB8ABAAB8ABAAB8A' +
'000000BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABBAE92BAAB8ABBAE92' +
'BAAB8ABBAE92BAAB8ABBAE92BAAB8ABAAB8A000000BAAB8ABAAB8A' +
'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
'BBAE92BBAE92BBAE92BBAE92BBAE92BAAB8ABBAE92BAAB8ABAAB8A' +
'BAAB8ABAAB8ABAAB8A000000BAAB8A000000000000BAAB8AB9A581' +
'B9A581BAAB8A000000000000000000BBAE92BBAE92BBAE92000000' +
'BBAE92000000BBAE92BAAB8ABBAE92000000000000000000BAAB8A' +
'000000000000BAAB8ABAAB8A000000BAAB8ABAAB8A000000BAAB8A' +
'BAAB8ABBAE92000000BBAE92BBAE92000000000000BBAE92BBAE92' +
'BBAE92000000BBAE92BAAB8ABAAB8A000000000000BAAB8ABAAB8A' +
'BAAB8A000000BAAB8ABAAB8A000000BAAB8ABBAE92BAAB8A000000' +
'BAAB8ABBAE92000000BBAE92BBAE92BBAE92BBAE92000000BAAB8A' +
'BAAB8ABAAB8A000000000000BAAB8ABAAB8ABAAB8A000000BAAB8A' +
'BBAE92000000000000000000000000BAAB8ABAAB8ABAAB8A000000' +
'BAAB8ABAAB8ABAAB8ABAAB8A000000000000000000000000B9A581' +
'000000BAAB8ABBAE92BAAB8A000000BAAB8ABBAE92000000BBAE92' +
'BBAE92BBAE92BBAE92BAAB8ABAAB8A000000BAAB8ABAAB8ABAAB8A' +
'BBAE92000000BBAE92BBAE92BBAE92BBAE92000000BAAB8ABAAB8A' +
'BAAB8A000000BAAB8ABAAB8ABBAE92000000000000000000000000' +
'BBAE92BBAE92000000BBAE92BBAE92BBAE92BAAB8ABBAE92000000' +
'000000000000000000');
result:= findbitmaptolerancein(cant,a,b,13,413,173,435,100);
FreeBitmap(cant);
End;
Function BurnPresent : Boolean;
Var
Burn : Integer;
Begin
Burn := BitmapFromString(8, 10,
'000000B29975B29975B29975B29975B29975B9A581B9A581000000' +
'B9A581B9A581B29975B29975B29975B29975B29975000000B9A581' +
'B9A581B9A581B29975B29975B9A581B9A581000000B9A581B29975' +
'B29975B29975B9A581B29975B29975000000000000000000B29975' +
'B29975B29975B29975000000000000B9A581B29975000000B29975' +
'B29975B29975000000000000B29975B29975B29975000000B29975' +
'B29975000000000000B29975B29975B29975000000B29975B29975' +
'000000000000B29975B9A581B9A581000000B9A581B9A581000000' +
'000000000000000000000000B9A581B9A581B9A581B9A581');
result:= findbitmaptolerancein(burn,a,b,233,415,249,431,100);
FreeBitmap(Burn);
End;
procedure DeadHandler;
begin
writeln('');
writeln('');
writeln('You Are Dead');
writeln('');
writeln('');
stoppingscript:=true;
end;
procedure ChangeReport;
var
str1 : string;
begin
str1:=floattostr(expgetting*totaldone);
clearreport;
addtoreport('Hello ' + username + ' this is the status so far');
addtoreport('FireMaker Deluxe by Squigglyo');
addtoreport('***********************');
addtoreport('Currently: '+ (TheStatus));
addtoreport('Flamed: '+inttostr(TotalDone)+' logs');
addtoreport('XP Gained: '+str1);
addtoreport(inttostr(TotalNeeded - TotalDone) + ' logs to Go');
addtoreport('Worked for: ' + WorkedFor);
end;
procedure OutOfBank;
var
a1, c, a2 : integer;
begin
TheStatus:=('Out of Bank');
Status(TheStatus);
ChangeReport;
Direction:='SE';
repeat
findrandoms;
if(fightfound=true)then
begin
MouseC(random(5)+670,random(5)+110,1);
MapFlagging;
end;
findcolor(a,b,BankSymbol,555,5,725,155);
a2:=a
a:=a+random(10)+35;
b:=b-random(10)-17;
a1:=a;
c:=0;
repeat
a1:=a1-random(3);
if(similarcolors(getcolor(a1,b),15528686,50))or(similarcolors(getcolor(a1,b),2105598,100))then
begin
a1:=a;
b:=b-5-random(2);
end;
if(b<20)then
begin
findcolor(a,b,banksymbol,555,5,725,155);
a1:=a;
c:=c+1;
a:=a+random(10)+50;
b:=b-random(13)-20;
if(c=10)then
begin
writeln('')
writeln('')
writeln('Got lost leaving the bank')
writeln('')
writeln('')
stoppingscript:=true;
exit;
end;
end;
wait(1);
until(a1<(a2-25));
MouseC(a,b,1);
wait(500+random(100));
until(FlagPresent=true);
MapFlagging;
wait(random(300)+800);
end;
procedure BackToBank;
var
c : integer;
begin
TheStatus:=('Back to the Bank');
Status(TheStatus);
ChangeReport;
Direction:='S'
FindRandoms;
c:=0;
while(findcolor(a,b,Banksymbol,555,5,735,155)=false)do
begin
a:=random(35)+665;
b:=random(75)+85;
MouseC(a,b,1);
wait(random(300)+300);
MapFlaggingR;
if(c=5)then
begin
writeln('');
writeln('');
writeln('Lost way to the bank');
writeln('');
writeln('');
TheStatus:=('Lost way to the bank');
Status(TheStatus);
ChangeReport;
stoppingscript:=true;
exit;
end;
c:=c+1;
end;
c:=0;
repeat
findcolor(a,b,BankSymbol,555,5,735,155);
MouseC(a+random(10)-5,b+random(10)-5+bbb,1);
c:=c+1;
if(c=25)then
begin
writeln('');
writeln('');
writeln('Lost way to the bank');
writeln('');
writeln('');
stoppingscript:=true;
exit;
end;
until(FlagPresent=true);
wait(random(300)+300);
MapFlagging;
end;
procedure MoveUp;
var
c : integer;
begin
TheStatus:='Moving back to the bank';
Status(TheStatus);
ChangeReport;
c:=0
If(Once=True)Then
begin
MouseC(250+random(5),135-random(5),1);
Once:=False;
a:=random(10)+570;
b:=random(10)+215;
MouseC(a,b,2);
wait(random(100)+800);
ClickText('mine', I1, I2, I3, I4, true);
exit;
End
Else
Once:=True;
if(findcolor(a,b,WaterSymbol,555,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
repeat
c:=c+1;
mouseC(475+random(5),260+random(5),1);
wait(random(300)+500);
MapFlagging;
if(c=25)then
begin
stoppingscript:=true;
writeln('');
writeln('');
writeln('Lost way to the bank');
writeln('');
writeln('');
exit;
end;
until(findcolor(a,b,BankSymbol,555,5,735,160));
c:=0;
if(findcolor(a,b,MiniWater,640,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
repeat
if(c=25)then
begin
stoppingscript:=true;
writeln('');
writeln('');
writeln('Lost way to the bank');
writeln('');
writeln('');
exit;
end;
c:=c+1;
MouseC(random(10)+120,random(10)+100,1);
wait(random(300)+500);
MapFlagging;
until(findcolor(a,b,BankSymbol,555,5,735,160));
c:=0;
if(findcolor(a,b,MiniWater,555,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
repeat
if(c=25)then
begin
stoppingscript:=true;
writeln('');
writeln('');
writeln('Lost way to the bank');
writeln('');
writeln('');
exit;
end;
c:=c+1;
MouseC(random(10)+120,random(10)+100,1);
wait(random(300)+500);
MapFlagging;
until(findcolor(a,b,BankSymbol,555,5,735,160));
c:=0
if(findcolor(a,b,MiniWater,555,5,735,160)=false)and(findcolor(a,b,WaterSymbol,555,5,735,160)=false)and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
repeat
c:=c+1
MouseC(random(10)+640,random(10)+115,1);
MapFlagging;
begin
Writeln('');
writeln('');
Writeln('Lost way to the bank');
Writeln('');
writeln('');
stoppingscript:=true;
exit;
end;
until(findcolor(a,b,BankSymbol,555,5,736,160))or(getcolor(467,286)=65535)
c:=0
if(getcolor(467,286)=65535)then
repeat
mousec(675+random(10),115+random(10),1);
MapFlagging;
c:=c+1
if(c=20)then
begin
Writeln('');
writeln('');
Writeln('Lost way to the bank');
Writeln('');
writeln('');
stoppingscript:=true;
exit;
end;
until(findcolor(a,b,banksymbol,555,5,735,160));
repeat
c:=c+1
findcolor(a,b,banksymbol,555,5,735,160)
MouseC(a+random(10),b+random(10),1);
if(c=25)then
begin
stoppingscript:=true;
writeln('');
writeln('');
writeln('Lost way to the bank');
writeln('');
writeln('');
exit;
end;
wait(random(200)+400);
until(FlagPresent);
MapFlagging;
a:=random(10)+575;
b:=random(10)+215;
MouseC(a,b,2);
wait(random(300)+300);
MouseC(a+random(10),b+random(3)+52,1);
wait(random(200)+200);
OutOfBank;
end;
procedure FireMaking;
var
color1, color2, color3, c : integer;
begin
TheStatus:='Making Fires';
Status(TheStatus);
Direction:= 'SE'
MouseC(random(10)+570,random(10)+225,0);
if(IsTextAt3(9,9,'Use T',100)=false)then
begin
writeln('');
writeln('');
writeln('Couldnt find the tinerbox in your inventory');
writeln('');
writeln('');
stoppingscript:=true;
exit;
end;
repeat
c:=0;
Color1:=getcolor(262,57);
Color2:=getcolor(416,56);
Color3:=getcolor(63,182);
FindRandoms;
if(fightfound=true)then
begin
MoveUp;
exit;
end;
if(IsDead=true)then
Exit;
UseItem(1,1);
wait(random(200)+300);
TheStatus:=('Finding the Log')
Status(TheStatus);
ChangeReport;
if(LogPresent=false)then
begin
TheStatus:='Getting new logs';
Exit;
end;
MouseC(a+random(10)+5,b+random(5)+5,1);
wait(random(200)+200);
repeat
c:=c+1;
wait(10);
if(CantPresent)then wait(500);
if(CantPresent)then
begin
MoveUp;
if(stoppingscript=true)then
exit;
C:=150;
end;
Findrandoms;
if(fightfound=true)then
begin
MoveUp;
c:=150;
end;
until(c=150)or(AttemptPresent);
if(c<>150)then
begin
c:=0;
repeat
Findrandoms;
if(RandomTalked=true)or(fightFound=true)then
MoveUp;
wait(100);
c:=c+1
until(c=30)or((BurnPresent)and((color1<>getcolor(262,57))or(color2<>getcolor(416,56))or(Color3<>getcolor(63,182))));
end;
wait(random(100)+(LogWait));
until(NoMoreLogs=True);
wait(random(150)+300);
end;
procedure GetExp;
begin
if(typeoflog=0)then
expgetting:=40;
if(typeoflog=1)then
expgetting:=60;
if(typeoflog=2)then
expgetting:=90;
if(typeoflog=3)then
expgetting:=157;
if(typeoflog=4)then
expgetting:=135;
if(typeoflog=5)then
expgetting:=105;
if(typeoflog=6)then
expgetting:=202.5;
if(typeoflog=7)then
expgetting:=303.75;
end;
begin
SetupSquig;
Loadchars('');
MapCompass('N');
clearReport;
runback:=true;
UpDown:=1;
direction:='W';
StoppingScript:=false;
user:=username;
pass:=password;
BankID:= YourBankID;
SetChat;
Once:=True;
FindRandoms;
NoMoreLogs:=False;
ChangeReportWidth(350);
OpenBag;
GetExp;
If(IsDead=true)then
DeadHandler;
a:=random(10)+570;
b:=random(10)+215;
MouseC(a,b,0);
if(istextat3(9,9,'Use Tinder',100)=false)then
begin
writeln('');
writeln('');
writeln('Couldnt find the tinderbox');
writeln('');
writeln('');
stoppingscript:=true;
end;
MouseC(a,b,2);
wait(random(100)+800);
ClickText('mine', I1, I2, I3, I4, true);
repeat
if(stoppingscript=true)then
break;
OutofBank;
If(IsDead=true)then
DeadHandler;
if(stoppingscript=true)then
break;
FireMaking;
If(IsDead=true)then
DeadHandler;
if(stoppingscript=true)then
break;
NoMoreLogs:=False;
FindRandoms;
BackToBank;
If(IsDead=true)then
DeadHandler;
if(stoppingscript=true)then
break;
FindRandoms;
TotalDone:=TotalDone+27;
if((TotalDone+1)>TotalNeeded)then
exit;
a:=0;
while(OpenBank=false)do
begin
a:=a+1;
bbb:=bbb+7;
BackToBank;
if(a=5)then
begin
writeln('');
writeln('');
writeln('Lost way to the bank');
writeln('');
writeln('');
Break;
end;
end;
bbb:=0;
DepositAll2(1,2);
wait(random(300)+300);
BankTop;
wait(random(300)+300);
Depositall2(1,2);
wait(random(300)+300);
Withdraw(1,1,0);
wait(random(300)+300);
CloseBank;
wait(random(300)+300);
FindRandoms;
RandomLogout(8.00);
if(loggedin=false)then
Login;
until(TotalNeeded<=TotalDone)or(stoppingscript=true);
Logout;
end.
SCAR Code:{+++++++++++++++++++++++++++++++++++++++++]
AutoFighter
v1.6311
by: odie5533
[+++++++++++++++++++++++++++++++++++++++++]
Instructions:
1.Setup lines 54-69
2.Vbright, 32 bit color
3.Highest angle of view
4.Scar 1.13
5.Requires OSi v3.4
6.To use Eat function, have a piece of
the kind of food you want to eat in 1st
invin slot
7.To use the Bone Burier, have a bones in
the 2nd invin slot
[+++++++++++++++++++++++++++++++++++++++++]
Special Thanks To:
x piv x, Stupid3ooo, Joolz, and Nick
Super Special Thanks to: Pups!!!
[+++++++++++++++++++++++++++++++++++++++++}
{ChangeLog:
v1.0 - Initial release
v1.01 - Updated wait timing
v1.1 - Added Login Procedure, fixed Progress Report, and MapFlag waiting
v1.2 - Added Bone Collector, fixed wait times, Progress Report more accurate
v1.21 - Login faster, fixed fightmode changing, bone burying faster
v1.22 - Fixed login procedure
v1.5 - Added anti-randoms, and added eating fucntion
v1.6 - Fixed anti-randoms, updated various things
v1.61 - poop
v1.62 - I dno anymore
v1.63 - Fixed the anti-randoms
v1.631 - Fixed talk procedure and added SetFightMode after login
v1.6311 - Works with current OSi}
program AutoFighter;
var ax,ay,report,report2,FightMode:Integer;
BonesCollected,BonesBuried,Killed,Timeout,Ate,LastBuried,Runs,RandomCount,Lamps:Integer; {Counters}
BoneColor,BoneInvColor,color1,color2,mcolor,tol,FoodInvColor:Integer; {Colors}
TakeBones,TakeBonesY,AttackIt,AttackIt2,TalkW,TalkY,iLamp:integer; {Bitmaps}
RWX,RWY,CriticalHP:integer; //Misc
BoneCollecting,Att,Run,CHP,EatFood,Attacking:boolean;
STT,LastFight,LFTimeout,TT:LongInt;
username,password,RunWhere:string;
{.include OSi.txt}
{.include BoxBreaker.txt}
Procedure Setup;
begin
//+++++++++++++++Setup+++++++++++++++
Username:=''; //Set Username
Password:=''; //Set Password
color1:=9275528; //Monster Color 1
color2:=8550520; //Monster Color 2
tol:=0; //Tolerance to find the monster color. 0 is default
FightMode:=4; //Set fight mode 1-4 top to bottom
EatFood:=true; //True to eat food, false to not
FoodInvColor:=1932007; //Set the color of the food in your invin
CriticalHP:=65; //Percent of HP left when you should run
RunWhere:='S'; //Set Which way to run if fight random occurs
Timeout:=30; //The maximum time (in seconds) a fight should last (will run if lasts longer)
LFTimeout:=8; //The maximum time (in min) between fights
BoneCollecting:=false; //Set True to collect bones, Fasle to not
BoneColor:=13487571; //Set BoneColor on Screen
Report:=10; //Set how often to print progress report (in minutes)
end; //End of Setup
//+++++++++++++++Anti-Randoms+++++++++++++++
procedure LoginIfNeeded;//A stupid3ooo procedure based of many others
var counter:integer;
begin
if(length(username) > 0)and(length(password) > 0)then
begin
if(IsTextAt2(293,251,'Username',0))and(NotLogedIn)then
Mouse(460,322,10,2,true);
if(IsTextAt2(309,241,'Welcome to RuneScape',0))and(NotLogedIn)then
begin
Mouse(400,280,125,20,true);
if(IsTextAt2(271,214,'Enter your username',50))then
begin
Mouse(400,256,20,5,true);
SendKeysSilentsmooth(username,50);
Mouse(400,270,20,5,true);
SendKeysSilentsmooth(password,50);
Mouse(300,322,20,5,true);
repeat
counter:=counter+1;
wait(100);
until(FindColor(x,y,8421504,0,0,515,338))or(counter=60)
end;
end;
if(FindColor(x,y,8421504,400,0,515,338))then
begin
Mouse(x+5,y+1,15,5,true);
sendarrowsilentwait(0,900+random(200))
wait(200+random(100));
SetFightMode(FightMode);
end;
end;
end;
Procedure Eat;
var c:integer;
begin
Writeln('You have low hp, now running...')
SetRun(true);
Mouse(648+RWX,83+RWY,2,2,true);
wait(2000);
MapFlag;
wait(1000+random(500));
OpenBag;
if(EatFood)and(FindColorSpiral(x,y,FoodInvColor,560,210,730,460))then
repeat
OpenBag;
if(FindColorSpiral(x,y,FoodInvColor,560,210,730,460))then
begin
Mouse(x,y,3,3,true);
wait(3000+random(500));
Ate:=Ate+1;
end;
c:=c+1;
until(GetHp>80)or(c>5)
OpenBag;
if(not(FindColorSpiral(x,y,FoodInvColor,560,210,730,460)))and(GetHp<80)then
LogOut('Low HP and unable to eat');
Status('Walking back to NPCs');
Mouse(648-RWX,83-RWY,2,2,true);
wait(2000);
MapFlag;
CHP:=false;
end;
Procedure RunAway;
begin
Status('Running Away...')
runs:=runs+1;
GetScreenshot('Ran',runs);
SetRun(true);
Mouse(648+RWX,83+RWY,2,2,true);
wait(2000);
MapFlag;
wait(10000+random(3000));
Status('Running Back...')
Mouse(648-RWX,83-RWY,2,2,true);
wait(2000);
MapFlag;
Run:=false;
end;
procedure FindText;
var counter,c:integer; Talked2Rand:boolean;
begin
if(FindColor(x,y,65535,5,5,514,337))then wait(200)
if(FindColor(x,y,65535,5,5,514,337))and(LogedIn)then
begin
RandomCount:=RandomCount+1;
GetScreenShot('YellowtextFound',RandomCount);
repeat
counter:=counter+2+random(1);
if((x+counter) < 515)and((y+18) < 338)then
MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15,20,20);
wait(5);
if(IsTextAt2(9,9,'Ta',100))then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,false);
Wait(200+random(100));
if(FindBitmap(TalkW,x,y))or(FindBitmap(TalkY,x,y))then
begin
Mouse(x,y,40,5,true);
MapFlag;
wait(1000+random(1000));
while((FindColor(x,y,16711680,5,345,510,465))or //Replaces TalkToRand
(FindColor(x,y,16777215,5,345,510,465)))and
(not(GetColor(20,434)=0))and(c<=10)do
begin
GetScreenShot('Talked',RandomCount);
Mouse(x,y,50,2,true);
wait(2000+random(1000));
c:=c+1;
end;
Talked2Rand:=true;
end;
end;
until(counter>=250)or(Talked2Rand);
end;
end;
Procedure FindLamp;
begin
while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100)) do
begin
Lamps:=Lamps+1;
GetScreenshot('Lamp',Lamps);
Mouse(x,y,10,10,true);
wait(3000+random(1000));
Mouse(157,220,12,12,true)
wait(3000+random(1000));
Mouse(248,255,10,2,true);
wait(3000+random(1000));
Mouse(226,442,10,3,true);
wait(3000+random(1000));
end;
end;
procedure FindMiscRandoms;
var ax,ay:integer;
begin
if(FindColor(ax,ay,786423,10,350,150,433))then
begin
GetScreenshot('Mod',1);
LogOut('UHOH, A MOD!!!');
end;
if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
begin
GetScreenshot('Dead',1);
LogOut('You are dead!');
end;
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
GetScreenshot('Mime',1);
LogOut('Mime Found');
end;
end;
Procedure FindRandoms;
begin
LoginIfNeeded;
FindText;
FindBox;
FindMiscRandoms;
end;
Procedure ProgressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
Time:String;
begin
if(GetSystemTime-report2 > report*60000)then
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
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('Fought '+inttostr(Killed)+' time[s]');
if(EatFood)then
writeln('Ate '+inttostr(ate)+' pieces of food')
if(bonecollecting)then
writeln('Collected '+inttostr(BonesCollected)+', and buried '+inttostr(BonesBuried)+' bones');
writeln('Handled: '+inttostr(RandomCount)+' Randoms, and ran from '+inttostr(runs)+' random events');
writeln('<================================================>');
Report2:=GetSystemTime;
end;
end;
end;
Procedure GetBoneInvColor;
begin
Status('Getting boneinvcolor...');
OpenBag;
MMouse(620,220,10,10);
Wait(500+random(200));
If(IsTextAt2(9,9,'Bury',100))then
begin
BoneInvColor := GetColor(625,230);
Status('BoneInvinColor is '+inttostr(BoneInvColor));
end else
begin
BoneCollecting := false;
Writeln('');
Writeln('No bone in second inv slot!');
Writeln('');
end;
end;
Procedure BoneBurier;
begin
OpenBag;
Wait(200+random(100));
Status('Burying bones...');
If(FindColorSpiral(x,y,(BoneInvColor),555,216,740,465))then
repeat
LastBuried:=0;
Mouse(x,y,10,10,true);
Wait(1500+random(300));
BonesBuried:=BonesBuried+1;
until(not(FindColorSpiral(x,y,(BoneInvColor),555,216,740,465)));
end;
Procedure BoneCollector;
begin
Wait(200+random(100));
Status('Collecting bones...');
x:=262;
y:=174;
If(FindColorSpiral(x,y,(BoneColor),5,5,515,337))then
begin
Mouse(x,y,5,5,false);
wait(50+random(25));
If(FindBitmapIn(TakeBones,x,y,5,5,515,337))then
begin
Mouse(x,y,0,0,true);
Wait(15+random(5));
BonesCollected:=BonesCollected+1;
LastBuried:=LastBuried+1;
MapFlag;
wait(500+random(100));
end;
If(FindBitmapIn(TakeBonesY,x,y,5,5,515,337))then
begin
Mouse(x,y,0,0,true);
Wait(15+random(5));
BonesCollected:=BonesCollected+1;
LastBuried:=LastBuried+1;
MapFlag;
wait(500+random(100));
end;
end;
end;
Procedure Attack;
var c:integer;
begin
mcolor:=random(2);
case mcolor of
0:mcolor:=color1;
1:mcolor:=color2;
end;
x:=25+random(200);
y:=25+random(200);
if(FindColorSpiralTolerance(x,y,mcolor,5,5,514,337,tol))then
begin
status('Attacking...');
MoveMouseSmooth(x,y);
GetMousePos(ax,ay);
if(not FindColor(ax,ay,65280,ax-15,ay-30,ax+10,ay+15))and
(not(FindColor(ax,ay,65280,240,125,270,180)))then
begin
Mouse(ax,ay,1,1,false);
wait(150+random(50));
if(FindBitmapIn(AttackIt,x,y,10,12,516,342))or
(FindBitmapIn(AttackIt2,x,y,10,12,516,342))then
begin
Attacking:=true;
wait(50+random(25));
Mouse(x,y,5,3,true);
for c:=0 to 3 do
if(not (FindColorSpiral(ax,ay,65280,240,125,270,180)))then
begin
MapFlag;
wait(300+random(100));
FindRandoms;
end;
end else
MMouse(5,5,60,60);
end;
end;
end;
Procedure WaitWhileAttacking;
var c:integer;
begin
if(FindColorSpiral(ax,ay,65280,240,125,270,180))then
begin
if(Attacking)then
begin
Killed:=Killed+1;
Attacking:=false;
end;
STT:=GetSystemTime;
repeat
TT:=(GetSystemTime-STT)/1000;
status('Fighting monster for '+inttostr(TT)+' second(s)')
wait(300);
if(TT>Timeout)then
Run:=true;
if(c>3)then
begin
FindRandoms;
if(GetHp<CriticalHP)then
CHP:=true;
c:=0;
end;
c:=c+1;
until(not (FindColorSpiral(ax,ay,65280,240,125,270,180)))or(Run)or(CHP)
if(Run)then
begin
Status('Fight lasted too long')
RunAway;
end;
if(CHP)then
Eat;
LastFight:=GetSystemTime;
If(BoneCollecting)then
BoneCollector;
end;
end;
Procedure LoadBmps;
begin
TakeBones := BitmapFromString(70, 1,
'FFFFFFFFFFFF0000005D54475D54475D5447FFFFFFFFFFFFFFFFFF' +
'FFFFFF5D54475D54475D5447FFFFFFFFFFFF000000FFFFFFFFFFFF' +
'5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D54475D5447' +
'5D54475D54475D54475D54475D5447FF9040FF9040FF9040FF9040' +
'FF90400000000000005D54475D5447FF9040FF9040FF9040FF9040' +
'5D54475D54475D5447FF9040FF9040FF9040FF9040FF90405D5447' +
'5D54475D54475D5447FF9040FF9040FF9040FF90405D54475D5447' +
'5D54475D5447FF9040FF9040FF9040FF9040FF9040');
TakeBonesY := BitmapFromString(70, 1,
'FFFF00FFFF000000005D54475D54475D5447FFFF00FFFF00FFFF00' +
'FFFF005D54475D54475D5447FFFF00FFFF00000000FFFF00FFFF00' +
'5D54475D54475D5447FFFF00FFFF00FFFF00FFFF005D54475D5447' +
'5D54475D54475D54475D54475D5447FF9040FF9040FF9040FF9040' +
'FF90400000000000005D54475D5447FF9040FF9040FF9040FF9040' +
'5D54475D54475D5447FF9040FF9040FF9040FF9040FF90405D5447' +
'5D54475D54475D5447FF9040FF9040FF9040FF90405D54475D5447' +
'5D54475D5447FF9040FF9040FF9040FF9040FF9040');
AttackIt := BitmapFromString(10, 6,
'FFFFFF5D54475D54475D5447FFFFFFFFFFFF5D54475D54475D5447' +
'5D5447FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000005D5447' +
'5D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF000000' +
'5D54475D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
'FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
'FFFFFF0000000000000000005D5447FFFFFFFFFFFF0000005D5447' +
'FFFFFFFFFFFF0000005D54475D54475D5447');
AttackIt2 := BitmapFromString(21, 7,
'5D5447FFFF00FFFF000000005D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D5447FFFF00FFFF00FFFF00FFFF005D5447' +
'5D54475D5447FFFF00FFFF00FFFF00FFFF005D54475D54475D5447' +
'5D5447FFFF00FFFF00FFFF00FFFF005D54475D5447FFFF00FFFF00' +
'0000000000000000005D5447FFFF00FFFF00000000000000FFFF00' +
'FFFF005D54475D5447FFFF00FFFF00000000000000000000000000' +
'5D5447FFFF00FFFF000000005D54475D54475D54475D5447FFFF00' +
'FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00FFFF00000000' +
'5D54475D54475D54475D5447FFFF00FFFF000000005D54475D5447' +
'5D5447FFFF00FFFF00000000000000FFFF00FFFF000000005D5447' +
'FFFF00FFFF000000005D54475D54475D54475D5447FFFF00FFFF00' +
'0000005D54475D54475D5447FFFF00FFFF000000005D5447FFFF00' +
'FFFF000000005D5447FFFF00FFFF000000005D54475D54475D5447' +
'5D54475D5447FFFF00FFFF00FFFF005D54475D54475D5447FFFF00' +
'FFFF00FFFF00FFFF00FFFF000000005D54475D5447FFFF00FFFF00' +
'FFFF00FFFF005D5447');
TalkW := BitmapFromString(17, 10,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000000000000000000000000000' +
'000000000000000000000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000000000000000000000000000000000000000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
'000000000000000000000000000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000000000000000000000000000' +
'000000000000000000000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000000000000000000000000000000000' +
'000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000000000000000000000000000000000000000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
//Lamp pic by Chriz
iLamp := BitmapFromString(17, 6,
'000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
'9291128C8A1275740E000001000001000001000001000001D0CE18' +
'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
'99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
'9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
'88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
'79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
'000001000001C2C118');
end;
begin
clearreport;
Setup;
SetupOSi;
Report2:=ST;
LoadBmps;
LoginIfNeeded;
SetFightMode(FightMode);
OpenBag;
ChatFixer;
if(BoneCollecting)then
GetBoneInvColor;
LFTimeout:=LFTimeout*60000;
LastFight:=GetSystemTime;
case RunWhere of
'N':begin RWX:=-1; RWY:=-48; end;
'S':begin RWX:=1; RWY:=48; end;
'E':begin RWX:=-58; RWY:=-1; end;
'W':begin RWX:=58; RWY:=1; end;
end;
repeat
FindRandoms;
wait(300+random(150));
Att:=False;
Attack;
WaitWhileAttacking;
If(BoneCollecting)and(LastBuried>4)then
BoneBurier;
ProgressReport;
until(GetSystemTime-LastFight>LFTimeout);
LogOut('Loop Ended');
end.
SCAR Code:{=========================================================================]
[ Stupid3ooo's StupidChopperBanker ]
[ version: 1.01 ]
[=========================================================================]
| Description: |
| A macro that starts in the Draynor or Edgeville bank and walks to the |
| trees, either Yew or Willow, south of the bank. It chops a full load of|
| logs from the Yew or Willow trees then returns to the bank and repeats |
| the process. |
| Instructions: |
| 1.Set the Runescape brightness to V-bright, and your computer's |
| resolution to 32bit resolution. |
| 2.Need SCAR version 2.0.3. |
| 3.Start the script in the Draynor or Edgeville bank so that the trees |
| are visible in the minimap. |
| 4.Click and drag the cross heir onto the Runescape client and press |
| the green arrow at the top to run the script. |
| 5.You may set your own colors lines 37-39 (optional). |
[=========================================================================]
[ *Be sure to open SSI2.txt for more options. ]
[ *For general SCAR help go to: ]
| [url]http://www.kaitnieks.com/files/SCARGUIDE/SCARGUIDE.htm[/url] ]
[ Thanks to, RS Cheating community ]
[ *PLEASE POST ANY BUGS/HELP IN THE FORUMS OR E-MAIL ]
[ [email]RSTradeMonkey@hotmail.com[/email], or [email]Stupid3ooo@gmail.com[/email] ]
[ If you like pwease donate to me :) at: ]
[ [url]http://www.stupidscripts.com[/url] ]
[=========================================================================}
program StupidChopperBanker;
{.include SSI2.txt}
{.include BoxBreaker.txt}
const
//=//===============Colors(Leave as 0 to let script find)==============\=\\
MMBankColor= 3460064;//Color of the trees in the minimap.(SS:3060683)
MMTreeColor= 96769;//Color of the trees in the minimap.(SS:15891)
MSTreeColor= 606264;//Color of the trees in the mainscreen. (SS:1849400)
//=\\=================================================================//=\\
//=\\ Under the varibles you may disable the forms and setup options. //=\\
//=\\=================================================================//=\\
var
TreeMapColor,TreeColor,Report,Report2,Banks,MaxWait,TinderBox,LogBmp,
BankColor,Location,Mark:integer;
UseForm,NoAxe,EquipAxe,StartScript:boolean;
frmDesign,frmMore:TForm;
labPassword,labUsername,labMaxWait,labMaxWait2,labLocation:TLabel;
edtUsername,edtPassword,edtMaxWait:TEdit;
bMoreOptions,bStart,bSave,bDonate:TButton;
cbLogsOut,cbChats,cbEquipAxe,cbRotates,cbScarScape:TCheckBox;
cboxLocation:TComboBox;
procedure Setup;
begin
//=\\============================Setup================================//=\\
UseForm:= true;//If you wish to use the form.
Username:= Username;//Username.
Password:= Password;//Password.
ScarScape:= false;//Set to true if you are using ScarScape.
LogsOut:= true;//If you want to log out every so often for antiban.
Chats:= true;//If you want to randomly chat for anti-ban.
Rotates:= true;//If you want to randomly rotate the screen for anti-ban.
MaxWait:= 300;//Maximum time in seconds to wait while chopping a tree.
Location:= 1;//1= Draynor(Willow), 2= Edgeville(Yew)
EquipAxe:= false;//If you can/want to equip your axe.
//=\\=================================================================//=\\
end;
//DO NO TOUCH BELOW
//==============================Misc Procedures===============================\\
procedure ProgressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
Time:String;
begin
if(GetSystemTime-report2 > report*60000)then
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if(banks>0)then
avtime:=Seconds/banks;
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('Banked '+IntToStr(banks)+' loads[s].');
WriteLn('Banked '+IntToStr(banks*27)+' logs[s].');
if(Location=1)then
WriteLn('Gained '+floattostr(30*(banks*27))+'xp.');
if(Location=2)then
WriteLn('Gained '+floattostr(60*(banks*27))+'xp.');
if(Location=1)then
WriteLn('Currently Averaging about '+IntToStr(3600/avtime*27)+
' logs and '+floattostr(3600/avtime*30*27)+' xp an hour.');
if(Location=2)then
WriteLn('Currently Averaging about '+IntToStr(3600/avtime*27)+
' logs and '+floattostr(3600/avtime*60*27)+' xp an hour.');
WriteLn('Random Event Report:');
if(fights>0)then WriteLn(' Fought '+IntToStr(fights)+' time[s].');
if(talks>0)then WriteLn(' Talked to '+IntToStr(talks)+' Random event[s].');
if(lamps>0)then WriteLn(' Used lamps '+IntToStr(lamps)+' time[s].');
if(boxes>0)then WriteLn(' Solved '+IntToStr(boxes)+' box[es].');
if(logs>0)then WriteLn(' Logged in '+IntToStr(logs)+' time[s].');
if(foresters>0)then WriteLn(' Solved '+IntToStr(foresters)+' forester[s].');
if(frogs>0)then WriteLn(' Solved '+IntToStr(foresters)+' frog[s].');
if(doctors>0)then WriteLn(' Solved '+IntToStr(doctors)+' doctor[s].');
if(certers>0)then Writeln(' Solved '+IntToStr(certers)+' certer[s].');
writeln('<================================================>');
Report2:=GetSystemTime;
end;
end;
end;
procedure FindRandoms;
begin
FindBox;
FindNormalRandoms;
AntiBan;
FindDoctor;
if(not(FindAxe))then
NoAxe:=true;
if(FindFight)then
begin
if(Location=1)then
RunAwayDirection('S');
if(Location=2)then
RunAwayDirection('N');
Wait(5000+random(1000));
RunBack;
end;
end;
procedure SetColors;
begin
TreeMapColor:=MMTreeColor;
TreeColor:=MSTreeColor;
BankColor:=MMBankColor;
end;
//=========================Color Finding Procedures===========================\\
procedure FindTreeColor;
var
c:integer;
begin
repeat
c:=c+1;
if(FindObj('Chop',1849400,10))then
begin
if(FindColorTolerance(x,y,1849400,x-30,y-30,x+30,y+30,10))then
begin
TreeColor:=GetColor(x,y);
break;
end;
end;
until(c>10)or(TreeColor>0)
if(TreeColor>0)then
begin
writeln('TreeColor: '+inttostr(TreeColor));
end else
begin
WriteLn('Could not find tree color, please stand next to a tree and '+
'make sure the tree spot symbol is visible in the minimap, then'+
' run the script again');
TerminateScript;
end;
end;
procedure FindMapTreeColor;
var
MMTreeBmp,c:integer;
acc,angle:Extended;
begin
if(Location=1)then
begin
MMTreeBmp := BitmapFromString(8, 8, 'z78DAA5CF310AC0300C43D12BC591B1' +
'BD266DEE7FA586AA83C150285DDEA2BF28D41D2D92DD0CB2AA310' +
'3E86C64E99441B922ECE8C8B2CF25AD65F67FAF4D4D90AD7DB88F' +
'FDE516032A4EF7BB8593D6F2BD7FFCD85F763D5379');
FindDeformedBitmapToleranceRotationIn(MMTreeBmp,x,y,582,37,700,117,70,0,acc,PI/10,0,2*PI,angle);
repeat
c:=c+5;
if(FindColorTolerance(x,y,2321464,x-10,y-10,x+10,y+10,c))then
TreeMapColor:=GetColor(x,y);
until(TreeMapColor>0)or(c>70);
end;
if(Location=2)then
FindSymbolColorIfNeeded('rare trees',true,TreeMapColor);
if(TreeMapColor>0)then
begin
WriteLn('TreeMapColor: '+inttostr(TreeMapColor));
end else
begin
WriteLn('Could not find tree color, please stand next to a tree and '+
'make sure the tree spot symbol is visible in the minimap, then'+
' run the script again');
TerminateScript;
end;
end;
//========================Map Walking procedures==============================\\
procedure ToTrees;
begin
RoadWalk(TreeMapColor,'S');
FlagAtColor(TreeMapColor);
end;
procedure ToBank;
begin
if(not(FindMMColor(BankColor)))then
begin
RoadWalk(TreeMapColor,'N');
Flag;
end;
if(Location=1)then
ToBankers(BankColor,5,0);
if(Location=2)then
ToBankers(BankColor,-5,0);
FlagAtColor(BankColor);
end;
//========================Main Screen Procedures==============================\\
procedure Bank;
begin
if(FindColor(x,y,BankColor,608,43,688,123))then
begin
FindBox;
if(NoAxe=true)and(EquipAxe=true)then
begin
GameTab(5);
Mouse(593,303,r,r,true);
Wait(1000+random(100));
GameTab(4);
end;
OpenBank;
if(BankScreen)then
begin
if(NoAxe=true)then
begin
ClickAllItemsColorWait('All',65536,1000+Random(100));
Withdraw(1,1,1);
end else
begin
if(EquipAxe=false)then
Deposit(2,28,2);
if(EquipAxe=true)then
ClickAllItemsColorWait('All',65536,1000+Random(100));
end;
if(NoAxe=true)and(EquipAxe=true)then
begin
FindAxeHeadColor;
ClickItemColor(AxeHeadColor,true);
end;
Banks:=Banks+1;
NoAxe:=false;
ProgressReport;
end;
CloseWindow;
end;
end;
procedure ChopTree;
var SysTime:integer;
begin
if(FindObj('Chop',TreeColor,0))then
begin
Mouse(x,y,r,r,false);
if(not(FindColor(x,y,65535,x,y,x+100,y+50)))then
begin
ChooseOption('Chop');
Flag;
Wait(1000+random(100));
MarkTime(SysTime);
FindEnt(TreeColor);
repeat
FindRandoms;
if(not(Option('Chop')))then
Break;
FindEnt(TreeColor);
Wait(1000+random(100));
until(TimeFromMark(SysTime)>MaxWait*1000)or(InventoryFull)
end else
begin
ChooseOption('Cancel');
FindEnt(TreeColor);
end;
end;
end;
procedure LoadBmps;
begin
TinderBox := BitmapFromString(30, 8, 'z78DABD946B8E83300C84' +
'AF94871D7B7E1A02F73FD2BA71B44AB5546DD5DD65A41102E47C3' +
'8E33091D58DC31B752AE976659C20D770CB6868775E21900B6700' +
'3ABD6183CDFBF1B615AA09AF3858CDD595B46A93DDD58584828D1' +
'7E67872B1EEEA8A8E7D3A70A03FF1F1E51BB4A2BB6E7A2ABB540E' +
'E99A455DD2CE764CE6A5B77395CD12CEE9BB65D707FE06ADEAA11' +
'DF906E8D445F3ECF026554A4B6C6CC119BE2523A3BFF0D7930043' +
'D21345E11ACC9187C67C70F79BEADF2ECCFFD3C987B43BB22B321' +
'CA98026392315DC595882B3A6922214DFA978E09F503DA1ED28AE' +
'48457438E6AE8A89458757DA704F33559DE43159317DE37C98356' +
'3D746E55FA38D9A713AADCC63EEDADEA8D14FDA98BEBB193CACB8' +
'62DF97A9BFF88BD8CD37FF62A59DD5A2CE382BE6F48D545CD02EE' +
'7DB171D6738D8');
LogBmp := BitmapFromString(23, 6, 'z78DA9D914B0EC3200C44AFE43F781' +
'928B9FF918A7017AE12AAA82C6681C6330F03300F1A89A1DB9081' +
'BD9022F6AA56785432E15E4E236EA51B4CADFA622FAA8DCB97C67' +
'D78B2E6D99460A71A8B142624580CA1D6A4616FECA27A9C0E4A37' +
'24579E6B7B762EBD4958E44162AEC8904982A1A1A3F217C96E339' +
'7DEF06C35E7C4ECE289760602821DC974329EB59A0BE49C6DCB13' +
'5D6941123BF993E467FE739EFC47F95F76241F1ED732790EEB829' +
'FC6ACCFB7914962272A83061B19F87C74477B03BE82B29E');
end;
//===========================================Form=============================\\
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure ShowMoreModal;
begin
frmMore.ShowModal;
end;
procedure SafeShowForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure SafeMore;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitMore', v);
end;
procedure Start(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
StartScript:=true;
end;
procedure More(sender: TObject);
var
v: TVariantArray;
begin
SafeMore;
setarraylength(V, 0);
ThreadSafeCall('ShowMoreModal', v);
end;
procedure SaveOptions;
begin
LogsOut:=cbLogsOut.State;
Chats:=cbChats.State;
ScarScape:=cbScarScape.State;
Username:= edtUsername.Text;
Password:= edtPassword.Text;
if(Username='')or(Password='')then
begin
Username:='No Username';
Password:='No Password';
end;
case cboxLocation.Text of
'Draynor (Willow)': Location:=1;
'Edgeville (Yew)': Location:=2;
end;
end;
procedure Save(sender: TObject);
begin
frmMore.Caption:= frmMore.Caption + '.';
frmMore.ModalResult:= mrOk;
SaveOptions;
end;
procedure Donate(sender: TObject);
begin
OpenWebPage('http://www.stupidscripts.com');
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 359;
frmDesign.Top := 225;
frmDesign.Width := 258;
frmDesign.Height := 204;
frmDesign.Caption := 'StupidChopperBanker';
frmDesign.Color := clWhite;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
labPassword := TLabel.Create(frmDesign);
labPassword.Parent := frmDesign;
labPassword.Left := 96;
labPassword.Top := 44;
labPassword.Width := 46;
labPassword.Height := 13;
labPassword.Caption := 'Password';
labUsername := TLabel.Create(frmDesign);
labUsername.Parent := frmDesign;
labUsername.Left := 96;
labUsername.Top := 6;
labUsername.Width := 48;
labUsername.Height := 13;
labUsername.Caption := 'Username';
labLocation := TLabel.Create(frmDesign);
labLocation.Parent := frmDesign;
labLocation.Left := 96;
labLocation.Top := 80;
labLocation.Width := 44;
labLocation.Height := 13;
labLocation.Caption := 'Location';
cbScarScape := TCheckBox.Create(frmMore);
cbScarScape.Parent := frmDesign;
cbScarScape.Left := 88;
cbScarScape.Top := 151;
cbScarScape.Width := 80;
cbScarScape.Height := 17;
cbScarScape.Hint :=
'Check if you are using ScarScape.';
cbScarScape.ShowHint := True;
cbScarScape.Caption := 'ScarScape?';
if(ScarScape)then
begin
cbScarScape.Checked := True;
cbScarScape.State := cbChecked;
end;
edtUsername := TEdit.Create(frmDesign);
edtUsername.Parent := frmDesign;
edtUsername.Left := 64;
edtUsername.Top := 20;
edtUsername.Width := 121;
edtUsername.Height := 21;
edtUsername.TabOrder := 1;
edtUsername.Text := Username;
edtPassword := TEdit.Create(frmDesign);
edtPassword.Parent := frmDesign;
edtPassword.Left := 64;
edtPassword.Top := 58;
edtPassword.Width := 121;
edtPassword.Height := 21;
edtPassword.PasswordChar := '*';
edtPassword.Text := Password;
bMoreOptions := TButton.Create(frmDesign);
bMoreOptions.Parent := frmDesign;
bMoreOptions.Left := 178;
bMoreOptions.Top := 151;
bMoreOptions.Width := 70;
bMoreOptions.Height := 17;
bMoreOptions.Caption := 'More Options';
bMoreOptions.OnClick:= @More;
cboxLocation := TComboBox.Create(frmDesign);
cboxLocation.Parent := frmDesign;
cboxLocation.Left := 64;
cboxLocation.Top := 94;
cboxLocation.Width := 121;
cboxLocation.Height := 21;
cboxLocation.ItemHeight := 13;
cboxLocation.Text := 'Draynor (Willow)';
cboxLocation.Items.Add('Draynor (Willow)');
cboxLocation.Items.Add('Edgeville (Yew)');
bStart := TButton.Create(frmDesign);
bStart.Parent := frmDesign;
bStart.Left := 87;
bStart.Top := 121;
bStart.Width := 75;
bStart.Height := 25;
bStart.Caption := 'Start';
bStart.TabOrder := 5;
bStart.OnClick:= @Start;
bDonate := TButton.Create(frmDesign);
bDonate.Parent := frmDesign;
bDonate.Left := 1;
bDonate.Top := 144;
bDonate.Width := 75;
bDonate.Height := 25;
bDonate.Caption := 'Donate Plz';
bDonate.TabOrder := 13;
bDonate.OnClick:= @Donate;
end;
procedure InitMore;
begin
frmMore := CreateForm;
frmMore.Left := 288;
frmMore.Top := 161;
frmMore.Width := 294;
frmMore.Height := 108;
frmMore.Caption := 'More Options';
frmMore.Color := clWhite;
frmMore.Font.Color := clWindowText;
frmMore.Font.Height := -11;
frmMore.Font.Name := 'MS Sans Serif';
frmMore.Font.Style := [];
frmMore.Visible := False;
frmMore.PixelsPerInch := 96;
labMaxWait := TLabel.Create(frmMore);
labMaxWait.Parent := frmMore;
labMaxWait.Left := 5;
labMaxWait.Top := 7;
labMaxWait.Width := 196;
labMaxWait.Height := 13;
labMaxWait.Caption := 'Maximum time to wait while cuting a tree:';
labMaxWait2 := TLabel.Create(frmMore);
labMaxWait2.Parent := frmMore;
labMaxWait2.Left := 243;
labMaxWait2.Top := 10;
labMaxWait2.Width := 40;
labMaxWait2.Height := 13;
labMaxWait2.Caption := 'seconds';
edtMaxWait := TEdit.Create(frmMore);
edtMaxWait.Parent := frmMore;
edtMaxWait.Left := 204;
edtMaxWait.Top := 5;
edtMaxWait.Width := 38;
edtMaxWait.Height := 21;
edtMaxWait.MaxLength := 3;
edtMaxWait.TabOrder := 9;
edtMaxWait.Text := inttostr(MaxWait);
cbLogsOut := TCheckBox.Create(frmMore);
cbLogsOut.Parent := frmMore;
cbLogsOut.Left := 5;
cbLogsOut.Top := 22;
cbLogsOut.Width := 66;
cbLogsOut.Height := 17;
cbLogsOut.Hint := 'If you want to log out about every 3 hours for anti-ban.';
cbLogsOut.Caption := 'Logs out?';
cbLogsOut.ParentShowHint := False;
cbLogsOut.ShowHint := True;
cbLogsOut.TabOrder := 10;
if(LogsOut)then
begin
cbLogsOut.Checked := True;
cbLogsOut.State := cbChecked;
end;
cbChats := TCheckBox.Create(frmMore);
cbChats.Parent := frmMore;
cbChats.Left := 5;
cbChats.Top := 38;
cbChats.Width := 54;
cbChats.Height := 17;
cbChats.Hint :=
'If you want to chat random prashes every so often for anti-ban.';
cbChats.Caption := 'Chats?';
cbChats.ParentShowHint := False;
cbChats.ShowHint := True;
cbChats.TabOrder := 11;
if(Chats)then
begin
cbChats.Checked := True;
cbChats.State := cbChecked;
end;
cbRotates := TCheckBox.Create(frmMore);
cbRotates.Parent := frmMore;
cbRotates.Left := 78;
cbRotates.Top := 22;
cbRotates.Width := 97;
cbRotates.Height := 17;
cbRotates.Hint :=
'If you want to randomly rotate the camera every so often for ant' +
'i-ban.';
cbRotates.ShowHint := True;
cbRotates.Caption := 'Rotates?';
cbRotates.TabOrder := 15;
if(Rotates)then
begin
cbRotates.Checked := True;
cbRotates.State := cbChecked;
end;
cbEquipAxe := TCheckBox.Create(frmMore);
cbEquipAxe.Parent := frmMore;
cbEquipAxe.Left := 5;
cbEquipAxe.Top := 54;
cbEquipAxe.Width := 97;
cbEquipAxe.Height := 17;
cbEquipAxe.Caption := 'Equip axe?';
cbEquipAxe.Hint :='Check if you are able and want to equip your pick.';
cbEquipAxe.ShowHint := True;
cbEquipAxe.TabOrder := 14;
if(EquipAxe)then
begin
cbEquipAxe.Checked := True;
cbEquipAxe.State := cbChecked;
end;
bSave := TButton.Create(frmMore);
bSave.Parent := frmMore;
bSave.Left := 227;
bSave.Top := 57;
bSave.Width := 57;
bSave.Height := 15;
bSave.Caption := 'Save';
bSave.TabOrder := 12;
bSave.OnClick:= @Save;
end;
procedure StartForm;
begin
if(UseForm)then
begin
SafeMore;
SafeShowForm;
if(StartScript=false)then
TerminateScript;
SaveOptions;
ActivateClient;
Wait(1000+random(500));
end;
end;
//======================================Main Line=============================\\
begin
SetupSSI;
Setup;
StartForm;
SetColors;
LoadBmps;
FindSymbolColorIfNeeded('Bank',true,BankColor);
if(FindAxeHeadColor)then
begin
FindMapTreeColor;
RoadWalk(TreeMapColor,'S');
FindTreeColor;
repeat
SetRun(true);
MarkTime(Mark);
repeat
FindRandoms;
ChopTree;
until(InventoryFull)or(NoAxe=true)or(TimeFromMark(Mark)>1800000)
SetRun(false);
ToBank;
Bank;
ToTrees;
until(false)
end;
end.
SCAR Code:{========================================]
Edgeville Cooker
v1.11
By Odie5533
[========================================]
1.Have the fish you want to cook in 1st
Bank Slot
2.Start in Bank
3.Works best on Low Detail
[========================================]
Special thanks to Chrilleman, for help
on the XP Gained in the Report Procedure
[========================================}
program EdgevilleCooker;
{.include OSi.txt}
{.include BoxBreaker.txt}
var RawFish,iLamp,TalkW,TalkY:integer; {Bitmaps}
CookCount,AttackCount,TalkCount,YellowTextCount,LampCount,FR,KillSwitch,xpx:integer; {Counters}
subx,suby:integer; UnderAttack,FindColors:boolean;
BankSymbol,PotColor,RangeColor,WaterSymbol:integer; {Colors}
const
//=\\========================================//=\\
Username = '';
Password = '';
FishType = 3; //What kind of fish to cook?
{0 Lobster, 1 Trout, 2 Salmon, 3 Shrimp, 4 Swordfish
5 Herring, 6 Tuna, 7 Sardine, 8 Pike, 9 Anchovies
10 Cod, 11 Shark, 12 Mackerel, 13 Bass}
Procedure Setup; begin
KillSwitch:=551; //How many fish do you have to cook?
FindColors:=true; //Automatically get colors?
BankSymbol := 5099242; //Color of the bank symbol
WaterSymbol := 13572352;
PotColor := 3042748; //Color of the Shop Pot (Lightest)
RangeColor := 1518279; //Debug ONLY
////==========================================\\\\
end;
Procedure Report(doing:string);
var times,timem,timeh,StrSecZero,StrMinZero,avtime:string;
Hours,Minutes,Seconds:LongInt;
begin
clearreport;
Seconds:=(GetSystemTime-ST) div 1000;
if(CookCount>0)and(Seconds>0)then
avtime:=inttostr(3600/(Seconds/CookCount));
Hours:=Seconds div 3600;
Seconds:=Seconds - (hours*3600);
Minutes:=Seconds div 60;
Seconds:=Seconds - (Minutes*60);
if(minutes<10)then StrMinZero:='0';
if(seconds<10)then StrSecZero:='0';
if(hours>0)then timeh:=inttostr(hours)+':';
if(minutes>0)then timem:=StrMinZero+inttostr(minutes)+':';
times:=StrSecZero+inttostr(seconds);
addtoreport('Edge Cooker by Odie5533');
addtoreport('***********************');
addtoreport('Currently: '+doing);
addtoreport('Worked for '+timeh+timem+times);
addtoreport('Cooked: '+inttostr(CookCount)+' XP Gained: '+inttostr(CookCount*xpx));
addtoreport('Averaging '+avtime+' fish an hour');
addtoreport('Attacks: '+inttostr(AttackCount)+' Talked: '+inttostr(TalkCount));
end;
procedure LoginCheck; {Created by Odie5533}
var counter:integer;
begin
if(NotLogedIn)and(length(username)>0)and(length(password)>0)then
begin
if(IsTextAt2(293,251,'Username',0))then
Mouse(460,322,10,2,true);
if(NotLogedIn)then
if(IsTextAt2(309,241,'Welcome to RuneScape',0))then
begin
Mouse(400,280,125,20,true);
if(IsTextAt2(271,214,'Enter your username',0))then
begin
Mouse(400,256,20,5,true);
SendKeysSilentsmooth(username,50);
Mouse(400,270,20,5,true);
SendKeysSilentsmooth(password,50);
Mouse(300,322,20,5,true);
repeat
counter:=counter+1;
wait(100);
until(FindColor(x,y,8421504,0,0,515,338))or(counter=60)
end;
end;
end;
if(LogedIn)then
if(FindColor(x,y,65535,235,40,280,100))and(FindColor(x,y,8421504,400,0,515,338))then
begin
Mouse(x+5,y+1,15,5,true);
sendarrowsilentwait(0,900+random(200))
wait(200+random(100));
end;
end;
procedure TalkCheck;
var counter,c:integer; Talked2Rand:boolean;
begin
if(FindColor(x,y,65535,5,5,514,337))then wait(500);
if(FindColor(x,y,65535,5,5,514,337))and(LogedIn)then
begin
YellowTextCount:=YellowTextCount+1;
GetScreenShot('YellowText',YellowTextCount);
Report('Yellow Text');
repeat
counter:=counter+2+random(1);
if((x+counter) < 515)and((y+18) < 338)then
MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15,20,20);
wait(5);
if(IsTextAt2(9,9,'Talk',100))then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,false);
Wait(200+random(100));
if(FindBitmap(TalkW,x,y))or(FindBitmap(TalkY,x,y))then
begin
Mouse(x,y,40,5,true);
MapFlag;
wait(1000+random(1000));
while((FindColor(x,y,16711680,5,345,510,465))or
(FindColor(x,y,16777215,5,345,510,465)))and
(not(GetColor(20,434)=0))and(c<=10)do
begin
TalkCount:=TalkCount+1;
GetScreenShot('Talk',TalkCount);
Mouse(x,y,50,2,true);
wait(2000+random(1000));
c:=c+1;
end;
Talked2Rand:=true;
end;
end;
until(counter>=250)or(Talked2Rand);
end;
end;
Procedure AttackCheck;
var ax,ay:integer;
begin
if(FindColor(ax,ay,65280,240,125,270,180))then
begin
AttackCount:=AttackCount+1;
GetScreenshot('Attack',AttackCount);
UnderAttack:=true;
end;
end;
Procedure LampCheck;
var lx,ly:integer;
begin
while(FindBitmapSpiralTolerance(iLamp,lx,ly,560,210,735,465,50))do
begin
LampCount:=LampCount+1;
GetScreenshot('Lamp',LampCount);
Report('Lamp');
Mouse(x,y,10,10,true);
wait(3000+random(1000));
Mouse(157,220,12,12,true)
wait(3000+random(1000));
Mouse(248,255,10,2,true);
wait(3000+random(1000));
Mouse(226,442,10,3,true);
wait(3000+random(1000));
end;
end;
Procedure WildyCheck;
begin
if(GetColor(466,61)=8421504)or(GetColor(466,61)=16777215)then
Mouse(435,60,10,3,true);
end;
procedure MiscCheck;
var ax,ay:integer;
begin
if(FindColor(ax,ay,786423,10,350,150,433))then
begin
GetScreenshot('Mod',1);
LogOut('UHOH, A MOD!!!');
end;
if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
begin
GetScreenShot('Dead',1);
LogOut('You are dead!');
end;
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
GetScreenshot('Mime',1);
LogOut('Mime Found');
end;
end;
Procedure FindRandoms;
begin
WildyCheck;
LoginCheck;
TalkCheck;
MiscCheck;
if(FR>5)then
begin
FR:=0;
LampCheck;
FindBox;
end;
FR:=FR+1;
end;
Procedure ToRange;
begin
Report('To Range');
SetRun(true);
if(not(FindColorTolerance(x,y,WaterSymbol,572,8,722,160,5)))then
begin
Mouse(615,40,3,3,true);
MapFlagWalk;
end;
if(FindColorTolerance(x,y,WaterSymbol,572,8,722,160,5))then
begin
Mouse(x,y,3,3,true);
MapFlag;
if(FindColorTolerance(x,y,PotColor,572,8,752,160,5))then
begin
x:=x+20; y:=y-15;
while(not(SimilarColors(GetColor(x,y),7040372,40)))and(LogedIn)do
begin x:=x-2;y:=y+1;wait(5);end;
Mouse(x-5,y+5,2,2,true);
MapFlag; wait(800+random(200));
if(FindObjColorTol('Climb',4616328,20))then
begin
GetMousePos(x,y);
ClickMouse(x,y,true);
wait(5000+random(1000));
FindRandoms;
if(FindColorTolerance(x,y,RangeColor,5,5,337,514,10))then
begin
Mouse(x,y-35,3,3,true);
MapFlag; Wait(800+random(200));
end else
begin
Mouse(224,303,20,20,true);
MapFlag;
end;
end;
end;
end;
end;
Procedure ToBank;
begin
Report('To Bank');
if(FindObjColorTol('Climb',4616328,20))then
begin
GetMousePos(x,y);
ClickMouse(x,y,true);
while(not(GetColor(319,153)=16777215))and(LogedIn)do wait(1);
while(GetColor(319,153)=16777215)and(LogedIn)do wait(1);
wait(100+random(50));
end;
if(FindColorTolerance(x,y,WaterSymbol,572,8,722,160,5))then
MouseFlagWalk(x,y,3,3);
if(not(FindColor(x,y,BankSymbol,572,8,722,160)))then
begin
FindColorTolerance(x,y,WaterSymbol,572,8,722,160,5)
MouseFlagWalk(x+20,y+30,3,3);
end;
if(FindColor(x,y,BankSymbol,572,8,722,160))then
MouseFlag(x+5,y+10,3,3);
end;
Procedure Bank;
begin
Report('Banking');
if(CookCount>KillSwitch)then
LogOut('Finished Cooking!');
OpenBank;
Deposit(0,0,0);
Withdraw(1,1,0);
CloseBank;
end;
Procedure CookFish;
var c,rawx,rawy,rangex,rangey:integer;
begin
while(FindBitmapToleranceIn(RawFish,rawx,rawy,560,210,730,465,30))and
(FindColorSpiralTolerance(rangex,rangey,RangeColor,5,5,514,337,20))and
(not(UnderAttack))do
begin
FindRandoms;
Mouse(rawx-subx,rawy-suby,25,25,true);
Mouse(rangex,rangey,3,3,true);
c:=0;
while((FindBitmapToleranceIn(RawFish,x,y,rawx-15,rawy-15,rawx+15,rawy+15,30))and(c<20))or(c<3)do
begin
c:=c+1;
wait(200+random(100));
FindRandoms;
end;
CookCount:=CookCount+1;
Report('Cooking');
end;
end;
Procedure LoadBmps;
begin
case FishType of
0:begin RawFish := BitmapFromString(8, 4,
'000001874D23804921834C21874D238D5123975725000001000001' +
'874D23804921874D23905325995928A35E2A000001000001874D23' +
'834C218D5123000001000001000001000000000000000001000001' +
'000001000000000000000000000000'); subx:=20; suby:=20; end;//Lobster
1:begin RawFish := BitmapFromString(4, 4,
'000001B9AEADBFB6B6C6BEBE000001C4BBBACBC4C4D4CECE000001' +
'CDC6C5D6D0D0DAD4D4000000000001000001000001'); subx:=-2; suby:=20; end;//Trout
2:begin RawFish := BitmapFromString(4, 4,
'000001A98B86AE908AB59691000001B2938DBB9A95C1A49E000001' +
'BC9C97C2A5A1C4A9A5000000000001000001000001'); subx:=-2; suby:=20; end;//Salmon
3:begin RawFish := BitmapFromString(5, 2,
'564D42000001CAB7ADA67A5F000001000001DACEC7CFBEB6000001' +
'302020'); subx:=0; suby:=8; end; //Shrimp
4:begin RawFish := BitmapFromString(5, 6,
'000001D3B3D9C395CCAE7BB79C7FA1000001D6C7DACFBDD3C9B4CD' +
'000001000001CCB7CFC4ACC9000001302020000001C0A6C5BB9FC0' +
'000001302020000001B495BA000001302020302020000001C9B4CD' +
'000001302020564D42'); subx:=18; suby:=10; end;//Sowrdfish
5:begin RawFish := BitmapFromString(4, 5,
'564D42000001B7ADAC5F5858000001C2BAB9C9C2C1CFC9C9000001' +
'CDC6C5D8D2D1DBD6D6000001D9D3D3DCD8D8E0DCDC000001FBFAFA' +
'F5F3F3F0EEEE'); subx:=-4; suby:=15; end; //Herring
6:begin RawFish := BitmapFromString(6, 6,
'001C00001C00001C00001C00001C00C2BAB9001C00CDC6C5001C00' +
'001C00CAC3C2C7C0C0001C00D2CCCC001C00001C00CFC9C9CFC7C7' +
'D9D3D3D9D3D3D8D2D1D6D1D0D5CFCFD3CDCDDFDADADED9D9DCD8D8' +
'DBD6D6DED9D9DCD8D8E8E4E4EAE7E7E9E6E6000001000001000001' +
''); subx:=5; suby:=17; end; //Tuna
7:begin RawFish := BitmapFromString(4, 5,
'0000010000013D6F3F509052345B34478049599E5A5DA55E529253' +
'62AF6367B7686ABE6C6ABE6C6EC46F71CA737DD37F8AAE8A8AAE8A' +
'8AAE8A83D484'); subx:=8; suby:=8; end; //Sardine
8:begin RawFish := BitmapFromString(6, 5,
'000001617B626782676E8B6E7493750000016079606580666A876B' +
'718F71769576000001475A474E624E546A545A715A87AB877E9F7E' +
'506650546A545A715A60796091B79284A785586F585B745D617B62' +
'9FC09F93BA93000001'); subx:=16; suby:=3; end; //Pike
9:begin RawFish := BitmapFromString(5, 4,
'707079797A8483838D78788200000185858F8989951410106C6C75' +
'00000100000190909C4E4E545B5B6358585F00000187879162626A' +
'55555B000001'); subx:=20; suby:=7; end; //Anchovies
10:begin RawFish := BitmapFromString(6, 7,
'6F6F8C70718E7374927777967A7A9A7F7FA07777967A7A9A7C7C9C' +
'7F7FA08081A28484A57F7FA08283A48586A88888AC8B8BAF8E8FB3' +
'8586A87E7E887E7E887E7E887E7E880000018888AC7E7E887E7E88' +
'7E7E887E7E880000018B8BAF7E7E887E7E887E7E887E7E887E7E88' +
'0000010000010000010000017E7E887E7E88'); subx:=6; suby:=14; end; //Cod
11:begin RawFish := BitmapFromString(6, 4,
'887F7E8379797A71718A81807A71710000018C8282877D7C9B9090' +
'8C82827C7373000001AA9E9EACA0A09C91918E84847E7575000001' +
'000001A49897978D8C8A81807C7373000001'); subx:=19; suby:=17; end; //Shark
12:begin RawFish := BitmapFromString(6, 4,
'00000184834A89884E8E8D509392539897559291739A9A7AA2A180' +
'A6A55EABA960B0AE639E9D7DA5A584605959B4B490BBBA96C0BF9D' +
'A9A987605959BABA94C0BF9DC4C4A5CDCC73'); subx:=-2; suby:=12; end; //Mackerel
13:begin RawFish := BitmapFromString(5, 5,
'001D00001D00CB8172C98071C77E70001D00001D00D18576CF8474' +
'CD8373D48F81D48F81D38C7ED38C7ED38A7BD69689D69689D7978C' +
'D69689D59387DBA59B000001000001000001000001'); subx:=7; suby:=18; end; //Bass
end;
iLamp := BitmapFromString(16, 2,
'000001000001000001000001000001BAB815B2B015AEAD15ABAA15' +
'9C9A129291128C8A1275740E000001000001000001C5C418D0CE18' +
'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
'99971292911284820E79780E696809');
TalkW := BitmapFromString(17, 10,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000000000000000000000000000' +
'000000000000000000000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000000000000000000000000000000000000000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
'000000000000000000000000000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000000000000000000000000000' +
'000000000000000000000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000000000000000000000000000000000' +
'000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000000000000000000000000000000000000000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
end;
Procedure GetColors;
begin
if(FindColors)then
if(FindColorTolerance(x,y,5360864,572,8,722,160,45))then
begin
BankSymbol:=GetColor(x,y);
if(FindColorTolerance(x,y,14564618,572,8,722,160,45))then
begin
WaterSymbol:=GetColor(x,y);
MouseFlag(x,y,5,5);
if(FindColorTolerance(x,y,3042748,572,8,722,160,40))then
begin
PotColor:=GetColor(x,y);
FindColors:=false;
writeln('Successfully Found All Colors!');
end;
end;
end;
end;
begin
SetupOSi;
Setup;
LoadBmps;
ChatFixer;
FindRandoms;
GetColors;
KillSwitch:=(KillSwitch div 27)*27;
case FishType of
0:xpx:=120; 1:xpx:=70; 2:xpx:=90; 3:xpx:=30;
4:xpx:=140; 5:xpx:=50; 6:xpx:=100; 7:xpx:=40;
8:xpx:=80; 9:xpx:=30; 10:xpx:=75; 11:xpx:=210;
12:xpx:=60; 13:xpx:=130; end;
if(not(FindColors))then
repeat
ToRange;
CookFish;
ToBank;
Bank;
UnderAttack:=false;
until(false);
end.
SCAR Code://by TV-XXX//
//start in fali east bank//
//fill in set up, run//
program faliyewchopper;
const
username = '';
password = '';
axehead = 6839879;
road1 = 6517884;
road2 = 6316136;
treelogo = 95489;
treecol = 5211564;
banklogo = 3851995;
bankbooth = 4679037;
var
x,y,n,m,d,f,w,e,k,l,v,b,o,p: integer;
procedure waitforrepeat;
begin
wait(2000+random(5000));
end;
procedure storelogs;
begin
findcolor(b,o,4419729,698,343,729,455)
movemousesmooth(b,o);
wait(100+random(100));
clickmouse(b,o,false);
wait(500+random(500));
movemousesmooth(b,(o+70));
wait(100+random(100));
clickmouse(b,(o+70),true);
wait(1000+random(500));
movemousesmooth(459,41);
wait(100+random(100));
clickmouse(459,41,true);
wait(1000+random(1000));
waitforrepeat;
end;
procedure banking;
begin
if(findcolor(w,e,bankbooth,0,0,517,341)=true)
then
movemousesmooth(w,e);
wait(2000+random(100));
clickmouse(w,e,true);
wait(5000+random(1000));
if(findcolor(k,l,16711680,208,435,389,457)=true)
then
movemousesmooth(303,446);
wait(100+random(100));
clickmouse(303,446,true);
wait(1000+random(1000));
movemousesmooth(247,392);
wait(100+random(100));
clickmouse(247,392,true);
wait(4000+random(1000));
storelogs;
if(findcolor(k,l,16711680,208,435,389,457)=false)
then
banking;
if(findcolor(w,e,bankbooth,0,0,517,341)=false)
then
banking;
end;
procedure tobank;
begin
if(findcolor(d,f,road1,644,24,717,71)=true)
then
movemousesmooth(d,f);
wait(100+random(100));
clickmouse(d,f,true);
wait(6000+random(1000));
movemousesmooth((d-10),(f-5));
wait(100+random(100));
clickmouse((d-10),(f-5),true);
wait(8000+random(1000));
movemousesmooth((d-10),(f-5));
wait(100+random(100));
clickmouse((d-10),(f-5),true);
wait(10000+random(500));
if(findcolor(x,y,banklogo,586,42,718,134)=true)
then
movemousesmooth(x,(y+5));
wait(100+random(100));
clickmouse(x,(y+5),true);
wait(8000+random(1000));
banking;
end;
procedure findaxehead;
begin
end;
procedure chopyew;
begin
if(findcolorspiral(v,b,treecol,0,0,516,340)=true)
then
movemousesmooth(v,b);
wait(100+random(100));
clickmouse(v,b,true);
wait(5000+random(1000));
if(findcolor(x,y,axehead,577,213,596,288)=false)
then
findaxehead;
if(findcolor(n,m,3885652,707,440,714,446)=true)
then
chopyew;
if(findcolor(n,m,3885652,707,440,714,446)=false)
then
tobank;
if(findcolorspiral(v,b,treecol,0,0,516,340)=false)
then
wait(5000+random(2000));
chopyew;
end;
procedure toyews;
begin
if(findcolor(x,y,road1,613,123,635,154)=true)
then
movemousesmooth(x,y);
wait(100+random(100));
clickmouse(x,y,true);
wait(9000+random(1000));
movemousesmooth((x+30),(y+30));
wait(100+random(100));
clickmouse((x+30),(y+30),true);
wait(9000+random(1000));
if(findcolor(n,m,road2,628,97,714,148)=true)
then
movemousesmooth(n,m);
wait(100+random(100));
clickmouse(n,m,true);
wait(7000+random(1000));
if(findcolor(n,m,road2,628,97,714,148)=false)
then
toyews;
if(findcolor(d,f,treelogo,547,72,670,145)=true)
then
movemousesmooth(d,f);
wait(100+random(100));
clickmouse(d,f,true);
wait(5000+random(1000));
chopyew;
if(findcolor(x,y,road1,613,123,635,154)=false)
then
chopyew;
end;
procedure bankortree;
begin
if(findcolor(x,y,treelogo,578,17,722,143)=true)
then
chopyew;
if(findcolor(x,y,treelogo,578,17,722,143)=false)
then
toyews;
end;
procedure setrun;
begin
movemousesmooth(710,484);
wait(100+random(100));
clickmouse(710,484,true);
wait(100+random(100));
if(findcolor(k,l,5067346,605,250,640,283)=true)
then
movemousesmooth(k,l);
wait(100+random(100));
clickmouse(k,l,true);
wait(100+random(100));
movemousesmooth(650,186);
wait(100+random(100));
clickmouse(650,186,true);
wait(100+random(100));
bankortree;
if(findcolor(k,l,5067346,605,250,640,283)=false)
then
movemousesmooth(650,186);
wait(100+random(100));
clickmouse(650,186,true);
wait(100+random(100));
bankortree;
end;
procedure clickredlog;
begin
wait(2000+random(2000));
if(findcolor(o,p,16777215,464,332,614,351)=false)
then
clickredlog;
if(findcolor(o,p,16777215,464,332,614,351)=true)
then
movemousesmooth(o,p);
wait(100+random(100));
clickmouse(o,p,false);
wait(100+random(100));
movemousesmooth((o-10),(p-20));
wait(100+random(100));
clickmouse((o-10),(p-20),true);
end;
procedure login;
begin
writeln('loggin-in')
if(findcolor(n,m,16777215,392,270,533,310)=false)
then
login;
if(findcolor(n,m,16777215,392,270,533,310)=true)
then
movemousesmooth(n,m);
wait(100+random(100));
clickmouse(n,m,true);
wait(100+random(100));
sendkeys(username+chr(13));
wait(100+random(100));
sendkeys(password);
if(findcolor(k,l,16777215,229,302,371,340)=true)
then
movemousesmooth(k,l);
wait(100+random(100));
clickmouse(k,l,true);
wait(100+random(100));
clickredlog;
end;
procedure loginfinder;
begin
if(findcolor(x,y,65535,301,231,426,261)=true)
then
login;
if(findcolor(x,y,65535,301,231,426,261)=false)
then
setrun;
end;
procedure minimize;
begin
if(findcolor(w,e,16086339,0,0,1000,1000)=true)
then
movemousesmooth(w,e);
wait(100+random(100));
clickmouse(w,e,true);
wait(1000+random(100));
loginfinder;
if(findcolor(w,e,16086339,0,0,1000,1000)=false)
then
loginfinder;
end;
begin
minimize;
wait(240000);
repeat
setrun;
until(false);
end.
[CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]
SCAR Code:{========================================]
Auto Talker
v175.0
By WT-Fakawi
[========================================]
Dis is my l33t script took me weeks to make im gonna make it pay script
2mill so this is your chance to leech
[========================================}
begin
repeat
sendkeys ('talking');
wait (100);
until (false);
end.
Yep, thats WT-Fakawi's first script made circa 1993. As you can see even at the early age of 2 years, Fakawi was a great scripter and always remembered good scripting standards.
^^ Fakawi was like 30 in 1993![]()
STOP PM'ING ME
Darky has stopped by to say hello :).
10-21-2010
Updated-
10-09-2012
Hobbit.. how old is Fawki?and what do u meen by when SRL was private?
I believe he is 44, well somewhere around there.
SRL used to be a private community where you had to email Benland your application and they would poll it before you could even get access to the site. Wasn't even a domain yet, just IP. I think I still have the old IP address on my other computer.
STOP PM'ING ME

From 2004:
Here's one from 2003:Code:program MeisterFighterScript; { ================================================= MeisterFighter V1.3b - by Scarmeister ================================================= INSTRUCTIONS: If you want to attack a monster that's not in the list then just fill in the MonsterColor in the boxes (use the colorpicker). It doesn't matter if you don't fill in all the boxes, one value is sufficient but more values will make you detect the monster faster. Make sure you have a sleeping bag in your inventory somewhere. IMPORTANT: Only works with Scar 1.11 or higher! ================================================= FEATURES: - Easy select options using forms. - Sleeping, Autologon and Eating. - Fast detection of monsters. - Fast correction of wrong FightMode. - Anti-MissClicking feature added. - P2P Logon procedure added. UPDATES V1.2: - Login bug fixed (script can be started at any time now). - Multiple color detection added. UPDATES V1.3: - Smart Minimap searching for next monster if you come across someone who is fighting 'your' monster. - Anti AutoLike Behaviour added. - WaitTime tweaked for faster detection results. - Locked-In detection added with automatic door opening. - Choice to search percentage of MiniMap for monsters, buildings or dirt. UPDATES V1.3b - Choice between leftclick or rightclick attack added. - Choice between using minimap search only when another player is attacking your monster. ================================================= } var form, self: TForm; Application: TApplication; UserLabel, PassLabel, MonsterLabel, FMode: TLabel; OtherMonsterLabel, ColorTwo, ColorThree: TLabel; LabelEat, LabelEatHits, F2P, LabelLockedIn: TLabel; TxtColorOne, TxtColorTwo, TxtColorThree: TEdit; TxtUserName, TxtPassWord, TxtEatHits: TEdit; TxtClickMode, DropList, FList, EatChoice, F2PDrop: TComboBox; LabelClickMode, LabelMiniMap2: TLabel; ButtonOK: TButton; TxtMiniMap, TxtPercentage, TxtObject, TxtLockedIn: TComboBox; LabelMiniMap, LabelPercentage, LabelObject: Tlabel; TxtMiniMap2: TCombobox; f, i, j, x, y, BagX, BagY, Attack, Mode, Lobster, Timer: integer; MonsterColor1, MonsterColor2, MonsterColor3: integer; UserName, PassWord, MonsterName, CurrentHits, Monster: string; ActualHp, EatHp, Eating, Server, ScarMeister, Cols, Look: integer; MiniSearch, LockedIn2, a, b, SObject: integer; FreeMonster, Click, SObjectName: string; procedure ButtonClick (sender: TObject); begin UserName:= TxtUserName.Text; PassWord:= TxtPassWord.Text; MonsterName:= DropList.Text; Monster:= DropList.Text; FreeMonster:= TxtMiniMap2.Text; Click:= TxtClickMode.Text; MonsterColor1:= StrToInt (TxtColorOne.Text); MonsterColor2:= StrToInt (TxtColorTwo.Text); MonsterColor3:= StrToInt (TxtColorThree.Text); if (TxtMiniMap.Text = 'No') then begin MiniSearch:= 0; end; if (TxtMiniMap.Text = 'Yes') then begin MiniSearch:= 1; end; if (TxtLockedIn.Text = 'De-Activated') then begin LockedIn2:= 0; end; if (TxtLockedIn.Text = 'Activated') then begin LockedIn2:= 1; end; if (MonsterColor1 > 0) then begin Cols:= 1; end; if (MonsterColor2 > 0) then begin Cols:= 2; end; if (MonsterColor3 > 0) then begin Cols:= 3; end; if (FList.Text = 'Controlled') then begin Mode:= 1; end; if (FList.Text = 'Aggressive') then begin Mode:= 2; end; if (FList.Text = 'Attack') then begin Mode:= 3; end; if (FList.Text = 'Defensive') then begin Mode:= 4; end; if (EatChoice.Text = 'Yes') then begin Eating:= 1; EatHp:= StrToInt (TxtEatHits.Text); end; if (EatChoice.Text = 'No') then begin Eating:= 0; end; if (F2PDrop.Text = 'F2P') then begin Server:= 0; end; if (F2PDrop.Text = 'P2P') then begin Server:= 1; end; if (TxtPercentage.Text = '100%') then begin a:= 75; b:= 70; end; if (TxtPercentage.Text = '90%') then begin a:= 68; b:= 63; end; if (TxtPercentage.Text = '80%') then begin a:= 60; b:= 56; end; if (TxtPercentage.Text = '70%') then begin a:= 53; b:= 49; end; if (TxtPercentage.Text = '60%') then begin a:= 45; b:= 42; end; if (TxtPercentage.Text = '50%') then begin a:= 38; b:= 35; end; if (TxtObject.Text = 'Monster') then begin SObject:= 65535; SObjectName:= Monster; end; if (TxtObject.Text = 'Grey Floor') then begin SObject:= 4210752; SObjectName:= 'Grey Floor'; end; if (TxtObject.Text = 'Brown Floor') then begin SObject:= 143460; SObjectName:= 'Brown Floor'; end; if (TxtObject.Text = 'Yellow Dirt') then begin SObject:= 18520; SObjectName:= 'Yellow Dirt'; end; if (TxtObject.Text = 'Brown Dirt') then begin SObject:= 12360; SObjectName:= 'Brown Dirt'; end; end; procedure AddPicture; var Canvas: TCanvas; begin Canvas:= GetBitmapCanvas(ScarMeister); CopyCanvas(Canvas, Form.Canvas, 0, 0, 97, 40, 8, 236, 8+97, 236+40); CopyCanvas(Canvas, Form.Canvas, 0, 0, 97, 40, 329, 236, 329+97, 236+40); end; procedure FormPaint(Sender: TObject); begin AddPicture; end; procedure Initialise; begin Application:= GetApplication; Self:= GetSelf; Form:= TForm.Create(nil); Form.Width := 442; Form.Height := 310; Form.Position := poScreenCenter; Form.BorderStyle := bsDialog; Form.OnPaint:= @FormPaint; Form.Caption := 'MeisterFighter V1.3b - by Scarmeister'; UserLabel := TLabel.Create(Form); UserLabel.Top := 12; UserLabel.Left := 8; UserLabel.Caption := 'Username:'; UserLabel.Parent := Form; PassLabel := TLabel.Create(Form); PassLabel.Top := 40; PassLabel.Left := 8; PassLabel.Caption := 'Password:'; PassLabel.Parent := Form; LabelEat := TLabel.Create(Form); LabelEat.Top := 68; LabelEat.Left := 8; LabelEat.Caption := 'Use eating:'; LabelEat.Parent := Form; LabelEatHits := TLabel.Create(Form); LabelEatHits.Top := 96; LabelEatHits.Left := 8; LabelEatHits.Caption := 'Eat if Hits below:'; LabelEatHits.Parent := Form; F2P := TLabel.Create(Form); F2P.Top := 124; F2P.Left := 8; F2P.Caption := 'Free or Members:'; F2P.Parent := Form; LabelMiniMap := TLabel.Create(Form); LabelMiniMap.Top := 152; LabelMiniMap.Left := 8; LabelMiniMap.Caption := 'Use MiniMap Search:'; LabelMiniMap.Parent := Form; LabelPercentage := TLabel.Create(Form); LabelPercentage.Top := 180; LabelPercentage.Left := 8; LabelPercentage.Caption := 'Search % of MiniMap:'; LabelPercentage.Parent := Form; LabelClickMode := TLabel.Create(Form); LabelClickMode.Top := 208; LabelClickMode.Left := 8; LabelClickMode.Caption := 'Left/RightClick Attack:'; LabelClickMode.Parent := Form; FMode := TLabel.Create(Form); Fmode.Top := 12; Fmode.Left := 200; Fmode.Caption := 'Choose FightMode:'; Fmode.Parent := Form; MonsterLabel := TLabel.Create(Form); MonsterLabel.Top:= 40; MonsterLabel.Left := 200; MonsterLabel.Caption := 'Choose Monster:'; MonsterLabel.Parent := Form; OtherMonsterLabel := TLabel.Create(Form); OtherMonsterLabel.Top:= 68; OtherMonsterLabel.Left := 200; OtherMonsterLabel.Caption := 'Edit MonsterColor #1:'; OtherMonsterLabel.Parent := Form; ColorTwo := TLabel.Create(Form); ColorTwo.Top := 96; ColorTwo.Left := 200; ColorTwo.Caption := 'Edit MonsterColor #2:'; ColorTwo.Parent := Form; ColorThree := TLabel.Create(Form); ColorThree.Top := 124; ColorThree.Left := 200; ColorThree.Caption := 'Edit MonsterColor #3:'; ColorThree.Parent := Form; LabelObject := TLabel.Create(Form); LabelObject.Top := 152; LabelObject.Left := 200; LabelObject.Caption := 'Object on MiniMap:'; LabelObject.Parent := Form; LabelLockedIn := TLabel.Create(Form); LabelLockedIn.Top := 180; LabelLockedIn.Left := 200; LabelLockedIn.Caption := 'Locked-in Detection:'; LabelLockedIn.Parent := Form; LabelMiniMap2 := TLabel.Create(Form); LabelMiniMap2.Top := 208; LabelMiniMap2.Left := 200; LabelMiniMap2.Caption := 'Find Free Monster:'; LabelMiniMap2.Parent := Form; TxtUserName := TEdit.Create(Form); TxtUserName.Top := 10; TxtUserName.Left := 64; TxtUserName.Width := 120; TxtUserName.Parent := Form; TxtPassWord := TEdit.Create(Form); TxtPassWord.Top := 38; TxtPassWord.Left := 64; TxtPassWord.Width := 120; TxtPassWord.PasswordChar:= '*'; TxtPassWord.Parent := Form; EatChoice:= TComboBox.Create(form); EatChoice.Top:= 66; EatChoice.Left:= 96; EatChoice.Width:= 88; EatChoice.Parent:=Form; EatChoice.DropDownCount:= 2; EatChoice.Items.Add ('No'); EatChoice.Items.Add ('Yes'); EatChoice.ItemIndex:= 0; TxtEatHits := TEdit.Create(Form); TxtEatHits.Top := 94; TxtEatHits.Left := 96; TxtEatHits.Width := 88; TxtEatHits.Parent := Form; F2PDrop:= TComboBox.Create(form); F2PDrop.Top:= 122; F2PDrop.Left:= 96; F2PDrop.Width:= 88; F2PDrop.Parent:=Form; F2PDrop.DropDownCount:= 2; F2PDrop.Items.Add ('F2P'); F2PDrop.Items.Add ('P2P'); F2PDrop.ItemIndex:= 0; TxtMiniMap:= TComboBox.Create(form); TxtMiniMap.Top:= 150; TxtMiniMap.Left:= 120; TxtMiniMap.Width:= 64; TxtMiniMap.Parent:=Form; TxtMiniMap.DropDownCount:= 2; TxtMiniMap.Items.Add ('No'); TxtMiniMap.Items.Add ('Yes'); TxtMiniMap.ItemIndex:= 0; TxtPercentage:= TComboBox.Create(form); TxtPercentage.Top:= 178; TxtPercentage.Left:= 120; TxtPercentage.Width:= 64; TxtPercentage.Parent:=Form; TxtPercentage.DropDownCount:= 6; TxtPercentage.Items.Add ('100%'); TxtPercentage.Items.Add ('90%'); TxtPercentage.Items.Add ('80%'); TxtPercentage.Items.Add ('70%'); TxtPercentage.Items.Add ('60%'); TxtPercentage.Items.Add ('50%'); TxtPercentage.ItemIndex:= 0; TxtClickMode:= TComboBox.Create(form); TxtClickMode.Top:= 206; TxtClickMode.Left:= 120; TxtClickMode.Width:= 64; TxtClickMode.Parent:=Form; TxtClickMode.DropDownCount:= 2; TxtClickMode.Items.Add ('Right'); TxtClickMode.Items.Add ('Left'); TxtClickMode.ItemIndex:= 0; FList:= TComboBox.Create(form); FList.Top:= 10; FList.Left:= 306; FList.Width:= 120; FList.Parent:= Form; FList.DropDownCount:= 4; FList.Items.Add ('Aggressive'); FList.Items.Add ('Attack'); FList.Items.Add ('Defensive'); FList.Items.Add ('Controlled'); FList.ItemIndex:= 0; DropList:= TComboBox.Create(form); DropList.Top:= 38; DropList.Left:= 306; DropList.Width:= 120; DropList.Parent:= Form; DropList.DropDownCount:= 29; DropList.Items.Add ('Other Monster'); DropList.Items.Add ('Barbarian'); DropList.Items.Add ('Bear'); DropList.Items.Add ('Black Knight'); DropList.Items.Add ('Chicken'); DropList.Items.Add ('Cow'); DropList.Items.Add ('Darkwizard'); DropList.Items.Add ('Deadly Red Spider'); DropList.Items.Add ('Dwarf'); DropList.Items.Add ('Ghost'); DropList.Items.Add ('Giant'); DropList.Items.Add ('Giant Spider'); DropList.Items.Add ('Goblin'); DropList.Items.Add ('Guard'); DropList.Items.Add ('Hobgoblin'); DropList.Items.Add ('Ice Giant'); DropList.Items.Add ('Ice Warrior'); DropList.Items.Add ('Lesser Demon'); DropList.Items.Add ('Moss Giant'); DropList.Items.Add ('Mugger'); DropList.Items.Add ('Pirate'); DropList.Items.Add ('Rat'); DropList.Items.Add ('Scorpion'); DropList.Items.Add ('Skeleton'); DropList.Items.Add ('Unicorn'); DropList.Items.Add ('Warrior'); DropList.Items.Add ('White Knight'); DropList.Items.Add ('Wizard'); DropList.Items.Add ('Zombie'); DropList.ItemIndex:= 0; TxtColorOne := TEdit.Create(Form); TxtColorOne.Top := 66; TxtColorOne.Left := 306; TxtColorOne.Width := 120; TxtColorOne.Parent := Form; TxtColorTwo := TEdit.Create(Form); TxtColorTwo.Top := 94; TxtColorTwo.Left := 306; TxtColorTwo.Width := 120; TxtColorTwo.Parent := Form; TxtColorThree := TEdit.Create(Form); TxtColorThree.Top := 122; TxtColorThree.Left := 306; TxtColorThree.Width := 120; TxtColorThree.Parent := Form; TxtObject:= TComboBox.Create(form); TxtObject.Top:= 150; TxtObject.Left:= 306; TxtObject.Width:= 120; TxtObject.Parent:= Form; TxtObject.DropDownCount:= 5; TxtObject.Items.Add ('Monster'); TxtObject.Items.Add ('Grey Floor'); TxtObject.Items.Add ('Brown Floor'); TxtObject.Items.Add ('Yellow Dirt'); TxtObject.Items.Add ('Brown Dirt'); TxtObject.ItemIndex:= 0; TxtLockedIn:= TComboBox.Create(form); TxtLockedIn.Top:= 178; TxtLockedIn.Left:= 306; TxtLockedIn.Width:= 120; TxtLockedIn.Parent:= Form; TxtLockedIn.DropDownCount:= 2; TxtLockedIn.Items.Add ('De-Activated'); TxtLockedIn.Items.Add ('Activated'); TxtLockedIn.ItemIndex:= 0; TxtMiniMap2:= TComboBox.Create(form); TxtMiniMap2.Top:= 206; TxtMiniMap2.Left:= 306; TxtMiniMap2.Width:= 120; TxtMiniMap2.Parent:= Form; TxtMiniMap2.DropDownCount:= 2; TxtMiniMap2.Items.Add ('De-Activated'); TxtMiniMap2.Items.Add ('Activated'); TxtMiniMap2.Hint:= ('If you Activate this, also set the Search % of the MiniMap.'); TxtMiniMap2.ShowHint:= true; TxtMiniMap2.ItemIndex:= 0; ButtonOK := TButton.Create(Form); ButtonOK.Left := 147; ButtonOK.Top := 252; ButtonOK.Width := 136; ButtonOK.Height := 24; ButtonOK.Caption := '- Start -'; ButtonOK.OnClick := @ButtonClick; ButtonOK.Parent := Form; ButtonOK.ModalResult:= mrOk; ButtonOK.Default := False; Form.ShowModal; Form.Free; end; procedure BitMapInitialise; begin Attack := BitmapFromString(15, 9, '000000000000FFFFFFFFFFFFFFFFFF0000000000000000000 00000' + 'FFFFFF000000000000000000FFFFFF000000000000000000F FFFFF' + 'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF0000000 00000' + 'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFF FFFFF' + '000000000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFF FFFFF' + '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000F FFFFF' + 'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' + '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' + 'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFF FFFFF' + '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' + 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000F FFFFF' + 'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF0 00000' + '000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF0000000 00000' + 'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000F FFFFF' + 'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' + ''); Lobster := BitmapFromString(19, 13, '8E4D008E4D000000000000000000000000000000000000000 00000' + '0000000000000000000000000000000000000000000000000 00000' + '0000007F4500AD5E007F45005C32000000000000000000000 00000' + '0000000000000000000000000000000000000000000000000 00000' + '000000000000AD5E005C32004D2A007F45008E4D000000000 00000' + '0000000000000000000000000000000000000000000000000 00000' + '00000000000000000000000045372C5C3200703D007F45000 00000' + '0000000000000000000000000000000000000000000000000 00000' + '0000000000000000000000000000000000005C32005C32007 03D00' + '703D005C32000000000000000000000000000000000000000 00000' + '0000000000000000000000000000000000000000000000005 C3200' + '5C32004D2A00703D008E4D008E4D008E4D00703D00703D007 03D00' + '0000000000000000000000000000000000000000000000000 00000' + '0000000000005C3200703D007F45007F4500AD5E00AD5E008 E4D00' + '9E56009E56008E4D009E56009E56000000000000000000000 00000' + '0000000000000000000000005C32005C3200AD5E007F45008 E4D00' + '9E56009E56009E5600703D008E4D009E56009E56000000000 00000' + '00000000000000000000000000000000000045372C703D007 F4500' + '8E4D008E4D008E4D009E56008E4D00703D008E4D008E4D004 5372C' + '0000000000000000000000000000000000000000000000007 03D00' + '7F45008E4D008E4D00703D008E4D009E56008E4D00703D008 E4D00' + '7F45000000000000000000000000000000000000000000000 00000' + '7F45007F45008E4D008E4D008E4D00703D008E4D009E56008 E4D00' + '45372C0000000000000000000000000000000000000000000 00000' + '0000000000007F45005C32008E4D009E56008E4D00703D008 E4D00' + '7F45000000000000000000000000000000000000000000000 00000' + '0000000000000000000000008E4D00703D008E4D008E4D007 03D00' + '7F4500000000000000000000'); ScarMeister:= BitmapFromString(97, 40, 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C27C819563566A5 C506D' + '5E5D69C2C2C2C2C2C2C2C2C2C2C2C2C2C2C27473826E5E5A7 96686' + '95718B6E5E5A948F95C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C26 46785' + '312E400302053A3C500302050302055E5D69C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C25C506D3E1645571784482A8663566A6 3566A' + 'C2C2C2C2C2C2C2C2C27473826E1E5E8C2F97A133C19D3DB39 25E8E' + '95718B948F95C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2A6A1B2312E401F1E2D04020E0 C0622' + '4C347F0C06220C06220E050A52566FC2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + '6D5B88451A824C0D728177B6A594D22C0C374B4343C2C2C2C 2C2C2' + 'C2C2C2572486661A87A26CBBD2ACD4BAA4DA835EA4785284A 6A1B2' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C21F1E2D1F1E2D1F1E2D646785A2B5EED6DEFED 1D4FA' + '948F951609332213155E5D69C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2816AA65 72486' + '9298C3B4BDF38997BF16084C6B5291C2C2C2C2C2C299979C3 E1467' + '410C69D1C5F2D1D4FAA3A3D74D3D62512F5F99979CC0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C23 12E40' + '0302051F1E2D9BACE0AAB5EB3634470302056B6E86CDD6F69 397AF' + '0302054B4343C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2653C92572486A3A3D7A 2B5EE' + '828CB91609335C506DC2C2C2C2C2C270629D38187C56428BD FD9FA' + 'D1C5F25C506D20091A4D3D62A6A1B2C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C252566F0302050302058 997BF' + '92A2D11F1E2D03020523142D040222D6DEFECECED00E050A2 21315' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C24C347F1D0747A3A3D7AAB5EB828CB91 20635' + '524A76C2C2C2C2C2C236223838187C9185ABD1D4FAC0CEFA3 02238' + '2A0A69968899C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C07 47382' + '5E26624618441F0931362238C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2030205030205948F95C0CEFA6467850 30205' + '23142D04020E100518CDD6F6E5E4FA030205B7A1B1C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C23E14672A0A69A3A3D7B4BDF3828CB91206355C506DC 2C2C2' + 'A297C62A0A692A0A69B4BDF3D6CCFAB4C7FA100518370C48C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C06D5B885717849D4BC59 562B1' + '5E2A8A531E683D273CC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + '6B6E860302051F1E2DD6DEFED6DEFE03020503020552566F1 60933' + '484457BEC5EAB6B6D9030205FBF6FDC2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C299979C2 A0A69' + '451A829BACE0B5C6F28084B00C054516084CC2C2C25253852 A0A69' + '56428BADBEF2BDC6FAA3A3D70C0622281264C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0623284752EA1D0BBE8E5E4FADEDAEE2 80849' + '571784C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2312E400 30205' + '727697D1CDEAA6ACD3030205030205030205050318948F95D FE6FE' + '99979C6E5E5AE9DFDEC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C28A8592320B6E614E89C 4CAF2' + '9BACE0A2B5EE0C054516084CC2C2C216084C26147A918CCAA EB4E4' + 'A2B5EE828CB9120635363447C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'A398AA5E2A8A623284EADCF2EDEBFBE5E4FA1005181F0931C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D2C8CAF7F2FDC A77BE' + '72425A99979CC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2030205030205B2B2CAC DD6F6' + '5E5D69030205484457030205030205CDD6F6D1DBFA5E5D69C 0B9D3' + 'A6A1B2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2947EAB0803319772B2FBF6FDD6DEFEA 5BEF4' + '0C06220E095C928DA91E0A651E0A65C0CEFAB4C7FAAAB5EB6 46785' + '16084C524A76C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0A6A1B26 53C92' + '645A96DBD7F6E0E0FEB2B2CA0402225C18A0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0DA9AAEF5B3F1F4CFECCA77BE6 E1E5E' + 'C0B2B2C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C 2C2C2' + 'C2C2C2C2C2C299979C03020504020EDBD7F6DFE6FE5E5D690 30205' + '7C81950302051F1E2DB5C6F29397AF4A4E6622131599979CC 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2A48CAC1D07479298C3FBF6FDDFE6FEC7CCF60C06220 E095C' + '524A760E095C64689BBAC7F6C2CCFEB4C7FA52566F0C06226 B6E86' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0A398AA8242B856428BC 0CEFA' + 'CDD6F63A3C501F0931484457C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + '95718B752EA1752EA1925E8EFAE1F0461844461844C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' + 'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C 2C2C2' + '7C81950302053A3C50DFE6FEEDEBFB5E5D690302058A85920 E050A' + '0E050A4B43434B43436E5E5A363447C2C2C2C2C2C27C81957 C8195' + '8A8592C2C2C2C2C2C2C2C2C2C2C2C299979C99979C948F95C 2C2C2' + 'C2C2C2C2C2C28A8592C0B2B2C2C2C2C2C2C299979CA398AAB 179CE' + '280849B2B2CAEDEBFBEDEBFBCDD6F60C06220E095C0E095C1 00754' + '9298C3B4C7FAC2CCFECDD6F624203F1206358A859252566F4 A4E66' + '4A4E66484457B1ADCBA6A1B2653C92653C924844571F1E2D0 E050A' + '6F2F81A6A1B299979CA6A1B299979CA6A1B2C0C0C07852848 61CBA' + 'BF8ACADFD1FAD0BBE8370C486E1E5EC0C0C0CECED0E9DFDEC ECED0' + 'A48CAC8A8592C0C0C099979C99979CA6A1B299979C99979C9 9979C' + '99979CC0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C27C81950 E050A' + '52566FDFE6FEEDEBFB5E5D690302058A859299979C6E5E5AF BF6FD' + 'F7F2FD363447C2C2C28A859216071023142D1609332213152 A2131' + 'C2C2C2CECED0FEFDFE9547883612251607100302056E5E5A6 3566A' + '785284FAE1F0E7CEDF785284370C481F0931653C9225134AD 6DEFE' + 'E0E0FED6DEFECDD6F60302050E095C0E095C100754B4BDF3B 4BDF3' + 'C0CEFACDD6F60503180C054524203F0E095C1E0A651E0A651 E0A65' + '2C1E4D796686451A828242B8975DD2531E68410C69A48CAC5 72486' + '9D3DB3BE50D2A133C16E1E5EA48CAC5C18A05C18A0A3A3D7D FD9FA' + 'A6A1B2461844954788A48CACFEFDFEFEFDFEFEFDFEFAE1F0C A62B6' + '948F953E164551145D1406210C06220503180503180302055 2566F' + 'C0C0C0C2C2C2C2C2C2C2C2C2C2C2C27C81950E050A52566FC DD6F6' + 'E0E0FE6467850302054B4343C2C2C2CECED0C2C2C2C2C2C2C 2C2C2' + '8A85920302051F0931482A866D5B883D273C361225D6B9C2F EFDFE' + 'FAE1F0925E8E6E5E5A3D27651206350C054538187CA26CBBF CEDFA' + 'E6C2EAB16CBD410C6961436C5E2A8A835EA4E0E0FED1D4FAC DD6F6' + 'CDD6F604020E0C05450E095C5F5B7DADBEF2AAB5EBC0CEFA9 2A2D1' + '04020E0C05450E095C0E095C828CB992A2D128206416084C3 20B6E' + '2A0A69975DD2C78DE9A14EA56232845717849D4BC5AF5CCBD 684E3' + 'AF5CCB680E8C680E8C680E8C5C18A0DFD1FADBD7F67966863 E1645' + 'A2739BFAC2F6FEFDFEFEFDFEFCEDFAFCEDFAF4CFECFEFDFEF CEDFA' + 'A14EA5653C923E1467320B6E614E891007540C06225E5D69C 2C2C2' + 'C2C2C2C2C2C2C2C2C27C81950302053A3C50D1DBFAD6DEFEC 2C2C2' + '030205C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C20C06222 3142D' + '5F5B7DCFD8FEDEDAEECECED0361225FEFDFEFEFDFEB888A7D 1C5F2' + 'A297C6BDC6FA8177B60C0545320B6EBAA4DAEEE3FEEEE3FEF BD5FE' + 'BAA4DAD1D4FA4D3D62E7CEDFDFD9FAB6B6D9E0E0FEDFE6FE0 4020E' + '0C05450C0545A2A1C6ADBEF2A6ACD3D1CDEA9298C30402220 E095C' + '282064B4BDF3CACCFAC7CCF69BACE00C054538187C947EABD 6CCFA' + 'D1C5F26F2F818C2F97701C8CD684E3F7F2FDFCEDFAEADCF29 562B1' + '680E8C861CBA680E8CD6CCFAD1CDEA835EA451145DCA77BEF EFDFE' + 'FEFDFEFEFDFEFCEDFAD2C8CA4D3D62BE50D2FEFDFEFBF6FDB 5C6F2' + '451A82525385B4BDF37C81950503181F1E2DC2C2C2C2C2C2C 2C2C2' + 'C2C2C299979C030205030205D6DEFEDFE6FECDD6F6C0B2B2F EFDFE' + 'C2C2C2C2C2C2C2C2C2C2C2C2363447030205312E40D6DEFED 1CDEA' + '747382D1D4FA968899FEFDFEE7CEDFD1DBFA6B6E8604020EC 0CEFA' + 'B5C6F2525385423A82AAB5EBBEC5F2DBD7F6F4CFECEEE3FEB 4BDF3' + '9185AB645A96FBF6FDA3A3D7EDEBFBDFE6FE04020E0C05450 80331' + 'CDD6F6828CB9C7CCF6CACCFA52566F0402220E095C92A2D1B EC5F2' + '1F1E2D92A2D1AEB4E4524A76451A82BEBBEFBDC6FAADBEF22 80849' + 'BE50D29562B1EEE3FEBEB2C20E050AD1C5F2E9DFDE680E8CA 133C1' + 'C78DE9DED8FEDFD1FA947EAB72425AF5B3F1FEFDFEFEFDFE7 47382' + '968899E0CEE2A398AA9D3DB3D0BBE8EADCF2FEFDFED0BBE8A 6ACD3' + 'A5BEF4A2B5EE0C0622050318C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + '030205030205BACAE6FEFDFEFEFDFE948F952213155E5D69C 2C2C2' + 'C2C2C299979C040222160933A6ACD3CFD8FE3A3C50120508D BD7F6' + 'E7CEDFFEFDFEDAC9D2BEBBEF04020E2C1E4DC0CEFABDC6FA8 28CB9' + '92A2D164689BA2B5EEADBEF2D1C5F2F7D7F6BEBBEF828CB99 298C3' + 'EADCF2A6ACD3D6DEFECDD6F60402220C0545525385C0CEFA6 4689B' + 'CFD8FEB4C7FA52566F0C0545423A82C0CEFA6B6E860803318 28CB9' + 'ADBEF2645A96828CB9A3A3D7C5C2F6A6ACD3512F5FAF5CCBE 7CEDF' + 'EEE3FE0E050A410C69D0BBE8EDEBFB2A0A69A383B4D0BBE8D FD1FA' + 'D1D4FAA6A1B295718BFAE1F0FEFDFEDAC9D25E2662B888A7D FD1FA' + 'A297C6A383B4BF8ACAD1C5F2BEBBEFDFD9FAD0BBE8BEC5EAA 5BEF4' + '050318030205C2C2C2C2C2C2C2C2C2C2C2C2C2C2C23D273C3 D273C' + 'EDEBFBFEFDFEFBF6FD99979C030205030205C2C2C2C2C2C24 84457' + '0C06224A4E66C7CCF6AEB4E40E050A542C38EEE3FEF7F2FDF CEDFA' + 'BEC5EA6467850C062252566FC2CCFEC0CEFA1F1E2D6467858 177B6' + 'ADBEF2ADBEF264689BBEB2C2B4BDF364689B92A2D1B2B2CAA 2A1C6' + 'C0CEFAA6ACD304020E0C05458997BFADBEF252566FA5BEF4A DBEF2' + '05031808033192A2D1A5BEF41F1E2D0803319298C3BAC7F65 25385' + '918CCA645A96CACCFAB4BDF36F2F81B179CEFCEDFAC2C2C23 70C48' + '571784FBF6FDEDEBFB140621661A87D6B9C2EADCF2B1ADCB2 21315' + 'FAE1F0FEFDFEFEFDFE8A8592824184BF8ACAEADCF2A297C64 84457' + 'A383B4D1D4FAC0CEFAA2A1C67C6EABCDD6F692A2D10302050 40222' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2968899EDEBFBE9DFDED 6DEFE' + 'F7F2FDEDEBFB0E050A0E050A6B6E86C2C2C20C06220C0622A 6ACD3' + 'C0CEFA74738222131595718BDBD7F6DAC9D2DEDAEEB4BDF31 F1E2D' + '0C06228084B0B4C7FAB4BDF304020E040222828CB9B4BDF3A DBEF2' + '1F1E2D5C506D777EA91F0931B4BDF382769EA3A3D7ADBEF28 28CB9' + '0402220C0545B4C7FA777EA9777EA9A2B5EE9BACE00803312 82064' + 'A5BEF49BACE00402220C0545928DC0B5C6F252566F1D07479 185AB' + 'DFD1FAB6B6D98242B8BAA4DAE5E4FA706684661A879772B2E DEBFB' + 'C0B9D320091A98368AE6C2EAFEFDFEC0B9D3CEB4D0FEFDFEF EFDFE' + 'DBD7F6362238954788B16CBDDFD9FAA2A1C63E1467835EA4D 1C5F2' + 'BACAE66467851F1E2DA6ACD324203F23142D3A3C50C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C299979CFEFDFE63566AC2C2C2DFE6FEE 5E4FA' + '7473820302053022388A8592120508120508E0E0FEE0E0FE9 48F95' + 'D2C8CAD2C8CADAC9D2FAE1F0EDEBFBBEC5EA0302050C06228 997BF' + 'B4BDF392A2D104020E0803319BACE0ADBEF292A2D10503186 F2F81' + '531E682C1E4DADBEF2614E89EEE3FEB5C6F28997BF0402225 2566F' + 'B4C7FA3A3565828CB9B4C7FA828CB90C05456E7E97ADBEF26 46785' + '0402220C05459298C3B4BDF33A3C502A0A69BAA4DAEEE3FEB FADE1' + 'B16CBDBFADE1D6CCFA796686861CBAB79ABFE0E0FE7473822 C0C37' + 'FBD5FEFEFDFEFBF6FD968899F7F2FDFAC2F6DFD1FAA2A1C63 61225' + '571784A26CBBDFD1FA928DC06C228AA383B4CACCFAC0CEFA3 12E40' + '2C1E4D7966863D273C363447C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2EDEBFB0E050A484457CDD6F6DFE6FED1CDEA1 20508' + '2213154B434320091A6E5E5AFEFDFEF7F2FD6E5E5AD6B9C2C A9EAA' + 'FEFDFED6CDD8E0E0FE9397AF03020504020EB4BDF3B4C7FA8 997BF' + '040222080331B4C7FAA5BEF47276970E050A835EA4D684E36 B5291' + 'ADBEF2080331BEC5F2EDEBFB828CB90C0545828CB99BACE00 80331' + '9BACE0C0CEFA6E7E970C05459BACE0A2B5EE3A3C500C05450 E095C' + 'C5C2F6B4BDF30402221E0A65E0E0FEE5E4FA9185ABD684E3D DD2FE' + 'DDD2FE6D5B88701C8CB79ABFCDD6F6302238DA9AAEFBF6FDF EFDFE' + 'EDEBFB63566A98368ABAA4DAE5E4FA8084B03E1467410C69A 297C6' + 'D1D4FA4D3D62752EA1BAA4DADDD2FEAEB4E4120508370C48B EB2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'CECED0160710030205B1ADCBEDEBFBFBF6FDC0B2B2F7F2FDF CEDFA' + 'B888A7FEFDFEFEFDFEC2C2C2120508120508F7D7F6FAE1F09 9979C' + 'C0CEFA4E526E04020E04020EBDC6FAB4C7FA52566F0402223 A3C50' + 'B4BDF3ADBEF2312E4005031861436C6F2F81947EABA2B5EE1 D0747' + 'A5BEF4BDC6FAB2B2CA040222A2B5EE6E7E97080331A5BEF4A 5BEF4' + '525385282064A2B5EEA5BEF404022210075456428BD1DBFA7 C8195' + '1D0747280849E0E0FEEADCF2796686D684E3F7F2FDDFD9FA8 2769E' + '6E1E5E2C0C373D273C542C38FEFDFEFEFDFEFCEDFAD6DEFE1 00518' + '571784E0CEE2E0E0FE5F5B7D410C6951145DBEBBEFB4BDF31 00518' + '4C0D72BEBBEFD1D4FA9185AB10051823142DC2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C24 B4343' + '16071099979CFEFDFEFEFDFEFBF6FDD6CDD8FEFDFEFEFDFEF EFDFE' + 'DFD9FA948F9503020595718B362238D2ACD4EDEBFBD1D4FA3 A3C50' + '0402223A3C50B5C6F2B5C6F24E526E080331525385ADBEF2A 2B5EE' + '04020E1206352C1E4D320B6EBAA4DA8084B0080331ADBEF2A 5BEF4' + 'CACCFA7C6EABADBEF23A3C50525385A5BEF4A5BEF43A35655 25385' + 'A2B5EE92A2D10402221E0A65A3A3D7D1DBFA1F1E2D2A0A696 D5B88' + 'DED8FED6DEFE312E40B179CEF7F2FDEEE3FEB79ABF6F2F819 8368A' + 'BF8ACAF4CFECFEFDFEFEDFFAE0E0FEBFADE13E1645571784E 0E0FE' + 'C7CCF63D273C6B179F9562B1D4C8F66B6E86280849661A87D ED8FE' + 'D1D4FA63566A100518796686C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2CECED0FEFDFEE 9DFDE' + 'F7F2FDD6DEFEE0E0FE4B434336122572425AC7CCF6C0CEFA5 E5D69' + '61436C96889920091A362238CDD6F6CDD6F604020E0503185 2566F' + 'A5BEF4A2B5EE04020E040222777EA9B4C7FA92A2D104020E1 20635' + '1D0747451A82AEB4E4777EA9080331A5BEF4ADBEF29298C3D FD9FA' + 'A2B5EE0402224E526EA5BEF4A5BEF4080331828CB9A2B5EE8 28CB9' + '0C05454A3E8AC7CCF66B6E86100518320B6E7B529EE0E0FEE 0E0FE' + '2C0C37B16CBDE0CEE2EEE3FEEADCF282418498368AE6C2EAE DEBFB' + 'FEFDFEE6C2EADDD2FEA398AA571784835EA4D0BBE8BEC5F25 31E68' + '6B179FD1C5F2A3A3D704020E410C697B529ED6CCFAC7CCF63 02238' + '1406218A8592C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2E9DFDE4B43437C8195D 1D4FA' + 'DEDAEE928DA912050863566AC7CCF6EDEBFB2213150E050A6 3566A' + '12050852566FBAC7F6BEC5EA23142D0402229298C3B4BDF3A 2B5EE' + '04020E0803318997BFADBEF2828CB904020E3D27651D07472 A0A69' + 'BAC7F6524A760C0545A5BEF4ADBEF2828CB9BEC5F2A6ACD30 40222' + '828CB9A5BEF49BACE00E095C9BACE0A2B5EE64689B2A2672A EB4E4' + '9298C30503181D07472A0A69A3A3D7E0E0FEC0B9D325134AA 14EA5' + 'D2ACD4EDEBFBEDEBFBA383B46E1E5EFAE1F0FBF6FDFCEDFAD 0BBE8' + 'DBD7F65E5D69680E8CAC94DCDBD7F6AEB4E46B179FBAA4DAB EBBEF' + '2A21311F0931410C697B529ED0BBE8BEC5F220091A370C48C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C0B2B2747382120508030205C7CCF6D1DBFAA 2A1C6' + '1205087C8195DED8FED6DEFE0302050302054B43430E050A8 A8592' + 'B4BDF3A6ACD303020504020E8997BFA5BEF4828CB904020E0 40222' + 'B4C7FAADBEF26467850402224844572A0A6956428BC0CEFA3 A3C50' + '080331AAB5EBA2B5EEA2B5EEB4C7FA727697120635828CB9A 5BEF4' + '8997BF282064ADBEF2A2B5EE64689B9BACE092A2D11F1E2D1 20635' + '2A0A692A0A69A2A1C6D1C5F29298C33E1645824184A26CBBD EDAEE' + 'EEE3FED6CDD8954788FEFDFEFEFDFEFAC2F6E7CEDFD6CCFA7 06684' + '4C0D72BEBBEFDFD1FABAA4DABAA4DAB6B6D952566F3622386 C228A' + '680E8CA594D2C5C2F6A3A3D72C0C3751145DC2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C20E050A030205A6A1B2CDD6F6CDD6F6030205C 0B9D3' + 'EDEBFBA2A1C610051805031804020E140621828CB99BACE0A 2A1C6' + '04020E080331A5BEF4A2B5EE6E7E97040222040222ADBEF2A 5BEF4' + '52566F040222645A96080331645A96BAC7F60402220C0545A 5BEF4' + 'A5BEF4A2B5EEA5BEF42C1E4D56428BADBEF2ADBEF264689B5 25385' + 'A5BEF4A2B5EEADBEF2828CB904020E23142D482A86320B6E2 A0A69' + 'BEBBEFAAB5EB5F5B7D5E26628C2F97954788CEB4D0DEDAEED FD1FA' + 'CA9EAAFEFDFEFEFDFEB16CBDEDEBFBE0E0FE1406214C0D72D FD1FA' + 'D1DBFACDD6F6A2B5EE23142D2C1E4D6F2F816C228A752EA1A C94DC' + 'BEBBEF9397AF3E164572425AC2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + '4B43430302056B6E86D1CDEACDD6F6A383B4DFE6FEE0E0FEA 6ACD3' + '03020548445705031804020EB5C6F2C4CAF24E526E04020E2 4203F' + 'B5C6F2C0CEFA4E526E040222525385B5C6F2ADBEF21F1E2D0 4020E' + '4D3D62080331777EA9A3A3D70402220C0545A2B5EEA2B5EEA 2B5EE' + '828CB93D2765BFADE1ADBEF2B4C7FA52538564689BA2B5EEA 2B5EE' + '36344704020E0C0622493D799185AB320B6E451A82BEBBEFA AB5EB' + '524A76824184925E8E954788B888A7DFD9FADFD9FADFD1FAF 7D7F6' + 'FEDEFEA26CBBEEE3FED1CDEA2808495E2A8AD4C8F6D1D4FA7 C8195' + '0302051F09315E2662948F95701C8C661A87DFD9FAC4CAF26 B6E86' + '461844925E8EC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'CECED0948F958A8592C2C2C2C2C2C2C2C2C2C2C2C27473820 40222' + '5E5D69C7CCF6CACCFA9185ABD6DEFECDD6F652566F0302053 A3C50' + '050318030205E0E0FEB5C6F24A4E6608033152566FB4C7FAC 0CEFA' + '3A3C5004022252566FB4BDF3B5C6F204020E0803310803310 80331' + '828CB9828CB90402220C0545A2B5EEA5BEF4A5BEF44A4E662 5134A' + 'EADCF2B5C6F2ADBEF21F1E2D8997BFA5BEF492A2D10402220 C0545' + '524A76C2C2C282769E320B6E7B529EC5C2F6AAB5EB1D07476 F2F81' + 'A297C6CA77BE824184D0BBE8DBD7F6E0CEE2D2ACD4FBD5FED 2ACD4' + 'E5E4FAA2A1C6410C69835EA4D6CCFAC0CEFA24203F1D07475 72486' + 'C2C2C2968899661A876C228ADBD7F6CACCFA5F5B7D5E26628 A8592' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2CECED0FEFDFE3 D273C' + '1205088A8592C2C2C2C2C2C2C2C2C28A859205031852566FC 0CEFA' + 'BACAE65C506DC7CCF6CDD6F66467851609339688990302053 A3C50' + 'E0E0FEB4C7FA4A4E6604020E6B6E86B4C7FAB4C7FA0302050 40222' + '8997BFB4C7FA828CB904020E040222080331080331A2B5EE6 4689B' + '080331282064ADBEF2A2B5EEA2B5EE1F1E2D0C05457C6EABE DEBFB' + 'ADBEF2040222918CCAADBEF28997BF0503183A3565C2C2C2C 0B9D3' + '61436C320B6E7C6EABBAC7F6A2B5EE370C488C2F979D3DB3F 5B3F1' + 'CA77BEB8A3BEEEE3FEEDEBFBB7A1B1F5B3F1CEB4D0DDD2FE9 185AB' + '410C69816AA6DFD1FAC5C2F6140621410C69C2C2C2C2C2C29 47EAB' + '6C228AA26CBBEADCF2C5C2F616071051145DA398AAC2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2FEFDFEF7F2FD5C506D2A21310 30205' + 'C2C2C2C2C2C2C2C2C24844570503184E526EBDC6FA8997BF8 2769E' + 'B5C6F2D1DBFA52566F0C0622928DA982769EA3A3D7FBF6FDB 4BDF3' + '1F1E2D0402228997BFBAC7F6A3A3D7040222040222A3A3D7B 5C6F2' + '8997BF040222484457080331080331A2B5EE4A4E660C05455 25385' + 'ADBEF2A5BEF48997BF04020E040222828CB9EDEBFB92A2D10 80331' + '9BACE0BAC7F68997BF050318524A76B1ADCBB1ADCB4A3E8A2 A0A69' + '918CCABEC5F2928DC04C0D72B179CE954788EEAAE6EEAAE6C EB4D0' + 'FCEDFADEDAEE95718BB16CBDD1C5F2C4CAF25F5B7D5C18A09 772B2' + 'D1D4FABDC6FA1005182A0A69C2C2C2B1ADCB785284410C69A 383B4' + 'DED8FECDD6F620091A51145DC2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2CECED0FEFDFE4B4343C5C2F60E050A050318C2C2C2C 2C2C2' + 'C2C2C21F1E2D04020E828CB9A5BEF452566F928DA9CACCFAC DD6F6' + '1F1E2D0302055E5D690C06226B6E86B4C7FAADBEF204020E0 4020E' + 'B5C6F2B4C7FA8997BF030205040222C0CEFABAC7F64A4E660 4020E' + '493D790803314E526EA2B5EE1F1E2D080331525385A5BEF4A 5BEF4' + '72769704022208033192A2D1A2B5EEA2A1C6120635BAC7F6B AC7F6' + '6467850402223A35654C347F4C347F16084C2A0A69A3A3D7B EC5F2' + 'A594D2752EA1D1D4FA461844DA94DEFAC2F6D2ACD4FEFDFED 1CDEA' + 'B179CE6F2F81DEDAEEC4CAF2493D79451A82AC94DCCACCFAA 3A3D7' + '120635451A82947EABA48CAC835EA45E2A8ADEC4F2D6CCFAA 2A1C6' + '3E1645A14EA5C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D AC9D2' + '36122563566ABEC5F2030205030205C2C2C2C2C2C299979C0 4020E' + '04022292A2D19BACE0030205D1C5F2CDD6F6BAC7F60302050 4020E' + '36344724203F4E526EADBEF2ADBEF204020E3A3C50B4BDF3B 4C7FA' + '6467850402221F1E2DC0CEFABEC5EA3A3C500402224844570 80331' + '4A4E66A5BEF4040222080331525385B4BDF3A2B5EE4A4E660 40222' + '080331A2B5EEA2B5EE82769E120635B4BDF3ADBEF252566F0 40222' + '1007542A26721007542A0A691E0A65BEBBEFB4BDF3645A969 562B1' + 'BEC5EA3E1645F5B3F1FAE1F0D6B9C2FBF6FDC2C2C2EEAAE6A 2739B' + 'DDD2FED1D4FA1206353E1467A2A1C6C4CAF29397AF3E14679 75DD2' + '975DD2572486572486752EA1D1C5F2DBD7F6947EAB542C387 96686' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B7A1B172425A7 06684' + 'B5C6F203020504020EC2C2C2C2C2C2312E40030205363447A 5BEF4' + '727697160710EADCF2CDD6F6CDD6F60302050402224E526E7 77EA9' + '4E526EADBEF2ADBEF204020E64689BADBEF2BACAE64E526E0 40222' + '525385BDC6FAB4C7FA030205040222312E40080331828CB98 28CB9' + '04020E080331525385ADBEF2A2B5EE04020E120635363447A 2B5EE' + 'A2B5EE747382282064BEC5EAAAB5EB52566F0C054516084CA 3A3D7' + '1007542A0A694A3E8AC5C2F6ADBEF256428B9772B2CACCFA7 2425A' + 'F7D7F6FEDEFEDEC4F2FCEDFAA6A1B2FCEDFABF8ACAD6DEFED BD7F6' + '2C0C375C18A0BFADE1DED8FEA3A3D725134A320B6EA383B46 14E89' + '38187C3E1467CACCFADBD7F663566A824184A2739BC2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2362238A2739BA2A1C6BACAE60 30205' + '0E050A6B6E866B6E8604020E04020E9BACE0BEC5F21F1E2D4 D3D62' + '706684CDD6F6C7CCF604020E0C06229298C36E7E974A4E66A 5BEF4' + 'ADBEF203020592A2D1B4C7FABAC7F60302050402227C8195B 4C7FA' + '9BACE004020E0402220402220803318997BF828CB90402220 80331' + '4A4E66A5BEF48997BF0402220402225253859BACE0B4BDF30 C0622' + '9772B2A6ACD3A2B5EE4E526E0E095C525385A5BEF42820641 E0A65' + '645A96B5C6F2BEBBEF8242B8CEB4D0FCEDFAA383B4FEDFFAE 6C2EA' + 'FBF6FDEDEBFB8A8592F7F2FDDEC4F2DED8FEB1ADCB653C92C 78DE9' + 'AC94DCC5C2F6928DC026147A451A82BDC6FA7C6EAB451A824 93D79' + 'D6CCFAB5C6F261436C9562B1C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2362238120508DDD2FEF7F2FD7276970503180 E050A' + '03020504020E6B6E86BEC5EA6B6E860C06221607105C506DC DD6F6' + 'BAC7F604020E3A3C50A5BEF41F1E2D363447A5BEF4ADBEF26 46785' + 'A2B5EEADBEF2B5C6F20302050503188997BFB4BDF3828CB90 30205' + '23142D040222040222A2B5EE4A4E66040222040222828CB9A 2B5EE' + '727697040222100754777EA99BACE0CACCFA0C0622DFD1FA9 397AF' + '9BACE05253850C054592A2D16E7E97040222100754947EABB 4BDF3' + 'C5C2F6BFADE1EEE3FEFBF6FDB8A3BEF7D7F6FEFDFEFEFDFEB 1ADCB' + '796686F4CFECC0B9D3EEE3FEBEBBEF8177B6918CCA70629DB 4C7FA' + '928DC038187C9185ABAAB5EB0503183E1467816AA6CACCFAB 4C7FA' + '160710531E68B7A1B1C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + '3612250E050A52566FE5E4FAD1D4FA3022381609330503185 2566F' + 'B5C6F2828CB90302053022380C06221F1E2DC0CEFAADBEF26 4689B' + '9BACE0646785030205030205ADBEF2ADBEF2A5BEF492A2D1A 5BEF4' + '828CB904020E050318ADBEF2B5C6F26E7E9704020E4844570 40222' + '3A3565A2B5EE4A4E66040222040222828CB9A2B5EE4A4E660 40222' + '0402229BACE0B6B6D99298C304020EDEC4F270629DA2B5EE8 997BF' + '8997BF9BACE00402220C0545100754828CB9BFADE1CDD6F69 28DA9' + 'B1ADCBFEFDFEF7F2FDFEFDFEFEFDFEEDEBFB4B43437B529E7 2425A' + 'BAA4DAD0CBEEC5C2F6AAB5EB24203F16084CBEC5F2B4C7FA8 177B6' + 'C5C2F63A3C5016084C451A82A594D2AEB4E4AAB5EB0E050A5 E2662' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C28A85922 21315' + '0302053A3C50D1D4FAE0E0FEB1ADCBC0B9D3BAC7F66467850 30205' + '0C062279668604022223142D6E7E97ADBEF2ADBEF2828CB90 30205' + '03020504020E6E7E97A2B5EE6E7E976E7E978084B08084B03 A3C50' + '0302058997BF828CB9312E40050318484457050318828CB98 28CB9' + '72769704020E040222828CB9A2B5EE312E400402226467858 28CB9' + '8997BF9397AF82769E512F5F04022292A2D1A2B5EE9BACE01 F1E2D' + '23142D26147A100754525385ADBEF2A6ACD3030205030205A 6A1B2' + 'FBF6FDFEFDFEEDEBFB5E5D69362238824184653C92928DC0A 2B5EE' + '9BACE03A3C501609331E0A658084B0ADBEF2A2B5EE5253850 C0622' + '38187C451A827C6EAB8084B06467851F09319562B1C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C296889904020E0 30205' + '1F1E2D3A3C505E5D695E5D6903020503020504020E706684C 2C2C2' + '6467850C06220503184A4E6636344703020504020E4844570 4020E' + '0302054A4E660302050302050302050302054B434323142D0 30205' + '0302050302054844574844574844570302050302050302054 84457' + '04020E04020E03020504020E04020E312E400302050302052 4203F' + '4A4E6623142D0402221F1E2D4A4E6604020E04022224203F9 28DA9' + '1E0A651206354A4E6604020E2C0C375E266272425A2A21315 E5D69' + '1F1E2D2C1E4D5E2662A48CAC7B529E2C1E4D4A4E661F1E2D0 80331' + '4C347F26147A0E095C4A4E661F1E2D0402222812649185AB5 C506D' + '1D07470C06221F09313D273CC0B2B2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2C2C2C2C2C2C2C2C2C2C0B9D399979C312E407966862 21315' + '030205030205030205160933948F95C2C2C2C2C2C2C2C2C25 E5D69' + '24203F1609330302050C0622484457C2C2C25E5D6904020E0 4020E' + '04020E4844574844574844574A4E664844574844574844574 84457' + '9397AFC2C2C248445748445748445748445752566F4844570 40222' + '0402220402227473824844574D3D625C506DC0B9D3484457A 398AA' + '1F1E2D080331040222080331282064A6ACD3C2C2C29185AB1 D0747' + '2808493E14676F2F81A383B4FCEDFAE7CEDFE6C2EA542C388 24184' + 'B8A3BEC2C2C2816AA6451A82482A8638187C423A82A6A1B27 C6EAB' + '26147A1E0A651E0A651E0A65928DC0C2C2C28177B66B52917 85284' + '6B5291947EABC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' + 'C2C2C2'); end; procedure AutoLogin; begin begin Writeln('Logging in User '+UserName+'.'); ClickMouse(340,280,True); Wait(2500); end; if (LoginScreen) then begin ClickMouse(100,260,True); Wait(500); SendKeysSilent(UserName); Wait(2000); ClickMouse(120,310,True); Wait(500); SendKeysSilent(PassWord); Wait(2000); ClickMouse(380,250,True); if (Server = 1) then begin ClickMouse(214,285,True); end; repeat wait (300); until (IsTextAt (7, 304, 'Welcome to')); wait (2500); Writeln('Closing Welcome box.'); ClickMouse (495,15, True); wait (500); MoveMouse (10,10); wait (500); end; end; procedure LockedIn; begin i:= 0; j:= 0; x:= 0; y:= 0; MoveMouse (460, 15) Wait (300); ClickMouse (432, 133, True); wait (300); repeat if (FindColorSpiral (x, y, 929884, 1 + j, 1, 500, 320)) or (FindColorSpiral (x, y, 415860, 1 + j, 1, 500, 320)) or (FindColorSpiral (x, y, 1859768, 1 + j, 1, 500, 320)) or (FindColorSpiral (x, y, 1327248, 1 + j, 1, 500, 320)) or (FindColorSpiral (x, y, 663624, 1 + j, 1, 500, 320)) then begin MoveMouse (x, y); wait (200); if (IsTextAt (6, 2, 'Door: Open')) then begin ClickMouse (x, y, True); wait (1000); end; end; i:= i + 1; if (i = 3) then begin i:= 0; j:= j + 50; end; wait (100); until (j > 501) or (IsTextAt (7, 304, 'The door')); writeln ('Locked in Check Complete. Continue with Autoing.'); end; Procedure EatLobster; begin i:= 0; j:= 0; repeat MoveMouse (495, 15); wait (500); if (FindBitmap (Lobster, x, y)) then begin i:= 1; writeln ('Eating Lobster.'); ClickMouse (x, y, True); wait (300); end; wait (500); j:= j + 1; until (i = 1) or (j = 15); if (j = 15) then begin MoveMouse (10, 10); wait (300); writeln ('Lobsters gone. Waiting 3 seconds and logging off.'); status ('Program Terminated - by Scarmeister 2004!'); wait (3000); MoveMouse (325, 20); wait (300); ClickMouse (325, 282, True); wait (300); repeat wait (500); until (False); end; MoveMouse (10, 10); wait (100); end; procedure CheckHealth; begin MoveMouse (425, 20); wait (300); CurrentHits:= GetTextAt (318, 112); wait (300); MoveMouse (10, 10); wait (300); ActualHp:= StrToInt (copy (CurrentHits, 6, 2)); if (ActualHp < EatHp) then begin writeln ('Looking for Lobster.'); EatLobster; end; end; procedure Sleep; begin i:= 0; MoveMouse (490, 15) Wait (300); ClickMouse (BagX, BagY, True); Wait(2000) repeat i:= i + 1; wait (50); if (i = 400) then begin i:= 0; ClickMouse (180, 300, True); wait (300); Writeln ('Trying again for a new word.'); end; until (IsTextAt (7, 304,'You wake up')) or (IsTextAt (7, 304,'You are unexpectedly awoken')) or (IsTextAt (7, 304,'You can t do that whilst')) or (GetColor (167,41) <> 65535); MoveMouse(10,10) wait (10); end; procedure FindBag; begin writeln ('Searching for sleeping bag.'); repeat MoveMouse (495, 15); wait (500); if (FindColorSpiral (x, y, 4026013, 265, 25, 505, 240)) then begin MoveMouse (x, y); wait (500); if (IsTextAt (6, 2, 'Sleeping Bag')) then begin writeln ('Sleeping bag found - Storing coordinates.') BagX:= x; BagY:= y; i:= 1; end; MoveMouse (10, 10); wait (50); end; until (i = 1); end; Procedure FindObjectOnMap; begin i:= 0; j:= 0; writeln ('Searching for '+SObjectName+' on MiniMap.'); repeat if (j = 10) and (LockedIn2 = 1) then begin j:= 0; writeln ('Possibly Locked in. Checking all Closed Doors.'); LockedIn; end; MoveMouse (460, 20); wait (200); if (FindColorSpiral (x, y, SObject, 422, 103, 441, 122)) then begin writeln ('In vicinity of '+SObjectName+', switching to Attack Mode.'); i:= 1; end; if (FindColorSpiral (x, y, SObject, 432-a, 113-b, 432+a, 113+b)) then begin j:= j + 1; ClickMouse (x, y, True); wait (200); end; wait (100); until (i = 1); MoveMouse (10, 10); wait (250); end; procedure CheckMessage; begin i:= 0; j:= 0; x:= 0; y:= 0; MoveMouse (10, 10); wait (50); if (IsTextAt (7, 304, 'You are too')) then begin writeln ('Going to sleep.'); Sleep; wait (50); end; if (GetColor (85, 140) = 3472636) and (GetColor (500, 215) = 0) then begin writeln ('Starting login procedure.'); AutoLogin; end; if (IsTextAt (7, 268, 'I can t get close')) or (IsTextAt (7, 280, 'I can t get close')) or (IsTextAt (7, 292, 'I can t get close')) then begin writeln ('AutoLike Behaviour Prevention - Waiting for 5 seconds.'); wait (5000); end; if (IsTextAt (7, 304, 'I can t get close')) and ((FreeMonster = 'Activated') or (MiniSearch = 1)) then begin FindObjectOnMap; end; end; procedure CheckFightMode; begin Look:= 0; Timer:= 0; f:= GetFightMode; if (f = Mode) then begin repeat f:= GetFightMode; wait (100); until (f = 0); if (Eating = 1) then begin writeln ('Checking if we need to eat.'); CheckHealth; end; end else begin Writeln('Choosing Right FightMode.'); ClickMouse(100, 25 + (20 * Mode), True); wait (300); end; end; procedure GetMonster; begin if (MonsterName <> 'Other Monster') then begin if (MonsterName = 'Barbarian') then begin MonsterColor1:= 2175372; end; if (MonsterName = 'Bear') then begin MonsterColor1:= 9834; end; if (MonsterName = 'Black Knight') then begin MonsterColor1:= 723723; end; if (MonsterName = 'Chicken') then begin MonsterColor1:= 16185078; end; if (MonsterName = 'Cow') then begin MonsterColor1:= 14342875; end; if (MonsterName = 'Darkwizard') then begin MonsterColor1:= 3618615; end; if (MonsterName = 'Deadly Red Spider') then begin MonsterColor1:= 2629761; end; if (MonsterName = 'Dwarf') then begin MonsterColor1:= 594799; end; if (MonsterName = 'Ghost') then begin MonsterColor1:= 7039752; end; if (MonsterName = 'Giant') then begin MonsterColor1:= 65536; end; if (MonsterName = 'Giant Spider') then begin MonsterColor1:= 1786198; end; if (MonsterName = 'Goblin') then begin MonsterColor1:= 251224; end; if (MonsterName = 'Guard') then begin MonsterColor1:= 733305; end; if (MonsterName = 'Hobgoblin') then begin MonsterColor1:= 250968; end; if (MonsterName = 'Ice Giant') then begin MonsterColor1:= 13082964; end; if (MonsterName = 'Ice Warrior') then begin MonsterColor1:= 13411668; end; if (MonsterName = 'Lesser Demon') then begin MonsterColor1:= 202; end; if (MonsterName = 'Moss Giant') then begin MonsterColor1:= 10667995; end; if (MonsterName = 'Mugger') then begin MonsterColor1:= 204; end; if (MonsterName = 'Pirate') then begin MonsterColor1:= 6274750; end; if (MonsterName = 'Rat') then begin MonsterColor1:= 7159865; end; if (MonsterName = 'Scorpion') then begin MonsterColor1:= 424386; end; if (MonsterName = 'Skeleton') then begin MonsterColor1:= 16447223; end; if (MonsterName = 'Unicorn') then begin MonsterColor1:= 16119285; end; if (MonsterName = 'Warrior') then begin MonsterColor1:= 7500402; end; if (MonsterName = 'White Knight') then begin MonsterColor1:= 6250335; end; if (MonsterName = 'Wizard') then begin MonsterColor1:= 15532032; end; if (MonsterName = 'Zombie') then begin MonsterColor1:= 16504238; end; end; if (Cols = 0) then begin MonsterColor2:= MonsterColor1; MonsterColor3:= MonsterColor1; end; if (Cols = 1) then begin MonsterColor2:= MonsterColor1; MonsterColor3:= MonsterColor1; end; if (Cols = 2) then begin MonsterColor3:= MonsterColor1; end; end; begin status ('MeisterFighter V1.3 - by Scarmeister!'); BitMapInitialise; Initialise; GetMonster; CheckMessage; FindBag; Look:= 0; Timer:= 0; repeat f:= GetFightMode; if (Look > 2) and (LockedIn2 = 1) then begin Look:= 0; Timer:= 0; writeln ('Possibly Locked in. Checking all Closed Doors.'); LockedIn; end; if (Timer > 25) and (MiniSearch = 1) then begin Look:= 0; Timer:= 0; FindObjectOnMap; end; if (f = 0) then begin i:= 0; j:= 0; x:= 0; y:= 0; if (FindColorSpiral2 (x, y, MonsterColor1, 1, 1, 304, 325)) or (FindColorSpiral2 (x, y, MonsterColor1, 305, 36, 510, 325)) or (FindColorSpiral2 (x, y, MonsterColor2, 1, 1, 304, 325)) or (FindColorSpiral2 (x, y, MonsterColor2, 305, 36, 510, 325)) or (FindColorSpiral2 (x, y, MonsterColor3, 1, 1, 304, 325)) or (FindColorSpiral2 (x, y, MonsterColor3, 305, 36, 510, 325)) then begin if (Click = 'Left') then begin ClickMouse (x, y, True); end; if (Click = 'Right') then begin ClickMouse (x, y, False); end; wait (200); if (FindBitmap (Attack, x, y)) then begin ClickMouse (x+2, y+2, True); wait (250); writeln (Monster+' found and attacking it.'); repeat f:= GetFightMode; i:= i + 1; wait (50); until (i = 100) or (f > 0) or (IsTextAt (7, 304, 'I can t get close')); end; end; if (i = 100) then begin Look:= Look + 1; end; end else begin CheckFightMode; end; CheckMessage; Timer:= Timer + 1; wait (300); until (False); end.
Code:(* <-------> <-----------> <----Joker-----> <----Presents:-> <-----------> <-------> |================================================= ==============================| |================================================= ==============================| | (* | EvilEssMiner 1.8 BY: Joker | *) (*| |================================================= ==============================| |^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^| |```````Read Setup Notes!!! Or The Script May Fail!`````````````````````````````| |................................................. ..............................| |+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++| | | | | | Need Help?!?: | | aIm: PhroznJoker | | msn: vb_newbie@hotmail.com | | e-mail: vb_newbie@hotmail.com | | | | | |-------------------------------- | |Features: | |--------------------- | |Perfect Room Detection! | |Good Mining Procedure! |Great Portal Area Procedure! | |Banking! | |Anti-Randoms! | |----------- | | | | | |-------------------------------- | |Contents: | |--------------------- | |EvilEssMiner <- Main Script Run This | |Pics required to Run {Included in the script no worries} | |Includes | |----------- | | | | | |-------------------------------- | |Setup notes: | |--------------------- | |V-Bright! |Setup lines 76 - 85 |Start in Varrok Bank next to the furthest left booth (Wield PixAxe) |USE 16 BIT!!! |Hit start |----------- | | | | | |-------------------------------- | |Release Verisions: | |--------------------- | |1.0 Private Release To My Real Life Friends... |1.1 Added RandomTalk; Procedure |1.3 Added A WAY Better Mining System... |1.5 Added Better Banking, RoomDetection and Random Bugs |1.6 Released It SS, And Fixed a SHIT load of stuff |1.8 Fixed Center Room Detection, Walking, And lots of other stuff | |----------- | | | |================================================= ==============================| | Special Thanks TO: | | GenoDemoN, Sythe, UEA, My Girlfriend, And Paul | |================================================= ==============================| |================================<3=============== ==============================| |================================================= ==============================| *) program JokersEssMiner; Var lastbreak,curcol,StoreAllw,EssRock,report2,report, Seconds,Minutes,RHours,orecount,RSeconds,RMinutes, Talk,Talky,Runs,randomtime,YellowText,iLamp,Talked ,tele,Lamps,teley,store,ladder,use,usey,storey,log ,bankq,bankqy:Integer; Corner,Time:String; LoadedOARPBmps,Walked,invfull:Boolean; Const username=''; password=''; RandomLog=63; //Approx ever how many minutes to take a break? LogLength=10; //Time to take breaks ;) BankSymbol=4367814; {The yellow part or the bank symbol} RuneFloor=2205183; {The floor of the rune shop} Aubry=2188172; {Aubry's shirt color is best} EssRockNw=5923683; {Essence ROCK color (on screen in NW Corner)} EssRockNe=10855861; {Essence ROCK color (on screen in NE Corner)} EssRockSw=4868682; {Essence ROCK color (on screen in SW Corner)} EssRockSe=10263717; {Essence ROCK color (on screen in SE Corner)} LadderColor=6522004; {The ladder in the SW room, on the floor} TeleColor=10270141; {Color of the portal} RuneOre=6513515; {Color or the ess in ur inventory} BankBooth=7048348; {go here http://img132.exs.cx/my.php?loc=img132&image=here1vj.png} ApproximateRunTime=30; //Minutes (wont stop the script needed for randomtalk;) {.include OSi.txt} {.include BoxBreaker.txt} Procedure LoadOARPBmps; begin LoadedOARPBmps:=true; Talk := BitmapFromString(17, 10, 'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000 00000' + '000000000000000000000000000000000000FFFFFFFFFFFF0 00000' + '000000FFFFFFFFFFFF0000000000000000000000000000000 00000' + '000000000000000000000000000000FFFFFFFFFFFF0000000 00000' + 'FFFFFFFFFFFF0000000000000000000000000000000000000 00000' + '000000000000000000000000FFFFFFFFFFFF000000000000F FFFFF' + 'FFFFFF0000000000000000000000000000000000000000000 00000' + '000000000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' + '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0 00000' + '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' + '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' + '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' + '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' + 'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000000 00000' + 'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' + 'FFFFFF000000000000FFFFFFFFFFFF000000000000000000F FFFFF' + 'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' + '000000000000FFFFFFFFFFFF000000000000000000000000F FFFFF' + 'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF' ); TalkY := BitmapFromString(17, 10, 'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF000000000000000 00000' + '000000000000000000000000000000000000FFFF00FFFF000 00000' + '000000FFFF00FFFF000000000000000000000000000000000 00000' + '000000000000000000000000000000FFFF00FFFF000000000 00000' + 'FFFF00FFFF000000000000000000000000000000000000000 00000' + '000000000000000000000000FFFF00FFFF00000000000000F FFF00' + 'FFFF000000000000000000000000000000000000000000000 00000' + '000000000000000000FFFF00FFFF00000000000000FFFF00F FFF00' + '000000000000000000000000FFFF00FFFF00FFFF00FFFF000 00000' + '000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' + '000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' + '000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' + '000000000000FFFF00FFFF00FFFF00FFFF00FFFF000000000 00000' + 'FFFF00FFFF00000000000000FFFF00FFFF000000000000000 00000' + 'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' + 'FFFF00000000000000FFFF00FFFF00000000000000000000F FFF00' + 'FFFF00000000000000FFFF00FFFF00000000000000FFFF00F FFF00' + '000000000000FFFF00FFFF00000000000000000000000000F FFF00' + 'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00' ); //Lamp pic by Chriz iLamp := BitmapFromString(17, 6, '000001000001000001000001BAB815B2B015AEAD15ABAA159 C9A12' + '9291128C8A1275740E000001000001000001000001000001D 0CE18' + 'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A 3A112' + '99971292911284820E79780E6968095C5A09A6A415CECC18C 5C418' + 'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A 3A112' + '9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C 0BE18' + 'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E129 99712' + '88860E84820E8C8A129291129C9A12000001CBC918CBC918B AB815' + 'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A129594128 1800E' + '79780E84820E000001000001000001CBC918CBC918C0BE18B 8B615' + 'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E7 5740E' + '000001000001C2C118'); end; Procedure LoadBMPs; begin storey := BitmapFromString(20, 4, 'FFFF000000005A5242FFFF00FFFF000000005A5242FFFF00F FFF00' + '0000005A52425A5242FFFF00FFFF000000005A5242FFFF00F FFF00' + '0000005A5242FFFF00FFFF00FFFF00FFFF000000000000005 A5242' + 'FFFF00FFFF000000005A52425A5242FFFF00FFFF000000005 A5242' + 'FFFF00FFFF000000005A5242FFFF000000000000000000000 00000' + '5A52425A5242FFFF00FFFF000000005A52425A5242FFFF00F FFF00' + '0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF00F FFF00' + 'FFFF00FFFF005A52425A5242FFFF00FFFF000000005A52425 A5242' + 'FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242' ); store := BitmapFromString(18, 4, '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005 A5242' + '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005 A5242' + 'FFFFFFFFFFFF0000000000005A5242FFFFFFFFFFFF0000005 A5242' + '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005 A5242' + '0000000000000000005A52425A5242FFFFFFFFFFFF0000005 A5242' + '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005 A5242' + 'FFFFFFFFFFFFFFFFFF5A52425A5242FFFFFFFFFFFF0000005 A5242' + '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005 A5242' + ''); use := BitmapFromString(25, 2, 'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFFFFFFFFF FFFFF' + 'FFFFFF5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5 D5447' + '5D54475D54475D54475D54475D54475D544700FFFFFFFFFFF FFFFF' + '0000005D5447FFFFFFFFFFFF0000000000000000000000000 00000' + '5D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475 D5447' + '5D54475D54475D54475D544700FFFF'); useY := BitmapFromString(25, 2, 'FFFF00FFFF000000005D5447FFFF00FFFF000000000000000 00000' + '0000000000005D5447FFFF00FFFF00000000000000FFFF00F FFF00' + '5D54475D54475D54475D54475D54475D544700FFFFFFFF00F FFF00' + '0000005D54475D5447FFFF00FFFF00FFFF00FFFF005D54475 D5447' + '5D5447FFFF00FFFF000000005D5447FFFF00FFFF000000005 D5447' + '5D54475D54475D54475D544700FFFF'); bankqy := BitmapFromString(41, 6, '000000000000FFFF00FFFF000000005A5242FFFF00FFFF000 00000' + '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005 A5242' + 'FFFF00FFFF000000005A52425A52425A52425A5242FFFF00F FFF00' + 'FFFF000000000000005A52425A5242FFFF00FFFF000000005 A5242' + 'FFFF00FFFF000000005A5242FFFF000000005A5242FFFF00F FFF00' + '0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF000 00000' + '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005 A5242' + '5A52425A52425A5242FFFF00FFFF00FFFF00FFFF005A52425 A5242' + '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005 A5242' + 'FFFF00FFFF005A5242FFFF00FFFF000000005A5242FFFF00F FFF00' + '0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF000 00000' + '5A5242FFFF00FFFF000000005A52425A52425A52425A5242F FFF00' + 'FFFF00000000FFFF00FFFF005A52425A5242FFFF00FFFF000 00000' + '5A52425A5242FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00F FFF00' + 'FFFF000000005A52425A5242FFFF00FFFF00FFFF00FFFF000 00000' + '0000005A5242FFFF00FFFF000000005A52425A5242FFFF00F FFF00' + 'FFFF00FFFF005A52425A5242FFFF00FFFF000000005A5242F FFF00' + 'FFFF005A5242FFFF00FFFF000000005A52425A52425A52420 00000' + '000000FFFF005A5242000000FFFF00FFFF000000005A52425 A5242' + '5A52420000000000000000000000005A52425A52425A52420 00000' + '0000005A52425A52425A52420000000000000000000000005 A5242' + '5A52420000000000005A52425A52420000000000005A52420 00000' + '0000005A52425A52425A52425A52425A5242FFFF005A52425 A5242' + 'FFFF00FFFF000000005A52425A52425A52425A52425A52425 A5242' + '5A52425A52425A52425A52425A52425A52425A52425A52425 A5242' + '5A52425A52425A52425A52425A52425A52425A52425A52425 A5242' + '5A52425A52425A52425A52425A52425A52425A52425A52425 A5242' + '5A52425A5242FFFF00'); ladder := BitmapFromString(24, 6, '00FFFF00FFFF0000005A52425A52425A52425A524200FFFF0 0FFFF' + '00000000000000FFFF00FFFF5A52425A52425A524200FFFF0 0FFFF' + '00000000FFFF00FFFF0000005A52425A524200FFFF00FFFF0 00000' + '5A52425A52425A52425A52425A524200FFFF00FFFF00FFFF0 0FFFF' + '00FFFF0000005A524200FFFF00FFFF00000000000000FFFF0 0FFFF' + '0000005A524200FFFF00FFFF00FFFF0000005A52425A52425 A5242' + '5A524200FFFF00FFFF00000000000000FFFF00FFFF0000005 A5242' + '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A52420 0FFFF' + '00FFFF00FFFF0000005A52425A52425A52425A524200FFFF0 0FFFF' + '0000005A524200FFFF00FFFF0000005A524200FFFF00FFFF0 00000' + '5A524200FFFF00FFFF0000005A524200FFFF00FFFF00FFFF0 0FFFF' + '00FFFF00FFFF00FFFF5A52425A524200FFFF00FFFF00FFFF0 0FFFF' + '00FFFF0000005A52425A524200FFFF00FFFF00FFFF00FFFF0 0FFFF' + '0000005A52425A52425A52420000000000000000000000000 00000' + '0000005A52425A52420000000000000000000000000000005 A5242' + '5A52425A52420000000000000000000000000000005A52425 A5242' + ''); bankq := BitmapFromString(24, 4, '0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0 00000' + '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005 A5242' + 'FFFFFFFFFFFF0000005A52425A52425A5242FFFFFF5A5242F FFFFF' + 'FFFFFF0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFF FFFFF' + '0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0 00000' + '5A52425A52425A5242FFFFFFFFFFFFFFFFFFFFFFFF0000005 A5242' + '5A5242FFFFFFFFFFFFFFFFFFFFFFFF0000000000005A5242F FFFFF' + 'FFFFFF0000005A52425A5242FFFFFFFFFFFFFFFFFFFFFFFF5 A5242' + '5A5242000000FFFFFFFFFFFF0000005A52425A52425A52420 00000' + '0000000000000000005A52425A52425A52420000000000005 A5242' + '5A52425A5242000000000000000000000000'); log := BitmapFromString(18, 3, '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A52420 0FFFF' + '00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF0 0FFFF' + '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A52420 0FFFF' + '00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF0 0FFFF' + '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A52420 0FFFF' + '00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF0 0FFFF' + ''); StoreAllw := BitmapFromString(13, 2, 'FFFFFFFFFFFF0000005A52425A5242FFFFFFFFFFFF0000005 A5242' + 'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A52425 A5242' + 'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' ); tele := BitmapFromString(35, 5, 'FFFFFFFFFFFF0000005A52425A5242FFFFFFFFFFFF0000005 A5242' + 'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242F FFFFF' + 'FFFFFF0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFF FFFFF' + '0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFF FFFFF' + 'FFFFFF0000005A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFF FFFFF' + '0000000000005A5242FFFFFFFFFFFF0000005A5242FFFFFFF FFFFF' + 'FFFFFFFFFFFFFFFFFF0000000000005A5242FFFFFFFFFFFF0 00000' + '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFFFFFFFF FFFFF' + '0000005A52425A5242FFFFFFFFFFFF0000000000000000000 00000' + '5A52425A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0 00000' + '0000000000000000005A52425A5242FFFFFFFFFFFF0000005 A5242' + 'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFFFFFFFFFFFFF0 00000' + '5A52425A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5 A5242' + '5A5242FFFFFFFFFFFF0000005A52425A5242FFFFFFFFFFFFF FFFFF' + 'FFFFFFFFFFFF5A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFF FFFFF' + '0000000000005A52425A5242FFFFFF5A52420000000000005 A5242' + '5A52425A52425A52420000000000000000000000000000005 A5242' + '5A52420000000000005A52425A52425A52420000000000000 00000' + '0000000000005A5242FFFFFFFFFFFF0000000000000000000 00000' + '5A52425A52425A52425A5242'); teley := BitmapFromString(31, 5, '5A5242FFFF00FFFF000000005A52425A5242FFFF00FFFF000 00000' + '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005 A5242' + 'FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242F FFF00' + 'FFFF000000005A5242FFFF005A5242FFFF00FFFF000000005 A5242' + '5A5242FFFF00FFFF00FFFF00FFFF00FFFF000000000000005 A5242' + 'FFFF00FFFF000000005A5242FFFF00FFFF00FFFF00FFFF00F FFF00' + '0000000000005A5242FFFF00FFFF000000005A5242FFFF005 A5242' + 'FFFF00FFFF000000005A52425A5242FFFF00FFFF000000000 00000' + '0000000000005A52425A5242FFFF00FFFF000000005A5242F FFF00' + 'FFFF000000000000000000000000005A52425A5242FFFF00F FFF00' + '0000005A5242FFFF005A5242FFFF00FFFF000000005A52425 A5242' + '5A5242FFFF00FFFF00FFFF00FFFF00FFFF005A52425A5242F FFF00' + 'FFFF000000005A52425A5242FFFF00FFFF00FFFF00FFFF00F FFF00' + '5A52425A5242FFFF00FFFF00FFFF00FFFF00FFFF005A52425 A5242' + '0000000000005A52425A52425A52425A52420000000000000 00000' + '0000000000005A52425A52420000000000005A52425A52425 A5242' + '0000000000000000000000000000005A5242FFFF00FFFF000 00000' + '000000000000'); end; Procedure LoginIfNeeded; begin if(Getcolor(274,291)=16777215) then begin mouse(461,293,75,15,true) wait(500 + random(250)) SendKeysSilentSmooth(username,50+random(50)) wait(300 + random(250)) Mouse(405,271,50,5,true) wait(500 + random(1000)) SendKeysSilentSmooth(password,50+random(50)) wait(1000 + random(500)) mouse(317,325,20,10,true) repeat wait(2500 + random(100)) until(Getcolor(201,67)=65535) if(findcolorspiraltolerance(x,y,8684676,421,54,495 ,150,5))then begin Mouse(x,y,0,0,true) wait(1000 + random(250)) end; end; end; procedure findportalarea; begin SetRun(true) if(corner='NW')then begin Mouse(616,75,1,1,true) wait(8000+random(1000)) repeat wait(100+random(50)) until(FindColorSpiralTolerance(x,y,TeleColor,5,5,5 15,340,5)) repeat FindObjColorTol('Use',TeleColor,20) getmousepos(x,y) curcol:=getcolor(x,y) until(SimilarColors(curcol,TeleColor,20)) if(FindObjColorTol('Use',TeleColor,20))then GetMousePos(x,y) begin MMouse(x,y,1,1) wait(100+random(100)) if(IsTextAt2(9,9,'Use',200))then Begin Mouse(x,y,1,1,true) wait(8000+random(3000)) end; end; end; if(corner='NE')or(corner='centerNE')then begin if(corner='centerNE')then begin mouse(681,32,2,2,true) wait(8000+random(3000)) corner:='NE' end; if(corner='NE')then begin Mouse(677,57,0,0,true) Wait(8000+random(1000)) repeat wait(100+random(50)) until(FindColorSpiralTolerance(x,y,TeleColor,5,5,5 15,340,20)) repeat FindObjColorTol('Use',TeleColor,5) getmousepos(x,y) curcol:=getcolor(x,y) until(SimilarColors(curcol,TeleColor,20)) GetMousePos(x,y) MMouse(x,y,1,1) wait(100+random(100)) if(IsTextAt2(9,9,'Use',200))then Begin Mouse(x,y,1,1,true) wait(8000+random(3000)) end; end; end; if(corner='SW')or(corner='centerSW')then begin if(corner='centerSW')and(not(Walked=True))then begin mouse(620,86,0,0,true) wait(6000+random(1000)) repeat wait(100+random(50)) until(FindColorSpiralTolerance(x,y,TeleColor,5,5,5 15,340,20)) repeat FindObjColorTol('Use',TeleColor,20) getmousepos(x,y) curcol:=getcolor(x,y) until(SimilarColors(curcol,TeleColor,20)) if(FindObjColorTol('Use',TeleColor,5))then GetMousePos(x,y) begin MMouse(x,y,1,1) wait(100+random(100)) if(IsTextAt2(9,9,'Use',200))then Begin Mouse(x,y,1,1,true) wait(8000+random(3000)) end; end; end; end; if(corner='SW')and(Walked=True)then begin Mouse(620,110,1,1,true) wait(8000+random(1000)) end; repeat wait(100+random(50)) until(FindColorSpiralTolerance(x,y,TeleColor,5,5,5 15,340,20)) repeat FindObjColorTol('Use',TeleColor,20) getmousepos(x,y) curcol:=getcolor(x,y) until(SimilarColors(curcol,TeleColor,20)) if(FindObjColorTol('Use',TeleColor,5))then GetMousePos(x,y) begin MMouse(x,y,1,1) wait(100+random(100)) if(IsTextAt2(9,9,'Use',200))then Begin Mouse(x,y,1,1,true) wait(8000+random(3000)) end; end; if(corner='SW')then begin Mouse(614,77,1,1,true) wait(8000+random(1000)) end; repeat FindObjColorTol('Use',TeleColor,20) getmousepos(x,y) curcol:=getcolor(x,y) until(SimilarColors(curcol,TeleColor,20)) if(FindObjColorTol('Use',TeleColor,20))then begin GetMousePos(x,y) MMouse(x,y,0,0) wait(100+random(100)) end; if(IsTextAt2(9,9,'Use',200))then Begin Mouse(x,y,1,1,true) Wait(8000+random(1000)) end; if(corner='SE')then begin wait(100+random(25)) Mouse(674,103,1,1,true) wait(8000+random(1000)) repeat FindObjColorTol('Use',TeleColor,20) getmousepos(x,y) curcol:=getcolor(x,y) until(SimilarColors(curcol,TeleColor,20)) if(FindObjColorTol('Use',TeleColor,20))then begin GetMousePos(x,y) MMouse(x,y,0,0) wait(100+random(100)) end; if(IsTextAt2(9,9,'Use',200))then Begin Mouse(x,y,1,1,true) Wait(8000+random(1000)) end; end; end; Procedure Checkinv; begin Mouse(648,183,5,5,true) if(FindColorSpiralTolerance(x,y,RuneOre,691,426,74 6,465,15))then begin wait(1000+Random(100)) invfull:=true end; end; Procedure Randomtalk; var ran:integer; begin ran:=Random(10) if(ran=1)then begin Say('Dang this is borng') wait(1000+random(50)) Say('boring*') end; if(ran=2)then begin Say('Darn this mining is borng') wait(1000+random(500)) Say('err......') wait(1000+random(500)) Say('boring*') end; if(ran=3)then begin Say('Wow... Mind ' +inttostr(orecount+random(5))+ ' ess.') wait(1000+random(500)) Say('mined*') end; if(ran=4)then begin Say('Whats everyones mining level?') wait(1000+random(500)) end; if(ran=5)then begin Say('Dang this is borng') wait(1000+random(50)) Say('boring*') end; if(ran=6)then begin Say('What does everyone pay for ess?') wait(1000+random(50)) end; if(ran=8)then begin Say('If i keep gettin this much, ill be rich!') wait(1000+random(50)) end; if(ran=9)then begin Say('Add me in about '+inttostr(ApproximateRunTime)+', to buy essence...') wait(1000+random(50)) end; if(ran=10)then begin Say('If i craft these, i should have a high RC level :)') wait(1000+random(50)) end; end; Procedure ProgressReport; var avg:integer; begin if(GetSystemTime-report2 > report*60000)then begin Seconds:=(GetSystemTime-ST) div 1000; Minutes:=Seconds div 60; RHours:=Minutes div 60; Time:=inttostr(Seconds)+ ' Seconds' if(not(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'; avg:=(Minutes div 60)*28 end; begin writeln(' '); writeln(' '); writeln(' '); writeln('<=================Progress Report================>'); writeln('Worked for '+Time); writeln('Mined '+inttostr(orecount)+' '+'Ores'); writeln('Currently Mining '+inttostr(avg)+' '+' Ores and hour'); writeln('Handled: '+inttostr(YellowText)+' Talking Randoms, and ran from '+inttostr(runs)+' random events'); Writeln('<======================================== ========>'); Report2:=GetSystemTime; end; end; end; function FindFight:boolean; begin If(FindColorSpiral(x,y,65280,180,90,320,230))then Wait(1000); If(FindColorSpiral(x,y,65280,180,90,320,230))then begin Runs:=Runs+1; SetRun(true); Wait(50+random(10)); invfull:=true result:=true; end; end; procedure TalkToRand; begin Writeln('Talking to Random Event.') repeat if(FindColorSpiral(x,y,16711680,5,345,510,465))or( FindColorSpiral(x,y,16777215,5,345,510,465))then begin Mouse(x,y,50,2,true); wait(2000+random(1000)); end; until(GetColor(20,434)=0) end; procedure FindText; var counter:integer; begin if(FindColor(x,y,65535,5,5,514,337))then begin wait(200) if(FindColor(x,y,65535,5,5,514,337))then begin Writeln('Found Yellow Text.') Yellowtext:=Yellowtext+1; GetScreenShot('YellowtextFound',Yellowtext); repeat counter:=counter+2+random(1); if((x+counter) < 515)and((y+18) < 338)then MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15, 20,20); wait(5); if(FindColorSpiral(x,y,65280,180,90,320,230))then break; if(IsTextAt2(9,9,'Ta',100))then begin GetMousePos(x,y); Mouse(x,y,1,1,false); Wait(200+random(100)); if(FindBitmap(Talk,x,y))or(FindBitmap(Talky,x,y))t hen begin Mouse(x,y,40,5,true); MapFlag; wait(1000+random(1000)); TalkToRand; Talked:=Talked+1 end; end; until(counter>=250); end; end; end; Procedure FindLamp; begin while(FindBitmapSpiralTolerance(iLamp,x,y,550,200, 745,470,100)) do begin Writeln('Lamp Found in invintory. Rubbing Lamp...') Lamps:=Lamps+1; GetScreenshot('Lamp',Lamps); Mouse(x,y,10,10,true); wait(3000+random(1000)); Mouse(157,220,12,12,true) wait(3000+random(1000)); Mouse(248,255,10,2,true); wait(3000+random(1000)); Mouse(226,442,10,3,true); wait(3000+random(1000)); end; end; Procedure FindMod; var ax,ay:integer; begin if(FindColor(ax,ay,786423,10,350,150,433))then begin GetScreenshot('Mod',1); LogOut('UHOH, A MOD!!!'); end; end; Procedure CheckIfDead; begin if(GetColor(30,418)=0)and(GetColor(72,429)=0)then begin GetScreenshot('Dead',1); LogOut('You are dead!'); end; end; Procedure FindMime; var ax,ay:integer; begin if(FindColor(ax,ay,11503238,10,350,479,433))then begin GetScreenshot('Mime',1); LogOut('Mime Found'); end; end; Procedure Teleport; Begin Writeln('Finding Aubry...') repeat if(FindobjColorTol('Talk',Aubry,15))then getmousepos(x,y) MMouse(x,y,0,0) Uberwait(250+random(250)) if(IsTextAt2(9,9,'Talk',100))then begin Writeln('Found Aubry... Teleporting...') GetMousePos(x,y) Uberwait(100+random(50)) Mouse(x,y,0,0,false) uberwait(100+random(50)) end; until(findbitmapspiraltolerance(tele,x,y,5,5,515,3 40,25) or (findbitmapspiraltolerance(teley,x,y,5,5,515,340,2 5))) if(findbitmapspiraltolerance(tele,x,y,5,5,515,340, 25) or (findbitmapspiraltolerance(teley,x,y,5,5,515,340,2 5)))then begin uberwait(250+random(50)) Mouse(x,y,3,3,true) end; end; Procedure CheckRandoms; begin randomtime:=getsystemtime+5000 if(not LoadedOARPBmps)then LoadOARPBmps; LoginIfNeeded; FindText; if(FindFight)then begin Writeln('Found Fight!') findportalarea; wait(1000+random(200)) Teleport; end; FindLamp; FindMod; FindMime; CheckIfDead; FindStrangeBox; end; Procedure FindRockTopLeft; begin if(FindObjColorTol('Mine',Essrock,15))then Mouse(x,y,1,1,true) wait(100) Uberwait(2500+random(1000)) CheckRandoms; Mouse(648,184,1,1,true) Checkinv; end; Procedure FindRockTopRight; begin if(FindObjColorTol('Mine',Essrock,15))then Mouse(x,y,1,1,true) wait(100) Uberwait(2500+random(1000)) CheckRandoms; Mouse(648,184,1,1,true) Checkinv; end; Procedure FindRockBottomRight; begin if(FindObjColorTol('Mine',Essrock,15))then Mouse(x,y,1,1,true) wait(100) Uberwait(2500+random(1000)) CheckRandoms; Mouse(648,184,1,1,true) CheckInv; end; Procedure FindRockBottomLeft; begin if(FindObjColorTol('Mine',Essrock,15))then Mouse(x,y,1,1,true) wait(100) Uberwait(2500+random(1000)) CheckRandoms; Mouse(648,184,1,1,true) Checkinv; end; Procedure MineEssence; begin Writeln('Mining Essence...') repeat Mouse(648,184,1,1,true) wait(250+random(250)) if(corner='SE')then begin EssRock:=EssRockSE FindRockBottomLeft; wait(100+random(100)) CheckRandoms; wait(250+random(250)) end; if(corner='SW')and(Walked=True)then begin EssRock:=EssRockSW FindRockBottomLeft; wait(100+random(100)) CheckRandoms; wait(250+random(250)) end; if(corner='SW')and(Walked=False)then begin EssRock:=EssRockSw FindRockBottomLeft; wait(100+random(100)) CheckRandoms; wait(250+random(250)) end; if(corner='NW')then begin EssRock:=EssRockNW FindRockTopRight; wait(100+random(100)) FindRockTopLeft; wait(100+random(100)) FindRockBottomLeft; wait(100+random(100)) CheckRandoms; wait(250+random(250)) end; if(corner='NE')then begin EssRock:=EssRockNE FindRockTopRight; wait(100+random(100)) FindRockTopLeft; wait(100+random(100)) FindRockBottomLeft; wait(100+random(100)) CheckRandoms; end; wait(250+random(250)) wait(250+random(250)) until(invfull=true) FindPortalArea; corner:='' end; Procedure WalkToAubry; begin Writeln('Walkin To Aubry...') repeat wait(100+random(25)) until(FindColorSpiralTolerance(x,y,BankSymbol,546, 0,736,170,25)) if(FindColorSpiralTolerance(x,y,BankSymbol,546,0,7 36,170,25))then begin SetRun(true) Mouse(684,99,1,1,true) wait(500+random(25)) Mouse(711,482,0,0,true) mapflag; Mouse(616,140,0,1,true) mapflag; repeat wait(250+random(200)) until(FindColoredAreaTolerance(x,y,RuneFloor,546,0 ,737,170,3,25)) if(FindColoredAreaTolerance(x,y,RuneFloor,546,0,73 7,170,3,15))then begin Mouse(x+3,y+3,2,2,true) wait(4000+random(2000)) end; end; end; {================================================= ===] [================Jokers's Ingenious==================] [==============Area Finding Procedure================] [=====================JIAFP======================== ==} procedure findcornerSW; begin if(corner='')then begin if(findcolorspiraltolerance(x,y,LadderColor,128,16 0,291,243,5))then begin mouse(x,y,2,2,false) end; if(findbitmap(ladder,x,y))then begin corner:='SW' mouse(x,y,5,5,true) end; end; end; procedure findcornerSE; begin if(corner='')then begin mmouse(467,152,5,10) if(IsTextAt2(9,9,'Mine Rune Essence',200))then begin corner:='SE' end; end; end; procedure findcornercenterSW; begin if(corner='')then begin if(findcolorspiraltolerance(x,y,538962,270,100,320 ,150,5))then begin mmouse(x,y,0,0) if(IsTextAt2(9,9,'Chop down Dead tree',200))then begin corner:='centerSW' Mouse(621,120,0,0,true) corner:='SW' Walked:=True mapflag; end; end; end; end; procedure findcornerNW; begin if(corner='')then begin mmouse(165,81,10,10) wait(100+random(250)) if(IsTextAt2(9,9,'Mine Rune Essence',200))then begin corner:='NW' end; end; end; procedure findcornerNE; begin if(corner='')then begin mmouse(370,85,15,15) if(IsTextAt2(9,9,'Mine Rune Essence',200))then begin corner:='NE' end; end; end; procedure findcornercenterNE; begin if(corner='')then begin MMouse(335,104,0,0) wait(100+random(250)) if(IsTextAt2(9,9,'Chop',200))then begin corner:='centerNE' mouse(684,30,5,5,true) wait(5000+random(2500)) corner:='NE' Walked:=True end; end; end; Procedure AubryToBank; begin setrun(true) Mouse(660,47,1,1,true) wait(9000+random(2000)) repeat loginifneeded; wait(250+random(250)) until(FindColorSpiralTolerance(x,y,BankSymbol,595, 0,671,42,5)) if(FindColorSpiralTolerance(x,y,BankSymbol,595,0,6 71,42,5))then begin Mouse(x,y+5,1,1,true) MapFlag; end; end; Procedure BankEssence; begin Writeln('Looking for bank...') repeat UberWait(2000+random(200)) if(FindColorSpiralTolerance(x,y,BankBooth,5,5,515, 340,10))then begin Writeln('Opening Bank...') MMouse(x,y,2,2) if(IsTextAt2(9,9,'Use Bank',100))then begin Mouse(x,y,0,0,False) UberWait(200+random(200)) end; end; until(findbitmapspiraltolerance(bankq,x,y,5,5,515, 340,25) or (findbitmapspiraltolerance(bankqy,x,y,5,5,515,340, 25))) if(findbitmapspiraltolerance(bankq,x,y,5,5,515,340 ,25) or (findbitmapspiraltolerance(bankqy,x,y,5,5,515,340, 25)))then begin Mouse(x,y,2,2,true) Uberwait(6000+random(1000)) if(FindColorSpiralTolerance(x,y,RuneOre,693,431,74 6,465,15))then begin MMouse(x,y,1,1) wait(100+random(100)) if(IsTextAt2(9,9,'Store 1 Rune',200))then begin Mouse(x,y,0,0,false) uberwait(250+random(250)) if(FindBitmapSpiralTolerance(StoreAllw,x,y,559,201 ,765,502,15))then begin Mouse(x-10,y,0,0,true) uberwait(1000+random(1000)) OreCount:=OreCount+28 ProgressReport; Mouse(459,42,10,1,true) wait(1000+random(250)) end; end; end; end; end; Procedure RandomLogout; var CurBreak,Seconds1,Minutes1:integer; begin if(GetSystemTime-LastBreak > report*60000)then begin Seconds1:=(GetSystemTime-ST) div 1000; Minutes1:=Seconds1 div 60; if(Minutes>=RandomLog+random(5)+5)then begin Mouse(649,485,5,5,true) wait(500+random(100)) Mouse(644,375,25,5,true) wait(5000+random(250)) repeat wait(60000+Random(2500)) CurBreak:=CurBreak+1; until(CurBreak>=LogLength+Random(15)) wait(1000+Random(2500)) LoginIfNeeded; LastBreak:=GetSystemTime; end; end; end; begin LoginIfNeeded; SetupOSi; LoadBankBmps; BoxOpenerSetup; LoadBMPs; ChatFixer; Report:=1; ST:=GetSystemTime; repeat WalkToAubry; wait(1000+random(500)) Teleport; wait(10000+random(1000)) repeat findcornerSE wait(100+random(50)) findcornerNE wait(100+random(50)) findcornercenterSW wait(100+random(50)) findcornerSW wait(100+random(50)) findcornercenterNE wait(100+random(50)) findcornerNW wait(100+random(50)) until(not(corner='')) Writeln('Your in the ' +corner + ' corner') wait(100+random(50)) MineEssence; wait(2000+random(250)) AubryToBank; wait(100+random(50)) BankEssence; wait(100+random(50)) x:=random(3) if(x=1)then begin Randomtalk; ChatFixer; end; x:=random(2) if(x=1)then begin RandomLogOut; end; Walked:=False until(false) end.
Last edited by Markus; 09-20-2009 at 06:16 AM. Reason: Operation Foxley
eh i got some old aryan scripts i can dig around for but none for scar i dont think
I think this is the first thing I wrote...I'm probably wrong, I'd imagine that I'd be really proud and be putting in a lot of comments.
Anyway, I'm relatively new here so I don't have any crazy-cool old stuff =/
Edit: No, this is actually one of the very first ones. I can tell because I was trying to figure out how I should best go about things with comments of random thoughts.SCAR Code:program New;
{.include SRL/SRL.scar}
const
Gold = 99999;
Friend = 99999;
NEss = 99999;
NPEss = 99999;
HowManyLoads = 20; //How many loads you wish to do per person
BankE = 99999;
TotalLoads = 500; //Loads before stopping script
Temple = 500;
var
x,y: integer; p: integer; LoadsDone: integer; TotalLoadsCompleted: integer;
Tree: integer; C: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 5;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := False;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := False;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := False;
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active := False;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
function FindFastRandoms: Boolean; //by WT-Fawaki
var
i: Integer;
begin
for i := 1 to 9 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
{ Players[CurrentPlayer].loc := 'No GameTab'; }
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
end;
Wait(1);
end;
end;
procedure AntiRandoms;
begin
If(not(loggedin))then
begin
exit;
end else
begin
FindFastRandoms;
FindNormalRandoms;
end;
end;
procedure AntiBans;
begin
antirandoms;
Case Random(5) of
0: RandomMovement; //by Krazy_Meerkat
1: PickUpMouse; //by Dark_Sniper
2: AlmostLogout; //by Yakman
3: RandomRClick; //by Phantombmx
4: RandomMovement; //by Krazy_Meerkat
end;
end;
procedure ReachTemple;
begin
Antibans;
Tree := DTMFromString('78DA6364676060006124E0E62202A619A17C4' +
'6664C355C121C986A9851D5703008A0AA61C35423C280661727A6' +
'1A19981CB21A2E02E6B0801D8002F824F848770F3BA61A2E747F1' +
'1E1660001290264');
RadialRoadWalk(FindFallyRoadColor,66,188,197,0,0);
RadialRoadWalk(FindFallyRoadColor, 45, 203, 186, 0, 0);
if FindDTM(Tree, x, y, 100, 100, 250, 300) then
begin
FindDTM(Tree, x, y, 100, 100, 250, 300);
Mouse(x,y,1,1,true);
end else
writeln('Looks like we''re lost - Terminating script.');
TerminateScript;
end;
procedure EnterTemple;
begin
antibans;
If FindColorTolerance(x, y, Temple, 0, 0, 200, 200, 5) then
begin
writeln('Color Found =D Next Step Verifies');
if IsUpText('Mysterious ruins') then
begin
Mouse(x,y,1,1,true);
exit;
end;
end else
begin
C:=C+1;
repeat
EnterTemple;
Until (C>10);
end;
writeln('FAIL. Try restarting RS, colors might work again');
Wait(4000);
end;
procedure FindandTradeCrafter;
begin
If(FindColor(x, y, friend, 0, 0, 200, 200)) then
begin
Mouse(x,y,1,1, true);
exit;
end else
begin
terminatescript;
end;
end;
procedure TradeandAntiscam;//Verifies gold and notes
begin
antibans;
wait(3000+random(3000));
if FindDTM(gold,x,y,1,1,200,200) and FindDTM(NEss,x,y,1,1,200,200) then
begin
Mouse(x,y,1,1,true);//TS1ACCEPT
Mouse(x,y,1,1,true);//TS2ACCEPT
end else
begin
Mouse(x,y,1,1,true);//TS1DECLINE
FindandTradeCrafter;
TradeandAntiscam;
end;
end;
procedure ExitTemple;//Radial+Special command?
begin
antibans;
end;
procedure ReachBank;//Radial + bitmaps
begin
RadialRoadWalk(FindFallyRoadColor, 45, 203, 186, 0, 0);
RadialRoadWalk(FindFallyRoadColor, 45, 203, 186, 0, 0);
RadialRoadWalk(FindFallyRoadColor, 45, 203, 186, 0, 0);
RadialRoadWalk(FindFallyRoadColor, 45, 203, 186, 0, 0);
OpenBankQuiet('feb');
end;
procedure DepositGold;//Mouse
begin
antibans;
FindDTM(gold,x,y,1,1,200,200);
Mouse(x,y,1,1,false);
Mouse(x,y,1,1,true);
P:=2000+random(2000);
Typesend(inttostr(p));
end;
procedure DepositEssence;
begin
If finddtm(NPESS,x,y,1,1,200,200) then
begin
Mouse(x,y,1,1,false);
ChooseOption('');
end else
FindDTM(NESS,x,y,1,1,200,200);
Mouse(x,y,1,1,false);
ChooseOption('');
end;
procedure WithdrawEssence;//Mouse, maybe DTM
begin
antibans;
FindDTM(BankE,x,y,1,1,200,200);
Mouse(x,y,1,1,false);
Mouse(x,y,1,1,true);
Typesend('25');
LoadsDone:=LoadsDone+1
TotalLoadsCompleted:=TotalLoadsCompleted+1;
if TotalLoads=TotalLoadsCompleted then
begin
TerminateScript;
end;
if(HowManyLoads)=LoadsDone then
begin;
NextPlayer(False);
end;
end;
begin
repeat
ReachTemple;
EnterTemple;
FindandTradeCrafter;
TradeandAntiscam;
ExitTemple;
ReachBank;
DepositGold;
DepositEssence;
WithdrawEssence;
until(TotalLoads)=TotalLoadsCompleted;
end.
Active only during the Summer...
Hmm.. a 44 year old man that visits a cheating forum, one of a kindand whos benland? hes title is The Doctor
![]()
Fakawi created SRL...
Benland is an admin who used to be in charge of admission when SRL was private. Now he's just smart![]()
STOP PM'ING ME
lol the oldest thing i have is a SS of scar 1.12
T ~ M
There are currently 1 users browsing this thread. (0 members and 1 guests)