Results 1 to 9 of 9

Thread: Paying 100k for a form! I'm lazy.. (Read inside)

  1. #1
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Paying 100k for a form! I'm lazy.. (Read inside)

    Title says it all basically... Im too lazy to make my own form, i always hated making them...

    List of things i would like in the form:

    - Unlimited amount of players(Look at SRLPlayerForm if you don't know what im talking about)
    - Checkbox next to it saying "Active".
    - For the unlimited amount of players thing, this is my declare players procedure:
    SCAR Code:
    Players[0].Name := 'lazydude67'; //Username
      Players[0].Pass := '';     //Password
      Players[0].Integers[0] := 15;     //Loads to do..
      Players[0].Integers[1] := 300; //Time to stay logged in.
      Players[0].Integers[2] := 300; //Time to remain logged out.
      Players[0].Strings[0] := '';   //Bank pin. If none, leave blank.
      Players[0].Strings[1] := 'Shrimp';
      Players[0].Active := True; //Is the player active?

    - A News box on the side.
    - Debug combobox with these options:

    Code:
    Title Bar
    Writeln
    Status
    All
    And if i think of anything else i will post here... The person whose form i like the most will get 100k. If you really want to win the 100k throw something extra into your form. Let the competition begin!

    (If i'm not allowed to give out 100k to the winner of these "competition" please notify me via PM mods/admins.)

  2. #2
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    well, you're not allowed to buy or sell scripts. but this isnt really the same thing, so in my opinion you should be allowed to do this but how will you transfer the cash? do you have like eye of newts or something? anyways, good luck.


    ^LOL^

  3. #3
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah.. i have an eye of newts script and then i just put the money on the account.. and i will give you my account..

  4. #4
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    KICK! Anyone?

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

    Default

    I'll try in a second. Any like loads variables or anything like that?

    Edit: Dur, I'll try now.

  6. #6
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, i need an edit box for loads and a blank one, with dont touch next to it.. Ignore my DeclarePlayers procedure above. I'll post new one.

    SCAR Code:
    Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
      Players[0].Booleans[0] := True;//Re-incarnate?
      Players[0].Integers[0] := 5;//loads
      Players[0].Integers[1] := 0;//dont touch
      Players[0].Strings[0] := '';//bank pin
      Players[0].Strings[1] := 'Shrimp';//fish to cook:

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

    Default

    SCAR Code:
    {.include SRL\SRL.scar}
    //alot of credit to rsn
    var
      cUser: Integer;
      Form1: TForm;
      Label1, Label2, Label4, Label5, lblUser: TLabel;
      gbControl: TGroupBox;
      btnBack, btnNext, btnCreate, btnDelete: TButton;
      edUser, edPass, edNick: TEdit;
      cbActive, cbDebug: TComboBox;
      Memo1:TMemo;

    procedure AddUser;
    begin
      SetArrayLength(Players, GetArrayLength(Players) + 1);
      Players[High(Players)].Name := 'New Name';
      Players[High(Players)].Pass := 'New Pass';
      Players[High(Players)].Nick := 'New Nick';
      Players[High(Players)].Active := True;
      {Players[High(Players)].Booleans[0] := True;//Re-incarnate?
      Players[High(Players)].Integers[0] := 5;//loads
      Players[High(Players)].Integers[1] := 0;//dont touch
      Players[High(Players)].Strings[0] := '';//bank pin
      Players[High(Players)].Strings[1] := 'Shrimp';//fish to cook}

    end;

    procedure Inititate(Sender: TObject);
    begin
      lblUser.Caption := 'Player Number: '+IntToStr(cUser);
      Players[cUser].Nick := edNick.Text;
      Players[cUser].Name := edUser.Text;
      Players[cUser].Pass := edPass.Text;
      if (cbActive.Text = 'True') then
        Players[cUser].Active := True
      else
        Players[cUser].Active := False;
      cUser := GetArrayLength(Players) - 1;
    end;

    procedure CreateUser(Sender: TObject);
    begin
      Players[cUser].Nick := edNick.Text;
      Players[cUser].Name := edUser.Text;
      Players[cUser].Pass := edPass.Text;
      if (cbActive.Text = 'True') then
        Players[cUser].Active := True
      else
        Players[cUser].Active := False;
      AddUser;
      cUser := GetArrayLength(Players) - 1;
      lblUser.Caption := 'Player Number: '+IntToStr(cUser);
      edNick.Text := Players[cUser].Nick;
      edUser.Text := Players[cUser].Name;
      edPass.Text := Players[cUser].Pass;
      if (Players[cUser].Active) then
        cbActive.Text := 'True'
      else
        cbActive.Text := 'False';
    end;

    procedure ForwardUser(Sender: TObject);
    begin
      Players[cUser].Nick := edNick.Text;
      Players[cUser].Name := edUser.Text;
      Players[cUser].Pass := edPass.Text;
      if (cbActive.Text = 'True') then
        Players[cUser].Active := True
      else
        Players[cUser].Active := False;
      if (cUser + 1 > GetArrayLength(Players) - 1) then
        cUser := 0
      else
        cUser := cUser + 1;
      lblUser.Caption := 'Player Number: '+IntToStr(cUser);
      edNick.Text := Players[cUser].Nick;
      edUser.Text := Players[cUser].Name;
      edPass.Text := Players[cUser].Pass;
      if (Players[cUser].Active) then
        cbActive.Text := 'True'
      else
        cbActive.Text := 'False';
    end;

    procedure BackUser(Sender: TObject);
    begin
      Players[cUser].Nick := edNick.Text;
      Players[cUser].Name := edUser.Text;
      Players[cUser].Pass := edPass.Text;
      if (cbActive.Text = 'True') then
        Players[cUser].Active := True
      else
        Players[cUser].Active := False;
      if (cUser - 1 < 0) then
        cUser := GetArrayLength(Players) - 1
      else
        cUser := cUser - 1;
      lblUser.Caption := 'Player Number: '+IntToStr(cUser);
      edNick.Text := Players[cUser].Nick;
      edUser.Text := Players[cUser].Name;
      edPass.Text := Players[cUser].Pass;
      if (Players[cUser].Active) then
        cbActive.Text := 'True'
      else
        cbActive.Text := 'False';
    end;

    procedure DeleteUser(Sender: TObject);
    var
      lo, na, ni: string;
      ac: Boolean;
    begin
      lo := Players[GetArrayLength(Players) - 1].Loc;
      na := Players[GetArrayLength(Players) - 1].Name;
      ni := Players[GetArrayLength(Players) - 1].Nick;
      ac := Players[GetArrayLength(Players) - 1].Active;
      Players[cUser].Loc := lo;
      Players[cUser].Name := na;
      Players[cUser].Nick := ni;
      Players[cUser].Active := ac;
      SetArrayLength(Players, GetArrayLength(Players) - 1);
      if (cUser + 1 > GetArrayLength(Players) - 1) then
        cUser := 0
      else
        cUser := cUser + 1;
      lblUser.Caption := 'Player Number: '+IntToStr(cUser);
      edNick.Text := Players[cUser].Nick;
      edUser.Text := Players[cUser].Name;
      edPass.Text := Players[cUser].Pass;
      if (Players[cUser].Active) then
        cbActive.Text := 'True'
      else
        cbActive.Text := 'False';
    end;

    procedure Start(Sender: TObject);
    begin
      lblUser.Caption := 'Player Number: '+IntToStr(cUser);
      edNick.Text := Players[cUser].Nick;
      edUser.Text := Players[cUser].Name;
      edPass.Text := Players[cUser].Pass;
      if (Players[cUser].Active) then
        cbActive.Text := 'True'
      else
        cbActive.Text := 'False';
    end;

    procedure LoadForm;
    begin
      Form1 := CreateForm;
      Form1.Left := 254;
      Form1.Top := 107;
      Form1.Width := 285;
      Form1.Height := 350;
      Form1.Caption := 'Form';
      Form1.Color := clBtnFace;
      Form1.Font.Color := clWindowText;
      Form1.Font.Height := -11;
      Form1.Font.Name := 'MS Sans Serif';
      Form1.Font.Style := [];
      Form1.Visible := False;
      Form1.PixelsPerInch := 96;
      Form1.OnShow := @Start;
      Label1 := TLabel.Create(Form1);
      Label1.Parent := Form1;
      Label1.Left := 4;
      Label1.Top := 25;
      Label1.Width := 51;
      Label1.Height := 13;
      Label1.Caption := 'Username:';
      Label2 := TLabel.Create(Form1);
      Label2.Parent := Form1;
      Label2.Left := 4;
      Label2.Top := 61;
      Label2.Width := 49;
      Label2.Height := 13;
      Label2.Caption := 'Password:';
      Label4 := TLabel.Create(Form1);
      Label4.Parent := Form1;
      Label4.Left := 4;
      Label4.Top := 93;
      Label4.Width := 25;
      Label4.Height := 13;
      Label4.Caption := 'Nick:';
      Label5 := TLabel.Create(Form1);
      Label5.Parent := Form1;
      Label5.Left := 4;
      Label5.Top := 129;
      Label5.Width := 33;
      Label5.Height := 13;
      Label5.Caption := 'Active:';
      lblUser := TLabel.Create(Form1);
      lblUser.Parent := Form1;
      lblUser.Left := 4;
      lblUser.Top := 5;
      lblUser.Width := 32;
      lblUser.Height := 13;
      lblUser.Transparent := False;
      gbControl := TGroupBox.Create(Form1);
      gbControl.Parent := Form1;
      gbControl.Left := 4;
      gbControl.Top := 150;
      gbControl.Width := 272;
      gbControl.Height := 58;
      gbControl.Caption := ' Control ';
      gbControl.TabOrder := 0;
      btnBack := TButton.Create(gbControl);
      btnBack.Parent := gbControl;
      btnBack.Left := 12;
      btnBack.Top := 22;
      btnBack.Width := 45;
      btnBack.Height := 25;
      btnBack.Caption := 'Last';
      btnBack.TabOrder := 0;
      btnBack.OnClick := @BackUser;
      btnNext := TButton.Create(gbControl);
      btnNext.Parent := gbControl;
      btnNext.Left := 216;
      btnNext.Top := 23;
      btnNext.Width := 45;
      btnNext.Height := 25;
      btnNext.Caption := 'Next';
      btnNext.TabOrder := 1;
      btnNext.OnClick := @ForwardUser;
      btnCreate := TButton.Create(gbControl);
      btnCreate.Parent := gbControl;
      btnCreate.Left := 138;
      btnCreate.Top := 22;
      btnCreate.Width := 75;
      btnCreate.Height := 25;
      btnCreate.Caption := 'Create';
      btnCreate.TabOrder := 2;
      btnCreate.OnClick := @CreateUser;
      btnDelete := TButton.Create(gbControl);
      btnDelete.Parent := gbControl;
      btnDelete.Left := 59;
      btnDelete.Top := 22;
      btnDelete.Width := 75;
      btnDelete.Height := 25;
      btnDelete.Caption := 'Delete';
      btnDelete.OnClick := @DeleteUser;
      btnDelete.TabOrder := 3;
      edUser := TEdit.Create(Form1);
      edUser.Parent := Form1;
      edUser.Left := 60;
      edUser.Top := 23;
      edUser.Width := 121;
      edUser.Height := 21;
      edUser.TabOrder := 9;
      edPass := TEdit.Create(Form1);
      edPass.Parent := Form1;
      edPass.Left := 60;
      edPass.Top := 59;
      edPass.Width := 121;
      edPass.Height := 21;
      edPass.TabOrder := 10;
      edNick := TEdit.Create(Form1);
      edNick.Parent := Form1;
      edNick.Left := 60;
      edNick.Top := 93;
      edNick.Width := 121;
      edNick.Height := 21;
      edNick.TabOrder := 12;
      cbActive := TComboBox.Create(Form1);
      cbActive.Parent := Form1;
      cbActive.Left := 60;
      cbActive.Top := 129;
      cbActive.Width := 122;
      cbActive.Height := 21;
      cbActive.DropDownCount := 2;
      cbActive.ItemHeight := 13;
      cbActive.TabOrder := 13;
      cbActive.Text := 'True';
      cbActive.Items.Add('True');
      cbActive.Items.Add('False');
      cbDebug := TComboBox.Create(Form1);
      cbDebug.Parent := Form1;
      cbDebug.Left := 4;
      cbDebug.Top := 292;
      cbDebug.Width := 270;
      cbDebug.Height := 21;
      cbDebug.TabOrder := 13;
      cbDebug.Text := 'Debug';
      cbDebug.Items.Add('Title Bar');
      cbDebug.Items.Add('Writeln');
      cbDebug.Items.Add('Status');
      cbDebug.Items.Add('All');
      Memo1 := TMemo.Create(Form1);
      Memo1.Parent := Form1;
      Memo1.Left := 4;
      Memo1.Top := 210;
      Memo1.Width := 270;
      Memo1.Height := 80;
      Memo1.Lines.Add('News:');
    end;

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

    procedure ShowFormModal;
    begin
      Form1.ShowModal;
    end;

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

    begin
      AddUser;
      TheForm;
      TehForm;
    end.
    Thats what I got so far. Like it?

  8. #8
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, except there needs to be more options, like in the DeclarePlayers procedure. And if you could make it load and save the users that would be cool too.. Also, place the News box on the right of DeclarePlayers stuff, and Debug box underneath that?

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

    Default

    Well, I redid the form, as that one was bitchy. So here is the new one. It only needs the add/remove buttons now.
    SCAR Code:
    program New;
    var
      PageControl1, PageControl2 : TPageControl;
      TabPages : array[0..1]of array[0..1] of TTabSheet;
      EndForm : Boolean;
      frmDesign : TForm;
      GroupBox1 : TGroupBox;
      Edit1, Edit2, Edit3, Edit4, Edit5:TEdit;
      CheckBox1, CheckBox2 : TCheckBox;
      ComboBox1 : TComboBox;
      Button1, Button2 : TButton;
      cbDebug:TComboBox;
      Memo1:TMemo;

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

    procedure Form;
    begin
      frmDesign := CreateForm;
      with frmDesign do
      begin
        OnClose := @FormOnClose;
        Position := poScreenCenter;
        BorderStyle := bsSingle;
        BorderIcons := [biMinimize,biSystemMenu];
        ClientWidth := 171;
        ClientHeight := 300;
        Caption := 'frmDesign';
        Color := clBtnFace;
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'MS Sans Serif';
        Font.Style := [];
        PixelsPerInch := 96;
      end;
      PageControl1 := TPageControl.Create(frmDesign);
      With PageControl1 do
      begin
        Parent := frmDesign;
        Align := alClient;
      end;
      TabPages[0][0] := TTabSheet.Create(frmDesign);
      with TabPages[0][0] do
      begin
        Caption := 'Main';
        PageControl := PageControl1;
      end;
      TabPages[0][1] := TTabSheet.Create(frmDesign);
      with TabPages[0][1] do
      begin
        Caption := 'Players';
        PageControl := PageControl1;
      end;
      PageControl2 := TPageControl.Create(frmDesign);
      With PageControl2 do
      begin
        Parent := TabPages[0][1];
        Align := alClient;
      end;
      TabPages[1][0] := TTabSheet.Create(frmDesign);
      with TabPages[1][0] do
      begin
        Caption := 'Player 1';
        PageControl := PageControl2;
      end;
      cbDebug := TComboBox.Create(frmDesign);
      with cbDebug do
      begin
        Parent := TabPages[0][0];
        Left := 4;
        Top := 250;
        Width := 155;
        Height := 21;
        TabOrder := 13;
        Text := 'Debug';
        with cbDebug.Items do
        begin
          Add('Title Bar');
          Add('Writeln');
          Add('Status');
          Add('All');
        end;
      end;
      Memo1 := TMemo.Create(frmDesign);
      With Memo1 do
      begin
        Parent := TabPages[0][0];
        Left := 4;
        Top := 1;
        Width := 155;
        Height := 240;
        with Memo1.lines do
        begin
          Add('News:');
        end;
      end;
      GroupBox1 := TGroupBox.Create(frmDesign);
      with GroupBox1 do
      begin
        Parent := TabPages[1][0];
        Left := 0;
        Top := 38;
        Width := 155;
        Height := 202;
        Caption := 'Player';
        TabOrder := 0;
      end;
      Edit1 := TEdit.Create(GroupBox1);
      with Edit1 do
      begin
        Parent := GroupBox1;
        Left := 8;
        Top := 16;
        Width := 140;
        Height := 21;
        TabOrder := 0;
        Text := 'User';
      end;
      Edit2 := TEdit.Create(GroupBox1);
      with Edit2 do
      begin
        Parent := GroupBox1;
        Left := 8;
        Top := 40;
        Width := 140;
        Height := 21;
        TabOrder := 1;
        Text := 'Pass';
      end;
      Edit3 := TEdit.Create(GroupBox1);
      with Edit3 do
      begin
        Parent := GroupBox1;
        Left := 8;
        Top := 64;
        Width := 140;
        Height := 21;
        TabOrder := 2;
        Text := 'Nick';
      end;
      CheckBox1 := TCheckBox.Create(GroupBox1);
      with CheckBox1 do
      begin
        Parent := GroupBox1;
        Left := 8;
        Top := 184;
        Width := 49;
        Height := 17;
        Caption := 'Active';
        Checked := True;
        State := cbChecked;
        TabOrder := 3;
      end;
      CheckBox2 := TCheckBox.Create(GroupBox1);
      with CheckBox2 do
      begin
        Parent := GroupBox1;
        Left := 8;
        Top := 160;
        Width := 81;
        Height := 17;
        Caption := 'Re-Incarnate';
        Checked := True;
        State := cbChecked;
        TabOrder := 4;
      end;
      Edit4 := TEdit.Create(GroupBox1);
      with Edit4 do
      begin
        Parent := GroupBox1;
        Left := 8;
        Top := 88;
        Width := 140;
        Height := 21;
        TabOrder := 5;
        Text := 'Pin';
      end;
      Edit5 := TEdit.Create(GroupBox1);
      with Edit5 do
      begin
        Parent := GroupBox1;
        Left := 8;
        Top := 112;
        Width := 140;
        Height := 21;
        TabOrder := 6;
        Text := 'Loads';
      end;
      ComboBox1 := TComboBox.Create(GroupBox1);
      with ComboBox1 do
      begin
        Parent := GroupBox1;
        Left := 8;
        Top := 136;
        Width := 140;
        Height := 21;
        ItemHeight := 13;
        TabOrder := 7;
        Text := 'Shrimp';
        with ComboBox1.Items do
        begin
          Add('Srimp');
          Add('Trout');
          Add('Salmon');
          Add('Tuna');
          Add('Lobster');
          Add('Swordfish');
        end;
      end;
      Button1 := TButton.Create(frmDesign);
      with Button1 do
      begin
        Parent := TabPages[1][0];
        Left := 0;
        Top := 4;
        Width := 75;
        Height := 33;
        Caption := 'New';
        TabOrder := 1;
      end;
      Button2 := TButton.Create(frmDesign);
      with Button2 do
      begin
        Parent := TabPages[1][0];
        Left := 80;
        Top := 4;
        Width := 75;
        Height := 33;
        Caption := 'Remove';
        TabOrder := 2;
      end;
    end;

    procedure SafeForm;
    var
      V : TVariantArray;
    begin
      SetArrayLength(V, 0);
      ThreadSafeCall('Form', V);
    end;

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

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

    procedure MainForm;
    begin
      try
        SafeForm;
        SafeShowFormModal;
      finally
        FreeForm(frmDesign);
      except
        WriteLn('An error seems to have occurred in: Form');
      end;
    end;

    begin
      ClearDebug;
      GetSelf.WindowState := wsMinimized;
      MainForm;
      GetSelf.WindowState := wsNormal;
      if (EndForm) then
        TerminateScript;
    end.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. paying 100k per char...
    By d0pe b0i in forum RuneScape News and General
    Replies: 1
    Last Post: 11-21-2007, 01:42 AM
  2. Request, Read Inside.
    By Maging in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 05-29-2007, 11:08 PM
  3. Paying 100k for some one who can make an AUTO TOKKUL getter
    By infestedpasta in forum RS3 Outdated / Broken Scripts
    Replies: 13
    Last Post: 03-26-2007, 06:58 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
  •