Page 8 of 16 FirstFirst ... 678910 ... LastLast
Results 176 to 200 of 397

Thread: All potion maker[c]

  1. #176
    Join Date
    Mar 2007
    Location
    Mars, I thought all men were from Mars.
    Posts
    513
    Mentioned
    7 Post(s)
    Quoted
    124 Post(s)

    Default

    it's not loading the item
    Simba Code:
    Could not find uptext: , , or
    does the ver at top say 1.4c-4?

    I just tested it and ver 1.4c-4 is loading the item fine. The only way this can fail is by entering incorrect settings.
    Last edited by bud_wis_er_420; 01-22-2012 at 06:49 AM.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  2. #177
    Join Date
    Jan 2012
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by bud_wis_er_420 View Post
    it's not loading the item
    Simba Code:
    Could not find uptext: , , or
    does the ver at top say 1.4c-4?

    I just tested it and ver 1.4c-4 is loading the item fine. The only way this can fail is by entering incorrect settings.
    I'm on 1.4c-4.
    I'll copy and paste everything I've got:
    Set_how_many_types = 1; //how many different kinds of pots are you making //
    Check_Text_Type = 0; // 0 = off; 1 = text; 2 = name //
    Login_44 = 1; // 0 = off; 1 = on; //
    ManualMode = 'Off'; //Look at setup inst. below
    __________________________________________________ _____________
    Make[0] := SetVars('Extreme Attack', 1076, 0); //
    //Make[1] := SetVars('Attack', 55, 1); //
    //Make[2] := SetVars('Super Strength', 42, 2); //
    //Make[3] := SetVars('Extreme Attack', 1000, 3);//Copy and past more if you want more//
    end; //Just be sure to change the numbers //

  3. #178
    Join Date
    Mar 2007
    Location
    Mars, I thought all men were from Mars.
    Posts
    513
    Mentioned
    7 Post(s)
    Quoted
    124 Post(s)

    Default

    just look very carefully at the one I gave you a few post ago
    Make[0] := SetVars('Extreme Attack', 1000, 3);
    and the one you are using above.
    Make[0] := SetVars('Extreme Attack', 1076, 0);

    u need 3 for Extreme's
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  4. #179
    Join Date
    Dec 2011
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah sorry, my post wasnt very coherent as i was tired...

    basically, due to lag once the vial and herbs had been withdrawn therd be a delay in the herbs actually appearing in the invent, but the script wouldnt recognise this and would click the empty spot where the herbs would soon appear.

    hope this explains it better
    Last edited by nathan lad; 01-22-2012 at 08:04 AM.

  5. #180
    Join Date
    Jan 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Simba Code:
    SRL Compiled in 15 msec
    SMART Initialized.
    Loaded: Server 44, Members: False, Signed: False, Super Detail: False.
    Now Making 39000 energy
    Getting unf harralander
    unf harralander is not found in storage
    I Think we found the unf harralander
    Checking the uptext nder potion (un, ander potion (unf, or lander potion (u
    Could not find uptext: nder potion (un, ander potion (unf, or lander potion (u
    Could not find the nder potion (un BMP
    Retrying with block checker
    Could not item with finditem 2
    Retrying with FindColorSpiralTolerance
    Could not find the unf harralander
    Successfully executed.
    The following DTMs were not freed: [2]
    The following bitmaps were not freed: [3]
    What does this mean?

    I have this atm

    Simba Code:
    Make[0] := SetVars('energy', 39000, 3);                                          //
    //Make[1] := SetVars('Attack', 55, 3);                                        //
    //Make[2] := SetVars('Super Strength', 42, 3);                                //
    //Make[3] := SetVars('Serum 207', 42, 3);//Copy and past more if you want more//
     end;                                //Just be sure to change the numbers

    Bank looks like this atm :
    Last edited by lowbridd; 01-22-2012 at 08:00 AM.

  6. #181
    Join Date
    Mar 2007
    Location
    Mars, I thought all men were from Mars.
    Posts
    513
    Mentioned
    7 Post(s)
    Quoted
    124 Post(s)

    Default

    find text failed. That is a srl function and not much i can do about it. I will try to figure out another fail safe tomorrow for this and play with the text to fine tune it. But it only calls the function the first time it looks for an item. After that it goes off a stored location. if it fails just try rerunning it or use the manual option for now. I see you already got the unf pot and 2nd in the correct place. Once it finds the item the first time it stores it's location and only uses uptext finding for opening the bank. Thx for the detailed bug report.

    Search for this in the script "nder potion (un" you will see 2 other strings right next to it. Shorten those to something like this. "nder po". I took out this part "tion (un". Do the same for the other 2. This should improve it's chances alot. I didn't realize uptext finding was so buggy when I used it in this script.

    This i what I plain to do tomorrow. GN for now
    Last edited by bud_wis_er_420; 01-22-2012 at 08:26 AM.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  7. #182
    Join Date
    Jan 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Alright thanks for responding

  8. #183
    Join Date
    Dec 2011
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i explained the problem im incurring more clearly three posts up

  9. #184
    Join Date
    Jan 2012
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Everytime I try and start it, it can't find the chest. I think its because what I brought up in previous posts that it won't go to highest angle. Anyways you say people aren't being descriptive enough well I went and made a video on youtube want me to show you it?

  10. #185
    Join Date
    Mar 2007
    Location
    Mars, I thought all men were from Mars.
    Posts
    513
    Mentioned
    7 Post(s)
    Quoted
    124 Post(s)

    Default

    Quote Originally Posted by nathan lad View Post
    i explained the problem im incurring more clearly three posts up
    Ok i added some waits after it closes the bank. This is only temp, because I want to put a wait until option in for everything. ver 1.4c-5 posted on first post.

    Quote Originally Posted by NFL View Post
    Everytime I try and start it, it can't find the chest. I think its because what I brought up in previous posts that it won't go to highest angle. Anyways you say people aren't being descriptive enough well I went and made a video on youtube want me to show you it?
    excellent, yes pm me the link and I will be the onlt person to see it.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  11. #186
    Join Date
    Jan 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey Bud would you teamviewer me?

  12. #187
    Join Date
    Mar 2007
    Location
    Mars, I thought all men were from Mars.
    Posts
    513
    Mentioned
    7 Post(s)
    Quoted
    124 Post(s)

    Default

    I have skype but I can get teamviewer.


    Edit: Got it. PM me you link info. Have you char logged on and ready and erase user and pass from the script if you added it. This so I don't see it. Not that I would steal it, just for your safety.
    Last edited by bud_wis_er_420; 01-22-2012 at 06:06 PM.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  13. #188
    Join Date
    Dec 2011
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks for the quick fixes, the small delay prevents the error i was getting, but i agree it should be only a temp fix as ultimately you want to be speeding things up not slowing them down.

    edit: one more problem ive incured is that again due to lagg it sometimes clicks the middle box where it asks u how many to mix before that appears also
    Last edited by nathan lad; 01-22-2012 at 06:17 PM.

  14. #189
    Join Date
    Mar 2007
    Location
    Mars, I thought all men were from Mars.
    Posts
    513
    Mentioned
    7 Post(s)
    Quoted
    124 Post(s)

    Default

    Quote Originally Posted by nathan lad View Post
    thanks for the quick fixes, the small delay prevents the error i was getting, but i agree it should be only a temp fix as ultimately you want to be speeding things up not slowing them down
    Yes, I want to change all my sleeps to

    Simba Code:
    While not('what we are waiting for') do
    Sleep(100+random(10);

    I want to make sure all the potions all the methods of making herb thins is working. The method is a set thing, once it's all right it can never be messed up. What I mean is, there may be some potions or any other thing this script supports that won't work atm. I am not aware that the method it takes to make it is different from the rest. For example, one that I am aware of is the Antiposion+'s. So what I'm proposing to do to help me keep track of what works and what don't, I am going to start a list on the front page of all the methods and what has been confirmed to work
    Last edited by bud_wis_er_420; 01-22-2012 at 06:23 PM.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  15. #190
    Join Date
    Jan 2012
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Check out my PM I sent you. With all this bug reporting people are doing your Script should become flawless soon and be the best herblore script. It did 80k Potions before and that was a really simple script the one you have now is much more advanced.

  16. #191
    Join Date
    Jan 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Hey,
    This is probally real simple, but I cannot get it to make Unfinshed potions, It withdraws the vial of water, and then, stops. Am I setting it up right?
    " // 2 = unfinished Pots 3 = Unf to finished, or extreme //
    // (make, amount, Task) //
    Make[0] := SetVars('irit', 10000, 2); //
    //Make[1] := SetVars('irit', 10000, 2); //
    //Make[2] := SetVars('irit', 10000, 2); "

    Cheers.

  17. #192
    Join Date
    Jan 2012
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Had it going for about 45 minutes then:

    Error: Out Of Range at line 842
    The following DTMs were not freed: [SRL - Lamp bitmap, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185]


    Line 842:
    if ((B.x2-B.x1) > 90) and ((B.y2-B.y1) > 18) then
    Break

  18. #193
    Join Date
    Mar 2007
    Location
    Mars, I thought all men were from Mars.
    Posts
    513
    Mentioned
    7 Post(s)
    Quoted
    124 Post(s)

    Default

    Quote Originally Posted by Smurf From RiD View Post
    Hey,
    This is probally real simple, but I cannot get it to make Unfinshed potions, It withdraws the vial of water, and then, stops. Am I setting it up right?
    " // 2 = unfinished Pots 3 = Unf to finished, or extreme //
    // (make, amount, Task) //
    Make[0] := SetVars('irit', 10000, 2); //
    //Make[1] := SetVars('irit', 10000, 2); //
    //Make[2] := SetVars('irit', 10000, 2); "

    Cheers.

    show me the log and is Set_how_many_types = 1;?

    Quote Originally Posted by leapfrog View Post
    Had it going for about 45 minutes then:

    Error: Out Of Range at line 842
    The following DTMs were not freed: [SRL - Lamp bitmap, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185]


    Line 842:
    if ((B.x2-B.x1) > 90) and ((B.y2-B.y1) > 18) then
    Break
    That looks like a error in srl. It opened another file, I'll bet, and pointed to a line within that file. What file was it? Show me the rest of the log so I can see where it messed up.
    Last edited by bud_wis_er_420; 01-22-2012 at 11:14 PM.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  19. #194
    Join Date
    Jan 2012
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by bud_wis_er_420 View Post
    show me the log and is Set_how_many_types = 1;?



    That looks like a error in srl. It opened another file, I'll bet, and pointed to a line within that file. What file was it? Show me the rest of the log so I can see where it messed up.
    That was all of it lol

  20. #195
    Join Date
    Mar 2007
    Location
    Mars, I thought all men were from Mars.
    Posts
    513
    Mentioned
    7 Post(s)
    Quoted
    124 Post(s)

    Default

    Change alot of things. A short list of them are:

    1. Totally redone banking. DTMs where a no go. I think this is gona be the one.
    2. Added alot more debugging notes for easier bug finding.
    3. Added a repeat wait, nathan lad, for the bug you mentioned.

    Redownload ver 1.4c-6
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  21. #196
    Join Date
    Jan 2012
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How many unf does it make / hour at SW ?

    greets

  22. #197
    Join Date
    Dec 2011
    Posts
    72
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Around 2500 Yobesti

  23. #198
    Join Date
    Jan 2012
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks nice, will certainly test this out

  24. #199
    Join Date
    Mar 2007
    Location
    Mars, I thought all men were from Mars.
    Posts
    513
    Mentioned
    7 Post(s)
    Quoted
    124 Post(s)

    Default

    Going to bed now but got alot done on the setup form. I'm almost done. The hardest part was making the failsafes to turn on/off setting when you pick things. You will see.
    This is the first form I ever made so give me some slack. Also I'm not done this is just for you to get the feel of it.

    Test your scripting skills and see if you can help me find the 'out of range' error, that occurs when you click on one of the bottom 3 radio buttons first. It should just do what it does just without the popup error. I'm having a hard time finding it. Maybe it's just because I'm tired.
    copy and paste this into a new scar or simba window and run.
    Simba Code:
    program New;

    var
      PotionArray, HerbArray: TStringArray;
      count, FType: integer;
      SType: String;
      Fmake: TStringArray;
      APMForm : TForm;
      ChatLable, HerbsLable, PotionsLable, Banner, AmountLable,
      ToDoLable, UserSLable, NeedLable : TLabel;
      AddTask, StartB, ClearB : TButton;
      HerbsTask, MakeFull, MakeUnf, UnfToFin : TRadioButton;
      HerbsList, PotionsList, ToDoList, NeedList: TListBox;
      Login44, CheckBox2, CheckBox3 : TCheckBox;
      ChatSel : TComboBox;
      Amount, Username, Password, BankPinNum, Nickname : TEdit;

    procedure LoadItemList;
    begin
      PotionArray := ['attack', 'antipoison', 'relicyms balm', 'strength',
        'serum 207', 'restore', 'guthix balance', 'Blamish Oil', 'energy',
        'defense', 'super fishing', 'explosive', 'agility', 'combat', 'prayer',
        'summoning', 'crafting', 'super attack', 'vial of stench',
        'super antipoison', 'fishing', 'super energy', 'hunter', 'super strength',
        'magic essence', 'fletching', 'weapon poison', 'super restore',
        'sanfew serum', 'super defense', 'antipoison+', 'antifire', 'ranging',
        'weapon poison+', 'magic', 'zamorak brew', 'antipoison++', 'weapon poison++',
        'recover special', 'super antifire', 'extreme attack', 'extreme strength',
        'extreme defense', 'extreme magic', 'extreme ranging', 'super prayer',
        'prayer renewal', 'Overload'];
      HerbArray := ['Rogues Purse', 'Snake Weed', 'Guam', 'Marrentill', 'Tarromin',
          'Harralander', 'Ranarr', 'Toadflax', 'Spirit Weed', 'Irit', 'Wergali',
          'Avantoe', 'Kwuarm', 'Snapdragon', 'Cadantine', 'Lantadyme', 'Dwarf Weed',
          'Torstol', 'Fellstalk'];

    end;

    procedure LoadLists(Sender: TObject);
    begin
      LoadItemList;
      for count := 0 to High(HerbArray) do
        HerbsList.Items.Add(HerbArray[count]);
      for count := 0 to High(PotionArray) do
        PotionsList.Items.Add(PotionArray[count])
    end;

    procedure ClearSettings;
    begin
      PotionsList.ItemIndex := -1;
      HerbsList.ItemIndex := -1;;
      HerbsTask.CHECKED := false;
      MakeFull.CHECKED := false;
      MakeUnf.CHECKED := false;
      UnfToFin.CHECKED := false;
      HerbsList.Enabled := True;
      HerbsTask.Enabled := True;
      MakeFull.Enabled := True;
      MakeUnf.Enabled := True;
      UnfToFin.Enabled := True;
      PotionsList.Enabled := True;
      Amount.text := '0';
      NeedList.Clear;
    end;

    procedure ClearAllSettings(Sender: TObject);
    begin
      ToDoList.Clear;
      ClearSettings;
    end;

    procedure GetHerbInfo(var HerbText: TStringArray);
    begin
      SetArrayLength(HerbText, 3);
      HerbText[0] := ' Clean Herbs:';
      HerbText[1] := 'Grimy ' + HerbArray[HerbsList.ItemIndex];

    end;


    procedure HerbsListClick(Sender: TObject);
    var
      HText: TStringArray;
    begin
      NeedList.Clear;
      PotionsList.ItemIndex := -1;
      HerbsTask.Enabled := true;
      HerbsTask.CHECKED := true;
      MakeFull.Enabled := False;
      MakeUnf.Enabled := False;
      UnfToFin.Enabled := False;
      FType := 0;
      GetHerbInfo(HText);
      for count := 0 to High(HText) do
        NeedList.Items.Add(HText[count]);
    end;

    function GetPOne: TStringArray;
    var
    PotionText: TStringArray;
    begin
      SetArrayLength(PotionText, 5);
      if(FType = 1)then PotionText[0] := '   Make Full Pots:   ';
      if(FType = 2)then PotionText[0] := '    Make Unf Pots:   ';
      if(FType = 3)then PotionText[0] := '    Make UTF Pots:   ';
      case PotionArray[PotionsList.ItemIndex] of
        'attack' :          begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := '1: Vial of Water';
                                PotionText[2] := '2: Clean Guam';
                                PotionText[3] := '3: Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := '1: Vial of Water';
                                PotionText[2] := '2: Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := '1: Unf Guam';
                                PotionText[2] := '2: Eye of Newt';
                              end;
                            end;
        'antipoison' :      begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := '1: Vial of Water';
                                PotionText[2] := '2: Clean Marrentill';
                                PotionText[3] := '3: Unicorn horn dust';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := '1: Vial of Water';
                                PotionText[2] := '2: Clean Marrentill';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := '1: Unf Marrentill';
                                PotionText[2] := '2: Unicorn horn dust';
                              end;
                            end;
        'relicyms balm' :   begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := '1: Vial of Water';
                                PotionText[2] := '2: Snake weed';
                                PotionText[3] := '3: Clean Rogue''s purse';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := '1: Vial of Water';
                                PotionText[2] := '2: Clean Snake weed';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := '1: Snake weed mixture';
                                PotionText[2] := '2: Rogue''s purse';
                              end;
                            end;
        'strength' :        begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := '1: Vial of Water';
                                PotionText[2] := '2: Clean Tarromin';
                                PotionText[3] := '3: Limpwurt root';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := '1: Vial of Water';
                                PotionText[2] := '2: Clean Tarromin';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := '1: Unf Tarromin';
                                PotionText[2] := '2: Limpwurt root';
                              end;
                            end;
        'serum 207' :       begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := '1: Vial of Water';
                                PotionText[2] := '2: Clean Tarromin';
                                PotionText[3] := '3: Ashes';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Tarromin';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Tarromin';
                                PotionText[2] := 'Ashes';
                              end;
                            end;
        'restore':          begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Harralander';
                                PotionText[3] := 'Red spiders'' eggs';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Harralander';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Harralander';
                                PotionText[2] := 'Red spiders'' eggs';
                              end;
                            end;
        'guthix balance' :  begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Restore Potion(3)';
                                PotionText[2] := 'Garlic';
                                PotionText[3] := 'Silver Dust';
                              end else
                              begin
                                FType := 1;
                                PotionText[0] := '   Make Full Pots:';
                                PotionText[1] := 'Restore Potion(3)';
                                PotionText[2] := 'Garlic';
                                PotionText[3] := 'Silver Dust';
                              end;
                            end;
        'Blamish Oil' :     begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Harralander';
                                PotionText[3] := 'Blamish snail slime';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Harralander';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Harralander';
                                PotionText[2] := 'Blamish snail slime';
                              end;
                            end;
        'energy' :          begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Harralander';
                                PotionText[3] := 'Chocolate Dust';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Harralander';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Harralander';
                                PotionText[2] := 'Chocolate Dust';
                              end;
                            end;
        'defense' :         begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Ranarr';
                                PotionText[3] := 'White Berries';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Ranarr';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Ranarr';
                                PotionText[2] := 'White Berries';
                              end;
                            end;
        'super fishing' :   begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'explosive' :       begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'agility' :         begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'combat' :          begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'prayer' :          begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'summoning' :       begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'crafting' :        begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'super attack':     begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'vial of stench':   begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'super antipoison': begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'fishing':          begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'super energy':     begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'hunter':           begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'super strength':   begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'magic essence':    begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'fletching':        begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'weapon poison':    begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'super restore':    begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'sanfew serum':     begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'super defense':    begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'antipoison+':      begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'antifire':         begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'ranging':          begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'weapon poison+':   begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'magic':            begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'zamorak brew':     begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'antipoison++':     begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'weapon poison++':  begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
        'Overload':         begin
                              if(FType = 1)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                                PotionText[3] := 'Eye of Newt';
                              end;
                              if(FType = 2)then
                              begin
                                PotionText[1] := 'Vial of Water';
                                PotionText[2] := 'Clean Guam';
                              end;
                              if(FType = 3)then
                              begin
                                PotionText[1] := 'Unf Guam';
                                PotionText[2] := 'Eye of Newt';
                              end;
                            end;
      end;
      Result := PotionText;
    end;

    procedure PotionsListClick(Sender: TObject);
    var
      PText: TStringArray;
    begin
      SetArrayLength(PText, 5);
      NeedList.Clear;
      HerbsList.ItemIndex := -1;
      HerbsTask.Enabled := False;
      MakeFull.Enabled := true;
      MakeUnf.Enabled := true;
      UnfToFin.Enabled := true;
      PText := GetPOne;
      if(MakeFull.CHECKED = false)and(FType = 1)then
      begin
        MakeFull.CHECKED := true;
        MakeUnf.Enabled := False;
        UnfToFin.Enabled := False;
      end;
      for count := 0 to 4 do
        NeedList.Items.Add(PText[count]);
    end;

    procedure HerbsTaskClick(Sender: TObject);
    begin
      PotionsList.ItemIndex := -1;
      MakeFull.Enabled := False;
      MakeUnf.Enabled := False;
      UnfToFin.Enabled := False;
      FType := 0;
    end;

    procedure ClearP;
    begin

    end;

    procedure MakeOtherClick(Sender: TObject);
    var
      PText: TStringArray;
    begin
      SetArrayLength(PText, 5);
      NeedList.Clear;
      HerbsList.ItemIndex := -1;
      HerbsTask.Enabled := False;
      if(MakeFull.CHECKED = true)then FType := 1;
      if(MakeUnf.CHECKED = true)then FType := 2;
      if(UnfToFin.CHECKED = true)then FType := 3;
      PText := GetPOne;
      for count := 0 to 4 do
        NeedList.Items.Add(PText[count]);
    end;

    procedure GetTypeString;
    begin
      if(FType = 0)then SType := 'Clean';
      if(FType = 1)then SType := 'Full';
      if(FType = 2)then SType := 'Unf';
      if(FType = 3)then SType := 'UTF';
    end;

    procedure AddTheTask(Sender: TObject);
    begin
      if(StrToInt(Amount.Text) = 0)then
      begin
        ShowMessage('Please enter an amount to make.');
      end else
      begin
        if(HerbsList.ItemIndex < 0)then
        begin
          if(MakeFull.CHECKED = false)and
            (MakeUnf.CHECKED = false)and
            (UnfToFin.CHECKED = false)then
          begin
            ShowMessage('Please select a task');
          end else
          begin
            GetTypeString;
            FMake := [PotionArray[PotionsList.ItemIndex], Amount.Text, SType];
            ToDoList.Items.Add(FMake[0] + ', ' + FMake[1] + ', ' + FMake[2]);
            ClearSettings;
          end;
        end else
        begin
          GetTypeString;
          FMake := [HerbArray[HerbsList.ItemIndex], Amount.Text, SType];
          ToDoList.Items.Add(FMake[0] + ', ' + FMake[1] + ', ' + FMake[2]);
          ClearSettings;
        end;
      end;
    end;


    Procedure InitForm;
    Begin
    APMForm := TForm.Create(nil);
    APMForm.Left := 200;
    APMForm.Top := 200;
    APMForm.Width := 450;
    APMForm.Height := 400;
    APMForm.Caption := 'All Potions Maker';
    APMForm.Color := clBlack;
    APMForm.Font.Color := clWhite;
    APMForm.Font.Height := -11;
    APMForm.Font.Name := 'MS Times New Roman';
    APMForm.OnActivate := @LoadLists;

    ChatLable := TLabel.Create(APMForm);
    ChatLable.Parent := APMForm;
    ChatLable.Left := 140;
    ChatLable.Top := 195;
    ChatLable.Caption := 'Chat Finding Options -->';

    HerbsLable := TLabel.Create(APMForm);
    HerbsLable.Parent := APMForm;
    HerbsLable.Left := 25;
    HerbsLable.Top := 25;
    HerbsLable.Caption := 'Herbs to Clean:';

    PotionsLable := TLabel.Create(APMForm);
    PotionsLable.Parent := APMForm;
    PotionsLable.Left := 25;
    PotionsLable.Top := 195;
    PotionsLable.Caption := 'Potions to Make:';

    Banner := TLabel.Create(APMForm);
    Banner.Parent := APMForm;
    Banner.Left := 160;
    Banner.Top := 5;
    Banner.Caption := 'All Potions Maker';

    ToDoLable := TLabel.Create(APMForm);
    ToDoLable.Parent := APMForm;
    ToDoLable.Left := 270;
    ToDoLable.Top := 25;
    ToDoLable.Caption := 'To Do List:';

    AmountLable := TLabel.Create(APMForm);
    AmountLable.Parent := APMForm;
    AmountLable.Left := 160;
    AmountLable.Top := 135;
    AmountLable.Caption := 'Amount:';

    UserSLable := TLabel.Create(APMForm);
    UserSLable.Parent := APMForm;
    UserSLable.Left := 270;
    UserSLable.Top := 230;
    UserSLable.Caption := 'User Settings:';

    NeedLable := TLabel.Create(APMForm);
    NeedLable.Parent := APMForm;
    NeedLable.Left := 155;
    NeedLable.Top := 275;
    APMForm.Font.Color := clWhite;
    NeedLable.Caption := 'Items Needed:';

    ClearB := TButton.Create(APMForm);
    ClearB.Parent := APMForm;
    ClearB.Left := 160;
    ClearB.Top := 50;
    ClearB.Width := 60;
    ClearB.Height := 25;
    ClearB.Caption := 'Clear';
    ClearB.TabOrder := 23;
    ClearB.OnClick := @ClearAllSettings;

    AddTask := TButton.Create(APMForm);
    AddTask.Parent := APMForm;
    AddTask.Left := 160;
    AddTask.Top := 80;
    AddTask.Width := 60;
    AddTask.Height := 25;
    AddTask.Caption := 'Add Task';
    AddTask.TabOrder := 9;
    AddTask.OnClick := @AddTheTask;

    StartB := TButton.Create(APMForm);
    StartB.Parent := APMForm;
    StartB.Left := 160;
    StartB.Top := 110;
    StartB.Width := 60;
    StartB.Height := 25;
    StartB.Caption := 'Start';
    StartB.TabOrder := 23;


    HerbsTask := TRadioButton.Create(APMForm);
    HerbsTask.Parent := APMForm;
    HerbsTask.Left := 155;
    HerbsTask.Top := 210;
    HerbsTask.Caption := 'Clean Herbs';
    HerbsTask.TabOrder := 10;
    HerbsTask.OnClick := @HerbsTaskClick;

    MakeFull := TRadioButton.Create(APMForm);
    MakeFull.Parent := APMForm;
    MakeFull.Left := 155;
    MakeFull.Top := 225;
    MakeFull.Height := 17;
    MakeFull.Caption := 'Make full potions';
    MakeFull.TabOrder := 11;
    MakeFull.OnClick := @MakeOtherClick;

    MakeUnf := TRadioButton.Create(APMForm);
    MakeUnf.Parent := APMForm;
    MakeUnf.Left := 155;
    MakeUnf.Top := 240;
    MakeUnf.Caption := 'Make Unf Potions';
    MakeUnf.TabOrder := 12;
    MakeUnf.OnClick := @MakeOtherClick;

    UnfToFin := TRadioButton.Create(APMForm);
    UnfToFin.Parent := APMForm;
    UnfToFin.Left := 155;
    UnfToFin.Top := 255;
    UnfToFin.Caption := 'Unf --> Finished';
    UnfToFin.TabOrder := 13;
    UnfToFin.OnClick := @MakeOtherClick;

    ToDoList := TListBox.Create(APMForm);
    ToDoList.Parent := APMForm;
    ToDoList.Left := 270;
    ToDoList.Top := 40;
    ToDoList.Width := 150;
    ToDoList.Height := 150;
    ToDoList.TabOrder := 8;
    ToDoList.Color := clWhite;
    ToDoList.Font.Color := clBlack;

    NeedList := TListBox.Create(APMForm);
    NeedList.Parent := APMForm;
    NeedList.Left := 150;
    NeedList.Top := 290;
    NeedList.Width := 115;
    NeedList.Height := 70;
    NeedList.TabOrder := 8;
    NeedList.Color := clBlack;
    NeedList.Font.Color := clWhite;

    HerbsList := TListBox.Create(APMForm);
    HerbsList.Parent := APMForm;
    HerbsList.Left := 25;
    HerbsList.Top := 40;
    HerbsList.Width := 120;
    HerbsList.Height := 150;
    HerbsList.TabOrder := 14;
    HerbsList.Font.Color := clBlack;
    HerbsList.OnClick := @HerbsListClick;

    PotionsList := TListBox.Create(APMForm);
    PotionsList.Parent := APMForm;
    PotionsList.Left := 25;
    PotionsList.Top := 210;
    PotionsList.Width := 120;
    PotionsList.Height := 150;
    PotionsList.TabOrder := 24;
    PotionsList.Font.Color := clBlack;
    PotionsList.OnClick := @PotionsListClick;

    Login44 := TCheckBox.Create(APMForm);
    Login44.Parent := APMForm;
    Login44.Left := 160;
    Login44.Top := 175;
    Login44.Width := 90;
    Login44.Height := 17;
    Login44.Caption := 'World 44 Login?';
    Login44.TabOrder := 22;

    ChatSel := TComboBox.Create(APMForm);
    ChatSel.Parent := APMForm;
    ChatSel.Left := 270;
    ChatSel.Top := 195;
    ChatSel.Width := 145;
    ChatSel.Font.Color := clBlack;
    ChatSel.TabOrder := 17;
    ChatSel.Text := 'Chat Finding off';
    ChatSel.Items.Add('Chat Finding off');
    ChatSel.Items.Add('Look for any txt');
    ChatSel.Items.Add('Look for your nick');

    Amount := TEdit.Create(APMForm);
    Amount := TEdit.Create(APMForm);
    Amount.Parent := APMForm;
    Amount.Left := 160;
    Amount.Top := 150;
    Amount.Width := 60;
    Amount.TabOrder := 18;
    Amount.Font.Color := clBlack;
    Amount.Text := '0';

    Username := TEdit.Create(APMForm);
    Username := TEdit.Create(APMForm);
    Username.Parent := APMForm;
    Username.Left := 270;
    Username.Top := 245;
    Username.Width := 150;
    Username.Font.Color := clBlack;
    Username.TabOrder := 18;
    Username.Text := 'Username';

    Password := TEdit.Create(APMForm);
    Password.Parent := APMForm;
    Password.Left := 270;
    Password.Top := 275;
    Password.Width := 150;
    Password.Font.Color := clBlack;
    Password.TabOrder := 19;
    Password.Text := 'Password';

    Nickname := TEdit.Create(APMForm);
    Nickname.Parent := APMForm;
    Nickname.Left := 270;
    Nickname.Top := 305;
    Nickname.Width := 150;
    Nickname.Font.Color := clBlack;
    Nickname.TabOrder := 21;
    Nickname.Text := 'Nickname';

    BankPinNum := TEdit.Create(APMForm);
    BankPinNum.Parent := APMForm;
    BankPinNum.Left := 270;
    BankPinNum.Top := 335;
    BankPinNum.Width := 150;
    BankPinNum.Font.Color := clBlack;
    BankPinNum.TabOrder := 20;
    BankPinNum.Text := 'Bank Pin#';

    End;


    Procedure SafeInitForm;
    Var
      v: TVariantArray;
    Begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);

    End;

    Procedure ShowFormModal;
    Begin
      APMForm.ShowModal;
    End;

    Procedure SafeShowFormModal;
    Var
      v: TVariantArray;
    Begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    End;

    Begin
      FType := 99;
      SetArrayLength(FMake, 3);
      SafeInitForm;
      SafeShowFormModal;

    End.

    Pretty cool huh!!
    Last edited by bud_wis_er_420; 01-23-2012 at 08:59 AM.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  25. #200
    Join Date
    Dec 2011
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    dwarf weed to unf ranging pots work

Page 8 of 16 FirstFirst ... 678910 ... 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
  •