Results 1 to 8 of 8

Thread: Is There Some L33t form maker? Who can..

  1. #1
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Is There Some L33t form maker? Who can..

    Make A Form For Me Within 5 hour from when i posted this post 0.o?

    Kotsz@live.nl

    Thank You
    Hermpie
    ~Hermen

  2. #2
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    No. Do it yourself lazy!

    Nava2
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

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

    Default

    Scar > Tools > Form Editor, save it.
    Ron's DFM Parser > paste > Done!

  4. #4
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default



    SCAR Code:
    program New;

    var
     frmDesign : TForm;
      Label1 : TLabel;
      Label2 : TLabel;
      Label3 : TLabel;
      Label4 : TLabel;
      Label5 : TLabel;
      Label6 : TLabel;
      Label7 : TLabel;
      Label8 : TLabel;
      Label9 : TLabel;
      Label10 : TLabel;
      Edit1 : TEdit;
      Edit2 : TEdit;
      Edit3 : TEdit;
      Edit4 : TEdit;
      Edit5 : TEdit;
      Edit6 : TEdit;
      Edit7 : TEdit;
      Edit8 : TEdit;
      Edit9 : TEdit;
      Edit10 : TEdit;
      Edit11 : TEdit;
      Edit12 : TEdit;
      Edit13 : TEdit;
      Edit14 : TEdit;
      Edit15 : TEdit;
      Edit16 : TEdit;
      Edit17 : TEdit;
      Edit18 : TEdit;
      Edit19 : TEdit;
      Edit20 : TEdit;
     
    Procedure InitForm;
    Begin
    frmDesign := CreateForm;
    frmDesign.Left := 250;
    frmDesign.Top := 114;
    frmDesign.Width := 339;
    frmDesign.Height := 413;
    frmDesign.Caption := 'frmDesign';
    frmDesign.Color := clBlack;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := False;
    frmDesign.PixelsPerInch := 96;
    Label1 := TLabel.Create(frmDesign);
    Label1.Parent := frmDesign;
    Label1.Left := 32;
    Label1.Top := 24;
    Label1.Width := 284;
    Label1.Height := 52;
    Label1.Caption := 'Hermpie';
    Label1.Font.Color := clFuchsia;
    Label1.Font.Height := -64;
    Label1.Font.Name := 'Super Mario Bros.';
    Label1.Font.Style := [];
    Label1.ParentFont := False;
    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 56;
    Label2.Top := 80;
    Label2.Width := 222;
    Label2.Height := 20;
    Label2.Caption := ' Monastery Monk Killer + Healer';
    Label2.Font.Color := clFuchsia;
    Label2.Font.Height := -16;
    Label2.Font.Name := 'MS Sans Serif';
    Label2.Font.Style := [];
    Label2.ParentFont := False;
    Label3 := TLabel.Create(frmDesign);
    Label3.Parent := frmDesign;
    Label3.Left := 232;
    Label3.Top := 128;
    Label3.Width := 36;
    Label3.Height := 13;
    Label3.Caption := 'Const 1';
    Label3.Font.Color := clFuchsia;
    Label3.Font.Height := -11;
    Label3.Font.Name := 'MS Sans Serif';
    Label3.Font.Style := [];
    Label3.ParentFont := False;
    Label4 := TLabel.Create(frmDesign);
    Label4.Parent := frmDesign;
    Label4.Left := 232;
    Label4.Top := 152;
    Label4.Width := 36;
    Label4.Height := 13;
    Label4.Caption := 'Const 2';
    Label4.Font.Color := clFuchsia;
    Label4.Font.Height := -11;
    Label4.Font.Name := 'MS Sans Serif';
    Label4.Font.Style := [];
    Label4.ParentFont := False;
    Label5 := TLabel.Create(frmDesign);
    Label5.Parent := frmDesign;
    Label5.Left := 232;
    Label5.Top := 176;
    Label5.Width := 36;
    Label5.Height := 13;
    Label5.Caption := 'Const 3';
    Label5.Font.Color := clFuchsia;
    Label5.Font.Height := -11;
    Label5.Font.Name := 'MS Sans Serif';
    Label5.Font.Style := [];
    Label5.ParentFont := False;
    Label6 := TLabel.Create(frmDesign);
    Label6.Parent := frmDesign;
    Label6.Left := 232;
    Label6.Top := 200;
    Label6.Width := 36;
    Label6.Height := 13;
    Label6.Caption := 'Const 4';
    Label6.Font.Color := clFuchsia;
    Label6.Font.Height := -11;
    Label6.Font.Name := 'MS Sans Serif';
    Label6.Font.Style := [];
    Label6.ParentFont := False;
    Label7 := TLabel.Create(frmDesign);
    Label7.Parent := frmDesign;
    Label7.Left := 24;
    Label7.Top := 104;
    Label7.Width := 38;
    Label7.Height := 13;
    Label7.Caption := 'Player 1';
    Label7.Font.Color := clFuchsia;
    Label7.Font.Height := -11;
    Label7.Font.Name := 'MS Sans Serif';
    Label7.Font.Style := [];
    Label7.ParentFont := False;
    Label8 := TLabel.Create(frmDesign);
    Label8.Parent := frmDesign;
    Label8.Left := 24;
    Label8.Top := 224;
    Label8.Width := 38;
    Label8.Height := 13;
    Label8.Caption := 'Player 3';
    Label8.Font.Color := clFuchsia;
    Label8.Font.Height := -11;
    Label8.Font.Name := 'MS Sans Serif';
    Label8.Font.Style := [];
    Label8.ParentFont := False;
    Label9 := TLabel.Create(frmDesign);
    Label9.Parent := frmDesign;
    Label9.Left := 136;
    Label9.Top := 104;
    Label9.Width := 38;
    Label9.Height := 13;
    Label9.Caption := 'Player 2';
    Label9.Font.Color := clFuchsia;
    Label9.Font.Height := -11;
    Label9.Font.Name := 'MS Sans Serif';
    Label9.Font.Style := [];
    Label9.ParentFont := False;
    Label10 := TLabel.Create(frmDesign);
    Label10.Parent := frmDesign;
    Label10.Left := 136;
    Label10.Top := 224;
    Label10.Width := 38;
    Label10.Height := 13;
    Label10.Caption := 'Player 4';
    Label10.Font.Color := clFuchsia;
    Label10.Font.Height := -11;
    Label10.Font.Name := 'MS Sans Serif';
    Label10.Font.Style := [];
    Label10.ParentFont := False;
    Edit1 := TEdit.Create(frmDesign);
    Edit1.Parent := frmDesign;
    Edit1.Left := 16;
    Edit1.Top := 120;
    Edit1.Width := 89;
    Edit1.Height := 21;
    Edit1.Color := clFuchsia;
    Edit1.TabOrder := 8;
    Edit1.Text := 'Edit1';
    Edit2 := TEdit.Create(frmDesign);
    Edit2.Parent := frmDesign;
    Edit2.Left := 16;
    Edit2.Top := 144;
    Edit2.Width := 89;
    Edit2.Height := 21;
    Edit2.Color := clFuchsia;
    Edit2.TabOrder := 9;
    Edit2.Text := 'Edit2';
    Edit3 := TEdit.Create(frmDesign);
    Edit3.Parent := frmDesign;
    Edit3.Left := 16;
    Edit3.Top := 168;
    Edit3.Width := 89;
    Edit3.Height := 21;
    Edit3.Color := clFuchsia;
    Edit3.TabOrder := 10;
    Edit3.Text := 'Edit3';
    Edit4 := TEdit.Create(frmDesign);
    Edit4.Parent := frmDesign;
    Edit4.Left := 16;
    Edit4.Top := 192;
    Edit4.Width := 89;
    Edit4.Height := 21;
    Edit4.Color := clFuchsia;
    Edit4.TabOrder := 11;
    Edit4.Text := 'Edit4';
    Edit5 := TEdit.Create(frmDesign);
    Edit5.Parent := frmDesign;
    Edit5.Left := 272;
    Edit5.Top := 120;
    Edit5.Width := 49;
    Edit5.Height := 21;
    Edit5.Color := clFuchsia;
    Edit5.TabOrder := 12;
    Edit5.Text := 'Edit5';
    Edit6 := TEdit.Create(frmDesign);
    Edit6.Parent := frmDesign;
    Edit6.Left := 272;
    Edit6.Top := 144;
    Edit6.Width := 49;
    Edit6.Height := 21;
    Edit6.Color := clFuchsia;
    Edit6.TabOrder := 13;
    Edit6.Text := 'Edit6';
    Edit7 := TEdit.Create(frmDesign);
    Edit7.Parent := frmDesign;
    Edit7.Left := 272;
    Edit7.Top := 168;
    Edit7.Width := 49;
    Edit7.Height := 21;
    Edit7.Color := clFuchsia;
    Edit7.TabOrder := 14;
    Edit7.Text := 'Edit7';
    Edit8 := TEdit.Create(frmDesign);
    Edit8.Parent := frmDesign;
    Edit8.Left := 272;
    Edit8.Top := 192;
    Edit8.Width := 49;
    Edit8.Height := 21;
    Edit8.Color := clFuchsia;
    Edit8.TabOrder := 15;
    Edit8.Text := 'Edit8';
    Edit9 := TEdit.Create(frmDesign);
    Edit9.Parent := frmDesign;
    Edit9.Left := 16;
    Edit9.Top := 240;
    Edit9.Width := 89;
    Edit9.Height := 21;
    Edit9.Color := clFuchsia;
    Edit9.TabOrder := 16;
    Edit9.Text := 'Edit9';
    Edit10 := TEdit.Create(frmDesign);
    Edit10.Parent := frmDesign;
    Edit10.Left := 16;
    Edit10.Top := 264;
    Edit10.Width := 89;
    Edit10.Height := 21;
    Edit10.Color := clFuchsia;
    Edit10.TabOrder := 17;
    Edit10.Text := 'Edit10';
    Edit11 := TEdit.Create(frmDesign);
    Edit11.Parent := frmDesign;
    Edit11.Left := 16;
    Edit11.Top := 288;
    Edit11.Width := 89;
    Edit11.Height := 21;
    Edit11.Color := clFuchsia;
    Edit11.TabOrder := 18;
    Edit11.Text := 'Edit11';
    Edit12 := TEdit.Create(frmDesign);
    Edit12.Parent := frmDesign;
    Edit12.Left := 16;
    Edit12.Top := 312;
    Edit12.Width := 89;
    Edit12.Height := 21;
    Edit12.Color := clFuchsia;
    Edit12.TabOrder := 19;
    Edit12.Text := 'Edit12';
    Edit13 := TEdit.Create(frmDesign);
    Edit13.Parent := frmDesign;
    Edit13.Left := 128;
    Edit13.Top := 192;
    Edit13.Width := 89;
    Edit13.Height := 21;
    Edit13.Color := clFuchsia;
    Edit13.TabOrder := 20;
    Edit13.Text := 'Edit12';
    Edit14 := TEdit.Create(frmDesign);
    Edit14.Parent := frmDesign;
    Edit14.Left := 128;
    Edit14.Top := 168;
    Edit14.Width := 89;
    Edit14.Height := 21;
    Edit14.Color := clFuchsia;
    Edit14.TabOrder := 21;
    Edit14.Text := 'Edit11';
    Edit15 := TEdit.Create(frmDesign);
    Edit15.Parent := frmDesign;
    Edit15.Left := 128;
    Edit15.Top := 144;
    Edit15.Width := 89;
    Edit15.Height := 21;
    Edit15.Color := clFuchsia;
    Edit15.TabOrder := 22;
    Edit15.Text := 'Edit10';
    Edit16 := TEdit.Create(frmDesign);
    Edit16.Parent := frmDesign;
    Edit16.Left := 128;
    Edit16.Top := 120;
    Edit16.Width := 89;
    Edit16.Height := 21;
    Edit16.Color := clFuchsia;
    Edit16.TabOrder := 23;
    Edit16.Text := 'Edit9';
    Edit17 := TEdit.Create(frmDesign);
    Edit17.Parent := frmDesign;
    Edit17.Left := 128;
    Edit17.Top := 240;
    Edit17.Width := 89;
    Edit17.Height := 21;
    Edit17.Color := clFuchsia;
    Edit17.TabOrder := 24;
    Edit17.Text := 'Edit9';
    Edit18 := TEdit.Create(frmDesign);
    Edit18.Parent := frmDesign;
    Edit18.Left := 128;
    Edit18.Top := 264;
    Edit18.Width := 89;
    Edit18.Height := 21;
    Edit18.Color := clFuchsia;
    Edit18.TabOrder := 25;
    Edit18.Text := 'Edit10';
    Edit19 := TEdit.Create(frmDesign);
    Edit19.Parent := frmDesign;
    Edit19.Left := 128;
    Edit19.Top := 288;
    Edit19.Width := 89;
    Edit19.Height := 21;
    Edit19.Color := clFuchsia;
    Edit19.TabOrder := 26;
    Edit19.Text := 'Edit11';
    Edit20 := TEdit.Create(frmDesign);
    Edit20.Parent := frmDesign;
    Edit20.Left := 128;
    Edit20.Top := 312;
    Edit20.Width := 89;
    Edit20.Height := 21;
    Edit20.Color := clFuchsia;
    Edit20.TabOrder := 27;
    Edit20.Text := 'Edit12';
    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.

    took 10 mins

  5. #5
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    If that is the mairo font then it wont work on many computers

    Edit:It is that font. it works on mine because I used rays game.

  6. #6
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    dont use that!!! the code!! its so...ugly!(no offense )
    when i get back i need to fix it! So no one touch it!(ill edit this post when i get back)
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  7. #7
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    he can change that font its one line in the script?

    Edit: meh at least i did it for him

  8. #8
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I can make one if you want...

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. TPA Maker!
    By BazzBarrett in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 09-15-2008, 11:28 AM
  2. Ok lil help on my (unf) maker?
    By mikevskater in forum OSR Help
    Replies: 4
    Last Post: 03-17-2008, 12:23 PM
  3. Jewelry maker?????
    By deathcrow in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 11-27-2007, 10:06 PM
  4. L33t movie site yo
    By ctown in forum Misc. Links and Programs
    Replies: 1
    Last Post: 09-21-2007, 08:48 PM
  5. Looking for sig maker!
    By kooldude in forum Semi Stupid Pictures
    Replies: 7
    Last Post: 08-12-2007, 03:43 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
  •