SRL Archive - Archive

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

What is the meaning to life?
It doesn't ask this question on the application by the way lol.
Experiencing life, learning, and overcoming every milestone until you no longer fear any object that life can throw at you.

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


Programming Knowledge
VB6

Other Communitys
Rs-R

How Long have You Played Runescape
6 years or so

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

I've played runescape for about 6 years and have been on the cheating scene for about 5 years. I missed the autorune revelation but arrived in time to become a member of Kaitnieks forum all those years ago. I wasn't too active on Kaitnieks forum and there was a short period where I played legit. I joined Rs-Resources as a noob that knew nothing about programming, but soon I became an active member in the community. Now I am currently a PK Guru (I am zezimaisgay..dont ask, made the account years ago) at Rs-R (mod over the runescape section). After arga's release was delayed due to exams and other obstacles, I began to check out the SCAR script section of Rs-R. Eventually I was led here where I decided that I wanted to learn to script. To my surprise the first script I released here was praised by an SRL member or two which encouraged me to continue scripting. Currently I am working on a chopper that begins in Draynor bank, will grab your level, and then will decide whether to chop the trees NW of the group of houses north of the bank, chop the oak next to the bank, chop the willows in Port Sarim, or chop the yews by Lumbridge Swamp with the script constantly checking whenever you level to decide where to chop. Right now I am working on the walking portion of the script. Radial walk doesn't like me lol (just fixing up some minor errors). Thanks for taking the time to read my application and I appreciate you taking a minute or two from your day to read this.

$PYD3R

EDIT: If you do vote 'No' then please post telling me how why you voted that way and how I can improve whatever you disliked. :p
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

{_____________   _______ ___________
 /  ___| ___ \ \ / /  _  \____ | ___ \
 \ `--.| |_/ /\ V /| | | |   / / |_/ /
  `--. \  __/  \ / | | | |   \ \    /
 /\__/ / |     | | | |/ /.___/ / |\ \
 \____/\_|     \_/ |___/ \____/\_| \_|}

{---------------------------------------------}
{---------------------------------------------}
{-----------------PoWa ChOpPa-----------------}
{--------------------V1.01---------------------}
{---------------------------------------------}
{----------------|Instructions|---------------}
{----------------Complete Setup---------------}
{-----Stick axe anywhere equipped or not------}
{-----Click on the green arrow button :p------}
{---------------------------------------------}
{------------------|Updates|------------------}
{--------------1.0 First Release--------------}
{---------------------------------------------}
{---------------------------------------------}

program PowerChopper_By_SPYD3R;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const ver = '1.02'; //don't touch

var
  frmDesign : TForm;
  Shape1 : TShape;
  Label3 : TLabel;
  Label4 : TLabel;
  Label7 : TLabel;
  Label8 : TLabel;
  Label9 : TLabel;
  Label1 : TLabel;
  Label2 : TLabel;
  Label5 : TLabel;
  Label6 : TLabel;
  Label10 : TLabel;
  Label11 : TLabel;
  Label12 : TLabel;
  Label13 : TLabel;
  Label14 : TLabel;
  Label15 : TLabel;
  Button1 : TButton;
  Edit1 : TEdit;
  txtnickname1 : TEdit;
  Edit2 : TEdit;
  cmbtreetype : TComboBox;
  txtusername1 : TEdit;
  txtusername2 : TEdit;
  txtpassword2 : TEdit;
  txtnickname2 : TEdit;
  txtusername3 : TEdit;
  txtpassword3 : TEdit;
  Edit5 : TEdit;
  txtusername4 : TEdit;
  txtpassword4 : TEdit;
  txtnickname4 : TEdit;
  txtusername5 : TEdit;
  txtpassword5 : TEdit;
  txtnickname5 : TEdit;
  cmbactiveplayers : TComboBox;
  cmbrundirection : TComboBox;
  ComboBox1 : TComboBox;
  cboactive1 : TComboBox;
  cboactive2 : TComboBox;
  cboactive3 : TComboBox;
  cboactive4 : TComboBox;
  cboactive5 : TComboBox;
  txtcolour : TEdit;
  cmdcolour : TButton;
  
ExpGained, LoadsDone, TreeColour1, TotalLoads, LoadsToDo, TreeTypeXP, NumOfPlayers : Integer;

Uname, Uname2, Uname3, Uname4, Uname5,
Pword, Pword2, Pword3, Pword4, Pword5,
Nick, Nick2, Nick3, Nick4, Nick5,
Active, Active2, Active3, Active4, Active5,
TreeType, RunDir, RunBackDir : String;

Procedure ssettings;
begin;
  SaveSetting('SPYD3R','Saved','true');
  SaveSetting('SPYD3R','Username',Uname);
  SaveSetting('SPYD3R','Password',Pword);
  SaveSetting('SPYD3R','Nick',Nick);
  SaveSetting('SPYD3R','Active',Active);

  SaveSetting('SPYD3R','Username2',Uname2);
  SaveSetting('SPYD3R','Password2',Pword2);
  SaveSetting('SPYD3R','Nick2',Nick2);
  SaveSetting('SPYD3R','Active2',Active2);

  SaveSetting('SPYD3R','Username3',Uname3);
  SaveSetting('SPYD3R','Password3',Pword3);
  SaveSetting('SPYD3R','Nick3',Nick3);
  SaveSetting('SPYD3R','Active3',Active3);

  SaveSetting('SPYD3R','Username4',Uname4);
  SaveSetting('SPYD3R','Password4',Pword4);
  SaveSetting('SPYD3R','Nick4',Nick4);
  SaveSetting('SPYD3R','Active4',Active4);

  SaveSetting('SPYD3R','Username5',Uname5);
  SaveSetting('SPYD3R','Password5',Pword5);
  SaveSetting('SPYD3R','Nick5',Nick5);
  SaveSetting('SPYD3R','Active5',Active5);

  SaveSetting('SPYD3R','NumOfPlayers',IntToStr(NumOfPlayers));
  SaveSetting('SPYD3R','RunDir',RunDir);
  SaveSetting('SPYD3R','TreeType',TreeType);
  SaveSetting('SPYD3R','TreeColour1',inttostr(TreeColour1));
  SaveSetting('SPYD3R','LoadsToDo',inttostr(LoadsToDo));
end;

Procedure lsettings;
begin;
  if(LoadSetting('SPYD3R','Saved')='true') then
    begin
      txtusername1.Text := LoadSetting('SPYD3R','Username');
      Edit1.Text := LoadSetting('SPYD3R','Password');
      txtnickname1.Text := LoadSetting('SPYD3R','Nick');
      cboactive1.text := LoadSetting('SPYD3r','Active');

      txtusername2.Text := LoadSetting('SPYD3R','Username2');
      txtpassword2.Text := LoadSetting('SPYD3R','Password2');
      txtnickname2.Text := LoadSetting('SPYD3R','Nick2');
      cboactive2.text := LoadSetting('SPYD3R','Active2');

      txtusername3.Text := LoadSetting('SPYD3R','Username3');
      txtpassword3.Text := LoadSetting('SPYD3R','Password3');
      Edit5.Text := LoadSetting('SPYD3R','Nick3');
      cboactive3.text := LoadSetting('SPYD3R','Active3');

      txtusername4.Text := LoadSetting('SPYD3R','Username4');
      txtpassword4.Text := LoadSetting('SPYD3R','Password4');
      txtnickname4.Text := LoadSetting('SPYD3R','Nick4');
      cboactive4.text := LoadSetting('SPYD3R','Active4');

      txtusername5.Text := LoadSetting('SPYD3R','Username5');
      txtpassword5.Text := LoadSetting('SPYD3R','Password5');
      txtnickname5.Text := LoadSetting('SPYD3R','Nick5');
      cboactive5.text := LoadSetting('SPYD3R','Active5');

      cmbactiveplayers.text := LoadSetting('SPYD3R','NumOfPlayers');
      cmbrundirection.Text := LoadSetting('SPYD3R','RunDir');
      cmbtreetype.Text := LoadSetting('SPYD3R','TreeType');
      txtcolour.Text := LoadSetting('SPYD3R','TreeColour1');
      Edit2.Text := LoadSetting('SPYD3R','LoadsToDo');
    end;
end;


procedure ButtonClickStart(sender:TObject);
begin
  frmDesign.Caption:= frmDesign.Caption + '.';

  NumOfPlayers := StrToInt(cmbactiveplayers.text);
 
  Uname := txtusername1.text;
  Pword := Edit1.text;
  Nick := txtnickname1.text;
  Active := cboactive1.text;
 
  Uname2 := txtusername2.text;
  Pword2 := txtpassword2.text;
  Nick2 := txtnickname2.text;
  Active2 := cboactive2.text;
  
  Uname3 := txtusername3.text;
  Pword3 := txtpassword3.text;
  Nick3 := Edit5.text;
  Active3 := cboactive3.text;

  Uname4 := txtusername4.text;
  Pword4 := txtpassword4.text;
  Nick4 := txtnickname4.text;
  Active4 := cboactive4.text;

  Uname5 := txtusername5.text;
  Pword5 := txtpassword5.text;
  Nick5 := txtnickname5.text;
  Active5 := cboactive5.text;
  
  TreeType := cmbtreetype.text;
  LoadsToDo := StrToInt(Edit2.text);
  RunDir := cmbrundirection.text;
  
if cmbrundirection.text = 'N' then
   RunBackDir := 'S';
if cmbrundirection.text = 'S' then
   RunBackDir := 'N';
if cmbrundirection.text = 'E' then
   RunBackDir := 'W';
if cmbrundirection.text = 'W' then
   RunBackDir := 'E';
ssettings;
frmDesign.ModalResult:= mrOk;
end;


procedure ButtonClickColour(sender:TObject);
begin
pickcolor(TreeColour1,x,y);
txtcolour.text:= inttostr(TreeColour1);
end;


procedure DeclarePlayers;
begin
  HowManyPlayers := 6;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :=  Uname;
  Players[0].Pass :=  Pword;
  Players[0].Nick :=  Nick;
  Players[0].Active:= StrToBool(Active);

  Players[1].Name := Uname2;
  Players[1].Pass := Pword2;
  Players[1].Nick := Nick2;
  Players[1].Active:= StrToBool(Active2);

  Players[2].Name := Uname3;
  Players[2].Pass := Pword3;
  Players[2].Nick := Nick3;
  Players[2].Active:= StrToBool(Active3);

  Players[3].Name := Uname4;
  Players[3].Pass := Pword4;
  Players[3].Nick := Nick4;
  Players[3].Active:= StrToBool(Active4);

  Players[4].Name := Uname5;
  Players[4].Pass := Pword5;
  Players[4].Nick := Nick5;
  Players[4].Active:= StrToBool(Active5);
end;


procedure initform;
begin
frmDesign := CreateForm;
frmDesign.Left := 486;
frmDesign.Top := 58;
frmDesign.Width := 360;
frmDesign.Height := 468;
frmDesign.HorzScrollBar.Visible := False;
frmDesign.VertScrollBar.Visible := False;
frmDesign.Caption := '$PYD3R PoWa ChOpPa';
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;
Shape1 := TShape.Create(frmDesign);
Shape1.Parent := frmDesign;
Shape1.Left := 0;
Shape1.Top := 0;
Shape1.Width := 352;
Shape1.Height := 434;
Shape1.Cursor := crCross;
Shape1.Brush.Color := clSilver;
Shape1.Shape := stRoundRect;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 56;
Label3.Top := 59;
Label3.Width := 37;
Label3.Height := 16;
Label3.Caption := 'Name';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -13;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 118;
Label4.Top := 59;
Label4.Width := 60;
Label4.Height := 16;
Label4.Caption := 'Password';
Label4.Font.Color := clWindowText;
Label4.Font.Height := -13;
Label4.Font.Name := 'MS Sans Serif';
Label4.Font.Style := [];
Label4.ParentFont := False;
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 192;
Label7.Top := 59;
Label7.Width := 61;
Label7.Height := 16;
Label7.Caption := 'Nickname';
Label7.Font.Color := clWindowText;
Label7.Font.Height := -13;
Label7.Font.Name := 'MS Sans Serif';
Label7.Font.Style := [];
Label7.ParentFont := False;
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 26;
Label8.Top := 255;
Label8.Width := 62;
Label8.Height := 16;
Label8.Caption := '# of Loads';
Label8.Font.Color := clWindowText;
Label8.Font.Height := -13;
Label8.Font.Name := 'MS Sans Serif';
Label8.Font.Style := [];
Label8.ParentFont := False;
Label9 := TLabel.Create(frmDesign);
Label9.Parent := frmDesign;
Label9.Left := 26;
Label9.Top := 280;
Label9.Width := 71;
Label9.Height := 16;
Label9.Caption := 'Tree Type?';
Label9.Font.Color := clWindowText;
Label9.Font.Height := -13;
Label9.Font.Name := 'MS Sans Serif';
Label9.Font.Style := [];
Label9.ParentFont := False;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 26;
Label1.Top := 85;
Label1.Width := 6;
Label1.Height := 13;
Label1.Caption := '1';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 26;
Label2.Top := 114;
Label2.Width := 6;
Label2.Height := 13;
Label2.Caption := '2';
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 26;
Label5.Top := 145;
Label5.Width := 6;
Label5.Height := 13;
Label5.Caption := '3';
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 26;
Label6.Top := 175;
Label6.Width := 6;
Label6.Height := 13;
Label6.Caption := '4';
Label10 := TLabel.Create(frmDesign);
Label10.Parent := frmDesign;
Label10.Left := 26;
Label10.Top := 204;
Label10.Width := 6;
Label10.Height := 13;
Label10.Caption := '5';
Label11 := TLabel.Create(frmDesign);
Label11.Parent := frmDesign;
Label11.Left := 151;
Label11.Top := 21;
Label11.Width := 67;
Label11.Height := 22;
Label11.Alignment := taCenter;
Label11.Caption := 'SETUP';
Label11.Font.Color := clWindowText;
Label11.Font.Height := -17;
Label11.Font.Name := 'Brownwood Shadow NF';
Label11.Font.Style := [fsBold];
Label11.ParentFont := False;
Label12 := TLabel.Create(frmDesign);
Label12.Parent := frmDesign;
Label12.Left := 26;
Label12.Top := 230;
Label12.Width := 110;
Label12.Height := 16;
Label12.Caption := '# of Active Players';
Label12.Font.Color := clWindowText;
Label12.Font.Height := -13;
Label12.Font.Name := 'MS Sans Serif';
Label12.Font.Style := [];
Label12.ParentFont := False;
Label13 := TLabel.Create(frmDesign);
Label13.Parent := frmDesign;
Label13.Left := 26;
Label13.Top := 305;
Label13.Width := 87;
Label13.Height := 16;
Label13.Caption := 'Run Direction?';
Label13.Font.Color := clWindowText;
Label13.Font.Height := -13;
Label13.Font.Name := 'MS Sans Serif';
Label13.Font.Style := [];
Label13.ParentFont := False;
Label14 := TLabel.Create(frmDesign);
Label14.Parent := frmDesign;
Label14.Left := 276;
Label14.Top := 59;
Label14.Width := 37;
Label14.Height := 16;
Label14.Caption := 'Active';
Label14.Font.Color := clWindowText;
Label14.Font.Height := -13;
Label14.Font.Name := 'MS Sans Serif';
Label14.Font.Style := [];
Label14.ParentFont := False;
Label15 := TLabel.Create(frmDesign);
Label15.Parent := frmDesign;
Label15.Left := 26;
Label15.Top := 330;
Label15.Width := 78;
Label15.Height := 16;
Label15.Caption := 'Tree Colour?';
Label15.Font.Color := clWindowText;
Label15.Font.Height := -13;
Label15.Font.Name := 'MS Sans Serif';
Label15.Font.Style := [];
Label15.ParentFont := False;
Button1 := TButton.Create(frmDesign);
Button1.OnClick:= @ButtonClickStart;
Button1.Parent := frmDesign;
Button1.Left := 151;
Button1.Top := 392;
Button1.Width := 76;
Button1.Height := 25;
Button1.Caption := 'START!';
Button1.Font.Color := clWindowText;
Button1.Font.Height := -13;
Button1.Font.Name := 'Microsoft Sans Serif';
Button1.Font.Style := [];
Button1.ParentFont := False;
Button1.TabOrder := 8;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 117;
Edit1.Top := 80;
Edit1.Width := 63;
Edit1.Height := 21;
Edit1.TabOrder := 9;
Edit1.Text := 'password';
txtnickname1 := TEdit.Create(frmDesign);
txtnickname1.Parent := frmDesign;
txtnickname1.Left := 192;
txtnickname1.Top := 80;
txtnickname1.Width := 63;
txtnickname1.Height := 21;
txtnickname1.TabOrder := 10;
txtnickname1.Text := 'nickname';
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 219;
Edit2.Top := 255;
Edit2.Width := 110;
Edit2.Height := 21;
Edit2.TabOrder := 11;
Edit2.Text := 'loads to do';
cmbtreetype := TComboBox.Create(frmDesign);
cmbtreetype.Parent := frmDesign;
cmbtreetype.Left := 219;
cmbtreetype.Top := 280;
cmbtreetype.Width := 110;
cmbtreetype.Height := 21;
cmbtreetype.ItemHeight := 13;
cmbtreetype.TabOrder := 12;
cmbtreetype.Text := 'Tree Type';
cmbtreetype.Items.Add('Tree');
cmbtreetype.Items.Add('Oak');
cmbtreetype.Items.Add('Willow');
cmbtreetype.Items.Add('Maple');
cmbtreetype.Items.Add('Yew');
txtusername1 := TEdit.Create(frmDesign);
txtusername1.Parent := frmDesign;
txtusername1.Left := 44;
txtusername1.Top := 80;
txtusername1.Width := 63;
txtusername1.Height := 21;
txtusername1.TabOrder := 13;
txtusername1.Text := 'username';
txtusername2 := TEdit.Create(frmDesign);
txtusername2.Parent := frmDesign;
txtusername2.Left := 44;
txtusername2.Top := 110;
txtusername2.Width := 63;
txtusername2.Height := 21;
txtusername2.TabOrder := 14;
txtusername2.Text := 'username';
txtpassword2 := TEdit.Create(frmDesign);
txtpassword2.Parent := frmDesign;
txtpassword2.Left := 118;
txtpassword2.Top := 110;
txtpassword2.Width := 63;
txtpassword2.Height := 21;
txtpassword2.TabOrder := 15;
txtpassword2.Text := 'password';
txtnickname2 := TEdit.Create(frmDesign);
txtnickname2.Parent := frmDesign;
txtnickname2.Left := 192;
txtnickname2.Top := 110;
txtnickname2.Width := 63;
txtnickname2.Height := 21;
txtnickname2.TabOrder := 16;
txtnickname2.Text := 'nickname';
txtusername3 := TEdit.Create(frmDesign);
txtusername3.Parent := frmDesign;
txtusername3.Left := 44;
txtusername3.Top := 140;
txtusername3.Width := 63;
txtusername3.Height := 21;
txtusername3.TabOrder := 17;
txtusername3.Text := 'username';
txtpassword3 := TEdit.Create(frmDesign);
txtpassword3.Parent := frmDesign;
txtpassword3.Left := 118;
txtpassword3.Top := 140;
txtpassword3.Width := 63;
txtpassword3.Height := 21;
txtpassword3.TabOrder := 18;
txtpassword3.Text := 'password';
Edit5 := TEdit.Create(frmDesign);
Edit5.Parent := frmDesign;
Edit5.Left := 192;
Edit5.Top := 140;
Edit5.Width := 63;
Edit5.Height := 21;
Edit5.TabOrder := 19;
Edit5.Text := 'nickname';
txtusername4 := TEdit.Create(frmDesign);
txtusername4.Parent := frmDesign;
txtusername4.Left := 44;
txtusername4.Top := 170;
txtusername4.Width := 63;
txtusername4.Height := 21;
txtusername4.TabOrder := 20;
txtusername4.Text := 'username';
txtpassword4 := TEdit.Create(frmDesign);
txtpassword4.Parent := frmDesign;
txtpassword4.Left := 118;
txtpassword4.Top := 170;
txtpassword4.Width := 63;
txtpassword4.Height := 21;
txtpassword4.TabOrder := 21;
txtpassword4.Text := 'password';
txtnickname4 := TEdit.Create(frmDesign);
txtnickname4.Parent := frmDesign;
txtnickname4.Left := 194;
txtnickname4.Top := 170;
txtnickname4.Width := 63;
txtnickname4.Height := 21;
txtnickname4.TabOrder := 22;
txtnickname4.Text := 'nickname';
txtusername5 := TEdit.Create(frmDesign);
txtusername5.Parent := frmDesign;
txtusername5.Left := 44;
txtusername5.Top := 200;
txtusername5.Width := 63;
txtusername5.Height := 21;
txtusername5.TabOrder := 23;
txtusername5.Text := 'username';
txtpassword5 := TEdit.Create(frmDesign);
txtpassword5.Parent := frmDesign;
txtpassword5.Left := 118;
txtpassword5.Top := 200;
txtpassword5.Width := 63;
txtpassword5.Height := 21;
txtpassword5.TabOrder := 24;
txtpassword5.Text := 'password';
txtnickname5 := TEdit.Create(frmDesign);
txtnickname5.Parent := frmDesign;
txtnickname5.Left := 194;
txtnickname5.Top := 200;
txtnickname5.Width := 63;
txtnickname5.Height := 21;
txtnickname5.TabOrder := 25;
txtnickname5.Text := 'nickname';
cmbactiveplayers := TComboBox.Create(frmDesign);
cmbactiveplayers.Parent := frmDesign;
cmbactiveplayers.Left := 219;
cmbactiveplayers.Top := 230;
cmbactiveplayers.Width := 110;
cmbactiveplayers.Height := 21;
cmbactiveplayers.ItemHeight := 13;
cmbactiveplayers.TabOrder := 26;
cmbactiveplayers.Text := '# of Players';
cmbactiveplayers.Items.Add('1');
cmbactiveplayers.Items.Add('2');
cmbactiveplayers.Items.Add('3');
cmbactiveplayers.Items.Add('4');
cmbactiveplayers.Items.Add('5');
cmbrundirection := TComboBox.Create(frmDesign);
cmbrundirection.Parent := frmDesign;
cmbrundirection.Left := 219;
cmbrundirection.Top := 305;
cmbrundirection.Width := 110;
cmbrundirection.Height := 21;
cmbrundirection.ItemHeight := 13;
cmbrundirection.TabOrder := 27;
cmbrundirection.Text := 'Run Direction';
cmbrundirection.Items.Add('N');
cmbrundirection.Items.Add('S');
cmbrundirection.Items.Add('E');
cmbrundirection.Items.Add('W');
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 65758;
ComboBox1.Top := 65536;
ComboBox1.Width := 145;
ComboBox1.Height := 21;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 28;
ComboBox1.Text := 'ComboBox1';
cboactive1 := TComboBox.Create(frmDesign);
cboactive1.Parent := frmDesign;
cboactive1.Left := 266;
cboactive1.Top := 80;
cboactive1.Width := 63;
cboactive1.Height := 21;
cboactive1.ItemHeight := 13;
cboactive1.TabOrder := 29;
cboactive1.Text := 'Active';
cboactive1.Items.Add('true');
cboactive1.Items.Add('false');
cboactive2 := TComboBox.Create(frmDesign);
cboactive2.Parent := frmDesign;
cboactive2.Left := 266;
cboactive2.Top := 110;
cboactive2.Width := 63;
cboactive2.Height := 21;
cboactive2.ItemHeight := 13;
cboactive2.TabOrder := 30;
cboactive2.Text := 'Active';
cboactive2.Items.Add('true');
cboactive2.Items.Add('false');
cboactive3 := TComboBox.Create(frmDesign);
cboactive3.Parent := frmDesign;
cboactive3.Left := 266;
cboactive3.Top := 140;
cboactive3.Width := 63;
cboactive3.Height := 21;
cboactive3.ItemHeight := 13;
cboactive3.TabOrder := 31;
cboactive3.Text := 'Active';
cboactive3.Items.Add('true');
cboactive3.Items.Add('false');
cboactive4 := TComboBox.Create(frmDesign);
cboactive4.Parent := frmDesign;
cboactive4.Left := 266;
cboactive4.Top := 170;
cboactive4.Width := 63;
cboactive4.Height := 21;
cboactive4.ItemHeight := 13;
cboactive4.TabOrder := 32;
cboactive4.Text := 'Active';
cboactive4.Items.Add('true');
cboactive4.Items.Add('false');
cboactive5 := TComboBox.Create(frmDesign);
cboactive5.Parent := frmDesign;
cboactive5.Left := 266;
cboactive5.Top := 200;
cboactive5.Width := 63;
cboactive5.Height := 21;
cboactive5.ItemHeight := 13;
cboactive5.TabOrder := 33;
cboactive5.Text := 'Active';
cboactive5.Items.Add('true');
cboactive5.Items.Add('false');
txtcolour := TEdit.Create(frmDesign);
txtcolour.Parent := frmDesign;
txtcolour.Left := 220;
txtcolour.Top := 330;
txtcolour.Width := 110;
txtcolour.Height := 21;
txtcolour.TabOrder := 34;
txtcolour.Text := 'Tree Colour';
cmdcolour := TButton.Create(frmDesign);
cmdcolour.OnClick:= @ButtonClickColour;
cmdcolour.Parent := frmDesign;
cmdcolour.Left := 151;
cmdcolour.Top := 361;
cmdcolour.Width := 76;
cmdcolour.Height := 25;
cmdcolour.Caption := 'Colour Picker';
cmdcolour.TabOrder := 35;
lsettings;
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 SetupScript;
begin
 SafeInitForm;
 SafeShowFormModal;
end;


procedure report;
begin
if TreeType = 'Tree' then
  begin
    TreeTypeXP := 25;
  end;
if TreeType = 'Oak' then
  begin
    TreeTypeXP := 37;
  end;
if TreeType = 'Willow' then
  begin
    TreeTypeXP := 62;
  end;
if TreeType = 'Maple' then
  begin
    TreeTypeXP := 100;
  end;
if TreeType = 'Yew' then
  begin
    TreeTypeXP := 175;
  end;
if TreeType = 'Magic' then
  begin
    TreeTypeXP := 250;
  end;

  begin
    ClearDebug;
    writeln('<------------------------>');
    writeln('<-PowerChopper by $PYD3R->');
    writeln('<------------------------>');
    writeln('   Time Running: ' + TimeRunning);
    writeln('   Tree Type: ' + TreeType);
    writeln('   Total Loads Done: ' + IntToStr(TotalLoads));
    writeln('   Total XP Gained ' + IntToStr(TotalLoads * 28 * TreeTypeXP));
    SRLRandomsReport;
  end;
end;

Procedure LogInCheck;
begin
if (LoggedIn) then
  begin
    exit;
  end else
  begin
    LogInPlayer;
  end;
end;

Procedure Randoms;
 begin
  if FindFight then
   begin
     Status('Running from Fight');
     RunTo(RunDir,true);
     wait(8000 + random(1000));
     RunTo(RunBackDir,true);
  end;
 if InBlack or FindScapeRune or NoGameTab then
  begin
    writeln('We got stuck in a random');
    report;
    Players[CurrentPlayer].Active := false;
    LogOut;
    NextPlayer(true);
  end;
 if FindDead then
  begin
   writeln('We died');
   report;
   Players[CurrentPlayer].Active := false;
   LogOut;
   NextPlayer(true);
  end;
end;

procedure CheckAxe;
begin
  if (InChat('do not') or InChat('have axe')) then
  begin
    writeln('Lost our axe =(');
    report;
    Players[CurrentPlayer].Active := false;
    LogOut;
    NextPlayer(true);
  end;
end;

procedure Chop;
begin
  repeat
    LogInCheck;
    FindObj(x, y, 'Chop down ' + TreeType, TreeColour1, 5);
    Status('Cutting Tree')
    wait(200 + random(100));
  if IsUpText(TreeType)then
    begin
      Mouse(x,y,1,2,true);
      wait(1000 + random(200));
      FindHead;
      CheckAxe;
      FindNormalRandoms;
      if random(4) > 2 then
        begin
          AntiBan;
        end;
      Randoms;
      wait(3000 + random(1000));
      FindEnt(TreeColour1);
    end;
  until (InvFull);
end;


procedure Drop;
begin
  LogInCheck;
  FindHead;
  DropAllLogs;
  LoadsDone := LoadsDone + 1;
  TotalLoads := TotalLoads + 1;

if LoadsDone = LoadsToDo then
  begin
    LogOut;
    NextPlayer(true);
    LogInCheck;
    LoadsDone := 0;
  end;
end;


begin
  SetupSRL;
  SetupScript;
  ActivateClient;
  ClearDebug;
  DeclarePlayers;
repeat
  if LoggedIn = false then
    begin
      LogInPlayer;
    end;
  HighestAngle;
  FindNormalRandoms;
  Chop;
  Randoms;
  AntiBan;
  Drop;
  FindNormalRandoms;
  AntiBan;
  Report;
  SRLRandomsReport;
until(false)
end.

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

Good job ;) Although a very LARGE like LARGE portion of it is form design and setup. If you don't get it this time, next time have more procedures/functions that get stuff done. I'll prepare my vote later tonight.

YES from me ;)

Lol, yes I realize that forms take up a lot of space :p . I'm hoping that people will look past the amount of space that the form takes up and look at how it was used to make a very noob-friendly script. It also follows the only requirements I can find (standard scripting rules, multiplayer, antirandoms). I made a thread yesterday I believe asking what exactly should be in a script that was entered to become an SRL member and the only replies I really got were telling me to just follow the standards, use the multiplayer capabilities provided by SRL, and use antirandoms.

Scripts over all to simple, You are good with forms but I need to see more of a script then just forms. If you don't get in this time, work on making this script longer with more fail safes..etc. Its a no from me though dude sorry. I'm a tough one to please so you may get in, IDK :)

That's understandable. Like I said, I just followed the requirements because no one wanted to get specfic :( . Oh well, fingers are still crossed that I get it lol.

Its a nice forum and all.
But id like to see a script that PLAYS RUNESCAPE with
antiban
antirandoms
multiplayer ect.

it does play. what do you mean? it has antiban, randoms, and 5 player capability. I've been training some of my low lvl wc'ers with it so I know it works.

edit: here's a progress report from last night using 3 characters doing 5 loads before alternating

<------------------------>
<-PowerChopper by $PYD3R->
<------------------------>
   Time Running: 3 Hours, 30 Minutes and 51 Seconds
   Tree Type: Oak
   Total Loads Done: 33
   Total XP Gained 34188

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL Randoms Report       |
|    [url]www.villu-reborn.com[/url]      |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Logged in              :  6  |
| Fight Random[s]        :  5  |
| Talking Random[s]      :  2  |
| SandWich[es] Solved    :  1  |
| Capn Hand[s] Solved    :  1  |
| New Box[es] Solved     :  1  |
| Nr of Ents Avoided     :  2  |
| Axe[s] Attached        :  1  |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

Thats like 80-90% forms :p.. Ill vote later.

im going to say yes. forms can get pretty advanced and his proggy shows that it obvioulsy works well

thank you oliver for your recognition of how important forms can be. GoF, here's something for you to think about. I don't mean to be aggressive but in your sig you have a bar for a 'power miner with form'. If you are a SRL member and working on an advanced script such as a power miner with a form then wouldnt my power chopper with a form be considered advanced as well? My proggy shows that the script is efficient and works well. The randoms report shows that my randoms DO work and since the script was working with 3 players it DOES support multiple players. Has my script not only met the requirements (multiplayer, randoms, antiban, neat coding) but exceeded them by adding a user-friendly form? Is the script not comparable to the script you are currently working on? Just something to think about before you make your decision. :p

tbh i dont see why people are saying no. he posted in one of the help sections what he needs to be a mem. other members answered him, and he does have everything they said to have. Hes also in rs-r and that clearly shows he could program, as thats a hard community to get into

Too much forms, not enough script :)

No.

And some random fool i talked on msn (didnt know any programming) was in rs-r :p

they opened the regs again but closed off arga to all the new members so a lot of them are just leeching nubs. i've been in rs-r since aryan was around so I am an extremely senior member there lol. And a mod ;) (pk guru).

:O That form's a biggie! Hmm, I think it'll be a yes from me, the proggy shows it works well, and I did watch the script run on my comp, It runs okay, could do with some improvements, but hey, what script is 100% perfect? And to produce a fully working script with srl etc, with not a lot of actual script is something. :)

ty eddie. What improvements did you have in mind? I want to improve the script but atm I'm not sure how.

In.