Page 9 of 16 FirstFirst ... 7891011 ... LastLast
Results 201 to 225 of 397

Thread: All potion maker[c]

  1. #201
    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
    dwarf weed to unf ranging pots work
    Thank you add it to list.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

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

    Default

    Constantly logs out cause it has issues finding the banking chest, usually after around 30 minutes after start up, and also seems to have a problem with finding (unf) all that i have tried so far , i have to set it to manual mode instead which does fix the problem but affects the banking more so then Manual Off. Other then that its pretty sweet

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

    Default

    It works, It just can't seem to bank for me?
    "SRL Compiled in 0 msec
    SMART Initialized.
    Loaded: Server 44, Members: False, Signed: False, Super Detail: False.
    Now Making 5000 guam
    Bank Uptext found, clicking bank
    We are in bank
    Error: Exception: "" is an invalid integer at line 3741
    The following DTMs were not freed: [SRL - Lamp bitmap, 1]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]"

  4. #204
    Join Date
    Jan 2012
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default



    What am I doing wrong? It finds the vial, withdraws them, but not the herbs. :S

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

    Default

    Quote Originally Posted by Leonoras View Post


    What am I doing wrong? It finds the vial, withdraws them, but not the herbs. :S
    are the herbs in slot 8?

    btw you should cover your username so no1 trys reporting it.

  6. #206
    Join Date
    Jan 2012
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    budwiser where'd you learn to script from seeing basically your first script, you've put more code in and looks like you learned more. I watched all of yoho videos and read some parts of the stickys on this site but I haven't learned enough to make my own script.

  7. #207
    Join Date
    Jan 2012
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh, no I didn't, but now I did put everything in the correct slot and still nothing changed. :S

  8. #208
    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 Leonoras View Post
    Oh, no I didn't, but now I did put everything in the correct slot and still nothing changed. :S
    Items only have to go in specific slots if you are using manual mode. Manual mode is for when script is not finding item on it's own.

    I will test making "unf dwarf weed" right now.

    Quote Originally Posted by NFL View Post
    budwiser where'd you learn to script from seeing basically your first script, you've put more code in and looks like you learned more. I watched all of yoho videos and read some parts of the stickys on this site but I haven't learned enough to make my own script.
    I started back in 2002, Scripting back then was very easy compared to today. Back in rs1(runescape classic) bout the only thing you had to worry about was a shifting screen. No random colors, no random events. Everything could stay the same. There was a runescape train too. Don't remember any names, but it was several bot char that walked a circle around runescape. If there was a place you wanted to go you could catch the runescape people train. Anyways over the years it got harder and harder and I just learned a little by a little. I took a break from rs for a few years. I got married had 2 kids. Then 2 yrs ago got a divorce. I started playing rs again. But the paid refection bots where out. I was very impressed by them, Compared to the old ways. I bought one, then 2, then 3, etc. I didn't need to script. But when the bot nuke came it was back to scripting for me. I had to relearn a lot of forgotten stuff.

    Quote Originally Posted by Smurf From RiD View Post
    It works, It just can't seem to bank for me?
    "SRL Compiled in 0 msec
    SMART Initialized.
    Loaded: Server 44, Members: False, Signed: False, Super Detail: False.
    Now Making 5000 guam
    Bank Uptext found, clicking bank
    We are in bank
    Error: Exception: "" is an invalid integer at line 3741
    The following DTMs were not freed: [SRL - Lamp bitmap, 1]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]"
    Don't understand this error. Did it pop up a srl file and point to ln 3741 in that one? Or way it pointing to ln 3741 in the main script?


    I just saw the bank bug. Let me show you how to properly explain something. If you explain in detail I won't always have to find it myself.

    log:
    Code:
    We are in bank
    Bank Uptext not found
    Bank not found, trying find_chest
    Looking for bank with Findobj
    Think we found bank, checking uptext
    Bank Uptext found, clicking bank
    We did not find bank after clicking, checking for pin screen
    We did not find bank after clicking or the pin screen
    Bank not found, trying find_chest2
    First it moved mouse to northern part of bank with the screen facing south. It was looking too low so it didn't find the uptext. It the used the obj finding... I know this because in the log---> Looking for bank with Findobj ....to find the bank. but it misclicked in the south eastern corner of the chest. My char then movedover one square to the east.

    I stopped it b4 the spiral finding method could give it a try, but it should never get that far. That spiral method is a last ditch effort to find bank if all else fails. But it's a crappy last ditch. I could slow it down and it would be a lot more accurate. I will fix this in next update in about an hour or so.
    Last edited by bud_wis_er_420; 01-23-2012 at 10:30 PM.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  9. #209
    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 Leonoras View Post
    What am I doing wrong? It finds the vial, withdraws them, but not the herbs. :S
    you need --> Make[0] := SetVars('ranging', 28, 2); to make unf dwarf weed. Listing herb only cleans them. You need to enter the name of the pot you would make with all items begin used.
    For example:
    Make[0] := SetVars('Attack', 28, 1); uses all items(Vial of water, clean guam, eye of newt)

    if you select task 2: It only uses the first 2 itms the vial of water and clean guam. Make[0] := SetVars('Attack', 28, 2);

    if you select task 3: It uses the outcome of task one(unf pot) and the 2nd item it needs. Make[0] := SetVars('Attack', 28, 3);

    Hope this clears it up for you. Have you looked at the form I'm building? on page 8.



    Ver 1.4c-7 is out
    Last edited by bud_wis_er_420; 01-23-2012 at 11:44 PM.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

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

    Default

    Man I am sooo close to being finished with the setup form. I have it added and everything. Only thing holding me back is an out of range error. I don't understand it. It should be working fine. Everything works fine in my test script, but when added over to main script I get the error. Until I figure this out I'm stuck.

    I figured I post the script here and let others give it a try. 2 heads better than one right?

    here is the test script and the full script is at the dl link below.
    All Potion Maker 1.5(Not working)
    Simba Code:
    program New;

    type
      MakeArray = record
      Potion: string;
      Amount: integer;
      Select_Task: integer;
    end;

    var
      PotionArray, HerbArray: TStringArray;
      count, FType, AddTaskCount: integer;
      SType: String;
      FormItem: TStringArray;
      FormAmount, FormTask: TIntegerArray;
      Make: array of MakeArray;
      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;
      AddTaskCount := 0;
      FormItem[AddTaskCount] := '';
      FormAmount[AddTaskCount] := 0;
      FormTask[AddTaskCount] := 0;
    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 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;
      if(PotionsList.ItemIndex > -1)then
      begin
      PText := GetPOne;
      for count := 0 to 4 do
        NeedList.Items.Add(PText[count]);
      end;
    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 AddTItem;
    begin
      ToDoList.Items.Add(FMake[0] + ', ' + FMake[1] + ', ' + FMake[2]);
      ClearSettings;
      FormItem[AddTaskCount] := Lowercase(FMake[0]);
      FormAmount[AddTaskCount] := StrToInt(FMake[1]);
      case FMake[2] of
        'Clean' : FormTask[AddTaskCount] := 0;
        'Full' : FormTask[AddTaskCount] := 1;
        'Unf' : FormTask[AddTaskCount] := 2;
        'UTF' : FormTask[AddTaskCount] := 3;
       
      end;
      Inc(AddTaskCount);
    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];
            AddTItem;
          end;
        end else
        begin
          GetTypeString;
          FMake := [HerbArray[HerbsList.ItemIndex], Amount.Text, SType];
          AddTItem;
        end;
      end;
    end;

    function SetVars(Potion: string; amount, Select_Task: Integer): MakeArray;//////
    begin Result.Potion:= Potion; Result.Amount:= Amount;///////////////////////////
    Result.Select_Task:= Select_Task;end;

    procedure StartScript(Sender: TObject);
    begin
      SetArrayLength(Make, AddTaskCount);
      for count := 0 to AddTaskCount-1 do
        Make[count] := SetVars(FormItem[count], FormAmount[count], FormTask[count]);
      for count := 0 to AddTaskCount-1 do
        Writeln('Item: ' + Make[count].Potion + '; Amount: ' + inttostr(Make[count].Amount) +
                '; TaskType: ' + inttostr(Make[count].Select_Task) + ';');
     //if(Login44.CHECKED = true)then Login_44 := 1;
     // Players[0].Name := Username.Text; //Youe Rs username                                   //
     // Players[0].Pass := Password.Text; //Your RS password                                   //
     // Players[0].Nick := Nickname.Text; //3-4 letters from name                              //
     // Players[0].Active:= True;                                                   //
     // Players[0].Pin := BankPinNum.Text;
     APMForm.CLOSE;
    end;

    Procedure InitForm;
    Begin
    APMForm := TForm.Create(nil);
    APMForm.Left := 200;
    APMForm.Top := 200;
    APMForm.Width := 482;
    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 := 173;
    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 := 300;
    ToDoLable.Top := 25;
    ToDoLable.Caption := 'To Do List:';

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

    UserSLable := TLabel.Create(APMForm);
    UserSLable.Parent := APMForm;
    UserSLable.Left := 300;
    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 := 185;
    ClearB.Top := 50;
    ClearB.Width := 80;
    ClearB.Height := 25;
    ClearB.Caption := 'Clear';
    ClearB.TabOrder := 23;
    ClearB.OnClick := @ClearAllSettings;

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

    StartB := TButton.Create(APMForm);
    StartB.Parent := APMForm;
    StartB.Left := 185;
    StartB.Top := 110;
    StartB.Width := 80;
    StartB.Height := 25;
    StartB.Caption := 'Start';
    StartB.TabOrder := 23;
    StartB.OnClick := @StartScript;


    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 := 300;
    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 := 155;
    NeedList.Top := 290;
    NeedList.Width := 135;
    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 := 180;
    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 := 300;
    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 := 185;
    Amount.Top := 150;
    Amount.Width := 80;
    Amount.TabOrder := 18;
    Amount.Font.Color := clBlack;
    Amount.Text := '0';

    Username := TEdit.Create(APMForm);
    Username := TEdit.Create(APMForm);
    Username.Parent := APMForm;
    Username.Left := 300;
    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 := 300;
    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 := 300;
    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 := 300;
    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;
      AddTaskCount := 0;
      setarraylength(FormItem, 100)
      setarraylength(FormAmount, 100)
      setarraylength(FormTask, 100)
      SetArrayLength(FMake, 3);
      SafeInitForm;
      SafeShowFormModal;

    End.
    Last edited by bud_wis_er_420; 01-24-2012 at 04:22 AM.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  11. #211
    Join Date
    Dec 2011
    Posts
    72
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The following DTMs were not freed: [SRL - Lamp bitmap, 1]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
    I'm trying to clean 554 of guam, then clean 20k tarromin.
    this is my settings.
    Make[0] := SetVars('attack', 554, 0); //
    Make[1] := SetVars('strength', 20000, 0); //
    Oh, and it occurs before the rs screen can load.

    whoops.. forgot to change how many types of potions. my bad. hah.
    Last edited by tight butts; 01-24-2012 at 04:23 AM.

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

    Default

    and....

    Make[0] := SetVars('guam', 554, 0); //
    Make[1] := SetVars('tarromin', 20000, 0); //
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  13. #213
    Join Date
    Dec 2011
    Posts
    72
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah my bad. I'm used to puting the potion only.

  14. #214
    Join Date
    Jan 2012
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by bud_wis_er_420 View Post
    you need --> Make[0] := SetVars('ranging', 28, 2); to make unf dwarf weed. Listing herb only cleans them. You need to enter the name of the pot you would make with all items begin used.
    For example:
    Make[0] := SetVars('Attack', 28, 1); uses all items(Vial of water, clean guam, eye of newt)

    if you select task 2: It only uses the first 2 itms the vial of water and clean guam. Make[0] := SetVars('Attack', 28, 2);

    if you select task 3: It uses the outcome of task one(unf pot) and the 2nd item it needs. Make[0] := SetVars('Attack', 28, 3);

    Hope this clears it up for you. Have you looked at the form I'm building? on page 8.



    Ver 1.4c-7 is out
    Oh, thank you so much! I finally got it.

  15. #215
    Join Date
    Jan 2012
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    unf super energy potions to full super energies work

  16. #216
    Join Date
    Dec 2011
    Posts
    72
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Banking is still buggy for me. I always find my character behind that one barrel.

  17. #217
    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'll see what I can do to make it better. I run the same banking on all my other scripts. Are you getting a lot of lag? Maybe that why everything seems good to me. If so I can try to work something out. But I need more info to help me out.

    This is the script I use for most of all my sw activity's. I just change the make and withdraw procedures. This one fletches. As you can see It is the exact same as the potions script. The potions script just has all the added stuff.

    Simba Code:
    {/////////////////////Set_Up///////////////////////////


    SoulWars Bank, North, all the way up.
    Fixed screen
    Logs, row 2 slot 10


    //////////////////////////////////////////////////////}


    program new;
    {$DEFINE SMART}
    {$i SRL/SRL.Simba}
    var
      x, y, count:integer;
      found, Found_Bank, try_again: Boolean;
    /////////////////////////////////////////////////////
    const
    Check_Text_Type = 0; // 0 = off; 1 = text; 2 = name                           //
    Login_44        = 1; // 0 = off; 1 = on;
    Fletch_Task     = 0;
    WarningSound    = 'C:\botclient\config\sounds\alarm.wav';
    Log = 'No';

    procedure DeclarePlayers;                                                     //
    begin                                                                         //
      HowManyPlayers := 1;                                                        //
      NumberOfPlayers(HowManyPlayers);                                            //
      CurrentPlayer := 0;                                                         //
      Players[0].Name := ''; //Youe Rs username                                   //
      Players[0].Pass := ''; //Your RS password                                   //
      Players[0].Nick := ''; //3-4 letters from name                              //
      Players[0].Active:= True;                                                   //
      Players[0].Pin := '';                                                       //
    end;

    procedure Check_for_text;
    var
      time :longword;
      Stime: string;
    begin
    if(found = false)then
    begin
    //Checks for text
    if(Check_Text_Type = 1)then
      begin
      if(FindColorSpiral (x, y, 16711680, 22, 446, 134, 454))then
        begin
        playsound(WarningSound);
        time := GetSystemTime;
        Stime := MsToTime(time, Time_Bare);
        writeln('Text found at ' + Stime);
        found := true;
        end;
      end;

    //Checks for nick
    if(Check_Text_Type = 2)then
      begin
      if(FindChatBoxText(Players[0].Nick, 8, clBlue))then
        begin
        playsound(WarningSound);
        time := GetSystemTime;
        Stime := MsToTime(time, Time_Bare);
        writeln('You name found at ' + Stime);
        found := true;
        end;
      end;
    end;
    end;

    procedure AntiBan;
    var
      j, WTime, SleepT1, SleepT2: integer;
    begin
      j := random(201)
      WTime := 48000 + random(1000);
      SleepT1 := 5000 + random(30000);
      SleepT2 := WTime - SleepT1 + random(1000);
      case j of
        0: begin
             sleep(SleepT1);
             Check_for_text;
             HoverSkill ('Herblore', False);
             sleep(SleepT2 + random(5000));
             GameTab(tab_Inv);
           end;
        1..5:
           begin
             sleep(SleepT1);
             Check_for_text;
             PickUpMouse;
             sleep(SleepT2);
           end;
        6..10:
           begin
             sleep(SleepT1);
             Check_for_text;
             RandomRClick;
             sleep(SleepT2);
           end;
        11:
           begin
             sleep(SleepT1);
             Check_for_text;
             sleep(SleepT2);
             GameTab(tab_Inv);
           end;
        12:
           begin
             sleep(SleepT1);
             Check_for_text;
             ExamineInv;
             sleep(SleepT2);
           end;
        13..200:
           begin
             sleep(48000 + random(1000));
           end;
      end;
    end;

    procedure Check_Login;
    var
      Login_Screen,Invalid_Screen, Update_Screen:integer;
    begin
      Login_Screen := DTMFromString('78DA6354656460D8C1800214656418B880345' +
           '086E13F1030660059EDA86A5E3FD8035703028C6E40D605026A64' +
           '81AC2B04D4D80359428C286A5616B0A0AA5943849A6620AB07BF5' +
           'D00B3E316FA');
      //Looks for Login and Lobby Screens
      if(FindDTM(Login_Screen, x, y, 243, 107, 517, 418))or
        (LobbyScreen)then
      begin
        Sleep(1000+random(1000));
        if(LoginPlayerToLob)then
        begin
          if(Login_44 = 1)then
          begin
            if(OpenWorldScreen)then
            begin
              Sleep(1000+random(1000));
              Mouse(123,125, 3, 3, true);//click world order arrow
              Sleep(500+random(1000));
              Mouse(686,157, 4, 0, true);//click scroll bar top
              Sleep(1000+random(1000));
              Mouse(687, 257, 3, 0, true);//click scroll bar to see world 44
              Sleep(1000+random(1000));
              Mouse(144, 281, 100, 8, true);//click world 44
              Sleep(2000+random(1000));
              Mouse(308, 452, 160, 19, true);//click login
              Sleep(2000+random(1000));
              Writeln('Logged into world 44');
            end else
            begin
              Writeln('Could not log into world 44');
              if(LoginPLayer)then
              begin
                Writeln('Logged in');
              end else
              begin
                Check_Login
              end;
            end;
          end else
          begin
            if(LoginPLayer)then
            begin
              Writeln('Logged in');
            end else
            begin
              Check_Login
            end;
          end;
        end else
        begin
          Check_Login;
        end;
      end;
      FreeDTM(Login_Screen);
    end;

    function Check_Pin: Boolean;
    begin
      if(Players[CurrentPlayer].Pin = '')then
      begin
        Writeln('We are at the pin screen and you didn''t enter a pin');

        TerminateScript;
      end;
      if(PinScreen)then
      begin
        Writeln('Found Pin Screen');
        InPin(Players[CurrentPlayer].Pin);
        Writeln('Pin successfully entered');
        Sleep(1000 + random(500));
        if(BankScreen)then
        begin
          Result := true;
          Found_Bank := true;
          Exit;
        end;
      end;
    end;

    function CheckForBank: Boolean;
    begin
      if(BankScreen)then
      begin
        Found_Bank := true;
        Result := True;
      end;
    end;

    function BankUptextClick: Boolean;
    begin
      if(IsUpTextMultiCustom(['Use Ba', 'e Bank', 'nk chest', 'Bank che', 'ank ches']))then
        begin
          Writeln('Bank Uptext found, clicking bank')
          GetMousePos(x, y);
          Mouse(x,y,0,0,true);
          count := 0;
          repeat
            Sleep(100 + random(10));
            Inc(count);
          until(count > 30)or(CheckForBank)
          if(count > 30)then
          begin
            Writeln('We did not find bank after clicking, checking for pin screen');
            if(Check_Pin)then
            begin
              Writeln('We are in bank');
              Result := True;
            end else
            begin
              Writeln('We did not find bank after clicking or the pin screen');
            end;
          end else
          begin
            Writeln('We are in bank');
            Result := True;
          end;
        end else
        begin
          Writeln('Bank Uptext not found')
        end;
    end;

    function Find_Chest2: Boolean;
    var ax, ay, count1, count2 :integer;
        Found_Box :Boolean;
    begin
      ax := 259;
      ay := 170;
      count2 := 1;
      Found_Box := false;
      Check_Login;

    /////////Beginning Spiral Checker////////
      repeat
      //Move right
      if(Found_box = false)and(count2<30)or not(BankScreen)then
      begin
        count1 := 0;
        repeat
          MMouse(ax, ay, 0, 0);
          Sleep(200 + random(10));
          ax := ax + 10;
          count1 := count1 + 1;
          if(IsUpTextMultiCustom(['Use Ba', 'e Bank', 'nk chest', 'Bank che', 'ank ches']))then Found_box := true;
        until(count1 >= count2)or(Found_box = true)or(count2>30)or(BankScreen)
      end;

      //Move down
      if(Found_box = false)and(count2<30)or not(BankScreen)then
      begin
        count1 := 0;
        repeat
          ay:=ay+10;
          MMouse(ax, ay, 0, 0);
          Sleep(200+random(10));
          count1 := count1 + 1;
          if(IsUpTextMultiCustom(['Use Ba', 'e Bank', 'nk chest', 'Bank che', 'ank ches']))then Found_box := true;
        until(count1 >= count2)or(Found_box = true)or(count2>30)or(BankScreen)
        count2 := count2 + 1;
      end;

      //Move left
      if (Found_box = false)and(count2<30)or not(BankScreen)then
      begin
        count1 := 0;
        repeat
          MMouse(ax, ay, 0, 0);
          Sleep(200+random(10));
          ax := ax - 10;
          count1 := count1 + 1;
          if(IsUpTextMultiCustom(['Use Ba', 'e Bank', 'nk chest', 'Bank che', 'ank ches']))then Found_box := true;
        until(count1 >= count2)or(Found_box = true)or(count2>30)or(BankScreen)
      end;

      //Move up
      if(Found_box = false)and(count2<30)or not(BankScreen)then
      begin
        count1 := 0;
        repeat
          ay := ay - 10;
          MMouse(ax, ay, 0, 0);
          Sleep(200+random(10));
          count1 := count1 + 1;
          if(IsUpTextMultiCustom(['Use Ba', 'e Bank', 'nk chest', 'Bank che', 'ank ches']))then Found_box := true;
        until(count1 >= count2)or(Found_box = true)or(count2>30)or(BankScreen)
        count2 := count2 + 1;
      end;
      until(Found_box = true)or(count2>30)or(BankScreen)

    /////////End Spiral Checker////////
      if(CheckForBank)then
      begin
        Result := True;
        Exit;
      end;
      if(Found_box = true)then
      begin
        if(BankUptextClick)then
        begin
          Result := True;
        end else
        begin
          Writeln('Bank not found, trying find_chest');
          if(try_again = false)and not(BankScreen)then
        end;
      end;
      if(try_again = false)and not(BankScreen)then
      begin
        try_again := true;
        writeln('Could not find bank using first and second method, trying one more time');
        if(Find_Chest2)then Result := True;
      end;
    end;



    function Find_Chest: Boolean;
    begin
      Check_login;
      MakeCompass('s');
      count := 0;
      if(CheckForBank)then
      begin
        Result := True;
        Exit;
      end;
      Writeln('Looking for bank with Findobj')
      if(FindObj(x, y, 'Bank', 5464171 , 5))then
      begin
        Writeln('Think we found bank, checking uptext')
        if(BankUptextClick)then
        begin
          Result := True;
        end else
        begin
          Writeln('Bank not found, trying find_chest2');
          try_again := false;
          if(find_chest2)then
          begin
            Result := True;
          end else
          begin
            Writeln('Bank not found with find_chest2');
          end;
        end;
      end;
    end;


    Procedure Open_Bank;
    var
      BankX, BankY :integer;
      AngDeg: Extended;
    begin
      AngDeg := rs_GetCompassAngleDegrees;
      if(AngDeg > 194)or(AngDeg < 166)then
      begin
        MakeCompass('s');
      end;
      Found_Bank := false;
      if(CheckForBank)then Exit;
      BankX := 259;
      BankY := 222;
      count := 0;
      repeat
        MMouse(BankX-10, BankY, 20, -10)
        Sleep(400+random(100));
        Inc(count);
      until(count > 20)or
           (IsUpTextMultiCustom(['Use Ba', 'e Bank', 'nk chest', 'Bank che', 'ank ches']))

      if(BankUptextClick)then
      begin
        //Result := true;
      end else
      begin
        Writeln('Bank not found, trying find_chest');
        if(find_chest)then
        else
        begin
          Writeln('Bank not found after all fail safes');
          If(Lowercase(Log) = 'yes')then
          begin
          Logout;
          end;
          TerminateScript;
        end;
      end;
    end;


    procedure Withdraw_Stuff;
    begin
      if(FindColorSpiralTolerance(x,y,4106994, 193, 27, 226, 36, 10))then
      begin
        //get Logs, row 2 slot 10; Suppy tab
        mouse(438,141,10,10,false)
        sleep(500+random(200))
        GetMousePos(x,y)
        mouse(x-5,y+76,10,4,true)
        sleep(500+random(200))

        //Close Bank
        CloseBank;
      end;
    end;

    procedure Fletch;
    begin
      if(Fletch_Task = 0)then
      begin
        mouse(568, 328,10,10,true);
        sleep(500+random(100));
        mouse(269,405,30,30,true);
        sleep(500+random(500));
        mouse(230,405,30,40,true);
        sleep(1000+random(100));
      end;
    end;


    begin
      ClearDebug();
      Smart_Server := 44;
      SetupSRL();
      DeclarePlayers;
      repeat
        while (not RSReady) do Sleep(500 + Random(500));
        Check_Login;
        found := false;
        try_again := false;
        SetAngle(SRL_ANGLE_HIGH);
      until(LoggedIn)
      repeat
        Open_Bank;
        if(Found_Bank = true)then
        begin
        DepositAll;
        Withdraw_Stuff;
        Fletch;
        sleep(48000+random(1000))
        Found_Bank := false;
        end;
      until(false)
    end.
    Last edited by bud_wis_er_420; 01-25-2012 at 04:49 AM.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  18. #218
    Join Date
    Dec 2011
    Posts
    72
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh i see.. yeah it's probably just me then. I might be getting lag.

  19. #219
    Join Date
    Nov 2011
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this would be awesome with GUI just like in herblore pro.

  20. #220
    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 chelmid View Post
    this would be awesome with GUI just like in herblore pro.
    working on it.

    Quote Originally Posted by tight butts View Post
    Oh i see.. yeah it's probably just me then. I might be getting lag.
    NO, no, no. Thats not what I meant. If it is lag causing your bank problem, I want to fix it. I just need to know cause I don't seem to be having the same problem.
    Last edited by bud_wis_er_420; 01-25-2012 at 02:44 PM.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  21. #221
    Join Date
    Dec 2011
    Posts
    72
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah it is lag. I'm running too many bots at the same time >.<
    So now i'm only going to run 3 bots. Which is still great for me

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

    Default

    Ok I will look into putting in fail safes for lag issues.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  23. #223
    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'll be releasing ver 1.5 tonight, when I get off work. Got only a few more changes to make. I ran out of time on my lunch break.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

  24. #224
    Join Date
    Jan 2012
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by bud_wis_er_420 View Post

    I started back in 2002, Scripting back then was very easy compared to today. Back in rs1(runescape classic) bout the only thing you had to worry about was a shifting screen. No random colors, no random events. Everything could stay the same. There was a runescape train too. Don't remember any names, but it was several bot char that walked a circle around runescape. If there was a place you wanted to go you could catch the runescape people train. Anyways over the years it got harder and harder and I just learned a little by a little. I took a break from rs for a few years. I got married had 2 kids. Then 2 yrs ago got a divorce. I started playing rs again. But the paid refection bots where out. I was very impressed by them, Compared to the old ways. I bought one, then 2, then 3, etc. I didn't need to script. But when the bot nuke came it was back to scripting for me. I had to relearn a lot of forgotten stuff.
    Same with me, I had like 20 bots and spent over $200 on the reflection bots until the bot nuke. Now I want to learn code and make my own bot.

    Logged into world 44
    Now Making 90004 Attack
    Bank Uptext not found
    Bank not found, trying find_chest
    Looking for bank with Findobj
    Think we found bank, checking uptext
    Bank Uptext found, clicking bank
    We did not find bank after clicking, checking for pin screen
    We are at the pin screen and you didn't enter a pin
    Successfully executed.

    Don't have a pin

    ran again after manually putting the angle to the highest

    We have made/cleaned a total of 336 Attacks
    Bank Uptext found, clicking bank
    We are in bank
    Getting unf guam
    Found stored unf guam
    Getting eye_of_newt
    Found stored eye_of_newt
    We have made/cleaned a total of 350 Attacks
    Bank Uptext found, clicking bank
    We did not find bank after clicking, checking for pin screen
    We are at the pin screen and you didn't enter a pin
    Successfully executed.
    The following bitmaps were not freed: [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]

    yet it was in the bank

    3rd time trying it

    We have made/cleaned a total of 196 Attacks
    Bank Uptext found, clicking bank
    We are in bank
    Getting unf guam
    Found stored unf guam
    Getting eye_of_newt
    Found stored eye_of_newt
    Didn not find make screen, shutting down
    Successfully executed.
    The following bitmaps were not freed: [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]

    I give up
    Last edited by NFL; 01-27-2012 at 04:28 AM.

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

    Default

    Vers 1.5 now avaliable, with new setup interface. This is my first Form ever so it will get better. Don't get me wrong though, it works. I am very proud of my self, lol.
    Last edited by bud_wis_er_420; 01-27-2012 at 05:11 AM.
    Not scripting for RS anymore, sorry. Banned too many times.
    MY SCRIPTS

Page 9 of 16 FirstFirst ... 7891011 ... 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
  •