Results 1 to 11 of 11

Thread: First script in a long while

  1. #1
    Join Date
    Jul 2007
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default First script in a long while

    test out this script, you dont need to be running RS just load it and push play to tell me if it works on your version of scar too, i just dont wanna take days to make a script and then nobody can use it lol. thanks to those who will actually try it out.

    SCAR Code:
    { Made by Sukomabawls as a test to begin scripting again, i'm a little rusty!}
     // Be sure to read the bottom box after pushing button!!
    program new;
    var
      frmDesign : TForm;
      Button1 : TButton;

    procedure buttonclick(sender: TObject);
    begin
      Writeln('If you are reading this then it worked!!');
      frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
    end;

    procedure InitForm;
    begin
      frmDesign := CreateForm;
      frmDesign.Left := 259;
      frmDesign.Top := 132;
      frmDesign.Width := 354;
      frmDesign.Height := 254;
      frmDesign.Caption := 'My first script in a while'; // Yes, you do!!!
      frmDesign.Color := 13222846;
      frmDesign.Font.Color := 16580865;
      frmDesign.Font.Height := -11;
      frmDesign.Font.Name := 'MS Sans Serif';
      frmDesign.Font.Style := [];
      frmDesign.Visible := false;
      frmDesign.PixelsPerInch := 96;
      Button1 := TButton.Create(frmDesign);
      Button1.OnClick:= @buttonclick;
      Button1.Parent := frmDesign;
      Button1.Left := 69;
      Button1.Top := 61;
      Button1.Width := 200;
      Button1.Height := 25;
      Button1.Caption := 'Press to test my script!'; //you know you wanna press it
      Button1.TabOrder := 8;
    end;

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

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

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

    begin
      SafeInitForm;
      SafeShowFormModal;
    end.

  2. #2
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Yea it works. Why wouldn't it. Forms have been in SCAR for a long time...

  3. #3
    Join Date
    Jul 2007
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just seeing if there would be any unkown indentifiers or anything gay, i'm sure you know how SCAR can act sometimes.

  4. #4
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    In this particular script everything should be fine for most SCAR versions.

  5. #5
    Join Date
    Jan 2007
    Location
    Skaville, Jamaica
    Posts
    1,117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah it works. I'm just learning about forms from SantaClause, too . He's taught me some really cool stuff, like how to make it so that when you type something into an edit box, the same thing comes out on a Button and other cool things.

  6. #6
    Join Date
    Jul 2007
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Glad to hear that, now i'll begin making usefull scripts again, think i'll do an auto fighter first.

  7. #7
    Join Date
    Mar 2007
    Posts
    674
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    It will work, lol.

    I did try it

  8. #8
    Join Date
    Jun 2007
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah it works make some scripts!!

    ill be usin lol

  9. #9
    Join Date
    Jan 2008
    Posts
    168
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It Worked and it whas a fun Script relaly i just spammed with it just clicking run everytime its Fun Lol
    Jagex Failed



























    FagetHax0r

  10. #10
    Join Date
    Mar 2008
    Location
    Indiana
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice Grave Dig.... (Post before : 11-24-2007)

    Don't worry i have done this before on accident too...

    Close, delete please

  11. #11
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    although the last post was 11/24/07 it still works.. so its not like hes posting on a script for SCAR 3.04 or something :\

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Little Java script that shows the time and how long it's running :)
    By pointer in forum Java Help and Tutorials
    Replies: 3
    Last Post: 04-11-2008, 07:01 PM
  2. Auto Long-In (first script)
    By xelfarcherdv in forum First Scripts
    Replies: 2
    Last Post: 01-06-2008, 08:00 AM
  3. Replies: 8
    Last Post: 12-04-2007, 04:19 PM
  4. how long to run a script for
    By slacky001 in forum OSR Help
    Replies: 5
    Last Post: 01-09-2007, 10:07 PM

Posting Permissions

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