Results 1 to 9 of 9

Thread: King's Alchemy Table Script

  1. #1
    Join Date
    Jul 2007
    Location
    Ohio
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default King's Alchemy Table Script

    King's Alchemy Table Script


    What it Does:
    It finds out how much you will gain or lose by alching any item of your choice.

    Instructions:
    Fill out the 3 lines for the information.
    -One line is for how much you are going to buy your nats for.
    -Second line is for how much you are going to buy the item for that you are going to alch.
    -Third line is for how much you get for alching that item.

    Then just press play and you will see how much you gain or lose!
    Just to warn all, i did this in like 2 minutes.

    What to Alch Section!

    What this section is for is for finding what the best item to alch is.
    I am going to make a nice proggy that will have all of the information you put into the constants/form(If i make) section of the script so you can post your proggy and others can find out what to alch or what not to alch. Get it?

    Updated!!!
    Better proggy.
    Start posting your results here!!!!!

  2. #2
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Make a form.

  3. #3
    Join Date
    Jul 2007
    Location
    Ohio
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by skilld u View Post
    Make a form.
    I know. I was just too tired and wanted to make a fast script before I update my other script. ok so future updates include a form!!! Yay!!! Should be done by the end of this weekend because I'm lazy.

  4. #4
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hahaha!!! You don't even know math, I saw this as soon as i opened it...

    SCAR Code:
    function Add:extended;
    Begin
      Result:= Priceofnature + priceofitemtoalch;
    end;

    function Dothestuff:extended;
    Begin
      Result:= Add - highalchemyaward;
    end;

    the cost of getting the stuff, minus the reward... Duh, uhh, wtf?

    SCAR Code:
    function Dothestuff:extended;
    Begin
      Result:= highalchemyaward - Add;
    end;
    Please?

    Other then that, good job.

  5. #5
    Join Date
    Jul 2007
    Location
    Ohio
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hah. Woops. I just tried to run through it quickly. CHANGED Script to V.2

  6. #6
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I can make a form for you.

    are you the one who I gave my account to?

  7. #7
    Join Date
    Jul 2007
    Location
    Ohio
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yea. And you could make the form for me? I would love that because i have a busy weekend.
    UPDATED! V.5
    Check it out!
    All i did was make a better proggy!
    I want everyone to know, post there proggies!!We need to find out the best item to alch!!! Have Fun!

  8. #8
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program TheAlchemyTable;
    {.include SRL/SRL.scar}

    var
      frmDesign : TForm;
      PriceofNatureLabel : TLabel;
      ItemPriceLabel : TLabel;
      RewardLabel : TLabel;
      PriceThingy : TMemo;
      CalculateButton, CloseButton : TButton;
      Edit1 : TEdit;
      Edit2 : TEdit;
      Edit3 : TEdit;

    function Add:extended;
    begin
      Result:= StrToInt(Edit1.text) + StrToInt(Edit2.Text);
    end;

    function Dothestuff:extended;
    begin
      Result:= StrToInt(Edit3.text) - Add;
    end;
     
    procedure CalculateThem(Sender: TObject);
    begin
      PriceThingy.Lines.Clear;
      PriceThingy.Lines.Add('It costs '+ floattostr(Add)+' gp total for each load.');
      PriceThingy.Lines.Add(' ');
      PriceThingy.Lines.Add('You are going to gain/lose'+ floattostr(DotheStuff)+' gps per alch');
    end;

    procedure CloseTheForm(sender: TObject);
    begin
      frmDesign.ModalResult := mrOk;
    end;

    procedure InitForm;
    begin
      frmDesign := CreateForm;
      with frmDesign do
      begin
        Left := 250;
        Top := 114;
        Width := 330;
        Height := 171;
        Caption := 'Alchemy Table';
        Color := clBtnFace;
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'MS Sans Serif';
        Font.Style := [];
        PixelsPerInch := 96;
      end;
      PriceofNatureLabel := TLabel.Create(frmDesign);
      with PriceofNatureLabel do
      begin
        Parent := frmDesign;
        Left := 8;
        Top := 24;
        Width := 71;
        Height := 13;
        Caption := 'Price of Nature';
      end;
      ItemPriceLabel := TLabel.Create(frmDesign);
      with ItemPriceLabel do
      begin
        Parent := frmDesign;
        Left := 8;
        Top := 56;
        Width := 95;
        Height := 13;
        Caption := 'Price of Item to Alch';
      end;
      RewardLabel := TLabel.Create(frmDesign);
      with RewardLabel do
      begin
        Parent := frmDesign;
        Left := 8;
        Top := 88;
        Width := 74;
        Height := 13;
        Caption := 'Alcemy Reward';
      end;
      PriceThingy := TMemo.Create(frmDesign);
      with PriceThingy do
      begin
        Parent := frmDesign;
        Left := 224;
        Top := 8;
        Width := 89;
        Height := 121;
        with PriceThingy.Lines do
        begin
          Add('king of the nites!'); //Change this to whatever you want it to say.
        end;
        ReadOnly := True;
        TabOrder := 8;
      end;
      CalculateButton := TButton.Create(frmDesign);
      with CalculateButton do
      begin
        Parent := frmDesign;
        Left := 5;
        Top := 112;
        Width := 121;
        Height := 17;
        Caption := 'Calculate';
        TabOrder := 9;
        OnClick :=  @CalculateThem;
      end;
      CloseButton := TButton.Create(frmDesign);
      with CloseButton do
      begin
        Parent := frmDesign;
        Left := 145;
        Top := 112;
        Width := 55;
        Height := 17;
        Caption := 'Close';
        TabOrder := 13;
        OnClick := @CloseTheForm;
      end;
      Edit1 := TEdit.Create(frmDesign);
      with Edit1 do
      begin
        Parent := frmDesign;
        Left := 120;
        Top := 48;
        Width := 81;
        Height := 21;
        TabOrder := 10;
        Text := '';
      end;
      Edit2 := TEdit.Create(frmDesign);
      with Edit2 do
      begin
        Parent := frmDesign;
        Left := 120;
        Top := 16;
        Width := 81;
        Height := 21;
        TabOrder := 11;
        Text := '';
      end;
      Edit3 := TEdit.Create(frmDesign);
      with Edit3 do
      begin
        Parent := frmDesign;
        Left := 120;
        Top := 80;
        Width := 81;
        Height := 21;
        TabOrder := 12;
        Text := '';
      end;
    end;

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

    procedure ShowInitFormModal;
    begin
      frmDesign.ShowModal;
    end;

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

    procedure MainInitForm;
    begin
      SafeInitForm;
      SafeShowInitFormModal;
      FreeForm(frmDesign);
    end;

    begin
      ClearDebug;
      MainInitForm;
    end.

  9. #9
    Join Date
    Apr 2007
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You should make the script look up the price of the item, and also look up how much it will high alch for. Using Internet functions in scar. Would be pretty sweet.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. King's Varrock West Clay Softner
    By King of the Nites in forum RS3 Outdated / Broken Scripts
    Replies: 77
    Last Post: 09-07-2009, 04:05 AM
  2. Picking out part of a table
    By lostspyda in forum Web Development
    Replies: 7
    Last Post: 07-26-2007, 06:38 AM
  3. [RS2]Auto Alchemy v2.0
    By Mr. Doctor in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 02-16-2007, 09:15 PM
  4. Advanced High Alchemy Script V1.5
    By bagofelix in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 02-10-2007, 10:47 AM

Posting Permissions

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