Page 2 of 6 FirstFirst 1234 ... LastLast
Results 26 to 50 of 130

Thread: SRL Member Application Tool.

  1. #26
    Join Date
    May 2007
    Posts
    177
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I just tried munks flawless chicken killer and only gets a 49 lol

    Result = 49
    Sorry, Your script isnt SRL-Members Worthy.
    Add Walking (RRW),DTMs, DDTM, Forms,Multiplayer
    Or ethier UPDATE YOUR SCRIPT! No ClickMouse
    and FindFastRandoms PLEASE.
    http://www.fenjer.com/adnan/SRLStats/1035.png
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly!

  2. #27
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Quote Originally Posted by Sc00by22 View Post
    I just tried munks flawless chicken killer and only gets a 49 lol

    Result = 49
    Sorry, Your script isnt SRL-Members Worthy.
    Add Walking (RRW),DTMs, DDTM, Forms,Multiplayer
    Or ethier UPDATE YOUR SCRIPT! No ClickMouse
    and FindFastRandoms PLEASE.
    I guess it uses to much of the same procedures.

  3. #28
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Let's run my Catherby Fisher through this... I believe that in an actual application should be worthy...

    Output:
    MainForm compiled in 47 milliseconds!
    Result = 6
    Sorry, Your script isnt SRL-Members Worthy.
    Add Walking (RRW),DTMs, DDTM, Forms,Multiplayer
    Or ethier UPDATE YOUR SCRIPT! No ClickMouse
    and FindFastRandoms PLEASE.
    Just because I use a special, homemade and better version of RadialWalk...
    But I guess that isn't very common either, so I wouldn't add it to this tool. Good job, though

    -Knives

  4. #29
    Join Date
    Jun 2007
    Location
    Ohio
    Posts
    341
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ouch. my bone burrier, which i worked on for like an hour got a 21.

    My powercutter, which i worked on for like 10 hours, got a -47.

    there is no logic :P obviously i gotta work harder to become a member.

  5. #30
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh ya!
    MainForm compiled in 32 milliseconds!
    Result = 126
    Apply for members, unless you have cheated this
    Successfully executed
    thats with my smelter. good job on this BH!

  6. #31
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    no i wasnt using my scripts i released

    i used the script im currently working on :O

  7. #32
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow, are you kidding me? I got -13. That's bs.

  8. #33
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    My Private Guildminer got 89%

  9. #34
    Join Date
    Dec 2007
    Posts
    362
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by BobboHobbo View Post
    Lol, but whos stupid enough to apply with that?
    Uhhh, wait, it doesn't work?!?!...
    lol, jk

    Nice work, I'l consider using it when I start learning to script in delphi.

  10. #35
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Quote Originally Posted by vcvv View Post
    Uhhh, wait, it doesn't work?!?!...
    lol, jk

    Nice work, I'l consider using it when I start learning to script in delphi.

    Kk, GL.

    Update! - Version 1.30
    Includes:
    - New procedures!
    - 1 fix

  11. #36
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    u should add a check for fail safes.. like

    If
    else
    then

    etc...

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  12. #37
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    *cries* why dont you post that before i update */cries* ;P

  13. #38
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by BobboHobbo View Post
    *cries* why dont you post that before i update */cries* ;P
    *hint*1.31*hint*

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  14. #39
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Quote Originally Posted by JuKKa View Post
    *hint*1.31*hint*
    Hint* cbf uploading*

  15. #40
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Add bonus:

    Label
    GoTo

    Here...i added a bunch of new things

    SCAR Code:
    if Information('label') then
      begin
        CountTextInString(LowerCase(ScriptText), 'label', 1, true);
      end else Writeln('Add labels!');
     
      if Information('goto') then
      begin
        CountTextInString(LowerCase(ScriptText), 'goto', 1, true);
      end else Writeln('Add goto commands!');
     
      if Information('for') then
      begin
        CountTextInString(LowerCase(ScriptText), 'for', 1, true);
      end else Writeln('Add for to do loops!');
     
      if Information('while') then
      begin
        CountTextInString(LowerCase(ScriptText), 'while', 1, true);
      end else Writeln('Add while loops!');
     
      if Information('repeat') then
      begin
        CountTextInString(LowerCase(ScriptText), 'repeat', 1, true);
      end else Writeln('Add repeat until loops!');
     
      if Information('case') then
      begin
        CountTextInString(LowerCase(ScriptText), 'case', 1, true);
      end else Writeln('Add case of!');
     
      if Information('terminatescript') then
      begin
        CountTextInString(LowerCase(ScriptText), 'terminatescript', 1, false);
        writeln('remove terminatescript. And add Logout!, if u use multiplayer!');

    this is the whole script

    SCAR Code:
    program New;

    var
      frmDesign: TForm;
      LabelTop: TLabel;
      Label1: TLabel;
      MarkingL: TLabel;
      AnswerL: TLabel;
      PercentL: TLabel;
      ScriptAreaE: TEdit;
      GenerateB: TButton;
      EndMainForm: boolean;
      Memo1: TMemo;
    var
      Scripttext: string;
      I: integer;

    // When the form is closed, this code will be executed.

    procedure MainFormOnClose(Sender: TObject; var Action: TCloseAction);
    begin
      if (not (frmDesign.ModalResult = 1)) then
        EndMainForm := True;
    end;


    function CountTextInString(S, T: string; Worth: integer; plusminus: boolean): Integer; //By Garret. Modded by me :)
    var
      N, tt: Integer;
    begin
      repeat
        TT := TT + 1;
        if PlusMinus then
        begin
          I := I + worth;
        end else
          I := I - worth;
         
        N := Pos(LowerCase(T), LowerCase(S));
        Delete(S, N, Length(T));
        if TT = 3 then
        begin
          break;
        end;
      until (N = 0);
    end;

    function Information(Word: string): boolean;
    begin
      if Pos(lowercase(Word), LowerCase(ScriptText)) > 0 then
      begin
        Result := true;
      end;
    end;

    procedure Generate;
    begin
      ScriptText := Memo1.Text;
      if Information('exit;') then
      begin
        CountTextInString(LowerCase(ScriptText), 'exit;', 1, true);
      end else Writeln('Add exit!');

      if Information('radial') then
      begin
        CountTextInString(LowerCase(ScriptText), 'radial', 7, true);
      end else Writeln('Add radial!');

      if Information('linearwalk') then
      begin
        CountTextInString(LowerCase(ScriptText), 'linear', 6, true);
      end else Writeln('Add linearwalk!');

      if Information('bitmapfromstring') then
      begin
        CountTextInString(LowerCase(ScriptText), 'bitmapfromstring', 5, true);
      end else Writeln('Add bitmapfromstring!');

      if Information('dtmfromstring') then
      begin
        CountTextInString(LowerCase(ScriptText), 'dtmfromstring', 5, true);
      end else Writeln('Add dtmfromstring!');

        if Information('dtmrotated') then
      begin
        CountTextInString(LowerCase(ScriptText), 'dtmrotated', 2, true);
      end else Writeln('Add dtmrotated!');
     
      if Information('finddtm') then
      begin
        CountTextInString(LowerCase(ScriptText), 'finddtm', 1, true);
      end else Writeln('Add finddtm!');

      if Information('tform') then
      begin
        CountTextInString(LowerCase(ScriptText), 'tform', 3, true);
      end else Writeln('Add tform!');

      if Information('fflag(') then
      begin
        CountTextInString(LowerCase(ScriptText), 'fflag(', 2, true);
      end else Writeln('Add fflag!');

      if Information('players') and Information('nextplayer(') then
      begin
        CountTextInString(LowerCase(ScriptText), 'players', 8, true);
      end else Writeln('Add Players!');

      if Information('findfastrandoms') then
      begin
        CountTextInString(LowerCase(ScriptText), 'findfastrandoms', 25, false);
        Writeln('GET RID OF FINDFASTRANDOMS');
      end;

      if Information('{.include srl/srl.scar}') then
      begin
        CountTextInString(LowerCase(ScriptText), '{.include srl\srl.scar}', 5, true);
      end else Writeln('Add SRL!');

      if Information('if(not loggedin)then')then
      begin
        CountTextInString(LowerCase(ScriptText), 'if(not loggedin)then', 5, true);
      end else Writeln('Add if not loggedin then exit!');

      if Information('freedtm') then
      begin
        CountTextInString(LowerCase(ScriptText), 'freedtm', 5, true);
      end else Writeln('Add freedtm!');
     
      if Information('freebitmap') then
      begin
        CountTextInString(LowerCase(ScriptText), 'freebitmap', 5, true);
      end else Writeln('Add freebitmap!');
     
        if Information('freeform') then
      begin
        CountTextInString(LowerCase(ScriptText), 'freeform', 1, true);
      end else Writeln('Add freeform!');

      if Information('clickmouse') then
      begin
        CountTextInString(LowerCase(ScriptText), 'clickmouse', 25, false);
        Writeln('Remove clickmouse!');
      end;
     
      if Information('movemouse') and not Information('sleepandmovemouse') then
      begin
        CountTextInString(LowerCase(ScriptText), 'movemouse', 25, false);
        Writeln('Remove movemouse!');
      end;

      if Information('tdtmpointdef') then
      begin
        CountTextInString(LowerCase(ScriptText), 'tdtmpointdef', 5, true);
      end else Writeln('Add tdtmpointdef!');
     
      if Information('tpa') then
      begin
        CountTextInString(LowerCase(ScriptText), 'tpa', 5, true);
      end else Writeln('Add tpa!');
     
      if Information('walkpath(') then
      begin
        CountTextInString(LowerCase(ScriptText), 'walkpath(', 9, true);
      end else Writeln('Add walkpath!');

      if Information('tpointarray') then
      begin
        CountTextInString(LowerCase(ScriptText), 'tpointarray', 1, true);
      end else Writeln('Add tpointarray!');
     
      if Information('reportvars') then
      begin
        CountTextInString(LowerCase(ScriptText), 'reportvars', 1, true);
      end else Writeln('Add reportvars!');

      if Information('record') then   //Bonus
      begin
        CountTextInString(LowerCase(ScriptText), 'record', 1, true);
      end else Writeln('Add record!');
     
      if Information('tpoint') then
      begin
        CountTextInString(LowerCase(ScriptText), 'tpoint', 3, true);
      end else Writeln('Add tpoint!');
     
      if Information('label') then
      begin
        CountTextInString(LowerCase(ScriptText), 'label', 1, true);
      end else Writeln('Add labels!');
     
      if Information('goto') then
      begin
        CountTextInString(LowerCase(ScriptText), 'goto', 1, true);
      end else Writeln('Add goto commands!');
     
      if Information('for') then
      begin
        CountTextInString(LowerCase(ScriptText), 'for', 1, true);
      end else Writeln('Add for to do loops!');
     
      if Information('while') then
      begin
        CountTextInString(LowerCase(ScriptText), 'while', 1, true);
      end else Writeln('Add while loops!');
     
      if Information('repeat') then
      begin
        CountTextInString(LowerCase(ScriptText), 'repeat', 1, true);
      end else Writeln('Add repeat until loops!');
     
      if Information('case') then
      begin
        CountTextInString(LowerCase(ScriptText), 'case', 1, true);
      end else Writeln('Add case of!');
     
      if Information('terminatescript') then
      begin
        CountTextInString(LowerCase(ScriptText), 'terminatescript', 1, false);
        writeln('remove terminatescript. And add Logout!, if u use multiplayer!');
      end;
     
      AnswerL.Caption := IntToStr(I);
      Writeln('Result = ' + IntToStr(I));
      if I < 50 then
      begin
        writeln('Sorry, Your script isnt SRL-Members Worthy.');
        {writeln('Add Walking (RRW),DTMs, DDTM, Forms,Multiplayer');
        writeln('Or ethier UPDATE YOUR SCRIPT! No ClickMouse');
        writeln('and FindFastRandoms PLEASE.');}

      end else
        Writeln('Apply for members, unless you have cheated this');
    end;

    procedure HandleButtons(Sender: TObject);
    begin
      case Sender of

        generateB: begin
            Generate;
            frmDesign.ModalResult := 1
          end;
      end;
    end;
    // This form was parsed using: DFM Form Parser v.25 by Ron.

    procedure MainForm;
    var
      TimeMainForm: Integer;
    begin
      TimeMainForm := GetSystemTime;
      frmDesign := CreateForm;
      frmDesign.Left := 250;
      frmDesign.Top := 114;
      frmDesign.Width := 741;
      frmDesign.Height := 480;
      frmDesign.Caption := 'frmDesign';
      frmDesign.Color := clBtnFace;
      frmDesign.Font.Color := clWindowText;
      frmDesign.Font.Height := -11;
      frmDesign.Font.Name := 'MS Sans Serif';
      frmDesign.Font.Style := [];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 96;
      LabelTop := TLabel.Create(frmDesign);
      LabelTop.Parent := frmDesign;
      LabelTop.Left := 32;
      LabelTop.Top := 32;
      LabelTop.Width := 543;
      LabelTop.Height := 37;
      LabelTop.Caption := 'SRL-Forums SRL Member Application';
      LabelTop.Font.Color := clWindowText;
      LabelTop.Font.Height := -33;
      LabelTop.Font.Name := 'MS Sans Serif';
      LabelTop.Font.Style := [];
      LabelTop.ParentFont := False;
      MarkingL := TLabel.Create(frmDesign);
      MarkingL.Parent := frmDesign;
      MarkingL.Left := 424;
      MarkingL.Top := 424;
      MarkingL.Width := 73;
      MarkingL.Height := 13;
      MarkingL.Caption := 'Score:';
      AnswerL := TLabel.Create(frmDesign);
      AnswerL.Parent := frmDesign;
      AnswerL.Left := 505;
      AnswerL.Top := 424;
      AnswerL.Width := 16;
      AnswerL.Height := 13;
      AnswerL.Caption := '0';
      PercentL := TLabel.Create(frmDesign);
      PercentL.Parent := frmDesign;
      PercentL.Left := 520;
      PercentL.Top := 424;
      PercentL.Width := 8;
      PercentL.Height := 13;
      PercentL.Caption := '%';

      Memo1 := TMemo.Create(frmDesign);
      Memo1.Parent := frmDesign;
      Memo1.Left := 32;
      Memo1.Top := 128;
      Memo1.Width := 657;
      Memo1.Height := 273;
      Memo1.Lines.Add('Script Here!');
      Memo1.ScrollBars := ssVertical;
      Memo1.TabOrder := 9;
      GenerateB := TButton.Create(frmDesign);
      GenerateB.Parent := frmDesign;
      GenerateB.Left := 536;
      GenerateB.Top := 80;
      GenerateB.Width := 145;
      GenerateB.Height := 41;
      GenerateB.Caption := 'Generate Mark';
      GenerateB.TabOrder := 9;
      generateB.OnClick := @HandleButtons;
      WriteLn('MainForm compiled in ' + IntToStr(GetSystemTime - TimeMainForm) + ' milliseconds!');
    end;

    procedure SafeMainForm;
    var
      V: TVariantArray;
    begin
      SetArrayLength(V, 0);
      ThreadSafeCall('MainForm', V);
    end;

    procedure ShowMainFormModal;
    begin
      frmDesign.ShowModal;
    end;

    procedure SafeShowMainFormModal;
    var
      V: TVariantArray;
    begin
      SetArrayLength(V, 0);
      ThreadSafeCall('ShowMainFormModal', V);
    end;

    procedure MainMainForm;
    begin
      try
        SafeMainForm;
        SafeShowMainFormModal;
      finally
        FreeForm(frmDesign);
      except
        WriteLn('An error seems to have occurred in: MainForm');
      end;
    end;

    begin
      ClearDebug;
      MainMainForm;
      if (EndMainForm) then
        TerminateScript;
    end.

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  16. #41
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

  17. #42
    Join Date
    May 2006
    Posts
    702
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Nice

    Code:
    MainForm compiled in 10 milliseconds!
    Result = 132
    Apply for members, unless you have cheated this
    Successfully executed

    1-99 fletching from pure autoing

    My account unlocks: 92 mage 90 range lvl 80 | 94 mage 87 range lvl 91 | 85 mining lvl 41 | Rich lvl 65

  18. #43
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    MainForm compiled in 31 milliseconds!
    Result = 85
    Apply for members, unless you have cheated this
    Successfully executed

    I find that sad my caver only got an 85


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  19. #44
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OH YEA! my WCer got an 80. OWNAGE! Better than the -13 I got last time .

    EDIT: My forms for WC script I am working on got an 11 alone.

  20. #45
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Nice, i accutally see this is working, havent got an appliance for members in like 2 days

  21. #46
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yea I dont plan on applying for a while. I want to first get my awesome forms working and also my check for broken axe / get new one. Otherwise tbh I don't care too much anymore if I'm members or not. I just want to program. Members to me is now more like a certificate that I can decently script, allowing me to move on to VB then later Java.

  22. #47
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Quote Originally Posted by osmm View Post
    Yea I dont plan on applying for a while. I want to first get my awesome forms working and also my check for broken axe / get new one. Otherwise tbh I don't care too much anymore if I'm members or not. I just want to program. Members to me is now more like a certificate that I can decently script, allowing me to move on to VB then later Java.
    No bitch u stay with SCAR ill smack u silly!

  23. #48
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Ill smack you aswell.

    Wow my guildminer got this with jukka's one

    SCAR Code:
    Result = 107
    Apply for members, unless you have cheated this
    Successfully executed

  24. #49
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    just a hint.. u should make it minus some points if u dont have stuff like findnormalrandoms, multiplayer etc.

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  25. #50
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    Nice idea, ill make a new version with your other stuff to in a sec, gotta do something.

    EDIT** Done, now new version. ENJOY!

Page 2 of 6 FirstFirst 1234 ... LastLast

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
  •