SCAR Code:
begin
if (DefensiveCast = 'False') then
begin
if (FindColor(x,y,OrangeBookSign,689,321,699,331)) then
begin
MMouse(x,y,7,7);
Wait(1000+random(500));
Mouse(x,y,5,5,true);
Wait(1000+random(500));
end else
begin
Logout;
Writeln('Could not find OrangeBookSign.');
TerminateScript;
end;
if (DefensiveCast = 'True') then
begin
if (FindColor(x,y,OrangeBookSign,704,261,710,267)) then
begin
MMouse(x,y,7,7);
Wait(1000+random(500));
Mouse(x,y,5,5,true);
Wait(1000+random(500));
end else
begin
Logout;
Writeln('Could not find OrangeBookSign.');
TerminateScript;
end;
end;
end;
begin
s:= SpellToCast;
Case s of
1: if (FindColor(x,y,12632764,586,224,592,231)) then
begin
MMouse(x,y,5,5);
Wait(1000+random(500));
Mouse(x,y,3,3,true);
Wait(2000+random(600));
end;
2: if (FindColor(x,y,16559274,626,224,632,231)) then
begin
MMouse(x,y,5,5);
Wait(1000+random(500));
Mouse(x,y,3,3,true);
Wait(2000+random(600));
end;
3:if (FindColor(x,y,307460,666,224,672,231)) then
begin
MMouse(x,y,5,5);
Wait(1000+random(500));
Mouse(x,y,3,3,true);
Wait(2000+random(600));
end;
4:if (FindColor(x,y,505852,706,224,712,231)) then
begin
MMouse(x,y,5,5);
Wait(1000+random(500));
Mouse(x,y,3,3,true);
Wait(2000+random(600));
end;
5:if (FindColor(x,y,12632764,586,265,592,272)) then
begin
MMouse(x,y,5,5);
Wait(1000+random(500));
Mouse(x,y,3,3,true);
Wait(2000+random(600));
end;
6:if (FindColor(x,y,16468811,626,265,632,272)) then
begin
MMouse(x,y,5,5);
Wait(1000+random(500));
Mouse(x,y,3,3,true);
Wait(2000+random(600));
end;
7:if (FindColor(x,y,307460,666,265,672,272)) then
begin
MMouse(x,y,5,5);
Wait(1000+random(500));
Mouse(x,y,3,3,true);
Wait(2000+random(600));
end;
8:if (FindColor(x,y,225773,706,265,712,272)) then
begin
MMouse(x,y,5,5);
Wait(1000+random(500));
Mouse(x,y,3,3,true);
Wait(2000+random(600));
end;
9:if (FindColor(x,y,12632764,586,309,592,315)) then
begin
MMouse(x,y,5,5);
Wait(1000+random(500));
Mouse(x,y,3,3,true);
Wait(2000+random(600));
end;
10:if (FindColor(x,y,16468811,626,309,632,315)) then
begin
MMouse(x,y,5,5);
Wait(1000+random(500));
Mouse(x,y,3,3,true);
Wait(2000+random(600));
end;
11:if (FindColor(x,y,307460,666,309,672,315)) then
begin
MMouse(x,y,5,5);
Wait(1000+random(500));
Mouse(x,y,3,3,true);
Wait(2000+random(600));
end;
12:if (FindColor(x,y,974,706,309,712,315)) then
begin
MMouse(x,y,5,5);
Wait(1000+random(500));
Mouse(x,y,3,3,true);
Wait(2000+random(600));
end;
end;
end;