SCAR Code:
program AlKharidSmelter;
{.include srl/srl.scar}
Var
x, y: integer;
Procedure Walk;
begin
If FindSymbol(x, y, 'Furnace') Then
begin
mouse(x, y, 2, 2, true);
end else
If RadialWalk(6134947 , 26, 37, 72, -2, 1) Then
begin
If FindSymbol(x, y, 'Furnace') Then
begin
mouse(x, y, 2, 2, true);
end else
RadialWalk( 6657713 , 345, 355, 38, -2, 1);
end else
WriteLn('Could not find Sand Color, nor was the Furnace symbol visible!');
end;
Procedure OpenWithdraw;
Begin
OpenBankFast('akb')
End;
Procedure SmeltBars;
Var
BarSmelt, Furnace : Integer;
Begin
BarSmelt := DTMFromString('78DA639CC5C0C0309391011904F9F830B0026' +
'990E87F20609C03644CC254C3005503A6270189F9A86ACC8C8C50' +
'D52CC1B42B25361655CD6C20B108BF39003FB30E43');
Furnace := DTMFromString('78DA633CC7C0C0309D010598191931F003694' +
'620FE0F048CAF808C7254355AEAEA609A11CA67DC03240A50D5D8' +
'5A5AA2AAD90024B6A2AA7173724455F314481CC3740FB21A00293' +
'20E3C');
If Finddtm(Furnace,x, y, MSX1, MSY1, MSX2, MSY2) Then
Begin
Mmouse(x, y, 3, 3);
Wait(250 + random(500));
If IsUpText('melt') Then
Begin
Wait(250 + random(500));
Mouse(x, y, 0, 0, true);
If Finddtm(BarSmelt,x, y, MCX1, MCY1, MCX2, MCY2) then
Mmouse(x, y, 3, 3);
If IsUpText('melt') Then
Begin
Mouse(x, y, 0, 0, false);
ChooseOption('melt X');
Wait(1000);
TypeSend('28');
FreeDtm(BarSmelt);
FreeDtm(Furnace);
End;
End;
End;
End;
begin
ActivateClient;
Wait(1000);
Setupsrl;
SmeltBars;
end.