hey,
well i saw that srl didnt have any ranging functions so i started to make these myself,ive kinda been working behind the scenes lately and not been very adtive but i hope to change that soon.
i spent quite a while making these so please post comments
Code:function monstertolerance(xcord1,ycord1,xcord2,ycord2:integer):boolean; var c,tolmonster,tol:integer; begin tol:=0; c:=0; if(FindColorSpiralTolerance(x,y,monster,xcord1,ycord1,xcord2,ycord2,tol))Then begin Mmouse(x,y,5,4) writeln('//////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\') writeln(' Monster visable on screen, no tolerance needed') writeln('//////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\') found:=true; end; if(found=false)then begin writeln('//////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\') writeln(' No monster is visable on the screen') writeln(' Creating a monster tolerance') writeln('//////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\') monsterfound:=false; tolmonster:=monster; repeat wait(500+random(500)) tol:=tol+1; c:=c+1; writeln('monster color :'+inttostr(tolmonster)) if(FindColorSpiralTolerance(x,y,tolmonster,xcord1,ycord1,xcord2,ycord2,tol))then begin monsterfound:=true; Mmouse(x,y,5,4) end; until(monsterfound=true)or(c=30) if(c=30)then writeln('') writeln('//////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\') writeln('') writeln('Increased tolerance to 30, monster is still not visable') writeln(' Unable to find the monster, color may be wrong') writeln('') writeln('//////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\') result:=false; end; end;
Code:procedure selectbattletype; begin gametab(1) case style of 'Accurate','accurate' :mouse(590,287,5,5,true) 'Rapid','rapid' :mouse(601,334,4,5,true) 'Longrange','longrange' :mouse(596,382,5,6,true) end; end;
Code:procedure getarrowcolorA; var arrowsfound:boolean; begin; gametab(4) if(findcolorspiral(x,y,537172,559,208,740,457))then begin Mmouse(x,y,1,3) if(IsTextAt2(9,9,'Weild',100))then getmousepos(x,y) arrowcolorA:=getcolor(x,y) writeln('arrow color is: '+inttostr(arrowcolorA)) mouse(x,y,1,1,true) arrowsfound:=true; end else if(findcolorspiral(x,y,4902398,672,171,697,204))then begin mouse(x,y,2,2,true) Mmouse(690,264,5,5) wait(500+random(800)) if(IsTextAt2(9,9,'Remove',100))then begin getmousepos(x,y) arrowcolorA:=getcolor(x,y) writeln('arrow color is: '+inttostr(arrowcolorA)) arrowsfound:=true; end else if(arrowsfound=false)then begin writeln('') writeln('//////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\') writeln('') writeln(' No arrows where found in you inventory or equipted') writeln(' Unable to proceed logging out') writeln('') writeln('//////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\') terminatescript; end; end; end;
Code:procedure pickuparrows; var a,b:integer; begin a :=random(2); if(a=1)then begin repeat b:=b+1; wait(500+random(300)) if(FindObj('Take',923247,5))then begin mouse(x,y,3,2,true) flag; end; until(not(FindObj('Take',923247,5))or(b=10)) if(findcolorspiral(x,y,arrowcolorA,552,175,744,467))then Mmouse(x,y,5,3) if(IsTextAt2(9,9,'Wield',100))then begin mouse(x,y,1,1,true) end; end; end;Code:Procedure GetFoodColor; var Row,Col,Ix,Iy,InvLoc:integer; begin if(eatfood='yes')then begin InvLoc:=0; Col:=1; Row:=1; if(Not(GetColor(633,176)=2829182))then Mouse(650,185,2,2,true); begin repeat Ix:=(Col-1)*42+574; Iy:=(Row-1)*36+218; Mmouse(ix,iy,5,5) wait(100+random(50)); InvLoc:=InvLoc+1; Row:=Row+1; if(Row>7)then begin Col:=Col+1; Row:=1; end; until(IsTextAt2(9,9,'Eat',100)or(InvLoc=28)) begin if(IsTextAt2(9,9,'Eat',100))then getmousepos(x,y); foodcolor:=getcolor(x,y); writeln('Food Color is :'+inttostr(foodcolor)); end; end; end; end;
Code:procedure EatFoodIfNeeded; var foodleft:boolean; begin if(eatfood='yes')then begin if(gethp<eathp)then gametab(4) if(FindColorSpiraltolerance(x,y,foodcolor,560,210,730,460,5))then begin Mmouse(x,y,1,3) wait(250+random(250)) foodleft:=true; begin mouse(x,y,1,3,true) foodeaten:=foodeaten+1 begin if(foodleft=false) then begin writeln('') writeln('//////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\') writeln('') writeln(' No food was found in your inventory') writeln(' Unable to proceed logging out') writeln(' This has gotta be better than dying hasnt it :D') writeln('') writeln('//////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\') writeln('') logout; terminatescript; end; end; end; end; end; end;
Code:procedure Attack; var gts,a,c,ax,ay,b:integer; begin b:=0; solemnrandoms; monstertolerance(4,5,515,337) begin If(IsTextAt2(9,9,'Attack',100))then begin mouse(x,y,1,3,true) flag; end; repeat a:=a+1; wait(750+random(750)) until(FindColorSpiraltolerance(ax,ay,8246,240,125,270,180,5))or(a=3) begin c:= random(2) repeat gts:=gts+3; Writeln('Fighting current monster for around '+inttostr(gts)+' second(s)') wait(1000+random(750)); if(c>1)then begin EatFoodIfNeeded; solemnrandoms; end; until(not(FindColorSpiral(ax,ay,65280,240,125,270,180))) pickup; Killed:=Killed+1; EatFoodIfNeeded; solemnrandoms; end; end; end;






Reply With Quote
so wait.



