My first working script I've completed...
Last updated 9-16-2006 at 4:55p.m.
Pretty bad but it's the first finished working script I've made...Code:{ A simple auto curser !- USE ON THE ZAMORAK MAGE IN VARROCK CASTLE-! Setup on lines 16-21 and 26-27 } program New; {.include SRL\srl.scar} {.include SRL\SRL\skill\Magic.scar} var CurseColor,MageColor,tmx,tmy: Integer; const StartPlayer=0; Procedure DeclarePlayers; begin HowManyPlayers :=1; // Set Number of Players here. NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length; CurrentPlayer:=StartPlayer; // CurrentPlayer = Array Index Players[0].Name :=''; Players[0].Pass :=''; Players[0].Nick :=''; Players[0].Loc :='VarrockCastle'; Players[0].Skill:='magic'; Players[0].Active:=True; end; begin SetUpSRL; CurseColor:=11491159; MageColor:=4212913; DeclarePlayers; repeat FindColorTolerance(tmx,tmy,CurseColor, MIX1, MIY1, MIX2, MIY2, 10); Mouse(tmx,tmy,random(4),random(4),true); wait(50+random(20)); FindColorTolerance(tmx,tmy,MageColor,MSX1,MSY1,MSX2,MSY2,10); if(IsUpText('Cast Curse')) then Mouse(tmx,tmy,random(6),random(6),true); wait(random(100)); FindNormalRandoms; until(IsChatMessage('ugh Bo') or LoggedIn=false); LogOut; end.
And I also had a problem when I tried to do FindNormalRandoms, it clicked on the inventory tab...


Reply With Quote








thats a good trick

