SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Java, VB, Scar

Other Communitys
RS-R,Sythe

How Long have You Played Runescape
6 years

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

i have been playing runescape since the start of my parents divorce and have been cheating/macroing in it for 5 of them. I used to program many scar scripts but lost interest when i finally found that there was no other game to cure boredom i started playing again thats when i found SRL so i decided i was gonna try programming it and have made a successful auto chopper it has a working form semi working randoms and great tree finding and log dropping.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Note: Script is beta with multi-player

//////////////////////ChopperX\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////V1.91\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////Instructions\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////1.Have Axe Equiped\\\\\\\\\\\\\\\\\\\\\\\
/////////////2.Drag Cross Hair Onto RS\\\\\\\\\\\\\\\\
/////////////3.Start Script and have fun\\\\\\\\\\\\\\
/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////Changes\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////1.0 First Release\\\\\\\\\\\\\\\\\\\\
/////////////////1.1 Fixed Randoms\\\\\\\\\\\\\\\\\\\\
/////////////////1.2 Organized &\\\\\\\\\\\\\\\\\\\\\\
/////////////////rewrote the script\\\\\\\\\\\\\\\\\\\
/////////////////1.3 Fixed Tree Finding\\\\\\\\\\\\\\\
/////////////////& Added Run away from fights\\\\\\\\\
/////////////////1.4 Added All Random\\\\\\\\\\\\\\\\\
/////////////////Searchers & Solvers\\\\\\\\\\\\\\\\\\
/////////////////1.5 Added Form & Fixed Bugs\\\\\\\\\\
/////////////////1.51 Fixed Minor Bugs\\\\\\\\\\\\\\\\
/////////////////1.6 Added Walk Back\\\\\\\\\\\\\\\\\\
/////////////////1.61 Added Form Saving\\\\\\\\\\\\\\\
/////////////////1.7 Fixed Bugs in XP Finder\\\\\\\\\\
/////////////////1.71 Added A Few Touch Ups\\\\\\\\\\\
/////////////////1.72 Fixed Bugs Made In 1.71\\\\\\\\\
/////////////////1.8 Added Ent Finding\\\\\\\\\\\\\\\\
/////////////////1.9 Added Multi Player\\\\\\\\\\\\\\\
/////////////////1.91 Fixed Bugs Made In 1.91\\\\\\\\\
/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////V1.91\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////ChopperX\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
program ChopperX;
{.include SRL/SRL.Scar}
{.include SRL/SRL/skill/WoodCutting.Scar}
{.include SRL/SRL/skill/Fighting.Scar}

Var
NameOfTree,Disguise,RunDirection,Name,Pass,Nick: String;
TreeCol,Loads,LoadsToDo,Time,XP,y1,color1:integer;
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  Label6 : TLabel;
  Label8 : TLabel;
  Label9 : TLabel;
  Label7 : TLabel;
  Label10 : TLabel;
  Label5 : TLabel;
  Label11 : TLabel;
  Label12 : TLabel;
  Label13 : TLabel;
  Label14 : TLabel;
  Label15 : TLabel;
  Label16 : TLabel;
  Label17 : TLabel;
  Label18 : TLabel;
  Label19 : TLabel;
  Label20 : TLabel;
  Label21 : TLabel;
  Label22 : TLabel;
  Label23 : TLabel;
  Time1 : TEdit;
  TreeCol1 : TEdit;
  NameOfTree1 : TEdit;
  Edit1 : TEdit;
  LampSkill1 : TEdit;
  Name1 : TEdit;
  Pass1 : TEdit;
  Nick1 : TEdit;
  Button1 : TButton;
  Button2 : TButton;
  Edit2 : TEdit;
  Edit3 : TEdit;
  Edit4 : TEdit;
  Edit5 : TEdit;
  Edit6 : TEdit;
  Edit7 : TEdit;
  Edit8 : TEdit;
  Edit9 : TEdit;
  Edit10 : TEdit;
  Edit11 : TEdit;
  ComboBox1 : TComboBox;
  ComboBox2 : TComboBox;
  ComboBox3 : TComboBox;
  ComboBox4 : TComboBox;

Procedure SaveSets;
begin;
SaveSetting('ChopperX','Saved','true');
SaveSetting('ChopperX','Username',Name);
SaveSetting('ChopperX','Password',Pass);
SaveSetting('ChopperX','Nick',Nick);
SaveSetting('ChopperX','RunDir',RunDirection);
SaveSetting('ChopperX','LampSkill',LampSkill);
SaveSetting('ChopperX','TreeName',NameOfTree);
SaveSetting('ChopperX','TreeColor',inttostr(TreeCol));
SaveSetting('ChopperX','Time',IntToStr(Time));
end;

Procedure LoadSets;
begin;
if(LoadSetting('ChopperX','Saved')='true') then begin
Name1.Text := LoadSetting('ChopperX','Username');
Pass1.Text := LoadSetting('ChopperX','Password');
Edit1.Text := LoadSetting('ChopperX','RunDir');
Nick1.Text := LoadSetting('ChopperX','Nick');
LampSkill1.Text := LoadSetting('ChopperX','LampSkill');
NameOfTree1.Text := LoadSetting('ChopperX','TreeName');
TreeCol1.Text := LoadSetting('ChopperX','TreeColor');
Time1.Text := LoadSetting('ChopperX','Time');
end
end;

procedure StartScriptButton(Sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
HowManyPlayers := 4;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name := Name1.TEXT;
Players[0].Pass := Pass1.TEXT;
Players[0].Nick := Nick1.TEXT;
Players[0].Active := StrToBool(ComboBox2.TEXT);
Players[1].Name := Edit3.TEXT;
Players[1].Pass := Edit4.TEXT;
Players[1].Nick := Edit5.TEXT;
Players[1].Active := StrToBool(ComboBox1.TEXT);
Players[2].Name := Edit6.TEXT;
Players[2].Pass := Edit7.TEXT;
Players[2].Nick := Edit8.TEXT;
Players[2].Active := StrToBool(ComboBox4.TEXT);
Players[3].Name := Edit9.TEXT;
Players[3].Pass := Edit10.TEXT;
Players[3].Nick := Edit11.TEXT;
Players[3].Active := StrToBool(ComboBox3.TEXT);
Name := Name1.TEXT;
Pass := Pass1.TEXT;
Nick := Nick1.TEXT;
Time := StrToInt(Time1.TEXT);
TreeCol := StrToInt(TreeCol1.TEXT);
LoadsToDo := StrToInt(Edit2.TEXT);
NameOfTree := NameOfTree1.TEXT;
RunDirection := Edit1.TEXT;
LampSkill := LampSkill1.TEXT;
Disguise := 'http://www.youtube.com/m3v6n8';
SaveSets;
frmDesign.ModalResult:= mrOk;
end;

procedure GetColor1(Sender: TObject);
begin
     PickColor(Color1, x, y);
     TreeCol1.TEXT := IntToStr(Color1);
end;

Procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 704;
frmDesign.Height := 307;
frmDesign.Caption := 'Antibinki'#39's ChopperX V1.9';
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;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 9;
Label1.Top := 33;
Label1.Width := 105;
Label1.Height := 13;
Label1.Caption := 'Time To Cut The Tree';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 65;
Label2.Top := 58;
Label2.Width := 49;
Label2.Height := 13;
Label2.Caption := 'Tree Color';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 61;
Label3.Top := 84;
Label3.Width := 53;
Label3.Height := 13;
Label3.Caption := 'Tree Name';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 21;
Label4.Top := 110;
Label4.Width := 94;
Label4.Height := 13;
Label4.Caption := 'Run Away Direction';
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 24;
Label6.Top := 140;
Label6.Width := 91;
Label6.Height := 13;
Label6.Caption := 'Lamp Skill To Train';
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 292;
Label8.Top := 68;
Label8.Width := 46;
Label8.Height := 13;
Label8.Caption := 'Password';
Label9 := TLabel.Create(frmDesign);
Label9.Parent := frmDesign;
Label9.Left := 314;
Label9.Top := 95;
Label9.Width := 22;
Label9.Height := 13;
Label9.Caption := 'Nick';
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 104;
Label7.Top := 2;
Label7.Width := 49;
Label7.Height := 24;
Label7.Caption := 'Setup';
Label7.Font.Color := clWindowText;
Label7.Font.Height := -20;
Label7.Font.Name := 'MS Sans Serif';
Label7.Font.Style := [];
Label7.ParentFont := False;
Label10 := TLabel.Create(frmDesign);
Label10.Parent := frmDesign;
Label10.Left := 51;
Label10.Top := 171;
Label10.Width := 62;
Label10.Height := 13;
Label10.Caption := 'Loads To Do';
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 289;
Label5.Top := 43;
Label5.Width := 48;
Label5.Height := 13;
Label5.Caption := 'Username';
Label11 := TLabel.Create(frmDesign);
Label11.Parent := frmDesign;
Label11.Left := 292;
Label11.Top := 147;
Label11.Width := 48;
Label11.Height := 13;
Label11.Caption := 'Username';
Label12 := TLabel.Create(frmDesign);
Label12.Parent := frmDesign;
Label12.Left := 294;
Label12.Top := 174;
Label12.Width := 46;
Label12.Height := 13;
Label12.Caption := 'Password';
Label13 := TLabel.Create(frmDesign);
Label13.Parent := frmDesign;
Label13.Left := 314;
Label13.Top := 199;
Label13.Width := 22;
Label13.Height := 13;
Label13.Caption := 'Nick';
Label14 := TLabel.Create(frmDesign);
Label14.Parent := frmDesign;
Label14.Left := 495;
Label14.Top := 44;
Label14.Width := 48;
Label14.Height := 13;
Label14.Caption := 'Username';
Label15 := TLabel.Create(frmDesign);
Label15.Parent := frmDesign;
Label15.Left := 495;
Label15.Top := 71;
Label15.Width := 46;
Label15.Height := 13;
Label15.Caption := 'Password';
Label16 := TLabel.Create(frmDesign);
Label16.Parent := frmDesign;
Label16.Left := 519;
Label16.Top := 97;
Label16.Width := 22;
Label16.Height := 13;
Label16.Caption := 'Nick';
Label17 := TLabel.Create(frmDesign);
Label17.Parent := frmDesign;
Label17.Left := 496;
Label17.Top := 147;
Label17.Width := 48;
Label17.Height := 13;
Label17.Caption := 'Username';
Label18 := TLabel.Create(frmDesign);
Label18.Parent := frmDesign;
Label18.Left := 498;
Label18.Top := 173;
Label18.Width := 46;
Label18.Height := 13;
Label18.Caption := 'Password';
Label19 := TLabel.Create(frmDesign);
Label19.Parent := frmDesign;
Label19.Left := 522;
Label19.Top := 195;
Label19.Width := 22;
Label19.Height := 13;
Label19.Caption := 'Nick';
Label20 := TLabel.Create(frmDesign);
Label20.Parent := frmDesign;
Label20.Left := 305;
Label20.Top := 121;
Label20.Width := 30;
Label20.Height := 13;
Label20.Caption := 'Active';
Label21 := TLabel.Create(frmDesign);
Label21.Parent := frmDesign;
Label21.Left := 303;
Label21.Top := 17;
Label21.Width := 30;
Label21.Height := 13;
Label21.Caption := 'Active';
Label22 := TLabel.Create(frmDesign);
Label22.Parent := frmDesign;
Label22.Left := 511;
Label22.Top := 124;
Label22.Width := 30;
Label22.Height := 13;
Label22.Caption := 'Active';
Label23 := TLabel.Create(frmDesign);
Label23.Parent := frmDesign;
Label23.Left := 512;
Label23.Top := 21;
Label23.Width := 30;
Label23.Height := 13;
Label23.Caption := 'Active';
Time1 := TEdit.Create(frmDesign);
Time1.Parent := frmDesign;
Time1.Left := 118;
Time1.Top := 29;
Time1.Width := 121;
Time1.Height := 21;
Time1.TabOrder := 8;
Time1.Text := 'In Seconds';
TreeCol1 := TEdit.Create(frmDesign);
TreeCol1.Parent := frmDesign;
TreeCol1.Left := 118;
TreeCol1.Top := 55;
TreeCol1.Width := 121;
TreeCol1.Height := 21;
TreeCol1.TabOrder := 9;
NameOfTree1 := TEdit.Create(frmDesign);
NameOfTree1.Parent := frmDesign;
NameOfTree1.Left := 118;
NameOfTree1.Top := 81;
NameOfTree1.Width := 121;
NameOfTree1.Height := 21;
NameOfTree1.TabOrder := 10;
NameOfTree1.Text := 'Tree';
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 118;
Edit1.Top := 107;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 11;
Edit1.Text := 'N';
LampSkill1 := TEdit.Create(frmDesign);
LampSkill1.Parent := frmDesign;
LampSkill1.Left := 117;
LampSkill1.Top := 137;
LampSkill1.Width := 121;
LampSkill1.Height := 21;
LampSkill1.TabOrder := 12;
LampSkill1.Text := 'Strength';
Name1 := TEdit.Create(frmDesign);
Name1.Parent := frmDesign;
Name1.Left := 344;
Name1.Top := 40;
Name1.Width := 121;
Name1.Height := 21;
Name1.TabOrder := 13;
Pass1 := TEdit.Create(frmDesign);
Pass1.Parent := frmDesign;
Pass1.Left := 343;
Pass1.Top := 65;
Pass1.Width := 121;
Pass1.Height := 21;
Pass1.TabOrder := 14;
Nick1 := TEdit.Create(frmDesign);
Nick1.Parent := frmDesign;
Nick1.Left := 343;
Nick1.Top := 92;
Nick1.Width := 121;
Nick1.Height := 21;
Nick1.TabOrder := 15;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 11;
Button1.Top := 53;
Button1.Width := 53;
Button1.Height := 24;
Button1.Caption := 'Pick Color';
Button1.TabOrder := 16;
Button2 := TButton.Create(frmDesign);
Button2.Parent := frmDesign;
Button2.Left := 20;
Button2.Top := 221;
Button2.Width := 655;
Button2.Height := 43;
Button2.Caption := 'GO';
Button2.Font.Color := clWindowText;
Button2.Font.Height := -29;
Button2.Font.Name := 'Ravie';
Button2.Font.Style := [];
Button2.ParentFont := False;
Button2.TabOrder := 17;
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 116;
Edit2.Top := 168;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 18;
Edit2.Text := '100';
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 344;
Edit3.Top := 143;
Edit3.Width := 121;
Edit3.Height := 21;
Edit3.TabOrder := 19;
Edit4 := TEdit.Create(frmDesign);
Edit4.Parent := frmDesign;
Edit4.Left := 344;
Edit4.Top := 168;
Edit4.Width := 121;
Edit4.Height := 21;
Edit4.TabOrder := 20;
Edit4.Text := '';
Edit5 := TEdit.Create(frmDesign);
Edit5.Parent := frmDesign;
Edit5.Left := 344;
Edit5.Top := 193;
Edit5.Width := 121;
Edit5.Height := 21;
Edit5.TabOrder := 21;
Edit5.Text := '';
Edit6 := TEdit.Create(frmDesign);
Edit6.Parent := frmDesign;
Edit6.Left := 551;
Edit6.Top := 41;
Edit6.Width := 121;
Edit6.Height := 21;
Edit6.TabOrder := 22;
Edit6.Text := '';
Edit7 := TEdit.Create(frmDesign);
Edit7.Parent := frmDesign;
Edit7.Left := 551;
Edit7.Top := 67;
Edit7.Width := 121;
Edit7.Height := 21;
Edit7.TabOrder := 23;
Edit7.Text := '';
Edit8 := TEdit.Create(frmDesign);
Edit8.Parent := frmDesign;
Edit8.Left := 552;
Edit8.Top := 92;
Edit8.Width := 121;
Edit8.Height := 21;
Edit8.TabOrder := 24;
Edit8.Text := '';
Edit9 := TEdit.Create(frmDesign);
Edit9.Parent := frmDesign;
Edit9.Left := 552;
Edit9.Top := 143;
Edit9.Width := 121;
Edit9.Height := 21;
Edit9.TabOrder := 25;
Edit9.Text := '';
Edit10 := TEdit.Create(frmDesign);
Edit10.Parent := frmDesign;
Edit10.Left := 552;
Edit10.Top := 169;
Edit10.Width := 121;
Edit10.Height := 21;
Edit10.TabOrder := 26;
Edit10.Text := '';
Edit11 := TEdit.Create(frmDesign);
Edit11.Parent := frmDesign;
Edit11.Left := 552;
Edit11.Top := 194;
Edit11.Width := 121;
Edit11.Height := 21;
Edit11.TabOrder := 27;
Edit11.Text := '';
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 344;
ComboBox1.Top := 118;
ComboBox1.Width := 120;
ComboBox1.Height := 21;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 28;
ComboBox1.Text := 'False';
ComboBox1.Items.Add('True');
ComboBox1.Items.Add('False');
ComboBox2 := TComboBox.Create(frmDesign);
ComboBox2.Parent := frmDesign;
ComboBox2.Left := 344;
ComboBox2.Top := 14;
ComboBox2.Width := 120;
ComboBox2.Height := 21;
ComboBox2.ItemHeight := 13;
ComboBox2.TabOrder := 29;
ComboBox2.Text := 'True';
ComboBox2.Items.Add('True');
ComboBox2.Items.Add('False');
ComboBox3 := TComboBox.Create(frmDesign);
ComboBox3.Parent := frmDesign;
ComboBox3.Left := 552;
ComboBox3.Top := 119;
ComboBox3.Width := 121;
ComboBox3.Height := 21;
ComboBox3.ItemHeight := 13;
ComboBox3.TabOrder := 30;
ComboBox3.Text := 'False';
ComboBox3.Items.Add('True');
ComboBox3.Items.Add('False');
ComboBox4 := TComboBox.Create(frmDesign);
ComboBox4.Parent := frmDesign;
ComboBox4.Left := 551;
ComboBox4.Top := 15;
ComboBox4.Width := 122;
ComboBox4.Height := 21;
ComboBox4.ItemHeight := 13;
ComboBox4.TabOrder := 31;
ComboBox4.Text := 'False';
ComboBox4.Items.Add('True');
ComboBox4.Items.Add('False');
Button1.OnClick := @GetColor1
Button2.OnClick := @StartScriptButton
LoadSets;
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 Findaxehead;
 begin
  FindHead;
  wait(5000);
  AttachHead;
end;

Procedure AB;
 begin
  RotateEvery(1+random(1));
   RandomChatEvery(5+random(6));
  LeaveScreenEvery(1+random(1));
 AntiBan;
end;

Procedure GetXP1;
begin
If (NameOfTree = 'Tree') Then
begin
y1 := 25;
end
else
If (NameOfTree = 'Oak') Then
begin
y1 := 37;
end
else
If (NameOfTree = 'Willow') Then
begin
y1 := 62;
end
else
If (NameOfTree = 'Maple') Then
begin
y1 := 100;
end
else
If (NameOfTree = 'Mahogany') Then
begin
y1 := 125;
end
else
If (NameOfTree = 'Yew') Then
begin
y1 := 175;
end
else
If (NameOfTree = 'Magic') Then
begin
y1 := 250;
end
XP := y1 * 28 * Loads
XP := XP
ReportVars[2] := ReportVars[2] + 1;
end;

Procedure Rands;
begin
  FindAxeHead;
  FindEnt(TreeCol);
  if InBlack or FindScapeRune or NoGameTab then
  begin
    LogOut;
    NextPlayer(true);
  end
  else
  SolveGenie(LampSkill);
  FindLamp(LampSkill);
  FindCerter;
  FindTalk;
  FindNormalRandoms;
end;

Procedure Fighting;
begin
Status('Searching For Fight');
If (InFight = true) then
begin
Status('In Fight Running Away');
RunTo(RunDirection,true);
wait(1000);
end
Else
Status('Not In Fight :D');
end;

procedure LoginPro;
begin
if(not (LoggedIn)) then
LoginPlayer;
end;

procedure chop;
begin
FindAxeHeadColor;
repeat
FindObj(x,y, 'Chop down ' + NameOfTree, TreeCol, 5);
Status('Searching For Tree');
if IsUpText(NameOfTree) then
Mouse(x,y,1,1,false);
ChooseOption(x,y,'Chop down');
wait(Time * 1000);
Status('Chopping Tree');
LoginPro;
Fighting;
AB;
Rands;
until(InvFull);
end;

procedure ReportStart;
begin
ClearDebug;
writeln('   _____          __  ._____.   .__        __   .__        ')
writeln('  /  _  \   _____/  |_|__\_ |__ |__| ____ |  | _|__| ______')
writeln(' /  /_\  \ /    \   __\  || __ \|  |/    \|  |/ /  |/  ___/')
writeln('/    |    \   |  \  | |  || \_\ \  |   |  \    <|  |\___ \ ')
writeln('\____|__  /___|  /__| |__||___  /__|___|  /__|_ \__|____  >')
writeln('        \/     \/             \/        \/     \/       \/ ')
writeln('_________ .__                                        ____  ___')
writeln('\_   ___ \|  |__   ____ ______ ______   ___________  \   \/  /')
writeln('/    \  \/|  |  \ /  _ \\____ \\____ \_/ __ \_  __ \  \     / ')
writeln('\     \___|   Y  (  <_> )  |_> >  |_> >  ___/|  | \/  /     \ ')
writeln(' \______  /___|  /\____/|   __/|   __/ \___  >__|    /___/\  \')
writeln('        \/     \/       |__|   |__|        \/              \_/')
end;

procedure Report;
begin
  ClearDebug;
  Writeln('{ChopperX}=-=-=-=-=-=-=-=-=-=-=-=-=-=-{ChopperX}');
  Writeln('Worked For : ' + ScriptTime2(2))
  Writeln('Cut '+ IntToStr(Loads) + ' Loads');
  Writeln(IntToStr(LoadsToDo - Loads) +' Loads Left To Cut');
  Writeln('Dropped ' +intToStr(loads * 28) + ' Logs');
  Writeln('Gained '+ IntToStr(XP) + ' EXP');
  Writeln('{ChopperX}=-=-=-=-=-=-=-=-=-=-=-=-=-=-{ChopperX}');
end;

Procedure Drop;
begin
if (Loads = LoadsToDo) then
begin
Logout;
players[CurrentPlayer].active := False;
Nextplayer(true);
LoginPlayer;
end
else
repeat
DropTo(1,28);
Loads := Loads + 1
ReportVars[0] := ReportVars[0] + 1;
until(InvEmpty)
end;

begin
SetupScript;
SetUpSRL;
ScriptID := '104';
GetApplication.Title:= Disguise;
GetSelf.Caption:= Disguise;
ClearDebug;
ReportStart;
CerterLoadBmps;
LoginPro;
repeat
ActivateClient;
LoginPro;
chop;
drop;
GetXP1;
Report;
SRLRandomsReport;
until(False);
Writeln('Finished Cutting')
end.

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

Looks good, too bad I have the suspiscion of you copying this. Hope you don't get irratated but many people think postcount < 15, and an application with a pretty nice looking script is a bad sign. Yes from me if you didnt copy it though :p

edit:

Just took a look at your posts, and you look pretty legit to me ;)

I'll hold off my vote though. You seem pretty good at forms, but to tell you the truth It looks as if a large portion of your script if form. Congratz with the form knowlegde though ;)

PS: forms aren't as important as what the script does. I belive it's better to spend 2 hours writing a script and have it do what it does than to spend alot more time to get it form compatible.

EDIT:

I voted yes ;)

I hope you get in man

Except for the walking it looks nice.
I don't see multiplayer though. (NextPlayer, Multi-Players)

when i clicked exit on the form it tried to start
make sure you make
start when you hit the button :D

program New;
var
  frmDesign : TForm;
  Button1 : TButton;

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

procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 259;
  frmDesign.Top := 132;
  frmDesign.Width := 354;
  frmDesign.Height := 254;
  frmDesign.Caption := 'frmDesign';
  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;
  Button1 := TButton.Create(frmDesign);
  Button1.OnClick:= @buttonclick;
  Button1.Parent := frmDesign;
  Button1.Left := 69;
  Button1.Top := 61;
  Button1.Width := 75;
  Button1.Height := 25;
  Button1.Caption := 'Button1';
  Button1.TabOrder := 8;
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;

begin
  SafeInitForm;

  SafeShowFormModal;
     If frmDesign.MODALRESULT = mrOk then
writeln('You pressed The Button!!!!!');
end.

From: SKy Scripter
when i clicked exit on the form it tried to start
make sure you make
start when you hit the button :D

program New;
var
  frmDesign : TForm;
  Button1 : TButton;

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

procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 259;
  frmDesign.Top := 132;
  frmDesign.Width := 354;
  frmDesign.Height := 254;
  frmDesign.Caption := 'frmDesign';
  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;
  Button1 := TButton.Create(frmDesign);
  Button1.OnClick:= @buttonclick;
  Button1.Parent := frmDesign;
  Button1.Left := 69;
  Button1.Top := 61;
  Button1.Width := 75;
  Button1.Height := 25;
  Button1.Caption := 'Button1';
  Button1.TabOrder := 8;
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;

begin
  SafeInitForm;

  SafeShowFormModal;
     If frmDesign.MODALRESULT = mrOk then
writeln('You pressed The Button!!!!!');
end.

I have that already for the start button any script when you click the close button starts try it with others :P

From: SKy Scripter
when i clicked exit on the form it tried to start
make sure you make
start when you hit the button :D

its just part of how the form code is set up…it doesnt know quite what to do when u press the 'x'…so all the things you have it set to do at the Sender: TObject proc dont get done,

procedure StartScriptButton(Sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name := Name1.TEXT;
Players[0].Pass := Pass1.TEXT;
Players[0].Nick := Nick1.TEXT;
Players[0].Active := True;
Name := Name1.TEXT;
Pass := Pass1.TEXT;
Nick := Nick1.TEXT;
Time := StrToInt(Time1.TEXT);
TreeCol := StrToInt(TreeCol1.TEXT);
LoadsToDo := StrToInt(Edit2.TEXT);
NameOfTree := NameOfTree1.TEXT;
RunDirection := Edit1.TEXT;
LampSkill := LampSkill1.TEXT;
Disguise := 'http://www.youtube.com/m3v6n8';
SaveSets;
frmDesign.ModalResult:= mrOk;
end;

so none of that is done by the script b/c the ok button wasnt pressed, but it starts the script with skipping over that…it isnt an error on his part ;)

i think it looks good.

Ok i will take that into acount and make an X Button thanks for the info :D

well if u use rons dfm parser you can get it to put in code to make the "X" close form and stop script

lol i cant download but if i get accepted i will try my best o get it to work thanks for all the help :D