ya i fixed those and made it into this but now i get an out of range error.
SCAR Code:
program SyberiumsZammyMager;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\magic.scar}
{.include SRL\SRL\extended\xMapWalk.scar}
{ # ScriptName: Auto Monk of zamorak confuser/weakener/curser! }
{ # ScriptDefinition: Uses confuse/curse/weaken on monk of zammy. }
{ # Instructions: Start in varrock castle on the west side of mage cage!}
{ # Instructions Cont: Pick Color of zammy mage! IMPORTANT! }
{ # Credits: Me for making this! and Fakawi for his antirandom function!}
{ # Lastly have fun and auto safe and correctly!
{ IF the weaken isent working for you do the below instructions.
go to SRL\SRL\skill\magic.scar and replace there BMP with mine.
MAKE SURE U REMOVE THE {} {AROUND THE BMP!}
{ weaken := BitmapFromString(5, 6, 'z78DA33353171347632000143' +
'474B03335717080911C12F8E298BA912975E5333131713235C6A2' +
'0B2986A206C008F6C2631'); }
const
WichSpell=2; // 0 for confuse, 1 for weaken, 2 for curse!
Howmanyto=223;// how many times to cast the above spells.
MSpeed = 25;
StartPlayer = 0; // What player you start with.
NumberOfUsers = 2; // The Number of users you use.
Version = ('1.2') ;
var
Howmany,i : integer;
attemptss : integer;
ZMage : array[1..3] of integer;
ZMageI : integer;
procedure DeclarePlayers;
begin
HowManyPlayers := NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='iil';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='ill';
Players[1].Active:=True;
{
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=True; }
end;
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 8 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;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
FindTalk;
end;
end;
function ZCastOn(Spell, Monster: string; MonsterColor : Integer; Tolerance:
Integer): Boolean;
var
tx,ty : integer;
begin
for ZMageI := 1 to 3 do
tx := tx + 10;
ty := ty + 10;
if (not Cast(Spell)) then Exit;
if (FindObj3(tx, ty, Monster, ZMage[ZMageI], Tolerance)) then
begin
Mouse(tx,ty, 0, 0, True);
Result := True;
end;
end;
procedure ZammyMageColors;
begin
ZMage[1] := 3949222;
ZMage[2] := 2369896;
ZMage[3] := 8365780;
end;
{Procedure FindMage;
begin
for i := 1 to 3 do
If(FindObject(x,y,'amara', ZMage[i],5,true))and
(IsUpText('ttack'))then
exit
else
begin
repeat
wait(1+Random(7000));
Face('E');
HighestAngle;
Attemptss := Attemptss + 1;
until(FindObject(x,y,'amara', ZMage[i],5,true))or(Attemptss=10)
if(FindObject(x,y,'amara', ZMage[i],5,true))then
exit;
end;
if(Attemptss=10)then
begin
Logout;
NextPlayer(false);
end;
end; }
procedure zammymage;
var
Spell : String;
begin
for ZMageI := 1 to 3 do
case wichspell of
0: Spell:='Confuse';
1: Spell:='Weaken';
2: Spell:='Curse';
end;
Wait(300+random(200));
Wait(200+random(200));
ZCastOn(Spell,'amora',ZMage[ZMageI],5);//Line 187<<------<<
howmany := howmany+1;
if(howmanyto=howmany) then
NextPlayer(False);
end;
Procedure DoChats;
Begin
SetChat('On', 1);
SetChat('Friends', 2)
SetChat('On', 3);
End;
procedure progress;
begin
writeln('[===============================================]')
writeln('[ Syberiums Zammy Mager ')
writeln('[ Completed ' +IntToStr(howmany)+ ' Zammy Mage Casts!')
writeln('[ Worked For ' +TimeRunning)
writeln('[Thank You for using my script! Post Proggies =]')
SRLrandomsreport;
writeln('[==============================================]')
end;
procedure antiban1;
var DBANME : integer;
begin
writeln('Antiban1')
if (not(loggedIn)) then Exit;
DBANME := Random(80);
case DBANME of
1:Hoverskill('magic',False) ;
2:pickupmouse;
3:DoEmote(1 + random(20));
end;
end;
procedure antiban2;
var DBANME1 : integer;
begin
writeln('AntiBan2')
if(not(LoggedIn)) then Exit;
DBANME1 := Random(200);
case DBANME1 of
1:ZCastOn('Weaken','amora',ZMage[i],5);
end;
end;
begin
SetupSRL;
activateclient;
ClearDebug;
DeclarePlayers;
CurrentPlayer := StartPlayer;
if(not(LoggedIn)) then LoginPlayer;
DoChats;
MouseSpeed := MSpeed + Random(3)
MakeCompass('E');
Highestangle;
ZammyMageColors;
//FindMage;
repeat
zammymage;
progress;
Wait(100+random(10));
antiban1;
antiban2;
FindFastRandoms;
until(howmanyto=howmany);
writeln('dbuf 1');
end.