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 , Vb , Java , PHP , and more.

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.

Hi im Shan Gardezi , im 14 years of age. Ive spent 4 years playing runescape and im pretty good at marcroing. I have alot of Vb knowledge aswell as Scar , Java and PHP. Im also a web designer , i make pretty cool templates ect. I use photoshop/fireworks alot , i charge at times but most the time their free!

Ive made a multi log chopper which is going successfull as i speak. Im updating it further but ive put alot of effort into it.
Thats all about me :D (Sorry this is my second application , i lost the link to the previous one, Mod may delete as they wish)

Shan

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

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 –>

it looks alright:)

It isnt.

This Einstein re-applied, and his script is like copied. Go to the another thread of his.

Shangardezi, now your chances to become a member are like on minus.

Someone please close.

Edit: Sorry I didn't notice somebody already pointed it out that it was copied.

Edit2: BTW most of it's my script

Yeah, and Smartz form, rite?

From: n3ss3s
Yeah, and Smartz form, rite?

I don't know, I haven't seen the auth part before…But he probably copied that too.

http://www.villavu.com/forum/showthread.php?t=20112

From: Smartzkid
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.

I remembered right..

Wizzy can you close this? And maybe the other one too, I see you're viewing?

From: n3ss3s
I remembered right..

Wizzy can you close this? And maybe the other one too, I see you're viewing?

Lets give shangardezi a chance to respond…BTW, has the script been edited at all ? or just stuff added ?

I don't think he is going to reply…And yes, I doubt he has too much knowledge of SCAR.

Well yeh i agree its part of guywhogoton script , but he and me made this script… i have his agreemnet chat log… and the auth part i made myself php ect. i used smartzkid form but ive edited the script in parts. and btw guywhogoton did say that i could use hius script. And i know coding pretty good.

proof use ^^

you want the chat log??? If guywhogoton i honest he will know that he agreed it. Ive added more to the script, hence my application saying ' as we speak i am updating it'….

EDIT: What if u close this one , and ill make 100% my own script? will i have a chance then..

From: shangardezi
you want the chat log??? If guywhogoton i honest he will know that he agreed it. Ive added more to the script, hence my application saying ' as we speak i am updating it'….

EDIT: What if u close this one , and ill make 100% my own script? will i have a chance then..

I made this script before I met you, hell I want to see the chat log.


Edit: You've prettym uch lost your chances in ever becoming an SRL member.

From: shangardezi
you want the chat log??? If guywhogoton i honest he will know that he agreed it. Ive added more to the script, hence my application saying ' as we speak i am updating it'….

EDIT: What if u close this one , and ill make 100% my own script? will i have a chance then..

Closed due to request.
Yes please make a script thats at least 90% yours.
Good Luck Next Time. :(h):