the blah
09-10-2006, 06:19 PM
My first working script I've completed...
Last updated 9-16-2006 at 4:55p.m.
{ 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,MSX 2,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.
Pretty bad but it's the first finished working script I've made...
And I also had a problem when I tried to do FindNormalRandoms, it clicked on the inventory tab...
Last updated 9-16-2006 at 4:55p.m.
{ 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,MSX 2,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.
Pretty bad but it's the first finished working script I've made...
And I also had a problem when I tried to do FindNormalRandoms, it clicked on the inventory tab...