SCAR Code:
procedure CastSuperheats;
begin
c:= 0;
if (not (Loggedin)) then exit;
if players[currentplayer].Strings[0] = 'bronze' then
castz := 27;
if players[currentplayer].Strings[0] = 'iron' then
castz := 27;
if players[currentplayer].Strings[0] = 'steel' then
castz := 9;
if players[currentplayer].Strings[0] = 'mithril' then
castz := 5;
if players[currentplayer].Strings[0] = 'adamantite' then
castz := 3;
if players[currentplayer].Strings[0] = 'runite' then
castz := 3;
if players[currentplayer].Strings[0] = 'gold' then
castz := 27;
if players[currentplayer].Strings[0] = 'silver' then
castz := 27;
Gametab(7);
repeat
wait(200)
if not CastSpell(26) then break;
Wait(450 + random(150));
if players[currentplayer].Strings[0] = 'bronze' then
if not findOre('copper', x, y, MIX1, MIY1, MIX2, MiY2) then
begin
writeln('didnt find copper');
break;
end;
if players[currentplayer].Strings[0] = 'iron' then
if not findOre('iron', x, y, MIX1, MIY1, MIX2, MiY2) then
begin
writeln('didnt find iron');
break;
end;
if players[currentplayer].Strings[0] = 'steel' then
if not findOre('iron', x, y, MIX1, MIY1, MIX2, MiY2) then
begin
writeln('didnt find steel');
break;
end;
if players[currentplayer].Strings[0] = 'mithril' then
if not findOre('mithril', x, y, MIX1, MIY1, MIX2, MiY2) then
begin
writeln('didnt find mith');
break;
end;
if players[currentplayer].Strings[0] = 'adamantite' then
if not findOre('adamantite', x, y, MIX1, MIY1, MIX2, MiY2) then
begin
writeln('didnt find addy');
break;
end;
if players[currentplayer].Strings[0] = 'runite' then
if not findOre('runite', x, y, MIX1, MIY1, MIX2, MiY2) then
begin
writeln('didnt find rune');
break;
end;
if players[currentplayer].Strings[0] = 'gold' then
if not findOre('gold', x, y, MIX1, MIY1, MIX2, MiY2) then
begin
writeln('didnt find gold');
break;
end;
if players[currentplayer].Strings[0] = 'silver' then
if not findOre('silver', x, y, MIX1, MIY1, MIX2, MiY2) then
begin
writeln('didnt find silver');
break;
end;
begin
MMouse(x, y, 2, 2);
wait(250 + random(150));
if IsUpText('ore') then
begin
Mouse(x, y, 5, 5, True);
Wait(450 + random(150));
AntiRandoms;
castz := c + 1;
end else
begin
writeln('Can not find ore');
break;
WithdrawOres;
castz := c + 1;
end;
end;
until(false)
end;