SCAR Code:
program new;
{.include srl/srl.scar}
var
i, x, wit, smith, y, coal, coalbnk, steelbar, iron:integer;
const
LampLevel= 'smithing'; //Set the skill you want a lamp to do.
furnaceshopfloorcolor=7311300;//you may need to do this every time
bankfloorcolor=6454700;//same as above
procedure loadbitmap;
begin
wit := BitmapFromString(134, 132, 'beNrt1DEOgCAMBVBv' +
'5wVcvf8xdGOA2iCLou/FoVYiSb+4LIl9W0tR6vZp1QwXh+uTNyS3R' +
'yPctDTDXSZVjaJn7Fdzbvv92SUB5f0/JzJQD2RaffnVdevAzjL2Bx' +
'O5qgcS6TlTL09k7H9+dwhhIp1b/yoRAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL7vBM+giRc=' +
'');
coalbnk := BitmapFromString(84, 64, 'beNrt0c0KAVEAhuHjIiwsRDLN' +
'ggVmyPhJRDIlpUSIkBKllFJWsnLZvjo1Gzdg6n06TV9n954xplXOL' +
'YaVVejvJ/XjtHFddvTVNibheZ6+mUyyVMpW/bxOoZDWTcMv2qN9W3' +
'efh8H7HH6uYxM3Xd9R+HZcU+9l3r5veqdZU/lRu+OkovYgcLWjfA2' +
'91WPXj2n7oO7acCVHP1H7t13h9mjr3r6AHa/TKI7tAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAP7RF8AdMGA=');
smith := BitmapFromString(134, 132, 'beNrt10EKgCAQQNG5XRdo2/2PU' +
'aEgQ9FWJ3gPF7rt02QRx77d62ze+76CiXKFfsx7RVYVGSFGDkWqFT' +
'G1lhfJ80qRau9IzqGIqaXIY165/br9osgvviP56H+kyO33a3lKAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAMAMF9WTxs8=');
end;
Procedure Randoms;
begin
if (not(loggedin)) then exit;
If(FindFight)then
RunAway('N', True,1,15000);
FindNormalRandoms;
FindLamp((LampLevel));
SolveNonTalkingRandoms;
nogametablocs;
end;
procedure declareplayers;
Begin
HowManyPlayers := 3;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';//user
Players[0].Pass := '';//pass
Players[0].Nick := '';//3-4 letters of name in order except first
Players[0].Active := True;//use this player?
Players[1].Name := 'username';//user
Players[1].Pass := 'password';//pass
Players[1].Nick := 'sern';//3-4 letters of name in order except first
Players[1].Active := True;//use this player?
Players[2].Name := 'username';//user
Players[2].Pass := 'password';//pass
Players[2].Nick := 'sern';//3-4 letters of name in order except first
Players[2].Active := True;//use this player?
End;
procedure antiban;
begin
if (not(loggedin)) then exit;
randoms;
wait(15000+random(4000));
hoverskill('smithing', false);
gametab(4);
end;
procedure loadtms;
begin
coal := DTMFromString('78DA63E4676260C862644006B6369A0C22401' +
'A24FA1F081839806AE250D54064612490FE07646513500332A79C' +
'801A31A09A42026AA4816A3208A89102AA49C0AF060091EF0926');
iron := DTMFromString('78DA638C62626050626440063EFACA601A26C' +
'AE80954A389AA06260B57130C54234E404D12508D24116AB408A8' +
'8900AA31C0AF0600E58903A9');
steelbar := DTMFromString('78DA63D46064607065400113DBDBC1342394C' +
'FA80F643930A001465435BA40960F0135D240961F013512409627' +
'01352A40962D01356A4056107E3500287204B3');
end;
procedure beginning;
begin
cleardebug;
writeln('SSSSSSSS A N N D D OOOOOOO SSSSSSSS');
writeln('S A A N N N D D O O S ');
writeln('SSSSSSSS A A A N N N D D O O SSSSSSSS');
writeln(' S A A A A N N N D D O O S');
writeln('SSSSSSSS A A N N D D OOOOOOO SSSSSSSS');
writeln(' first ever script ® ');
wait(1000);
cleardebug;
end;
procedure open;
begin
if (not(loggedin)) then exit;
begin
openbankfast('akb');
end;
end;
procedure withdrawiron;
begin
if (not(loggedin)) then exit;
begin
makecompass('n');
if (findcolortolerance(x, y, 1910591, msx1, msy1, msx2, msy2, 10)) then
begin
mouse(x,y,3,3,false);
wait(500);
if (findbitmaptolerancein(wit, x, y, msx1, msy1, msx2, msy2, 20)) then
mouse(x,y,3,3,true);
wait(1000);
typesend('9');
end else
closebank;
logout;
exit;
end;
end;
procedure withdrawcoal;
begin
if (not(loggedin)) then exit;
if (findbitmaptolerancein(coalbnk, x, y, msx1, msy1, msx2, msy2, 20)) then
begin
mouse(x,y,3,3,false);
wait(500);
if (findbitmaptolerancein(wit, x, y, msx1, msy1, msx2, msy2, 20)) then
mouse(x,y,3,3,true);
wait(1000);
typesend('18');
closebank;
end else
closebank;
Logout;
Exit;
end;
procedure walktofurnace;
begin
wait(200);
if (not(loggedin)) then exit;
wait(500+random(200));
makecompass('w');
RadialWalk(furnaceshopfloorcolor, 90, 127, 68, -1, 0);
if not(findcolortolerance(x,y,1912725,msx1,msy1,msx2,msy2,20)) then
findsymbol(x, y, 'kebab shop');
mouse(x,y,3,3,true);
wait(20000);
end;
procedure smelt;
begin
if (not(loggedin)) then exit;
begin
if (findcolortolerance(x,y,2039585,msx1,msy1,msx2,msy2,20)) then
begin
mouse(x,y,3,3,true);
wait(200);
if (findcolortolerance(x,y,7303032,msx1,msy1,msx2,msy2,20)) then
mouse(x,y,3,3,false);
if (findbitmaptolerancein(smith,x,y,275,641,615,547,20)) then
wait(200);
mouse(x,y,3,3,true);
wait(300)
typesend('9');
wait(5000);
randoms;
wait(5000);
randoms;
wait(5000);
randoms;
antiban;
wait(5000);
randoms;
wait(5000);
randoms;
wait(5000);
end else
logout;
exit;
end;
end;
procedure walktobank;
begin
if (not(loggedin)) then exit;
wait(500+random(200));
makecompass('w');
RadialWalk(bankfloorcolor, 287, 274, 65, -1, 0);
wait(20000);
end;
begin
setupsrl;
declareplayers;
beginning;
loadtms;
loadbitmap;
activateclient;
wait(1000);
if (not(loggedin)) then
loginplayer;
repeat
randoms;
repeat
open;
withdrawiron;
withdrawcoal;
randoms;
walktofurnace;
randoms;
smelt;
randoms;
walktobank;
until (not(loggedin));
nextplayer(false);
until (AllPlayersInactive);
end.