EtherFreak
2010-10-30 02:47:41
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!
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!
// ----------------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----------------------------------------