SRL Archive - Archive

Secet - SRL Member Application Form

Secet

2007-02-28 19:40:23

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

What is the meaning to life?


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


Programming Knowledge
Delphi

Other Communitys
moparisthebest.com

How Long have You Played Runescape
Not sure, but I did play RS 1

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

Well, I have played Runescape for quite long time, but started scripting cheats for it about 1 year ago. I'm SRL member and well known (I guess, atleast active) @ moparisthebest.com so I decided to apply here too.

Other languages that I know, Delphi. I have made two programs in it. You can see pictures about them at http://www.secetweb.com/images/secettalker3.png and http://www.secetweb.com/images/secetmerchanter1dot2.PNG

I'm working on imba Draynor cutter and banker, I think it will be pay script if/when I finish it.

Well, about myself. I'm 16 years old boy from Finland, I have no social life. Just kidding, I got life. :)

That's all, ask if you want to know more.

-Secet

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

Here is the SCAR version of my SecetTalker, you need a picture to compile it, you can get it from here:
http://www.secetweb.com/images/Tausta.bmp
Here is the code:
{*************************************************************|
|                       Script made by                        |
|                    _____               _                    |
|                   / ____|             | |                   |
|                  | (___   ___  ___ ___| |_                  |
|                   \___ \ / _ \/ __/ _ \ __|                 |
|                   ____) |  __/ (_|  __/ |_                  |
|                  |_____/ \___|\___\___|\__|                 |
|                                                             |
|                             v2.6                            |
|                  + Started in 21. July 2006                 |
|                  + With this script you can                 |
|                    sell your items easy, just               |
|                    enter the text you want                  |
|                    AutoTalker to say and select             |
|                    effects & colors!                        |
|                  + Humanlike typing!                        |
|                  + Typing Speed!                            |
|                  + Minimizes to tray on start up            |
|                  + Now saves your settings!                 |
|                  + Should work with SCAR 2.03               |
|                                                             |
|                                                             |
|                             -=Setup=-                       |
|                  + Drag crosshair into RS window            |
|                  + Start the script                         |
|                  + Type in boxes what you want to say,      |
|                    select effects & colors.                 |
|                  + Press Start button and start making      |
|                    money!                                   |
|                  + To stop and for progressreport           |
|                    press F10.                               |
|                                                             |
|                         That's it!                          |
|    Good luck selling your items or making JaGex angry :)    |
|                                                             |
|                                                             |
|               Do not copy without permission!               |
**************************************************************}

program SecetTalker;

const
  Mask = 'SecetTalker - v2.6'; //If you want antiban protection change it to
                             // something like "Winamp" and etc.
var
  Form: TForm;
  F1TextLabel: TLabel;
  Label3: TLabel;
  Label4: TLabel;
  Label5: TLabel;
  Label6: TLabel;
  Label7: TLabel;
  Label8: TLabel;
  Label9: TLabel;
  Label10: TLabel;
  Label11: TLabel;
  Label12: TLabel;
  Label13: TLabel;
  Label14: TLabel;
  Edit1: TEdit;
  Edit3: TEdit;
  Edit4: TEdit;
  Edit5: TEdit;
  Edit2: TEdit;
  Start: TButton;
  ComboBox1: TComboBox;
  ComboBox2: TComboBox;
  ComboBox3: TComboBox;
  ComboBox4: TComboBox;
  ComboBox5: TComboBox;
  ComboBox6: TComboBox;
  ComboBox7: TComboBox;
  ComboBox8: TComboBox;
  ComboBox9: TComboBox;
  ComboBox10: TComboBox;
  ComboBox11: TComboBox;
  variF1, variF2, variF3, variF4, variF5, efektiF1, efektiF2, efektiF3,
  efektiF4, efektiF5, F1Message, F2Message, F3Message, F4Message, F5Message: string;
  lauseet, Tausta, Formpic, I, WaitT, MainWait, RandWait : integer;

procedure TypingSpeed;
begin
     if(ComboBox11.Text = 'Slow')then
     RandWait := 150;
     MainWait := 100;
     if(ComboBox11.Text = 'Normal')then
     RandWait := 100;
     Mainwait := 50;
     if(ComboBox11.Text = 'Fast')then
     Randwait := 50;
     MainWait := 25;
     if(ComboBox11.Text = 'Spam!')then
     RandWait := 0;
     MainWait := 0;
end;


// The Minimize Procedure will Minimize Scar by pressing Ctrl+M.
// Made by Ron. :)
Procedure MinimizeToTray;
Begin
  KeyDown(17);
  KeyDown(GetKeyCode('m'));
  KeyUp(GetKeyCode('m'));
  KeyUp(17);
End;

procedure DisguiseScar(disguise: string); // Taken from SSI2 - Thanks goes to Stupid3ooo
var
  Application: tapplication;
  Self: TForm;
begin
  Application := GetApplication;
  Application.Title := disguise;
  Self := GetSelf;
  Self.Caption := disguise;
end;

Procedure SendMSG(Msg: String);
begin
I:= 1;
repeat
WaitT:= MainWait+random(RandWait);
SendKeys(StrGet(Msg, I));
I:= I + 1;
wait(WaitT);
until(I>Length(Msg));
SendKeys(chr(13));
end;

procedure raportti; //Progressreport
begin
  ClearDebug;
  Writeln('<----------------------------------------->');
  Writeln('|           Thanks for using              |');
  Writeln('|              AutoTalker                 |');
  Writeln('|             Made by Secet               |');
  Writeln('|                  --                     |');
  Writeln('|     "You" have written ' + IntToStr(lauseet) + ' sentences.     |');
  Writeln('<----------------------------------------->');
end;

procedure buttonclick(sender: TObject);
begin
  TypingSpeed;
  F1Message := Edit1.Text;
  F2Message := Edit2.Text;
  F3Message := Edit3.Text;
  F4Message := Edit4.Text;
  F5Message := Edit5.Text;
  if (ComboBox1.Text <> '') then
  begin
  variF1 := ComboBox1.Text;
  end;
  if (ComboBox3.Text <> '') then
  begin
  variF2 := ComboBox3.Text;
  end;
  if (ComboBox5.Text <> '') then
  begin
  variF3 := ComboBox5.Text;
  end;
  if (ComboBox7.Text <> '') then
  begin
  variF4 := ComboBox7.Text;
  end;
  if (ComboBox9.Text <> '') then
  begin
  variF5 := ComboBox9.Text;
  end;
  if (ComboBox2.Text <> '') then
  begin
  efektiF1 := ComboBox2.Text;
  end;
  if (ComboBox4.Text <> '') then
  begin
  efektiF2 := ComboBox4.Text;
  end;
  if (ComboBox6.Text <> '') then
  begin
  efektiF3 := ComboBox6.Text;
  end;
  if (ComboBox8.Text <> '') then
  begin
  efektiF4 := ComboBox8.Text;
  end;
  if (ComboBox10.Text <> '') then
  begin
  efektiF5 := ComboBox10.Text;
  end;
  SaveSetting('TextSaver', 'F1Text', Edit1.Text);
  SaveSetting('TextSaver', 'F2Text', Edit2.Text);
  SaveSetting('TextSaver', 'F3Text', Edit3.Text);
  SaveSetting('TextSaver', 'F4Text', Edit4.Text);
  SaveSetting('TextSaver', 'F5Text', Edit5.Text);
  SaveSetting('TextSaver', 'ColorF1', ComboBox1.Text);
  SaveSetting('TextSaver', 'EffectF1', ComboBox2.Text);
  SaveSetting('TextSaver', 'ColorF2', ComboBox3.Text);
  SaveSetting('TextSaver', 'EffectF2', ComboBox4.Text);
  SaveSetting('TextSaver', 'ColorF3', ComboBox5.Text);
  SaveSetting('TextSaver', 'EffectF3', ComboBox6.Text);
  SaveSetting('TextSaver', 'ColorF4', ComboBox7.Text);
  SaveSetting('TextSaver', 'EffectF4', ComboBox8.Text);
  SaveSetting('TextSaver', 'ColorF5', ComboBox9.Text);
  SaveSetting('TextSaver', 'EffectF5', ComboBox10.Text);
  SaveSetting('TextSaver', 'TypingSpeed', ComboBox11.Text);
  Writeln('Settings saved succesfully!');
  Form.ModalResult := mrOk;
end;

procedure F1Messagetext1;
begin
  SendMSG(variF1+efektiF1+F1Message);
  lauseet := lauseet + 1;
  wait(150);
end;

procedure F1Messagetext;
begin
  if (IsFKeyDown(2)) then
  begin
    F1Messagetext1;
  end;
end;

procedure F2Messagetext2;
begin
  SendMSG(variF2+efektiF2+F2Message);
  lauseet := lauseet + 1;
  wait(150);
end;

procedure F2Messagetext;
begin
  if (IsFKeyDown(4)) then
  begin
    F2Messagetext2;
  end;
end;

procedure F3Messagetext2;
begin
  SendMSG(variF3+efektiF3+F3Message);
  lauseet := lauseet + 1;
  wait(150);
end;

procedure F3Messagetext;
begin
  if (IsFKeyDown(6)) then
  begin
    F3Messagetext2;
  end;
end;

procedure F4Messagetext2;
begin
  SendMSG(variF4+efektiF4+F4Message);
  lauseet := lauseet + 1;
  wait(150);
end;

procedure F4Messagetext;
begin
  if (IsFKeyDown(8)) then
  begin
    F4Messagetext2
  end;
end;

procedure F5Messagetext2;
begin
  SendMSG(variF5+efektiF5+F5Message);
  lauseet := lauseet + 1;
  wait(150);
end;

procedure F5Messagetext;
begin
  if (IsFKeyDown(9)) then
  begin
    F5Messagetext2;
  end;
end;

procedure SafePaint;
var
  Canvas : TCanvas;
begin
  Canvas := GetBitmapCanvas(Tausta);
  SafeCopyCanvas(Canvas, Form.Canvas, 0, 0, 650, 267, 0, 0, 650, 267);
end;

procedure PaintForm(Sender:TObject);
begin
  SafePaint;
end;

procedure InitForm;
begin
///////////////// Generated from: Autotalkerboxi.dfm
  Form := CreateForm;
  Form.Left := 368;
  Form.Top := 210;
  Form.Width := 650;
  Form.Height := 267;
  Form.BorderStyle := bsToolWindow;
  Form.OnPaint:= @PaintForm;
  Form.Caption := 'SecetTalker - v2.6';
  Form.Color := clBtnFace;
  Form.Font.Color := clWindowText;
  Form.Font.Height := -11;
  Form.Font.Name := 'MS Sans Serif';
  Form.Font.Style := [];
  Form.Visible := False;
  Form.PixelsPerInch := 96;
  F1TextLabel := TLabel.Create(Form);
  F1TextLabel.Parent := Form;
  F1TextLabel.Left := 4;
  F1TextLabel.Top := 52;
  F1TextLabel.Width := 84;
  F1TextLabel.Height := 13;
  F1TextLabel.Caption := 'Text for button F2';
  F1TextLabel.Font.Color := clWhite;
  Label3 := TLabel.Create(Form);
  Label3.Parent := Form;
  Label3.Left := 4;
  Label3.Top := 82;
  Label3.Width := 84;
  Label3.Height := 13;
  Label3.Caption := 'Text for button F4';
  Label3.Font.Color := clWhite;
  Label4 := TLabel.Create(Form);
  Label4.Parent := Form;
  Label4.Left := 4;
  Label4.Top := 112;
  Label4.Width := 84;
  Label4.Height := 13;
  Label4.Caption := 'Text for button F6';
  Label4.Font.Color := clWhite;
  Label5 := TLabel.Create(Form);
  Label5.Parent := Form;
  Label5.Left := 4;
  Label5.Top := 142;
  Label5.Width := 84;
  Label5.Height := 13;
  Label5.Caption := 'Text for button F8';
  Label5.Font.Color := clWhite;
  Label6 := TLabel.Create(Form);
  Label6.Parent := Form;
  Label6.Left := 4;
  Label6.Top := 172;
  Label6.Width := 84;
  Label6.Height := 13;
  Label6.Caption := 'Text for button F9';
  Label6.Font.Color := clWhite;
  Label7 := TLabel.Create(Form);
  Label7.Parent := Form;
  Label7.Left := 245;
  Label7.Top := 52;
  Label7.Width := 68;
  Label7.Height := 13;
  Label7.Caption := 'Select effects!';
  Label7.Font.Color := clWhite;
  Label8 := TLabel.Create(Form);
  Label8.Parent := Form;
  Label8.Left := 245;
  Label8.Top := 82;
  Label8.Width := 68;
  Label8.Height := 13;
  Label8.Caption := 'Select effects!';
  Label8.Font.Color := clWhite;
  Label9 := TLabel.Create(Form);
  Label9.Parent := Form;
  Label9.Left := 245;
  Label9.Top := 112;
  Label9.Width := 68;
  Label9.Height := 13;
  Label9.Caption := 'Select effects!';
  Label9.Font.Color := clWhite;
  Label10 := TLabel.Create(Form);
  Label10.Parent := Form;
  Label10.Left := 245;
  Label10.Top := 142;
  Label10.Width := 68;
  Label10.Height := 13;
  Label10.Caption := 'Select effects!';
  Label10.Font.Color := clWhite;
  Label11 := TLabel.Create(Form);
  Label11.Parent := Form;
  Label11.Left := 245;
  Label11.Top := 172;
  Label11.Width := 68;
  Label11.Height := 13;
  Label11.Caption := 'Select effects!';
  Label11.Font.Color := clWhite;
  Label12 := TLabel.Create(Form);
  Label12.Parent := Form;
  Label12.Left := 350;
  Label12.Top := 28;
  Label12.Width := 29;
  Label12.Height := 13;
  Label12.Caption := 'Colors';
  Label12.Font.Color := clWhite;
  Label13 := TLabel.Create(Form);
  Label13.Parent := Form;
  Label13.Left := 440;
  Label13.Top := 28;
  Label13.Width := 33;
  Label13.Height := 13;
  Label13.Caption := 'Effects';
  Label13.Font.Color := clWhite;
  Label14 := TLabel.Create(Form);
  Label14.Parent := Form;
  Label14.Left := 530;
  Label14.Top := 88;
  Label14.Width := 84;
  Label14.Height := 13;
  Label14.Caption := 'Typing speed:';
  Label14.Font.Color := clWhite;
  Edit1 := TEdit.Create(Form);
  Edit1.Parent := Form;
  Edit1.Left := 119;
  Edit1.Top := 48;
  Edit1.Width := 121;
  Edit1.Height := 21;
  Edit1.TabOrder := 8;
  Edit1.Text := LoadSetting('TextSaver', 'F1Text');
  Edit2 := TEdit.Create(Form);
  Edit2.Parent := Form;
  Edit2.Left := 119;
  Edit2.Top := 78;
  Edit2.Width := 121;
  Edit2.Height := 21;
  Edit2.TabOrder := 9;
  Edit2.Text := LoadSetting('TextSaver', 'F2Text');
  Edit3 := TEdit.Create(Form);
  Edit3.Parent := Form;
  Edit3.Left := 119;
  Edit3.Top := 108;
  Edit3.Width := 121;
  Edit3.Height := 21;
  Edit3.TabOrder := 10;
  Edit3.Text := LoadSetting('TextSaver', 'F3Text');
  Edit4 := TEdit.Create(Form);
  Edit4.Parent := Form;
  Edit4.Left := 119;
  Edit4.Top := 138;
  Edit4.Width := 121;
  Edit4.Height := 21;
  Edit4.TabOrder := 11;
  Edit4.Text := LoadSetting('TextSaver', 'F4Text');
  Edit5 := TEdit.Create(Form);
  Edit5.Parent := Form;
  Edit5.Left := 119;
  Edit5.Top := 168;
  Edit5.Width := 121;
  Edit5.Height := 21;
  Edit5.TabOrder := 12;
  Edit5.Text := LoadSetting('TextSaver', 'F5Text');

  Start := TButton.Create(Form);
  Start.Parent := Form;
  Start.Left := 240;
  Start.Top := 202;
  Start.OnClick := @buttonclick;
  Start.Width := 75;
  Start.Height := 25;
  Start.Caption := '&Start!';
  Start.TabOrder := 13;
  ComboBox1 := TComboBox.Create(Form);
  ComboBox1.Parent := Form;
  ComboBox1.Left := 321;
  ComboBox1.Top := 47;
  ComboBox1.Width := 90;
  ComboBox1.Height := 21;
  ComboBox1.ItemHeight := 13;
  ComboBox1.TabOrder := 14;
  ComboBox1.DropDownCount := 12;
  ComboBox1.Text := LoadSetting('TextSaver', 'ColorF1');
  ComboBox1.Items.Add('');
  ComboBox1.Items.Add('Red:');
  ComboBox1.Items.Add('Green:');
  ComboBox1.Items.Add('Cyan:');
  ComboBox1.Items.Add('Purple:');
  ComboBox1.Items.Add('White:');
  ComboBox1.Items.Add('Flash1:');
  ComboBox1.Items.Add('Flash2:');
  ComboBox1.Items.Add('Flash3:');
  ComboBox1.Items.Add('Glow1:');
  ComboBox1.Items.Add('Glow2:');
  ComboBox1.Items.Add('Glow3:');
  ComboBox2 := TComboBox.Create(Form);
  ComboBox2.Parent := Form;
  ComboBox2.Left := 416;
  ComboBox2.Top := 47;
  ComboBox2.Width := 90;
  ComboBox2.Height := 21;
  ComboBox2.ItemHeight := 13;
  ComboBox2.TabOrder := 15;
  ComboBox2.Text := LoadSetting('TextSaver', 'EffectF1');
  ComboBox2.Items.Add('');
  ComboBox2.Items.Add('Scroll:');
  ComboBox2.Items.Add('Shake:');
  ComboBox2.Items.Add('Slide:');
  ComboBox2.Items.Add('Wave:');
  ComboBox2.Items.Add('Wave2:');
  ComboBox3 := TComboBox.Create(Form);
  ComboBox3.Parent := Form;
  ComboBox3.Left := 321;
  ComboBox3.Top := 77;
  ComboBox3.Width := 90;
  ComboBox3.Height := 21;
  ComboBox3.ItemHeight := 13;
  ComboBox3.TabOrder := 16;
  ComboBox3.DropDownCount := 12;
  ComboBox3.Text := LoadSetting('TextSaver', 'ColorF2');
  ComboBox3.Items.Add('');
  ComboBox3.Items.Add('Red:');
  ComboBox3.Items.Add('Green:');
  ComboBox3.Items.Add('Cyan:');
  ComboBox3.Items.Add('Purple:');
  ComboBox3.Items.Add('White:');
  ComboBox3.Items.Add('Flash1:');
  ComboBox3.Items.Add('Flash2:');
  ComboBox3.Items.Add('Flash3:');
  ComboBox3.Items.Add('Glow1:');
  ComboBox3.Items.Add('Glow2:');
  ComboBox3.Items.Add('Glow3:');
  ComboBox4 := TComboBox.Create(Form);
  ComboBox4.Parent := Form;
  ComboBox4.Left := 416;
  ComboBox4.Top := 77;
  ComboBox4.Width := 90;
  ComboBox4.Height := 21;
  ComboBox4.ItemHeight := 13;
  ComboBox4.TabOrder := 17;
  ComboBox4.Text := LoadSetting('TextSaver', 'EffectF2');
  ComboBox4.Items.Add('');
  ComboBox4.Items.Add('Scroll:');
  ComboBox4.Items.Add('Shake:');
  ComboBox4.Items.Add('Slide:');
  ComboBox4.Items.Add('Wave:');
  ComboBox4.Items.Add('Wave2:');
  ComboBox5 := TComboBox.Create(Form);
  ComboBox5.Parent := Form;
  ComboBox5.Left := 321;
  ComboBox5.Top := 107;
  ComboBox5.Width := 90;
  ComboBox5.Height := 21;
  ComboBox5.ItemHeight := 13;
  ComboBox5.TabOrder := 18;
  ComboBox5.DropDownCount := 12;
  ComboBox5.Text := LoadSetting('TextSaver', 'ColorF3');
  ComboBox5.Items.Add('');
  ComboBox5.Items.Add('Red:');
  ComboBox5.Items.Add('Green:');
  ComboBox5.Items.Add('Cyan:');
  ComboBox5.Items.Add('Purple:');
  ComboBox5.Items.Add('White:');
  ComboBox5.Items.Add('Flash1:');
  ComboBox5.Items.Add('Flash2:');
  ComboBox5.Items.Add('Flash3:');
  ComboBox5.Items.Add('Glow1:');
  ComboBox5.Items.Add('Glow2:');
  ComboBox5.Items.Add('Glow3:');
  ComboBox6 := TComboBox.Create(Form);
  ComboBox6.Parent := Form;
  ComboBox6.Left := 416;
  ComboBox6.Top := 107;
  ComboBox6.Width := 90;
  ComboBox6.Height := 21;
  ComboBox6.ItemHeight := 13;
  ComboBox6.TabOrder := 19;
  ComboBox6.Text := LoadSetting('TextSaver', 'EffectF3');
  ComboBox6.Items.Add('');
  ComboBox6.Items.Add('Scroll:');
  ComboBox6.Items.Add('Shake:');
  ComboBox6.Items.Add('Slide:');
  ComboBox6.Items.Add('Wave:');
  ComboBox6.Items.Add('Wave2:');
  ComboBox7 := TComboBox.Create(Form);
  ComboBox7.Parent := Form;
  ComboBox7.Left := 321;
  ComboBox7.Top := 137;
  ComboBox7.Width := 90;
  ComboBox7.Height := 21;
  ComboBox7.ItemHeight := 13;
  ComboBox7.TabOrder := 20;
  ComboBox7.DropDownCount := 12;
  ComboBox7.Text := LoadSetting('TextSaver', 'ColorF4');
  ComboBox7.Items.Add('');
  ComboBox7.Items.Add('Red:');
  ComboBox7.Items.Add('Green:');
  ComboBox7.Items.Add('Cyan:');
  ComboBox7.Items.Add('Purple:');
  ComboBox7.Items.Add('White:');
  ComboBox7.Items.Add('Flash1:');
  ComboBox7.Items.Add('Flash2:');
  ComboBox7.Items.Add('Flash3:');
  ComboBox7.Items.Add('Glow1:');
  ComboBox7.Items.Add('Glow2:');
  ComboBox7.Items.Add('Glow3:');

  ComboBox8 := TComboBox.Create(Form);
  ComboBox8.Parent := Form;
  ComboBox8.Left := 416;
  ComboBox8.Top := 137;
  ComboBox8.Width := 90;
  ComboBox8.Height := 21;
  ComboBox8.ItemHeight := 13;
  ComboBox8.TabOrder := 21;
  ComboBox8.Text := LoadSetting('TextSaver', 'EffectF4');
  ComboBox8.Items.Add('');
  ComboBox8.Items.Add('Scroll:');
  ComboBox8.Items.Add('Shake:');
  ComboBox8.Items.Add('Slide:');
  ComboBox8.Items.Add('Wave:');
  ComboBox8.Items.Add('Wave2:');
  ComboBox9 := TComboBox.Create(Form);
  ComboBox9.Parent := Form;
  ComboBox9.Left := 321;
  ComboBox9.Top := 167;
  ComboBox9.Width := 90;
  ComboBox9.Height := 21;
  ComboBox9.ItemHeight := 13;
  ComboBox9.TabOrder := 22;
  ComboBox9.DropDownCount := 12;
  ComboBox9.Text := LoadSetting('TextSaver', 'ColorF5');
  ComboBox9.Items.Add('');
  ComboBox9.Items.Add('Red:');
  ComboBox9.Items.Add('Green:');
  ComboBox9.Items.Add('Cyan:');
  ComboBox9.Items.Add('Purple:');
  ComboBox9.Items.Add('White:');
  ComboBox9.Items.Add('Flash1:');
  ComboBox9.Items.Add('Flash2:');
  ComboBox9.Items.Add('Flash3:');
  ComboBox9.Items.Add('Glow1:');
  ComboBox9.Items.Add('Glow2:');
  ComboBox9.Items.Add('Glow3:');
  ComboBox10 := TComboBox.Create(Form);
  ComboBox10.Parent := Form;
  ComboBox10.Left := 416;
  ComboBox10.Top := 167;
  ComboBox10.Width := 90;
  ComboBox10.Height := 21;
  ComboBox10.ItemHeight := 13;
  ComboBox10.TabOrder := 23;
  ComboBox10.Text := LoadSetting('TextSaver', 'EffectF5');
  ComboBox10.Items.Add('');
  ComboBox10.Items.Add('Scroll:');
  ComboBox10.Items.Add('Shake:');
  ComboBox10.Items.Add('Slide:');
  ComboBox10.Items.Add('Wave:');
  ComboBox10.Items.Add('Wave2:');
  ComboBox11 := TComboBox.Create(Form);
  ComboBox11.Parent := Form;
  ComboBox11.Left := 530;
  ComboBox11.Top := 107;
  ComboBox11.Width := 90;
  ComboBox11.Height := 21;
  ComboBox11.ItemHeight := 13;
  ComboBox11.TabOrder := 17;
  ComboBox11.Text := LoadSetting('TextSaver', 'TypingSpeed');
  ComboBox11.Items.Add('Slow');
  ComboBox11.Items.Add('Normal');
  ComboBox11.Items.Add('Fast');
  ComboBox11.Items.Add('Spam!');
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  Form.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

begin
  FormPic := LoadBitmap('Tausta.bmp')
  DisguiseScar(Mask);
  SafeInitForm;
  SafeShowFormModal;
  FreeForm(Form);
  MinimizeToTray;
  repeat
      F1Messagetext;
      F2Messagetext;
      F3Messagetext;
      F4Messagetext;
      F5Messagetext;
      wait(100)
  until (isFKeyDown(10))
    raportti;
end.

Here is my SecetFighter, it doesn't have any super cool functions since I made it for myself, private use. It was kinda half AFK script, I never went fully AFK so no randoms or stuff like that needed. :)
program SecetFighter;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Fighting.scar}

const
     Runaway='e';
     Scar='SecetFighter';
var
  frmDesign : TForm;
  SetupGroupBox, GroupBox1, GroupBox2, SettingsGroupBox : TGroupBox;
  Label1, Label2, Label3, Label4, Label5, Label6, RuokaLabel,
  RuokaLabel3, LampLabel, FightstyleLabel, Label7, Label8, Label9 : TLabel;
  Edit0, Edit1, Edit2, Edit3, Edit4, Edit5, Edit6, Edit8, Edit9,
  Edit10, Edit11, Edit12 : TEdit;
  ComboBox1 : TComboBox;
  Button1 : TButton;
  FoodColor, Color1, Color2, Color3, style, Tolerance, Tol, kills, tapot,
  EatHp, LogHP : integer;
  MonsterName, npcname, Username, Password : string;
  foodlogout : Boolean;



//////////////--------FORM BEGIN---------\\\\\\\\\\\\\\

procedure buttonclick(sender: TObject);
begin
     SaveSetting('SettingsSaver', 'a1', Edit0.Text);
     SaveSetting('SettingsSaver', 'a2', Edit1.Text);
     SaveSetting('SettingsSaver', 'a3', Edit2.Text);
     SaveSetting('SettingsSaver', 'a4', Edit3.Text);
     SaveSetting('SettingsSaver', 'a5', Edit4.Text);
     SaveSetting('SettingsSaver', 'a6', Edit5.Text);
     SaveSetting('SettingsSaver', 'a7', Edit6.Text);
     SaveSetting('SettingsSaver', 'a9', Edit8.Text);
     SaveSetting('SettingsSaver', 'a10', Edit9.Text);
     SaveSetting('SettingsSaver', 'a11', Edit10.Text);
     SaveSetting('SettingsSaver', 'a12', Edit11.Text);
     SaveSetting('SettingsSaver', 'a13', ComboBox1.Text);
     SaveSetting('SettingsSaver', 'a14', Edit12.Text);
     Writeln('Settings saved succesfully!');
     Color1 := StrToInt(Edit0.Text);
     EatHp := StrToInt(Edit1.Text);
     Color2 := StrToInt(Edit2.Text);
     Color3 := StrToInt(Edit3.Text);
     Monstername := Edit4.Text;
     npcname := MonsterName;
     FoodColor := StrToInt(Edit5.Text);
     Tolerance := StrToInt(Edit6.TEXT);
     Tol := StrToInt(Edit6.Text);
     LogHP := StrToInt(Edit8.Text);
     Username := Edit10.Text;
     Password := Edit11.text;
     kills := StrToInt(Edit12.Text);
     tapot := 0;
     style := StrToInt(ComboBox1.text);
     frmDesign.ModalResult:= mrOk;
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 249;
frmDesign.Top := 135;
frmDesign.Width := 475;
frmDesign.Height := 496;
frmDesign.BorderStyle := bsToolWindow;
frmDesign.Caption := 'SecetFighter';
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;
SetupGroupBox := TGroupBox.Create(frmDesign);
SetupGroupBox.Parent := frmDesign;
SetupGroupBox.Left := 18;
SetupGroupBox.Top := 62;
SetupGroupBox.Width := 215;
SetupGroupBox.Height := 286;
SetupGroupBox.Caption := 'color setup';
SetupGroupBox.Font.Color := clWindowText;
SetupGroupBox.Font.Height := -11;
SetupGroupBox.Font.Name := 'BitOut';
SetupGroupBox.Font.Style := [];
SetupGroupBox.ParentFont := False;
SetupGroupBox.TabOrder := 0;
Label1 := TLabel.Create(SetupGroupBox);
Label1.Parent := SetupGroupBox;
Label1.Left := 8;
Label1.Top := 37;
Label1.Width := 90;
Label1.Height := 13;
Label1.Caption := 'Monster colors:    1';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -11;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(SetupGroupBox);
Label2.Parent := SetupGroupBox;
Label2.Left := 89;
Label2.Top := 72;
Label2.Width := 9;
Label2.Height := 13;
Label2.Caption := ' 2';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -11;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(SetupGroupBox);
Label3.Parent := SetupGroupBox;
Label3.Left := 89;
Label3.Top := 107;
Label3.Width := 9;
Label3.Height := 13;
Label3.Caption := ' 3';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -11;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(SetupGroupBox);
Label4.Parent := SetupGroupBox;
Label4.Left := 27;
Label4.Top := 142;
Label4.Width := 9;
Label4.Height := 13;
Label4.Caption := 'Monster name:';
Label4.Font.Color := clWindowText;
Label4.Font.Height := -11;
Label4.Font.Name := 'MS Sans Serif';
Label4.Font.Style := [];
Label4.ParentFont := False;
Label5 := TLabel.Create(SetupGroupBox);
Label5.Parent := SetupGroupBox;
Label5.Left := 47;
Label5.Top := 195;
Label5.Width := 53;
Label5.Height := 13;
Label5.Caption := 'Food color:';
Label5.Font.Color := clWindowText;
Label5.Font.Height := -11;
Label5.Font.Name := 'MS Sans Serif';
Label5.Font.Style := [];
Label5.ParentFont := False;
Label6 := TLabel.Create(SetupGroupBox);
Label6.Parent := SetupGroupBox;
Label6.Left := 47;
Label6.Top := 245;
Label6.Width := 51;
Label6.Height := 13;
Label6.Caption := 'Tolerance:';
Label6.Font.Color := clWindowText;
Label6.Font.Height := -11;
Label6.Font.Name := 'MS Sans Serif';
Label6.Font.Style := [];
Label6.ParentFont := False;
Edit0 := TEdit.Create(SetupGroupBox);
Edit0.Parent := SetupGroupBox;
Edit0.Left := 105;
Edit0.Top := 35;
Edit0.Width := 100;
Edit0.Height := 21;
Edit0.TEXT := LoadSetting('SettingsSaver', 'a1');
Edit0.Font.Color := clWindowText;
Edit0.Font.Height := -11;
Edit0.Font.Name := 'MS Sans Serif';
Edit0.Font.Style := [];
Edit0.ParentFont := False;
Edit0.TabOrder := 0;
Edit2 := TEdit.Create(SetupGroupBox);
Edit2.Parent := SetupGroupBox;
Edit2.Left := 105;
Edit2.Top := 70;
Edit2.Width := 100;
Edit2.Height := 21;
Edit2.TEXT := LoadSetting('SettingsSaver', 'a3');
Edit2.Font.Color := clWindowText;
Edit2.Font.Height := -11;
Edit2.Font.Name := 'MS Sans Serif';
Edit2.Font.Style := [];
Edit2.ParentFont := False;
Edit2.TabOrder := 1;
Edit3 := TEdit.Create(SetupGroupBox);
Edit3.Parent := SetupGroupBox;
Edit3.Left := 105;
Edit3.Top := 105;
Edit3.Width := 100;
Edit3.Height := 21;
Edit3.TEXT := LoadSetting('SettingsSaver', 'a4');
Edit3.Font.Color := clWindowText;
Edit3.Font.Height := -11;
Edit3.Font.Name := 'MS Sans Serif';
Edit3.Font.Style := [];
Edit3.ParentFont := False;
Edit3.TabOrder := 2;
Edit4 := TEdit.Create(SetupGroupBox);
Edit4.Parent := SetupGroupBox;
Edit4.Left := 105;
Edit4.Top := 140;
Edit4.Width := 100;
Edit4.Height := 21;
Edit4.TEXT := LoadSetting('SettingsSaver', 'a5');
Edit4.Font.Color := clWindowText;
Edit4.Font.Height := -11;
Edit4.Font.Name := 'MS Sans Serif';
Edit4.Font.Style := [];
Edit4.ParentFont := False;
Edit4.TabOrder := 3;
Edit5 := TEdit.Create(SetupGroupBox);
Edit5.Parent := SetupGroupBox;
Edit5.Left := 105;
Edit5.Top := 190;
Edit5.Width := 100;
Edit5.Height := 21;
Edit5.TEXT := LoadSetting('SettingsSaver', 'a6');
Edit5.Font.Color := clWindowText;
Edit5.Font.Height := -11;
Edit5.Font.Name := 'MS Sans Serif';
Edit5.Font.Style := [];
Edit5.ParentFont := False;
Edit5.TabOrder := 4;
Edit6 := TEdit.Create(SetupGroupBox);
Edit6.Parent := SetupGroupBox;
Edit6.Left := 105;
Edit6.Top := 240;
Edit6.Width := 100;
Edit6.Height := 21;
Edit6.TEXT := LoadSetting('SettingsSaver', 'a7');
Edit6.Font.Color := clWindowText;
Edit6.Font.Height := -11;
Edit6.Font.Name := 'MS Sans Serif';
Edit6.Font.Style := [];
Edit6.ParentFont := False;
Edit6.TabOrder := 5;
SettingsGroupBox := TGroupBox.Create(frmDesign);
SettingsGroupBox.Parent := frmDesign;
SettingsGroupBox.Left := 251;
SettingsGroupBox.Top := 62;
SettingsGroupBox.Width := 195;
SettingsGroupBox.Height := 210;
SettingsGroupBox.Caption := 'settings';
SettingsGroupBox.Font.Color := clWindowText;
SettingsGroupBox.Font.Height := -11;
SettingsGroupBox.Font.Name := 'BitOut';
SettingsGroupBox.Font.Style := [];
SettingsGroupBox.ParentFont := False;
SettingsGroupBox.TabOrder := 1;
RuokaLabel := TLabel.Create(SettingsGroupBox);
RuokaLabel.Parent := SettingsGroupBox;
RuokaLabel.Left := 8;
RuokaLabel.Top := 40;
RuokaLabel.Width := 85;
RuokaLabel.Height := 13;
RuokaLabel.Caption := 'HP to start eating:';
RuokaLabel.Font.Color := clWindowText;
RuokaLabel.Font.Height := -11;
RuokaLabel.Font.Name := 'MS Sans Serif';
RuokaLabel.Font.Style := [];
RuokaLabel.ParentFont := False;
RuokaLabel3 := TLabel.Create(SettingsGroupBox);
RuokaLabel3.Parent := SettingsGroupBox;
RuokaLabel3.Left := 8;
RuokaLabel3.Top := 90;
RuokaLabel3.Width := 62;
RuokaLabel3.Height := 13;
RuokaLabel3.Caption := 'HP to logout:';
RuokaLabel3.Font.Color := clWindowText;
RuokaLabel3.Font.Height := -11;
RuokaLabel3.Font.Name := 'MS Sans Serif';
RuokaLabel3.Font.Style := [];
RuokaLabel3.ParentFont := False;
LampLabel := TLabel.Create(SettingsGroupBox);
LampLabel.Parent := SettingsGroupBox;
LampLabel.Left := 8;
LampLabel.Top := 135;
LampLabel.Width := 74;
LampLabel.Height := 13;
LampLabel.Caption := 'Exp from lamps:';
LampLabel.Font.Color := clWindowText;
LampLabel.Font.Height := -11;
LampLabel.Font.Name := 'MS Sans Serif';
LampLabel.Font.Style := [];
LampLabel.ParentFont := False;
FightstyleLabel := TLabel.Create(SettingsGroupBox);
FightstyleLabel.Parent := SettingsGroupBox;
FightstyleLabel.Left := 8;
FightstyleLabel.Top := 180;
FightstyleLabel.Width := 47;
FightstyleLabel.Height := 13;
FightstyleLabel.Caption := 'Fightstyle:';
FightstyleLabel.Font.Color := clWindowText;
FightstyleLabel.Font.Height := -11;
FightstyleLabel.Font.Name := 'MS Sans Serif';
FightstyleLabel.Font.Style := [];
FightstyleLabel.ParentFont := False;
Edit1 := TEdit.Create(SettingsGroupBox);
Edit1.Parent := SettingsGroupBox;
Edit1.Left := 96;
Edit1.Top := 35;
Edit1.Width := 95;
Edit1.Height := 21;
Edit1.TEXT := LoadSetting('SettingsSaver', 'a2');
Edit1.Font.Color := clWindowText;
Edit1.Font.Height := -11;
Edit1.Font.Name := 'MS Sans Serif';
Edit1.Font.Style := [];
Edit1.ParentFont := False;
Edit1.TabOrder := 0;
Edit8 := TEdit.Create(SettingsGroupBox);
Edit8.Parent := SettingsGroupBox;
Edit8.Left := 96;
Edit8.Top := 85;
Edit8.Width := 95;
Edit8.Height := 21;
Edit8.TEXT := LoadSetting('SettingsSaver', 'a9');
Edit8.Font.Color := clWindowText;
Edit8.Font.Height := -11;
Edit8.Font.Name := 'MS Sans Serif';
Edit8.Font.Style := [];
Edit8.ParentFont := False;
Edit8.TabOrder := 2;
Edit9 := TEdit.Create(SettingsGroupBox);
Edit9.Parent := SettingsGroupBox;
Edit9.Left := 96;
Edit9.Top := 130;
Edit9.Width := 95;
Edit9.Height := 21;
Edit9.TEXT := LoadSetting('SettingsSaver', 'a10');
Edit9.Font.Color := clWindowText;
Edit9.Font.Height := -11;
Edit9.Font.Name := 'MS Sans Serif';
Edit9.Font.Style := [];
Edit9.ParentFont := False;
Edit9.TabOrder := 3;
ComboBox1 := TComboBox.Create(SettingsGroupBox);
ComboBox1.Parent := SettingsGroupBox;
ComboBox1.Left := 96;
ComboBox1.Top := 176;
ComboBox1.Width := 95;
ComboBox1.Height := 21;
ComboBox1.Font.Color := clWindowText;
ComboBox1.Font.Height := -11;
ComboBox1.Font.Name := 'MS Sans Serif';
ComboBox1.Font.Style := [];
ComboBox1.ItemHeight := 13;
ComboBox1.ParentFont := False;
ComboBox1.TabOrder := 4;
ComboBox1.Text := LoadSetting('SettingsSaver', 'a13')
ComboBox1.Items.Add('1');
ComboBox1.Items.Add('2');
ComboBox1.Items.Add('3');
ComboBox1.Items.Add('4');
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 252;
GroupBox1.Top := 277;
GroupBox1.Width := 198;
GroupBox1.Height := 70;
GroupBox1.Font.Name := 'BitOut';
GroupBox1.Caption := 'username and password';
GroupBox1.TabOrder := 2;
Label7 := TLabel.Create(GroupBox1);
Label7.Parent := GroupBox1;
Label7.Left := 10;
Label7.Top := 18;
Label7.Width := 48;
Label7.Height := 13;
Label7.Font.Name := 'MS Sans Serif';
Label7.Caption := 'Username';
Label8 := TLabel.Create(GroupBox1);
Label8.Parent := GroupBox1;
Label8.Left := 10;
Label8.Top := 43;
Label8.Width := 46;
Label8.Height := 13;
Label8.Font.Name := 'MS Sans Serif';
Label8.Caption := 'Password';
Edit10 := TEdit.Create(GroupBox1);
Edit10.Parent := GroupBox1;
Edit10.Left := 72;
Edit10.Top := 16;
Edit10.Width := 121;
Edit10.Height := 21;
Edit10.TabOrder := 0;
Edit10.Font.Name := 'MS Sans Serif';
Edit10.TEXT := LoadSetting('SettingsSaver', 'a11');
Edit11 := TEdit.Create(GroupBox1);
Edit11.Parent := GroupBox1;
Edit11.Left := 72;
Edit11.Top := 40;
Edit11.Width := 121;
Edit11.Height := 21;
Edit11.TabOrder := 1;
Edit11.Font.Name := 'MS Sans Serif';
Edit11.TEXT := LoadSetting('SettingsSaver', 'a12');
Edit11.PasswordChar:= '*';
Button1 := TButton.Create(frmDesign);
Button1.OnClick := @buttonclick
Button1.Parent := frmDesign;
Button1.Left := 156;
Button1.Top := 361;
Button1.Width := 156;
Button1.Height := 78;
Button1.Caption := '&Save settings and start';
Button1.Font.Color := clWindowText;
Button1.Font.Height := -11;
Button1.Font.Name := 'MS Sans Serif';
Button1.Font.Style := [fsBold];
Button1.ParentFont := False;
Button1.TabOrder := 3;
GroupBox2 := TGroupBox.Create(frmDesign);
GroupBox2.Parent := frmDesign;
GroupBox2.Left := 250;
GroupBox2.Top := 9;
GroupBox2.Width := 195;
GroupBox2.Height := 52;
GroupBox2.Caption := 'extra options';
GroupBox2.Font.Color := clWindowText;
GroupBox2.Font.Height := -11;
GroupBox2.Font.Name := 'BitOut';
GroupBox2.Font.Style := [];
GroupBox2.ParentFont := False;
GroupBox2.TabOrder := 4;
Label9 := TLabel.Create(GroupBox2);
Label9.Parent := GroupBox2;
Label9.Left := 9;
Label9.Top := 14;
Label9.Width := 129;
Label9.Height := 13;
Label9.Caption := 'How many you want to kill?';
Label9.Font.Color := clWindowText;
Label9.Font.Height := -11;
Label9.Font.Name := 'MS Sans Serif';
Label9.Font.Style := [];
Label9.ParentFont := False;
Edit12 := TEdit.Create(GroupBox2);
Edit12.Parent := GroupBox2;
Edit12.Left := 9;
Edit12.Top := 29;
Edit12.Width := 121;
Edit12.Height := 18;
Edit12.TEXT := LoadSetting('SettingsSaver', 'a14');
Edit12.Font.Color := clWindowText;
Edit12.Font.Height := -11;
Edit12.Font.Name := 'MS Sans Serif';
Edit12.Font.Style := [];
Edit12.ParentFont := False;
Edit12.TabOrder := 0;
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;

//////////////--------FORM END---------\\\\\\\\\\\\\\

Procedure Randoms;
begin
  FindNormalRandoms;
end;

procedure ProgressReport;
begin
     ClearDebug;
     Writeln('<----------------------------------------->');
     Writeln('           Thanks for using              ');
     Writeln('              AutoFighter                ');
     Writeln('             Made by Secet               ');
     Writeln('                  --                     ');
     Writeln('   Script has been running for ' + TimeRunning + ' |');
     Writeln('     "You" have killed ' + IntToStr(tapot) + ' monsters.    ');
     Writeln('<----------------------------------------->');
end;
procedure CheckLogin;
begin
  if(not(LoggedIn))then
  LoginPlayer;
end;

Procedure HPtsekkaus;
begin
  GetHp;
  if(GetHp<=LogHP)then
  begin
    RunAwayDirection(RunAway);
    Wait(10000+Random(1000));
    Logout;
    Writeln('HP is too low, trying to run away & log out');
    TerminateScript;
  end;
end;

procedure FightStyle;
begin
SetFightMode(style);
end;

procedure Startkilling;
begin
     wait(500+100);
     HPtsekkaus;
     RealEatIfNeeded(foodcolor, eathp, foodlogout=true);
     FindMonster(color1, color2, color3, Tolerance, MonsterName);
     tapot := tapot + 1;
     wait(500+random(200));
end;

begin
  SafeInitForm;
  SafeShowFormModal;
  SetupSRL;
  Checklogin;
  Fightstyle;
      repeat
      if(not(LoggedIn))then
      begin
      wait(30000+random(15000));
      CheckLogin;
      end;
      Randoms;
      HPtsekkaus;
      wait(500+random(120));
      startkilling;
      wait(500+random(200));
      until( kills = tapot )
  ProgressReport;
end.

I hope you accept me, since I have been SRL member @ moparisthebest.com :)

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

c0de

2007-02-28 19:43:31

Hope you get accepted. (Hint: Yes from me.)

Secet

2007-02-28 19:48:38

That was really fast reply :D

Ejjman

2007-02-28 20:24:27

U DID do a pretty simple script, but I can see that you can do better. A yes from me.

YoHoJo

2007-02-28 21:01:21

The forms and nice and all.
But you dont use player array meaning no miltiplayer or antirandoms.

Because there is no player[0].nick ect, SRL will treat ALL text as ranoms, which just really messed up a script, unles you have chat off or on hide.

The talker is nice looking and functional. But not what im looking for to get into SRL member.

The fighter is a good start, but wayy to simple and needs more functions and features.
I like to not use forums and just conts along with player array.
But its your choice what you choose to use, just add a player array and yeah.

Try updating it and trying again next month and maybe ill accept you then =).

Your forum talent and organization is very amazing though i love them =).

Ron

2007-02-28 21:55:45

A very big yes for me!

Secet you come up with few scripts, but I'm always looking for quality rather than quantity. Good work and can't wait for that secret script to come out soon. :)

Secet

2007-02-28 21:57:46

Well, I have working Draynor Cutter + Banker, it uses PlayerForm and stuff. But it's gonna be payscript so I can't reveal my chopping procedure and stuff.
But I understand what you mean, none of those are SRL scripts. But trust me, I know how to script. :)

Well, maybe I'll make a new application when I start selling my script, but thanks for the comments.

Edit:

Forgot to mention that Ron referred me to SRL :P

syberium

2007-02-28 22:27:56

I voted no- Due to the fact most ur script is forms. make ur script multiplayer with randoms etc, up to srl standards then re-apply =]

Ron

2007-03-01 02:50:39

From: syberium
I voted no- Due to the fact most ur script is forms.


lol ya forms are for the weak scar scripters. :p sarcasm

GoF

2007-03-01 06:02:12

I voted no… Because like 85% of ur scripts are made with the form editor ;)

Huge forms, little other stuff.. And when i applied there was something about not applying with Autotalkers/spammers..?

Pentti

2007-03-01 10:53:09

I voted no, because: the script is just full of form things, yea where's the actual script? You are very good at forms, but try making a good runescape script, not just script where 9/10 of it is only form functions.
(Secet, Kiva nähä muute vaa lisää suomalaisii tääl!!! :D)

YoHoJo

2007-03-01 16:02:11

Gusy stop being stupid.
Just beacsue the script is mostly forums donest mean its bad.
Stop bering retarded.
Mayybey the forum is uber leet and 10000 lines long.
That doesnt mean that just becasue the script is only 5000 lines long and shorter than the form that its bad.

Please think of more legit reasons for voting no and why.
:p :P(Leafmaster)

Ejjman

2007-03-01 16:13:58

yohojo, lots o' spelling errors there! :O

If you guys look, forms are easy, yes, but I have to believe him on making a chopper or whatever he's doing, and this auto-talker was just a script to get it started. And also, fyi, usually people learn scripting then forms, so I bet he's got some hidden knowledge we aren't seeing under his skin. :) Give the dude a break.

Pentti

2007-03-01 16:18:18

yohojo, let's look the "real script", here you go:
Procedure Randoms;
begin
  FindNormalRandoms;
end;
 
procedure ProgressReport;
begin
     ClearDebug;
     Writeln('<----------------------------------------->');
     Writeln('           Thanks for using              ');
     Writeln('              AutoFighter                ');
     Writeln('             Made by Secet               ');
     Writeln('                  --                     ');
     Writeln('   Script has been running for ' + TimeRunning + ' |');
     Writeln('     "You" have killed ' + IntToStr(tapot) + ' monsters.    ');
     Writeln('<----------------------------------------->');
end;
procedure CheckLogin;
begin
  if(not(LoggedIn))then
  LoginPlayer;
end;
 
Procedure HPtsekkaus;
begin
  GetHp;
  if(GetHp<=LogHP)then
  begin
    RunAwayDirection(RunAway);
    Wait(10000+Random(1000));
    Logout;
    Writeln('HP is too low, trying to run away & log out');
    TerminateScript;
  end;
end;
 
procedure FightStyle;
begin
SetFightMode(style);
end;
 
procedure Startkilling;
begin
     wait(500+100);
     HPtsekkaus;
     RealEatIfNeeded(foodcolor, eathp, foodlogout=true);
     FindMonster(color1, color2, color3, Tolerance, MonsterName);
     tapot := tapot + 1;
     wait(500+random(200));
end;
 
begin
  SafeInitForm;
  SafeShowFormModal;
  SetupSRL;
  Checklogin;
  Fightstyle;
      repeat
      if(not(LoggedIn))then
      begin
      wait(30000+random(15000));
      CheckLogin;
      end;
      Randoms;
      HPtsekkaus;
      wait(500+random(120));
      startkilling;
      wait(500+random(200));
      until( kills = tapot )
  ProgressReport;
end.
I think that usually if someone comes with script like this you'll say no…
  • No multiplayer.
  • Antirandmos doesnt work.
  • I think script gets you banned very fast.
  • Script saves the settings, but I don't see it loading them.
  • In checkLogin-procedure LogInPlayer already checks if you are not logged in, so you wont need "if(not(loggedin))"
  • Script will always login player if it's not logged in, maybe you should do like 
    if(not(loggedin))then
    • terminatescript;
  • Pretty much used only SRL's functions not much functions in script made by himself: 
    SetFightMode(style);
    • FindMonster(color1, color2, color3, Tolerance, MonsterName); RealEatIfNeeded(foodcolor, eathp, foodlogout=true); randoms is just FindNormalRandoms; Maybe could do something own to your script too? Script actually works only with SRL's functions, that's what im saying.
You think it's worth an SRL member?
-I don't. But man, do not stop scripting, keep on learning!

Boreas

2007-03-01 17:46:03

I agree. More meat in script plz.

JAD

2007-03-01 18:21:59

sorry but I have to vote no. the forms are nice, don't get me wrong, but all this script really is is a color clicker, that runs if health is low and sets fight mode, and (eats food?) and has progress report. if you know about scripting more then just forms, try writing a script that has more options with randoms and maybe some anti ban? if you want to learn about anti ban and randoms a little, read the tuts in my sig, then maybe you can apply again next month once you have learned more. I do with I could write forms like you though :p going to start learning this weekend.

syberium

2007-03-01 18:23:56

yes yohojo, i never said its a bad script because all it has is forms.. i said that the bulk of it is forms.. and ive seen better scripts with more stuff in them get declined and all this has is forms and what pentti posted.. im not being stupid/harsh just saying the bulk was made from form editor

Secet

2007-03-02 04:49:05

Thanks for the comments everybody.
@ Pentti
About those option savings, it loads them on the startup, like this
Edit1.Text := LoadSetting('SettingsSaver', 'a1');
But yeah, that autofighter is kinda noobish. (Let's leave that kinda out)

I checked that there are so many other Draynor bankers around here, so there is no point making one payscript, so I guess I can post it here then.
It still has ALOT work to do (like detect if in combat, then go to bank and bank, autoresponder and so on) but atleast it is SRL script and uses antirandoms and stuff. But again, it uses pretty much forms :( But hey, atleast it's pretty fast with tree finding, faster than Charm's.

I'll edit it in here later.



{=========================================================================]
[                            SecetCutter v1.0                             ]
[                                                                         ]
[              NAME        : SecetCutter v1.0                             ]
[              WRITER      : Secet                                        ]
[              CATEGORY    : Woodcutting                                  ]
[              DESCRIPTION : See below.                                   ]
[              USAGE       : Cuts logs and banks them                     ]
[              AUTOCOLOR   : No                                           ]
[              NOTES       : Wield axe, start at Draynor willows.         ]
[                                                                         ]
[=========================================================================]
| Description:                                                            |
|   This script will get full inventory of logs, then go to bank. Then it |
|   will walk back to willows, and do the same stuff again.               |
| Instructions:                                                           |
|   1.Set the Runescape brightness to maxium, and your                    |
|     computer's resolution to 32bit resolution.                          |
|   2.Need SCAR version 2.0.3.                                            |
|   3.Start script at the Draynor Willows.                                |
|   4.Start with in inventory.                                            |
|   6.Click and drag the crosshair over the Runescape client.             |
|     Then press the green arrow.                                         |
|   7.Setup the form, pick colors by pressing 'Pick colors!'              |
[=========================================================================}


program SecetCutter;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}
{.include SRL/SRL/skill/Woodcutting.scar}


const
StartPlayer         = 0;     // Determines who will play first
//************************************************************************//
const VersionNumber       = '1';      // Compliant with Rev 568+
//************************************************************************//

//************************************************************************//

procedure FindRandoms;
begin
  FindNormalRandoms;
  if Findname Then FindTalk;
end;

var
///////////////////////////
  SecetCutterF2 : TForm; //
  Label1 : TLabel;       //
  Label2 : TLabel;       //
  Label3 : TLabel;       //
  Label4 : TLabel;       //
  Label5 : TLabel;       //
  Panel1 : TPanel;       //
  laRunning : TLabel;    //
  laBanked : TLabel;     //
  laWillow : TLabel;     //
  laExp : TLabel;        //
  laProsentti : TLabel;  //
  laWhere : TLabel;      //
  shBar : TShape;        //
  shProg : TShape;       //
///////////////////////////
  SecetCutterF1 : TForm; //
  gbColorSet : TGroupBox;//
  laFirst : TLabel;      //
  laSecond : TLabel;     //
  laThird : TLabel;      //
  laPick1 : TLabel;      //
  laPick2 : TLabel;      //
  laPick3 : TLabel;      //
  edTreeCol1 : TEdit;    //
  edTreeCol2 : TEdit;    //
  edTreeCol3 : TEdit;    //
  bgUserSet : TGroupBox; //
  gbOptions : TGroupBox; //
  laLamp : TLabel;       //
  laDisguise : TLabel;   //
  laLoads : TLabel;      //
  laUnlimited : TLabel;  //
  edLamp : TEdit;        //
  edDisguise : TEdit;    //
  edLoads : TEdit;       //
  buStart : TButton;     //
  buPlayers : TButton;   //
/////////////////////////////////////////////////////////////////////////////////////////////////
  rock1BM, rock2BM, Banked, Color1, Color2, Color3, Loads: integer;//
  usernm, password, disguise: string;                                               //
  EndInitForm : Boolean;                                                                       //
/////////////////////////////////////////////////////////////////////////////////////////////////

procedure LoadWalkBackBMPs;
begin
  rock1BM := BitmapFromString(8, 8, 'z78DA3330400063436327637' +
       '30869801720ABC4240D9D8C4C0DDD90454C9C4C4D4D5C91495C7A' +
       '3155525717B2FB895189E96B4CF510FFE20F2B64F5C8B20045C25' +
       '02C');

  rock2BM := BitmapFromString(11, 12, 'z78DA33304007C686C64EC' +
       '6E610D2804480ACD7C4C9D4D4C495787330F5229B80DF55C8EA31' +
       '49E27D448C09A49A83A91717892B4C88710FE52143AA1B480D61F' +
       'C7E317432323574233E9D609A405E5AC565020056DEA160');
end;
       

//------------------------------------------------------------------------\\
{               Color picker in Form
\\------------------------------------------------------------------------//}


procedure Get1stTreeColor(Sender: TObject);
begin
     PickColor(Color1, x, y);
     edTreeCol1.Text := IntToStr(Color1);
     edTreeCol1.Font.Color := Color1;
     if Color1 < 3500000 then
        begin
             edTreeCol1.Color := clWhite;
        end else
     edTreeCol1.Color := clBlack;
end;

procedure Get2ndTreeColor(Sender: TObject);
begin
     PickColor(Color2, x, y);
     edTreeCol2.Text := IntToStr(Color2);
     edTreeCol2.Font.Color := Color2;
     if Color2 < 3500000 then
        begin
             edTreeCol2.Color := clWhite;
        end else
     edTreeCol2.Color := clBlack;
end;

procedure Get3rdTreeColor(Sender: TObject);
begin
     PickColor(Color3, x, y);
     edTreeCol3.Text := IntToStr(Color3);
     edTreeCol3.Font.Color := Color3;
     if Color3 < 3500000 then
        begin
             edTreeCol3.Color := clWhite;
        end else
     edTreeCol3.Color := clBlack;
end;


//------------------------------------------------------------------------\\
{                  Start button click
\\------------------------------------------------------------------------//}


procedure buStartClick(Sender: TObject);
begin
      SaveSetting('TextSaver', 'Disguise', edDisguise.Text);
      SaveSetting('TextSaver', 'Lamp', edLamp.Text);
      SaveSetting('TextSaver', 'Color1', edTreeCol1.Text);
      SaveSetting('TextSaver', 'Color2', edTreeCol2.Text);
      SaveSetting('TextSaver', 'Color3', edTreeCol3.Text);
      SaveSetting('TextSaver', 'Loads', edLoads.Text);
      Writeln('Settings saved succesfully!');
     Loads := StrToInt(edLoads.Text);
     lampskill := edLamp.Text;
     disguise := edDisguise.Text;
     Color1 := StrToInt(edTreeCol1.Text);
     Color2 := StrToInt(edTreeCol2.Text);
     Color3 := StrToInt(edTreeCol3.Text);
     SecetCutterF1.Modalresult := mrOk;
end;

procedure InitFormOnExit(Sender : TObject; var Action : TCloseAction);
begin
  if(not(SecetCutterF1.ModalResult = mrOk))then
    EndInitForm := True;
end;

procedure LaunchPlayerForm(Sender: TObject);
begin
     StartPlayers(True,'');
end;

//------------------------------------------------------------------------\\
{                    FORM STARTS
\\------------------------------------------------------------------------//}

procedure InitSecetCutterForm;
begin
SecetCutterF1 := CreateForm;
SecetCutterF1.OnClose := @InitFormOnExit;
SecetCutterF1.Left := 297;
SecetCutterF1.Top := 268;
SecetCutterF1.Width := 473;
SecetCutterF1.Height := 311;
SecetCutterF1.Caption := 'SecetCutter - v1.0';
SecetCutterF1.Color := clWhite;
SecetCutterF1.Font.Color := clWindowText;
SecetCutterF1.Font.Height := -11;
SecetCutterF1.Font.Name := 'MS Sans Serif';
SecetCutterF1.Font.Style := [];
SecetCutterF1.Visible := False;
SecetCutterF1.PixelsPerInch := 96;
gbColorSet := TGroupBox.Create(SecetCutterF1);
gbColorSet.Parent := SecetCutterF1;
gbColorSet.Left := 11;
gbColorSet.Top := 12;
gbColorSet.Width := 221;
gbColorSet.Height := 141;
gbColorSet.Caption := 'Color setup';
gbColorSet.Color := clBtnFace;
gbColorSet.Font.Color := clMaroon;
gbColorSet.Font.Height := -11;
gbColorSet.Font.Name := 'MS Sans Serif';
gbColorSet.Font.Style := [];
gbColorSet.ParentColor := False;
gbColorSet.ParentFont := False;
gbColorSet.TabOrder := 0;
laFirst := TLabel.Create(gbColorSet);
laFirst.Parent := gbColorSet;
laFirst.Left := 5;
laFirst.Top := 30;
laFirst.Width := 65;
laFirst.Height := 13;
laFirst.Caption := '1st Tree color';
laSecond := TLabel.Create(gbColorSet);
laSecond.Parent := gbColorSet;
laSecond.Left := 4;
laSecond.Top := 65;
laSecond.Width := 69;
laSecond.Height := 13;
laSecond.Caption := '2nd Tree color';
laThird := TLabel.Create(gbColorSet);
laThird.Parent := gbColorSet;
laThird.Left := 5;
laThird.Top := 100;
laThird.Width := 66;
laThird.Height := 13;
laThird.Caption := '3rd Tree color';
laPick1 := TLabel.Create(gbColorSet);
laPick1.Parent := gbColorSet;
laPick1.OnClick := @Get1stTreeColor;
laPick1.Left := 164;
laPick1.Top := 30;
laPick1.Width := 50;
laPick1.Height := 13;
laPick1.Caption := 'Pick color!';
laPick1.Font.Color := clGreen;
laPick1.Font.Height := -11;
laPick1.Font.Name := 'MS Sans Serif';
laPick1.Font.Style := [];
laPick1.ParentFont := False;
laPick2 := TLabel.Create(gbColorSet);
laPick2.Parent := gbColorSet;
laPick2.OnClick := @Get2ndTreeColor;
laPick2.Left := 165;
laPick2.Top := 65;
laPick2.Width := 50;
laPick2.Height := 13;
laPick2.Caption := 'Pick color!';
laPick2.Color := clBtnFace;
laPick2.Font.Color := clGreen;
laPick2.Font.Height := -11;
laPick2.Font.Name := 'MS Sans Serif';
laPick2.Font.Style := [];
laPick2.ParentColor := False;
laPick2.ParentFont := False;
laPick3 := TLabel.Create(gbColorSet);
laPick3.Parent := gbColorSet;
laPick3.OnClick := @Get3rdTreeColor;
laPick3.Left := 165;
laPick3.Top := 100;
laPick3.Width := 50;
laPick3.Height := 13;
laPick3.Caption := 'Pick color!';
laPick3.Font.Color := clGreen;
laPick3.Font.Height := -11;
laPick3.Font.Name := 'MS Sans Serif';
laPick3.Font.Style := [];
laPick3.ParentFont := False;
edTreeCol1 := TEdit.Create(gbColorSet);
edTreeCol1.Parent := gbColorSet;
edTreeCol1.Left := 78;
edTreeCol1.Top := 25;
edTreeCol1.Width := 85;
edTreeCol1.Height := 21;
edTreeCol1.Color := clBlack;
edTreeCol1.TabOrder := 0;
edTreeCol1.Text := LoadSetting('TextSaver', 'Color1');

edTreeCol2 := TEdit.Create(gbColorSet);
edTreeCol2.Parent := gbColorSet;
edTreeCol2.Left := 77;
edTreeCol2.Top := 60;
edTreeCol2.Width := 85;
edTreeCol2.Height := 21;
edTreeCol2.Color := clBlack;
edTreeCol2.TabOrder := 1;
edTreeCol2.Text := LoadSetting('TextSaver', 'Color2');
edTreeCol3 := TEdit.Create(gbColorSet);
edTreeCol3.Parent := gbColorSet;
edTreeCol3.Left := 78;
edTreeCol3.Top := 95;
edTreeCol3.Width := 85;
edTreeCol3.Height := 21;
edTreeCol3.Color := clBlack;
edTreeCol3.TabOrder := 2;
edTreeCol3.Text := LoadSetting('TextSaver', 'Color3');
bgUserSet := TGroupBox.Create(SecetCutterF1);
bgUserSet.Parent := SecetCutterF1;
bgUserSet.Left := 11;
bgUserSet.Top := 157;
bgUserSet.Width := 221;
bgUserSet.Height := 105;
bgUserSet.Caption := 'Username and password';
bgUserSet.Font.Color := clMaroon;
bgUserSet.Font.Height := -11;
bgUserSet.Font.Name := 'MS Sans Serif';
bgUserSet.Font.Style := [];
bgUserSet.ParentFont := False;
bgUserSet.TabOrder := 1;
buPlayers := TButton.Create(bgUserSet);
buPlayers.Parent := bgUserSet;
buPlayers.Left := 70;
buPlayers.OnClick := @LaunchPlayerForm;
buPlayers.Top := 20;
buPlayers.Width := 75;
buPlayers.Height := 25;
buPlayers.Caption := 'Player form';
buPlayers.TabOrder := 0;
gbOptions := TGroupBox.Create(SecetCutterF1);
gbOptions.Parent := SecetCutterF1;
gbOptions.Left := 239;
gbOptions.Top := 12;
gbOptions.Width := 212;
gbOptions.Height := 141;
gbOptions.Caption := 'Other options';
gbOptions.Font.Color := clMaroon;
gbOptions.Font.Height := -11;
gbOptions.Font.Name := 'MS Sans Serif';
gbOptions.Font.Style := [];
gbOptions.ParentFont := False;
gbOptions.TabOrder := 2;
laLamp := TLabel.Create(gbOptions);
laLamp.Parent := gbOptions;
laLamp.Left := 8;
laLamp.Top := 25;
laLamp.Width := 49;
laLamp.Height := 13;
laLamp.Caption := 'Lamp skill:';
laDisguise := TLabel.Create(gbOptions);
laDisguise.Parent := gbOptions;
laDisguise.Left := 8;
laDisguise.Top := 60;
laDisguise.Width := 57;
laDisguise.Height := 13;
laDisguise.Caption := 'Disguise as:';
laLoads := TLabel.Create(gbOptions);
laLoads.Parent := gbOptions;
laLoads.Left := 8;
laLoads.Top := 95;
laLoads.Width := 84;
laLoads.Height := 13;
laLoads.Caption := 'How many loads?';
laUnlimited := TLabel.Create(gbOptions);
laUnlimited.Parent := gbOptions;
laUnlimited.Left := 44;
laUnlimited.Top := 119;
laUnlimited.Width := 113;
laUnlimited.Height := 13;
laUnlimited.Caption := '(Set it to 0 for unlimited!)';
laUnlimited.Font.Color := clGreen;
laUnlimited.Font.Height := -11;
laUnlimited.Font.Name := 'MS Sans Serif';
laUnlimited.Font.Style := [fsUnderline];
laUnlimited.ParentFont := False;
edLamp := TEdit.Create(gbOptions);
edLamp.Parent := gbOptions;
edLamp.Left := 96;
edLamp.Top := 20;
edLamp.Width := 96;
edLamp.Height := 21;
edLamp.TabOrder := 0;
edLamp.Text := LoadSetting('TextSaver', 'Lamp');
edDisguise := TEdit.Create(gbOptions);
edDisguise.Parent := gbOptions;
edDisguise.Left := 96;
edDisguise.Top := 55;
edDisguise.Width := 96;
edDisguise.Height := 21;
edDisguise.TabOrder := 1;
edDisguise.Text := LoadSetting('TextSaver', 'Disguise');
edLoads := TEdit.Create(gbOptions);
edLoads.Parent := gbOptions;
edLoads.Left := 96;
edLoads.Top := 90;
edLoads.Width := 96;
edLoads.Height := 21;
edLoads.TabOrder := 2;
edLoads.Text := LoadSetting('TextSaver', 'Loads');
buStart := TButton.Create(SecetCutterF1);
buStart.Parent := SecetCutterF1;
buStart.OnClick := @buStartClick;
buStart.Left := 239;
buStart.Top := 164;
buStart.Width := 213;
buStart.Height := 98;
buStart.Caption := '&Start!';
buStart.Font.Color := clWindowText;
buStart.Font.Height := -21;
buStart.Font.Name := 'MS Sans Serif';
buStart.Font.Style := [fsBold];
buStart.ParentFont := False;
buStart.TabOrder := 3;
end;

procedure ProgressForm;
begin
SecetCutterF2 := CreateForm;
SecetCutterF2.BorderStyle := bsSizeToolWin;
SecetCutterF2.FORMSTYLE := fsStayOnTop;
SecetCutterF2.Width := 411;
SecetCutterF2.Height := 154;
SecetCutterF2.Caption := 'What'#39's happening?';
SecetCutterF2.Color := clWhite;
SecetCutterF2.Font.Color := clWindowText;
SecetCutterF2.Font.Height := -11;
SecetCutterF2.Font.Name := 'MS Sans Serif';
SecetCutterF2.Font.Style := [];
SecetCutterF2.Visible := False;
SecetCutterF2.PixelsPerInch := 96;
SecetCutterF2.Align := alBottom;

Label1 := TLabel.Create(SecetCutterF2);
Label1.Parent := SecetCutterF2;
Label1.Left := 20;
Label1.Top := 25;
Label1.Width := 130;
Label1.Height := 13;
Label1.Caption := 'Script has been running for:';
Label2 := TLabel.Create(SecetCutterF2);
Label2.Parent := SecetCutterF2;
Label2.Left := 20;
Label2.Top := 45;
Label2.Width := 40;
Label2.Height := 13;
Label2.Caption := 'Banked:';
Label3 := TLabel.Create(SecetCutterF2);
Label3.Parent := SecetCutterF2;
Label3.Left := 567;
Label3.Top := 105;
Label3.Width := 200;
Label3.Height := 13;
Label3.Caption := 'Thanks for using SecetCutter v1.0!';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -11;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [fsBold, fsUnderline];
Label3.ParentFont := False;
Label4 := TLabel.Create(SecetCutterF2);
Label4.Parent := SecetCutterF2;
Label4.Left := 20;
Label4.Top := 65;
Label4.Width := 91;
Label4.Height := 13;
Label4.Caption := 'Willow logs gained:';
Label5 := TLabel.Create(SecetCutterF2);
Label5.Parent := SecetCutterF2;
Label5.Left := 20;
Label5.Top := 85;
Label5.Width := 106;
Label5.Height := 13;
Label5.Caption := 'Amount of exp gained:';

shProg := TShape.Create(SecetCutterF2);
shProg.Parent := SecetCutterF2;
shProg.Left := 470;
shProg.Top := 24;
shProg.Width := 400;
shProg.Height := 30;
shProg.Brush.Color := clLime;
shProg.Pen.Width := 1;
shBar := TShape.Create(SecetCutterF2);
shBar.Parent := SecetCutterF2;
shBar.Left := 470;
shBar.Top := 24;
shBar.Width := 0;
shBar.Height := 30;
shBar.Brush.Color := clLime;
shBar.Pen.Width := 1;
laProsentti := TLabel.Create(SecetCutterF2);
laProsentti.Parent := SecetCutterF2;
laProsentti.Left := 655;
laProsentti.Top := 33;
laProsentti.Width := 17;
laProsentti.Height := 13;
laProsentti.Caption := '0%';
laProsentti.Color := clLime;
laProsentti.Font.Color := clBlack;
laProsentti.Font.Height := -11;
laProsentti.Font.Name := 'MS Sans Serif';
laProsentti.Font.Style := [fsBold];
laProsentti.ParentFont := False;
laWhere := TLabel.Create(SecetCutterF2);
laWhere.Parent := SecetCutterF2;
laWhere.Left := 474;
laWhere.Top := 65;
laWhere.Width := 3;
laWhere.Height := 13;
Panel1 := TPanel.Create(SecetCutterF2);
Panel1.Parent := SecetCutterF2;
Panel1.Left := 159;
Panel1.Top := 15;
Panel1.Width := 295;
Panel1.Height := 91;
Panel1.BorderWidth := 2;
Panel1.Color := clGreen;
Panel1.TabOrder := 0;
laRunning := TLabel.Create(Panel1);
laRunning.Parent := Panel1;
laRunning.Left := 12;
laRunning.Top := 10;
laRunning.Width := 44;
laRunning.Height := 13;
laRunning.Caption := '';
laRunning.Color := clMaroon;
laRunning.Font.Color := clMaroon;
laRunning.Font.Height := -11;
laRunning.Font.Name := 'MS Sans Serif';
laRunning.Font.Style := [fsBold];
laRunning.ParentColor := False;
laRunning.ParentFont := False;
laBanked := TLabel.Create(Panel1);
laBanked.Parent := Panel1;
laBanked.Left := 12;
laBanked.Top := 30;
laBanked.Width := 26;
laBanked.Height := 13;
laBanked.Caption := '';
laBanked.Font.Color := clMaroon;
laBanked.Font.Height := -11;
laBanked.Font.Name := 'MS Sans Serif';
laBanked.Font.Style := [fsBold];
laBanked.ParentFont := False;
laWillow := TLabel.Create(Panel1);
laWillow.Parent := Panel1;
laWillow.Left := 12;
laWillow.Top := 50;
laWillow.Width := 33;
laWillow.Height := 13;
laWillow.Caption := '';
laWillow.Font.Color := clMaroon;
laWillow.Font.Height := -11;
laWillow.Font.Name := 'MS Sans Serif';
laWillow.Font.Style := [fsBold];
laWillow.ParentFont := False;
laExp := TLabel.Create(Panel1);
laExp.Parent := Panel1;
laExp.Left := 12;
laExp.Top := 70;
laExp.Width := 50;
laExp.Height := 13;
laExp.Caption := '';
laExp.Font.Color := clMaroon;
laExp.Font.Height := -11;
laExp.Font.Name := 'MS Sans Serif';
laExp.Font.Style := [fsBold];
laExp.ParentFont := False;
end;

procedure SafeProgressForm;
var
  v: TVariantArray;
begin
  SetArrayLength(V, 0);
  ThreadSafeCall('ProgressForm', v);
end;

procedure ShowFormProg;
begin
  SecetCutterF2.Show;
end;

procedure SafeShowProgForm;
var
  v: TVariantArray;
begin
  SetArrayLength(V, 0);
  ThreadSafeCall('ShowFormProg', v);
end;

procedure SafeInitSecetCutterForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitSecetCutterForm', v);
end;

procedure ShowSecetCutterFormModal;
begin
  SecetCutterF1.ShowModal;
end;

procedure SafeShowSecetCutterFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowSecetCutterFormModal', v);
end;

procedure MainInitForm;
begin
  try
    SafeInitSecetCutterForm;
    SafeShowSecetCutterFormModal;
  finally
    FreeForm(SecetCutterF1);
  except
    WriteLn('Error in InitForm!');
  end;
end;

//------------------------------------------------------------------------\\
{               FORM ENDS
\\------------------------------------------------------------------------//}

Procedure FindEnts;
Begin
     FindEnt(Color1);
     FindEnt(Color2);
     FindEnt(Color3);

end;

//------------------------------------------------------------------------\\
{              Chop 'em...
\\------------------------------------------------------------------------//}


procedure ChopEmDown;
var xi,yi,xs,ys,DontLogMeOut: integer;
begin
GameTab(4);
MakeCompass('e');
HighestAngle;
SafeShowProgForm;
laRunning.Caption := Timerunning;
if FindColorSpiral(xi,yi,Color1,0,0,515,337) or FindColorSpiral(xi,yi,Color2,0,0,515,337) or FindColorSpiral(xi,yi,Color3,0,0,515,337) then
   begin
   if (FindColorTolerance(X, Y, 55769, 85, 15, 115, 15, 20)) or (FindColorSpiralTolerance(X, Y, 65535, 85, 15, 115, 15, 20)) or (FindColorSpiralTolerance(X, Y, 383705, 80, 15, 115, 15, 20)) then
   begin
        if IsUpText ('hop') and IsUpText('illow') then
        begin
                laWhere.Caption := 'Ent possibly found! We are waiting about 15 seconds!';
                laProsentti.Caption := '-Paused-';
                Wait(10000+random(5000));
        end else
   end else
         MMouse(xi,yi,0,0);
         if IsUpText('hop') and IsUpText('illow') then
         Mouse(xi,yi,0,0,true);
         repeat
               if DontLogMeOut > 35 then
               begin
               Mouse(xi,yi,0,0,true);
               DontLogMeOut := 0;
               FindHead;
               end else
               FindHead;
               wait(500+random(100));
               DontLogMeOut := DontLogMeOut +1;
               FindTalk;
         until(IsUpText('hop')=false) or (InventoryCount = 28)
         DontLogMeOut := 0;
         laRunning.Caption := Timerunning;
   end;
end;


//------------------------------------------------------------------------\\
{             ...Bank 'em...
\\------------------------------------------------------------------------//}

procedure BankingAngle;
begin
  if (LoggedIn) then
  begin
       KeyDown(40);
       Sleep(500 + Random(100) + Random(200));
       KeyUp(40);
       Wait(1000 + Random(100));
  end;
end;

procedure DepositWillows;
var thex,they,timeout:integer;
begin
if(BankScreen)then
begin
     Deposit(2, 28, 2);
     laWhere.Caption := 'Deposited all items, except axe.';
     laRunning.Caption := Timerunning;
end;
end;

procedure BankEm;
var x,y :integer;
begin
     laRunning.Caption := Timerunning;
     laWhere.Caption := 'We are heading towards the bank! Soon done with this load!';
     shBar.Width := 357;
     laProsentti.Caption := '89%';
     SymbolAccuracy := 0.4;
     if FindSymbol(x,y,'Bank') then
        Mouse(x,y,6,6,true);
        wait(1000+random(500));
        MakeCompass('w');
        wait(500+random(500));
        BankingAngle;
        Flag;
        OpenBankGlass('db',false,false);
     shBar.Width := 378;
     laProsentti.Caption := '94%'
     laWhere.Caption := 'Banking your willows! Not much left!';
     DepositWillows;
     CloseBank;
     Banked := Banked + 1;
     SetRun(true);
     laBanked.Caption := IntToStr(Banked)+' Time[s]';
     laWillow.Caption := 'About '+IntToStr(Banked*28);
     laExp.Caption := 'About '+IntToStr(Banked*28*68);
end;

//------------------------------------------------------------------------\\
{             ...And walk back!
\\------------------------------------------------------------------------//}

procedure WalkBack;
var xces, yces: integer;
begin
     SymbolAccuracy := 0.4;
     if FindSymbol(xces,yces,'Fish') or FindBitMapSpiral(rock1BM,xces,yces,570,3,728,163)or FindBitMapSpiral(rock2BM,xces,yces,570,3,728,163) then
     begin
          laWhere.Caption := 'Walking back to the Willows.';
          Mouse(xces + 10 + random(8), yces + random(20),6,6, true);
          wait(5000);
          MakeCompass('n');
          Flag;
          shBar.Width := 400;
          laProsentti.Caption := 'Done!';
          laWhere.Caption := 'We did it, we are back at the Willows! Lets do that again!';
          shBar.Width := 0;
     end else
     LogOut;
     LoginPlayer;
end;

//------------------------------------------------------------------------\\
{            Signature
\\------------------------------------------------------------------------//}
procedure Signature;
begin
     WriteLn(' __               _      ');
     WriteLn('/ _\ ___  ___ ___| |_    ');
     WriteLn('\ \ / _ \/ __/ _ \ __|   ');
     WriteLn('_\ \  __/ (_|  __/ |_    ');
     WriteLn('\__/\___|\___\___|\__|   ');
     WriteLn('Presents you:            ');
     WriteLn('   Draynor willow banker!');
end;

procedure FreeWillie;
begin
     FreeForm(SecetCutterF1);
     FreeForm(SecetCutterF2);
end;

procedure SetSelfWindowState(state: TWindowState);
begin
  GetSelf.WindowState := state;
end;

procedure SafeSetSelfWindowState(state: TWindowState);
var
  V: TVariantArray;
begin
  SetArrayLength(V, 1);
  V[0] := state;
  ThreadSafeCall('SetSelfWindowState', V);
end;

procedure ProgCheck;
begin
     if InventoryCount = 1 then
        begin
        laProsentti.Caption := '3%';
        shBar.Width := 12;
        laWhere.Caption := 'We are chopping more wood! We still need 27 logs!';
        end else
     if InventoryCount = 2 then
        begin
        laProsentti.Caption := '6%';
        shBar.Width := 24;
        laWhere.Caption := 'We are chopping more wood! We still need 26 logs!';
        end else
     if InventoryCount = 3 then
        begin
        laProsentti.Caption := '9%';
        shBar.Width := 36;
        laWhere.Caption := 'We are chopping more wood! We still need 25 logs!';
        end else
     if InventoryCount = 4 then
        begin
        laProsentti.Caption := '12%';
        shBar.Width := 48;
        laWhere.Caption := 'We are chopping more wood! We still need 24 logs!';
        end else
     if InventoryCount = 5 then
        begin
        laProsentti.Caption := '15%';
        shBar.Width := 60;
        laWhere.Caption := 'We are chopping more wood! We still need 23 logs!';
        end else
     if InventoryCount = 6 then
        begin
        laProsentti.Caption := '18%';
        shBar.Width := 72;
        laWhere.Caption := 'We are chopping more wood! We still need 22 logs!';
        end else
     if InventoryCount = 7 then
        begin
        laProsentti.Caption := '21%';
        shBar.Width := 84;
        laWhere.Caption := 'We are chopping more wood! We still need 21 logs!';
        end else
     if InventoryCount = 8 then
        begin
        laProsentti.Caption := '24%';
        shBar.Width := 96;
        laWhere.Caption := 'We are chopping more wood! We still need 20 logs!';
        end else
     if InventoryCount = 9 then
        begin
        laProsentti.Caption := '27%';
        shBar.Width := 108;
        laWhere.Caption := 'We are chopping more wood! We still need 19 logs!';
        end else
     if InventoryCount = 10 then
        begin
        laProsentti.Caption := '30%';
        shBar.Width := 120;
        laWhere.Caption := 'We are chopping more wood! We still need 18 logs!';
        end else
     if InventoryCount = 11 then
        begin
        laProsentti.Caption := '33%';
        shBar.Width := 132;
        laWhere.Caption := 'We are chopping more wood! We still need 17 logs!';
        end else
     if InventoryCount = 12 then
        begin
        laProsentti.Caption := '36%';
        shBar.Width := 144;
        laWhere.Caption := 'We are chopping more wood! We still need 16 logs!';
        end else
     if InventoryCount = 13 then
        begin
        laProsentti.Caption := '39%';
        shBar.Width := 156;
        laWhere.Caption := 'We are chopping more wood! We still need 15 logs!';
        end else
     if InventoryCount = 14 then
        begin
        laProsentti.Caption := '42%';
        shBar.Width := 168;
        laWhere.Caption := 'We are chopping more wood! We still need 14 logs!';
        end else
     if InventoryCount = 15 then
        begin
        laProsentti.Caption := '45%';
        shBar.Width := 180;
        laWhere.Caption := 'We are chopping more wood! We still need 13 logs!';
        end else
     if InventoryCount = 16 then
        begin
        laProsentti.Caption := '48%';
        shBar.Width := 192;
        laWhere.Caption := 'We are chopping more wood! We still need 12 logs!';
        end else
     if InventoryCount = 17 then
        begin
        laProsentti.Caption := '51%';
        shBar.Width := 204;
        laWhere.Caption := 'We are chopping more wood! We still need 11 logs!';
        end else
     if InventoryCount = 18 then
        begin
        laProsentti.Caption := '54%';
        shBar.Width := 216;
        laWhere.Caption := 'We are chopping more wood! We still need 10 logs!';
        end else
     if InventoryCount = 19 then
        begin
        laProsentti.Caption := '57%';
        shBar.Width := 228;
        laWhere.Caption := 'We are chopping more wood! We still need 9 logs!';
        end else
     if InventoryCount = 20 then
        begin
        laProsentti.Caption := '60%';
        shBar.Width := 240;
        laWhere.Caption := 'We are chopping more wood! We still need 8 logs!';
        end else
     if InventoryCount = 21 then
        begin
        laProsentti.Caption := '63%';
        shBar.Width := 252;
        laWhere.Caption := 'We are chopping more wood! We still need 7 logs!';
        end else
     if InventoryCount = 22 then
        begin
        laProsentti.Caption := '66%';
        shBar.Width := 264;
        laWhere.Caption := 'We are chopping more wood! We still need 6 logs!';
        end else
     if InventoryCount = 23 then
        begin
        laProsentti.Caption := '69%';
        shBar.Width := 276;
        laWhere.Caption := 'We are chopping more wood! We still need 5 logs!';
        end else
     if InventoryCount = 24 then
        begin
        laProsentti.Caption := '72%';
        shBar.Width := 288;
        laWhere.Caption := 'We are chopping more wood! We still need 4 logs!';
        end else
     if InventoryCount = 25 then
        begin
        laProsentti.Caption := '75%';
        shBar.Width := 300;
        laWhere.Caption := 'We are chopping more wood! We still need 3 logs!';
        end else
     if InventoryCount = 26 then
        begin
        laProsentti.Caption := '78%';
        shBar.Width := 312;
        laWhere.Caption := 'We are chopping more wood! We still need 2 logs!';
        end else
     if InventoryCount = 27 then
        begin
        laProsentti.Caption := '81%';
        shBar.Width := 324;
        laWhere.Caption := 'We are chopping more wood! We still need 1 log!';
        end else
     if InventoryCount = 28 then
        begin
        laProsentti.Caption := '84%';
        shBar.Width := 336;
        laWhere.Caption := 'We are done with chopping! Lets bank them!';
        end else
end;

//------------------------------------------------------------------------\\
{            Mainloop starts
\\------------------------------------------------------------------------//}

begin
     ClearDebug;
     SafeSetSelfWindowState(wsMinimized);
     Signature;
     MainInitForm;
     if(EndInitForm)then
     begin
          SafeSetSelfWindowState(wsNormal);
          FreeWillie;
          TerminateScript;
     end;
     SafeProgressForm;
     SafeShowProgForm;
     SetupSRL;
     Mousespeed := 10;
     LoadWalkBackBMPs;
     DisguiseScar(Disguise);
     Wait(2000);
     repeat
     LoginPlayer;
     SafeShowProgForm;
     while LoggedIn do
     begin
     SetRun(true);
     GameTab(4);
     FindAxeHeadColor;
     repeat
                repeat
                FindHead;
                wait(100);
                FindRandoms;
                FindTalk;
                ProgCheck;
                ChopEmDown;
                ProgCheck;
                FTWait(1);
                until(InventoryCount = 28)
     BankEm;
     WalkBack;
     until(Banked = Loads)
     Players[CurrentPlayer].Active := false;
     LogOut;
     end;
     until(false)
     FreeWillie;
     SafeSetSelfWindowState(wsNormal);
end.

//------------------------------------------------------------------------\\
{              Mainloop ends
\\------------------------------------------------------------------------//}

There it is. It's still in the very beginning as I said before, but now it got Antirandoms, banking, walking back, and chopping working very good imo.
Things to do:
-If find fight, check hp, if lower than maxium health, runaway
-Haven't got genies working, doesn't talk :/
-Autoresponder
-Sometimes runs to the farest tree, should fix if I make function that first checks Color in Circle, if not found then tries FindColorSpiral.

Well there it is, and I'm also gonna make a tutorial how to make progressreport like that. :)

Pentti

2007-03-02 05:18:09

Also Secet, did you put my ess miner into your website without my permission? Please can you remove it
same with my autofighter…

Secet

2007-03-02 05:26:43

Yes sure I'll remove them.

Pentti

2007-03-02 05:37:49

From: Secet
Yes sure I'll remove them.

alright, thanks!
Oh, btw very nice web site!!! :D

Secet

2007-03-17 09:05:44

It has been 14 days now, so did I get accepted?

JAD

2007-03-17 10:06:20

Well, its pretty close right now as to are you getting in or not, so it may go longer.

Secet

2007-03-17 10:17:44

Ah okay I see, I hope I get in :)

WT-Fakawi

2007-03-17 14:29:20

Welcome.