Results 1 to 2 of 2

Thread: Potion maker w/ smart

  1. #1
    Join Date
    Jul 2010
    Location
    Western US
    Posts
    387
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default Potion maker w/ smart

    This program will clean herbs, and make potions from a vial of water to a finished potion. Remember, in setting the row and colem, they both start on zero, so the first bank slot would be 0 0, the one to the left would be row 0, col 1, ect. Tabs are not supported.

    Features:
    Smart
    can work in specific bank, or any bank with an npc.


    I am posting this for fair use, and I am not required to post anything, If I feel that my work is appreciated, I will let it collect dust on my hard drive.

    Also note, there is no random event detector or solver. usualy the program will break. I never worry about it, for I sit by my computer while it runs. I do not support having a script train while you are away from your computer, so do not look for random even solvers to be added.


    PLEASE post any issues you may have, for this script was not rigorously tested like my other posts, so there may still be a bug or two.

    Enjoy!

    Code:
    //  ----------------SETUP-----------------------------
    // must be in any bank that has a NPC
    loadcount= 10  ;  //how many cycles you need
    sorc=1         ;  //0 for cleaning, 1 for vial and first ingredient, 2 for
    colb= 1                  ;  //Clean herb row
    rowb=  2                 ;  //Clean herb col
    cols=   0                ;  //Vial of water col
    rows=  2                 ;  //Vial of water row
    colu= 5                  ;  //unfinished pot row
    rowu=  2                 ;  //unfinished pot col
    coli=   3                ;  //second ingredient col
    rowi=  2                 ;  //second ingeredient row
    col= 2                   ;  //dirty herb row
    row=  2                  ;  //dirty herb col
    
    bankty= 1                ; //0 for any npc bank, 1 for specific bank
    specific='vwb'           ; //some valed inputs are: 'veb', 'vwb' 'feb'
    var
     x, y: integer;
     counter: Integer;
    count:integer;
     procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      with Players[0] do
      begin
        Name := '';  //set username
        Pass := '';       //set password
        Nick := '';          //set nick 3-4 char
        Active := True;
    //  ---------------END SETUP----------------------------------------
    Of all the things I have lost, I miss my mind the most.
    Current Projects:
    Addy bar miner and superheater

  2. #2
    Join Date
    Feb 2009
    Location
    Irvine, CA
    Posts
    2,873
    Mentioned
    8 Post(s)
    Quoted
    138 Post(s)

    Default

    your entire script is in your main loop... you should fix that...

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
  •