SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Scar ( a bit ) Vb( intermidiate) , java ( very less)

Other Communitys
Mopar , SlDevelopment

How Long have You Played Runescape
4 years

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

im 14 years old ! Ive played runescape for around 4 years ( more autoing) Im a proffesioanl WEB developer. Im okay in scar. Im intermidate in vb , i started learning it when i was 10!! Im really friendly and i love helping peopel , money or no money! Im quite funny at times. Im really hard working!! I work very hard when it comes to doing things and im very serious in my : studies/passions/hobbies no matter how small!
Thanks!

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

Please do not realese this script! I am updating many procedures.

program ShanGardeziScriptPack;
{.include srl/srl.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
const
  UpdateUrl  = '';
  VersionUrl = 'http://www.freewebs.com/memberpins/version.txt';
  NewsUrl    = 'http://www.freewebs.com/memberpins/News.txt';
  CurrentVersion = '1.0';
  ScriptName = 'PowerCutter'; //the name that the autoupdater will save the script as

var
  frmDesign : TForm;
  GroupBox1 : TGroupBox;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  aName : TEdit;
  aPass : TEdit;
  Edit1 : TEdit;
  ASRLPASS : TEdit;
  GroupBox2 : TGroupBox;
  cPlayerDisplay : TLabel;
  pName : TEdit;
  pPass : TEdit;
  pNick : TEdit;
  backButton : TButton;
  Button1 : TButton;
  Button2 : TButton;
  Button4 : TButton;
  GroupBox3 : TGroupBox;
  CheckBox1 : TCheckBox;
  CheckBox2 : TCheckBox;
  Button3 : TButton;
  TreeType : TComboBox;
  
var yougetsome, xx, yy, yourinv, users, h, m, s, nogametab1, darkness, cut, deads, lvltouse, lost, burned, banked, cantburn, beginburn, before, after, logs, cuser: integer;
    tc: array[1..10] of integer;
    regular, oak, willow, yew: boolean;
    gUser, gPass: string;

procedure Authenticate;
var
  gTempStr: String;
begin
  gTempStr := GetPage('http://www.runescapedirect.6te.net/?username=' + gUser + '&password=' + gPass + '&auth=AUTH1');
  if(pos('accepted', lowercase(gTempStr)) = 0) then
  begin
    Writeln('Error authenticating! Ending script.');
    TerminateScript;
  end;
end;

procedure StartScript(Sender: TObject);
begin
  frmDesign.ModalResult := mrOk;
end;

procedure PlayerManager(Sender: TObject);
begin
  if(Sender = backButton)then
  begin
    if(CUser = 1)then
      backButton.Enabled := false;
    SaveSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Name', PName.Text);
    SaveSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Pass', PPass.Text);
    SaveSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Nick', PNick.Text);
    SaveSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Bool1', BoolToStr(CheckBox1.Checked));
    SaveSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Bool2', BoolToStr(CheckBox2.Checked));
    SaveSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'TreeType', TreeType.Text);
    Dec(CUser);
    PName.Text := LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Name');
    PPass.Text := LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Pass');
    PNick.Text := LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Nick');
    CheckBox1.Checked := StrToBoolDef(LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Bool1'), false);
    CheckBox2.Checked := StrToBoolDef(LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Bool2'), false);
    TreeType.Text := LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'TreeType');
    if(TreeType.Text = '')then TreeType.Text := 'Tree Type';
  end else
  if(Sender = Button1)then
  begin
    if(PName.Text = '') or (PPass.Text = '') or (PNick.Text = '') or (PName.Text = 'Player Name') or (PPass.Text = 'Player Password') or (PNick.Text = 'Player Nickname') then
    begin
      ShowMessage('Please fill in all player data before moving on to a new player');
      Exit;
    end;
    backButton.Enabled := true;
    SaveSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Name', PName.Text);
    SaveSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Pass', PPass.Text);
    SaveSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Nick', PNick.Text);
    SaveSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Bool1', BoolToStr(CheckBox1.Checked));
    SaveSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Bool2', BoolToStr(CheckBox2.Checked));
    SaveSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'TreeType', TreeType.Text);
    Inc(CUser);
    PName.Text := LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Name');
    PPass.Text := LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Pass');
    PNick.Text := LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Nick');
    if(PName.Text = '')then PName.Text := 'Player Name';
    if(PPass.Text = '')then PPass.Text := 'Player Password';
    if(PNick.Text = '')then PNick.Text := 'Player Nickname';
    CheckBox1.Checked := StrToBoolDef(LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Bool1'), false);
    CheckBox2.Checked := StrToBoolDef(LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Bool2'), false);
    TreeType.Text := LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'TreeType');
    if(TreeType.Text = '')then TreeType.Text := 'Tree Type';
  end;
  cPlayerDisplay.Caption := IntToStr(CUser + 1);
  if(Sender = Button2)then
  begin
    GroupBox3.Visible := true;
    Button2.Enabled := false;
    frmDesign.Height := 263;
  end else
  if(Sender = Button3)then
  begin
    GroupBox3.Visible := false;
    Button2.Enabled := true;
    frmDesign.Height := 199;
  end;
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 373;
frmDesign.Height := 199;
frmDesign.Caption := 'Shan Gardezi'#39's Power Chopper';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 0;
GroupBox1.Top := 0;
GroupBox1.Width := 217;
GroupBox1.Height := 161;
GroupBox1.Caption := 'Script Setup';
GroupBox1.TabOrder := 0;
Label1 := TLabel.Create(GroupBox1);
Label1.Parent := GroupBox1;
Label1.Left := 8;
Label1.Top := 16;
Label1.Width := 56;
Label1.Height := 13;
Label1.Caption := 'Auth Name';
Label2 := TLabel.Create(GroupBox1);
Label2.Parent := GroupBox1;
Label2.Left := 8;
Label2.Top := 48;
Label2.Width := 71;
Label2.Height := 13;
Label2.Caption := 'Auth Password';
Label3 := TLabel.Create(GroupBox1);
Label3.Parent := GroupBox1;
Label3.Left := 8;
Label3.Top := 88;
Label3.Width := 35;
Label3.Height := 13;
Label3.Caption := 'SRL ID';
Label4 := TLabel.Create(GroupBox1);
Label4.Parent := GroupBox1;
Label4.Left := 8;
Label4.Top := 120;
Label4.Width := 47;
Label4.Height := 13;
Label4.Caption := 'SRL Pass';
aName := TEdit.Create(GroupBox1);
aName.Parent := GroupBox1;
aName.Left := 88;
aName.Top := 16;
aName.Width := 121;
aName.Height := 21;
aName.TabOrder := 0;
aPass := TEdit.Create(GroupBox1);
aPass.Parent := GroupBox1;
aPass.Left := 88;
aPass.Top := 48;
aPass.Width := 121;
aPass.Height := 21;
aPass.TabOrder := 1;
Edit1 := TEdit.Create(GroupBox1);
Edit1.Parent := GroupBox1;
Edit1.Left := 88;
Edit1.Top := 88;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 2;
ASRLPASS := TEdit.Create(GroupBox1);
ASRLPASS.Parent := GroupBox1;
ASRLPASS.Left := 88;
ASRLPASS.Top := 120;
ASRLPASS.Width := 121;
ASRLPASS.Height := 21;
ASRLPASS.TabOrder := 3;
GroupBox2 := TGroupBox.Create(frmDesign);
GroupBox2.Parent := frmDesign;
GroupBox2.Left := 224;
GroupBox2.Top := 0;
GroupBox2.Width := 137;
GroupBox2.Height := 161;
GroupBox2.Caption := 'Players';
GroupBox2.TabOrder := 1;
cPlayerDisplay := TLabel.Create(GroupBox2);
cPlayerDisplay.Parent := GroupBox2;
cPlayerDisplay.Left := 56;
cPlayerDisplay.Top := 136;
cPlayerDisplay.Width := 23;
cPlayerDisplay.Height := 13;
cPlayerDisplay.Caption := '1';
pName := TEdit.Create(GroupBox2);
pName.Parent := GroupBox2;
pName.Left := 8;
pName.Top := 16;
pName.Width := 121;
pName.Height := 21;
pName.Font.Color := clWindowText;
pName.Font.Height := -11;
pName.Font.Name := 'MS Sans Serif';
pName.Font.Style := [];
pName.ParentFont := False;
pName.TabOrder := 0;
pName.Text := 'Player Name';
pPass := TEdit.Create(GroupBox2);
pPass.Parent := GroupBox2;
pPass.Left := 8;
pPass.Top := 48;
pPass.Width := 121;
pPass.Height := 21;
pPass.TabOrder := 1;
pPass.Text := 'Player Password';
pNick := TEdit.Create(GroupBox2);
pNick.Parent := GroupBox2;
pNick.Left := 8;
pNick.Top := 80;
pNick.Width := 121;
pNick.Height := 21;
pNick.TabOrder := 2;
pNick.Text := 'Player Nickname';
backButton := TButton.Create(GroupBox2);
backButton.Parent := GroupBox2;
backButton.Left := 8;
backButton.Top := 128;
backButton.Width := 41;
backButton.Height := 25;
backButton.Caption := '<--';
backButton.TabOrder := 3;
backButton.Enabled := false;
backButton.OnClick := @PlayerManager;
Button1 := TButton.Create(GroupBox2);
Button1.Parent := GroupBox2;
Button1.Left := 88;
Button1.Top := 128;
Button1.Width := 43;
Button1.Height := 25;
Button1.Caption := '-->';
Button1.TabOrder := 4;
Button1.OnClick := @PlayerManager;
Button2 := TButton.Create(GroupBox2);
Button2.Parent := GroupBox2;
Button2.Left := 8;
Button2.Top := 104;
Button2.Width := 121;
Button2.Height := 17;
Button2.Caption := 'Open Player Options';
Button2.Font.Color := clWindowText;
Button2.Font.Height := -9;
Button2.Font.Name := 'Georgia';
Button2.Font.Style := [];
Button2.ParentFont := False;
Button2.TabOrder := 5;
Button2.OnClick := @PlayerManager;
Button4 := TButton.Create(GroupBox1);
Button4.Parent := GroupBox1;
Button4.Left := 1;
Button4.Top := 141;
Button4.Width := 64;
Button4.Height := 17;
Button4.Caption := 'Run Script';
Button4.Font.Color := clWindowText;
Button4.Font.Height := -9;
Button4.Font.Name := 'Georgia';
Button4.Font.Style := [];
Button4.ParentFont := False;
Button4.TabOrder := 5;
Button4.OnClick := @StartScript;
GroupBox3 := TGroupBox.Create(frmDesign);
GroupBox3.Parent := frmDesign;
GroupBox3.Left := 0;
GroupBox3.Top := 168;
GroupBox3.Width := 361;
GroupBox3.Height := 57;
GroupBox3.Caption := 'Player Options';
GroupBox3.TabOrder := 2;
GroupBox3.Visible := False;
CheckBox1 := TCheckBox.Create(GroupBox3);
CheckBox1.Parent := GroupBox3;
CheckBox1.Left := 8;
CheckBox1.Top := 24;
CheckBox1.Width := 49;
CheckBox1.Height := 17;
CheckBox1.Caption := 'Bank';
CheckBox1.TabOrder := 0;
CheckBox2 := TCheckBox.Create(GroupBox3);
CheckBox2.Parent := GroupBox3;
CheckBox2.Left := 64;
CheckBox2.Top := 24;
CheckBox2.Width := 49;
CheckBox2.Height := 17;
CheckBox2.Caption := 'Burn';
CheckBox2.TabOrder := 1;
TreeType := TComboBox.Create(GroupBox3);
TreeType.Parent := GroupBox3;
TreeType.Left := 120;
TreeType.Top := 24;
TreeType.Width := 105;
TreeType.Height := 21;
TreeType.ItemHeight := 13;
TreeType.TabOrder := 11;
TreeType.Items.Add('Regular');
TreeType.Items.Add('Oak');
TreeType.Items.Add('Willow');
TreeType.Items.Add('Yew');
TreeType.Text := LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'TreeType');
if(TreeType.Text = '')then TreeType.Text := 'Tree Type';
Button3 := TButton.Create(GroupBox3);
Button3.Parent := GroupBox3;
Button3.Left := 240;
Button3.Top := 24;
Button3.Width := 107;
Button3.Height := 17;
Button3.Caption := 'Close Player Options';
Button3.Font.Color := clWindowText;
Button3.Font.Height := -9;
Button3.Font.Name := 'Georgia';
Button3.Font.Style := [];
Button3.ParentFont := False;
Button3.TabOrder := 2;
Button3.OnClick := @PlayerManager;
PName.Text := LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Name');
PPass.Text := LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Pass');
PNick.Text := LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Nick');
Edit1.Text := LoadSetting('ShanGardezi', 'SRLNAME');
ASRLPASS.Text := LoadSetting('ShanGardezi', 'SRLPASS');
aName.Text := LoadSetting('ShanGardezi', 'AuthName');
aPass.Text := LoadSetting('ShanGardezi', 'AuthPass');
if(PName.Text = '')then PName.Text := 'Player Name';
if(PPass.Text = '')then PPass.Text := 'Player Password';
if(PNick.Text = '')then PNick.Text := 'Player Nickname';
CheckBox1.Checked := StrToBoolDef(LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Bool1'), false);
CheckBox2.Checked := StrToBoolDef(LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Bool2'), false);
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 reports;
begin
  SendSRLReport;
  srlrandomsreport;
  addtoreport('------Multi Chopper By:------');
  addtoreport('-------Shan Gardezi--------');
  addtoreport('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  ConvertTime(gettimerunning, H, M, S)
  addtoreport('Time Run: ' + inttostr(H) + ':' + inttostr(M) + ':' + inttostr(S));
  addtoreport('Logs Dropped: ' + inttostr(cut));
  addtoreport('Logs Burned: ' + inttostr(burned));
  addtoreport('Logs Banked: ' + inttostr(banked));
  addtoreport('Deaths: ' + inttostr(deads));
  addtoreport('Axes Lost: ' + inttostr(lost));
  addtoreport('Black Minimap: ' + inttostr(darkness));
  addtoreport('-----------------------------');
end;

procedure setcb;
begin
  status('Setting up colours and DTM`s');
  YouGetSome := DTMFromString('78DA63146760606065C00A186134139060429' +
       '55B33B711530D07013586408293805D8698766D5ADC82AA460253' +
       'CDE6A59DA86AC409DB0500E960082E');
  if regular = true then tc[10]:= 2378820 else tc[10]:= 1
  if regular = true then tc[9]:= 3367257 else tc[9]:= 1
  if oak = true then tc[8]:= 4095859 else tc[8]:= 1
  if oak = true then tc[7]:= 5803138 else tc[7]:= 1
  if willow = true then tc[6]:= 728603 else tc[6]:= 1
  if willow = true then tc[5]:= 6137242 else tc[5]:= 1
  if yew = true then tc[4]:= 1784368 else tc[4]:= 1
  if yew = true then tc[3]:= 3823696 else tc[3]:= 1
  tc[2]:= 1
  tc[1]:= 1
  yourinv := DTMFromString('78DA63146160606063400107D64D04D38C503' +
       'E2313906062C00A50D4701050A38BA9E6D0C65E54353A9876ED5E' +
       'DD8DAA468C0835829876A1AB0100539A0A9D');
  lvltouse := DTMFromString('78DA63CC626060E0664001DB5674816946289' +
       'FD1054830A3AA59BBB003530D1F01733A30D5EC5EDD8DAAA61D48' +
       '7010509386A90606E06AF281042F013520BBB808A87105129CF8D' +
       '500005A2A0D97');
  cantburn := DTMFromString('78DA63146760606063C00A186134139060429' +
       '5DBB4B805530D07AA9A35731B51D518030966027619639A83A146' +
       '9C48354CF8D50000F65C0486');
  beginburn := DTMFromString('78DA63546260606063400117F6CE06D38C503' +
       'E231390604255736CC7544C359C0C58015C8D27A6396776CFC254' +
       '43C81C909BB950E54E6E9B8CAA4619D32E7473008E4609A2');
  logs := DTMFromString('78DA6314676060106640011E0E920CFF81342' +
       '310FF0702461E20839B010D302291405A0148701050A30A24C409' +
       'A89102123204D4F0030939026AD88184187E350084C606D6');
end;

function FindFastRandoms: Boolean; //By WT-Fakawi, modified by ShanGardezi
var i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
           begin
             status('You died, going to oak tree in Lumby');
             Result := True;
             wait(3000 + random(1500));
             mouse(633, 139, 5, 5, true);
             deads:= deads + 1
           end;
      2: if FindMod then
           begin
             Result := True;
             status('Found MOD, waited');
           end;
      3: if FindMime then
           begin
             status('Stupid mime, logging out');
             Result := True;
             if users > 0 then users:= users - 1
             wait(2000 + random(1000));
             makecompass('N');
             HighestAngle;
             fixchat;
           end;
      4: if FindMaze then
           begin
             status('In maze, logging out');
             Result := True;
             if users > 0 then users:= users - 1
             wait(2000 + random(1000));
             makecompass('N');
             HighestAngle;
             fixchat;
           end;
      5: if FindQuiz then
           begin
             status('Being quized, logging out');
             Result := True;
             if users > 0 then users:= users - 1
             wait(2000 + random(1000));
             makecompass('N');
             HighestAngle;
             fixchat;
           end;
      6: if FindDemon then
           Result := True;
      7: begin
          if {NoGameTab} 1 = 0 then
          begin
            Result := True;
            status('A Game tab is missing, logging out');
            writeln('A gametab is missing! Random? Logging out...');
            nogametab1:= nogametab1 + 1
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            status('In dark area, logigng out');
            writeln('You are in a dark area, random? Logging out...');
            darkness:= darkness + 1
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

procedure fixrandoms;
begin
  //NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  findnormalrandoms;
  findfastrandoms;
  if findfight then
  begin
    writeln('You are under attack');
    runto('n', true);
    status('Under attack, running away');
  end;
  if finddtm(lvltouse, xx, yy, 9, 442, 495, 458) then
  begin
    writeln('You lost all your axes, logging out...');
    lost:= lost + 1
    reportvars[3]:= 1
    reports;
    logout;
  end;
end;

procedure recievelogs;
var waited: integer;
begin
  waited:= 0
  repeat
    status('Waiting for logs');
    wait(750 + random(250));
    waited:= waited + 1;
    status('Checking/fixing randoms');
    fixrandoms;
  until((finddtm(yougetsome, xx, yy, 13, 440, 268, 458))or(finddtm(yourinv, xx, yy, 13, 440, 268, 458))or(waited = 15))
end;

function mscolour(colour: integer): boolean;
var xx, yy: integer;
begin
  result:= findcolor(xx, yy, colour, 4, 4, 515, 337)
end;

procedure perfectmouse(x, y, xran, yran, xshake, yshake, delay, delran: integer; left: boolean);
var xx, yy, xx1, yy1, rand: integer;
begin
  getmousepos(xx, yy);
  getmousepos(xx1, yy1);
  x:= x - xran + random(xran * 2)
  y:= y - yran + random(yran * 2)
  xx:= xx - x
  yy:= yy - y
  repeat
    if (xx > 0)or(xx = 0) then
    begin
      rand:= 1 + random(xshake)
      xx:= xx - (rand)
      xx1:= xx1 - (rand)
    end;
    if xx < 0 then
    begin
      rand:= 1 + random(xshake)
      xx:= xx + (rand)
      xx1:= xx1 + (rand)
    end;
    if (yy > 0)or(yy = 0) then
    begin
      rand:= 1 + random(xshake)
      yy:= yy - (rand)
      yy1:= yy1 - (rand)
    end;
    if yy < 0 then
    begin
      rand:= 1 + random(xshake)
      yy:= yy + (rand)
      yy1:= yy1 + (rand)
    end;
    movemouse(xx1, yy1);
    wait(delay + random(delran));
  until((xx = 0)and(yy = 0))
  wait(delay * 25 + random(delran * 7));
  getmousepos(xx, yy);
  holdmouse(xx, yy, left);
  wait(31 + random(50));
  releasemouse(xx, yy, left);
end;

procedure clickmscolour(colour: integer; left, ran: boolean);
var xx, yy: integer;
begin
  if findcolor(xx, yy, colour, 4, 4, 515, 337) then
  begin
    wait(100 + random(200));
    if ran = false then perfectmouse(xx, yy, 0, 0, 2, 2, 2, 2, true);
    if ran = true then perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, true);
  end;
end;

procedure clicktree;
var click: boolean;
    number: integer;
begin
  number:= 1
  repeat
    status('Clicking Tree');
    click:= true
    if click = true then
    begin
      if mscolour(tc[number]) then
      begin
        findcolor(xx, yy, tc[number], 4, 4, 515, 337);
        if findent(xx, yy, false) then
        begin
          perfectmouse(254, 184, 5, 5, 2, 2, 2, 2, true);
          findent(xx, yy, true);
        end;
        clickmscolour(tc[number], true, true);
        wait(2000 + random(500));
        if findent(xx, yy, false) then
        begin
          perfectmouse(254, 184, 5, 5, 2, 2, 2, 2, true);
          findent(xx, yy, true);
        end;
        click:= false
      end;
      wait(10);
    end;
    number:= number + 1
  until((click = false)or(number = 11))
end;

function findtree: boolean;
begin
  if (mscolour(tc[1]))or(mscolour(tc[2]))or(mscolour(tc[3]))or(mscolour(tc[4]))or(mscolour(tc[5]))or(mscolour(tc[6]))or(mscolour(tc[7]))or(mscolour(tc[8]))or(mscolour(tc[9]))or(mscolour(tc[10])) then result:= true
end;

function lastlog: boolean;
begin
  if finddtm(logs, xx, yy, 684, 429, 725, 462) then result:= true
end;

function invcolourtol(colour, tolerance: integer): boolean;
  var xx, yy: integer;
begin
  result:= findcolortolerance(xx, yy, colour, 567, 211, 729, 454, tolerance)
end;

function invcolourtolskip(colour, tolerance, x1, y1, x2, y2: integer): boolean;
  var xx, yy: integer;
begin
  result:= findcolorSkipBoxtolerance(xx, yy, colour, 567, 211, 729, 454, tolerance, IntToBox(x1, y1, x2, y2))
end;

procedure clickinvcolourtol(colour, tolerance: integer; left, ran: boolean);
  var xx, yy: integer;
begin
  if findcolortolerance(xx, yy, colour, 567, 211, 729, 454, tolerance) then
  begin
    wait(100 + random(200));
    if ran = false then mouse(xx, yy, 0, 0, left);
    if ran = true then mouse(xx, yy, 3, 3, left);
  end;
end;

procedure clickinvcolourtolskip(colour, tolerance, x1, y1, x2, y2: integer; left, ran: boolean);
  var xx, yy: integer;
begin
  if findcolorskipboxtolerance(xx, yy, colour, 567, 211, 729, 454, tolerance, IntToBox(x1, y1, x2, y2)) then
  begin
    wait(100 + random(200));
    if ran = false then mouse(xx, yy, 0, 0, left);
    if ran = true then mouse(xx, yy, 3, 3, left);
  end;
end;

procedure nextaccount;
begin
  if Users > 0 then
  begin
    status('Switching accounts');
    writeln('You were logged out, next user');
    nextplayer(false);
    loginplayer;
    wait(2000 + random(1000));
    makecompass('N');
    HighestAngle;
    fixchat;
  end;
end;

procedure droplogs;
var attempts: integer;
begin
  repeat
    status('Dropping logs');
    if finddtm(logs, xx, yy, 548, 205, 732, 467) then
    begin
      attempts:= attempts + 1
      perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, false);
      wait(350 + random(250));
      if chooseoption('rop ') then
      begin
        cut:= cut + 1
        reportvars[0]:= reportvars[0] + 1
      end;
    end;
    wait(350 + random(250));
    if LoggedIn = false then
    begin
      if users > 0 then users:= users - 1
      Nextaccount;
    end;
    if getcurrenttab = 4 = false then gametab(4)
    if attempts = 40 then
    begin
      writeln('Cannot drop some kind of object, logging out');
      logout;
    end;
  until((finddtm(logs, xx, yy, 548, 205, 732, 467) = false)or(loggedin = false)or(attempts = 40))
  attempts:= random(10);
  reports;
  reportvars[0]:= 0
end;

function FindOption(txt: string): Boolean; //Thnaks Stupid 3ooo , Modded By Shan
var
  x1, y1, x2, y2, LeftCorner, RightCorner, x, y: Integer;
begin
  LeftCorner := BitmapFromString(4, 4, 'z78DA33753135313137C5' +
    '411A600064715CEA914500CACE13F0');
  RightCorner := BitmapFromString(4, 4, 'z78DA33753135313137' +
    'C5200D30002E35F8C501C9C013F0');
  if (FindBitmap(LeftCorner, x1, y1)) and (FindBitmap(RightCorner, x2, y2)) then
  begin
    if (FindText(x, y, txt, upchars, x1, y1, x2, 502)) then
    begin
      Result := True;
    end
  end;
  FreeBitmap(LeftCorner);
  FreeBitmap(RightCorner);
end;

function burn: boolean;
begin
  result:= false
  if (regular = true)and(findoption(' Lo')) then
  begin
    chooseoption(' Lo');
    result:= true;
  end;
  if (oak = true)and(findoption(' Oa')) then
  begin
    chooseoption(' Oa');
    result:= true;
  end;
  if (willow = true)and(findoption(' Wi')) then
  begin
    chooseoption(' Wi');
    result:= true;
  end;
  if (yew = true)and(findoption(' Ye')) then
  begin
    chooseoption(' Ye');
    result:= true;
  end;
  if result = false then
  begin
    getmousepos(xx, yy);
    chooseoption(' rop');
    wait(750 + random(500));
    perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, false);
    chooseoption(' rop');
    cut:= cut + 1
    reportvars[0]:= 1
    reports;
  end;
end;

procedure burnlogs;
var attempts, waittime, runwhat: integer;
begin
  repeat
    status('Burning logs');
    if finddtm(logs, xx, yy, 548, 205, 732, 467) then
    begin
      attempts:= attempts + 1
      perfectmouse(579, 229, 5, 5, 2, 2, 2, 2, true);
      perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, false);
      wait(350 + random(250));
      if burn then
      begin
        burned:= burned + 1
        reportvars[1]:= 1
        reports;
        waittime:= 0
        repeat
          wait(750 + random(500));
          waittime:= waittime + 1
        until((finddtm(cantburn, xx, yy, 13, 440, 268, 458))or(finddtm(beginburn, xx, yy, 13, 440, 268, 458))or(waittime = 10))
      end;
    end;
    wait(50 + random(50));
    if LoggedIn = false then
    begin
      if users > 0 then users:= users - 1
      Nextaccount;
    end;
    if getcurrenttab = 4 = false then gametab(4)
    if finddtm(cantburn, xx, yy, 13, 440, 268, 458) then
    begin
      runwhat:= random(4)
      if runwhat = 0 then walkhalfway(606, 61);
      if runwhat = 1 then walkhalfway(620, 112);
      if runwhat = 2 then walkhalfway(668, 125);
      if runwhat = 3 then walkhalfway(685, 37);
    end;
    if attempts = 45 then
    begin
      writeln('Cannot burn some kind of object, logging out');
      logout;
    end;
  until((finddtm(logs, xx, yy, 548, 205, 732, 467) = false)or(loggedin = false)or(attempts = 40))
  attempts:= random(10);
end;

procedure banklogs;
var attempts, total: integer;
begin
  total:= 0
  repeat
    total:= total + 1
    if FindBank('db') then
    begin
      if BankScreen then
      begin
        before:= InvCount;
        repeat
          status('Banking logs');
          if finddtm(logs, xx, yy, 548, 205, 732, 467) then
          begin
            attempts:= attempts + 1
            perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, false);
            chooseoption('All');
            wait(50 + random(50));
          end;
          wait(100 + random(100));
          if LoggedIn = false then
          begin
            if users > 0 then users:= users - 1
            Nextaccount;
          end;
          if attempts = 42 then
          begin
            writeln('Cannot bank some kind of object, logging out');
            closebank;
            logout;
          end;
        until((finddtm(logs, xx, yy, 548, 205, 732, 467) = false)or(loggedin = false)or(attempts = 40))
        after:= InvCount;
        after:= before - after
        banked:= banked + after
        reportvars[2]:= after
        reports;
        closebank;
        perfectmouse(630, 120, 5, 5, 2, 2, 2, 2, true)
        attempts:= random(10);
        total:= 2
      end;
    end else droplogs;
  until(total = 2)
end;

function mmcolour(colour: integer): boolean;
var xx, yy: integer;
begin
  result:= findcolor(xx, yy, colour, 572, 10, 722, 159)
end;

function events: boolean;
  var xx, yy: integer;
begin
  result:= false
  status('Waiting for all fights and walking');
  repeat
    result:= false
    wait(500 + random(500));
    if mmcolour(255) then result:= true
    if (findcolor(xx, yy, 255, 253, 150, 270, 163))or(findcolor(xx, yy, 65280, 253, 150, 270, 163)) then result:= true
  until(result = false)
end;

procedure mcbox(xx, yy, xx2, yy2: integer; lefft: boolean);
begin
  xx:= xx + random(xx2 - xx)
  yy:= yy + random(yy2 - yy)
  mouse(xx, yy, 0, 0, true);
end;

procedure AntiBan;
var perform: integer;
begin
  perform:= random(500)
  if perform = 1 then HoverSkill(players[currentplayer].skill, false);
  if perform = 1 - 125 then PickUpMouse;
  if perform = 3 then AlmostLogout;
  if perform = 4 then
  begin
    Wait2(4000 + random(1000), true);
    wait(1000 + random(500));
    makecompass('N');
  end;
  if perform = 5 then BoredHuman;
end;

procedure FirstUserSetup;
begin
  mcbox(521, 5, 551, 432, true);
  status('Logging in and setting up');
  LoginPlayer;
  wait(1000 + random(1000));
  makecompass('N');
  HighestAngle;
  fixchat;
end;

procedure MultiChopper;
begin
  setcb;
  {movetotray;}
  FindWindowBySize(766, 504);
  activateclient;
  firstusersetup;
  repeat
    if users = 0 = false then
    begin
      if getcurrenttab = 4 = false then gametab(4)
      events;
      if (lastlog) then
        if(Players[CurrentPlayer].Booleans[0] = true) then burnlogs else
          if(Players[CurrentPlayer].Booleans[1] = true) then banklogs else
            droplogs;
      if findtree then
      begin
        wait(500 + random(1000));
        clicktree;
        recievelogs;
      end;
      wait(500 + random(500));
      status('Performing anti-ban');
      AntiBan;
      status('Checking/fixing randoms');
      fixrandoms;
      if LoggedIn = false then
      begin
        if users > 0 then users:= users - 1
        Nextaccount;
      end;
    end;
    wait(10 + random(10));
  until(Users = 0)
  status('Setting Up Reports');
  reports;
  terminatescript;
end;

procedure LoadThePlayers;
var
  i: integer;
begin
  repeat
    if(LoadSetting('ShanGardezi', 'Player' + IntToStr(i) + 'Name') = '') or (LoadSetting('ShanGardezi', 'Player' + IntToStr(i) + 'Name') = 'Player Name') then Exit;
    NumberOfPlayers(i + 1);
    Players[i].Name := LoadSetting('ShanGardezi', 'Player' + IntToStr(i) + 'Name');
    Players[i].Pass := LoadSetting('ShanGardezi', 'Player' + IntToStr(i) + 'Pass');
    Players[i].Nick := LoadSetting('ShanGardezi', 'Player' + IntToStr(i) + 'Nick');
    SetLength(Players[i].Booleans, 2);
    Players[i].Booleans[0] := StrToBoolDef(LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Bool1'), false);
    Players[i].Booleans[1] := StrToBoolDef(LoadSetting('ShanGardezi', 'Player' + IntToStr(CUser) + 'Bool2'), false);
    case LowerCase(LoadSetting('ShanGardezi', 'Player' + IntToStr(i) + 'Tree')) of
      'regular': Regular := true;
      'oak'    : Oak     := true;
      'willow' : Willow  := true;
      'yew'    : Yew     := true;
    end;
    Players[i].Skill := 'woodcutting';
    Players[i].Active := true;
    Inc(i);
  until(false)
end;

procedure InitMainScript;
begin
  gUser := aName.Text;
  gPass := aPass.Text;
  SaveSetting('ShanGardezi', 'AuthName', aName.Text);
  SaveSetting('ShanGardezi', 'AuthPass', aPass.Text);
  SaveSetting('ShanGardezi', 'SRLNAME', Edit1.Text);
  SaveSetting('ShanGardezi', 'SRLPASS', ASRLPASS.Text);
  Authenticate;
  LoadThePlayers;
end;

procedure CheckVersion;
var
  tstr: String;
  thefile: integer;
begin
  tstr := GetPage(VersionURL);
  if(CurrentVersion = tstr)then Exit;
  writeln('Your script is out of date! Attempting to update now!');
  thefile := RewriteFile(ScriptPath + ScriptName + '.scar',False);
  WriteFileString(thefile, Getpage(UpdateURL));
  CloseFile(thefile);
  writeln('Please close SCAR and re-run the script');
  TerminateScript;
end;

begin
  CheckVersion;
  SafeInitForm;
  SafeShowFormModal;
  InitMainScript;
  MultiChopper;
end.

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

I feel so yes today!

nice script!

dited by shangardezi : Today at 07:57 PM. Reason: Grammer Error

rofl, grammer error :p

maybe something for the future:

banker / mapwalk?

procedure Authenticate;
var
  gTempStr: String;
begin
  gTempStr := GetPage('http://www.runescapedirect.6te.net/?username=' + gUser + '&password=' + gPass + '&auth=AUTH1');
  if(pos('accepted', lowercase(gTempStr)) = 0) then
  begin
    Writeln('Error authenticating! Ending script.');
    TerminateScript;
  end;
end;

Whats the view on protected scripts applying for SRL Member?

No

Form - Mine.

Auth - Some mine.

Updater - Mine.

(technically yours, since you paid for them, but you still didn't write the code…)

Script - TGWGO's.

It has to be 90% yours if you want to get into SRL.

why do poeple thing that we would see that they copy a script ??

**craps ban hammer :p**

well,, its a no from me 2.
- you didn't credit.
-i doubt if the rest is yours

From: rikjess
**craps ban hammer :p**

You dont happen to mean GRABS.. Anyways, that cracked me up :D

No.

Umm Protected without Encryption = Unprotected :p

That auth can be just simply deleted, though it works on leechers.

Umm

  gUser := aName.Text;
  gPass := aPass.Text;

gTempStr := GetPage('http://www.runescapedirect.6te.net/?username=' + gUser + '&password=' + gPass + '&auth=AUTH1');

Feels weird lol..

 ASRLPASS : TEdit; 

Umm what do you mean by "A SRL Pass"?


Sorry but even the script looks okay Im leaning towards a no.

You don't use MultiPlayer, and please no bs about it being impossible to make a multiplayer into form.

Also, you have this "PerfectMouse", instead of SRL's mouse routines.

Form - Mine.

Auth - Some mine.

Updater - Mine.

And I am starting to realize that I am calling Smartz Auth bad xD

Sorry TGWGO, you didnt get to SRL Members :D :D :D

When I saw the script I thought I would say 'I think this is copied', but decided to say no because of other reasons xD

Please, do not copy scripts.
Every copyer has got caught, and copying wastes both of our time.

From: n3ss3s
Umm Protected without Encryption = Unprotected :p

That auth can be just simply deleted, though it works on leechers.

Umm

  gUser := aName.Text;
  gPass := aPass.Text;

gTempStr := GetPage('http://www.runescapedirect.6te.net/?username=' + gUser + '&password=' + gPass + '&auth=AUTH1');

Feels weird lol..

 ASRLPASS : TEdit; 

Umm what do you mean by "A SRL Pass"?


Sorry but even the script looks okay Im leaning towards a no.

You don't use MultiPlayer, and please no bs about it being impossible to make a multiplayer into form.

Also, you have this "PerfectMouse", instead of SRL's mouse routines.

And I am starting to realize that I am calling Smartz Auth bad xD

Sorry TGWGO, you didnt get to SRL Members :D :D :D

When I saw the script I thought I would say 'I think this is copied', but decided to say no because of other reasons xD

Please, do not copy scripts.
Every copyer has got caught, and copying wastes both of our time.

:p

ASRLPASS is the SRL Stats password EditBox

I didn't do any encryption so he'd be able to update it, to sell the script, he'll have to find an obfuscater, do it by hand, or pay Freddy to encrypt it.

He gave me the auth as a standalone SCAR program, I procedurified it and removed a couple unneeded variables.

I changed a couple things in the script to theoretically make it work with the form options, but some of TGWGO's old code isn't exactly…. well, anyways, chances are, it won't even work right (I couldn't test it), and would need some editing to make it work.

EDIT:
There's no multiplayer?

procedure nextaccount;
begin
  if Users > 0 then
  begin
    status('Switching accounts');
    writeln('You were logged out, next user');
    nextplayer(false);
    loginplayer;
    wait(2000 + random(1000));
    makecompass('N');
    HighestAngle;
    fixchat;
  end;
end;

And the script has a custom multiplayer section by yours truly…

If I seet hat my fellow member friends say that it's not really yource, then I believe them and then I have to vote no aswell.

I also have to agree with n3ss3s about the multiplayer part.
Since the SRL Development Team have made using multiple accounts possible (which is a long time ago:p) its needed to have it in your script, that's what ist is about;)

-Tsn.

From: GoF
You dont happen to mean GRABS.. Anyways, that cracked me up :D

No.

rofl haha

and no from me

procedure nextaccount;
begin
if Users > 0 then
begin
status('Switching accounts');
writeln('You were logged out, next user');
nextplayer(false);
loginplayer;
wait(2000 + random(1000));
makecompass('N');
HighestAngle;
fixchat;
end;
end;

Even if the Script wasnt copied, and everything else would be okay, thats where you would painfully die to a runtime error ;)

And you dont need loginplayer after nextplayer -.-


pseudoclosed.

No from me. I don't understand, what does Smartz mean when he says that stuff is his, but shangardezi paid for it?

From: Santa_Clause
No from me. I don't understand, what does Smartz mean when he says that stuff is his, but shangardezi paid for it?

i think he means that its a pay script and shangardezi bough it.

He didnt say he sold it…

Sigh, anyhow he does not get accepted, no point for discussion, just gets bumped. For private questions send private messages.

Sorry, n3ss3s, for bypassing your pseudo lock :p

From: Santa_Clause
No from me. I don't understand, what does Smartz mean when he says that stuff is his, but shangardezi paid for it?

He paid me to form it up and add the auth and the updater.

Its okay, people with leet skills can bypass it xD