SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
nicbaz - SRL Member Application Form
nicbaz

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?



Programming Knowledge
Scar little bit of php

Other Communitys


How Long have You Played Runescape
3 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

-been over two weeks since i last applyed and i am aloud to apply again

NicBaz!!

Hello srl members + i am applying for members again, from a close miss last, time but i feel i am ready to apply again.

Im 14 , i am a Australian living in the state off victoria, my hobbies are

- snow sking
- motobike riding
- scripting

theres lots more but it doesnt really matter…..

I have been here at srl for almost 2 years now and ive been loving it i have been working a 4 location yew cutter, and its been working quite well so far in 3 of the 4 locations…

i have tryed to include all thats request needed for srl membership

-DDTMS
-DTMS
-AutoColoring With RBG ect….
-Map Walking
-ect………

also and please dont flame for this

/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Anti Leech////////////////////////
/////////////////////////////////////////////////////////////////////

u like it to keep it nice and neat i can change it if you really want me to tho

my script

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program VarrokYewCutter;
{.include SRl/SRL/Misc/SMART.scar}
{.include SRl/SRl.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
{.include SRL/SRL/misc/Users.scar}


//////////////////////////////////////////////////////////////////////
//                      Multi  Yew Cutter By Nicbaz                 //
//                                                                  \\
// This Script Has Theese Fetures                                   //
// DTM's                                                            \\
// TPA's                                                            //
// Multi                                                            \\
// Map Walking                                                      //
// Multi PLayer                                                     \\
// Colour Useage                                                    //
// Cases                                                            \\
//                         Hello And Welcome To My first real       \\
//   Script this script is designed to cut and bank yew logs in     //
//   Multi Locs bank Fill in the script in the below lines lines 60-67  \\
//  This Script would be about 1100 lines without fr0zons ts2      //
////////////////////////////////////////////////////////////////////\\

/////////////////////////////////////////////////////////////////////
//   Thanks to Torrent of Flame for his Tutorials and Help :D      \\
/////////////////////////////////////////////////////////////////////

const
  SmartWorld = 110;
  usesmart = true;


var
  frmDesign: TForm;
  Label1: TLabel;
  Label4: TLabel;
  Label5: TLabel;
  Label7: TLabel;
  Label8: TLabel;
  Label11: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Label6: TLabel;
  Label9: TLabel;
  Edit1: TEdit;
  Edit2: TEdit;
  Edit3: TEdit;
  Edit4: TEdit;
  ComboBox1: TComboBox;
  Button1: TButton;
  ComboBox2: TComboBox;
  Edit5: TEdit;
  Edit6: TEdit;
  Edit7: TEdit;
  Edit8: TEdit;
  Edit9: TEdit;
  ComboBox3: TComboBox;
  Edit10: TEdit;
  Edit11: TEdit;
  Edit12: TEdit;
  ComboBox4: TComboBox;
  Edit13: TEdit;
  Edit14: TEdit;
  Edit15: TEdit;
  ComboBox5: TComboBox;
  Loads, Yew: integer;
  BrokenAxe: integer;
  NormalAxe: integer;
  BrokenAxes: integer;
  LevelsGained: integer;
  x, y: integer;

procedure InitForm;
begin
  frmDesign := CreateForm;
  with frmDesign do
  begin
    Position := poScreenCenter;
    FormStyle := fsStayOnTop;
    Width := 593;
    Height := 479;
    BorderIcons := [];
    Caption := 'Nicbaz'#39's Yew Power';
    Color := clBlack;
    Font.Color := clFuchsia;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    PixelsPerInch := 96;
  end;
  Label1 := TLabel.Create(frmDesign);
  with Label1 do
  begin
    Parent := frmDesign;
    Left := 192;
    Top := 8;
    Width := 227;
    Height := 41;
    Caption := '~Nicbaz Yew Power~';
    Font.Color := clFuchsia;
    Font.Height := -37;
    Font.Name := 'Script';
    Font.Style := [fsUnderline];
  end;
  Label4 := TLabel.Create(frmDesign);
  with Label4 do
  begin
    Parent := frmDesign;
    Left := 488;
    Top := 88;
    Width := 26;
    Height := 13;
    Caption := 'Srl ID';
    Font.Color := clFuchsia;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
  end;
  Label5 := TLabel.Create(frmDesign);
  with Label5 do
  begin
    Parent := frmDesign;
    Left := 488;
    Top := 120;
    Width := 23;
    Height := 13;
    Caption := 'Pass';
    Font.Color := clFuchsia;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
  end;
  Label7 := TLabel.Create(frmDesign);
  with Label7 do
  begin
    Parent := frmDesign;
    Left := 480;
    Top := 152;
    Width := 35;
    Height := 16;
    Caption := 'Smart';
    Font.Color := clFuchsia;
    Font.Height := -13;
    Font.Name := 'Arial';
    Font.Style := [];
  end;
  Label8 := TLabel.Create(frmDesign);
  with Label8 do
  begin
    Parent := frmDesign;
    Left := 456;
    Top := 184;
    Width := 58;
    Height := 13;
    Caption := 'Smart World';
    Font.Color := clFuchsia;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
  end;
  Label11 := TLabel.Create(frmDesign);
  with Label11 do
  begin
    Parent := frmDesign;
    Left := 40;
    Top := 232;
    Width := 67;
    Height := 24;
    Caption := 'Player 2';
    Font.Color := clFuchsia;
    Font.Height := -19;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
  end;
  Label2 := TLabel.Create(frmDesign);
  with Label2 do
  begin
    Parent := frmDesign;
    Left := 40;
    Top := 48;
    Width := 67;
    Height := 24;
    Caption := 'Player 1';
    Font.Color := clFuchsia;
    Font.Height := -19;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
  end;
  Label3 := TLabel.Create(frmDesign);
  with Label3 do
  begin
    Parent := frmDesign;
    Left := 184;
    Top := 48;
    Width := 78;
    Height := 24;
    Caption := 'Player 3';
    Font.Color := clFuchsia;
    Font.Height := -21;
    Font.Name := 'Arial';
    Font.Style := [];
  end;
  Label6 := TLabel.Create(frmDesign);
  with Label6 do
  begin
    Parent := frmDesign;
    Left := 336;
    Top := 48;
    Width := 67;
    Height := 24;
    Caption := 'Player 4';
    Font.Color := clFuchsia;
    Font.Height := -19;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
  end;
  Label9 := TLabel.Create(frmDesign);
  with Label9 do
  begin
    Parent := frmDesign;
    Left := 184;
    Top := 288;
    Width := 324;
    Height := 29;
    Caption := 'Fill out all Info And Press Start';
    Color := clFuchsia;
    Font.Color := clFuchsia;
    Font.Height := -24;
    Font.Name := 'Tahoma';
    Font.Style := [];
    ParentColor := False;
  end;
  Edit1 := TEdit.Create(frmDesign);
  with Edit1 do
  begin
    Parent := frmDesign;
    Left := 24;
    Top := 88;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    TabOrder := 8;
    Text := 'Username';
  end;
  Edit2 := TEdit.Create(frmDesign);
  with Edit2 do
  begin
    Parent := frmDesign;
    Left := 24;
    Top := 120;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    PasswordChar := '*';
    TabOrder := 9;
    Text := 'Password';
  end;
  Edit3 := TEdit.Create(frmDesign);
  with Edit3 do
  begin
    Parent := frmDesign;
    Left := 520;
    Top := 88;
    Width := 41;
    Height := 21;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    MaxLength := 4;
    TabOrder := 10;
    Text := 'Id';
  end;
  Edit4 := TEdit.Create(frmDesign);
  with Edit4 do
  begin
    Parent := frmDesign;
    Left := 520;
    Top := 120;
    Width := 41;
    Height := 21;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    PasswordChar := '*';
    TabOrder := 11;
    Text := 'Pass';
  end;
  ComboBox1 := TComboBox.Create(frmDesign);
  with ComboBox1 do
  begin
    Parent := frmDesign;
    Left := 24;
    Top := 184;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    DropDownCount := 4;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    ItemHeight := 16;
    ParentShowHint := False;
    ShowHint := True;
    TabOrder := 12;
    Text := 'Varrock';
    with ComboBox1.Items do
    begin
      Add('Varrock');
      Add('Edgeville');
      Add('Draynor');
      Add('Falador');
    end;
  end;
  Button1 := TButton.Create(frmDesign);
  with Button1 do
  begin
    Parent := frmDesign;
    Left := 248;
    Top := 368;
    Width := 153;
    Height := 41;
    Caption := 'Start Script';
    Font.Color := clGreen;
    Font.Height := 17;
    Font.Name := 'Palatino Linotype';
    Font.Style := [];
    ModalResult := 1;
    TabOrder := 13;
  end;
  ComboBox2 := TComboBox.Create(frmDesign);
  with ComboBox2 do
  begin
    Parent := frmDesign;
    Left := 520;
    Top := 152;
    Width := 41;
    Height := 21;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    ItemHeight := 13;
    TabOrder := 14;
    Text := 'Yes';
    with ComboBox2.Items do
    begin
      Add('Yes');
      Add('No');
    end;
  end;
  Edit5 := TEdit.Create(frmDesign);
  with Edit5 do
  begin
    Parent := frmDesign;
    Left := 520;
    Top := 184;
    Width := 41;
    Height := 21;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    TabOrder := 15;
    Text := '1';
  end;
  Edit6 := TEdit.Create(frmDesign);
  with Edit6 do
  begin
    Parent := frmDesign;
    Left := 24;
    Top := 152;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    TabOrder := 16;
    Text := 'Nickname';
  end;
  Edit7 := TEdit.Create(frmDesign);
  with Edit7 do
  begin
    Parent := frmDesign;
    Left := 24;
    Top := 264;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    TabOrder := 17;
    Edit7.Text := 'User';
  end;
  Edit8 := TEdit.Create(frmDesign);
  with Edit8 do
  begin
    Parent := frmDesign;
    Left := 24;
    Top := 304;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    TabOrder := 18;
    PasswordChar := '*';
    Text := 'Pass';
  end;
  Edit9 := TEdit.Create(frmDesign);
  with Edit9 do
  begin
    Parent := frmDesign;
    Left := 24;
    Top := 344;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    TabOrder := 19;
    Text := 'Nick';
  end;
  ComboBox3 := TComboBox.Create(frmDesign);
  with ComboBox3 do
  begin
    Parent := frmDesign;
    Left := 24;
    Top := 384;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    ItemHeight := 16;
    TabOrder := 20;
    Text := 'ComboBox3';
    ComboBox3.Items.Add('Varrock');
    ComboBox3.Items.Add('Edgeville');
    ComboBox3.Items.Add('Draynor');
    ComboBox3.Items.Add('Falador');
  end;
  Edit10 := TEdit.Create(frmDesign);
  with Edit10 do
  begin
    Parent := frmDesign;
    Left := 176;
    Top := 88;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    TabOrder := 21;
    Text := 'User';
  end;
  Edit11 := TEdit.Create(frmDesign);
  with Edit11 do
  begin
    Parent := frmDesign;
    Left := 176;
    Top := 120;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    TabOrder := 22;
    PasswordChar := '*';
    Text := 'Pass';
  end;
  Edit12 := TEdit.Create(frmDesign);
  with Edit12 do
  begin
    Parent := frmDesign;
    Left := 176;
    Top := 152;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    TabOrder := 23;
    Text := 'Nick';
  end;
  ComboBox4 := TComboBox.Create(frmDesign);
  with ComboBox4 do
  begin
    Parent := frmDesign;
    Left := 176;
    Top := 184;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    ItemHeight := 16;
    TabOrder := 24;
    Text := 'ComboBox4';
    ComboBox4.Text := 'Location';
    ComboBox4.Items.Add('Varrock');
    ComboBox4.Items.Add('Edgeville');
    ComboBox4.Items.Add('Draynor');
    ComboBox4.Items.Add('Falador');
  end;
  Edit13 := TEdit.Create(frmDesign);
  with Edit13 do
  begin
    Parent := frmDesign;
    Left := 320;
    Top := 88;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    TabOrder := 25;
    Text := 'User';
  end;
  Edit14 := TEdit.Create(frmDesign);
  with Edit14 do
  begin
    Parent := frmDesign;
    Left := 320;
    Top := 120;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    TabOrder := 26;
    PasswordChar := '*';
    Text := 'Pass';
  end;
  Edit15 := TEdit.Create(frmDesign);
  with Edit15 do
  begin
    Parent := frmDesign;
    Left := 320;
    Top := 152;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    TabOrder := 27;
    Text := 'Nick';
  end;
  ComboBox5 := TComboBox.Create(frmDesign);
  with ComboBox5 do
  begin
    Parent := frmDesign;
    Left := 320;
    Top := 184;
    Width := 129;
    Height := 24;
    Color := clFuchsia;
    Font.Color := clBlack;
    Font.Height := -13;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    ItemHeight := 16;
    TabOrder := 28;
    Text := 'ComboBox5';
    ComboBox5.Items.Add('Varrock');
    ComboBox5.Items.Add('Edgeville');
    ComboBox5.Items.Add('Draynor');
    ComboBox5.Items.Add('Falador');
  end;
end;

procedure SafeInitForm;
var
  V: TVariantArray;
begin
  SetArrayLength(V, 0);
  ThreadSafeCall('InitForm', V);
end;

procedure ShowInitFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowInitFormModal;
var
  V: TVariantArray;
begin
  SetArrayLength(V, 0);
  ThreadSafeCall('ShowInitFormModal', V);
end;

procedure MainInitForm;
begin
  SafeInitForm;
  SafeShowInitFormModal;
end;



procedure DeclarePlayers;
begin
  Disguise('SRL - Forms- Index...');

  HowManyPlayers := 4;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := Edit1.text;
  Players[0].Pass := Edit2.text;
  Players[0].Nick := Edit6.text;
  Players[0].Active := True;
  Players[CurrentPlayer].Loc := Combobox1.Text;

  Players[1].Name := Edit7.text;
  Players[1].Pass := Edit8.text;
  Players[1].Nick := Edit9.text;
  Players[1].Active := True;

  Players[2].Name := Edit10.text;
  Players[2].Pass := Edit11.text;
  Players[2].Nick := Edit12.text;
  Players[2].Active := True;

  Players[3].Name := Edit13.text;
  Players[3].Pass := Edit14.text;
  Players[3].Nick := Edit15.text;
  Players[3].Active := True;



end;

/////////////////////////////////////////////////////////////////////
////////////////////////nicbaz BankerColor //////////////////////////
/////////////////////////////////////////////////////////////////////

function AutoBankerColor: Integer; // thanks for cazs tut

var
  R, G, B: Integer;
  H, S, L: Extended;
  X, Y, Z: Extended;
  MyColor, TestColor: Integer;
  ColorsTPA: TPointArray;
  C1: TIntegerArray;
  i: Integer;
begin
  MyColor := 5123368
    FindColorsSpiralTolerance(MSCX, MSCY, ColorsTPA, MyColor, MMX1, MMY1, MMX2, MMY2, 60);
  C1 := GetColors(ColorsTPA);
  ClearSameIntegers(C1);
  for i := 0 to Length(C1) - 1 do
  begin
    if rs_OnMinimap(ColorsTPA[i].X, ColorsTPA[i].Y) then
    begin
      TestColor := GetColor(ColorsTPA[i].X, ColorsTPA[i].Y);
      if SimilarColors(TestColor, 5123368, 50) then
      begin
        ColorToRGB(TestColor, R, G, B);
        ColorToHSL(TestColor, H, S, L);
        ColorToXYZ(TestColor, X, Y, Z);
        if InRange(R - G, -13, 27) then
          if InRange(R - B, -12, 28) then
            if InRange(G - B, -19, 21) then
              if InRange(Round(S) - Round(H), 24, 54) then
                if InRange(Round(L) - Round(H), 25, 55) then
                  if InRange(Round(S) - Round(L), -53, -23) then
                    if InRange(Round(X) - Round(Y), -7, 7) then
                      if InRange(Round(Y) - Round(Z), -8, 6) then
                        if GetColor(ColorsTPA[i].X + 2, ColorsTPA[i].Y + 2) = TestColor then
                          if GetColor(ColorsTPA[i].X + 1, ColorsTPA[i].Y + 1) = TestColor then
                          begin
                            Writeln('MyColor = ' + Inttostr(TestColor));
                            Result := TestColor;
                            Exit;
                          end;
      end;
    end;
  end;
  Writeln('Couldnt find My Color!');
  Result := 0;
end;

/////////////////////////////////////////////////////////////////////
////////////////////////nicbaz load DDTM's //////////////////////////
/////////////////////////////////////////////////////////////////////

/////////BANK////////////////

function DDTMBank: integer;
var
  BankMP: TDTMPointDef;
  BankSP: array of TDTMPointDef;
  BankDDTM: TDTM;
 begin
  SetArrayLength(BankSP, 4);

  BankMP.x := 80;
  BankMP.y := 30;
  BankMP.color := AutoBankerColor;
  BankMP.tolerance := 225;

  BankSP[0].x := 90;         BankSP[1].x := 71;        BankSP[2].x := 79;         BankSP[3].x := 75;
  BankSP[0].y := 34;         BankSP[1].y := 33;        BankSP[2].y := 34;         BankSP[3].y := 33;
  BankSP[0].areasize := 2;   BankSP[1].areasize := 2;  BankSP[2].areasize := 2;   BankSP[3].areasize := 2;
  BankSP[0].areashape := 0;  BankSP[1].areashape := 0; BankSP[2].areashape := 0;  BankSP[3].areashape := 0;
  BankSP[0].color := 1310462;BankSP[1].color := 195836;BankSP[2].color := 195836; BankSP[3].color := 195836;
  BankSP[0].Tolerance := 5;  BankSP[1].Tolerance := 5; BankSP[2].Tolerance := 5;  BankSP[3].Tolerance := 5;

  BankDDTM.MainPoint :=  BankMP;
  BankDDTM.SubPoints :=  BankSP;
  result := AddDTM(BankDDTM);
end;

////////////EdgeBank////////////
function EdgeBankDDTM: Integer;
var
  EdgeMP: TDTMPointDef;
  EdgeSP: array of TDTMPointDef;
  EdgeDDTM: TDTM;
begin
 SetArrayLength(EdgeSP, 4);
 
  EdgeMP.x := 115;
  EdgeMP.y := 47;
  EdgeMP.AreaSize := 0;
  EdgeMP.AreaShape := 0;
  EdgeMP.Color := AutoBankerColor;
  EdgeMP.Tolerance := 225;

  EdgeSP[0].x := 115;         EdgeSP[1].x := 113;         EdgeSP[2].x := 112;         EdgeSP[3].x := 112;
  EdgeSP[0].y := 47;          EdgeSP[1].y := 39;          EdgeSP[2].y := 48;          EdgeSP[3].y := 57;
  EdgeSP[0].AreaSize := 0;    EdgeSP[1].AreaSize := 2;    EdgeSP[2].AreaSize := 2;    EdgeSP[3].AreaSize := 2;
  EdgeSP[0].AreaShape := 0;   EdgeSP[1].AreaShape := 0;   EdgeSP[2].AreaShape := 0;   EdgeSP[3].AreaShape := 0;
  EdgeSP[0].Color := 6711150; EdgeSP[1].Color := 982782;  EdgeSP[2].Color := 195836;  EdgeSP[3].Color := 195836;
  EdgeSP[0].Tolerance := 225; EdgeSP[1].Tolerance := 5;   EdgeSP[2].Tolerance := 5;   EdgeSP[3].Tolerance := 5;
  
  EdgeDDTM.MainPoint :=  EdgeMP;
  EdgeDDTM.SubPoints :=  EdgeSP;
  Result := AddDTM(EdgeDDTM);
end;

///////////////Fally////////////////

function FallyBankDDTM: Integer;
var
  FallyMP: TDTMPointDef;
  FallySP: array of TDTMPointDef;
  FallyDDTM: TDTM;
begin
  FallyMP.x := 109;
  FallyMP.y := 91;
  FallyMP.AreaSize := 0;
  FallyMP.AreaShape := 0;
  FallyMP.Color := AutoBankerColor;
  FallyMP.Tolerance := 50;

  FallySP[0].x := 109;          FallySP[1].x := 101;           FallySP[2].x := 119;        FallySP[3].x := 117;
  FallySP[0].y := 91;           FallySP[1].y := 93;            FallySP[2].y := 94;         FallySP[3].y := 94;
  FallySP[0].AreaSize := 0;     FallySP[1].AreaSize := 0;      FallySP[2].AreaSize := 0;   FallySP[3].AreaSize := 0;
  FallySP[0].AreaShape := 0;    FallySP[1].AreaShape := 0;     FallySP[2].AreaShape := 0;  FallySP[3].AreaShape := 0;
  FallySP[0].Color := 9943484;  FallySP[1].Color := 195836;    FallySP[2].Color := 60909;  FallySP[3].Color := 195836;
  FallySP[0].Tolerance := 50;   FallySP[1].Tolerance := 0;     FallySP[2].Tolerance := 0;
  FallySP[3].Tolerance := 0;

  FallyDDTM.MainPoint := FallyMP;
  FallyDDTM.SubPoints := FallySP;
  Result := AddDTM(FallyDDTM);
end;
///////////////Dranor////////////////
function DranorBankDDTM: Integer;
var
  DranorMP: TDTMPointDef;
  DranorSP: array of TDTMPointDef;
  DranorDDTM: TDTM;
begin
 SetArrayLength(DranorSP, 4);

  DranorMP.x := 65;
  DranorMP.y := 108;
  DranorMP.AreaSize := 0;
  DranorMP.AreaShape := 0;
  DranorMP.Color := AutoBankerColor;
  DranorMP.Tolerance := 0;

  DranorSP[0].x := 65;             DranorSP[1].x := 61;          DranorSP[2].x := 60;           DranorSP[3].x := 61;
  DranorSP[0].y := 108;            DranorSP[1].y := 115;         DranorSP[2].y := 102;          DranorSP[3].y := 111;
  DranorSP[0].AreaSize := 0;       DranorSP[1].AreaSize := 2;    DranorSP[2].AreaSize := 2;     DranorSP[3].AreaSize := 2;
  DranorSP[0].AreaShape := 0;      DranorSP[1].AreaShape := 0;   DranorSP[2].AreaShape := 0;    DranorSP[3].Color := 195836;
  DranorSP[0].Color := 6381671;    DranorSP[1].Color := 195836;  DranorSP[2].Color := 195836;   DranorSP[3].AreaShape := 0;
  DranorSP[0].Tolerance := 0;      DranorSP[1].Tolerance := 5;   DranorSP[2].Tolerance := 5;    DranorSP[3].Tolerance := 5;

  DranorDDTM.MainPoint :=  DranorMP;
  DranorDDTM.SubPoints :=  DranorSP;
  Result := AddDTM(DranorDDTM);
end;
/////////////////////////////////////////////////////////////////////
////////////////////////nicbaz load DTM's ///////////////////////////
/////////////////////////////////////////////////////////////////////

procedure LoadDTMs;
begin

  BrokenAxe := DTMFromString('78DA636C616260E0636440061D697C601A26C' +
    'AD80354C38FAA06260B57D30754C34D404D2F508D080135CD4035' +
    '5C04D4D400D5A8E05703008C0604B4');

  NormalAxe := DTMFromString('78DA63E4626060E067400175F17C609A11CA6' +
    '7640312720C688011550D0B909025A0860748B01050230E245809' +
    'A81105127C04D480E439F1AB01004CBC01C4');

end;

/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz GameTag///////////////////////////
/////////////////////////////////////////////////////////////////////

function GameTabKey(tabnumber: Integer): Boolean;
begin
  if GetCurrentTab = tabnumber then
  begin
    Result := True;
    Exit;
  end;
  if not TabExists(tabnumber) then
  begin
    Result := False;
    Exit;
  end;
  case tabnumber of
    1: TypeSend('{F1}');
    2: TypeSend('{F2}');
    3: TypeSend('{F3}');
    4: TypeSend('{ESC}');
    5: TypeSend('{F4}');
    6: TypeSend('{F5}');
    7: TypeSend('{F6}');
    8: TypeSend('{F8}');
    9: TypeSend('{F9}');
    10: TypeSend('{F10}');
    11: TypeSend('{F11}');
    12: TypeSend('{F12}');
  end;
  Result := True;
  Wait(100 + random(100));
end;


/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Is Axe Broken ////////////////////
/////////////////////////////////////////////////////////////////////

procedure Talk;
begin
  if (not (LoggedIn)) then
    Exit;
  if (Random(35) = 0) then
  begin
    case Random(36) of
      0: TypeSend('hi all');
      1: TypeSend('temple is near');
      2: TypeSend('hellooo');
      3: TypeSend('hay');
      4: TypeSend('heya');
      5: TypeSend('i hate those dam botters');
      6: TypeSend('boring');
      7: TypeSend('blaaaaahhh');
      8: TypeSend('cutting yews takes long');
      9: TypeSend('booooooooring');
      10: TypeSend('yay');
      11: TypeSend('ouch');
      12: TypeSend('ohhhh');
      13: TypeSend('blah.');
      14: TypeSend('quiet');
      15: TypeSend('bam');
      16: TypeSend('come down yew');
      17: TypeSend('meuahahah');
      18: TypeSend('bleh');
      19: TypeSend('yewwww');
      20: TypeSend('bagh');
      21: TypeSend('argh !');
      22: TypeSend('gree !');
      23: TypeSend('come down yew !');
      24: TypeSend('yew come here !');
      25: TypeSend('i mean it !');
      26: TypeSend('argh !');
      27: TypeSend('sozz !');
      28: TypeSend('muahahahahahaha i kill yews !');
      29: TypeSend('zzzz !');
      30: TypeSend('sleeps for mees !');
      31: TypeSend('i want to do this');
      32: TypeSend('i lovvvessss all you guys');
      33: TypeSend('i like sayig random stuff');
      34: TypeSend('yew tree die');
      35: TypeSend('lololol');
    end;
  end;
end;
/////////////////////////////////////////////////////////////////////
////////////////////////nicbaz Auto Responder ///////////////////////
/////////////////////////////////////////////////////////////////////

function AutoResponder: boolean;
var
  talks: integer;

begin
  if inchat('wc') or inchat('oodcutting') then
  begin
    case Random(5) of
      0: TypeSend('my wc lvl is 2 good to be tru');
      1: TypeSend('rofl choob i never give my wc lvl');
      2: TypeSend('m wc lvl is 9999');
      3: TypeSend('lol 99');
      4: TypeSend('wc 4 l3f2');
    end;
    Talks := Talks + 1;
    Result := true;
    gametab(4);
    Exit;
  end;
  if (inchat('macro')) or (inchat('bot')) or (inchat('autoer')) then
  begin
    case Random(5) of
      0: TypeSend('macro rofl never');
      1: TypeSend('no way i anit');
      2: TypeSend('all bots should die');
      3: TypeSend('lol 99');
      4: TypeSend('wc 4 l3f2');
    end;
    Talks := Talks + 1;
    Result := true;
    exit;
  end;
  if (inchat('hey')) or (inchat('hi')) or (inchat('yo')) then
  begin
    case Random(11) of
      0: TypeSend('yoooo wasssupppppppp');
      1: TypeSend('hi');
      2: TypeSend('hey');
      3: TypeSend('yo');
      4: TypeSend('yer');
      5: TypeSend('what');
      6: TypeSend('hiiies');
      7: TypeSend('yoooooo');
      8: TypeSend('lol yer hi');
      9: TypeSend('noob');
      10: TypeSend('hey');
    end;

    Talks := Talks + 1;
    Result := true;
    exit;
  end;
  if (inchat('auto')) or (inchat('talk')) or (inchat('noob')) then
  begin
    case Random(5) of
      0: TypeSend('im not a noob i dont have to talk go away');
      1: TypeSend('lol noob i dont auto');
      2: TypeSend('rolf never');
      3: TypeSend('fr00b');
      4: TypeSend('im never talking to you f00b');
    end;
    Talks := Talks + 1;
    Result := true;
    exit;
  end;
  if (inchat('nice')) or (inchat('rich')) or (inchat('good')) then
  begin
    case Random(5) of
      0: TypeSend('ty ur nice 2');
      1: TypeSend('i am rich so i dont talk to noobs');
      2: TypeSend('rolf never');
      3: TypeSend('i am good rich guy');
      4: TypeSend('yyoyo its nice being richss');
    end;
    Talks := Talks + 1;
    Result := true;
    exit;
  end;
end;

/////////////////////////////////////////////////////////////////////
////////////////////////nicbaz LevelsGained /////////////////////////
/////////////////////////////////////////////////////////////////////

function HandleContinue: boolean;
var
  xx, yy: integer;
begin
  if (FindText(xx, yy, 'ained', NPCChars, 0, 340, 500, 460))
    or (IsChatBlackTextAnyLine('ained')) then
  begin
    LevelsGained := LevelsGained + 1;
    result := true;
  end else
    result := false;
end;
/////////////////////////////////////////////////////////////////////
////////////////////////nicbaz Walk To Bank /////////////////////////
/////////////////////////////////////////////////////////////////////

procedure WalkToBank;
begin
  if not (LoggedIn) then
    Exit;
  case (Lowercase(Players[CurrentPlayer].Loc)) of
    'varrock': begin
        MakeCompass('S');
        RoadColor := FindVarrockRoadColor;
        if (findSymbol(x, y, 'tree')) then
        begin
          mouse(x, y, 2, 2, true);
          FFlag(2);
          if not RadialWalk(RoadColor, 355, 25, 65, 4, 4) then
            RadialWalk(RoadColor, 355, 27, 65, 4, 4);
          Writeln('Walking To bank')
            if not RadialWalk(RoadColor, 359, 27, 72, 4, 4) then
            RadialWalk(RoadColor, 355, 33, 72, 4, 4);
          Writeln('Walking To bank')
            if not RadialWalk(RoadColor, 345, 15, 60, 4, 4) then
            RadialWalk(RoadColor, 345, 13, 60, 4, 4);
          Writeln('Walking To bank')
            if (findSymbol(x, y, 'bank')) then
          begin
            mouse(x, y, 2, 2, true);
            FFlag(2);
            if not (findSymbol(x, y, 'bank')) then
            begin
              MakeCompass('s');
              wait(1000);
              if DTMRotated(DDTMBank, x, y, MMX1, MMY1, MMX2, MMY2) then
              begin
                Writeln('found bank dtm');
                wait(100)
                  Mouse(x - 6, y - 6, 12, 2, true);
                FFlag(0)
                  if not DTMRotated(DDTMBank, x, y, MMX1, MMY1, MMX2, MMY2) then
                begin
                  Writeln('did not find bank');
                  NextPlayer(False);
                end;
              end;
            end;
          end;
        end;
      end;

    'edgeville': begin
        MakeCompass('n');
        if (findSymbol(x, y, 'bank')) then
          mouse(x, y, 2, 2, true);
        if not (findSymbol(x, y, 'bank')) then
        begin
          wait(1000);
          if DTMRotated(EdgeBankDDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
          begin
            Writeln('found bank dtm');
            wait(1000)
              Mouse(x - 6, y - 6, 12, 2, true);
            FFlag(0)
          end else
            if (findSymbol(x, y, 'dungeon')) then
            begin
              mouse(x - 10, y, 2, 2, true);
              FFlag(2);
              MakeCompass('n');
              RadialWalk(FindWaterColor, 35, 90, 30, 4, 4);
              FFlag(20);
              if (findSymbol(x, y, 'bank')) then
              begin
                mouse(x, y, 2, 2, true);
                FFlag(2);
                if not (findSymbol(x, y, 'bank')) then
                begin
                  wait(1000);
                  if not DTMRotated(EdgeBankDDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
                    Writeln('did not found bank dtm');
                  Nextplayer(false);
                  begin
                    Writeln('found bank dtm');
                    wait(1000)
                      Mouse(x - 6, y - 6, 12, 2, true);
                    FFlag(0)
                  end;
                end;
              end;
            end;
        end;
      end;

    'falador': begin
        RoadColor := FindFallyRoadColor;
        MakeCompass('n');
        if (findSymbol(x, y, 'tree')) then
        begin
          RadialRoadWalk(FindRoadColor, 45, 100, 25, 1, 1);
          if not RadialRoadWalk(RoadColor, 0, 40, 72, 1, 1) then
            RadialRoadWalk(FindRoadColor, 355, 45, 72, 1, 1);
          if not RadialRoadWalk(FindRoadColor, 359, 40, 50, 1, 1) then
            RadialRoadWalk(FindRoadColor, 355, 40, 50, 1, 1);
          if (findSymbol(x, y, 'bank')) then
          begin
            Mouse(x, y, 5, 5, true);
            if not (findSymbol(x, y, 'bank')) then
            begin
              wait(1000);
              if not DTMRotated(FallyBankDDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
                Writeln('did not found bank dtm');
              Nextplayer(false);
              begin
                Writeln('found bank dtm');
                wait(1000)
                  Mouse(x - 6, y - 6, 12, 2, true);
                FFlag(0)
              end;
            end;
          end;
        end;
      end;

    'draynor': begin
        if (findSymbol(x, y, 'tree')) then
        begin
          if not RadialRoadWalk(FindDirtRoadColor, 260, 244, 72, 2, 2) then
            RadialRoadWalk(FindDirtRoadColor, 260, 230, 74, 2, 2);
          if not RadialRoadWalk(FindDirtRoadColor, 224, 226, 79, 2, 2) then
            RadialRoadWalk(FindDirtRoadColor, 230, 240, 79, 2, 2);
          if not RadialRoadWalk(FindRoadColor, 313, 297, 76, 2, 2) then
            RadialRoadWalk(FindRoadColor, 320, 280, 76, 2, 2);
          if not RadialRoadWalk(FindRoadColor, 334, 350, 77, 2, 2) then
            RadialRoadWalk(FindRoadColor, 334, 350, 77, 2, 2);
          if not DTMRotated(DranorBankDDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
            Writeln('did not found bank dtm');
          Nextplayer(false);
          begin
            Writeln('found bank dtm');
            wait(1000)
              Mouse(x - 6, y - 6, 12, 2, true);
            FFlag(0)
          end;
        end;
      end;
  end;
end;

/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz AntiBan //////////////////////////
/////////////////////////////////////////////////////////////////////

function AntiBans: boolean;
begin
  result := false;
  if (not (LoggedIn)) then
    Exit;
  case Random(14) of

    0: begin
        HoverSkill('Mining', false);
        wait(1000 + random(1000));
        GameTab(4);
        result := true;
      end;

    1: begin
        HoverSkill('Woodcutting', false);
        wait(1000 + random(1000));
        GameTab(4);
        result := true;
      end;

    2: begin
        HoverSkill('Smithing', false);
        wait(4000 + random(550));
        GameTab(4);
        result := true;
      end;


    3: begin PickUpMouse; result := true; end;

    4: begin MouseBox(MMX1, MMY1, MMX2, MMY2, 3); result := true; end;

    5: begin SleepAndMoveMouse(5000 + random(6000)); result := true; end;

    6: begin
        GameTab(2 + Random(12));
        wait(2000 + random(1500));
        GameTab(4);
        result := true;
      end;


    7: begin
        GameTab(6 + Random(12));
        wait(1500 + random(700));
        GameTab(4);
        result := true;
      end;

    8: begin
        HoverSkill('Magic', false);
        wait(4000 + random(550));
        GameTab(4);
        result := true;
      end;

    9: begin
        RandomRClick;
        wait(1000);
        result := true;
      end;

    10: begin
        BoredHuman;
        wait(2000 + random(333));
        result := true;
      end;

    11: begin
        PickUpMouse;
        result := true;
      end;

    12: begin
        RandomMovement;
        wait(2000 + random(333));
        result := true;
      end;

    13: begin
        GameTabKey(1 + Random(12));
        wait(2000 + random(1000));
        GameTabKey(4);
      end;
  end;
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz randoms //////////////////////////
/////////////////////////////////////////////////////////////////////

procedure Randoms;
var
  cx, cy: Integer;
begin
  FindNormalRandoms;
  FindLamp('Woodcutting');
  FindEnt(cx, cy, true);
end;


procedure CheckAxe;
begin
  if FindAxe then
  begin
    Writeln('Axe Found')
  end
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Check Versions ///////////////////
/////////////////////////////////////////////////////////////////////

function CheckVersions: boolean;
begin
  result := false;
  if (SRLVersionNumber < 15) then
  begin
    WriteLn('Wrong SRL Version; Download the latest update at http://www.sr'
      + 'l-forums.com/');
    TerminateScript;
  end;
  if (GetScarVersion < 314) then
  begin
    WriteLn('Wrong SCAR Version; Download the latest update at http://www.fr'
      + 'eddy1990.com/');
    TerminateScript;
  end;
  if (SRLVersionNumber = 15) and (GetScarVersion = 315) then
    result := true;
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Talk//////////////////////////////
/////////////////////////////////////////////////////////////////////

procedure TalkLots;
begin
  if (not (LoggedIn)) then
    Exit;
  case Random(2) of
    0: talk;
    1: AutoResponder
  end;
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Ent//// //////////////////////////
/////////////////////////////////////////////////////////////////////

procedure EntFinder; //By Yohojo -   Edited by bobbohobbo
var
  EX, EY: integer;
  FX, FY: integer;
  SafeEntWait: LongInt;
begin
  if (not (LoggedIn)) then
    Exit;
  begin
    Status('Ent Checking')
      if
      (FindObjCustom(EX, EY, ['Yew'], [4690821], 7)) then
    begin
      MMouse(EX, EY, 0, 0)
        if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
      begin
        Status('Found Ent');
        MarkTime(SafeEntWait)
          repeat
          FTWait(5)
            FindNormalRandoms;
          if not (LoggedIn) then
            NextPlayer(False);
        until TimeFromMark(SafeEntWait) > 20000 + Random(5000);
      end;
    end;
  end;
end;


/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz banking //////////////////////////
/////////////////////////////////////////////////////////////////////

procedure Banking;
var
  x, y: Integer;
begin

  Yew := DTMFromString('78DA6394616060E0674001A10E5C0C5C409A1' +
    '188FF0301A3169021C4800618914820AD0A243808A8910312AC04' +
    'D480EC6127A006E45E09026AE48184247E3500B4EB05E9');
  begin
    Wait(300 + random(160));
    OpenBankQuiet('veb');

    if (not (FindDTM(Yew, x, y, mix1, miy1, mix2, miy2))) then
    begin
      if (FindColorSpiralTolerance(x, y, 608352, mix1, miy1, mix2, miy2, 15)) then
      begin
        Mouse(x, y, 4, 3, false);
        ChooseOption('All');
        Loads := Loads + 1;
      end;
    end else

      if (FindDTM(Yew, x, y, mix1, miy1, mix2, miy2)) then
      begin
        Mouse(x, y, 4, 3, false);
        ChooseOption('All');
        Loads := Loads + 1;
      end;
    CloseBank;
    Wait(150 + random(278));
    MakeCompass('S');
    FreeDTM(Yew);
  end;
end;

/////////////////////////////////////////////////////////////////////
////////////////////////////WalkToAllBank////////////////////////////
/////////////////////////////////////////////////////////////////////

procedure WalkToAllTrees;
begin
  if not (LoggedIn) then
    Exit;
  case (Lowercase(Players[CurrentPlayer].Loc)) of

    'varrock': begin
        MakeCompass('N');
        RoadColor := FindVarrockRoadColor;
        if not RadialWalk(RoadColor, 350, 10, 65, 4, 4)
          then
          RadialWalk(RoadColor, 345, 5, 65, 4, 4);
        FFlag(2);
        if FindSymbol(x, y, 'water') then
        begin
          if not RadialWalk(RoadColor, 0, 25, 69, 4, 4)
            then
            RadialWalk(RoadColor, 0, 35, 69, 4, 4);
          Writeln('Walkig step 2')
            FFlag(2);
          if not RadialWalk(RoadColor, 0, 18, 75, 4, 4)
            then
            RadialWalk(RoadColor, 350, 25, 70, 4, 4);
          Writeln('Walking To Tree')
            FFlag(2);
          if (findSymbol(x, y, 'tree')) then
          begin
            mouse(x - 10, y, 2, 2, true);
            FFlag(2);
            if not FindSymbol(x, y, 'tree') then
              Writeln('did not find Trees');
            NextPlayer(False);
          end;
        end;
      end;

    'edgeville': begin
        MakeCompass('s');
        if (findSymbol(x, y, 'tree')) then
        begin
          mouse(x - 10, y, 2, 2, true);
          FFlag(2);
          if not (findSymbol(x, y, 'tree')) then
          begin
            if (FindSymbol(x, y, 'water')) then
              MakeCompass('n');
            if not RadialWalk(FindWaterColor, 290, 340, 45, 4, 4) then
              if not RadialWalk(FindWaterColor, 295, 345, 45, 4, 4) then
                RadialWalk(FindWaterColor, 300, 350, 45, 4, 4);
            FFlag(15);
            if (findSymbol(x, y, 'dungeon')) then
            begin
              mouse(x, y, 2, 2, true);
              FFlag(2);
              if (findSymbol(x, y, 'tree')) then
              begin
                mouse(x - 10, y, 2, 2, true);
                FFlag(2);
              end;
            end;
          end;
        end;
      end;

    'falador': begin
        RoadColor := FindFallyRoadColor;
        MakeCompass('n');
        if not (RadialRoadWalk(RoadColor, 217, 195, 72, 1, -1)) then
          RadialRoadWalk(RoadColor, 230, 180, 65, 0, -1);
        FFlag(2);
        if not (RadialRoadWalk(RoadColor, 168, 190, 65, 1, -1))
          then
          if not (RadialRoadWalk(RoadColor, 165, 195, 65, 1, -1)) then
            RadialRoadWalk(FindRoadColor, 165, 195, 65, 1, -1);
        FFlag(0);
        if not (RadialRoadWalk(FindRoadColor, 198, 160, 25, 1, 1)) then
          RadialRoadWalk(FindRoadColor, 200, 163, 25, 1, 1);
        FFlag(0);
        if (findSymbol(x, y, 'tree')) then
        begin
          Mouse(x, y, 5, 5, true);
          FFlag(0);
        end;
      end;

    'draynor': begin
        if DTMRotated(DranorBankDDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
        begin
          if not RadialRoadWalk(FindRoadColor, 114, 129, 65, 2, 2) then
            RadialRoadWalk(FindRoadColor, 120, 140, 65, 2, 2);
          if (findSymbol(x, y, 'doungen')) then
          begin
            if not RadialRoadWalk(FindRoadColor, 147, 181, 73, 2, 2) then
              RadialRoadWalk(FindRoadColor, 150, 190, 73, 2, 2);
            if not RadialRoadWalk(FindDirtRoadColor, 51, 71, 74, 2, 2) then
              RadialRoadWalk(FindDirtRoadColor, 40, 80, 74, 2, 2);
            if not RadialRoadWalk(FindDirtRoadColor, 59, 75, 72, 2, 2) then
              RadialRoadWalk(FindDirtRoadColor, 40, 85, 72, 2, 2);
            if not (findSymbol(x, y, 'tree')) then
              Writeln('did not find tree');
            Nextplayer(false);
            begin
              Mouse(x, y, 5, 5, true);
            end;
          end;
        end;
      end;
  end;
end;


/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Is Axe Broken ////////////////////
/////////////////////////////////////////////////////////////////////

function IsAxeBroken: boolean;
var
  x, y: Integer;
begin
  if FindDTM(BrokenAxe, x, y, mix1, miy1, mix2, miy2) then
  begin
    Result := True;
    Writeln('Axe is broken! Attempting to bank and get new one.');
    BrokenAxes := BrokenAxes + 1;
    WalkToBank;
    Writeln('Banking for new axe..');
    Banking;
    Mouse(x, y, 4, 4, false);
    ChooseOption('eposit');
    if (FindDTM(NormalAxe, x, y, mix1, miy1, mix2, miy2)) then
    begin
      Mouse(x, y, 4, 4, false);
      ChooseOption('1')
      CheckAxe;
      CloseBank;
      FreeDTM(BrokenAxe)
    end;
    CloseBank;
    WalkToAllTrees;
  end;
end;

/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz ChopYew //////////////////////////
/////////////////////////////////////////////////////////////////////// Thanks Timer Help on this.

function NoTree: Boolean;
begin
  Result := (not IsUpText('down'));
end;

function FullInv: Boolean;

var
  S: string;

begin
  S := GetBlackChatMessage
    Result := (Pos('full', S) <> 0);
end;


procedure ChopTrees;

var
  TPA: TPointArray;
  TPA2: T2DPointArray;
  I, X, Y, II,
    III, NoLog: Integer;

begin
  while (not InvFull) do
  begin
    if (GetColor(96, 488) = 4016467) then
      MouseBox(75, 486, 105, 497, 1);
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, 2380107, MSX1, MSY1, MSX2, MSY2, 60);
    TPA2 := TPAToATPA(TPA, 20);
    if GetArrayLength(TPA2) < 6 then //Change 12 To What To Not Go For Trees If Under The Points.. 12 is Exited On 1 - 11 Points Only (After 20 TPA Split Sort.).
      Exit;
    for I := 0 to High(TPA2) do
      TPA[I] := MiddleTPA(TPA2[I]);
    for I := 0 to Length(TPA) do
    begin
      MMouse(TPA[I].X - Random(5), TPA[I].Y - Random(5), 5, 5);
      Wait(90 + Random(50));
      if IsUpText('ew') then
        Break
      else Continue;
    end;
    if IsUpText('down') then
    begin
      GetMousePos(X, Y);
      Mouse(X, Y, 0, 0, True);
      I := GetColor(X, Y);
      II := InvCount;
      FFlag(0);
      Wait(1000 + Random(500));
      repeat
        if IsAxeBroken then
          Break;
        if AntiBans then
          MMouse(X - Random(5), Y - Random(5), 5, 5);
        Wait(100 + Random(50));
        III := InvCount;
        if FindEnt(X, Y, True) then
          Break;
        if (not II = III) then
        begin
          II := InvCount;
          NoLog := 0;
        end else
          NoLog := NoLog + 1;
        if (NoLog >= 200) then
        begin
          NoLog := 0;
          Break;
        end;
        if (FullInv) then
          Break;
      until (NoTree);
    end;
  end;
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Nicbaz////////////////////////////
/////////////////////////////////////////////////////////////////////

procedure text;
begin
  ClearDebug;
  Writeln(' _______  .__      ___.                  ')
    wait(250 + random(30));
  Writeln(' \      \ |__| ____\_ |__ _____  ________')
    wait(250 + random(30));
  Writeln(' /   |   \|  |/ ___\| __ \\__  \ \___   /')
    wait(250 + random(30));
  Writeln('/    |    \  \  \___| \_\ \/ __ \_/    / ')
    wait(250 + random(30));
  Writeln('\____|__  /__|\___  >___  (____  /_____ \')
    wait(250 + random(30));
  Writeln('        \/        \/    \/     \/      \/')
    wait(2000)
    Writeln(' _____.___.               __________                          ')
    wait(250 + random(30));
  Writeln(' \__  |   | ______  _  __ \______   \______  _  __ ___________')
    wait(250 + random(30));
  Writeln('  /   |   |/ __ \ \/ \/ /  |     ___/  _ \ \/ \/ // __ \_  __ \')
    wait(250 + random(30));
  Writeln('  \____   \  ___/\     /   |    |  (  <_> )     /\  ___/|  | \/')
    wait(250 + random(30));
  Writeln('  / ______|\___  >\/\_/    |____|   \____/ \/\_/  \___  >__|   ')
    wait(250 + random(30));
  Writeln('  \/           \/                                     \/       ')
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Anti Leech////////////////////////
/////////////////////////////////////////////////////////////////////

procedure DieLeech;
begin
  if (SRLID = '') or (SRLPassword = '') then
  begin
    Wait(1000 + Random(400));
    ClearDebug;
    Writeln('YOU ARE A LEACHER');
    wait(1000)
      Writeln('So Go Get Your Self a SRL ID and PAss');
    wait(1000)
      Writeln('If you dont do that you the script will not run');
    Wait(1000)
      Writeln('www.srl-forums.com');
    wait(1000)
      Writeln('Go kill your SELF!!!!!');
    Wait(1000)
      Writeln('NICBAZZZZ');
    TerminateScript;
  end;
end;
/////////////////////////////////////////////////////////////////////////
///////////////////////////nicbaz Proggy/////////////////////////////////
/////////////////////////////////////////////////////////////////////////

procedure Proggy;
begin
  ClearDebug;
  Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
  Writeln('/\Please Post Progress Reports & Any problems /\ ');
  Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
  Writeln('//\\Worked For: ' + TimeRunning + '         //\\');
  Writeln('//\\Did: ' + IntToStr(Loads) + ' Loads      //\\');
  Writeln('//\\Broke: ' + IntToStr(BrokenAxes) + ' Axes //\\');
  Writeln('//\\Talked: ' + IntToStr(Talks) + 'To       //\\');
  Writeln('//\\Levels: ' + IntToStr(LevelsGained) + 'Gained levels //\\');
  Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
  Writeln('//\\      Thanks for Using my Script :D     //\\ ');
  Writeln('```````````````````````````````````````````````');
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////Mainloop/////////////////////////////////
/////////////////////////////////////////////////////////////////////

procedure Setup;
begin
  SetupSRL;
  ClearDebug;
  GetSelf.WindowState := wsMinimized;
  MainInitForm;
  GetSelf.WindowState := wsNormal;
  SRLId := Edit3.Text;
  SRLPassword := Edit4.Text;
  Writeln(SRLid + ' ' + SRLpassword);
  CheckVersions;
  DieLeech;
  text;
  SmartSetupEx(SMARTWorld, false, true);
  SetTargetDC(SmartGetDC);
  while not SmartReady do Wait(2000);
  DeclarePlayers;
  FreeForm(frmDesign);
  LoginPLayer;
end;

begin
  Setup;
  LoadDTMs;
  CheckAxe;
  Wait(900 + Random(333));
  repeat
    WalkToAllTrees;
    ChopTrees;
    WalkToBank;
    Banking;
    if (Loads = Players[CurrentPlayer].Integers[0]) then
    begin
      NextPlayer(True);
      Loads := 0;
      MakeCompass('S')
        Writeln('Players Switched successfully')
    end;
    Proggy;
  until (False);
end.

/////////////////////////////////////////////////////////////////////////
//Thank you for useing my script!                                      //
//Cr  Edits to                                                           //
//Torrent Of Flame For Lots of Help!                                   //
//Jesus For lots of help!                                              //
//And Da Owner for lots of help!                                       //
////////////////////////////////////////////////////////////////

——————————————————
<!– END TEMPLATE: formanswers –>

I vote yes. This script is basically the same as the last one but with a form. Not sure what Sumilion (toooo striict he is) thinks though :

Yes. Good job with your script, it looks like you put a lot of pride and effort in making it which is a big plus :D

The one thing that I notice is that the walking is a little bit lacking on having lots of failsafes. Walking is probably the most important piece of a script and if it fails then the script fails. If the walking works good and you are able to run players round the clock without walking fails then great… disregard what im saying then lol :p

However based on how it looks I think that it could use a lot more failsafes and failproof methods for getting to and from the trees.

Great job and keep up the good work ;)

I'm not sure much autotalk and big form… and i cant test it.

From: Hermpie
I'm not sure much autotalk and big form… and i cant test it.

Look past the form and the autotalk and you will see several advanced procedures and functions. He also meets (if not exceeds) every requirement that SRL sets for membership… what exactly are you not sure about?

Testing is not important in an application because we are looking for knowledge of coding and if he shows that he knows how to do something then he deserves membership where he can apply it better to scripts…

i agree with gerauchert, it's good, walking could have more failsafes. but i do have one question.

Does your GameTab changing procedure actually work? cus from the looks of it it'll write into runescape '[F12]'

~RM

From: gerauchert
Look past the form and the autotalk and you will see several advanced procedures and functions. He also meets (if not exceeds) every requirement that SRL sets for membership… what exactly are you not sure about?

Testing is not important in an application because we are looking for knowledge of coding and if he shows that he knows how to do something then he deserves membership where he can apply it better to scripts…

Testing counts if some would make an 50 line uber l33t power miner without an include or plugin other then srl then I would say yes.

I think both is important but if some1 makes an 300 lines uber basic script
example, lobby fisher and banker, i would say yes if it works 100%(auto talkers not included)

But, it looks good.

Too bad I don't see anything of the improvements I wrote you in that PM, but I'm going to vote yes.

Yes, after all this trying you've done, I think its about time you got it :p

Yep. Youre great, and nice script :o

Ow wait.. you copyed 3 scripts, and claimed it was yours? No no.. You fail.

From: Zytex!
Yep. Youre great, and nice script :o

Ow wait.. you copyed 3 scripts, and claimed it was yours? No no.. You fail.

care to share where that information came from? that kind of information could change the whole app around…

~RM

Yes, unless Zytex! can prove it.

var
  frmDesign: TForm;
  Label1: TLabel;
  Label4: TLabel;
  Label5: TLabel;
  Label7: TLabel;
  Label8: TLabel;
  Label11: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Label6: TLabel;
  Label9: TLabel;
  Edit1: TEdit;
  Edit2: TEdit;
  Edit3: TEdit;
  Edit4: TEdit;
  ComboBox1: TComboBox;
  Button1: TButton;
  ComboBox2: TComboBox;
  Edit5: TEdit;
  Edit6: TEdit;
  Edit7: TEdit;
  Edit8: TEdit;
  Edit9: TEdit;
  ComboBox3: TComboBox;
  Edit10: TEdit;
  Edit11: TEdit;
  Edit12: TEdit;
  ComboBox4: TComboBox;
  Edit13: TEdit;
  Edit14: TEdit;
  Edit15: TEdit;
  ComboBox5: TComboBox;
  Loads, Yew: integer;
  BrokenAxe: integer;
  NormalAxe: integer;
  BrokenAxes: integer;
  LevelsGained: integer;
  x, y: integer;

UGH! All the integers,TEdits, etc can be all into one group.. :|

Ex: x,y,LevelsGained,etc…: integer; not all seperated like that taking up lots of un-needed lines.

I am holding vote until Zytex! posts. :D

From: Zytex!
Yep. Youre great, and nice script :o

Ow wait.. you copyed 3 scripts, and claimed it was yours? No no.. You fail.

long time ago…. i was nooob and a silly leacher… and noob i think all i did was use wizzups ess miner ect.. please do not let that reflect on this

Hmmm, I think the tides are turning on this app

From: Mylesmadness
Hmmm, I think the tides are turning on this app

what do you mean by that is that good or bad :o?

:o 999 posts

Yes.

From: nicbaz
what do you mean by that is that good or bad :o?

:o 999 posts

He means bad, doesn't look like it has yet though :p

Look on him for what he does now and has done recently, and not what he has done in the past. I'm sure we've all had some thoughtless moments when we were younger (ironic how I'm saying that :p).

HELL YES! You have done so much for this community, and your work with frostbite has been outstanding so far, you know much, and have much to learn… but who doesn't? Your willingness to learn is what matters, and yours is certainly very strong.

Good luck Nic :)

Okay, this is really bugging me. This is the third person who is going to get away with copying just because he's doing good stuff now.

dude i copyed a very very long time ago when there was SI ect , i wouldn't evan think about doing it now and i dint really get away with it at the time…. so please drop it. ive been here for 2 years and i did 1.5+ year ago when i was a total newb.. so please drop it

And we will not hold that against you.

You have proven that you really want this nicbaz and I believe you will be a great SRL member. You're previous application might have been declined, but that only makes this one more worthy of being accepted. Don't quite get what I mean ? Just look at the poll, 19 votes for yes.

I hope you won't hold it against me that I denied your last application ;)

Here we go :

In!