SRL Archive - Archive

How Long have You Played Runescape?
I never play rs before or now

Are you affilated in anyway with Jagex LTD?
no

Were you Referred to SRL?
I don't know because im new to simba forum


What is your general programming knowledge?
pretty much writing rsps simba scripts


Are you a member of any other communities?
emps-scape


Tell us about yourself…

From: xathao
My name is xathao.
i'm born in thailand, now live in the U.S.A
I spoke 3 languages
-thia
-hmong
-english
i play rsps server only.

Please show us one (or multiple) of your scripts.

[code]
program SuperHeater;
      {$I SRL/SRL.simba}
var
Oretype, OreRepeat, BarsMade, AmountOfBars, Failed: Integer;
KindOfBars: String;
Debug: Boolean;

Procedure SetUp;

begin
OreType:=(2); //0 for mith, 1 for addy, 2 for rune.
Debug:=(false);
end;

Procedure BotInfo;
var
Second, Minute, Hour, Skip: integer;
begin
Second:=(gettimerunning)/1000;
Minute:=(Second)*1000/60000;
Hour:=(Minute)*60000/3600000;
Repeat
If Minute>60 then
Minute:=Minute-60;
Skip:=Skip+1;
Until(Minute<60) or (Skip>=150);
Skip:=0;
WriteLn('             +------------------------------------------------------------------------------------+');
WriteLn('');
WriteLn('                                Bot has been running for '+ IntToStr(Hour)+' Hour(s) and '+ IntToStr(Minute)+' Minute(s)');
WriteLn('                                Bot has made '+ IntToStr(AmountOfBars)+ (KindOfBars)+' bars at a rate of '+ IntToStr((AmountOfBars)/(Hour+1))+' per Hour');
WriteLn('');
WriteLn('             +------------------------------------------------------------------------------------+');
end;



function CloseBankWindow: Boolean;
var
  CloseBankWin, x, y : Integer;

begin
   Wait(300 + random(200));
   CloseBankWin := BitmapFromString(10, 9, 'beNpzMHGzNcKKPO' +
       'yMGxoacEnhkoVIwWUbwABNCiILEWdgYIAwMGWR1WDKMsAAshQQeTq' +
       'YwO0FAmRxCII4Bq4dLg5CADx4SCY=');
  if FindBitmapToleranceIn(CloseBankWin,  x, y, 0, 0, 799, 599, 15) then
  begin
    If Debug then
    Writeln('bank quickly found!');
    MMouse(x, y, 4, 4);
      begin
      Mouse(x, y, 0, 0, True);
      Result := True;
    end
  end else
    If Debug then
    Writeln('Couldn''t find bank quickly');
  FreeBitmap(CloseBankWin);
end;

function BankUpText: Boolean;
var
  LastGem, x, y : Integer;
  a : Extended;

begin
  LastGem := BitmapFromString(64, 6, 'meJxtk+tugkAQhU28/mhUKCBuUUx' +
        'qfP83KSqmsaJUtFr0JfrtjkW8TObHMpezZ84s68TaZe7PvrfP3ErJ' +
        'tltnnVjbrYuTLeLfqTOb1X1fUb+7bSkbZbQnq065Jk1tevEsc8neX' +
        'qfRkqTDvXc4dJEyTC4p+MznjXncPB4VBa7jKaWm0xpeBpxGOtLzfH' +
        '2IakUcAsQPh3441PZI/mvZxm3bphfkIAgu/De2wawTAySKqhLfbCx' +
        'SVrf7ajtkSUmcGXHf92GIk/UcjzjjUCO3azJRDaEYBEBApBeJ+IQA' +
        'vvx8gTDtEhcNYdVX6qn4q1WbAs/z7uKQJP4WBKxPOAAuPMEXbqyAE' +
        'SSOiYYEwbzRdlqT2zlTDO3ooyrgxV3wF860cxY+LFH055an5DHWSg' +
        '36P/KnET0r5i1xFrlEEz4ZZJNYDCKziIEDDRHtgpPqPbqmxgCqgpj' +
        '6l1Q4C39gOUsZa6KFXhAKwEf+vE/Hce7iorNoK29pNBpx/s0D6sPh' +
        'yPgwfPYm92bGQn/5BznrH2HeOJ8GvOdiKM1/pfkLB/6X673pdS/UF' +
        '2/4zoyedZaODmX9ib+Px5xPp0EctyaTiaQWi1YcN6FxPoV5fnkDx4' +
        'NitDwfUIwmY9MoJn8rg/wBAqlBnw==');
  if FindDeformedBitmapToleranceIn(LastGem, X, Y, 0, 0, 126, 17, 0, 0, true, a) then
  begin
    If Debug then
    Writeln('Found Bank Uptext!');
      begin
      Result := True;
    end
  end else
    If Debug then
    Writeln('Couldn''t find the Bank UpText');
  FreeBitmap(LastGem);
end;

function FindChest: Boolean;
var
  x, y : Integer;
begin
  Wait(100 + random(100))
  x := MSCX;
  y := MSCY;
  if (FindColorSpiralTolerance(x, y, 2899024, 330, 220, 799, 599, 1)) or
  (FindColorSpiralTolerance(x, y, 4479092, 330, 220, 799, 599, 5)) then
  begin
    If Debug then
    Writeln('Bank Chest');
    MMouse(x, y, 4, 4);
    begin
      If BankUpText then
      begin
      Mouse(x, y, 0, 0, true);
      Wait(500);
      Result := True;
      end
    end
  end else
    If Debug then
    Writeln('Couldn''t find the chest');
end;

function FindChest2: Boolean;
var
  x, y : Integer;
begin
  Wait(100 + random(100))
  x := MSCX;
  y := MSCY;
  if (FindColorSpiralTolerance(x, y, 2699336, 330, 220, 799, 599, 1)) or
  (FindColorSpiralTolerance(x, y, 4479092, 330, 220, 799, 599, 5)) then

  begin
    If Debug then
    Writeln('Bank Chest');
    MMouse(x, y, 4, 4);
    Wait(100 + Random(100));
    begin
      If BankUpText then
      begin
      Mouse(x, y, 0, 0, false);
      Result := True;
      end
    end
  end else
    If Debug then
    Writeln('Couldn''t find the chest');
end;

function UseBank: Boolean;
var
  yellow, rade, x, y : Integer;

begin
  Wait(200 + random(200));
  rade := BitmapFromString(26, 6, 'meJxzD4n9jwrcQ2IhCKsgMvr/nwE' +
        'ZAQFEMQMqgBsF4eIyEG4IWA0I4XID3DQ0NlbT4GyIOKYb0LwPdzMx' +
        'puFxD7L3CZqGxw24YgdPLAAAEOTwcQ==');
  yellow := BitmapFromString(26, 6, 'meJxzD4ll+PQfGbmHxEIQVkFk9P8' +
        '/AzICAYh6VIAwigGhBpdpEABh43ID3DQ0NlbT4GyoXgw3oHkf7mZi' +
        'TMPjHmTvEzQNjxtwxQ6eWAAAVC7CYQ==');

  if (FindBitmapToleranceIn(rade, x, y, 0, 0, 799, 599, 50)) or
     (FindBitmapToleranceIn(yellow, x, y, 0, 0, 799, 599, 50)) then
  begin
    Wait (100 + random(100));
    If Debug then
    Writeln('Found bank!');
    MMouse(x, y, 4, 4);
      begin
      Mouse(x, y, 0, 0, true);
      Result := True;
    end
      Writeln('');
  end else
    If Debug then
    Writeln('Couldn''t find the usebank  bitmap');
  FreeBitmap(rade);
  FreeBitmap(yellow);
end;

function BankOfEmps: Boolean;
var
  LastGem, x, y : Integer;

begin
  LastGem := BitmapFromString(39, 6, 'meJyTn/FffsZ/BgYGeTDD2M4DGZk' +
        '4eAIRRAqCICLI4kC9QDYDGGDK4tIFRxCNaPYiS6GZgGwpJkLWCFdD' +
        'jI3IlqLZgssj+J2EZilm2OK3FM0vZFiKK06JtJQ8n0ICFr+9mP4ix' +
        'lK0WIAwANpB7No=');
  if FindBitmapToleranceIn(LastGem, x, y, 0, 0, 480, 107, 15) then
  begin
    If Debug then
    Writeln('Found BankOfEmps bitmap!');
      begin
      Result := True;
    end
  end else
    If Debug then
    Writeln('Couldn''t find the BankOfEmps bitmap');
  FreeBitmap(LastGem);
end;
Function SayHi: Boolean;
begin
Typesend ('hi and bye');
end;

Function AllBars: Boolean;

var
  Bars, x, y: integer;

begin
  Bars := DTMFromString('m6wAAAHic42ZgYDjOxMBwFIhPAvEVKD4NxEeAeCcU7wfi80Asx8jAIALFkkAsC8RqQKwBxCpArADEUkCsBMQBOeVA0xmJwv+JVkkaRgIAHSAMVA==');
  If FindDTM(Bars, x, y, 595, 259, 783, 518) then
    begin
      Mouse(x, y, 3, 3, false);
      Result:=True;
    end else
  FreeDtm(Bars);
end;

function ClickAll: Boolean;
var
  WithdrawAll, x, y : Integer;

begin
  Wait(50 + random(100));
  WithdrawAll := BitmapFromString(15, 5, 'meJz7/x8EGBgY3ENigeg/EheTjRX' +
        'gV8wAA0QqJt4ZRCoGAMbRkAA=');
  if FindBitmapToleranceIn(WithdrawAll, x, y, 0, 0, 799, 599, 25) then
  begin
    If Debug then
    Writeln('Found ClickAll bitmap!');
    MMouse(x, y, 4, 4);
      begin
      Mouse(x, y, 0, 0, True);//No randomness is needed because the mouse is already on the object.
      Result := True;
    end
      If Debug then
  end else
    if Debug then
    Writeln('Couldn''t find the ClickAll bitmap');
  FreeBitmap(WithdrawAll);
end;

function ClickOne: Boolean;
var
  WithdrawAll, x, y : Integer;

begin
  Wait(50 + random(100));
  WithdrawAll := BitmapFromString(9, 5, 'meJxzD4l1D4n9DwYMDAzuYC4yoqLU' +
        'fwwAlwIApVBD/w==');
  if FindBitmapToleranceIn(WithdrawAll, x, y, 0, 0, 799, 599, 15) then
  begin
    If Debug then
    Writeln('Found ClickOne bitmap!');
    MMouse(x, y, 4, 4);
      begin
      Mouse(x, y, 0, 0, True);
      Result := True;
    end
      If Debug then
  end else
    if Debug then
    Writeln('Couldn''t find the ClickOne bitmap');
  FreeBitmap(WithdrawAll);
end;

function ClickX: Boolean;
var
  WithdrawAll, x, y : Integer;

begin
  Wait(50 + random(100));
  WithdrawAll := BitmapFromString(6, 10, 'meJz7/x8E3ENigeg/EmBgYICL4JF' +
        'CFoELMoABmhqsViCrJ8YKCBsApFl9Lw==');
  if FindBitmapToleranceIn(WithdrawAll, x, y, 0, 0, 799, 599, 15) then
  begin
    If Debug then
    Writeln('Found ClickX bitmap!');
    MMouse(x, y, 4, 4);
      begin
      Mouse(x, y, 0, 0, True);
      Result := True;
    end
      If Debug then
  end else
    if Debug then
    Writeln('Couldn''t find the ClickX bitmap');
  FreeBitmap(WithdrawAll);
end;

function WithdrawOres: Boolean;
var
  Mith, Addy, Rune, x, y : Integer;

begin
  if OreType=0 then
  begin
    Mith := BitmapFromString(5, 5, 'meJzzNjHyNDKIc3VO9fRIcnH2MjYE' +
        'okgHu0RXlxQ31xBb6yhnx0QPtzQvz2xfH3cDvQRP9zRf72x/v4KgQ' +
        'EUujiBry3g3lwwf78LgIAAdHhVp');
    Wait(500);
    if FindBitmapToleranceIn(Mith, x, y, 0, 0, 587, 430, 35) then
  begin
    if Debug then
    Writeln('Found Mith Ore bitmap!');
    MMouse(x, y, 4, 4);
      begin
      Mouse(x, y, 0, 0, False);
      Result := True;
      end
    FreeBitmap(Mith);
  end
  end else
  if OreType=1 then
  begin
    Addy := BitmapFromString(5, 5, 'meJwzc7E0dTZ3CXLzifH2ifM1c7E0' +
        'd7W093V0DXXxjvVx8HP2CPNyD/X0jPQISAo0sDP2iwkAIv94v9D0M' +
        'BYhdgc/J68IHyA3IisSABiEFVA=');
    Wait(500);
    if FindBitmapToleranceIn(Addy, x, y, 0, 0, 587, 430, 35) then
  begin
    if Debug then
    Writeln('Found Addy Ore bitmap!');
    MMouse(x, y, 4, 4);
      begin
      Mouse(x, y, 0, 0, False);
      Result := True;
      end
    FreeBitmap(Addy);
  end
  end else
  if OreType=2 then
  begin
    Rune := BitmapFromString(5, 5, 'meJzzczcO8bVMjXVLT3DPT/EM9rEI' +
        '8jaPCbFNi3cryfRLiHQFouRol/wM/9qicD9344xE39xUv9K80Maya' +
        'GkRhvgIl/z0gMKswPqSSACrbRld');
    Wait(500);
    if FindBitmapToleranceIn(Rune, x, y, 0, 0, 587, 430, 40) then
  begin
    if Debug then
    Writeln('Found Rune Ore bitmap!');
    MMouse(x, y, 4, 4);
      begin
      Mouse(x, y, 0, 0, False);
      Result := True;
      end
      FreeBitmap(Rune);
  end
  end else
    if Debug then
    Writeln('Couldn''t find the Ore bitmap');
end;

function ClickOresInv: Boolean;
var
  Mith, Addy, Rune, x, y : Integer;

begin
  if OreType=0 then
  begin
    Mith := BitmapFromString(5, 5, 'meJzzNjHyNDKIc3VO9fRIcnH2MjYE' +
        'okgHu0RXlxQ31xBb6yhnx0QPtzQvz2xfH3cDvQRP9zRf72x/v4KgQ' +
        'EUujiBry3g3lwwf78LgIAAdHhVp');
    Wait(500);
    if FindBitmapToleranceIn(Mith, x, y, 596, 260, 785, 518, 35) then
  begin
    if Debug then
    Writeln('Found Mith Ore bitmap!');
    MMouse(x, y, 4, 4);
      begin
      Mouse(x, y, 0, 0, True);
      Result := True;
      end
    FreeBitmap(Mith);
  end
  end else
  if OreType=1 then
  begin
    Addy := BitmapFromString(5, 5, 'meJwzc7E0dTZ3CXLzifH2ifM1c7E0' +
        'd7W093V0DXXxjvVx8HP2CPNyD/X0jPQISAo0sDP2iwkAIv94v9D0M' +
        'BYhdgc/J68IHyA3IisSABiEFVA=');
    Wait(500);
    if FindBitmapToleranceIn(Addy, x, y, 596, 260, 785, 518, 35) then
  begin
    if Debug then
    Writeln('Found Addy Ore bitmap!');
    MMouse(x, y, 4, 4);
      begin
      Mouse(x, y, 0, 0, True);
      Result := True;
      end
    FreeBitmap(Addy);
  end
  end else
  if OreType=2 then
  begin
    Rune := BitmapFromString(5, 5, 'meJzzczcO8bVMjXVLT3DPT/EM9rEI' +
        '8jaPCbFNi3cryfRLiHQFouRol/wM/9qicD9344xE39xUv9K80Maya' +
        'GkRhvgIl/z0gMKswPqSSACrbRld');
    Wait(500);
    if FindBitmapToleranceIn(Rune, x, y, 596, 260, 785, 518, 40) then
  begin
    if Debug then
    Writeln('Found Rune Ore bitmap!');
    MMouse(x, y, 4, 4);
      begin
      Mouse(x, y, 0, 0, True);
      Result := True;
      end
      FreeBitmap(Rune);
  end
  end else
    if Debug then
    Writeln('Couldn''t find the Ore bitmap');
end;

function WithdrawCoal: Boolean;
var
  CutSapp, x, y : Integer;

begin
  CutSapp := BitmapFromString(5, 6, 'meJwTkZGR0tSU19VVNDYGkuLKynAu' +
        'EMG5qmYWQASXArLVra2BbGQuIwMDhA3hAgB5MA56');
  if FindBitmapToleranceIn(CutSapp, x, y, 0, 0, 587, 430, 25) then
  begin;
    If Debug then
    Writeln('Found Coal bitmap!');
    MMouse(x, y, 4, 4);
      begin
      Mouse(x, y, 0, 0, false);
      Result := True;
    end
  end else
    If Debug then
    Writeln('Couldn''t find the Coal bitmap');
  FreeBitmap(CutSapp);
end;

Function Magebook: Boolean;
begin
      Mouse(833, 526, 2, 2, true);
      result := True;
   end ;

function SuperHeatIcon: Boolean;
var
  CloseBankWin, x, y : Integer;

begin
   CloseBankWin := BitmapFromString(4, 4, 'meJxjmviDufAtEDFN/CEa+QuOGJjP' +
        'MbF8BSIQQ2ADHAEA7M0SGQ==');
  if FindBitmapToleranceIn(CloseBankWin,  x, y, 596, 260, 783, 521, 20) then
  begin
    If Debug then
    Writeln('Super Heat found!');
    MMouse(x, y, 4, 4);
      begin
      Mouse(x, y, 0, 0, True);
      Result := True;
    end
  end else
    If Debug then
    Writeln('Couldn''t find SuperHeat');
  FreeBitmap(CloseBankWin);
end;
function RestoreRuneores: Boolean;
var
  x, y : Integer;
begin
  x := MSCX;
  y := MSCY;
  if FindColorSpiralTolerance(x, y, 7694928, 596, 259, 784, 517, 5) then
  begin
    Writeln('Found rune ores, restored');
    MMouse(x, y, 4, 4);
    Wait(100 + Random(100));
    begin
      Mouse(x, y, 0, 0, false);
      Result := True;
    end
  end else
    Writeln('Couldn''t find the color of the runes ores.');
end;
function RestoreCoals: Boolean;
var
  x, y : Integer;
begin
  x := MSCX;
  y := MSCY;
  if FindColorSpiralTolerance(x, y, 4415093, 596, 259, 784, 517, 5) then

  begin
    Writeln('restoring coals ');
    MMouse(x, y, 4, 4);
    Wait(100 + Random(100));
    begin
      Mouse(x, y, 0, 0, false);
      Result := True;
    end
  end else
    Writeln('Couldn''t find the color of the coal.');
end;

function DropCoal: Boolean;
var
  LastGem, x, y : Integer;

begin
  LastGem := BitmapFromString(57, 13, 'meJzVVEEOwCAI83d+YNf9/xnuYC' +
        'SdUEacLpN4UMagtGg+zrzVKs3+UBc93dd6TCk5MetwdnXRz/b1KBu' +
        'MWYoTy/lQGYGfQQ0yaY4Hekxphp0sv1gEqkaLAulR0XoVpaaOZAMg' +
        'YUGozsAENXpUc8oARErEs5W7YRdvoAqTTMRhqAls1rVi7YvfpMt/1' +
        'jpiZ0HN7TnV7Wu/yZX/LyPWScL2u6wLVPbrFg==');
  if FindBitmapToleranceIn(LastGem, x, y, 0, 0, 799, 599, 15) then
  begin
    Writeln('Found drop bitmap!');
      begin
      Mouse(x, y, 3, 3, true);
      Result := True;
    end
  end else
    Writeln('Couldn''t find the drop bitmap');
  FreeBitmap(LastGem);
end;
Function LogOutt: Boolean;
begin
 Mouse(732, 566, 2, 2, true);
   begin
      Wait(600);
      Mouse(744, 417, 2, 2, true);
      result := True;
   end
    If Debug then
    WriteLn('Logged Out');
end;

function KillSwitch: Boolean;
var                                 //nicely
  CloseBankWin, x, y : Integer;

begin
   CloseBankWin := BitmapFromString(34, 16, 'meJyNVAFOwzAQ29snqBY6/sHGFj' +
        'bKxjZaQOJh4MStMYmEJp2qa3Jnn++StLvL3fa07D5h7e5Cgx92l8X' +
        'zB9dhzeYEW2Il22L/DhsdfLMhkWEhI9znrPnjaxMHwoIIK/iKhYYV' +
        'GncTUS6AjixMKXB8VyxkF4JYHKeNveSgZi8YiVxRQ+C38cz0tBWHR' +
        'ZcCvmczJjIXv20uydtFojFxKgyL/IVDHO2Sy+Ox60TwXQvD1Bb9Un' +
        '6z7dVbJlLIzcNBgIJ1RXTYCsJ6G7UumWOfY08WDW4cyr8sEqWypcK' +
        'Vcp1+zdLkTtawbZ6LKyUUuwrjlDk+tbpg0YDwTQH5jP1hiWd85+uj' +
        'SIvjwZm6TGIWLGw1/WY6G6mH66NYXNoYObEUgNqtWdz/ZVl1pCikq' +
        'Yc+BbVLwVey1KeaLMFYeFDJq1eonn5RBm4l679ddegYj3qtxbPE5T' +
        'hhitEVc7p0FzLyNaZIshTvmES5OrKEw1ee+8v4vOzfCuTl06Chk8X' +
        'fEEdzE52fatxQEZUWB7+/tVFFSHf/XHSpya8Bpf0ARxXSgA==');
  if FindBitmapToleranceIn(CloseBankWin,  x, y, 5, 439, 511, 558, 30) then
  begin
    If Debug then
    Writeln('Script Terminated!');
      begin
      Logoutt;
      Wait(500);
      Result := True;
    end
  end else
    If Debug then
    Writeln('Couldn''t Terminate');
  FreeBitmap(CloseBankWin);
end;

function KillSwitch1: Boolean;
var                                  //hi
  CloseBankWin, x, y : Integer;

begin
   CloseBankWin := BitmapFromString(23, 17, 'meJyFkuuOglAMhH32TeQi57zG4g' +
        'XwgglywKBP5k4ZqEV/bDIhpbRfp9U4v8WjfPXITiGrWsjVD0heR0X' +
        'FLT2F5DIgiSdekWQNFW9vquzQir4giBVCgQMZSKvyx6dyZBxczZAJ' +
        'O/rUr+SA7w4dZFFQtm2i30bNcPQbdezVDLdLdgHyZY8nl3qtVrogY' +
        'nJS40dsjBw9UbLvXNG7fdiUfbxrIYHM10bsioUTdk1bGMjEKXq6Qu' +
        'PoSvZCvCm6KG9wgaQePLrqwZ073VHyl0FvxUNBaGTAGC2aBMSP55X' +
        'p9aD29M4WYqV5ys8npfAVmZ9DY5PWCQoYo4YBXX1DEKzzix2njQph' +
        'Uv6E544baTEPFZXtWxayv35AOFfNEPUByarAQOrLzyMrJDUQHhlYT' +
        'IQsSuqRlHXCBJzJyHAjctJ5OyUwUD//Siv99cnedV7rV8WK82WjO9' +
        '4ZJLJIYCAt+ImXlcjYBReq7t/10B/fe9pa');
  if FindBitmapToleranceIn(CloseBankWin,  x, y, 5, 439, 511, 558, 30) then
  begin
    If Debug then
    Writeln('Script Terminated!');
      begin
      SayHi;
      Wait(500);
      Result := True;
    end
  end else
    If Debug then
    Writeln('Couldn''t Terminate');
  FreeBitmap(CloseBankWin);
end;
function KillSwitch2: Boolean;
var                                  //bye
  CloseBankWin, x, y : Integer;

begin
   CloseBankWin := BitmapFromString(26, 16, 'meJxlkwtuwjAQRLl4JJSSD+EYlY' +
        'AkgKloDEVJr9aOPWRYOdIo8np3n/cDRTsU7dCcH9C297vrBNGEcK7' +
        'Pj8qNvIeKGC8TLnp5kFdAmPiKRuGGopcpeMiS9ZakSNFsfHN6KkWV' +
        '1DEMibhpIp/6W62sCKxNhWEmEcjWVAAuaeJcz0AQbJ1JbYxng9ZkO' +
        '0UfXtl2HiqOAxRo8UBVeOU4sAWm2/Z1r7KXNIpmE2nUzk0QI0NVvD' +
        'GVc5L5cSg7n5uSiA37nV8R0Jrw4qaKYTg0/Y9cuREjWeH6cFvWaWk' +
        'Sn7YFkJYdbuVMU2IYV8x6TxVDcxO/icsq23+RFuCthwS0LVuOaGFu' +
        '/X250xeNaj1iNobG1lRwFf993EI+M6FkrW9v55FSu4lmNXM0PS6ar' +
        'WmzyTqWO7KR9fUXBeD7kps+Pi9KIRZCUwkBP4CXy42kbdRX6zduIt' +
        'DOf72/CZiqe2aHby6Fe0lUne7lZfwHvgMJeQ==');
  if FindBitmapToleranceIn(CloseBankWin,  x, y, 5, 439, 511, 558, 30) then
  begin
    If Debug then
    Writeln('Script Terminated!');
      begin
      LogOutt;
      Wait(500);
      Result := True;
    end
  end else
    If Debug then
    Writeln('Couldn''t Terminate');
  FreeBitmap(CloseBankWin);
end;

Function OresToWithdraw: Boolean;

begin
  Wait(500);
  If OreType=0 then
    begin
    TypeSend('9');
    OreRepeat:=9;
    Result:=True;
    end else
  If OreType=1 then
    begin
    TypeSend('6');
    OreRepeat:=6;
    Result:=True;
    end else
  If OreType=2 then
    begin
    TypeSend('5');
    OreRepeat:=5;
    Result:=True;
    end
end;

Procedure Intro;
begin
WriteLn('   _____. __    __  .______    _______ .______      __    __   _______     ___   ._________.  _______ .______  ');
WriteLn('  /     ||  |  |  | |   _  \  |   ____||   _  \    |  |  |  | |   ____|   /   \  |         | |   ____||   _  \ ');
WriteLn(' |   (--`|  |  |  | |  |_)  | |  |__   |  |_)  |   |  |__|  | |  |__     /  ^  \ `--|  |--`  |  |__   |  |_)  |');
WriteLn('  \   \  |  |  |  | |   ___/  |   __|  |      /    |   __   | |   __|   /  /_\  \   |  |     |   __|  |      / ');
WriteLn('.--)   | |  `--   | |  |      |  |____ |  |\  \.   |  |  |  | |  |____ /  _____  \  |  |     |  |____ |  |\  \.');
WriteLn('|_____/   \______/  | _|      |_______|| _| `._|   |__|  |__| |_______/__/     \__\ |__|     |_______|| _| `._|');
WriteLn('                                                                                                               ');
WriteLn('                                             .______   ____    ____                                            ');
WriteLn('                                             |   _  \  \   \  /   /                                            ');
WriteLn('                                             |  |_)  |  \   \/   /                                             ');
WriteLn('                                             |   _  <    \_    _/                                              ');
WriteLn('                                             |  |_)  |     |  |                                                ');
WriteLn('                                             |______/      |__|                                                ');
WriteLn('                                                                                                               ');
WriteLn('                                       ______        ______           ___                                      ');
WriteLn('                                       \     \      /     /          /   \                                     ');
WriteLn('                                        \     \    /     /          /     \                                    ');
WriteLn('                                         \     \  /     /          /       \                                   ');
WriteLn('                                          \     \/     /          /    _    \                                  ');
WriteLn('                                          |            |         /    / \    \                                 ');
WriteLn('                                          /     / \     \       /    /___\    \                                ');
WriteLn('                                         /     /   \     \     /               \                               ');
WriteLn('                                        /     /     \     \   /      /----\     \                              ');
WriteLn('                                       /_____/       \_____\ /______/      \_____\                             ');

end;
begin
ClearDebug;
SetupSRL;
SetUp;
If OreType=0 then
KindOfBars:=(' Mith');
If OreType=1 then
KindOfBars:=(' Addy');
If OreType=2 then
KindOfBars:=(' Rune');
ActivateClient;
Repeat
Intro;
BotInfo;
If KillSwitch then
TerminateScript;
Repeat
if FindChest then
Wait(600);
Failed:=Failed+1;
Until(BankOfEmps) or (Failed>=10);
Failed:=0;
Repeat
AllBars;
Wait(200);
ClickAll;
Failed:=Failed+1;
Until not (AllBars) or (Failed>=15);
Failed:=0;
Repeat
if RestoreRuneores
then dropcoal;
if RestoreCoals then
dropcoal;
WithdrawOres;
ClickX;
Failed:=Failed+1;
Until(OresToWithdraw) or (Failed>=10);
Failed:=0;
WithdrawCoal;
ClickAll;
CloseBankWindow;
If KillSwitch then
TerminateScript;
KillSwitch1;
MageBook;
If KillSwitch2 then
TerminateScript;
Wait(700);
Repeat
SuperHeatIcon;
Wait(500);
ClickOresInv;
Wait(800);
BarsMade:=BarsMade+1;
Failed:=Failed+1;
Until (BarsMade>=OreRepeat) or (Failed>=25);
Failed:=0;
AmountOfBars:=AmountOfBars+BarsMade;
BarsMade:=0;
If not Debug then
ClearDebug;
Until(false);
end.

[code]

You need to fix your standards, friend.

Sorry its a No from me. Relying on bitmaps to much, also activity is a bit low. Keep trying!

Ahh the standards! They hurt!
Why do they swap from good to completely non-existent in parts of your script?
You seem to be using Bitmaps for almost everything, try diversifying, know how to use DTMs, use them ;)
As far as using colours to find things, try taking a look at MasterBB's CTS colour finding tutorial, it helped me out a fair bit the first time I took a look.

The script also has fairly basic function, does not require any walking or any particularly tricky functions. It's a good start, work on your scripting a bit more, work on your activity in the community and I'm sure you'll get there :)

~Caotom

thanks all, i will do my best here to be a srl membership


as i said i only know how to make scripts on rsps only since i never play rs

and the script above is a superheat script which basically sit at bank and open the bank take out stuffs and superheat the ores
and yes, i will keep on learning how to write better scripts and active on my account here

before, i just go to some sections and start learning how to write simba scripts
which basically take me to a higher lvl and i enjoy that and i still have a long way to learn.

ps.
i should have make this account b4 and active on it as much as i had learned to write scripts here

No for me because it don't seem you are here for the community and the scripting.
Like said before, try to use different methods of finding items, not only bitmaps.
Low post count, low activity, only joined the last half year.
You should try to contribute little more even you are not a member yet.

You should try to learn to use TPAs and DTMs, and be more active in the community. You have a promising script there though.

Yeah sort your standards mate.
There are DTM's in there, no TPA's tho.
You haven't got a declare players either, which personally I say you need to have so you can use multiple account. Also steel and iron support should be added to in my eyes :p

This is a simple script to but a good start, it's a no from me this time but work hard and take in what everyone says and the next time you apply you might be more successful. Good luck :)

~Jakkle

You must realise that the SRL Member rank is more of a community rank than you might think. That is probably also the reason for your unsuccesful poll. If you wish to be become a SRL Member you have to be active in the community!

I would like to see walking of some sort. Also, I would like to see your name around the forums more. THIS DOES NOT MEAN YOU SHOULD GET DISCOURAGED!!! I look forward to seeing some of your future scripts!

From: xathao
thanks all, i will do my best here to be a srl membership

That's the spirit! You may try again in two weeks.