SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Little bit of Basic

Other Communitys
RSUnlocked Fagex

How Long have You Played Runescape
3 Years

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

Ive been using scar for a couple years now and have been a member of this forum for quite sometime now just never really used it. A couple months ago i decided to start coding so i cam here for the great tutorials. this is my first script it took me a while to make and i plan on improving it as i learn more and more
thanks
-Korki-

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

program KorkisPowerChopper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}

var
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  Label5 : TLabel;
  Label6 : TLabel;
  Label7 : TLabel;
  Label8 : TLabel;
  Label9 : TLabel;
  Username1 : TEdit;
  Username2 : TEdit;
  Username3 : TEdit;
  Username4 : TEdit;
  Username5 : TEdit;
  Password1 : TEdit;
  Password2 : TEdit;
  Password3 : TEdit;
  Password4 : TEdit;
  Password5 : TEdit;
  Nick1 : TEdit;
  Nick2 : TEdit;
  Nick3 : TEdit;
  Nick4 : TEdit;
  Nick5 : TEdit;
  Active1 : TComboBox;
  Active2 : TComboBox;
  Active3 : TComboBox;
  Active4 : TComboBox;
  Active5 : TComboBox;
  Run : TEdit;
  Loads : TEdit;
  Color : TEdit;
  ActivePlayers : TEdit;
  TreeName : TEdit;
  Start : TButton;
  ColorPick : TButton;
  Cancel : TButton;
LoadsDone, TreeColor, TotalLoads, LoadsToDo, NumPlayers : Integer;
User1, User2, User3, User4, User5,
Pass1, Pass2, Pass3, Pass4, Pass5,
Nickn1, Nickn2, Nickn3, Nickn4, Nickn5,
Activep1, Activep2, Activep3, Activep4, Activep5,
TreeType, RunDir, RunBackDir : String;

//////////////////////
/////Save Setting/////
//////////////////////
Procedure save;
begin;
  SaveSetting('Korki','Saved','true');
  SaveSetting('Korki','Username',User1);
  SaveSetting('Korki','Password',Pass1);
  SaveSetting('Korki','Nick',Nickn1);
  SaveSetting('Korki','Active',Activep1);

  SaveSetting('Korki','Username2',User2);
  SaveSetting('Korki','Password2',Pass2);
  SaveSetting('Korki','Nick2',Nickn2);
  SaveSetting('Korki','Active2',Activep2);

  SaveSetting('Korki','Username3',User3);
  SaveSetting('Korki','Password3',Pass3);
  SaveSetting('Korki','Nick3',Nickn3);
  SaveSetting('Korki','Active3',Activep3);

  SaveSetting('Korki','Username4',User4);
  SaveSetting('Korki','Password4',Pass4);
  SaveSetting('Korki','Nick4',Nickn4);
  SaveSetting('Korki','Active4',Activep4);

  SaveSetting('Korki','Username5',User5);
  SaveSetting('Korki','Password5',Pass5);
  SaveSetting('Korki','Nick5',Nickn5);
  SaveSetting('Korki','Active5',Activep5);

  SaveSetting('Korki','NumPlayers',IntToStr(NumPlayers));
  SaveSetting('Korki','RunDir',RunDir);
  SaveSetting('Korki','TreeType',TreeType);
  SaveSetting('Korki','TreeColor',inttostr(TreeColor));
  SaveSetting('Korki','LoadsToDo',inttostr(LoadsToDo));
end;

//////////////////////
/////Load Setting/////
//////////////////////
Procedure load;
begin;
  if(LoadSetting('Korki','Saved')='true') then
    begin
      Username1.Text := LoadSetting('Korki','Username');
      Password1.Text := LoadSetting('Korki','Password');
      Nick1.Text := LoadSetting('Korki','Nick');
      Active1.text := LoadSetting('Korki','Active');

      Username2.Text := LoadSetting('Korki','Username2');
      Password2.Text := LoadSetting('Korki','Password2');
      Nick2.Text := LoadSetting('Korki','Nick2');
      Active2.text := LoadSetting('Korki','Active2');

      Username3.Text := LoadSetting('Korki','Username3');
      Password3.Text := LoadSetting('Korki','Password3');
      Nick3.Text := LoadSetting('Korki','Nick3');
      Active3.text := LoadSetting('Korki','Active3');

      Username4.Text := LoadSetting('Korki','Username4');
      Password4.Text := LoadSetting('Korki','Password4');
      Nick4.Text := LoadSetting('Korki','Nick4');
      Active4.text := LoadSetting('Korki','Active4');

      Username5.Text := LoadSetting('Korki','Username5');
      Password5.Text := LoadSetting('Korki','Password5');
      Nick5.Text := LoadSetting('Korki','Nick5');
      Active5.text := LoadSetting('Korki','Active5');

      ActivePlayers.text := LoadSetting('Korki','NumPlayers');
      Run.Text := LoadSetting('Korki','RunDir');
      TreeName.Text := LoadSetting('Korki','TreeType');
      Color.Text := LoadSetting('Korki','TreeColor');
      Loads.Text := LoadSetting('Korki','LoadsToDo');
    end;
end;
  
//////////////////////
/////Start Button/////
//////////////////////
procedure ButtonClickStart(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';

  NumPlayers := StrToInt(ActivePlayers.text);

  User1 := Username1.text;
  Pass1 := Password1.text;
  Nickn1 := Nick1.text;
  Activep1 := Active1.text;

  User2 := Username2.text;
  Pass2 := Password2.text;
  Nickn2 := Nick2.text;
  Activep2 := Active2.text;

  User3 := Username3.text;
  Pass3 := Password3.text;
  Nickn3 := Nick3.text;
  Activep3 := Active3.text;

  User4 := Username4.text;
  Pass4 := Password4.text;
  Nickn4 := Nick4.text;
  Activep4 := Active4.text;

  User5 := Username5.text;
  Pass5 := Password5.text;
  Nickn5 := Nick5.text;
  Activep5 := Active5.text;

  TreeType := TreeName.text;
  LoadsToDo := StrToInt(Loads.text);
  RunDir := Run.text;

if Run.text = 'N' then
   RunBackDir := 'S';
if Run.text = 'S' then
   RunBackDir := 'N';
if Run.text = 'E' then
   RunBackDir := 'W';
if Run.text = 'W' then
   RunBackDir := 'E';
if Run.text = 'North' then
   RunBackDir := 'S';
if Run.text = 'East' then
   RunBackDir := 'W';
if Run.text = 'South' then
   RunBackDir := 'N';
if Run.text = 'West' then
   RunBackDir := 'E';
save;
frmDesign.ModalResult:= mrOk;
end;

///////////////////////////
/////Color Pick Button/////
///////////////////////////
procedure ButtonClickColor(sender:TObject);
begin
pickcolor(TreeColor,x,y);
Color.text:= inttostr(TreeColor);
end;

/////////////////
/////Players/////
/////////////////
procedure DeclarePlayers;
begin
  HowManyPlayers := 5;
  NumberOfPlayers( HowManyPlayers );
  CurrentPlayer:= 0;

  Players[0].Name :=  User1;
  Players[0].Pass :=  Pass1;
  Players[0].Nick :=  Nickn1;
  Players[0].Active:= StrToBool(Activep1);

  Players[1].Name := User2;
  Players[1].Pass := Pass2;
  Players[1].Nick := Nickn2;
  Players[1].Active:= StrToBool(Activep2);

  Players[2].Name := User3;
  Players[2].Pass := Pass3;
  Players[2].Nick := Nickn3;
  Players[2].Active:= StrToBool(Activep3);

  Players[3].Name := User4;
  Players[3].Pass := Pass4;
  Players[3].Nick := Nickn4;
  Players[3].Active:= StrToBool(Activep4);

  Players[4].Name := User5;
  Players[4].Pass := Pass5;
  Players[4].Nick := Nickn5;
  Players[4].Active:= StrToBool(Activep5);
end;
  
procedure initform;
begin
frmDesign := CreateForm;
frmDesign.Left := 475;
frmDesign.Top := 109;
frmDesign.Width := 567;
frmDesign.Height := 358;
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;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 11;
Label1.Top := 7;
Label1.Width := 83;
Label1.Height := 20;
Label1.Caption := 'Username';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -16;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [fsBold];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 142;
Label2.Top := 7;
Label2.Width := 78;
Label2.Height := 20;
Label2.Caption := 'Password';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -16;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [fsBold];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 273;
Label3.Top := 7;
Label3.Width := 81;
Label3.Height := 20;
Label3.Caption := 'NickName';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -16;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [fsBold];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 404;
Label4.Top := 7;
Label4.Width := 60;
Label4.Height := 20;
Label4.Caption := 'Active?';
Label4.Font.Color := clWindowText;
Label4.Font.Height := -16;
Label4.Font.Name := 'MS Sans Serif';
Label4.Font.Style := [fsBold];
Label4.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 11;
Label5.Top := 270;
Label5.Width := 111;
Label5.Height := 20;
Label5.Caption := 'Run Direction';
Label5.Font.Color := clWindowText;
Label5.Font.Height := -16;
Label5.Font.Name := 'MS Sans Serif';
Label5.Font.Style := [fsBold];
Label5.ParentFont := False;
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 11;
Label6.Top := 240;
Label6.Width := 103;
Label6.Height := 20;
Label6.Caption := 'Loads To Do';
Label6.Font.Color := clWindowText;
Label6.Font.Height := -16;
Label6.Font.Name := 'MS Sans Serif';
Label6.Font.Style := [fsBold];
Label6.ParentFont := False;
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 11;
Label7.Top := 300;
Label7.Width := 84;
Label7.Height := 20;
Label7.Caption := 'Tree Color';
Label7.Font.Color := clWindowText;
Label7.Font.Height := -16;
Label7.Font.Name := 'MS Sans Serif';
Label7.Font.Style := [fsBold];
Label7.ParentFont := False;
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 12;
Label8.Top := 212;
Label8.Width := 138;
Label8.Height := 20;
Label8.Caption := '# of Active Users';
Label8.Font.Color := clWindowText;
Label8.Font.Height := -16;
Label8.Font.Name := 'MS Sans Serif';
Label8.Font.Style := [fsBold];
Label8.ParentFont := False;
Label9 := TLabel.Create(frmDesign);
Label9.Parent := frmDesign;
Label9.Left := 10;
Label9.Top := 180;
Label9.Width := 109;
Label9.Height := 20;
Label9.Caption := 'Name of Tree';
Label9.Font.Color := clWindowText;
Label9.Font.Height := -16;
Label9.Font.Name := 'MS Sans Serif';
Label9.Font.Style := [fsBold];
Label9.ParentFont := False;
Username1 := TEdit.Create(frmDesign);
Username1.Parent := frmDesign;
Username1.Left := 11;
Username1.Top := 30;
Username1.Width := 121;
Username1.Height := 21;
Username1.TabOrder := 0;
Username1.Text := 'Username 1';
Username2 := TEdit.Create(frmDesign);
Username2.Parent := frmDesign;
Username2.Left := 11;
Username2.Top := 60;
Username2.Width := 121;
Username2.Height := 21;
Username2.TabOrder := 1;
Username2.Text := 'Username 2';
Username3 := TEdit.Create(frmDesign);
Username3.Parent := frmDesign;
Username3.Left := 11;
Username3.Top := 90;
Username3.Width := 121;
Username3.Height := 21;
Username3.TabOrder := 2;
Username3.Text := 'Username 3';
Username4 := TEdit.Create(frmDesign);
Username4.Parent := frmDesign;
Username4.Left := 11;
Username4.Top := 120;
Username4.Width := 121;
Username4.Height := 21;
Username4.TabOrder := 3;
Username4.Text := 'Username 4';
Username5 := TEdit.Create(frmDesign);
Username5.Parent := frmDesign;
Username5.Left := 11;
Username5.Top := 150;
Username5.Width := 121;
Username5.Height := 21;
Username5.TabOrder := 4;
Username5.Text := 'Username 5';
Password1 := TEdit.Create(frmDesign);
Password1.Parent := frmDesign;
Password1.Left := 142;
Password1.Top := 30;
Password1.Width := 121;
Password1.Height := 21;
Password1.TabOrder := 5;
Password1.Text := 'Password 1';
Password2 := TEdit.Create(frmDesign);
Password2.Parent := frmDesign;
Password2.Left := 142;
Password2.Top := 60;
Password2.Width := 121;
Password2.Height := 21;
Password2.TabOrder := 6;
Password2.Text := 'Password 2';
Password3 := TEdit.Create(frmDesign);
Password3.Parent := frmDesign;
Password3.Left := 142;
Password3.Top := 90;
Password3.Width := 121;
Password3.Height := 21;
Password3.TabOrder := 7;
Password3.Text := 'Password 3';
Password4 := TEdit.Create(frmDesign);
Password4.Parent := frmDesign;
Password4.Left := 142;
Password4.Top := 120;
Password4.Width := 121;
Password4.Height := 21;
Password4.TabOrder := 8;
Password4.Text := 'Password 4';
Password5 := TEdit.Create(frmDesign);
Password5.Parent := frmDesign;
Password5.Left := 142;
Password5.Top := 150;
Password5.Width := 121;
Password5.Height := 21;
Password5.TabOrder := 9;
Password5.Text := 'Password 5';
Nick1 := TEdit.Create(frmDesign);
Nick1.Parent := frmDesign;
Nick1.Left := 273;
Nick1.Top := 30;
Nick1.Width := 121;
Nick1.Height := 21;
Nick1.TabOrder := 10;
Nick1.Text := 'Nick 1';
Nick2 := TEdit.Create(frmDesign);
Nick2.Parent := frmDesign;
Nick2.Left := 273;
Nick2.Top := 60;
Nick2.Width := 121;
Nick2.Height := 21;
Nick2.TabOrder := 11;
Nick2.Text := 'Nick 2';
Nick3 := TEdit.Create(frmDesign);
Nick3.Parent := frmDesign;
Nick3.Left := 273;
Nick3.Top := 90;
Nick3.Width := 121;
Nick3.Height := 21;
Nick3.TabOrder := 12;
Nick3.Text := 'Nick 3';
Nick4 := TEdit.Create(frmDesign);
Nick4.Parent := frmDesign;
Nick4.Left := 273;
Nick4.Top := 120;
Nick4.Width := 121;
Nick4.Height := 21;
Nick4.TabOrder := 13;
Nick4.Text := 'Nick 4';
Nick5 := TEdit.Create(frmDesign);
Nick5.Parent := frmDesign;
Nick5.Left := 273;
Nick5.Top := 150;
Nick5.Width := 121;
Nick5.Height := 21;
Nick5.TabOrder := 14;
Nick5.Text := 'Nick 5';
Active1 := TComboBox.Create(frmDesign);
Active1.Parent := frmDesign;
Active1.Left := 404;
Active1.Top := 30;
Active1.Width := 145;
Active1.Height := 21;
Active1.ItemHeight := 13;
Active1.TabOrder := 15;
Active1.Text := 'Active 1';
Active1.Items.Add('True');
Active1.Items.Add('False');
Active2 := TComboBox.Create(frmDesign);
Active2.Parent := frmDesign;
Active2.Left := 404;
Active2.Top := 60;
Active2.Width := 145;
Active2.Height := 21;
Active2.ItemHeight := 13;
Active2.TabOrder := 16;
Active2.Text := 'Active 2';
Active2.Items.Add('True');
Active2.Items.Add('False');
Active3 := TComboBox.Create(frmDesign);
Active3.Parent := frmDesign;
Active3.Left := 404;
Active3.Top := 90;
Active3.Width := 145;
Active3.Height := 21;
Active3.ItemHeight := 13;
Active3.TabOrder := 17;
Active3.Text := 'Active 3';
Active3.Items.Add('True');
Active3.Items.Add('False');
Active4 := TComboBox.Create(frmDesign);
Active4.Parent := frmDesign;
Active4.Left := 404;
Active4.Top := 120;
Active4.Width := 145;
Active4.Height := 21;
Active4.ItemHeight := 13;
Active4.TabOrder := 18;
Active4.Text := 'Active 4';
Active4.Items.Add('True');
Active4.Items.Add('False');
Active5 := TComboBox.Create(frmDesign);
Active5.Parent := frmDesign;
Active5.Left := 404;
Active5.Top := 150;
Active5.Width := 145;
Active5.Height := 21;
Active5.ItemHeight := 13;
Active5.TabOrder := 19;
Active5.Text := 'Active 5';
Active5.Items.Add('True');
Active5.Items.Add('False');
Run := TEdit.Create(frmDesign);
Run.Parent := frmDesign;
Run.Left := 161;
Run.Top := 270;
Run.Width := 121;
Run.Height := 21;
Run.TabOrder := 23;
Run.Text := 'Run Direction';
Loads := TEdit.Create(frmDesign);
Loads.Parent := frmDesign;
Loads.Left := 161;
Loads.Top := 240;
Loads.Width := 121;
Loads.Height := 21;
Loads.TabOrder := 22;
Loads.Text := 'Loads To Do';
Color := TEdit.Create(frmDesign);
Color.Parent := frmDesign;
Color.Left := 161;
Color.Top := 299;
Color.Width := 121;
Color.Height := 21;
Color.TabOrder := 24;
Color.Text := 'Tree Color';
ActivePlayers := TEdit.Create(frmDesign);
ActivePlayers.Parent := frmDesign;
ActivePlayers.Left := 161;
ActivePlayers.Top := 210;
ActivePlayers.Width := 121;
ActivePlayers.Height := 21;
ActivePlayers.TabOrder := 21;
ActivePlayers.Text := '# Of Active Players';
TreeName := TEdit.Create(frmDesign);
TreeName.Parent := frmDesign;
TreeName.Left := 162;
TreeName.Top := 180;
TreeName.Width := 121;
TreeName.Height := 21;
TreeName.TabOrder := 20;
TreeName.Text := 'Name of Tree';
Start := TButton.Create(frmDesign);
Start.Parent := frmDesign;
Start.OnClick:= @ButtonClickStart;
Start.Left := 383;
Start.Top := 240;
Start.Width := 75;
Start.Height := 25;
Start.Caption := 'Start';
Start.TabOrder := 33;
ColorPick := TButton.Create(frmDesign);
ColorPick.Parent := frmDesign;
ColorPick.OnClick:= @ButtonClickColor;
ColorPick.Left := 383;
ColorPick.Top := 207;
ColorPick.Width := 75;
ColorPick.Height := 25;
ColorPick.Caption := 'ColorPick';
ColorPick.TabOrder := 34;
Cancel := TButton.Create(frmDesign);
Cancel.Parent := frmDesign;
Cancel.Left := 382;
Cancel.Top := 270;
Cancel.Width := 75;
Cancel.Height := 25;
Cancel.Caption := 'Cancel';
Cancel.TabOrder := 35;
load;
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;

/////////////////////
/////Login Check/////
/////////////////////
Procedure LoginCheck;
begin
if (LoggedIn) then
  begin
    exit;
  end else
  begin
    LogInPlayer;
  end;
end;

/////////////////////////
/////Progress Report/////
/////////////////////////
Procedure ReportIt;
begin
  SRLRandomsReport;
  WriteLn('///////////////Korkis Reprt///////////////')
  WriteLn('//Script Time: ' + (TimeRunning) + '')
  WriteLn('//Total Loads Done: ' + IntToStr (TotalLoads) +  '')
  WriteLn('//////////////////////////////////////////')
end;

///////////////////////
/////Ent Procedure/////
/////////////////////// By Yohojo
Function EntThere:Boolean;
var  CX, CY : Integer;
begin
  Status('Searching For Ent');
  if (IsUpText (TreeType)) then
  if FindColorTolerance( CX, CY, 55769, 85, 15, 115, 15, 20) then
  Result:=True;
end;

Procedure StandStill;
Begin
     Status('Ent Found, Standing Still');
     MouseFindFlag(648,83,5,5);
     Wait(15000+Random(5000));
end;

Procedure WaitForit;
var w:integer;
Begin
 Status('Waiting For Ent');
 Repeat
  FTWait(7000+Random(1000));
  W:=W+1;
 Until (W>7) or EntThere=False
end;

Procedure solveentt;
Begin
If (EntThere) then
Begin
StandStill;
WaitForIt;
end;
end;

/////////////////////////////
/////Find Axe Head Color/////
/////////////////////////////
Procedure FindHeadColor;
begin
  MakeCompass('N')
  GameTab(4)
  FindAxeHeadColor;
end;

////////////////////////
/////AxeHead Finder/////
////////////////////////
Procedure AxeHeadFindIt;
Begin
FindHead;
end;

//////////////////
/////Anti-Ban/////
//////////////////
Var
  DontBan : Integer;
  
Procedure LeetAntiBan;
begin
  FindNormalRandoms;
  if ( not ( LoggedIn )) then Exit;
  DontBan:= 1 + Random(16)
  case DontBan of
  1: HoverSkill('Fishing', False);
  3: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
  5: HoverSkill('random', false);
  7: HoverSkill('Woodcutting', False);
  9: PickUpMouse;
  11: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
  13: AlmostLogout;
  15: BoredHuman;
  17: GameTab(1+Random(7))
  end;
end;

///////////////////
/////RespondIt/////
///////////////////
  VAR
   Respond : Integer;
   
Procedure RespondIt;
Begin

If (InChat('hello') or
    InChat('hi') or
    InChat('howdy') or
    InChat('Hola')) then
begin
  Wait(500 + Random(500));
  Respond:= 1 + Random(3)
  case Respond of
  1: TypeSend('Hi');
  2: TypeSend('Hello');
  3: TypeSend('Howdy');
  4: TypeSend('Hola');
  end;
end;
If (InChat('sup') or
    InChat('whats up') or
    InChat('sup?') or
    InChat('whats up?') or
    InChat('what is up') or
    InChat('what is up?')) then
begin
  Wait(500 + Random(500));
  Respond:= 1 + Random(1)
  case Respond of
  1: TypeSend('nuthin much');
  2: TypeSend('nm');
  end;
end;
If (InChat('wc lvl') or
    InChat('wc lvl?') or
    InChat('woodcut lvl') or
    InChat('woodcut lvl?') or
    InChat('woodcut level') or
    InChat('woodcut level?') or
    InChat('wc level') or
    InChat('wc level?')) then
begin
  Wait(500 + Random(500));
  TypeSend(IntToStr(GetSkillLevel('Woodcutting')));
end;
If (InChat('freinds?') or
    InChat('friends?') or
    InChat('wanna be freinds') or
    InChat('wanna be friends') or
    InChat('wanna be freinds?') or
    InChat('wanna be friends?')) then
begin
  Wait(500 + Random(500));
  Respond:= 1 + Random(1)
  case Respond of
  1: TypeSend('No i dont like freinds');
  2: TypeSend('No ty');
  end;
end;
If (InChat('bye') or
    InChat('buh bye') or
    InChat('cya') or
    InChat('adios') or
    InChat('bye bye')) then
begin
  Wait(500 + Random(500));
  Respond:= 1 + Random(3)
  case Respond of
  1: TypeSend('Cya');
  2: TypeSend('Adios amigos');
  3: TypeSend('cya later aligator');
  4: TypeSend('bye');
  end;
end;
If (InChat('bahaha') or
    InChat('haha') or
    InChat('ha') or
    InChat('rofl') or
    InChat('lol')) then
begin
  Wait(500 + Random(500));
  Respond:= 1 + Random(4)
  case Respond of
  1: TypeSend('bahahaha');
  2: TypeSend('lolz');
  3: TypeSend('lol');
  4: TypeSend('haha');
  5: TypeSend('rofl');
  end;
end;
  FindNormalRandoms;
end;

////////////////
/////ChopIt/////
////////////////

Procedure ChopIt;
Begin
 Repeat
  If FindObj(x, y, 'Chop down ' + TreeType, TreeColor, 5)then
  Begin
   Mouse(x,y,1,1,true)
    wait(200)
    If (EntThere) then
    Begin
    StandStill;
    WaitForIt;
    end;
    If InvFull then exit;
     FindNormalRandoms;
      RespondIt;
       ChooseOption(x,y,'Chop')
        FindNormalRandoms;
        If InvFull then exit;
      LeetAntiBan;
      RespondIt;
      If InvFull then exit;
     Wait(5000+random(4000))
    If(Not(LoggedIn)) then NextPlayer(False);
  end;
 Until InvFull;
GameTab(4)
end;

////////////////
/////DropIt/////
////////////////
Procedure DropIt;
begin
  DropAllLogs;
 Dwarfitem;
 LoadsDone := LoadsDone+1
 TotalLoads := TotalLoads+1
end;

///////////////
/////Setup/////
///////////////
procedure SetItUp;
begin
  SetupSRL;
  SetupScript;
  ActivateClient;
  ClearDebug;
  ReportIt;
  DeclarePlayers;
  LogInPlayer;
  MouseSpeed:=20;
end;



///////////////////
/////Main Loop/////
///////////////////
begin
  SetItUp;
Repeat
 repeat
  HighestAngle;
  MakeCompass('N')
  FindNormalRandoms;
  ChopIt;
  FindNormalRandoms;
  LeetAntiBan;
  RespondIt;
  DropIt;
  FindNormalRandoms;
  LeetAntiBan;
  RespondIt;
  ReportIt;
  SRLRandomsReport;
  until (LoadsDone = LoadsToDo)
  LogOut;
  NextPlayer(True)
  LoadsDone:=0
until(false)
end.

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

I think this is a decent script, but im going to have to vote no probably. I think it is too simple. Multiplayer wont work too good, I'm pretty sure, and another thing to help you improve:

FTWait(7000+Random(1000));

???:confused: lol im pretty sure FTWait is in multiples of 250 ms, so that would wait 7000 +random(1000) times 250….. if im wrong, correct me, but w/e, just a suggestion….

keep up the good work though, maybe you'll still get accepted

What Doofy said, it's to simple. Just build on it some more, add failsafes and important things like that.

@Doofy, you were right, FTWait waits number times random 250 ms and performs that many random checks so that is a lot of waiting.

ok the ftwait as you can see is from yohojo so im guessing thats right and when i tested it it worked
-Korki-

I like the form a lot.

Out of the 916 lines, only 34 lines actually auto….A script should be very reliable and stuff, but yours is way to short. Next time, try to focus more on the script itself other than all those other features that arent really needed. A good script with the form and stuff would be an instant yes though probably, but with a bad woodcutter, no point really. Sorry.

ok i have no problem with no all i really want to know then is exactly what to imporve on
thanks
-Korki-

P.S. What if i editied it recently? cuz i added DTM's and i plan to add a couple more tommorow

yah its a good start but the majourity of it is the form and saving and loading settings etc. so maybe build on it over the month you need to wait before reapplying and try again. :)

Good start.

Yeah, just improve the script and it would be great. I almost wanted to vote yes just because of how cool the form is, but I can't really without a good script to back it up.

ok i will definatly try again next month but for now since im probably not gonna get in could you tell me exactly what to improve and what to add
thanks
-Korki-

Lol wow nice brings back memories.
I gues you based this off my old chopper.
Its a good start and all, but still too simple.
Ill tell you some specific things too add later

yea i based if off a lot of scripts if i see something i like in a script i try and add it to mine unless i dont know how to do it :p. and i would appreciate it if you could tell me specific thigs
-Korki-

Closed.