SRL Archive - Archive

How Long have You Played Runescape?
6 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
Visual Basic, Matlab, and Python.


Are you a member of any other communities?
None


Tell us about yourself…

From: tehq
Hello, my name is Eric and I am 21 years old. I am currently attending a prestigious university in Rhode Island, USA (any guesses?). My interests include, but are not limited to: rowing, computer programming - my minor, and medicine.

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

{I've included two of my scripts to completely demonstrate my current abilities.}

program TehSuperheat;                         {v 1.7 - BSIMTA}     {RELEASE}
{$DEFINE SMART}                               { Changed ore order of withdrawing and superheating location }
{$DEFINE SRL5}                                { Coal bag update. Painted xp on smart  }
{$i SRL/srl.simba}                            {  Post bugs and proggys! }

const

BarType           = 'gold'     ;        { iron, steel, gold, mith, addy, rune or silver ---    EDIT THIS}
BankCol           = 0          ;        { first space in bank, don't touch }
BankRow           = 0          ;
LoadCount         = 1000       ;
BankLoc           = 'sw'       ;        { sw= Soul Wars, vwb= Varrock West Bank,  }
CoalBag           = 'no'       ;        { use coal bag - yes or no.  Only use with steel,mith,addy or rune }
GoldGaunts        = 'yes'      ;        { use goal gauntlets while smithing gold? - yes or no }

var
SuperHeatDTM, sx, sy, count, Magic_XP, Smithing_XP: integer;

procedure DeclarePlayers;

 begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    with Players[0] do
     begin
      Name         := '';
      Pass         := '';
      BoxRewards   := ['XP','xp','lamp'];
      Pin          := '';
      Active       := True;
     end;
 end;

procedure Run;

begin
  Smart_Members := False;
  Smart_Server := 0;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;

  Count:=0;
  Wait(500+Random(200));
  FindNormalRandoms;

end;
 {**************************************************************************
  *                       Procedure by: Flight                             *
  **************************************************************************}
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
  var
    mx, my, Pic, I, B, H, TPH, Numb: Integer;
    TTP: TPointArray;
    Canvas: TCanvas;

  begin
    SmartSetDebug(True);
    GetClientDimensions(mx, my);
    Pic := BitmapFromString(mx, my, '');

    TPH := High(TP);
    for I := 0 to TPH do
    begin

      TTP := LoadTextTPA(TP[i], SmallChars, H);
      for B := 0 to High(TTP) do
      begin

        Numb := ((I + 1) * 13);
        FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
        FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
      end;
    end;
    Canvas := TCANVAS.Create;
    Canvas.Handle := SmartGetDebugDC;
    DrawBitmap(Pic, Canvas, Placement.x, Placement.y);

    FreeBitmap(Pic);

  end;

Procedure OnSmart;

  begin
       PrintOnSmart(['Version: 1.7 by TehQ',''+'Smithing XP Gained: ' +IntToStr(Smithing_XP),'Magic XP Gained: ' +IntToStr(Magic_XP),
    ''+MsToTime(GetTimeRunning, Time_Abbrev)],Point(35,10), 16777215);

  end;

procedure BankDeposit;
  begin if BankScreen then
  case CoalBag of
    'no':
    begin repeat
    Deposit(2, 28, True);
    until (invcount = 1);
    end;

    'yes':
    begin repeat
    Deposit(3, 28, True);
    until (invcount = 2);
    end;
  end;
 end;

procedure MagicTab;

begin
Gametab(tab_magic);
end;


procedure FindHeat;
 var
  Time: Integer;
begin MarkTime(Time);
   repeat
   wait(RandomRange(480,530));
   until (FindDTM(SuperHeatDTM,sx,sy,MIX1,MIY1,MIX2,MIY2)) or((TimeFromMark(Time) > 780));
    if not (FindDTM(SuperHeatDTM,sx,sy,MIX1,MIY1,MIX2,MIY2)) or ((TimeFromMark(Time) > 780)) then begin
      Magictab;
    end;
  Mouse(sx,sy,1,1,true);
end;

procedure GetOres;
begin
      case CoalBag of

         'yes': begin case Bartype of
              'steel' : Withdraw(Bankcol+1,BankRow, 17);
              'mith'  : Withdraw(Bankcol+3,BankRow, 10);
              'addy'  : Withdraw(Bankcol+4,BankRow, 7);
              'rune'  : Withdraw(Bankcol+5,BankRow, 5);
                      end;
                end;

         'no': begin case Bartype of
              'steel': Withdraw(Bankcol+1,Bankrow, 9);
              'mith':  Withdraw(Bankcol+3,Bankrow, 5);
              'addy':  Withdraw(Bankcol+4,Bankrow, 3);
              'rune':  Withdraw(Bankcol+5,Bankrow, 3);
                     end;
                end;
         end;
      Wait(600+Random(200));
      if (invfull) then
      closebank;

      if (not invfull) then begin
      case CoalBag of

      'yes': begin case BarType of
            'iron' : Withdraw(BankCol+1,BankRow,0);
            'steel': Withdraw(BankCol, BankRow, 8);
            'gold' : Withdraw(bankcol+2,BankRow,0);
            'mith' : Withdraw(BankCol,Bankrow, 14);
            'addy' : Withdraw(Bankcol,Bankrow, 16);
            'rune' : Withdraw(BankCol,BankRow, 14);
            'silver': Withdraw(BankCol+6,BankRow, 0);
                   end;
             end;

      'no': begin case BarType of
            'iron' : Withdraw(BankCol+1,BankRow,0);
            'steel': Withdraw(BankCol, BankRow, 0);
            'gold' : Withdraw(bankcol+2,BankRow,0);
            'mith' : Withdraw(BankCol,Bankrow, 20);
            'addy' : Withdraw(Bankcol,Bankrow, 18);
            'rune' : Withdraw(BankCol,BankRow, 0);
            'silver': Withdraw(BankCol+6,BankRow, 0);
                  end;
            end;
      end;

  Wait(400+Random(100));
  closebank;
    end;
  end;

procedure Banking;

begin
  if FindNormalRandoms or not (LoggedIn) then
        Exit;
  repeat
    SetAngle(srl_angle_high);
    Case Bankloc of
    'sw': OpenBankChest(SRL_BANK_SW);
    'vwb': OpenBankFast('vwb')
    end;
    Wait(Random(100));

  until BankScreen or PinScreen;
    if PinScreen then

    begin
      repeat
      InPin(Players[CurrentPlayer].Pin);
      until BankScreen or  (not LoggedIn);
    end;
end;

procedure CoalToBag;                                                      { credits to: noname190 and beezkneez for their work }
 var
 Tries: Integer;                                                         { on this procedure, Couldn't have done it without them }
begin

    Case Coalbag of
      'yes': begin
          repeat
          banking;
          Withdraw(Bankrow, BankCol, 0);
          wait(RandomRange(400,500));
          Mouseitem(2, mouse_right);
          wait(RandomRange(600,800));
          ChooseOption ('ill');
          inc(Tries);
          until (invcount = 2);
          WriteLn('Filled coal bag. It took: ' +IntToStr(Tries) +' Tries');
      end;

    end;
end;

procedure Superheat;
var                                               {no longer clicks magic tab for each ore}
 I :integer;
begin
if FindNormalRandoms or not (LoggedIn) then
        Exit;

SuperHeatDTM := DTMFromString('mbQAAAHicY2VgYJjLxMAwE4inA/EiIF4MxOWMDAxlQFwHxDVAXAnEsoxMDHqMzAx2TMxgGoSxAUYsGAwAHzIGhQ==');

  case BarType of

  'steel':

    case coalbag of
      'no':
      begin
      MagicTab;
       For I:=2 to 10 do
        begin
        FindHeat;
         if ExistsItem(i) then
         Invmouse(i,1);
          if FindBlackChatMessage('uperheat item') then repeat
          Writeln('Can''t superheat that!');
          TerminateScript;
          until (not LoggedIn);
      IncEx(Magic_xp, 53);
      IncEx(Smithing_xp, 17);
        end;
      end;

      'yes':
       begin MagicTab;
       For I:=3 to 19 do
         begin
         Findheat;
         if ExistsItem(i) then
         Invmouse(i,1);
          if FindBlackChatMessage('uperheat item') then repeat
          Writeln('Can''t superheat that!');
          TerminateScript;
          until (not LoggedIn);
      IncEx(Magic_xp, 53);
      IncEx(Smithing_xp, 17);
         end;
       end;
    end;

  'iron':
      begin MagicTab;
        for I:=2 to 28 do
        begin
        FindHeat;
         if ExistsItem(i) then
         Invmouse(i,1);
          if FindBlackChatMessage('uperheat item') then repeat
          Writeln('Can''t superheat that!');
          TerminateScript;
          until (not LoggedIn);
      IncEx(Magic_xp, 53);
      IncEx(Smithing_xp, 12);
        end;
      end;

  'silver':
      begin MagicTab;
        for I:=2 to 28 do
        begin
        FindHeat;
         if ExistsItem(i) then
         Invmouse(i,1);
          if FindBlackChatMessage('uperheat item') then repeat
          Writeln('Can''t superheat that!');
          TerminateScript;
          until (not LoggedIn);
      IncEx(Magic_xp, 53);
      IncEx(Smithing_xp, 14);
        end;
      end;

  'gold':
      begin Magictab;
        for I:=2 to 28 do
        begin
        FindHeat;
         if ExistsItem(i) then
         Invmouse(i,1);
          if FindBlackChatMessage('uperheat item') then repeat
          Writeln('Can''t superheat that!');
          TerminateScript;
          until (not LoggedIn);
      IncEx(Magic_xp, 53);
        case GoldGaunts of
          'no':
          IncEx(Smithing_xp, 22);
          'yes':
          IncEx(Smithing_xp, 56);
        end;
        end;
      end;

  'mith':
     case coalbag of
      'no':
      begin MagicTab;
        for I:=2 to 6 do
        begin
          begin
          FindHeat;
            if ExistsItem(i) then
            Invmouse(i,1);
              if FindBlackChatMessage('uperheat item') then repeat
              Writeln('Can''t superheat that!');
              TerminateScript;
              until (not LoggedIn);
      IncEx(Magic_xp, 53);
      IncEx(Smithing_xp, 30);
          end;
        end;
      end;

      'yes':
      begin MagicTab;
        for I:=3 to 12 do
        begin
          begin
          FindHeat;
            if ExistsItem(i) then
            Invmouse(i,1);
              if FindBlackChatMessage('uperheat item') then repeat
              Writeln('Can''t superheat that!');
              TerminateScript;
              until (not LoggedIn);
      IncEx(Magic_xp, 53);
      IncEx(Smithing_xp, 30);
          end;
        end;
      end;
      end;

  'addy':
      case coalbag of
      'no':
      begin MagicTab;
        for I:=2 to 4 do
        begin
          begin
          FindHeat;
            if ExistsItem(i) then
            Invmouse(i,1);
              if FindBlackChatMessage('uperheat item') then repeat
              Writeln('Can''t superheat that!');
              TerminateScript;
              until (not LoggedIn);
      IncEx(Magic_xp, 53);
      IncEx(Smithing_xp, 37);
          end;
        end;
      end;

      'yes':
      begin MagicTab;
        for I:=3 to 9 do
        begin
          begin
          FindHeat;
            if ExistsItem(i) then
            Invmouse(i,1);
              if FindBlackChatMessage('uperheat item') then repeat
              Writeln('Can''t superheat that!');
              TerminateScript;
              until (not LoggedIn);
      IncEx(Magic_xp, 53);
      IncEx(Smithing_xp, 37);
          end;
        end;
      end;                                                                  { if you scroll through this procedure }
      end;                                                                  { moderately fast.. it looks like a transverse wave ;) }

  'rune':
      case coalbag of
      'no':
      begin MagicTab;
        for I:=2 to 4 do
        begin
          begin
          FindHeat;
            if ExistsItem(i) then
            Invmouse(i,1);
              if FindBlackChatMessage('uperheat item') then repeat
              Writeln('Can''t superheat that!');
              TerminateScript;
              until (not LoggedIn);
      IncEx(Magic_xp, 53);
      IncEx(Smithing_xp, 50);
          end;
        end;
      end;

      'yes':
      begin MagicTab;
        for I:=3 to 7 do
        begin
          begin
          FindHeat;
            if ExistsItem(i) then
            Invmouse(i,1);
              if FindBlackChatMessage('uperheat item') then repeat
              Writeln('Can''t superheat that!');
              TerminateScript;
              until (not LoggedIn);
      IncEx(Magic_xp, 53);
      IncEx(Smithing_xp, 50);
          end;
        end;
      end;
      end;
  end;
    FreeDTM(SuperHeatDTM);
end;

procedure Proggy;

  begin
    WriteLn('=-=-=-=-=-=-=-= Superheater by TehQ =-=-=-=-=-=-=');
    WriteLn('Time Running: '+TimeRunning);
    WriteLn('Inventories completed: ' +IntToStr(count));
    WriteLn('Bars Superheated: ' +(BarType));
    WriteLn('Use Coalbag? ' +(CoalBag));
    WriteLn('Magic XP Gained: ' +IntToStr(Magic_XP));
    WriteLn('Smithing XP Gained: ' +IntToStr(Smithing_XP));
    WriteLn('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');

  end;

procedure Antiban;
Begin
  Case Random(40) Of
    1: HoverSkill('magic', False);
    2: HoverSkill('random', False);
    3: Boredhuman;
    4: Wait(2000 + random(4000));
    5: HoverSkill('smithing', False);
  end;
end;

begin
Run;
  begin
  SetAngle(SRL_ANGLE_HIGH);
  Banking;
  BankDeposit;
    repeat
    CoalToBag;
    Banking;
    BankDeposit;
    GetOres;
    Proggy;
    OnSmart;
    Superheat;
    Antiban;
    Banking;
    BankDeposit;

    inc(count);
    until (count=loadcount) or (not LoggedIn);
  Writeln('Task completed!');
  end;
end.

 {  Firemaker by TehQ  (Version 1.4)  }


program TehQ_FM;
{$DEFINE SMART}
{$DEFINE SRL5}
{$i SRL/srl.simba}
{$i sps/sps.simba}

Const
{                 -----guidelines-------
  Start in or near bank location you wish to burn at
  Have logs in 1st slot in 1st tab
  Have tinderbox in toolbelt OR inventory if not in toolbox   }


 LoadCount         = 50   ;        { # of trips you want to make }
 BankCol           = 0          ; { first space in bank, don't touch }
 BankRow           = 0         ;
 BankLocation      = 2     ;     { 1=Varrock East, 2=Varrock West Front, 3=Varrock West Behind, 4=Falador, 5=Draynor   (  EDIT THIS  )  }
 SRLStats_Username = '';
 SRLStats_Password = '';
 LOG               = 'Maple';     { EDIT THIS }
                                  { Maple, Yew, Willow, Euc, Magic }
 LogPrice          = 22;          { feature isn't functional, yet.}
 Invcounter        = 28;          { don't touch }
 DODEBUG           = True;

var
  Count : Integer;
  Bank, Reason: string;
  ReportTime: Integer;

procedure DeclarePlayers;

 begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    with Players[0] do
    begin
      Name         := 'player';
      Pass         := 'password';
      BoxRewards   := ['XP','xp','lamp'];
      Active       := True;
    end;

  end;
Procedure CheckStats;

  begin

    if ((SRLStats_Username = '') And (SRLStats_Password = '')) then
    begin
      case MessageBox('No Stats account, set one up?','SRL Stats',mbYesNoCancel) of
        mrYes:
          begin
            OpenWebPage('http://stats.villavu.com/register');
            TerminateScript;
          end;
        mrNo:
          begin
            SetupSRLStats(687,'Anonymous','anon1337');
            Exit;
          end;
        mrCancel: TerminateScript;
      end;
    end else
      SetupSRLStats(687,SRLStats_Username,SRLStats_Password);
  end;


Function AddToBelt(What: String): Boolean;
  var
    X,Y,Location,Tbox: Integer;

  begin

    Result := False;
    case What of
      'Tinderbox':
        Tbox := DTMFromString('mggAAAHicY2NgYDjMxMBwAojPAPFpID4IxDuA+CVQ7hkQPwLiN0D8AYpNdNgZoiPDgSwmFMwFJEEYHTDiwBAAAIohC78=');

    end;

    if ExistsItemDTM(Tbox, X, Y) then
    begin
      Location := CoordsToItem(X, Y);
      MouseItem(Location, mouse_right);
      Wait(RandomRange(20, 75));
      WaitOption('oolbelt', 300);
    end else
      Result := False;

    repeat

      if not ExistsItemDTM(Tbox, X, Y) then
        break;
      if FindBlackChatMessage('already on') then
        break;
    until(false);

    Result := not ExistsItemDTM(Tbox, X, Y);

    FreeDTM(Tbox);
  end;


Procedure Run;

begin
  Smart_Members := False;
  Smart_Server := 0;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  CheckStats;
  LoginPlayer;

  Count:=0;
  Wait(500+Random(200));
  FindNormalRandoms;

 case banklocation of
  1: //veb
    begin
      bank:='veb';
    end;
  2: //vwb in front
    begin
      bank:='vwb';
    end;
  3: //vwb behind
    begin
      bank:='vwb';
    end;
  4: //feb
    begin
      bank:='feb';
    end;
  5: //db
    begin
      bank:='db';
    end;
 end;
  setangle(srl_angle_high);
  SPS_Setup(RUNESCAPE_SURFACE,['11_7','11_6','10_6','10_7','12_7','12_6','9_8','9_7','10_9']);
end;

Procedure Debug(s:string);

Begin
  if DoDebug then
    Writeln(s);
end;


procedure LogType;

  begin
    if (not LoggedIn) then
      Exit;

    begin
      case lowercase(log) of
    'willow':
    Writeln('The logs are ' + log);

    'maple':
    Writeln('The logs are ' + log);

    'yew':
    Writeln('The logs are ' + log);

    'magic':
    Writeln('The logs are ' + log);

    'euc':
    Writeln('The logs are ' + log);

      end;
    end;
  end;

procedure LogXP;

  begin
    if not LoggedIn then
      Exit;

    begin
      case lowercase(log) of
       'willow':
       writeln('The exp gained is: ' +inttostr( count*Invcount*90));

       'maple':
       writeln('The exp gained is:  ' +inttostr( count*Invcount*135));

       'yew':
       writeln('The exp gained is:  ' +inttostr( count*Invcount*202));

       'magic':
       writeln('The exp gained is:  ' +inttostr( count*Invcount*304));

       'euc':
       writeln('The exp gained is:  ' +inttostr( count*Invcount*193));

      end;
    end;
  end;

procedure Proggy;

  begin
    WriteLn('=-=-=-=-=-=-=-= Firemaker by TehQ =-=-=-=-=-=-=-=');
    WriteLn('Time Running: '+TimeRunning);
    WriteLn('Logs Burned: '+IntToStr(count*28));
    WriteLn('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');

    MarkTime(ReportTime);
  end;

 {**************************************************************************
  *                       Procedure by: Flight                             *
  **************************************************************************}
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
  var
    mx, my, Pic, I, B, H, TPH, Numb: Integer;
    TTP: TPointArray;
    Canvas: TCanvas;

  begin
    SmartSetDebug(True);
    GetClientDimensions(mx, my);
    Pic := BitmapFromString(mx, my, '');

    TPH := High(TP);
    for I := 0 to TPH do
    begin

      TTP := LoadTextTPA(TP[i], SmallChars, H);
      for B := 0 to High(TTP) do
      begin

        Numb := ((I + 1) * 13);
        FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
        FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
      end;
    end;
    Canvas := TCANVAS.Create;
    Canvas.Handle := SmartGetDebugDC;
    DrawBitmap(Pic, Canvas, Placement.x, Placement.y);

    FreeBitmap(Pic);

  end;

Procedure OnSmart;

  begin

       PrintOnSmart(['Version: 1.4 (by TehQ)',
    ''+MsToTime(GetTimeRunning, Time_Abbrev)],Point(220,10), 16777215);

  end;

function RandomPoints (TPA : TPointArray ; MaxOffset : integer) : TPointArray;
var
a : integer;

begin
  for a :=0 to High(TPA) do
  begin

    TPA[a].x := TPA[a].x - random(2*MaxOffset) + random(2*MaxOffset);
    TPA[a].y := TPA[a].y - random(2*MaxOffset) + random(2*MaxOffset);
  end;

end;

Procedure WalkToBank;
  var
  ToBank, ToBank2,ToBank3, ToBank4, ToBank5:TPointArray;

  begin
    if not LoggedIn then
      Exit;

  SetAngle(SRL_ANGLE_HIGH);

   case BankLocation of

  1:  begin
  ToBank := [Point(4814, 2934), Point(4824, 2933), Point(4833, 2933), Point(4846, 2937), Point(4855, 2935), Point(4851, 2948), Point(4850, 2967)];
  SPS_WalkPath(tobank);
        end;
  2:  begin
  tobank2 := [Point(4638, 2937), Point(4627, 2934), Point(4608, 2933), Point(4590, 2933), Point(4566, 2935), Point(4551, 2936), Point(4578, 2929), Point(4581, 2918)];
  SPS_WalkPath(tobank2);
        end;
  3:  begin
  tobank3 := [Point(4532, 2849), Point(4545, 2850), Point(4556, 2851), Point(4576, 2851), Point(4587, 2857), Point(4582, 2876)];
  SPS_WalkPath(tobank3);
        end;
  4:  begin
  tobank4 := [Point(3855, 3208), Point(3875, 3208), Point(3900, 3207), Point(3887, 3214), Point(3887, 3232)];
  SPS_WalkPath(tobank4);
        end;
  5:  begin
  tobank5  := [Point(4152, 3664), Point(4163, 3664), Point(4182, 3662), Point(4202, 3664), Point(4208, 3684)];
  SPS_WalkPath(tobank5);
        end;
   end;
  end;

Procedure Banking;

begin

  if not LoggedIn then
  Exit;

  repeat
    SetAngle(srl_angle_high);
    OpenBankfast(bank);
    Wait(Random(600));

  until BankScreen or PinScreen;
    if PinScreen then

    begin
      repeat
        InPin(Players[CurrentPlayer].Pin);
      until BankScreen or  (not LoggedIn);
    end;

      if (invcount > 0) then
      begin

  QuickDeposit(SRL_DEPOSIT_ALL);
  WaitFunc(@InvEmpty, 50, 2500);
      end;

  begin
    if BankScreen then
        begin
        withdraw(BankCol,BankRow,0);
        CloseBank;

        end else
          begin
            Exit;
          end;

  end;
end;


  procedure WalkToBurnLoc;
var
  ToBurnLoc, ToBurnLoc2, toburnloc3,toburnloc4, toburnloc5 :TPointArray;

begin

  if (not LoggedIn) then
    Exit;

  SetAngle(SRL_ANGLE_HIGH);

 case Banklocation of
  1: begin
  ToBurnLoc := [Point(4850, 2970), Point(4851, 2961), Point(4851, 2952), Point(4851, 2940), Point(4872, 2936), Point(4889, 2936), Point(4896, 2937)];
  ToBurnLoc := RandomPoints(ToBurnLoc,2);
  SPS_Walkpath(toburnloc);
  end;
  2: begin
  ToBurnLoc2 := [Point(4583, 2914), Point(4583, 2932), Point(4601, 2933), Point(4614, 2933), Point(4628, 2933), Point(4648, 2936)];
  ToBurnLoc2 := RandomPoints(ToBurnLoc,2);
  SPS_Walkpath(toburnloc2);
  end;
  3: begin
  ToBurnLoc3 := [Point(4582, 2880), Point(4582, 2873), Point(4583, 2866), Point(4583, 2857), Point(4594, 2850)];
  ToBurnLoc3 := RandomPoints(ToBurnLoc,2);
  SPS_Walkpath(toburnloc3);
  end;
  4: begin
  ToBurnLoc4 := [Point(3888, 3231), Point(3888, 3220), Point(3888, 3211), Point(3898, 3209), Point(3921, 3208), Point(3935, 3205), Point(3950, 3210)];
  ToBurnLoc4 := RandomPoints(ToBurnLoc,2);
  SPS_Walkpath(toburnloc4);
  end;

  5: begin
  ToBurnLoc5 := [Point(4208, 3681), Point(4207, 3667), Point(4214, 3662), Point(4224, 3661), Point(4232, 3659), Point(4248, 3660)];
  ToBurnLoc5 := RandomPoints(ToBurnLoc,2);
  SPS_Walkpath(toburnloc5);
  end;
 end;
    if bankscreen then
      begin
      Debug('At bank!');
      walktoburnloc;
      end;
 Exit;
end;


procedure Burn;
var
  I,teh:Integer;

begin

   if (invcount = 0) then
   walktobank;

  Writeln('Burning');
  for I:=1 to 28 do
  begin
    if FindNormalRandoms or not (LoggedIn) then
        Exit;

    InvMouse(I,mouse_right);
    Wait(RandomRange(80,100));
    if ChooseOption('ight') then
     Wait(RandomRange(1180,1200));

    if ExistsItem(I) then
    begin
      InvMouse(I,2);
      wait(RandomRange(100,200));
      if ChooseOption('ight') then
      begin
        writeln('Burning log again');
        Wait(500+Random(800));
      end;
    end else

      if FindBlackChatMessage('ou can') then
        begin repeat
        inc(teh);
        Writeln('cant''t light here');
        walktoburnloc
        until  (teh=5);
         if (teh=5) then
          begin
          walktobank;
          banking;
          walktoburnloc;
          end;
        Wait(700 + random(100));

            begin
            Players[CurrentPlayer].Loc:='end';
            Reason:='failed to burn';
            end;
        end;
  end;
end;


 Procedure Antiban;
Begin

  Case Random(50) Of
    1: HoverSkill('firemaking', False);
    2: HoverSkill('random', False);
    3: Boredhuman  ;
    4: Wait(1000 + random(1000));
  end;

end;


begin
  run;

  begin
  SetAngle(SRL_ANGLE_HIGH);
  OnSmart;
  AddToBelt('Tinderbox');
  walktobank;

  repeat
    Banking;
    Proggy;
    LogType;
    OnSmart;
    WalkToBurnLoc;
    Antiban;
    Burn;
    Antiban;
    LogXP;
    WalkToBank;
    inc(count);
    stats_IncVariable('Logs Burned', 28);
    Writeln('There are '+IntToStr(loadcount-count)+' loads left.');
  until (count=loadcount) or (not LoggedIn);

  Writeln('Task completed!');
  SRLRandomsReport;
  Stats_Commit;
end;
end.

I don't see any TPA's ;l

Something about your standards is bugging me, maybe it is just me. I think they are worthwhile additions but are these released to the public? I like seeing their feedback, also tell me why you think you deserve SRL members; I will vote after.

From: R4nd0m
Something about your standards is bugging me, maybe it is just me. I think they are worthwhile additions but are these released to the public? I like seeing their feedback, also tell me why you think you deserve SRL members; I will vote after.

Yes, they're released to the public currently. Located in the Magic and First Scripts sections respectively. If you need the links, I'd be glad to send them (although they're in my signature).

Regarding my standards, I have cleaned these up quite a bit earlier today in my private versions. I didn't post those versions in this application because i'm not sure if they work and i didn't know if that would effect my decision :redface:

As for your second question, I think i deserve members here because i've been working very hard to learn the different features of Simba and i've made it a point to become involved in the community. I will continue improving my scripts and, hopefully, be able to help development regardless. For these reasons, i believe i have what it takes to be a member here at SRL.

Well I like the effort you put into your threads where scripts are located, although I will vote yes I cannot say the same for the rest of the members; I would recommend attempting to add TPA's and other higher functions of SRL into your simba scripts.

From: R4nd0m
Well I like the effort you put into your threads where scripts are located, although I will vote yes I cannot say the same for the rest of the members; I would recommend attempting to add TPA's and other higher functions of SRL into your simba scripts.

I tried to use a few TPAs in the firemaker and i'm trying to learn more advanced functions every day. Thanks to both you and Sin for your feedback, I really appreciate it

From: R4nd0m
Something about your standards is bugging me, maybe it is just me. I think they are worthwhile additions but are these released to the public? I like seeing their feedback, also tell me why you think you deserve SRL members; I will vote after.

It's some of his tabbing in loops and such. It bothers me a little too :).

@OP. Your app has caught me in a very good mood. Having said that, that doesn't determine my vote but helps your chances. I do respect r4ndom and Sin's opinions too though. Having said all of that, you appear to want to help and be a part of this community. You show knowledge of the SRL include and that you know how to script. I didn't know TPAs when I got in, not so long ago, so I'm not counting that against you.

Keep yourself active, and you can be a great member here. I vote yes.

From: Silent SPY
It's some of his tabbing in loops and such. It bothers me a little too :).

@OP. Your app has caught me in a very good mood. Having said that, that doesn't determine my vote but helps your chances. I do respect r4ndom and Sin's opinions too though. Having said all of that, you appear to want to help and be a part of this community. You show knowledge of the SRL include and that you know how to script. I didn't know TPAs when I got in, not so long ago, so I'm not counting that against you.

Keep yourself active, and you can be a great member here. I vote yes.

Thank you for all of your feedback. I love finding how i can improve myself, being fairly new at writing scripts here. :)

Sorry for the late response, but it looks like you aren't getting in this time. You can reapply in 2 weeks. Good luck!