Page 2 of 2 FirstFirst 12
Results 26 to 33 of 33

Thread: SRL Members Application Tool 2010

  1. #26
    Join Date
    Sep 2007
    Location
    Australia, NSW
    Posts
    934
    Mentioned
    6 Post(s)
    Quoted
    145 Post(s)

    Default

    i put in an outdated script that i made 2 years ago and i got 83%
    i like it (Y)

    INACTIVE
    How-to: Make S.M.A.R.T. less laggy

    Sell me your Maple Shieldbows (u)! Up to 95gp ea!

    My Scripts:
    Ivy Chopper Ultra [RS3] | Fantastic Fletcher [RS3]
    99 x78 | 99 x10 | 99 x2 | 99 x12


    Use the REPORT tags when posting progress reports to make life easier (:
    [REPORT]Put progress report in here![/REPORT]

    Super Savvy Smither V1.06Cool Classy Cooker V1.02 [EoC]

  2. #27
    Join Date
    Jan 2008
    Location
    10° north of Hell
    Posts
    2,035
    Mentioned
    65 Post(s)
    Quoted
    164 Post(s)

    Default

    Quote Originally Posted by -daazndagger- View Post
    i put in an outdated script that i made 2 years ago and i got 83%
    i like it (Y)
    Gonna take a guess and say it needs to be a currently working script =) but nice score on the old one

    Dg's Small Procedures | IRC Quotes
    Thank Wishlah for my nice new avatar!
    Quote Originally Posted by IRC
    [22:12:05] <Dgby714> Im agnostic
    [22:12:36] <Blumblebee> :O ...you can read minds

  3. #28
    Join Date
    Feb 2008
    Posts
    517
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Something like this is exactly the reason codes get more advanced and bulky rather than going the opposite direction, which is simplicity.

    A script should be as simple as possible, but not too simple.

  4. #29
    Join Date
    Feb 2009
    Location
    Hungary (GMT + 1)
    Posts
    1,774
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Bump, I think this tool would give some clue for applicants, even if it's very rough.
    I fixed the form up, somewhy simba manages positions a bit else, I guess.
    Anyway here's the fixed tool:
    Simba Code:
    program SRLMemberTool;

    var
      // InitForm variables.
      EndInitForm: Boolean;
      AppTool: TForm;
      ResultL, TitleLabel, ResultDescriptionL, Label1, LastUpdated, LinesQL, LinesAL, CharsQ, CharsA, PostsL: TLabel;
      AcutalResultL: TLabel;
      ScriptB, ControlB, ScriptAnalyzeB, Debugb, UserinputGB: TGroupBox;
      Memo1, DebugBox: TMemo;
      HelpButton, GenerateButton, CopyToClipB, ResetB: TButton;
      PostcountE: TEdit;
      Attitude: TComboBox;
      I: integer;
      ScriptText: string;

    function FindText(word: string): boolean;
    begin
      Scripttext := Lowercase(Memo1.Text);
      Result := (Pos(lowercase(Word), LowerCase(ScriptText)) > 0);
    end;

    function FindTextMulti(Text: TStringArray): boolean;
    var
      i, n: Integer;
    begin
      Scripttext := Lowercase(Memo1.Text);
       n := High(Text);
      for i := 0 to n do
        if (Pos(Text[i], ScriptText) <> 0) then
        begin
          Result := True;
          Exit;
        end;
    end;

    function CountAndFindText(Word: string; Worth: integer; plusminus: boolean): boolean;
    //By Garret. Modded by me :)
    var
      N, tt: Integer;
      s: string;
    begin
      Scripttext := Lowercase(Memo1.Text);
      Result := (Pos(lowercase(Word), LowerCase(ScriptText)) > 0);
      if Result then
      begin
        S := Lowercase(Memo1.Text);
        repeat
          TT := TT + 1;
          if PlusMinus then
            I := I + worth
          else
            I := I - worth;
          N := Pos(LowerCase(Word), LowerCase(S));
          Delete(S, N, Length(Word));
        until ((N = 0) or (TT >= 2));
        I := I - 1;
      end;
    end;

    procedure MultiWordSolution;
    begin
      if FindTextMulti(['dtmrotated', 'finddtm']) and not FindText('freedtm') then
      begin
        I := I - 1;
        DebugBox.Lines.Add('Make sure you free your DTMs!');
      end
      else
        I := I + 2;
      if FindText('tform') and not FindText('freeform') then
      begin
        I := I - 1;
        DebugBox.Lines.Add('Make sure you free your form: Freeform(formname);');
      end
      else
        I := I + 2;
      if FindText('findbitmap') and not FindText('freebitmap') then
      begin
        I := I - 1;
        DebugBox.Lines.Add('Make sure you free your Bitmaps!');
      end
      else
        I := I + 2;
      if FindTextMulti(['radial','linearwalk','walkpath']) then
      begin
        I := I + 5;
      end
      else if FindText('findsymbol') then
        I := I + 3
      else
        DebugBox.Lines.Add('Make sure include walking in your script!');
    end;

    procedure GenerateMark;
    var
      AcceptedWords: TStringArray;
      DeclinedWords: TStringArray;
      WordsWorth: TIntegerArray;
      PlusOrMinus: Array of Boolean;
      z, PC: integer;
      att: string;
      d: extended;
    begin
      Scripttext := Lowercase(Memo1.Text);
      DebugBox.Clear;
      if ((memo1.Lines.Count) < 200) then
        LinesAL.Font.Color := clRed
      else
        LinesAL.Font.Color := clLime;
      if ((Length(memo1.Text)) < 10000) then
        CharsA.Font.Color := clRed
      else
        CharsA.Font.Color := clLime;
      LinesAL.caption := IntToStr(memo1.Lines.Count);
      CharsA.caption := IntToStr(Length(memo1.Text));
      AcceptedWords := ['exit;', 'fflag', 'players', '$i srl', 'loggedin', 'tdtmpointdef', 'tpa', 'tpointarray', 'while', 'repeat', 'tpoint'];
      DeclinedWords := ['', '', '', '', '', '', '', '', '', '', '', '', 'clickmouse', 'findfastrandoms', 'sendkeys'];
      WordsWorth := [1, 2, 8, 5, 2, 3, 3, 3, 1, 1, 2, 3, 10, 10];
      //declinded Words after gap or (1,3).
      ScriptText := Lowercase(Memo1.Text);
      for Z := 0 to High(AcceptedWords) do
        if not CountAndFindText(AcceptedWords[Z], WordsWorth[Z], true) then
          DebugBox.Lines.Add('Add ' + AcceptedWords[Z]);
      for Z := 12 to High(WordsWorth) do
        if CountAndFindText(DeclinedWords[Z], WordsWorth[Z], false) then
          DebugBox.Lines.Add('GET RID OF ' + DeclinedWords[Z]);
      MultiWordSolution;
      if Memo1.Lines.Count < 200 then
      begin
        I := I - 10;
        DebugBox.Lines.Add('For a good Application you need 200+ Lines!');
      end;
      if ((Length(memo1.Text)) < 10000) then
      begin
        I := I - 10;
        DebugBox.Lines.Add('For a good Application you need 10,000+ Characters!!');
      end;
      PC := StrToInt(PostcountE.text);
      if (PC < 50) then
      begin
        I := I - 5;
        DebugBox.Lines.Add('Getting a high post count will increase your chances');
      end;
      if (PC > 150) then
        I := I + 3;
      att := Lowercase(Attitude.Text);
      case Att of
        'bad(0 marks)': DebugBox.Lines.Add('Improve the attitude to increase your chances.');
        'attitude': DebugBox.Lines.Add('Please select a attitude to increase your score');
        'great(2 marks)': incEx(I, 2);
        'unknown(1 marks)': Inc(I);
      end;
      D := I / 65.0 * 100.0;
      D := Round(d);
      if (D < 0) then
        D := 0;
      if (D > 100) then
        D := 100;
      if (D > 75) then
      begin
        AcutalResultL.Font.Color := clLime;
        DebugBox.Lines.Add('You should Apply for members if you havent cheated!');
        ResultDescriptionL.Caption := 'You should Apply for members if you havent cheated!';
      end
      else
      begin
        AcutalResultL.Font.Color := clRed;
        DebugBox.Lines.Add('Sorry not good enough yet, or ethier you do not use SRL stuff.');
        ResultDescriptionL.Caption := 'Sorry not good enough yet, or ethier you do not use SRL stuff.';
      end;
      with DebugBox do
        with Lines do
        begin
          Add('[==================================]');
          Add('[=   Result: ' + FloatToStr(D) + '%');
          Add('[==================================]');
        end;
      AcutalResultL.Caption := FloatToStr(D) + '%';
    end;

    procedure CopyToClip(Sender: TObject);
    begin
      if (DebugBox.Lines.Count >= 1) then
      begin
        DebugBox.SelectAll;
        DebugBox.CopyToClipBoard;
        Messagebox('You sucessfully copied the debug box', 'Successful', 0);
      end
      else
        Messagebox('You cant copy nothing', 'Error!', 0);
    end;

    procedure HandleButtons(Sender: TObject);
    begin
      case Sender of
        generateButton:
          begin
            GenerateMark;
            I := 0;
          end;
        HelpButton: Messagebox('All you need to do is copy and paste your script in the box!', 'Help Eh?', 0);
        ResetB:
          begin
            DebugBox.Clear;
            memo1.Clear;
            PostcountE.text := '';
            Attitude.Text := 'Attitude';
          end;
      end;
    end;
    // When the InitForm is closed, this code will be executed.

    procedure InitFormOnClose(Sender: TObject; var Action: TCloseAction);
    begin
      if (not (AppTool.ModalResult = 1)) then
        EndInitForm := True;
    end;
    // This form was parsed using DFM Form Parser v.26c Beta by Ron.
    // Generated from APP TOOL.dfm.

    procedure InitForm;
    var
      TimeInitForm: Integer;
    begin
      TimeInitForm := GetSystemTime;
      AppTool := TForm.Create(nil);
      with AppTool do
      begin
        OnClose := @ InitFormOnClose;
        Position := poScreenCenter;
        BorderStyle := bsSingle;
        BorderIcons := [biMinimize, biSystemMenu];
        ClientWidth := 669;
        ClientHeight := 465;
        Caption := 'BobboHobbo' #39 's SRL Member Application Decider Tool 2010';
        Color := clBtnFace;
        Font.Color := clWindowText;
        Font.Height := - 11;
        Font.Name := 'MS Sans Serif';
        Font.Style := [];
        PixelsPerInch := 96;
      end;
      ResultL := TLabel.Create(AppTool);
      with ResultL do
      begin
        Parent := AppTool;
        Left := 40;
        Top := 264;
        Width := 71;
        Height := 13;
        Caption := 'Your Result:';
        Font.Color := clWindowText;
        Font.Height := - 11;
        Font.Name := 'MS Sans Serif';
        Font.Style := [fsBold];
      end;
      AcutalResultL := TLabel.Create(AppTool);
      with AcutalResultL do
      begin
        Parent := AppTool;
        Left := 112;
        Top := 264;
        Width := 31;
        Height := 13;
        Caption := '';
        Font.Color := clLime;
        Font.Height := - 11;
        Font.Name := 'MS Sans Serif';
        Font.Style := [fsBold];
      end;
      TitleLabel := TLabel.Create(AppTool);
      with TitleLabel do
      begin
        Parent := AppTool;
        Left := 56;
        Top := 8;
        Width := 557;
        Height := 20;
        Caption := 'BobboHobbo' #39 's SRL Member Application Decider Tool 2010';
        Font.Color := clWindowText;
        Font.Height := - 17;
        Font.Name := 'Verdana';
        Font.Style := [fsBold, fsItalic];
      end;
      ResultDescriptionL := TLabel.Create(AppTool);
      with ResultDescriptionL do
      begin
        Parent := AppTool;
        Left := 152;
        Top := 264;
        Width := 136;
        Height := 13;
        Caption := 'No result has been taken yet';
      end;
      Label1 := TLabel.Create(AppTool);
      with Label1 do
      begin
        Parent := AppTool;
        Left := 24;
        Top := 440;
        Width := 178;
        Height := 13;
        Caption := 'Made by BobboHobbo @ Villavu.com';
      end;
      LastUpdated := TLabel.Create(AppTool);
      with LastUpdated do
      begin
        Parent := AppTool;
        Left := 536;
        Top := 264;
        Width := 113;
        Height := 13;
        Caption := 'Last Updated 27/12/09';
      end;
      ScriptB := TGroupBox.Create(AppTool);
      with ScriptB do
      begin
        Parent := AppTool;
        Left := 24;
        Top := 40;
        Width := 513;
        Height := 217;
        Caption := 'The Script Box';
        TabOrder := 0;
      end;
      Memo1 := TMemo.Create(ScriptB);
      with Memo1 do
      begin
        Parent := ScriptB;
        Left := 16;
        Top := 0;
        Width := 481;
        Height := 177;
        Font.Name := 'Courier New';
        with Memo1.Lines do
        begin
          Add('Paste your script into this box and hit the generate button!');
        end;
        ScrollBars := ssBoth;
        TabOrder := 0;
      end;
      ControlB := TGroupBox.Create(AppTool);
      with ControlB do
      begin
        Parent := AppTool;
        Left := 24;
        Top := 288;
        Width := 185;
        Height := 145;
        Caption := 'The Controls';
        TabOrder := 1;
      end;
      HelpButton := TButton.Create(ControlB);
      with HelpButton do
      begin
        Parent := ControlB;
        Left := 16;
        Top := 4;
        Width := 152;
        Height := 33;
        Caption := 'Help';
        TabOrder := 0;
        Onclick := @ handlebuttons;
      end;
      GenerateButton := TButton.Create(ControlB);
      with GenerateButton do
      begin
        Parent := ControlB;
        Left := 16;
        Top := 44;
        Width := 152;
        Height := 32;
        Caption := 'Generate Mark';
        TabOrder := 1;
        Onclick := @ HandleButtons;
      end;
      CopyToClipB := TButton.Create(ControlB);
      with CopyToClipB do
      begin
        Parent := ControlB;
        Left := 16;
        Top := 84;
        Width := 152;
        Height := 32;
        OnClick := @CopyToClip;
        Caption := 'Copy Debug to Clipboard';
        TabOrder := 2;
      end;
      ScriptAnalyzeB := TGroupBox.Create(AppTool);
      with ScriptAnalyzeB do
      begin
        Parent := AppTool;
        Left := 544;
        Top := 48;
        Width := 112;
        Height := 57;
        Caption := 'Script Details';
        TabOrder := 2;
      end;
      LinesQL := TLabel.Create(ScriptAnalyzeB);
      with LinesQL do
      begin
        Parent := ScriptAnalyzeB;
        Left := 8;
        Top := 0;
        Width := 35;
        Height := 13;
        Caption := 'Lines:';
        Font.Color := clWindowText;
        Font.Height := - 11;
        Font.Name := 'MS Sans Serif';
        Font.Style := [fsBold];
      end;
      LinesAL := TLabel.Create(ScriptAnalyzeB);
      with LinesAL do
      begin
        Parent := ScriptAnalyzeB;
        Left := 48;
        Top := 0;
        Width := 25;
        Height := 13;
        Caption := '0';
      end;
      CharsQ := TLabel.Create(ScriptAnalyzeB);
      with CharsQ do
      begin
        Parent := ScriptAnalyzeB;
        Left := 8;
        Top := 20;
        Width := 37;
        Height := 13;
        Caption := 'Chars:';
        Font.Color := clWindowText;
        Font.Height := - 11;
        Font.Name := 'MS Sans Serif';
        Font.Style := [fsBold];
      end;
      CharsA := TLabel.Create(ScriptAnalyzeB);
      with CharsA do
      begin
        Parent := ScriptAnalyzeB;
        Left := 48;
        Top := 20;
        Width := 6;
        Height := 13;
        Caption := '0';
      end;
      Debugb := TGroupBox.Create(AppTool);
      with Debugb do
      begin
        Parent := AppTool;
        Left := 224;
        Top := 280;
        Width := 433;
        Height := 177;
        Caption := 'The Debug Box';
        TabOrder := 3;
      end;
      DebugBox := TMemo.Create(Debugb);
      with DebugBox do
      begin
        Parent := Debugb;
        Left := 16;
        Top := 0;
        Width := 401;
        Height := 153;
        with DebugBox.Lines do
        begin
          Add('Nothing has been generated yet!');
        end;
        ScrollBars := ssVertical;
        TabOrder := 0;
      end;
      UserinputGB := TGroupBox.Create(AppTool);
      with UserinputGB do
      begin
        Parent := AppTool;
        Left := 544;
        Top := 112;
        Width := 112;
        Height := 88;
        Caption := 'User Input';
        TabOrder := 4;
      end;
      PostsL := TLabel.Create(UserinputGB);
      with PostsL do
      begin
        Parent := UserinputGB;
        Left := 16;
        Top := 0;
        Width := 82;
        Height := 13;
        Caption := 'Users Post Count';
      end;
      PostcountE := TEdit.Create(UserinputGB);
      with PostcountE do
      begin
        Parent := UserinputGB;
        Left := 40;
        Top := 20;
        Width := 33;
        Height := 21;
        MaxLength := 4;
        TabOrder := 0;
        Text := '0';
      end;
      Attitude := TComboBox.Create(UserinputGB);
      with Attitude do
      begin
        Parent := UserinputGB;
        Left := 8;
        Top := 45;
        Width := 96;
        Height := 21;
        ItemHeight := 13;
        TabOrder := 1;
        Text := 'Attitude';
        with Attitude.Items do
        begin
          Add('Great(2 marks)');
          Add('Unknown(1 marks)');
          Add('Bad(0 marks)');
        end;
        ResetB := TButton.Create(AppTool);
        with ResetB do
        begin
          Parent := AppTool;
          Left := 552;
          Top := 230;
          Width := 96;
          onclick := @ HandleButtons;
          Height := 25;
          Caption := 'Reset';
          TabOrder := 5;
        end;
        WriteLn('InitForm compiled in ' + IntToStr(GetSystemTime - TimeInitForm) + ' milliseconds!');
      end;
      WriteLn('InitForm compiled in ' + IntToStr(GetSystemTime - TimeInitForm) + ' milliseconds!');
    end;

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

    procedure ShowInitFormModal;
    begin
      AppTool.ShowModal;
    end;

    procedure SafeShowInitFormModal;
    var
      v: TVariantArray;
    begin
      SetArrayLength(v, 0);
      ThreadSafeCall('ShowInitFormModal', v);
    end;

    procedure MainInitForm;
    begin
      try
        SafeInitForm;
        SafeShowInitFormModal;
      finally
        AppTool.Free;
      except
        WriteLn('An error seems to have occurred in: InitForm');
      end;
    end;

    begin
      ClearDebug;

      MainInitForm;
      if (EndInitForm) then
        TerminateScript;
    end.

    I have fixed up some form elements position that were somewhy below their planned position, made it to compile in simba(createform, messagebox), changed ".include srl" to "$i srl"(in the checking function).
    So I have not changed anything(except .include -> $i) in the scoring system so that may not suffice for today, but I think it's good enough.

    TL;DR: Made it to look good and compile.
    Last edited by Sabzi; 01-04-2012 at 11:31 AM.

  5. #30
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Nice work
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  6. #31
    Join Date
    Nov 2011
    Posts
    255
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Looks good, needs updating to simba, srl-5 though I would imagine.

    Add $i srl - ?
    Add repeat - while loops do the same thing?

  7. #32
    Join Date
    Oct 2011
    Location
    Chicago
    Posts
    3,352
    Mentioned
    21 Post(s)
    Quoted
    437 Post(s)

    Default

    Got 89% on it with my R4_ManThief3 (+ Attitude/Post count) :P
    Tempting to apply now, but I think I should wait haha.


    Add fflag
    Add tdtmpointdef
    You should Apply for members if you havent cheated!
    [==================================]
    [= Result: 89%
    [==================================]
    Last edited by [XoL]; 01-05-2012 at 05:50 PM.




    Anti-Leech Movement Prevent Leeching Spread the word
    Insanity 60 Days (Killer workout)
    XoL Blog (Workouts/RS/Misc)

  8. #33
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    LOL
    Add while
    GET RID OF clickmouse
    Make sure you free your form: Freeform(formname);
    Make sure include walking in your script!
    Getting a high post count will increase your chances
    Please select a attitude to increase your score
    Sorry not good enough yet, or ethier you do not use SRL stuff.
    [==================================]
    [= Result: 18%
    [==================================]
    dont need any whiles
    i dont use ClickMouse, i use ClickMouse2
    my form does get freed
    dont need walking

    this is VV btw

    ~shut

Page 2 of 2 FirstFirst 12

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •