SRL Archive - Help and Support

This is still under work, not released. When I start the script, fill form and press start it just leaves scar window open and laggs. Then it may click somewhere where it is not supposed to!!

is it in a repeated loop? if yes, try adding Waits. if not add waits anyway

you could send me the script if u want and i could take a look at it, if its okay with you…?

Oops, It lagged a bit when I pressed Submit so it cut off the script… its here:

program CutUnlimited;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
var
  SkillArray: array[1..21] of string;
  LogCase: array[1..7] of string;
  WiLLogs: integer;
  TreeCol1, TreeCol2: integer;
  LogColor: integer;
  frmDesign: TForm;
  Label1: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Label4: TLabel;
  Panel1: TPanel;
  Panel2: TPanel;
  Panel3: TPanel;
  Edit1: TEdit;
  Edit2: TEdit;
  Edit3: TEdit;
  Button1: TButton;
  CheckBox1: TCheckBox;
  Panel4: TPanel;
  Edit4: TEdit;
  Edit5: TEdit;
  Edit6: TEdit;
  Edit7: TEdit;
  Edit8: TEdit;
const
  StartPlayer = 0; // Leave it to 0

procedure declareplayers;
begin
  HowManyPlayers := 3;
  NumberOfPlayers(howmanyplayers);
  CurrentPlayer := StartPlayer;

  Players[0].Name := Edit1.Text; //name
  Players[0].Pass := Edit6.Text; //pass
  Players[0].Nick := Copy(Edit1.Text, 2, 3); // Nick
  Players[0].Active := true;

  Players[1].Name := Edit2.Text; //name
  Players[1].Pass := Edit7.Text; //pass
  Players[1].Nick := Copy(Edit2.Text, 2, 3); //Nick
  Players[1].Active := true;

  Players[2].Name := Edit3.Text; //name
  Players[2].Pass := Edit8.Text; //pass
  Players[2].Nick := Copy(Edit3.Text, 2, 3); // Nick
  Players[2].Active := true;
  Writeln('Using ' + inttostr(HowManyPlayers) + ' Player[s]');

end;

procedure buttonclick(sender: TObject);
begin
  frmDesign.Caption := frmDesign.Caption + '.';
  frmDesign.ModalResult := mrOk;
end;

procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 256;
  frmDesign.Top := 159;
  frmDesign.Width := 696;
  frmDesign.Height := 480;
  frmDesign.Hint := 'Fill in.';
  frmDesign.Caption := '[SRL] UberCutter v1 By n3ss3s [SRL]';
  frmDesign.Color := clBlack;
  frmDesign.Font.Color := clLime;
  frmDesign.Font.Height := -16;
  frmDesign.Font.Name := 'Comic Sans MS';
  frmDesign.Font.Style := [fsBold];
  frmDesign.Visible := False;
  frmDesign.PixelsPerInch := 96;
  Label1 := TLabel.Create(frmDesign);
  Label1.Parent := frmDesign;
  Label1.Left := 69;
  Label1.Top := 221;
  Label1.Width := 7;
  Label1.Height := 23;
  Label2 := TLabel.Create(frmDesign);
  Label2.Parent := frmDesign;
  Label2.Left := 57;
  Label2.Top := 203;
  Label2.Width := 7;
  Label2.Height := 23;
  Label3 := TLabel.Create(frmDesign);
  Label3.Parent := frmDesign;
  Label3.Left := 39;
  Label3.Top := 209;
  Label3.Width := 371;
  Label3.Height := 23;
  Label3.Caption := ' Check this for dropping, UnCheck for banking.';
  Label4 := TLabel.Create(frmDesign);
  Label4.Parent := frmDesign;
  Label4.Left := 39;
  Label4.Top := 296;
  Label4.Width := 427;
  Label4.Height := 23;
  Label4.Caption := ' For a short comment about the forms, type it below.';
  Panel1 := TPanel.Create(frmDesign);
  Panel1.Parent := frmDesign;
  Panel1.Left := 38;
  Panel1.Top := 31;
  Panel1.Width := 173;
  Panel1.Height := 42;
  Panel1.Caption := 'Player 1 Setup';
  Panel1.Font.Color := clAqua;
  Panel1.Font.Height := -16;
  Panel1.Font.Name := 'Comic Sans MS';
  Panel1.Font.Style := [];
  Panel1.ParentFont := False;
  Panel1.TabOrder := 8;
  Panel2 := TPanel.Create(frmDesign);
  Panel2.Parent := frmDesign;
  Panel2.Left := 38;
  Panel2.Top := 90;
  Panel2.Width := 174;
  Panel2.Height := 41;
  Panel2.Caption := 'Player 2 Setup';
  Panel2.Color := clBlack;
  Panel2.Font.Color := clAqua;
  Panel2.Font.Height := -16;
  Panel2.Font.Name := 'Comic Sans MS';
  Panel2.Font.Style := [];
  Panel2.ParentFont := False;
  Panel2.TabOrder := 9;
  Panel3 := TPanel.Create(frmDesign);
  Panel3.Parent := frmDesign;
  Panel3.Left := 38;
  Panel3.Top := 147;
  Panel3.Width := 175;
  Panel3.Height := 41;
  Panel3.Caption := 'Player 3 Setup';
  Panel3.Font.Color := clAqua;
  Panel3.Font.Height := -16;
  Panel3.Font.Name := 'Comic Sans MS';
  Panel3.Font.Style := [];
  Panel3.ParentFont := False;
  Panel3.TabOrder := 10;
  Edit1 := TEdit.Create(frmDesign);
  Edit1.Parent := frmDesign;
  Edit1.Left := 252;
  Edit1.Top := 31;
  Edit1.Width := 176;
  Edit1.Height := 31;
  Edit1.Color := clBlack;
  Edit1.Font.Color := clAqua;
  Edit1.Font.Height := -16;
  Edit1.Font.Name := 'Comic Sans MS';
  Edit1.Font.Style := [];
  Edit1.ParentFont := False;
  Edit1.TabOrder := 11;
  Edit1.Text := 'Username';
  Edit2 := TEdit.Create(frmDesign);
  Edit2.Parent := frmDesign;
  Edit2.Left := 251;
  Edit2.Top := 89;
  Edit2.Width := 177;
  Edit2.Height := 31;
  Edit2.Color := clBlack;
  Edit2.Font.Color := clAqua;
  Edit2.Font.Height := -16;
  Edit2.Font.Name := 'Comic Sans MS';
  Edit2.Font.Style := [];
  Edit2.ParentFont := False;
  Edit2.TabOrder := 12;
  Edit2.Text := 'Username';
  Edit3 := TEdit.Create(frmDesign);
  Edit3.Parent := frmDesign;
  Edit3.Left := 250;
  Edit3.Top := 145;
  Edit3.Width := 179;
  Edit3.Height := 31;
  Edit3.Color := clBlack;
  Edit3.Font.Color := clAqua;
  Edit3.Font.Height := -16;
  Edit3.Font.Name := 'Comic Sans MS';
  Edit3.Font.Style := [];
  Edit3.ParentFont := False;
  Edit3.TabOrder := 13;
  Edit3.Text := 'Username';
  Button1 := TButton.Create(frmDesign);
  Button1.OnClick := @buttonclick;
  Button1.Parent := frmDesign;
  Button1.Left := 349;
  Button1.Top := 237;
  Button1.Width := 93;
  Button1.Height := 33;
  Button1.Caption := 'Start!!!';
  Button1.Font.Color := clRed;
  Button1.Font.Height := -13;
  Button1.Font.Name := 'Lucida Console';
  Button1.Font.Style := [fsBold];
  Button1.ParentFont := False;
  Button1.TabOrder := 14;
  CheckBox1 := TCheckBox.Create(frmDesign);
  CheckBox1.Parent := frmDesign;
  CheckBox1.Left := 413;
  CheckBox1.Top := 210;
  CheckBox1.Width := 97;
  CheckBox1.Height := 17;
  CheckBox1.Caption := 'CheckBox1';
  CheckBox1.TabOrder := 15;
  Panel4 := TPanel.Create(frmDesign);
  Panel4.Parent := frmDesign;
  Panel4.Left := 36;
  Panel4.Top := 237;
  Panel4.Width := 255;
  Panel4.Height := 29;
  Panel4.Caption := 'Direction to run away in fight';
  Panel4.Font.Color := clAqua;
  Panel4.Font.Height := -16;
  Panel4.Font.Name := 'Comic Sans MS';
  Panel4.Font.Style := [fsBold];
  Panel4.ParentFont := False;
  Panel4.TabOrder := 16;
  Edit4 := TEdit.Create(frmDesign);
  Edit4.Parent := frmDesign;
  Edit4.Left := 301;
  Edit4.Top := 237;
  Edit4.Width := 21;
  Edit4.Height := 31;
  Edit4.Color := clBlack;
  Edit4.Font.Color := clAqua;
  Edit4.Font.Height := -16;
  Edit4.Font.Name := 'Comic Sans MS';
  Edit4.Font.Style := [fsBold];
  Edit4.ParentFont := False;
  Edit4.TabOrder := 17;
  Edit4.Text := 'N';
  Edit5 := TEdit.Create(frmDesign);
  Edit5.Parent := frmDesign;
  Edit5.Left := 47;
  Edit5.Top := 316;
  Edit5.Width := 464;
  Edit5.Height := 27;
  Edit5.Color := clBlack;
  Edit5.Font.Color := clAqua;
  Edit5.Font.Height := -13;
  Edit5.Font.Name := 'Comic Sans MS';
  Edit5.Font.Style := [fsBold];
  Edit5.ParentFont := False;
  Edit5.TabOrder := 18;
  Edit5.Text := 'I mean type it here  <<<-----';
  Edit6 := TEdit.Create(frmDesign);
  Edit6.Parent := frmDesign;
  Edit6.Left := 445;
  Edit6.Top := 31;
  Edit6.Width := 169;
  Edit6.Height := 31;
  Edit6.Color := clBlack;
  Edit6.Font.Color := clAqua;
  Edit6.Font.Height := -16;
  Edit6.Font.Name := 'Comic Sans MS';
  Edit6.Font.Style := [fsBold];
  Edit6.ParentFont := False;
  Edit6.TabOrder := 19;
  Edit6.Text := 'Password';
  Edit7 := TEdit.Create(frmDesign);
  Edit7.Parent := frmDesign;
  Edit7.Left := 442;
  Edit7.Top := 89;
  Edit7.Width := 173;
  Edit7.Height := 31;
  Edit7.Color := clBlack;
  Edit7.Font.Color := clAqua;
  Edit7.Font.Height := -16;
  Edit7.Font.Name := 'Comic Sans MS';
  Edit7.Font.Style := [fsBold];
  Edit7.ParentFont := False;
  Edit7.TabOrder := 20;
  Edit7.Text := 'Password';
  Edit8 := TEdit.Create(frmDesign);
  Edit8.Parent := frmDesign;
  Edit8.Left := 442;
  Edit8.Top := 144;
  Edit8.Width := 174;
  Edit8.Height := 31;
  Edit8.Color := clBlack;
  Edit8.Font.Color := clAqua;
  Edit8.Font.Height := -16;
  Edit8.Font.Name := 'Comic Sans MS';
  Edit8.Font.Style := [fsBold];
  Edit8.ParentFont := False;
  Edit8.TabOrder := 21;
  Edit8.Text := 'Password';
end;

procedure safeinitform;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

procedure ClickSafe(x, y, RandomX, RandomY: integer; Left: boolean; UpText: string);
begin
  MMouse(x, y, RandomX, RandomY);
  if (IsUpText(UpText)) then
  begin
    Mouse(x, y, RandomX, RandomY, Left);
  end;
end;

procedure FindMiddleLine(var x, y: integer; FirstX, FirstY, SecondX, SecondY: integer);
{ Author: n3ss3s}
{ Description : Finds the middle of 2 points.}
{ I hope this hasnt been invented yet }
begin
  x := (FirstX + SecondX) / 2;
  y := (FirstY + SecondY) / 2;
end;

procedure VectorClick(x, y, RandomX, RandomY, Way, Amount: integer);
{ Author: n3ss3s}
{ Description : Clicks mouse specified dist away from x,y.}
{ If didnt understand, try it.}
{ Way 1 =  Click to up right   Way 2 = Click to down right}
{ Way 3 =  Click to up left    Way 4 = Click to down left}
begin
  case Way of
    1: begin
        Mouse(x + Amount, y - Amount, RandomX, RandomY, true);
      end;
    2: begin
        Mouse(x + Amount, y + Amount, RandomX, RandomY, true);
      end;
    3: begin
        Mouse(x - Amount, y - Amount, RandomX, RandomY, true);
      end;
    4: begin
        Mouse(x - Amount, y + Amount, RandomX, RandomY, true);
      end;
  end;
end;

function YoureInBox(Box: TBox): boolean;
begin
  if (Box.x1 < MMCX) and (Box.y1 < MMCY) and (Box.x2 > MMCX) and
    (Box.y2 > MMCY) then
    result := true;
end;

function YoureInBox2(x1, y1, x2, y2: integer): boolean;
{ This time the box is from downleft to upright}
begin
  if (x1 < MMCX) and (y1 > MMCY) and (x2 > MMCX) and (y2 < MMCY) then
  begin
    result := true;
  end;
end;

procedure MaintainArea;
var FishX, FishY,
  BankX, BankY: integer;
begin
  if (FindSymbol(x, y, 'fish')) then
  begin
    MMouse(x, y, 0, 0);
    GetMousePos(FishX, FishY);
  end
  else
  begin
    writeln('Fishing symbol NOT found.WARNING');
  end;
  if (FindSymbol(x, y, 'bank')) then
  begin
    MMouse(x, y, 0, 0);
    GetMousePos(BankX, BankY);
  end
  else
  begin
    Writeln('Bank symbol NOT found.Going a bit north and east!');
    Mouse(FishX + 10, FishY + 15, 3, 4, true);
  end;
  if (not (YoureInBox2(FishX, FishY, BankX, BankY))) then
  begin
    repeat
      FindMiddleLine(x, y, FishX, FishY, BankX, BankY);
      Mouse(x, y, 0, 0, true);
    until (YoureInBox2(FishX, FishY, BankX, BankY));
  end;
end;

function GetWillowLogColor: integer;
begin
  if (FindDeformed(x, y, willogs, MIX1, MIY1, MIX2, MIY2)) then
  begin
    result := GetColor(x, y);
  end
  else
    writeln('Could not find willow logs in inventory');
end;

procedure SetVars;
begin
  TreeCol1 := 1060904;
  TreeCol2 := 3301456;
  LogColor := GetWillowLogColor;
end;

procedure RandomRotation; // Simple random rotation.
begin
  SendArrowSilentWait(Random(4), 600 + random(550));
end;

procedure TreeWalk;
begin
  Mouse(617, 122, 5, 5, true);
  flag;
end;

procedure LoadBitMaps;
begin
  WiLLogs := BitmapFromString(5, 21, 'z78DA9590D10EC23008457F09CA6DD' +
    'D2B73EEFF3F495798B98B91284D4EC83D6D5ADA0543BD070DAE5B' +
    '506671F2D5DEF0D09D99F623BFD87B6F85ADCF9616CD5C97E4B0F' +
    'D645A4AE0B073F6B494F09FFCF11B4C7EF3EFB69EB7BC77064A14' +
    '4E4CDA6B05A338894D7D6043EAE893C02207DDD6B4B37FDBA3275' +
    'BD713A1DF8446');
end;

procedure LoadSkillArray;
begin
  SkillArray[1] := 'attack';
  SkillArray[2] := 'strength';
  SkillArray[3] := 'defence';
  SkillArray[4] := 'hitpoints';
  SkillArray[5] := 'ranged';
  SkillArray[6] := 'prayer';
  SkillArray[7] := 'magic';
  SkillArray[8] := 'cooking';
  SkillArray[9] := 'woodcutting';
  SkillArray[10] := 'fletching';
  SkillArray[11] := 'fishing';
  SkillArray[12] := 'firemaking';
  SkillArray[13] := 'crafting';
  SkillArray[14] := 'smithing';
  SkillArray[15] := 'mining';
  SkillArray[16] := 'herblore';
  SkillArray[17] := 'agility';
  SkillArray[18] := 'thieving';
  SkillArray[19] := 'slayer';
  SkillArray[20] := 'farming';
  SkillArray[21] := 'runecraft';
end;

procedure LoadLogCase;
begin
  LogCase[1] := 'Sapphire';
  LogCase[2] := 'Emerald';
  LogCase[3] := 'Ruby';
  LogCase[4] := 'Diamond';
  LogCase[5] := 'Bird';
  LogCase[6] := 'Knife';
  LogCase[7] := 'Tinder';
end;
{*******************************************************************************
procedure BankAllLogs(TreeName:string;LogColor:integer);
By: n3ss3s
Description: Will bank all logs, ignoring Birds Nests,
Knifes and Tinder Boxes and Gems.
Use the TreeName like 'illo' for Willow.
*******************************************************************************}

procedure BankAllLogs(TreeName: string; LogColor: integer);
var Log: boolean;
  Number: integer;
begin
  Number := 0;
  Status('Banking Logs');
  GameTab(4)
  begin
    if (FindColor(x, y, LogColor, MIX1, MIY1, MIX2, MIY2)) then
    begin
      MMouse(x, y, 0, 0);
      Wait(100 + Random(100));
      repeat
        begin
          Number := Number + 1;
          if (IsUpText(LogCase[Number])) then
          begin
            Log := False;
          end
          else
          begin
            Log := True;
          end;
        end;
      until (Number = 7);
    end;
    if (Log = True) then
    begin
      repeat
        ClickSafe(x, y, 0, 0, false, TreeName);
        ChooseOption(x, y, 'Store All');
        wait(250 + random(25));
        MMouse(x, y, 0, 0);
      until (not (IsUpText(TreeName)));
    end;
    wait(100 + random(25));
  end;
  wait(100 + random(25));
end;

function FindInvBmpTolRaiser(var Fx, Fy: integer; Bitmap: integer; UpText: string): boolean;
{ Auth : n3ss3s }
{Description : Finds a bitmap in inventory using FindBitmapTolRaiser}
{ God damit I'll get always an access violation error.}
{ I'll leave it here for me to fix for next vers.}
var Tol, Count: integer;
begin
  Tol := 0;
  for Count := 1 to 50 do
  begin
    Tol := Tol + 5;
    if (FindBitmapTolRaiser(Bitmap, Fx, Fy, 5, 50, MIX1, MIY1, MIX2, MIY2)) then
    begin
      Fx := x;
      Fy := y;
      MMouse(Fx, Fy, 0, 0);
      if (IsUpText(UpText)) then
      begin
        result := true;
      end;
      Wait(225 + random(55));
    end;
    Wait(225 + random(55));
  end;
  Wait(225 + random(55));
end;

procedure AnswerSkillAsked;
var
  T: integer;
begin
  t := 1;
  while T < 22 do
  begin
    if (FindChatText(SkillArray[T])) then
    begin
      SayCurrentLevels(SkillArray[T]);
    end;
    T := T + 1;
    GameTab(4);
  end;
  wait(120 + random(15));
end;

procedure MouseTPoint(Point: TPoint; RandomX, RandomY: integer; Left: boolean);
{ Description : Moves mouse to TPoint and clicks.}
{ Author : n3ss3s }
{ Comments : ownage}
begin
  Mouse(Point.x, Point.y, RandomX, RandomY, left);
end;

procedure MMouseTPoint(Point: TPoint; RandomX, RandomY: integer);
{ Description : Moves mouse to TPoint.}
{ Author : n3ss3s }
{ Comments : ownage}
begin
  MMouse(Point.x, Point.y, RandomX, RandomY);
end;

procedure Randoms;
var FightMark: integer;
begin
  FTWait(1 + random(2));
  SolveBox;
  FindNormalRandoms;
  SolveSandWich;
  ClickToContinue;
  if (FindFight) then
  begin
    GameTab(7);
    MarkTime(FightMark);
    RunAwayDirection('e');
    Flag;
    while TimeFromMark(FightMark) < 8500 + random(200) do
    begin
      randoms;
    end;
    RunBack;
    Flag;
  end;
  Wait(225 + random(55));
end;

function FindWillow: boolean;
begin
  if (FindObj(x, y, 'illo', TreeCol1, 20))
    or (FindObj(x, y, 'illo', TreeCol2, 20)) then
  begin
    result := true;
  end;
  Wait(225 + random(55));
end;

function FindWillow2: boolean;
begin
  if (findcolor(x, y, TreeCol1, MSX1, MSY1, MSX2, MSY2))
    or (findcolor(x, y, TreeCol2, MSX1, MSY1, MSX2, MSY2)) then
  begin
    mmouse(x, y, 0, 0);
    if (isuptext('illo')) then
    begin
      result := true;
    end;
  end;
  wait(100 + random(25));
end;

function Ent: boolean; //This needs a little improving.
var
  TextTol, UpTextBmp: integer;
begin
  UpTextBmp := CreateBitmapMaskFromText('illo', UpChars);
  TextTol := 5;
  while TextTol < 100 do
  begin
    if (FindBitmapToleranceIn(UpTextBmp, x, y, 0, 0, 389, 290, TextTol)) then
    begin
      if (GetColor(x, y) = 65535) then
      begin
        result := true;
      end;
      Wait(225 + random(55));
    end;
    Wait(225 + random(55));
  end;
  Wait(225 + random(55));
end;

procedure SwingAtWillow(Way: integer);
var Quit, WillowMark: integer;
begin
  case Way of
    1: begin
        if (FindWillow2) then
        begin
          MMouse(x, y, 0, 0);
          if (IsUpText('illo')) then
          begin
            if (not (FindEnt(TreeCol1)) or (FindEnt(TreeCol2))) then
            begin
              ClickSafe(x, y, 0, 0, true, 'illo');
            end;
            Wait(225 + random(55));
          end
          else
          begin
            Mouse(x, y + 10, 0, 0, true); // Did not put here any checks for UpText
         // Because people may some time misclick if they cough or sumting..
          end;
        end;
        Wait(225 + random(55));
      end;
    2: begin
        if (FindWillow2) then
        begin
          if (not (FindEnt(TreeCol1)) or (FindEnt(TreeCol2))) then
          begin
            ClickSafe(x, y, 0, 0, true, 'illo');
          end;
        end;
        Wait(225 + random(55));
      end;
  end; // End case.
  if (FindChatText('swing your')) then
  begin
    MarkTime(WillowMark);
    Quit := 5000 + random(592);
    while (not (TimeFromMark(WillowMark) > Quit)) do
    begin
      Randoms;
      RandomRotation;
      MaintainArea;
      if (not (LoggedIn)) then
      begin
        Break;
        Writeln('Not logged in. Logging in');
        LoginPlayer;
      end;
      if (Random(30) > (19)) then
      begin
        GhostSpeak('woodcutting');
        AnswerSkillAsked;
        if (FindChatText('wc')) then
        begin
          SayCurrentLevels('woodcutting');
          wait(150 + random(25));
        end;
        if (not (LoggedIn)) then
        begin
          Break;
          Writeln('Not logged in. Logging in');
          LoginPlayer;
        end;
        Wait(225 + random(55));
      end;
      Wait(225 + random(55));
    end;
    Wait(225 + random(55));
  end;
  Wait(225 + random(55));
end;

procedure ChopWillows;
var
  SwingWay: integer;
begin
  SwingWay := 1 + random(1);
  repeat
    SwingAtWillow(SwingWay);
  until (InvFull);
  Wait(225 + random(55));
end;

procedure BankWalk;
begin
  if (FindSymbol(x, y, 'bank')) then
  begin
    Mouse(x, y, 0, 0, true);
  end
  else
  begin
    PerfectNorth;
    Mouse(MMCX - 25 + random(2), MMCY - 50 + random(3), 2, 2, true);
  end;
  while FlagPresent do
  begin
    FindTalk;
    if (random(8) < (4)) then
    begin
      RandomRotation;
    end;
    Wait(225 + random(55));
  end;
  Wait(225 + random(55));
end;

procedure OpenTheBank;
var BC: integer;
begin
  BC := GetSymbolColor(x, y, 'bank');
  ToBankers(BC, 0, 0);
  Flag;
  Randoms;
  begin
    repeat
      OpenBankGlass('db', true, true);
    until (BankScreen);
  end;
  Wait(225 + random(55));
end;

procedure StoreWillows;
begin
  BankAllLogs('illo', LogColor);
end;

function Noob: boolean;
begin
  if (GetCombatLevel < 20) then
  begin
    Writeln('God damn noob!!Read more about SRL');
    TerminateScript;
    result := true;
  end;
end;
begin
  ClearDebug;
  SafeInitForm;
  SafeShowFormModal;
  SetupSrl;
  DeclarePlayers
    Rs_DeleteUID;
  LoadBitMaps;
  wait(100 + random(25));
  LoadSkillArray;
  wait(100 + random(25));
  LoadLogCase;
  wait(100 + random(25));
  SetVars;
  ActivateClient;
  repeat
    if (not (LoggedIn)) then
    begin
      Break;
      Writeln('Not logged in. Logging in');
      LoginPlayer;
    end;
    if (GetCombatLevel < 20) then
    begin
      TerminateScript;
    end; // FailSafe if a noob realizes to remove the function.
    PerfectNorth;
    TreeWalk;
    if (not (LoggedIn)) then
    begin
      Break;
      Writeln('Not logged in. Logging in');
      LoginPlayer;
    end;
    ChopWillows;
    if (not (LoggedIn)) then
    begin
      Break;
      Writeln('Not logged in. Logging in');
      LoginPlayer;
    end;
    if (not (CheckBox1.Checked)) then
    begin
      BankWalk;
      OpenTheBank;
      StoreWillows;
      CloseBank;
      if (not (LoggedIn)) then
      begin
        Break;
        Writeln('Not logged in. Logging in');
        LoginPlayer;
      end;
      DwarfItem;
      PerfectNorth;
    end
    else
    begin
      DropAllLogs;
      DwarfItem;
    end;
    if (GetDebugText = 'Answer') then
    begin
      ClearDebug;
    end;
  until (false);
end.

I hope you can solve it…

hmm the only time this sort of thing happens to me is when I tell the script to find the road or something in certain radial and it doesn't find it in the radial….or I have it looking for a BMP and it doesn't find it….the first thing urs does is walk so maybe make sure it's finding the thing it's looking for. I havnt properly looked thru it yet…g2g zzzzzzz :) gl

ty but the walking is based on a randomized coordinated click :)

I think the problem is that you're putting your breaks commands too early.

Try doing it like this…

if not(LoggedIn) then
begin
  Writeln('Logged out... Logging in';
  LoginPlayer;
  Break;
end;

thx tara but it still lags. I fixed the breaks… I dont know whats wrong :((

love this function:

function Noob: boolean;
begin
  if (GetCombatLevel < 20) then
  begin
    Writeln('God damn noob!!Read more about SRL');
    TerminateScript;
    result := true;
  end;
end;

:D , noticed too the noob failsafe in mainloop? laughed when i was doing it..