SRL Archive - RS3 Outdated / Broken Scripts

Instructions:

• Start at SW Bank - More banks to come
• Turn Mouseover txt on.
• Have all items you want to use in top 4 bank slots
• Makes sure you have a finish product on the same tab

Only bank location working atm is Edgeville and SW, that I know of. Falador west might work can't remember if I added it.

Download the include and add to your include folder
Download All Potions Maker
File is in a rar because it is over the 195k KB file limit.

Looks nice. Might be trying this later on.

Where's the download?

From: Moni
Where's the download?

He didn't upload it as a file. He just pasted the code which you need to copy in Simba. You can than run it and save it to your PC ;)

When i paste it in simba, it doesn't paste right, It pastes in long rows, when its suppose to go downward. any help?

add Serum 207's they are relatively cheap & fast

I'm working real hard on a major update. Almost done with the big part of it which is the withdraw function. Where it can find any herblore item in the bank, whatever it's position. The rest is easy stuff. I'm hopping I will have a final release ready before the end of the weekend.

From: vashanddou
add Serum 207's they are relatively cheap & fast

I am, every potion you can make will be added. Only pot that will be delayed is the Super fishing explosive potions, as I need to do a few quest to get the second ingredient, Rubium.

i dont know how to use the code corrent..
can u upload it?

Can anyone tell me how to get it to bank? It's not banking unfin potions.

make sure you get the updated vers I posted yesterday. it fixes the move of the deposit all button

The script isn't running more than an hour to two without logging out for me.

the banking is a little buggy atm. For safety, if it can't find the bank, it logs out automatically after the 3rd try. I plan to use a way more actuate banking method. Will fix this on major update sometime this weekend

you herb cleaner is clicking the deposit money tab instead of inv tab

please someone fix this for me, ive been searching for a working herblore cleaner this is the closest i have got. please.

From: Kresh
you herb cleaner is clicking the deposit money tab instead of inv tab

please someone fix this for me, ive been searching for a working herblore cleaner this is the closest i have got. please.

Try my script. It cleans around 2700 herbs per hour.

Sry been working real hard on the new script. I am spending all my time on this right now. I actually have it where it is making pots and everything, I just need to iron out a few bugs, put in more fail safes, antiban. Stuff like that, but atm I can tell it to make 100 att pots and 200 str pots and it will do it. Or tell it to clean 300 guams and 400 irits, etc. But for any pot or any herb. It will also just make unfinished pots too. I just want to make sure it's working 100% b4 I release it. I'm real close tho.

later I plan to add support for doing multiple tasks, like:
Clean 1000 guams, then make 1000 unfinished guam potions, then clean more guams, then clean some tarromins, then make some super att pots, etc

Ahh. You didn't update it to click the Deposit Inventory button. It still clicks the Deposit Coins.

All potion maker now in beta faze

Won't type in username and pass. It just starts looking for bank at log in screen.

Edit:
NEVERMIND. I put the line

Login_44 = 0; // 0 = off; 1 = on

to OFF. I remember why, because i didn't want to bot on world 44. Is there a way to change the world?

Edit:
I got it, i'm not much of a scripter, sorry for asking in the first place.
I just changed the Co ordinates of the clicking. Thanks for the script, its awesome!

it should still log in with 44 = 0; I'll look into this when i ge t home from work.

Oh rly? it didn't and thanks.

I have noticed that sometimes the
while not(rsready) do
sleep()
sometimes don't work. I will add a fail safe for this later, I get off work in 6 hrs

From: bud_wis_er_420
It will also just make unfinished pots too. I just want to make sure it's working 100% b4 I release it. I'm real close tho.

I just read this after trying to figure out the problem for a while >.<

So when do you think you will release unfinished potions?

From: bud_wis_er_420
It will also just make unfinished pots too. I just want to make sure it's working 100% b4 I release it. I'm real close tho.

Just read this after trying to figure out the problem haha, I'll be waiting for unfinished potions :)

worked perfectly earlier and now it comes up with?
Exception in Script: Unable to find file 'SRL/SRL.Simba' used from ''

From: tight butts
Just read this after trying to figure out the problem haha, I'll be waiting for unfinished potions :)

Unfinished pots should already be working. What you have to do is enter 3 for the task and enter what kind of potion uses the herb you want to add to vial. For example, if you want to make unf ranarr pots you would type in Prayer for the type of pot to make. It will only add the herb and not the second.

From: g1u3d
worked perfectly earlier and now it comes up with?
Exception in Script: Unable to find file 'SRL/SRL.Simba' used from ''

Sounds like a problem with srl I will look into it tho.

Edit I made a mistake you enter 2 for unfinished pots

When I go to run the script all I'm getting is Compiled successfully in 140 ms.
Successfully executed.

Wont bring up runescape at all. Any help would be great.

Ver 1.1 Fixed it where it wasn't withdrawing vials and added a better login procedure.
recopy and past.

From: Askyla
When I go to run the script all I'm getting is Compiled successfully in 140 ms.
Successfully executed.

Wont bring up runescape at all. Any help would be great.

Are you using SMART? If not you need to comment out the smart tags. Put a // in front of these:
{$DEFINE SMART}
Smart_Server := 44;

It might be a problem with your computer and paint. I do remember reading something about that. Try commenting out {$i SRL/SRL/misc/paintsmart.Simba}. the run it and comment out each line it errors on till it runs

Thank's got it working, just had some problem's with simba, reinstalled all good. Also does this script make potion's with just using unfinished to make the pot? not making the unfinished first then the pot.

From: Askyla
Thank's got it working, just had some problem's with simba, reinstalled all good. Also does this script make potion's with just using unfinished to make the pot? not making the unfinished first then the pot.

No but I will add that. G2g back to work for a few hours. I'm almost done with the store procedure. And I'm changing the compass angle because it has a hard time finding the uptext with all the alchers right where the text is.

Vers 1.2 released. Please test and report.

From: bud_wis_er_420
Unfinished pots should already be working. What you have to do is enter 3 for the task and enter what kind of potion uses the herb you want to add to vial. For example, if you want to make unf ranarr pots you would type in Prayer for the type of pot to make. It will only add the herb and not the second.

Ohhh alright, i got it now. thanks.

[Error] (2120:5): Invalid number of parameters at line 2119
Compiling failed.
Any tips?

are you sure i put 3 for task? There is no 3.

edit:
also it isn't withdrawing water vials. only the herb. im using harralander. I tried "blamish oil" and "energy"

Edit 2:
Nevermind, just ignore me. i wasn't using the new version.

Edit3:
error on same line that guy above me posted.

Make_Type_Count := Make_Type_Count + 1;

Was working fine last night for 1400 pots. Make sure your entering setting correctly. If not I won't be able to fix till tonight. Sry gotta pull a all dayer at work.

can you show me your settings?

Select_Task = 3; // 0 = Clean berbs. 1 = Make potions 3 = unfinished Pots //
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 = 0; // 0 = off; 1 = on;

//Fill in what to make. You can enter how ever many you want. //
//make amount //
Make[0] := SetVars('energy', 70000); //
//Make[1] := SetVars('Strenght', 20); //
//Make[2] := SetVars('Super Defence', 100); //
//Make[3] := SetVars('Attack', 100); //Copy and past more if you want more //
end; //Just be sure to change the numbers //
//
procedure DeclarePlayers; //
begin //
HowManyPlayers := 1; //
NumberOfPlayers(HowManyPlayers); //
CurrentPlayer := 0; //
Players[0].Name := '****s'; //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;

no that is a typo, in the main post I corrected it. You put 2 for unfinished pots. I'm tired and am gonna take a break on scripting tonight. I worked 12 hrs today and gotta pull another double tomorrow. But don't worry soon this will be working 100%

From: g1u3d
[Error] (2120:5): Invalid number of parameters at line 2119
Compiling failed.
Any tips?

sry my fault delete the line 2118 for now to get it working

delete this. I don't even know why it's there, lol

for count := 0 to High    

[Error] (1456:3): Unknown identifier 'ClearRSCanvas' at line 1455
Compiling failed.

Anyone else get this error?

[Error] (2120:5): Invalid number of parameters at line 2119
Compiling failed.

From: bud_wis_er_420
sry my fault delete the line 2118 for now to get it working

delete this. I don't even know why it's there, lol

for count := 0 to High    

Read next time.

can u give me the code for
to make unf tarromin please :( ?

@matan
Just look through the script for one potion that requires tarromin, and put it in the Set up, as shown on the first post, last code. and put '2' for the task.

From: JackofSPades707
[Error] (1456:3): Unknown identifier 'ClearRSCanvas' at line 1455
Compiling failed.

Anyone else get this error?

sounds like it tried to clear the paint canvas without there being any paint on the screen. I'm on lunch right now but I am gona do a quick update to fix the Invalid number of parameters typo and I will remove painting for now until I find why its calling the clear paint b4 it needs too. Tonight I plan to start adding the fail safes.

Edit: Updated to ver 1.2b with only the above fixes.

You have the best herblore script, no doubt. I've been using your script since i got here haha. Thanks for your hard work.

I was able to use the last script setup you had but this one is little confusing.
I'm trying to make Attack Potions and its saying this

Could not find the Vial_of_water DTM with Block checker
Retrying with FindColorTolerance
Could not find the Vial_of_water with FindColorTolerance

When really it should be looking for Guam Potion (unf) and eye of newt.

Relased ver 1.3, should be way more stable now. The only real problems I'm having it the find uptext fails quite often. I am looking into a better method for this.

I'm using 3 different text finding methods, lol.

trying to make super attack potion

keep getting this error

Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted

it is continuous for a while, then the script gets executed.

Now Making 9000 super attack
Could not find the super attack BMP
Retrying with block checker
Error: Out Of Range at line 1567
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]


Advise me!

From: tight butts
trying to make super attack potion

keep getting this error

Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted

it is continuous for a while, then the script gets executed.

it the srl uptext not working. I looking into a better find uptext method.

From: g1u3d
Now Making 9000 super attack
Could not find the super attack BMP
Retrying with block checker
Error: Out Of Range at line 1567
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]


Advise me!

Only use one task at a time for now. There is a bug Im trying to find that happens when the script tries to switch tasks. G@G to work now. I will work on it whe I get back.

Edit:
Oh wait, 'Now Making 9000 super attack'. Hmm not sure atm will look into this.

How i actually put my user and pass details in this lol?

u don't have to if you want the script wait for you to do it if you don't enter it into the script. But if you want to you would do it where it have this:

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;     

It just opens bank and stares at it what am i doing wrong?

/////////////////////End of Ignore this////////////////////////////////////////
//
//Fill in what to make. You can enter how ever many you want. //
//Tasks: 0 = Clean berbs. 1 = Make potions 2 = unfinished Pots //
// (make, amount, Task) //
Make[0] := SetVars('Super Defence', 10000, 1); //
//*NOTE* ONLY USE THE ABOVE ONE FOR NOW //
//Make[1] := SetVars('Guam', 14, 0); //
//Make[2] := SetVars('Super Defence', 100); //
//Make[3] := SetVars('Attack', 100); //Copy and past more if you want more //
end; //Just be sure to change the numbers //
//
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;

From: yesitzme
It just opens bank and stares at it what am i doing wrong?

try filling out your username and password….

From: NFL
try filling out your username and password….

Its already logged in..

When it starts and logs in, it opens bank and can't find the withdraw- 14 option.

It won't make me Attack Pots using my Guam (unf) Pot and eye of newt, keeps asking for Vial of water which has nothing to do with making em.

Fixed some stuff. Ver 1.3b Everything should be working now. Now I am going to start working on making the script prettier with progress reports and other cool stuff stuff. Any bug you find now is a bug I'm not aware of so please report.

when doing super attacks, it still looks for vial of water.

gets stuck still because it talks to nomad

Now Making 5500 super attack
super attack is not found in storage
Could not find uptext: , , or
Could not find the BMP
Retrying with block checker
Could not find uptext

cannot find uptext not bmp's any idea how to rescript

From: tight butts
when doing super attacks, it still looks for vial of water.

That was a typo in the case. It should be fixed.

From: eljb1234
gets stuck still because it talks to nomad

Need a fail safe for banking. Will work on it after work

From: g1u3d
Now Making 5500 super attack
super attack is not found in storage
Could not find uptext: , , or
Could not find the BMP
Retrying with block checker
Could not find uptext

cannot find uptext not bmp's any idea how to rescript

this was a bug I found and was suppose to be fixed. Redownload and try again.

I tested all this last night and was working fine. The only bug I came across was the talking to nomad one. When I get off work I will test some more. But I did upload a few time last night to correct a few typos. So please redownload and try again.

From: bud_wis_er_420
That was a typo in the case. It should be fixed.




Need a fail safe for banking. Will work on it after work

Thanks a lot mate. Great script btw :)

I've done a little testing b4 work . I still got a bit of debugging. I get off work at 3pm today so I will fix these bugs after that. Damn I thought it was finally ready. So close tho.

to fixed multi support add this line

Total_done := 0;

after this line on line 2295

Storecount := 0;

. This resets the count for adding how many we have done to know when to switch to next task.

If you fix the nomad problem, then making just unf potions (herb and water) will be perfect :D

Are you not suppose to have unfinished potions in your script? In super attack, i just see "irit", not "unfin irit" for the first item, and "irit" is under herbs. just wondering. and it still grabs vial of water, ha sorry.

The old script worked better got me to 94 now I just can't get those last 2 levels.

Ok sry bout b4. There was a few things I missed. But now It should be working fine.

From: NFL
The old script worked better got me to 94 now I just can't get those last 2 levels.

Basically this is this old script just revamped. Most of it is the same. It's the item finding of ALL Herblore items that was a bitch. And adding things and trying others, etc. Things got put in the wrong place or left out all together. Finding some proved to be troublesome. But I think I got it all together now.

From: tight butts
Are you not suppose to have unfinished potions in your script? In super attack, i just see "irit", not "unfin irit" for the first item, and "irit" is under herbs. just wondering. and it still grabs vial of water, ha sorry.

I plain to add them next. I wanted to get script running correctly first.

Something I forgot. Go to line 2185 and change RanX := -10; to RanX := -20;
Now that the nomad fail safe is in place this need a geater range to the left.
This is not important but it is a little more human like.

wow, it's been processing for a while now. Is the video working for you bud?

EDIT:

Ohhh why didn't you say that before? I've been trying to make super attacks for a while haha… Can't wait. :)

Now Making 0
Found stored
Option Withdraw-28 not found
Option Withdraw-X not found
We have made/cleaned a total of 28 s
Finished Making 28
Now Making 5100 super attack
vial_of_water is not found in storage
Could not find uptext: of , wat, or f wa
Could not find the of BMP
Retrying with block checker
Could not item with finditem 2
Retrying with FindColorSpiralTolerance
vial_of_water stored to (436, 137)
irit is not found in storage
Could not find uptext: Clean iri, ean iri, or an irit
Could not find the Clean iri BMP
Retrying with block checker
Could not item with finditem 2
Retrying with FindColorSpiralTolerance


you need to sort this bot out

g1u3d, You have vial of water, clean irit, and eye of newt on top 4 bank rows?

Exactly as you see from the vid if finds the vial of water fine. try moving it to another location and see if that works.

but i am curious why it called finditem2 twice, hmmm……


Nvm, I think I see now. It finds the item with color tol and moves on the the next, which was the irit. It didn't find it and was gona try with color tol but you didn't post the rest of the log to see what happened next. If you had the irit in the top four row I would guess it would have found it. That is the script going though the fail safes. It is normal as long as it finds the item at the end.

Had to press log in myself

We are at the login screen
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting
Waiting

Hmm I will look into it. First time I seen that. Are you sure you had smart enabled?

This is what happens when I try and make Attack Potions

Now Making 90000 Attack
Could not find the Vial_of_water BMP
Retrying with block checker
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not item with finditem 2
Retrying with FindColorSpiralTolerance
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted
Could not find uptext: of , wat, or f wa
Retrying with Uptext Failsafe 1
Could not find uptext with Uptext Failsafe 1
Retrying with Uptext Failsafe 2
Could not find uptext with Uptext Failsafe 2
All Uptext failsafes exhausted

This is my setup

//Fill in what to make. You can enter how ever many you want. //
//Tasks: 0 = Clean berbs. 1 = Make potions 2 = unfinished Pots //
// (make, amount, Task) //
Make[0] := SetVars('Attack', 90000, 1); //
//*NOTE* ONLY USE THE ABOVE ONE FOR NOW //
//Make[1] := SetVars('Guam', 14, 0); //
//Make[2] := SetVars('Super Defence', 100); //
//Make[3] := SetVars('Attack', 100); //Copy and past more if you want more //
end; //Just be sure to change the numbers

This is my bank tab

NFL, you cant use unfinished potions yet, you have to make unfinished potions then use eye of newt. so you need water of vial, clean guam, and eye of newt

dude that writeln All Uptext failsafes exhausted is not even in the ver 1.3c and like tight butts said unf is not supported yet I am working on it next.

But you have an outdate ver anyways the new ver is 1.3c redownload.

Edit: I just got done claning 15k Guams in 2 hrs. That's what 7.5k an hr? Sounds to good to be true, tho.
That's a rough time estimate. We will know for sure when I get the progress report in there.

From: tight butts
NFL, you cant use unfinished potions yet, you have to make unfinished potions then use eye of newt. so you need water of vial, clean guam, and eye of newt

of well you used to be able to with the old script

I'm working on it right now but for now I will repost it for you.

{/////////////////////////Fetures///////////////////////////
                                                          //
1. Anti-Ban                                               //
2. Finds bank again if it misclicks and moves             //

TO DO:
1. Use object finding to know when finished with vials
2. Check for right tab.
3. put in fail safes for lag issues
4. better login procedure, on/off switch, world selecter
5. More randomness, and misclicks
6. better check for txt procedure, editable names
7. add paint to SMART
8. make a form to enter settings
                                                          //
///////////////////////////////////////////////////////////}

{/////////////////////////Set_Up////////////////////////////
                                                          //
SoulWars Bank, North, all the way up.                     //
Fixed screen                                              //
Vails of Water, row 1 slot 1                              //
Herbs, row 1 slot 3                                       //
2nd ingdent, row 2 slot 9
Un-finished Pot, row 2 slot 10                                 //
Make sure to set Bank X = 14                              //
                                                          //
///////////////////////////////////////////////////////////}

////////////////////Ignore This Part////////////////////////
program SW_Herblore;                                              //
{$DEFINE SMART}                                           //
{$i srl/srl.scar}
{$i SRL/SRL/misc/paintsmart.scar}                                           //
var x,y,m,n,k,l,o,p,t,step :integer;
    txt :string;                      //
    found,Found_Bank,try_again :Boolean;
    pixelsFound:TPointArray;                            //
const                                                     //
////////////////////////////////////////////////////////////

/////////////////How many pots to make//////////////////////
                                                          //
What_to_make    = 2; //1=unfinished pots, 2=finished pots //
Pots_to_make    = 7500; // How many to make              //
Check_Text_Type =0; // 0 = off; 1 = text; 2 = name       //
Login_44        = 1; // 0 = off; 1 = on;
Playsound_When_Done = true;//                                   //
                                                          //
////////////////////////////////////////////////////////////

/////////////////////Player Info///////////////////////
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;

///////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////
///////////////////Begining of Script///////////////////////
////////////////////////////////////////////////////////////


procedure Check_for_text;
var
  time :longword;
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('C:\botclient\config\sounds\alarm.wav');
    time := GetSystemTime;
    writeln('Text found at ' + inttostr(time));
    found := true;
    end;
  end;

//Checks for nick
if(Check_Text_Type = 2)then
  begin
  if(FindChatBoxText(Players[0].Nick, 8, clBlue))then
    begin
    playsound('C:\botclient\config\sounds\alarm.wav');
    time := GetSystemTime;
    writeln('You name found at ' + inttostr(time));
    found := true;
    end;
  end;
end;
end;

procedure AntiBan;
var j, WTime, SleepT1, SleepT2 :integer;
begin
j := random(201)
WTime := 7000 + random(500);
SleepT1 := 500 + random(2000);
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(7000 + random(500));
     end;
  end;
end;

procedure Check_Login;
begin
if((getcolor(361, 135)=12378347)and
   (getcolor(274, 165)=12378347))or
   (LobbyScreen)then
   begin
   if(Login_44 = 1)then
     begin
     if(LobbyScreen)then
       begin
       OpenWorldScreen;
       while (not Worldscreen) do sleep(100+random(100));
       wait(1000+random(1000));
       Mouse(123,125, 3, 3, true);//click world order arrow
       wait(500+random(1000));
       Mouse(686,157, 4, 0, true);//click scroll bar top
       wait(1000+random(1000));
       Mouse(687, 257, 3, 0, true);//click scroll bar to see world 44
       wait(1000+random(1000));
       Mouse(144, 281, 100, 8, true);//click world 44
       wait(2000+random(1000));
       Mouse(308, 452, 160, 19, true);//click login
       wait(2000+random(1000));
       while (not RSReady) do sleep(100+random(100));
       end else
       LoginPLayerToLob;
       while (not LobbyScreen) do sleep(100+random(100));
       OpenWorldScreen;
       while (not Worldscreen) do sleep(100+random(100));
       wait(1000+random(1000));
       Mouse(123,125, 3, 3, true);//click world order arrow
       wait(500+random(1000));
       Mouse(686,157, 4, 0, true);//click scroll bar top
       wait(1000+random(1000));
       Mouse(687, 257, 3, 0, true);//click scroll bar to see world 44
       wait(1000+random(1000));
       Mouse(144, 281, 100, 8, true);//click world 44
       wait(2000+random(1000));
       Mouse(308, 452, 160, 19, true);//click login
       wait(2000+random(1000));
       while (not RSReady) do sleep(100+random(100));
     end;
   end else LoginPLayer;
end;

procedure Find_Chest2;
var ax, ay, count1, count2 :integer;
    Found_Box :Boolean;
begin
ax := 259;
ay := 170;
count2 := 1;
Found_Box := false;
Check_Login;
 MakeCompass('s')
 SetAngle(True);
  repeat
  //Move right
  if(Found_box = false)and(count2<30)or not(BankScreen)then
    begin
    count1 := 0;
      repeat
      MMouse(ax, ay, 0, 0);
      sleep(50+random(10));
      if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))then Found_box := true;
      ax := ax + 10;
      count1 := count1 + 1;
      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(50+random(10));
      if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))then Found_box := true;
      count1 := count1 + 1;
      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(50+random(10));
      if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))then Found_box := true;
      ax := ax - 10;
      count1 := count1 + 1;
      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(50+random(10));
      if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))then Found_box := true;
      count1 := count1 + 1;
      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)
  if(BankScreen)then
    begin
    Found_Bank := true;
    Exit;
    end;
if(Found_box = true)then
   begin
  t:=0;
  GetMousePos(x,y);
    repeat
    MMouse(x-10, y-10, 20, 20);
    sleep(200 + random(100));
    t := t + 1;
    until(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))or
         (t > 20)or(BankScreen);
  if(BankScreen)then Found_Bank := true;
  if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))then
    begin
    GetMousePos(x,y);
    Mouse(x,y,0,0,true)
    sleep(3000 + random(2000))
    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');
    Find_Chest2;

    end;
if not(BankScreen)then
    begin
    playsound('C:\botclient\config\sounds\alarm.wav');
    sleep(30000 + random(10000))
    Logout;
    writeln('Logged out, cound not find bank');
    TerminateScript;
    end;
end;

procedure Find_Chest;
var ax, ay, count1, count2 :integer;
    Found_Bank_box :Boolean;
begin
ax := 200;
ay := 204;
count2 := 250;
//Move right
count1 := 0;
Check_Login;
repeat
MMouse(ax-5, ay, 0, 0);
if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))then Found_Bank_box := true;
ax := ax + 1;
count1 := count1 + 1;
until(count1 >= count2)or(Found_Bank_box = true)or(BankScreen)

if(BankScreen)then
  begin
  Found_Bank:=true;
  Exit;
  end;

if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))then
  begin
  GetMousePos(x,y)
  Mouse(x,y,0,0,true)
  sleep(3000 + random(2000))
  if(BankScreen)then
    begin
    Found_Bank:=true;
    end else Find_Chest2;
  end else Find_Chest2;
end;

Procedure Open_Bank;
var  xy_point, Zx, Zy, RanX, RanY :integer;
begin
if(BankScreen)then Exit;
 t := 0;
 Found_Bank := false;
 xy_point := random(2);
 Zx := 255;
 Zy := 210;
 RanX := 15;
 RanY := 6;
repeat
if(FindColorsTolerance(pixelsFound,10197922,230,184,291,225,30)) then
    SMART_DrawDotsEx(False,pixelsFound,clRed);
  MMouse(Zx, Zy, RanX, RanY);
  sleep(1000 + random(100));
  t := t + 1;
until(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))or
     (t > 20)or(BankScreen);
ClearRSCanvas(SMART_Canvas.canvas);
if(BankScreen)then Exit;
if(t > 20)then
   begin
   writeln('Could not Find Bank 1');
   Check_Login;
    MakeCompass('s')
 SetAngle(True);
   Find_Chest;
   if(BankScreen)then writeln('Bank Found 1');
   end;
if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))and
  (Found_Bank = false)then
  begin
  GetMousePos(x,y)
  Mouse(x,y,0,0,true);
  t := 0;
    repeat
    sleep(100 + random(100));
    t := t + 1;
    until(BankScreen)or(t > 20);
          if(t > 20)then
            begin
            if(PinScreen)then
              begin
              writeln('Found Pin Screen');
              InPin(Players[CurrentPlayer].Pin);
              writeln('Pin successfully entered');
              end else
              begin
              writeln('Could not Find Bank 2');
              Find_Chest;
               if(BankScreen)then writeln('Bank Found 2');
              end;
            end;
  end;
end;

procedure Deposit_Stuff;
begin
if(BankScreen)then
  begin
  Mouse(366, 303, 6, 6,true);
  sleep(200 + random(200));
  end;
end;

procedure Withdraw_Stuff;
begin
if(BankScreen)then
  begin
  //get Vails of Water, row 1 slot 1
  Mouse(k - 5, l - 5, 10, 10, false);
  sleep(200 + random(100));
  GetMousePos(x, y);
  Mouse(x-5, y+74, 10, 4, true);
  sleep(300 + random(200));
  //get Herbs, row 1 slot 3
  Mouse(o-5, p-5, 10, 10, false);
  sleep(200 + random(100));
  GetMousePos(x, y);
  Mouse(x-5, y+74, 10, 4, true);
  sleep(300 + random(200));
  //Close Bank
  Mouse(482, 29, 6, 6, true);
  sleep(500 + random(200));
  end;
end;

procedure Make;
var h :integer;
begin
Mouse(570, 340, 10, 10, true);
sleep(200 + random(200));

Mouse(570, 372, 10, 10, true);
sleep(1000 + random(200));

Mouse(227, 406, 30, 20, true);
h := 1;
AntiBan;
  repeat
  sleep(500 + random(10));
  Check_for_text;
  h := h+1;
  until(h > 4);
if(What_to_make = 2)then
  begin
  h := 1;
    repeat
    sleep(500 + random(10));
    Check_for_text;
    h := h + 1;
    until(h > 12);
  end;
end;

begin

Smart_Server := 44;
SetupSRL();
DeclarePlayers;
while (not RSReady) do
  SleepAndMoveMouse(100 + Random(500));
Check_Login;
n := pots_to_make / 14;
m := 0;
t := 0;
step := 0;
found := false;
try_again := false;
sleep(2000 + Random(1000));
 MakeCompass('s');
 SetAngle(True);
 MakeCompass('s');
sleep(3000 + Random(1000));
if(What_to_make = 1)then
  begin
  k := 53;
  l := 109;
  o := 141;
  p := 105;
  end;

if(What_to_make = 2)then
  begin
  k := 448;
  l := 152;
  o := 404;
  p := 148;
  end;
repeat
Open_Bank;
Check_for_text;
Deposit_Stuff;
Check_for_text;
Withdraw_Stuff;
Check_for_text;
Make;
Check_for_text;
m := m+1
if(found = true)then
  begin
  step := step+1;
  if(step > 20)then
    begin
    found := false;
    end;
  end;
until(m >= n);
if(Playsound_When_Done = true)then
  begin
  playsound('C:\botclient\config\sounds\alarm.wav');
  end;
sleep(3000 + random(20000))
Logout;
writeln('Logged out, task completed');
end.

Il test out 1.3c now :) thanks :D

There are a few fixes I found so far that will be release in ver 1.3d. Also I'm about 3/4 done with the unf pot to finished pot method. But for the most part this script is good to go. I'm gonna tweak the banking too. But for now good night folks.

Does it still misclick nomad? or can it find the bank if it does now? And sweet cheers man :)

It somehow can't find the herb for me. It just takes the vials of water out then hover over the herb.

From: DeiJaiVui
It somehow can't find the herb for me. It just takes the vials of water out then hover over the herb.

What herb, and can you post a pic and your settings?

From: eljb1234
Does it still misclick nomad? or can it find the bank if it does now? And sweet cheers man :)

I have some fail safe in the for nomad that are about 90% effective. I am working on vers 1.4 that will have 100% against nomad, add support for unf to finished, a paint proggy, and a few bug fixes that would occur in certain tasks.

From: bud_wis_er_420
What herb, and can you post a pic and your settings?



I have some fail safe in the for nomad that are about 90% effective. I am working on vers 1.4 that will have 100% against nomad, add support for unf to finished, a paint proggy, and a few bug fixes that would occur in certain tasks.

Coolio :D

Ver 1.4a released. Unf to finished supported now. Didn't have much time to test but it seems everything is working ok. Need testing and bug reports please.

Didn't like the way the banking was working out so I changed a few things. It was very bot like moving all the time, when nomad got in the way. Now it's much better. if you already downloaded 1.4a redownload.

i was a bit confused because it said version 1.3b in the new script, but it's all good now.
Thanks, and good job :D

opps forgot to change that

Fixed


OMG i just remebered I never finished entering the text options for ea unf pot. Only did the ones I was testing script with. I will fix this tomarrow, in next update. But to fix you self just scroll down to the unf pot you want to withdraw. It will be listed like: 'unf guam', 'unf irit', etc and change the text string accordingly. just copy wat I did for the unf guam one and replace the herb name.

deleted.

Works flawlessly :D

NO! runescape has been updated :(… this script was perfect :/

To everyone: script doesn't work due to runescape updates.

From: tight butts
NO! runescape has been updated :(… this script was perfect :/

To everyone: script doesn't work due to runescape updates.

It does work man, theres a patch

How do you mean there is a patch ^^?

Have a look on here

http://villavu.com/forum/forumdisplay.php?f=197

Do you mean this thread?
http://villavu.com/forum/showthread.php?t=72513

I'll do a quick update in a min to fix.

I updated SRL and everything is working fine…. :confused:

Ok I found the problem with the progress report. LOl I was calling the procedure in the wrong place. I was tired last night. Anyways eberything seems to be working great so I'm gonna take a break from scripting today. If you find a bug report it and I will fix it asap.

ver 1.4b released. Fixed proggy

Okay, so I know I am new here, still trying to orientate here, but

I installed the script and ran it. It logs in successfuly, opens the chest, do the pin. But the, it does not withdraw the herbs - lantadymes, closes the bank and clicks the empty inventory.

What am I doing wrong?

you need to update your srl. There was a rs update today that messed up the withdraw optionfinding. Apparently it has been fixed because I did an update b4 I even tried fixing it and it worked fine.

BTW just update again without a ver change. I forgot to finish the unf pot uptext char again. It is now done. Script is fully functional now.

Except making antipoison+'s. You need to add 2nds to a anti poison under it. Don't have a method for this yet installed.

I also added a fail safe that if it dose not find the withdraw option it shuts down. B4 it would have kept going, which is a high risk of banhammer.

Nice release will try when i get membership back

[Error] (2474:77): String error at line 2473
[Error] (2474:77): Syntax error at line 2473
Compiling failed.

Found the problem

Item_Text := ['omin potion (un', 'min potion (unf', 'romin potion (u];

Item_Text := ['omin potion (un', 'min potion (unf', 'romin potion (u'];

opps thx will fix real fast

Once it gets to the log in screen and types in the username and password it just keeps

waiting
waiting
waiting

I have guam (unf) pots and eye of newt and I put task 3 but this still insists on looking for vial of water to make the attack potions.

I see where you told it to look for unf guam and eye of newt in the code so I don't know why its still looking for vial of water.

procedure Setup_What_to_Make;
begin
if(Make[Make_Type_Count].Select_Task = 0)then
begin
First_Item := Capitalize(Make[Make_Type_Count].Potion);
First_Item_Amount := 'All'
end else
begin
case Lowercase(Make[Make_Type_Count].Potion) of
'attack' : begin
if(Make[Make_Type_Count].Select_Task = 1)or
(Make[Make_Type_Count].Select_Task = 2)then
begin
First_Item := 'guam';
First_Item_Amount := '14';
Second_Item := 'eye_of_newt';
Second_Item_Amount := '14';
end else
begin
if(Make[Make_Type_Count].Select_Task = 3)then
begin
First_Item := 'unf guam';
First_Item_Amount := '14';
Second_Item := 'eye_of_newt';
Second_Item_Amount := '14';
end else
begin
Writeln('Unknown task type "' +
inttostr(Make[Make_Type_Count].Select_Task) +
'", please select a number 0-3');
TerminateScript;
end;
end;
end;

lets see the settings nfl

When you adding breaking/multiple players then that will be the nuts

i do not understand enough coding to figure out how to set up the script im trying to do serum 207

So, does it support unfs atm or I am just stupid and unable to set it up? :)

From: Leonoras
So, does it support unfs atm or I am just stupid and unable to set it up? :)

It should. Let me look real fast.

Bud wiser , Does this have multiple players already? If so how do i use it?

Thanks

Unf to finished pots is working fine. I tested on Super Attack here is the settings.
Make[0] := SetVars('Super Attack', 190, 3);

Bwt I'm in the middle of making a settings form for easyer setup. Not nearly done yet but here is the basic outline.

From: eljb1234
Bud wiser , Does this have multiple players already? If so how do i use it?

Thanks

No never done that b4, so have been procrastinating on learning it. But I do plain on adding it.

SRL Compiled in 16 msec
SMART Initialized.
Loaded: Server 44, Members: False, Signed: False, Super Detail: False.
Setting up paint
Setting task0: Looking for what we are making = 3
Now Making 190 serum 207
Getting unf tarromin
unf tarromin is not found in storage
I Think we found the unf tarromin
Checking the uptext omin potion (un, min potion (unf, or romin potion (u
Uptext Found
unf tarromin stored to (53, 112)
Option Withdraw-14 not found
Option Withdraw-X not found, shutting down
Successfully executed.
The following bitmaps were not freed: [3]

same thing is happening with me

make sure your srl is updated. There was an rs update yesterday and srl has to be updated.

Yup, just tested it. It's withdrawing fine. So again, make sure you srl is up to date.

From: madmash

Option Withdraw-14 not found
Option Withdraw-X not found, shutting down
Successfully executed.
The following bitmaps were not freed: [3]

From: bud_wis_er_420

I also added a fail safe that if it dose not find the withdraw option it shuts down. B4 it would have kept going, which is a high risk of banhammer.

Well at least we know the fail safe is working. :p

From: bud_wis_er_420
make sure your srl is updated. There was an rs update yesterday and srl has to be updated.

Yup, just tested it. It's withdrawing fine. So again, make sure you srl is up to date.






Well at least we know the fail safe is working. :p

I just did and its happening again.

I will look into making a fail safe for when the find option fails. That's SRL, not me. And I'm losing in votes for members because I don't use enough SRL in my script, ain't that irony for you.

I will release a quick fix in just a sec

How do I vote for you. Your nice and really on top of things you deserve my vote.

Only members can vote.

Try it now. I didn't test it but it should work fine. Let me know so I can fix it if it don't.

I'll make this a fail safe for the withdrar x function later too. BUt I think I will keep the manualy option in there. Because mif it breaks again it will go threw all options each time b4 the manual kicks in. I could go even further and remove the srl function all together and put in a first time withdraw-x method to set the amount for that item. that way it's set for each item and it will just use x,y distance instead of text finding. Let me know what you like. I did this for my cannonball maker

haha you ere rite sorry bud, the srl was not updated!

Thanks for the wonderful script

Bud, you said you are going to add an easy set up for people. can you keep a seperate script without one? I like running the script 24/7 with the "crashSMART" hack by harry, which allows me to make pots all day. and the easy set up will stop that because everytime the client resets, I'll have to manually set it up again. Thanks :D

What I'll do is have an option to turn it on and off. If you save the script with it off, when it reloads it will still be off.

SWEET, you're awesome Bud. thanks man.

tight butts, how do you this 24/7 without multi log in?

When I downloaded new script and tried to run.

[Error] (2858:47): Type mismatch at line 2857
Compiling failed.

if(Lowercase(ManualWithdraw = ' off'))then

Looking into it right now. That's weird tho because it compiled fine last night b4 I uploaded it.

Fixed redownload. I put ")" in wrong place sry.

Is it just me or is this not making finished potions?

you were right I'm sry. I found the bug. It's fixed now redownload.

Even with the Option On its still

Option Withdraw-14 not found

From: NFL
Even with the Option On its still

Option Withdraw-14 not found

That is a srl function. It works for everyone else so you must not have the up to date ver of srl. Give me a few days to finish the next ver and It will have a manual option that will work like the original script. In the mean time if you still can't get it working after you do a manual srl update, use the strip down ver I post a few pages back. (Don't just rely on automatic updates, check manually too.)

here is a vid of it working fine with ver 1.4b-2. http://youtu.be/M25yG9AyjdU

I've noticed a couple times before and just now the bot will click between the 2 places that you come out of Soul Wars when your activity bar is empty and then can't find the bank.

Getting unf guam
Found stored unf guam
Getting eye_of_newt
Found stored eye_of_newt
We have made/cleaned a total of 182 Attacks
Getting unf guam
Found stored unf guam
Getting eye_of_newt
Found stored eye_of_newt
Option Withdraw-14 not found
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]
No Plugins update available.
No SRL update available.

From: NFL
I've noticed a couple times before and just now the bot will click between the 2 places that you come out of Soul Wars when your activity bar is empty and then can't find the bank.

Can you explain further? I don't understand what you mean.

does this work with etxrm attks ?

From: Zeroexe7
does this work with etxrm attks ?

Yes, it works for ALL potions, read the description mate :)

Now Making 190 extreme attack
vial_of_water is not found in storage
Could not find uptext: of , wat, or f wa
Could not find the of BMP
Retrying with block checker

No vials are needed to make extm attks plz fix?

Zero… maybe you should look into the set up more thoroughly.
Edit: Bud , your script is amazing and everything, no complains, but how would i go about in speeding it up a lil bit after it finishes making potions? it has like a 3 second or 4 second pause before banking.

From: bud_wis_er_420
Can you explain further? I don't understand what you mean.

I'll come back to my computer to find the bot logged out and in this spot

not sure if its cos the scroll of cleanse speeding up the mixing of potions but the wait between banks at the end of each round of mixes seems to be too long

May I ask what does this

The following bitmaps were not freed: [3]

mean?

From: Leonoras
May I ask what does this

The following bitmaps were not freed: [3]

mean?

update you SRL bro.

open simba > click SRL on toolbar > check for update > restart simba

should be working then.

From: nathan lad
not sure if its cos the scroll of cleanse speeding up the mixing of potions but the wait between banks at the end of each round of mixes seems to be too long

yea i have noticed that aswell and im not using a scroll of cleansing. it looks like there is a bit of a wait between finishing the last pot in your inv and opening the chest.

it suppose to check the color of the 14th slot at the beginning of making pots and if the color changes it know it is finished making pots. If it doesn't find a change if waits for a set amount of secs. So what it seems like is it's not detecting the color change. To lower the wait time manually till I can have a chance to look at it go to line 3533 and change
(Tcount > 4) to Tcount > '2' or '1'. It is a half sec ea. Finishing time differs depending if you have the scroll of cleansing or not.

NFL, i noticed on that pic you are not in low detail. Try that and see if you problems are fixed.

From: Leonoras
May I ask what does this

The following bitmaps were not freed: [3]

mean?

Thats normal. There is no reason to free the bmps. Every item uses the same variables to load bitmaps into. So, there is no memory leak. Or shouldn't be anyways. I too have noticed the bmps stacking. Still trying to figure it out.

I keep getting the

The following bitmaps were not freed: [3]

message and the bot stops… any solutions?

EDIT: Once again i do not check above posts, my apologies.

EDIT: The above method of updating my SRL didnt work, because mines already updated… any other fixes?

line 3533 doesnt have a line about tcount it simply says begin

Yeah, same as Soul.

I have my SRL updated, that was the first thing I checked. But still getting this message.

From: bud_wis_er_420
it suppose to check the color of the 14th slot at the beginning of making pots and if the color changes it know it is finished making pots. If it doesn't find a change if waits for a set amount of secs. So what it seems like is it's not detecting the color change. To lower the wait time manually till I can have a chance to look at it go to line 3533 and change
(Tcount > 4) to Tcount > '2' or '1'. It is a half sec ea. Finishing time differs depending if you have the scroll of cleansing or not.

NFL, i noticed on that pic you are not in low detail. Try that and see if you problems are fixed.



Thats normal. There is no reason to free the bmps. Every item uses the same variables to load bitmaps into. So, there is no memory leak. Or shouldn't be anyways. I too have noticed the bmps stacking. Still trying to figure it out.

Ya I am but this was me logging into RS myself not using Simba.

I'm trying to run your old script but its saying

[Error] (210:17): Type mismatch at line 209
Compiling failed.

SetAngle(False);

new ver 1.4c. Fixed some bug and added a real manual option this time. That was a quick fix last time. This one is completely manual, so make sure you set the Withdraw-X number b4 you start the script. You can only do one task at a time in manual mode. Put the items in their correct place, listed in the script. But try the auto first because I may have already fixed your problems. If auto don't work report the bug so I can fix it. But in the mean time you can switch over to manual instead of having to wait for me to fix it. That's the idea of the manual mode.

Remember to tell me what kind of potion you are trying to make and post your settings. A pic is always great too.


Edit: oh and I fixed the waiting after done making things

Edit2: and NFL, I fixed the closing bank bug. I musta had the randoms too high. I'm now using srl's function instead.

From: NFL
Getting unf guam
Found stored unf guam
Getting eye_of_newt
Found stored eye_of_newt
We have made/cleaned a total of 182 Attacks
Getting unf guam
Found stored unf guam
Getting eye_of_newt
Found stored eye_of_newt
Option Withdraw-14 not found
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]
No Plugins update available.
No SRL update available.

I just REALLY LOOKED at this. So, it successfully made 182 att pots b4 it didn't find the withdraw? Here is what I'm thinking of doing about this. It seems the srl function to withdraw is a little buggy. So I will set a method in there where it only looks for the withdraw text one time to check for proper amount. Instead of every time it withdraws. I did this for the item finding. It should work alot better. I will add this to my to do list.

Edit: Ok new ver with only one time looking for ChooseOption function. ver 1.4c-2

Could not find uptext: Eye of, of new, or ye of ne
Could not find the Eye of BMP
Retrying with block checker
eye_of_newt stored to (53, 150)
We have made/cleaned a total of 14 Attacks
Could not find bank after 5 tries
Successfully executed.
The following bitmaps were not freed: [3, 4]

Picture of my bank I just stopped the script


It was in my bank yet it says it can't find it.
I'm going try it again and see what happens.

Try it now I adjusted the bank finding variables.

Just stands at the bank after logging in for me. . .

Holy crap, It has improved alot! it's making 2700 unfinished potions an hour! You NEVER cease to keep impressing me Bud haha. Good job! This is my favorite script ^.^

I give up on trying, not working for me.

What exactly is not working for you?

From: kevin33
What exactly is not working for you?

If its not finding the chest, then it wouldn't adjust angle to high or it would click away from the chest and it get lost.

If I can figure out how to block out my Username, Levels and Character I'd make a youtube video of it all happening.

From: kevin33
What exactly is not working for you?

Stands at bank. Never finds it.

What possibly might be wrong? :/ It won't find the herbs, withdraws vials and then just hovers.

I don't know what the hell is going on because every time I try it it works fine for me. It is late I have been working on the form tonight . I thought everything was good. Even if your have trouble with the auto use the manual. I will do something about the banking tomorrow. To all you having trouble. Post what you are trying to make, your settings and debug info. I can't fix anything based on a vague description. I don't seem to be experiencing the bugs you all are and don't know where to look without more info.

From: NFL
If its not finding the chest, then it wouldn't adjust angle to high or it would click away from the chest and it get lost.

The adjust angle to high is done at the very beginning of the main.(ln 3763). So unless you pause the script in the middle and readjust the angle I don't see how this could happen. Unless the function failed which again I don't see how it could happen.

I don't know really what up with the chest It's like there is a shadow around the silver part of the chest and it want to get the color up high. Something is wrong. I thought I had it figured out but it don't look like it. I use the same banking procedure in my fletching script and I too have noticed it not working properly. Like I said above I will fix this after work tomorrow.

Getting lost I need more info. It should never CLICK anything outside of the bank, inv window or chat window except the bank chest. And this won't click unless if finds text 'bank'. And even if it does misclick, which sometime occasionally happens when nomad walks into the path of the mouse click at the wrong moment, it shouldn't go far from the bank chest, trying to talk to Nomad. If this happens, which is very rare, the spiral fail safe should kick in.

This bug I'm getting is really urgent to be taken care of. Because its extremely botlike and brings attention to your character when it happens.

I'm still trying to make Attack Potions with Eye of Newt and Guam (Unf) Potions. I'm on fixed, safemode, and min.

I posted a screenshot before in the thread of where the bot runs to from the chest.

The script is working good for like 400 pots then runs into a bug.

Heres the debug info, I got lucky enough that it ran so long.

We have made/cleaned a total of 2982 Attacks
Could not find bank after 5 tries
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, 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, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, 301, 302, 303, 304, 305, 306, 307, 308, 309, 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 321, 322, 323, 324, 325, 326, 327, 328, 329, 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 361, 362, 363, 364, 365, 366, 367, 368, 369, 370, 371, 372, 373, 374, 375, 376, 377, 378, 379, 380, 381, 382, 383, 384, 385, 386, 387, 388, 389, 390, 391, 392, 393, 394, 395, 396, 397, 398, 399, 400, 401, 402, 403, 404, 405, 406, 407, 408, 409, 410, 411, 412, 413, 414, 415, 416, 417, 418, 419, 420, 421, 422, 423, 424, 425, 426, 427, 428]

:sasmokin:Nice script.
but could someone plz send a pic what should setup look like when I just want to make unf harralander potions.vials of water in 1 row 2 slot and clean harralander in 1 row 1 slot.
(set up is too complicated to me.don't understand it.so many options)

the delay seems to have been fixed so grats but my interenet was laggin bad and everytime it tried to make the pots it would click the herb slot before it had been withdrawn and proceed as if it had clicked it properly, i.e clicking the vial, then clicking the amount to make and then waiting and banking

From: chelmid
:sasmokin:Nice script.
but could someone plz send a pic what should setup look like when I just want to make unf harralander potions.vials of water in 1 row 2 slot and clean harralander in 1 row 1 slot.
(set up is too complicated to me.don't understand it.so many options)

u need to add the name of the unf ure making, in ure case 'restore' then add the amount u wish to mix, and then add a 2 if ure making unfs. example,

Make[0] := SetVars('Restore', 10000, 2)

From: NFL
I give up on trying, not working for me.

Same. Tried ever since he released the first version. Why bother making a script that doesn;t work at all ?

phamxboa, i doubt you been using his first script version. It's been working decent since day one. and it's amazing today. Just learn to set it up right.

So if I want to make extreme attack potions I do this right?
Make[0] := SetVars('super attack', 50, 0); //
Make[1] := SetVars('avantoe', 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 //

no you would set it up like this.
Make[0] := SetVars('extreme attack', 50, 3); //
to make 50 extreme attacks.

the first entry is what you want to make. If your cleaning herbs you enter the herb. If you want to make full pot, full means to use vial of water, herb and the 2nd, you would enter the pot you want to make. (attck, super attack, etc.) You also enter the same way for unf potions and to use unf and 2nd only. So if you want to make 500 unf guam pots you would enter—> Make[0] := SetVars('attack', 500, 2); //
the last number tells it what its doing. 0 is for cleaning herbs, 1 is for making full pots, 2 is for making unf pots, and 3 is for making unf to finished pots. So using the above example with making 500 unf guam pots. If you wanted to finish those unf pots afterward you would enter in the next setup. –> Make[1] := SetVars('attack', 500, 3); // 3 for unf to finished. I know the setup is a little confusing but I set it up this way because I will make adding a GUI to it much easier. I hope to have the Setup form released b4 the end of the weekend. The it will be much easyer to setup. Here is the layout I have so far to give you an idea of what the setup will be like.

opps doubled posted somehow.

When I set it to make extreme strengths it thinks it needs water vials and just doesn't do anything.

SRL Compiled in 16 msec
SMART Initialized.
Loaded: Server 44, Members: False, Signed: False, Super Detail: False.
Now Making 60000 Attack
Could not find bank after 5 tries
Successfully executed.

From: leapfrog
When I set it to make extreme strengths it thinks it needs water vials and just doesn't do anything.

sry about that, I fixed it in new ver 1.4c-4. I tested it on extreme attacks. Use task 3 just like you would for unf to finished pots. This also go for any vial mix to another pot mixture. Like super prayer, super antifire, etc.

I'm testing a dtm method on bank finding. Let me know how it works. I'm also testing the same procedure in my fletching script. I also tweaked the bank finding fail safes. Still need these tested.

From: nathan lad
the delay seems to have been fixed so grats but my interenet was laggin bad and everytime it tried to make the pots it would click the herb slot before it had been withdrawn and proceed as if it had clicked it properly, i.e clicking the vial, then clicking the amount to make and then waiting and banking

Can you try explaining a little more. I don't quite understand what you mean. Was you in the bank trying to withdraw or was you trying to make the item, with the bank closed?

From: bud_wis_er_420
sry about that, I fixed it in new ver 1.4c-4. I tested it on extreme attacks. Use task 3 just like you would for unf to finished pots. This also go for any vial mix to another pot mixture. Like super prayer, super antifire, etc.

I'm testing a dtm method on bank finding. Let me know how it works. I'm also testing the same procedure in my fletching script. I also tweaked the bank finding fail safes. Still need these tested.


Can you try explaining a little more. I don't quite understand what you mean. Was you in the bank trying to withdraw or was you trying to make the item, with the bank closed?

Error:
SRL Compiled in 0 msec
SMART Initialized.
Loaded: Server 44, Members: False, Signed: False, Super Detail: False.
Error: Out Of Range at line 72
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]

Line it's stuck on:
//Make[0] := SetVars('attack', 50, 1); //
//Make[1] := SetVars('Attack', 55, 3); //
//Make[2] := SetVars('Super Strength', 42, 3); //
Make[3] := SetVars('extreme attack', 42, 3);//Copy and past more if you want more//
end; //Just be sure to change the numbers

for every one of these

Make[0] := SetVars('attack', 50, 1);

you have to add one to this

Set_how_many_types = 1;

and you have to start with 0 and work you way up you started with

Make[3] := SetVars('extreme attack', 42, 3);




Don't worry as soon as I'm done making the form setup will be a lot easier.

From: bud_wis_er_420
for every one of these

Make[0] := SetVars('attack', 50, 1);

you have to add one to this

Set_how_many_types = 1;

and you have to start with 0 and work you way up you started with

Make[3] := SetVars('extreme attack', 42, 3);

Don't worry as soon as I'm done making the form setup will be a lot easier.

So have:
Set_how_many_types = 3;
and
Make[3] := SetVars('extreme attack', 42, 3);

Here are some examples;

//Sets the below list number. We have four tasks below so this should be 4
Set_how_many_types = 4;
//Makes 500 Super att pots(vial of Water, herb, 2nd)
Make[0] := SetVars('Super attack', 500, 1);
//Makes 155 unf Guam's(vial of Water, herb)
Make[1] := SetVars('Attack', 155, 2);
//Makes 242 Super str pots from unf pots(unf kwuarm, Limpwurt root)
Make[2] := SetVars('Super Strength', 242, 3);
//Makes 100 Extreme att pots(Super att, Avantoe)
Make[3] := SetVars('Extreme Attack', 100, 3);         

For just one task you have this:

//Sets the below list number. We have 1 task enabled below so this should be 1
Set_how_many_types = 1;
//Makes 500 Super att pots(vial of Water, herb, 2nd)
Make[0] := SetVars('Super attack', 500, 1);
//Makes 155 unf Guam's(vial of Water, herb)
// *Disabled* Make[1] := SetVars('Attack', 155, 2);
//Makes 242 Super str pots from unf pots(unf kwuarm, Limpwurt root)
// *Disabled* Make[2] := SetVars('Super Strength', 242, 3);
//Makes 100 Extreme att pots(Super att, Avantoe)
// *Disabled* Make[3] := SetVars('Extreme Attack', 100, 3);

see how I start with 0 —>Make[0]

From: bud_wis_er_420
look up

For just one task you have this:

//Sets the below list number. We have 1 task enabled below so this should be 1
Set_how_many_types = 1;
//Makes 500 Super att pots(vial of Water, herb, 2nd)
Make[0] := SetVars('Super attack', 500, 1);
//Makes 155 Attack pots(vial of Water, herb)
//Disabled Make[1] := SetVars('Attack', 155, 2);
//Makes 242 Super str pots(unf kwuarm, Limpwurt root)
//Disabled Make[2] := SetVars('Super Strength', 242, 3);
//Makes 100 Extreme att pots(Super att, Avantoe)
//Disabled Make[3] := SetVars('Extreme Attack', 100, 3);

see how I start with 0 —>Make[0]

Error: Out Of Range at line 72
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 have:
Set_how_many_types = 1;

//Make[0] := SetVars('attack', 50, 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//

you are still using Make[3]. If I asked you to give me a list of ten things would you number them 3-12, no you would give me a 1-10. Well in programming its 0-9. So you need to have this –> Make[0] := SetVars('Extreme Attack', 1000, 3);

After a few tries I got it into the bank, but not it's not finding my super attack or avantoes.
Log:
Found Pin Screen
Pin successfully entered
Extreme Attack is not found in storage
Could not find uptext: , , or
Could not find the BMP
Retrying with block checker
Could not item with finditem 2
Retrying with FindColorSpiralTolerance
Could not find the Extreme Attack
Successfully executed.
The following DTMs were not freed: [2, 3, 4]

it's not loading the item

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.

From: bud_wis_er_420
it's not loading the item

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 //

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

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

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

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 :

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

Alright thanks for responding

i explained the problem im incurring more clearly three posts up

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?

From: nathan lad
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.

From: NFL
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.

Hey Bud would you teamviewer me?

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.

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

From: nathan lad
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

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

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.

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.

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

From: Smurf From RiD
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;?

From: leapfrog
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.

From: bud_wis_er_420
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

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

How many unf does it make / hour at SW ?

greets

Around 2500 Yobesti

Looks nice, will certainly test this out

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.

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!!

dwarf weed to unf ranging pots work

From: nathan lad
dwarf weed to unf ranging pots work

Thank you add it to list.

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

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]"

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

From: Leonoras

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.

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.

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

From: Leonoras
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.

From: NFL
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.

From: Smurf From RiD
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:

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.

From: Leonoras

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

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)

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.

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.

and….

Make[0] := SetVars('guam', 554, 0); //
Make[1] := SetVars('tarromin', 20000, 0); //

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

From: bud_wis_er_420
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. :)

unf super energy potions to full super energies work :)

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

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.

{/////////////////////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.

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

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

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

working on it.

From: tight butts
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.

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 :)

Ok I will look into putting in fail safes for lag issues.

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.

From: bud_wis_er_420


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

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. :spot:

Script is amazing man. thanks again for your hard work! and the form looks pretty good, and it's very easy to use. even tells me what ingredients i need :D, thats awesome.

Didn't work to me at all.It misclicked bank chest once and stopped.Second try I put it to bank manually.It found vial of water and clean harralanders but after unf harras were done it didn't bank.
In GUI I put it to make 'combat' and pressed the unf option.filled info and pressed start.
What's wrong?

Well I need a log to be sure, but I believe the problem is it's not finding the uptext correctly. I Am looking into this. Now that the script is competed, I can focus on adding failsafes and better methods.

Please fix this so I can get these 60k pots done

We have made/cleaned a total of 560 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, 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]

ok give me just a sec got a few other things added too already. I'm reading tuts today to further my knowledge of programming and make even more advanced and accurate functions.


Edit:
Ok redownload ver 1.5-1

Some things I've done:
1: Added a dtm fail safe for banking. (Plain on really getting this working 100%) But gotta do some research first.
2: Uped the color tol for finding the make screen and added more time to wait in case of high lag.
3. I been testing alot and made some little tweaks I can't remember right now.

Works great , the script ran perfectly for 356 pots since thats all i needed. thanks alot for the script.

didn't work v1.5-1:(I put Withdraw 14 option before I ran the script)
Checking the uptext of , wat, or f wa
Uptext Found
vial_of_water stored to <93, 107>
Option Withdraw-14 not found
Option Withdraw-X not found, shutting down
Succesfully executed.
The following bitmaps were not freed: [3]

We are in bank
Didn not find make screen, shutting down
Successfully executed.

Does about 200 unf and then stops, saying this. :S Why is that?

mine says:
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''

when i try to run it?

From: Maxmm
mine says:
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''

when i try to run it?

Change .scar to .simba
Worked for me

tried making super energys unf, it seems to just stop after making 14, doesn't try to bank or anything.

It cant find my clean guams to make unfs

stoping at 14 wtf

Update please

Sorry if i sound like a leecher… But could you possibly add an auto log in, since runescape auto logs me out every 6 hrs or so. I think its a great add.

Ex: I use the crash update that restarts the client when runescape updates, which happens about every 6-8 hrs from the time you log in, but sometimes my account logs out before the update, so the crashSMART doesn't take effect. So maybe you could make the script auto log me back in, then when Runescape updates, crashSMART will take effect, restarting the client.

If it's too much, DON'T WORRY ABOUT IT.

I'm sry guys I decided to abandon this script. I feel any more time and effort into this script is a waste. I'm already 99 herb. I'm building a srl script atm that I hope will get me members. This script is open to any who want to take over. Feel free to do with it what you like. Wouldn't take much to fix it. Learn some scripting and fix it your selves.

WOW, good luck Bud! I hope to maintain this script to be awesome… I'm going to learn to script now because of this opportunity :P

From: tight butts
WOW, good luck Bud! I hope to maintain this script to be awesome… I'm going to learn to script now because of this opportunity :P

Good luck. I found this tut to be very helpful ref
http://villavu.com/forum/showthread.php?t=54050

And of course the srl ref
http://docs.villavu.com/srl-5/

and look into objectDTMs great for map walking :)
http://villavu.com/forum/showthread.php?t=72067&highlight=objectdtm

Is this script working after Runescape's update yesterday?

yes, it was for me at sw

this script is very impressive one of the best so far ive used congratz on that :D

just wondering though has anybody had issues with the new level pop up when it has the large gold circle in the middle of your screen with the level in the middle the bot crashes if its banking when it happens and doesnt seem to be able to sort its self out :/

Woooo! It's working! Thank you very much, it's so much better than RID's RIDiverse. Much appreciated! I'm making unf's like a boss. ;)

Thomas, I noticed that too. It think's the pin screen is up whenever you level and by the time you open the bank, it still there. So that messes up the script. Unfortunately, The scripter has abandoned the script and I'm not sure how to fix it. I've learned alot about the script tho, so hopefully i learn how to soon.

i unfortunatly have no clue of scripting what so ever id love to learn but time is difficult to come across these days :/

Bot works fine if you log it in and do pin yourself.

bots working fine now!

Hey there, I've been using this for about a week now to make unfinished irit potions and now unfinished dwarf weed potions. It makes great money and is, for the most part, stable enough to run while at your computer. Thank you.

Cleaning lantadyme works sometimes. Yesterday cleaned 1k lantadymes with it but today it doesnt work =). Still testing whats the problem.

EDIT: It works if you put another task there. Put first: Lantadymes then 500 IRITS, and voila. Doesnt matter if you dont have irits in bank. All updates needs to be done before this worked. Couple restarts might need to be done.

Hope this helps.

hey , thank you for the scrip ^^.
unfortunately, i am having problems with it because as soon as i run it
and the client opens and logs in i get an error which is the following:

Error: Out Of Range at line 1459
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

and the bot stops working. what am i doing wrong? i have tried many different settings. i am trying to make attack potions from unf guam and eye of newt. your help will be much appreciated! :D

From: 99 range ftw
hey , thank you for the scrip ^^.
unfortunately, i am having problems with it because as soon as i run it
and the client opens and logs in i get an error which is the following:

Error: Out Of Range at line 1459
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

and the bot stops working. what am i doing wrong? i have tried many different settings. i am trying to make attack potions from unf guam and eye of newt. your help will be much appreciated! :D

Same here :fiery:

3 Hours Proggy, more to come!

nvm got it working :D

nice bot :)

From: liamb
First try got it working for a nice 2 hour proggy.

Thing is… now I cant get it to do anything…

It logs in and just stands at the bank doing nothing. Am I missing something? It says its starting my serum 207… but it just doesn't get on with it.

I've tried logging it in manually, letting the bot log me in, start bot on bank screen… but nothing works. :<

Pic below.

Same problem but with super antipotion

From: Sunblast
Same problem but with super antipotion

Try entering pin and everything, and enable SMART with the bank screen open.

worked for me

Damn, it worked for 30 minutes but now it does 1 inventory and then doens't click the bank and wait..

Someone sould verified this script
I not sure if is this script or another bot call rarebot
Can someone read the script and say if it's save.

I been thinking about remaking this. Been doing alot of reading to get better at scripting and I have a few ideas to make this script flawless. But I would have to start from scratch. I work alot so I only get like 4 hours a day of free time most days and I do have somewhat of a life outside of rs. So don't expect anything for at least a few weeks. And This time I'm not gona release it until it's 100% ready.

From: ownmanga
Someone sould verified this script
I not sure if is this script or another bot call rarebot
Can someone read the script and say if it's save.

Your the guy that pmed me saying I tried to scam you. Dude who are you. Whoever you are, trust me you don't know me.
I play rs only for the scripting and the occasional mini game. I never even attempted to make a trade with someone in game or out. You got the wrong person. But… you've tickled my curiosity. What exactly did happen. This don't explain much.

When Im using your script the SMART screen freezed so I try to log in with the official runescape. It said that i sould log out first but I closed all simba shit already. Like 5-6 minutes after, when I log on my account was at the GE with everything in bank sold but still get the cash.

I'm stoked for your new release Bud, Can't wait.

From: ownmanga
When Im using your script the SMART screen freezed so I try to log in with the official runescape. It said that i sould log out first but I closed all simba shit already. Like 5-6 minutes after, when I log on my account was at the GE with everything in bank sold but still get the cash.

Well I don't know what to tell you my scripts clean, look at it to see for your self. I have no interest in hacking others and couldn't even if I wanted to. I am not that advanced.

Now Making 4000 attack
Bank Uptext found, clicking bank
We did not find bank after clicking, checking for pin screen
We are in bank
Getting unf guam
unf guam is not found in storage
I Think we found the unf guam
Checking the uptext Guam pot, uam pot, or uam pot
Could not find uptext: Guam pot, uam pot, or uam pot
Could not find the Guam pot BMP
Retrying with block checker
Could not item with finditem 2
Retrying with FindColorSpiralTolerance
Could not find the unf guam
Successfully executed.
The following bitmaps were not freed: [3]

nice script but iv got some issues..

at first time tried this out it made me 2k prayer pots
then i logged out and bought more stuff to make prayer pots
> it makes 14 and stops??

From: Sunblast
Damn, it worked for 30 minutes but now it does 1 inventory and then doens't click the bank and wait..

same here

for some reason the script ran for about 20 minutes, and then just sat there after. im trying ot get it to work again now

yea i'm having similar problems. it worked great for me a few days ago. made 10k unf pots in like 4 and a half hours. but today i tried to run it to make p pots, it made 68 then quit. tried again, made 140 and quit. tried a third time and made 70 then it quit. it goes to the bank and keeps saying it cant find the bank or supplies when it's already in the bank. the supplies haven't moved. and occasionally it just stops and doesn't attempt to do anything.

there's not saradomin brew :(:(:( o there is but in "do list" there was no saradomin brew but i there was saradomin brew codes/settings ready so i just added "saradomin brew on that " to do list" works now :):) bot owned did u forgot sara brew on that list?:D

my bad guys, that did absolutely nothing to the bot. it stopped working again right when i went afk lol. i guess it just had a lucky run. i'm still not sure why it keeps stopping. wish i did know so i could fix it….

@gotwhip, make sure your graphic details are set as low as can be opengl software, I use that and all scripts I ever ran are perfectly fine.
Bud this is one of the best scripts I have seen and the code is great. ( I can understand that you are busy coding this as I used to code mopar servers myself, and that's a total different code and can get annoying.) I'm asking you, if you can of course, would you be able to add a option to make the mouse mouse movement faster? Somewhat like MK's herb cleaner, I believe that would increase the potions per hour at a very big amount. Anyways keep going, at the pace you're at right now, your job is almost at the perfection level and I know that's where you're headed.

I think with the new xp thing that pops up when you level up messes the script up when it trys to look in bank and I did disable "xp pop up" btw.

Most efficient and flawless script I've used yet.

im new idk where download is :(

It works good for sometime , but then it stops and this error happens.


We have made/cleaned a total of 882 super energys
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_chest
Looking for bank with DTM
Warning! You passed a wrong xs to a finder function: -1. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -1. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ye to a finder function: 519. The client has a height of 503, thus the ye is out of bounds. Setting the value to 502 (h-1) for now.
Warning! You passed a wrong xs to a finder function: -21. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -21. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ye to a finder function: 539. The client has a height of 503, thus the ye is out of bounds. Setting the value to 502 (h-1) for now.
The following DTMs were not freed: [SRL - Lamp bitmap, 1, 2]
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]

I am using this script like a week and i dont get any errors. Works Brilliant!!

Ps: It cleans 5K herbs in a hour. You gain 25K herblore exp with some profit.

From: tutkubakay
I am using this script like a week and i dont get any errors. Works Brilliant!!

Ps: It cleans 5K herbs in a hour. You gain 25K herblore exp with some profit.

it does like 1,2k potions/h costs me 13gp/exp

soo thats 120k exp/h :D

i cant get it to find the bank it says bank uptext not found a million times

Bank Uptext not found
Warning! You passed a wrong xs to a finder function: -101. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -101. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ye to a finder function: 619. The client has a height of 503, thus the ye is out of bounds. Setting the value to 502 (h-1) for now.

Ok so i know you've given up on this bot but i had it working last night, now i'm having trouble again, it seems to be the antiban, it's just rotating my camera, any help would be much appreciated.

Many thanks

I can't seem to trust the log in thing, is it safe to enter acc details/bank pin in the form?

script crashes on login - just spins the camera around with the text

Warning! You passed a wrong xs to a finder function: -61. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -61. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ye to a finder function: 579. The client has a height of 503, thus the ye is out of bounds. Setting the value to 502 (h-1) for now.

I'm working on a new one atm but first I'm making an include file I'm gona call something like FindBankItems. My plan is to use this include with all my future scripts on bank withdrawing. So like using an srl function, anyone can use this include in there script to find and withdraw items. I know there are srl functions that already exist that HELP in finding items, But what I want is to be able to enter

if(FindBankItem('Iron ore'))then // 'Iron ore' <-- exactly how it's typed in rs
  DoThis;

The above would use many types of methods in finding the item. All I would have to do after this and start collecting a database on most commonly used items.

I have alot of work to do and little free time to do it so don't expect anything anytime soon. But once I complete the FindBankItems thingy I will be a simple matter of adding it to my incomplete script I been working on just below.


For a temp script That I use on a daily bases I posted on the first page.


Just showing you that I am working on it.

program SRLBasicTemplet;
{$DEFINE SMART}
{$i srl/srl.Simba}
{$i FindBankItem.Simba}
//{$i Basic.Simba}
//{$i SRL/SRL/misc/paintsmart.Simba}
//{$i ObjectDTM\ObjDTMInclude.simba}

// ItemArray stores everything about every item.
type
  ItemArray = record
  ItemName: string;
  ItemType: integer;
  LocationX: integer;
  LocationY: integer;
end;

var
  x, y, count: Integer;
  FirstTime: Boolean;
  Item: array of ItemArray;

const

  Login_44 = 1; // 0 =451 off; 1 = on;

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;

//***********************************
// Logs in player, need to redo
//***********************************
procedure CheckLogin;
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
            CheckLogin
          end;
        end;
      end else
      begin
        if(LoginPLayer)then
        begin
          Writeln('Logged in');
        end else
        begin
          CheckLogin
        end;
      end;
    end else
    begin
      CheckLogin;
    end;
  end;
  FreeDTM(Login_Screen);
end;

//***********************************
// Antiban, need to redo
//***********************************
procedure AntiBan(SlotNum: Integer);
var
  j, WTime, SleepT, CTime, StartColor :Integer;
  Slot: TBox;
  time :longword;
begin
  j := Random(201)
  time := GetSystemTime;
  WTime := 15000 + Random(1000);
  SleepT := time + WTime;
  Slot := invbox(SlotNum);
  StartColor := GetColor(Slot.x1 + 19, Slot.y1 + 15);
  repeat
    case j of
      0: begin
           //Check_for_text;
           HoverSkill ('Herblore', False);
           Sleep(1000+Random(3000));
           GameTab(tab_Inv);
         end;
      1..5:
         begin
           //Check_for_text;
           PickUpMouse;
         end;
      6..10:
         begin
           //Check_for_text;
           RandomRClick;
         end;
      11:
         begin
           //Check_for_text;
           //GameTab(tab_Inv);
         end;
      12:
         begin
           //Check_for_text;
           ExamineInv;
         end;
      13..200:
         begin

         end;
      end;
  Sleep(500+Random(500))
  CTime := GetSystemTime;
  until(WaitColorGone(StartColor, Slot.x1 + 19, Slot.y1 + 15, 5, 30000))or
       (SleepT < CTime)


end;



//***********************
//Script setup  ** Not Finished
//***********************
procedure SetupWhatToMake;
begin
  SetArrayLength(Item, 2);
  Item[0].ItemName := 'water';
  Item[0].ItemType := 2;
  Item[1].ItemName := 'harralander';
  Item[1].ItemType := 1;
end;

var
  ItemData: array of ItemDataArray;

//**************************
//
//Need a way to check current item amount in bank to
//crosscheck with how many to be made. Don't want to
//go over the amount and lose item positions
//
//*************************

//Uses SetupWhatToMake array list to find all the items in bank the
//script is gona need to complete all tasks and store it's bank location.
procedure WithdrawSetup;
var
 I, Ind: Integer;
 FoundXY, BankXY, RowSlot: TPoint;
begin
  SetupWhatToMake;
  for I := 0 to High(Item) do
  begin    // Loops till all items script is gonna need is found
    if(FindTheItem(x, y, Item[I].ItemName, Item[I].ItemType))then
    begin
      FoundXY := Point(x, y); //Stores found item x, y to a Tpoint
      RowSlot := MSTPointToBankPoint(FoundXY); //Converts mouse point to a bank point(row, column)
      Ind := BankPointToBankIndex(RowSlot); //Converts point to index
      BankXY := BankIndexToMSPoint(Ind); // Converts index to mouse point
      Item[I].LocationX := BankXY.x + 14;// Stores middle point of bank slot for item
      Item[I].LocationY := BankXY.y + 15;
      writeln(Item[I].ItemName + ' found and stored at row ' + IntToStr(RowSlot.y + 1) + ', Slot ' + IntToStr(RowSlot.x + 1));
    end else
    begin
      Writeln('Shutting down script');
      TerminateScript;
    end;
  end;
end;

//Simple right click and move mouse 74(Random) pixels down to withdraw-?
procedure GetTheItem(ax, ay: integer);
begin
  Mouse(ax - 4, ay - 4, 8, 8, false);
  Sleep(500 + Random(500));
  GetMousePos(x, y);
  Mouse(x - 5, y + 74, 10, 4, true);
end;

// Withdraws First items
function WithdrawFirst: Boolean;
begin
  GetTheItem(Item[0].LocationX, Item[0].LocationY);
  if(WaitInvCount(14, 4000, ExactCT))then //****Change to item.amount
  begin
    Result := True;
  end else WithdrawFirst;
end;

// Withdraws Second items
function WithdrawSecond: Boolean;
var
  StartCount, FinishCount: Integer;
begin
  GetTheItem(Item[1].LocationX, Item[1].LocationY);
  if(WaitInvCount(28, 4000, ExactCT))then
  begin
    Result := True;
  end else WithdrawSecond;
end;


// Withdraws items
procedure WithdrawStuff;
begin
  DepositAll;
  if(FirstTime = True)then
  begin
    WithdrawSetup;
    FirstTime := False;
  end;
  if(WithdrawFirst)then
  begin
    if(WithdrawSecond)then
    begin
      CloseBank;
    end else
    begin
      WithdrawStuff;
    end;
  end else
  begin
    WithdrawStuff;
  end;
end;

//Waits for 4 sec for the bank screen and also handles pin screen
function WaitForBank: Boolean;
begin
  if(WaitFunc(@BankScreen, 500 + Random(100), 4000))or
    (WaitFunc(@PinScreen, 500 + Random(100), 4000))then
  begin
    if(PinScreen)then
    begin
      Writeln('We are at pinscreen');
      if(CheckPin)then
      begin
        WaitFunc(@BankScreen, 500 + Random(100), 4000);
        if(BankScreen)then
        begin
          Result := True;
          Sleep(500 + Random(500));
          Exit;
        end else
        begin
          Writeln('Did not find bank after enetering pin');
        end;
      end;
    end;
    if(BankScreen)then
    begin
      Result := True
      Sleep(500 + Random(500));
    end;
  end else
  begin
    Writeln('Did not find bank after waiting');
  end;
end;

// Finds bank using OpenBankChest
function FindTheBank3: Boolean;
begin
  if(OpenBankChest(SRL_BANK_SW))then  Result := True;
end;

// Finds bank using OpenBankChestEdge
function FindTheBank2: Boolean;
begin
  if(OpenBankChestEdge(SRL_BANK_SW))then  Result := True;
end;

// Finds bank using only uptext(Quick)
function FindTheBank1: Boolean;
begin
  count := 0;
  x := 256;
  y := 196;
  repeat
    MMouse(x, y, 15, 7);
    WaitUpTextMulti(['Use', 'ank', 'hest', 'che', 'nk ch'], 1000 + Random(100));
    Inc(count);
  until(IsUpTextMultiCustom(['Use', 'ank', 'hest', 'che', 'nk ch']))or
     (count > 20)
  if(IsUpTextMultiCustom(['Use', 'ank', 'hest', 'che', 'nk ch']))then
  begin
    GetMousePos(x,y)
    Mouse(x,y,0,0,true);
    if(WaitForBank)then  Result := True;
  end;
end;

// Uses the above 3 funtions to try and open the bank.
function OpenTheBank: Boolean;
begin
  if(BankScreen)then
  begin
    Result := True;
    Exit;
  end;
  CheckAngle(180);
  if(FindTheBank1)then
  begin
    Result := True;
  end else
  begin
    if(FindTheBank2)then
    begin
      Result := True;
    end else
    begin
      if(FindTheBank3)then
      begin
        Result := True;
      end else
      begin
        Writeln('Could not open the bank')
      end;
    end;
  end;
end;

//Waits 4 sec for the make screen
Function WaitForMakeScreen: Boolean;
begin
  if(WaitColor(388, 357, 2070783 , 5, 4000))then
    begin
      Writeln('Make screen found');
      Result := True;
    end else
    begin
      Writeln('Make screen not found');
    end;
end;

//Makes the items
procedure Make;
var h :Integer;
begin
  if not(InvFull)then  Exit;
  While not(ItemActivated(13)) do
    begin
      Mouse(575, 329, 10, 10, True);
      Sleep(500 + Random(100));
    end;

  Mouse(570, 372, 10, 10, true);
  if(WaitForMakeScreen)then
  begin
    Mouse(227, 406, 30, 20, true);
    count := 1;
    AntiBan(14); //Tie in 14 to amount in ItemArray
  end else
  begin
    Make;
  end;
end;


//Main Loop
procedure MainLoop;
begin
  if(OpenTheBank)then
  begin
    WithdrawStuff;
    Make;
  end;
end;

Begin
  ClearDebug();
  Smart_Server := 44;
  SetupSRL();
  count := 0;
  FirstTime := True;
  repeat
    MainLoop;
    until(false)
End.     

[Error] (32:1): Semicolon (';') expected at line 31
Compiling failed.
It keeps saying that at the Playsound_When_Done = false;// //
But the ';' is there… and if i delete that line, It'll say that ';' is expected at the line with
Procedure DeclarePlayers;

Weird.. I'm using the Temp. script that you posted on the first page.

From: tight butts
[Error] (32:1): Semicolon (';') expected at line 31
Compiling failed.
It keeps saying that at the Playsound_When_Done = false;// //
But the ';' is there… and if i delete that line, It'll say that ';' is expected at the line with
Procedure DeclarePlayers;

Weird.. I'm using the Temp. script that you posted on the first page.

sry bout that i did a few last min changes to make it ready for public use. You needed to add the semicolon to the line above the one you were refering to.

WarningSound = 'C:\botclient\config\sounds\alarm.wav'; <—–

Why does it bank every 5 unf made? How do I change that?

[Hint] (142:3): Variable 'INVALID_SCREEN' never used at line 141
[Hint] (142:3): Variable 'UPDATE_SCREEN' never used at line 141
[Error] (1:1): Unexpected end of file at line 0
Compiling failed.


This is the error I keep getting :|

it worked fine for about 2minutes until the camera just keeps spinning around (antiban issues) and an issue about finding the item; im trying to finish off guam potions into attack potions and has issues finding the potions and eye of newt
looks like a great script , but needs to be corrected :)

Just an update I'm getting real close. I got most of the main script finished and also the bank item finding include is looking really good. If all goes as planed this include will find Items 100% of the time. I already perfected my uptext finding. Check it out.

works 100% of the time!!

function ConvertTextToStrArray(ItemName: string): TStringArray;
var
  I: Integer;
  Txtleng: LongInt;
  Text_array: TStringArray;
begin
  Txtleng := Length(ItemName);
  SetArrayLength(Text_array, Txtleng + 1);
  for I := 0 to Txtleng do
    Text_array[I] := Copy(ItemName, I, 1);
  Result := Text_array;
end;

function CheckUpext(text: string): Boolean;
var
  I, found: integer;
  leng: Extended;
  CompareText: string;
  TxtArray, CompareTxtArray: TStringArray;
begin
  CompareText := GetTextAt(82, 10, 0, 5, 10, 3182559, 47, 75, UpChars);
  Text := Replace(Text, '''', '.');
  SetArrayLength(CompareTxtArray, High(TxtArray))
  TxtArray := ConvertTextToStrArray(Text);
  CompareTxtArray := ConvertTextToStrArray(CompareText);
  Writeln('Text got from rs: ' + CompareText);
  Writeln('Text we are looking for: ' + Text);
  found := 0;
  for I := 1 to High(TxtArray) do
  begin
    Writeln('Char "' + TxtArray[i] +
      '"compaired with char "' + CompareTxtArray[i] +'"');
    if(TxtArray[i] = CompareTxtArray[i])then
    begin
      Inc(found);
    end;
  end;
  leng := High(TxtArray);
  if(found > leng - (0.20 * leng))then
  begin
    Result := True;
  end else
  begin
    Writeln('The uptext "' + Text + '", was not found');
    Writeln('Text got from rs: ' + CompareText);
    Writeln('Found ' + IntToStr(found) + ' chars out of ' + FloatToStr(leng));
  end;
end;

function WaitForUpText(Text: string; Time: Integer): Boolean;
var
  ax,ay: integer;
begin
  if(WaitFindColor(ax, ay, 3182559, 82, 10, 100, 16, 47, Time))then
  begin
    if(CheckUpext(Text))then
    begin
      Result := True;
      Exit;
    end;
  end;
end;

After a few more things the main thing on my list will just be to build the item database. so be on the look out!! Real Soon!!

Script is working right now, just all it makes is unf harralander pots. And I want to do some testing.

Looks nice keep up the good work :)

Witch bank does it support?

Hmm, script was working fine for a long time, but now i get this error.

Error: Exception: Access violation at line 101
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]

From: Jonnothe1337
Hmm, script was working fine for a long time, but now i get this error.

Error: Exception: Access violation at line 101
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]

http://villavu.com/forum/showthread.php?p=848708

From: elmotheskaat
http://villavu.com/forum/showthread.php?p=848708

Thanks mate :)

how to make overloads?

Ok, it's beta testing time!! Check out the first page for update information.

i'm like super sad i didn't know you only gain xp from putting the ingredient in unf pot, :d cause this script is pro, would have made ALOT more xp if i knew that before

Most difficult script to set up I've ever seen.

What is the difference between ManualMode and Easy Setup?

Do you need to fill all fields for "Easy Setup, Manual SET UP SCRIPT 1, Manual SET UP SCRIPT 2"?

What does slot 7-4 mean?

" //Fill in what to make. You can enter how ever many you want. //Just be sure to change the numbers"

Should I put a number before "//"? I tried to put 1000 and got an error.