SCAR Code:
procedure SmeltBars;
begin
if (not (LoggedIn)) then Exit;
repeat
Wait(100 + random(100));
until
FindBitmapToleranceIn(Bronze, x, y, MCX1, MCY1, MCX2, MCY2, 40);
case Players[CurrentPlayer].integers[0] of
0:
begin
if (FindBitmapToleranceIn(Bronze, x, y, MCX1, MCY1, MCX2, MCY2, 40)) then
begin
MMouse(x, y, 5, 5);
Wait(1000 + random(1000));
if (IsUpTextMulti('ronze', 'onze', 'nze')) then
begin
Mouse(x, y, 3, 3, false);
Wait(2000 + random(1000));
ChooseOption('X');
repeat
Wait(100 + random(100));
until FindBitmapToleranceIn(Enter, x, y, MCX1, MCY1, MCX2, MCY2, 20);
TypeSend('14');
TotalSmelted := TotalSmelted + 14;
end;
end;
end;
1:
begin
if (FindBitmapToleranceIn(Blurite, x, y, MCX1, MCY1, MCX2, MCY2, 40)) then
begin
MMouse(x, y, 5, 5);
Wait(1000 + random(1000));
if (IsUpTextMulti('lurite', 'urite', 'rite')) then
begin
Mouse(x, y, 3, 3, false);
Wait(2000 + random(1000));
ChooseOption('X');
repeat
Wait(100 + random(100));
until FindBitmapToleranceIn(Enter, x, y, MCX1, MCY1, MCX2, MCY2, 20);
TypeSend('28');
TotalSmelted := TotalSmelted + 28;
end;
end;
end;
2:
begin
if (FindBitmapToleranceIn(Iron, x, y, MCX1, MCY1, MCX2, MCY2, 40)) then
begin
MMouse(x, y, 5, 5);
Wait(1000 + random(1000));
if (IsUpTextMulti('ron', 'Iron', 'on')) then
begin
Mouse(x, y, 3, 3, false);
Wait(2000 + random(1000));
ChooseOption('X');
repeat
Wait(100 + random(100));
until FindBitmapToleranceIn(Enter, x, y, MCX1, MCY1, MCX2, MCY2, 20);
TypeSend('28');
TotalSmelted := TotalSmelted + 28;
end;
end;
end;
3:
begin
if (FindBitmapToleranceIn(Silver, x, y, MCX1, MCY1, MCX2, MCY2, 40)) then
begin
MMouse(x, y, 5, 5);
Wait(1000 + random(1000));
if (IsUpTextMulti('ilver', 'lver', 'ver')) then
begin
Mouse(x, y, 3, 3, false);
Wait(2000 + random(1000));
ChooseOption('X');
repeat
Wait(100 + random(100));
until FindBitmapToleranceIn(Enter, x, y, MCX1, MCY1, MCX2, MCY2, 20);
TypeSend('28');
TotalSmelted := TotalSmelted + 28;
end;
end;
end;
4:
begin
if (FindBitmapToleranceIn(Steel, x, y, MCX1, MCY1, MCX2, MCY2, 40)) then
begin
MMouse(x, y, 5, 5);
Wait(1000 + random(1000));
if (IsUpTextMulti('teel', 'eel', 'el')) then
begin
Mouse(x, y, 3, 3, false);
Wait(2000 + random(1000));
ChooseOption('X');
repeat
Wait(100 + random(100));
until FindBitmapToleranceIn(Enter, x, y, MCX1, MCY1, MCX2, MCY2, 20);
TypeSend('9');
TotalSmelted := TotalSmelted + 9;
end;
end;
end;
5:
begin
if (FindBitmapToleranceIn(Gold, x, y, MCX1, MCY1, MCX2, MCY2, 40)) then
begin
MMouse(x, y, 5, 5);
Wait(1000 + random(1000));
if (IsUpTextMulti('old', 'Gold', 'ld')) then
begin
Mouse(x, y, 3, 3, false);
Wait(2000 + random(1000));
ChooseOption('X');
repeat
Wait(100 + random(100));
until FindBitmapToleranceIn(Enter, x, y, MCX1, MCY1, MCX2, MCY2, 20);
TypeSend('28');
TotalSmelted := TotalSmelted + 28;
end;
end;
end;
6:
begin
if (FindBitmapToleranceIn(Mith, x, y, MCX1, MCY1, MCX2, MCY2, 40)) then
begin
MMouse(x, y, 5, 5);
Wait(1000 + random(1000));
if (IsUpTextMulti('ithril', 'thril', 'hril')) then
begin
Mouse(x, y, 3, 3, false);
Wait(2000 + random(1000));
ChooseOption('X');
repeat
Wait(100 + random(100));
until FindBitmapToleranceIn(Enter, x, y, MCX1, MCY1, MCX2, MCY2, 20);
TypeSend('5');
TotalSmelted := TotalSmelted + 5;
end;
end;
end;
7:
begin
if (FindBitmapToleranceIn(Addy, x, y, MCX1, MCY1, MCX2, MCY2, 40)) then
begin
MMouse(x, y, 5, 5);
Wait(1000 + random(1000));
if (IsUpTextMulti('damant', 'amant', 'mant')) then
begin
Mouse(x, y, 3, 3, false);
Wait(2000 + random(1000));
ChooseOption('X');
repeat
Wait(100 + random(100));
until FindBitmapToleranceIn(Enter, x, y, MCX1, MCY1, MCX2, MCY2, 20);
TypeSend('4');
TotalSmelted := TotalSmelted + 4;
end;
end;
end;
8:
begin
if (FindBitmapToleranceIn(Rune, x, y, MCX1, MCY1, MCX2, MCY2, 40)) then
begin
MMouse(x, y, 5, 5);
Wait(1000 + random(1000));
if (IsUpTextMulti('une', 'Rune', 'ne')) then
begin
Mouse(x, y, 3, 3, false);
Wait(2000 + random(1000));
ChooseOption('X');
repeat
Wait(100 + random(100));
until FindBitmapToleranceIn(Enter, x, y, MCX1, MCY1, MCX2, MCY2, 20);
TypeSend('3');
TotalSmelted := TotalSmelted + 3;
end;
end;
end;
end;
end;