View Full Version : Herblore PRO
illuminatiswag
12-17-2011, 04:52 PM
When have I raged? Lol, I ask everyone politely to not double post. Like I said, why don't you make your own then? Sorry life is more important than a game.
If life is more important then a "game" for you why are you still here responding to my comments go ahead report that as spam too cry me a river
shstiger2009
12-17-2011, 06:52 PM
If life is more important then a "game" for you why are you still here responding to my comments go ahead report that as spam too cry me a river
I hate to budge in on the fun, but you really should just stop posting. This thread is for an Herblore script, not for you to judge someone else's work.
PS- Based on this post I quoted from you, you're implying that a game is more important than life to you, hence why you're still here and posting. Ouch. I think you are the one at fault here.
Anyway, for people having problems-
I talked to neeger recently and he's just unable to find time to update the script. Just watch YoHoJo's video tutorial on DTM's, replace the one's in the script with your new ones, and you'll be fine. He said that's the only problem with it since Jagex updated a few things.
Kyle Undefined
12-17-2011, 06:55 PM
If life is more important then a "game" for you why are you still here responding to my comments go ahead report that as spam too cry me a river
Lol what? I never reported you for spam. Are you done being mad yet?
Also, shstiger, creating the DTM to get it to work isn't hard. If you have any questions, just let me know :)
shstiger2009
12-17-2011, 07:52 PM
Lol what? I never reported you for spam. Are you done being mad yet?
Also, shstiger, creating the DTM to get it to work isn't hard. If you have any questions, just let me know :)
I've already done it. Thanks though ;)
wardy1100
12-18-2011, 06:58 PM
anyone updated them all? or got a link to that tutorial for creating the dtm's?
shstiger2009
12-18-2011, 07:50 PM
anyone updated them all? or got a link to that tutorial for creating the dtm's?
Just do it yourself. It's very easy. Here's the link-
http://villavu.com/forum/showthread.php?t=564&highlight=video+tutorial
Enjoy. :)
wardy1100
12-19-2011, 03:27 AM
thanks :) ... also i been updating the script to run faster ... i think i might have it up to 3k and hour cleaning herbs ... gonna run some tests
t0b1as
12-19-2011, 02:33 PM
Is the script still working?
I read all this stuff about changing DTM's or something xD
I am a litle confused >.<
-Tobias
Works well for me! :) Some people have problems with certain herbs and DTM issues, but if you don't feel like fixing the script itself, just restart simba. That's worked for me every time.
shstiger2009
12-19-2011, 05:28 PM
Works well for me! :) Some people have problems with certain herbs and DTM issues, but if you don't feel like fixing the script itself, just restart simba. That's worked for me every time.
You've been lucky then. This isn't really a good workaround for most users...changing a DTM literally takes a minute or two, and actually fixes what is wrong. You'll even be more happy not having to restart Simba whenever something goes wrong.
aldik101
12-20-2011, 02:52 AM
I'm new here and I have been using this script for almost a week I think and it works perfectly. However, I noticed recently that it somehow worked about 33% slower because on the first few days that I used it, it made around 1800-1900 unfs p/h, but now it got reduced to 1250-1300 unfs p/h. When I observed the script, it took longer than usual to bank all the items and get new ingredients. It would be much better if the performance was back at 1800-1900 p/h because that's a waste of around 500 unfs p/h. Anyway, thanks for the amazing script! :)
bots4me
12-20-2011, 02:39 PM
hey i made dtms for one and tryed but couldnt find mine, i did a few times idk if im changing the code right my dtm anyone would like to inbox me or post msn to help would be very helpful or anyone trusted post all new dtms or owner of script would update would be very helpful. Thanks
t0b1as
12-21-2011, 10:38 PM
If I make a dtm, in which line do I have to put it?
Kajutsky
12-21-2011, 11:35 PM
dtm too confusing for me D:
chelmid
12-22-2011, 11:55 AM
sorry a noob question but where can i set brightness?there isn't an option to set brightness in graphic settings.plz help!
wardy1100
12-22-2011, 02:04 PM
yeah its under custom
Waffle
12-22-2011, 06:50 PM
edit: Nevermind, solved all my problems myself, was being stupid and copied the wrong DTM string >.>
Smiteh
12-22-2011, 08:45 PM
i was using this earlier and it was doing a great job of making pots and unfinished potions but it didnt seem to work when i was trying to clean avantoe i dont know whether its the herb or what, but they were the only thing in the tab if it makes a difference
Neros
12-23-2011, 12:36 AM
i get this error, total newb her so i dunno how to fix :p
[Error] C:\Simba\Includes\SRL/SRL/core/globals.scar(16:1): Identifier expected at line 15
Compiling failed.
[Error] (16:10): Identifier expected at line 15
Compiling failed.
sadzx1
12-23-2011, 04:09 AM
is it possible to make the script clean herbs using mousekeys? that would like 3x faster
Claymore
12-23-2011, 07:59 PM
I am planning to release a script that emulates mousekeys. Hence not only do you get the amazing exp but you dont have to do ANYTHING lol.
shstiger2009
12-23-2011, 09:03 PM
I am planning to release a script that emulates mousekeys. Hence not only do you get the amazing exp but you dont have to do ANYTHING lol.
Looking forward to it. The exp would be incredible. Then again, you can only go so fast and some scripts push the limit.
sadzx1
12-24-2011, 02:06 AM
Looking forward to it. The exp would be incredible. Then again, you can only go so fast and some scripts push the limit.
what u mean scripts pushing the limit? so far i havnt seen any script that can do faster than humans, assuming the humans are in full focus and make no mistake
shstiger2009
12-24-2011, 03:45 AM
what u mean scripts pushing the limit? so far i havnt seen any script that can do faster than humans, assuming the humans are in full focus and make no mistake
Scripts without wait times go very, very fast. That's what I meant.
akielies
12-24-2011, 06:17 PM
It doesn't recognize rannars...I have them in it's own separate tab in the bank. I'm trying to clean them and it won't. Any ideas on why it's happening?
nobody u kno
12-24-2011, 10:11 PM
Is making unf potions the most profitable?
NexPB
12-25-2011, 10:16 PM
Is making unf potions the most profitable?
Lol herblore isn't profitable at all.
I Bot Phats
12-26-2011, 07:43 PM
Lol herblore isn't profitable at all.
Herblore can be very profitable by cleaning herbs.
Also, I've read through the the posts here and was wondering when/if the script could/could be sped up for cleaning thanks :)
HardRockers
12-26-2011, 07:50 PM
Does someone have potions that it actually works on right now? I am trying Super Defenses and I can't get it to work.
I have new DTM's made, could i get some help with where i need to put them into this script?
Lloyd1z
12-28-2011, 01:06 PM
Would this script work without altering anything? or does it need the dtms altered, and if so how can I do that.
The Ghola
12-28-2011, 01:29 PM
I am planning to release a script that emulates mousekeys. Hence not only do you get the amazing exp but you dont have to do ANYTHING lol.
I look forward to this?
that is what my new years resolution was going to be. learn to script a mousekey herb cleaner! lol
Wrencher
12-28-2011, 03:33 PM
You really should add in the soulwars bank. There arnt any randoms and its a one click bank.
Snowflak
12-29-2011, 12:24 AM
It won't work on cleaning avatoe? it said ran out of supplise
JRaymond
12-29-2011, 11:36 AM
Does anyone know how I could modify this to withdraw 15 Vials of Water and 13 herbs? With the scroll of cleansing, it is much more efficient this way as it almost always saves one or more herbs.
Currently making 2600+ pots/hour :P
Shuttleu
12-29-2011, 11:45 AM
Does anyone know how I could modify this to withdraw 15 Vials of Water and 13 herbs? With the scroll of cleansing, it is much more efficient this way as it almost always saves one or more herbs.
Currently making 2600+ pots/hour :P
change lines 915 and 921
~shut
Does someone have potions that it actually works on right now? I am trying Super Defenses and I can't get it to work.
I have new DTM's made, could i get some help with where i need to put them into this script?
All DTMs are defined in function ItemDTMs at line 709. Super defense is at line 780. Just replace the string.
JRaymond
12-29-2011, 02:32 PM
change lines 915 and 921
~shut
I tried that of course :P
I changed them both to 15 and it withdraws them perfectly but then just re-opens bank and deposits them. I believe it may have something to do with line 960? Thanks for helping a learning noob lol
EDIT: Also, when attempting to make Super Str pot (unf kwaurm + limp) it withdraws the unf kwaurm but then just hovers over the limp root and then preceedes to "empty backpack" and repeat. I attempted to replace line 699 several times with new DTMs (I'm not positive I was doing it correctly) but without success.
need help, wanted to clean grimy kwuarm, opened bank, but the script couldnt find it.
help fix it plz :)
and awesome script, thanks alot man
JRaymond
12-29-2011, 11:57 PM
need help, wanted to clean grimy kwuarm, opened bank, but the script couldnt find it.
help fix it plz :)
and awesome script, thanks alot man
Pala, try this http://villavu.com/forum/showthread.php?t=70391
imaloser
12-30-2011, 06:23 PM
I get to gui, Select my settings for cleaning
Cleaning > Irit
& Insists that I choose my herb, Even though the herb is chosen. solutions ?
Xyssor
12-30-2011, 10:06 PM
Doesn't work at GE (atleast not NW GE bank) nor at Edge, but it works fast and flawless at Varrock West Thanks!
Wetish
12-31-2011, 12:34 AM
How would I increase the mouse speed?
Its a little too slow for my taste
jojobot
12-31-2011, 08:57 PM
Whats The Best Bank To Use This At? I'm At Camelot Right Now, Not So Efficient.
chelmid
01-01-2012, 11:19 AM
Whats The Best Bank To Use This At? I'm At Camelot Right Now, Not So Efficient.
Varrock west bank.:bart:
DraGonZ
01-01-2012, 04:47 PM
...
chelmid
01-02-2012, 08:46 AM
I have exact same problem too.it won't recognise my grimy harralanders.
Grihmm
01-02-2012, 10:27 AM
Are you sure you are all setting the herb in the correct bank slot? By default it is set to take it out of the first tab, first slot in your bank. If it isn't there then it will say 'Out of Supplies'.
bob50963
01-03-2012, 04:46 AM
95%+ of the users in this thread are abusing herblore pro for gold farming. Unfinished potion making about 2 months ago was an easy 1m-1.5m an hour. Now all the high level herbs cost 500-800 gp more than an unfinished. Hence a majority of users complaining/talking about unfinished potions only... A rare few actually use this for herblore. None of you care how low it goes long as you can still make 100k profit an hour. But I don't blame you since some of your countries average wage is only $150-200 a month.
Incanumix
01-03-2012, 09:16 PM
What bank do you guys use it on?
This script can't seem to find any of the bankers in the banks I go to.
Their was an new update with that Money pouch thing on your Bankslots and it clicks on the bankslot instead of the Inventory Slot. Please fix this update.Thanks.
1a2b3c4d5e
01-04-2012, 10:17 PM
this is a amazing fucking script, but please fix the banking because fagex fucked it up with the new money pouch thingy mijig.
DraGonZ
01-04-2012, 10:42 PM
...
Kajutsky
01-04-2012, 10:45 PM
does it make ranrr unf pots into pray dose 3?
mortino
01-04-2012, 11:17 PM
nice script and beautifully well done gui i might add.. throwing some rep your way :)
Can you fix this. The Bot messes up because of the Money pouch icon in the Bank.
vashanddou
01-05-2012, 03:45 AM
Pro tip: add serum 207's
it's normal ashes + clean tarromin
shstiger2009
01-05-2012, 04:16 AM
Pro tip: add serum 207's
it's normal ashes + clean tarromin
Just use the serum 207 script. It's in the "First Scripts" forum.
OkapiSIGS
01-05-2012, 06:39 AM
Needs update, 1-4-12 Money Pouch Bank Button was added.
tight butts
01-05-2012, 10:10 AM
how can i run this script? i already installed simba. and i can run MSI but I'm not sure how to run Herblore Pro.
tight butts
01-05-2012, 02:04 PM
Nvm, someone told me SRL5 is new, so I have to wait till the script is updated.
Shady89
01-05-2012, 02:05 PM
Nvm, someone told me SRL5 is new, so I have to wait till the script is updated.
http://villavu.com/forum/showthread.php?t=71061
dont double post.
that tells how to edit the file so banking works.
how can i run this script? i already installed simba. and i can run MSI but I'm not sure how to run Herblore Pro.
theres download links on the first page , get the latest version - download it - double click it - simba should load with the script - hit play , the rest should be common sense.
tight butts
01-05-2012, 02:07 PM
Post is 4 hrs apart. Calm down. Yeah I know, thanks.
Shady89
01-05-2012, 02:10 PM
you dont have to wait if you click that link , you can nfix it yourself within 30 seconds and i know your posts was hours apart but it was still top of the threads , so was no need to double post.
hope you get it working mate.
tight butts
01-05-2012, 02:13 PM
I just didn't want to waste anyone's time responding back to my question. :)
ruttedbeez
01-05-2012, 06:18 PM
At first I had a problem with finding the bank. Found out varrock west works great. Before that I tried GE, Edgeville and Camelot. Got the banking to work then It wouldn't withdrawl the items. Not sure if it was needed but I created a new DTM for the Guam(unf). FinallyI edited the script a bit because it still wasn't taking out the Guam(unf) and eye of newts. As I said I don't know if it was something in the setup I was doing wrong or if it was a script issue. But I got it working ad I leanred some about coding a script. Works great now thanks!
lostprophetsown
01-05-2012, 08:44 PM
At first I had a problem with finding the bank. Found out varrock west works great. Before that I tried GE, Edgeville and Camelot. Got the banking to work then It wouldn't withdrawl the items. Not sure if it was needed but I created a new DTM for the Guam(unf). FinallyI edited the script a bit because it still wasn't taking out the Guam(unf) and eye of newts. As I said I don't know if it was something in the setup I was doing wrong or if it was a script issue. But I got it working ad I leanred some about coding a script. Works great now thanks!
I believe it's a coding error, probably the secondary items have been mixed up a little, which is an easy enough mistake to make.
Super attacks don't work either, after I did 10k unf legit -.-
Kresh
01-06-2012, 03:51 PM
please update it to know where the new bank icon is, it clicks the money one instead because of new update
matan50010
01-06-2012, 07:09 PM
Please update the script
it does deposit the pouch money and not the inv'
ItsTHC
01-06-2012, 07:14 PM
None of you care how low it goes long as you can still make 100k profit an hour.
I make 100k an hour on F2P lol fuck herbs :f:
Askyla
01-06-2012, 07:53 PM
http://villavu.com/forum/showthread.php?t=71061
dont double post.
that tells how to edit the file so banking works.
This fixes the banking, read a little next time >.>.
Shady89
01-07-2012, 12:21 AM
whats best potions to make for a good profit? pm me please , i might not notice a reply.
thanks.
This fixes the banking, read a little next time >.>.
Help me?
tight butts
01-07-2012, 09:21 AM
So harralander isn't working for me, it wont withdraw it. I tried the other herbs and they worked.
Can anyone figure this out? thanks.
Shady89
01-07-2012, 09:32 AM
Help me?
if you cant follow some simple instructions then dont bother coming back here...your just being lazy and dont wanna do anything your self!
IF you really cant do it , pm me your msn and ill send u the file.
tight butts
01-07-2012, 10:37 AM
Nevermind, i fixed it. i just updated the dtmtostring thing.
Kresh
01-07-2012, 01:26 PM
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
i have heard that this means the creator has to update it to be compatible with SRL5?
Scar Newbie v1
01-07-2012, 02:44 PM
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
i have heard that this means the creator has to update it to be compatible with SRL5?
Change line 2
{$i SRL/SRL.scar}
to
{$i SRL/SRL.simba} .
Change line 998
SetAngle(True);
to
SetAngle(SRL_ANGLE_HIGH);
Shady89
01-07-2012, 05:46 PM
it would be nice if you could change it so you can stop the script - change options and run it , without reloading smart.
butterlyr
01-07-2012, 05:59 PM
so many low posters on this thread just asking daft questions :P
Shady89
01-07-2012, 06:01 PM
how come i got ranarrs to clean in a seperate tab but it dont find them and just shuts off?
matan50010
01-07-2012, 07:58 PM
Can you add Serum 207?
its Cheap & Fast, please add it asap :)
or give us the code and we'll add
Mar-TINO
01-07-2012, 09:33 PM
until 10mins ago i was cracking on fine now it withdraws 14 vials deposits themx5 then logs out?
shstiger2009
01-07-2012, 09:35 PM
Can you add Serum 207?
its Cheap & Fast, please add it asap :)
or give us the code and we'll add
Go to the "First Scripts" section, and there is a Serum 207 maker.
Kajutsky
01-07-2012, 10:58 PM
which tabs do i put the unfs and herbs in?
Andr01d721
01-08-2012, 01:04 AM
do i need the original bank.scar file for this script cause i keep getting this error:
(CountColor(2070783, MSX1, MSY1, MSX2, MSY2) > 2000) then
its in orange and i cant seem to fix it
Kresh
01-08-2012, 01:17 AM
Change line 2
{$i SRL/SRL.scar}
to
{$i SRL/SRL.simba} .
Change line 998
SetAngle(True);
to
SetAngle(SRL_ANGLE_HIGH);
THANKYOU! thanks so much man they all work now :)
tdawg777
01-08-2012, 09:46 AM
Thanks to the above for the new version fix.
There seems to be a problem when making avantoe unf potions, when the amount left in the bank contains an 8 as the last digit the dtm messes up, this is what it says in the log:
** Warning in WithdrawItem: Could not Find dtm in Bank. [Uptext: a]**
-> Worked for: 27 Minutes and 42 Seconds
-> Made: 798 Potions
-> Thats: 1728 in hour
Andr01d721
01-08-2012, 11:32 AM
ive changed those 2 codes Kresh but could u please send me the bank.scar or simba wat ever one u use to my email: Latios721@gmail.com
Brooklyn
01-08-2012, 02:40 PM
It just right clicks on the bank and then left clicks somewhere away.
Any possibilites for me to fix that?
Mar-TINO
01-08-2012, 10:06 PM
Hello, I keep getting this error:
Found Item at Bank Slot 1.
** Warning in WithdrawItem: Could not Find dtm in Bank. [Uptext: a]**
Found Item at Bank Slot 1.
** Warning in WithdrawItem: Could not Find dtm in Bank. [Uptext: a]**
-> Worked for: 1 Minutes and 27 Seconds
-> Made: 0 Potions
-> Thats: 0 in hour
Found Item at Bank Slot 1.
** Warning in WithdrawItem: Could not Find dtm in Bank. [Uptext: a]**
Any ideas?
o0stacey0o
01-08-2012, 10:45 PM
Whats the Gp / hr With this bot??
Andr01d721
01-09-2012, 02:10 AM
Nothing atm, the script doesnt work
tdawg777
01-09-2012, 04:57 AM
Hello, I keep getting this error:
Found Item at Bank Slot 1.
** Warning in WithdrawItem: Could not Find dtm in Bank. [Uptext: a]**
Found Item at Bank Slot 1.
** Warning in WithdrawItem: Could not Find dtm in Bank. [Uptext: a]**
-> Worked for: 1 Minutes and 27 Seconds
-> Made: 0 Potions
-> Thats: 0 in hour
Found Item at Bank Slot 1.
** Warning in WithdrawItem: Could not Find dtm in Bank. [Uptext: a]**
Any ideas?
I posted about that above, just clean a few yourself. It gets stuck when there are an amount with an 8 left. But I don't know how to fix it...
LordHades
01-09-2012, 06:33 AM
I keep getting this error:
** Warning in WithdrawItem: Could not Find dtm in Bank. [Uptext: a]**
like above it doesn't say "Found Item at Bank Slot 1.",
I even tried arranging my bank so the only thing in tab 1 was grimy Guam's,
does anyone have any idea what's wrong?
Im auz
01-09-2012, 06:54 AM
I keep getting this error:
** Warning in WithdrawItem: Could not Find dtm in Bank. [Uptext: a]**
like above it doesn't say "Found Item at Bank Slot 1.",
I even tried arranging my bank so the only thing in tab 1 was grimy Guam's,
does anyone have any idea what's wrong?
Exact same problem!
DeadliestAsian
01-09-2012, 08:16 AM
For some reason... I can't get it to work for ranarrs... it's working on tarromin but when it comes to ranarrs it withdraws the clean ones and doesn't pay attention to the THOUSANDS of grimy ones i have... then it says "Out of supply" and logs me out.
o0stacey0o
01-09-2012, 10:40 AM
So does this not just clean herbs ? it has to make them UNF/POTIONS.??
all i want to do is just clean
tight butts
01-09-2012, 02:27 PM
@ the above postersf
You need to make new DTMtostrings for the herbs.
Can anyone help me get rid of the GUI pop up? and instead just type in pass and user in the script and select herb? I need this for the six hour smartcrash thing.
hervens
01-09-2012, 09:01 PM
By the way, do you guys just sell all your unf potions to the first guy who's buying, or do you at least try to maintain they're prices by selling at the same price as the cheapest seller?
I remembered when I used to make 1.1m-1.6m/hour regularly using a similar script with scroll of clensing. That's actually how I made my first 300m.
Now I'm struggling just to get 500k/hour.
thexawesomex
01-10-2012, 12:10 AM
Issue for me is that it keeps on clicking on deposit coin pouch instead of empty inv.... Any help?
Koetje
01-10-2012, 09:50 PM
Epic
CodaRulz
01-10-2012, 10:23 PM
running script right now and getting about 4.9k herbs an hr cleaned. :)
JackofSPades707
01-11-2012, 07:02 AM
can anyone tell me why I'm getting this error?
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
EDIT : Nevermind i found it elsewhere on the fourms, When is this script going to be updated to SRL 5?
Koetje
01-11-2012, 08:22 AM
I got a small question, ranging potions work fine for me but now I'm trying to make saradomin brews and I got all the supplies for it in my bank visable the bot sees it but acts like they aren't there and just logs out. How should I fix this?
Andr01d721
01-13-2012, 01:54 AM
@thexawesomex same here mine keeps clicking the money pouch icon and no one can fix it yet
thisguy
01-13-2012, 12:21 PM
Well i'm pretty sure i updated this script to SRL 5. You can use this until the owner updates it himself. I haven't tried it though.
EDIT: I just tried it and it won't get the herbs I wanted it clean. Something about not being able to find the dtm's so They need to be updated also. I might do that if i have time but i'll still leave this one up.
program HerblorePRO;
{$DEFINE SMART}
{$i SRL/SRL.simba}
{================= SETUP!=====================}
{ Setup in GUI.
note: Try to keep similar herbs/unfs in othet tabs, like Guam/torstol etc.
for smooth perfomance...
Post reports/suggestions/bugs, Thanks. }
var
Count, First, Second, Failsafe, Made, MadeInHour, x, y, x1, y1, vials, w, h, h1, Make, i: Integer;
WBank: String;
MForm: TForm;
oLabel: array[0..7] of TLabel;
Button: array[0..3] of TButton;
ComboBox: array[0..3] of TComboBox;
Edit: array[0..4] of TEdit;
Radios: Tradiogroup;
Image: TImage;
procedure AntiBan;
begin
case random(2000) of
0..50: HoverSkill('herblore',false);
51..80: PickupMouse;
81..100: RandomMovement;
101..220: BoredHuman;
221..240: ExamineInv;
241..260: RandomRClick;
end;
end;
procedure UpdateReport;
begin
Made := count * 14;
MadeInHour := Round((Made * 3600) / (GetTimeRunning / 1000));
Writeln(' ');
Writeln(' -> Worked for: ' + TimeRunning + ' ');
Writeln(' -> Made: ' + IntToStr(Made) + ' Potions ');
Writeln(' -> Thats: ' + IntToStr(MadeInHour) + ' in hour');
Writeln(' ');
end;
procedure Report;
begin
Made := count * 14;
MadeInHour := Round((Made * 3600) / (GetTimeRunning / 1000));
Writeln(' ');
Writeln('---===Herblore PRO by Neeger beta v1.5===--- ');
Writeln(' -> Worked for: ' + TimeRunning + ' ');
Writeln(' -> Made: ' + IntToStr(Made) + ' Potions ');
Writeln(' -> Thats: ' + IntToStr(MadeInHour) + ' in hour');
Writeln(' -> Post Reports/Bugs to: http://villavu.com/forum/showthread.php?t=67544 ');
Writeln(' ');
end;
procedure WhatBank;
begin
case ComboBox[2].ItemIndex of
0: WBank := 'feb';
1: WBank := 'fwb';
2: WBank := 'veb';
3: WBank := 'vwb';
4: WBank := 'geb';
5: WBank := 'db' ;
6: WBank := 'akb';
7: WBank := 'eb' ;
8: WBank := 'ctb';
9: WBank := 'clt';
10: WBank := 'nab';
11: WBank := 'sab';
12: WBank := 'ynb';
13: WBank := 'ngb';
14: WBank := 'sgb';
15: WBank := 'wgb';
16: WBank := 'fgb';
end;
end;
function FormOK: Boolean;
begin
if (Edit[0].TEXT = '') then
begin
MessageBox('Fill in username.', 'Error Message!', 0);
Exit;
end;
if (Edit[1].TEXT = '') then
begin
MessageBox('Fill in password.', 'Error Message!', 0);
Exit;
end;
if (Edit[4].TEXT = '') then
begin
MessageBox('Fill in how many potions would you like to make.', 'Error Message!', 0);
Exit;
end;
if (ComboBox[2].ItemIndex = -1) then
begin
MessageBox('Please choose what bank to use.', 'Error Message!', 0);
Exit;
end;
if (Radios.ItemIndex = 0) then
begin
if (ComboBox[0].ItemIndex = -1) then
begin
MessageBox('Please choose what potion to make.', 'Error Message!', 0);
Exit;
end;
end;
if (Radios.ItemIndex = 1) then
begin
if (ComboBox[1].ItemIndex = -1) then
begin
MessageBox('Please choose what unf. potion to make.', 'Error Message!', 0);
Exit;
end;
end;
if (Radios.ItemIndex = 2) then
begin
if (ComboBox[3].ItemIndex = -1) then
begin
MessageBox('Please choose what herb to clean', 'Error Message!', 0);
Exit;
end;
end;
Result := True;
end;
procedure Save(sender: TObject);
begin
if (not(FormOK)) then
Exit;
WriteINI('user', 'name', Base64Encode(Edit[0].Text), ScriptPath + 'PlayerInfo.ini');
WriteINI('user', 'pass', Base64Encode(Edit[1].Text), ScriptPath + 'PlayerInfo.ini');
WriteINI('user', 'pin', Base64Encode(Edit[2].Text), ScriptPath + 'PlayerInfo.ini');
WriteINI('user', 'world', Base64Encode(Edit[3].Text), ScriptPath + 'PlayerInfo.ini');
WriteINI('user', 'pot', Base64Encode(ComboBox[0].Text), ScriptPath + 'PlayerInfo.ini');
WriteINI('user', 'unf', Base64Encode(ComboBox[1].Text), ScriptPath + 'PlayerInfo.ini');
WriteINI('user', 'Bank', Base64Encode(ComboBox[2].Text), ScriptPath + 'PlayerInfo.ini');
end;
procedure Load(sender: TObject);
begin
Edit[0].Text := Base64Decode(ReadINI('user', 'name', ScriptPath + 'PlayerInfo.ini'));
Edit[1].Text := Base64Decode(ReadINI('user', 'pass', ScriptPath + 'PlayerInfo.ini'));
Edit[2].Text := Base64Decode(ReadINI('user', 'pin', ScriptPath + 'PlayerInfo.ini'));
Edit[3].Text := Base64Decode(ReadINI('user', 'world', ScriptPath + 'PlayerInfo.ini'));
ComboBox[0].Text := Base64Decode(ReadINI('user', 'pot', ScriptPath + 'PlayerInfo.ini'));
ComboBox[1].Text := Base64Decode(ReadINI('user', 'unf', ScriptPath + 'PlayerInfo.ini'));
ComboBox[2].Text := Base64Decode(ReadINI('user', 'Bank', ScriptPath + 'PlayerInfo.ini'));
end;
procedure OnClick(sender: TObject);
begin
if (not(FormOK)) then
Exit;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := Edit[0].Text;
Pass := Edit[1].Text;
Pin := Edit[2].Text;
Active := True;
end;
if (not(Edit[3].Text = '')) then
Smart_Server := StrToInt(Edit[3].Text);
Make := StrToInt(Edit[4].Text);
MForm.CLOSE;
FreeBitmap(vials);
end;
procedure ExitForm(sender: TObject);
begin
MForm.CLOSE;
FreeBitmap(vials);
// Terminatescript;
end;
procedure form_init();
begin
MForm := CreateForm;
with MForm do
begin
Width := 360;
Height := 330;
Caption := '---===HERBLORE PRO v1.5===---';
Position := poScreenCenter;
Color := 6872995;
end;
oLabel[0] := TLabel.Create(MForm);
with oLabel[0] do
begin
Parent := MForm;
Caption := 'Make Potions/Unfs/Clean:';
FONT.style := [fsbold];
Top := 10;
Left := 10;
end;
Radios := Tradiogroup.Create(MForm);
with Radios do
begin
Parent := MForm;
Items.Add('Potions');
Items.Add('Unfs');
Items.Add('Clean');
Top := 25;
Left := 25;
Width := 80;
Height := 80;
end;
oLabel[1] := TLabel.Create(MForm);
with oLabel[1] do
begin
Parent := MForm;
Caption := 'Choose what to make:';
FONT.style := [fsbold];
Top := 105;
Left := 10;
end;
ComboBox[0] := TComboBox.Create(MForm);
with ComboBox[0] do
begin
Parent := MForm;
Caption := 'Potions';
Top := 125;
Left := 10;
Width := 110;
ComboBox[0].Items.Add('Attack');
ComboBox[0].Items.Add('Strength');
ComboBox[0].Items.Add('Restore potion');
ComboBox[0].Items.Add('Energypotion');
ComboBox[0].Items.Add('Defence potion');
ComboBox[0].Items.Add('Prayer');
ComboBox[0].Items.Add('Crafting');
ComboBox[0].Items.Add('Super attack');
ComboBox[0].Items.Add('Super antipoison');
ComboBox[0].Items.Add('Super strength');
ComboBox[0].Items.Add('Super restore');
ComboBox[0].Items.Add('Super defence');
ComboBox[0].Items.Add('Ranging potion');
ComboBox[0].Items.Add('Magic potion');
ComboBox[0].Items.Add('Saradomin brew');
end;
ComboBox[1] := TComboBox.Create(MForm);
with ComboBox[1] do
begin
Parent := MForm;
Caption := 'Unfs';
Top := 150;
Left := 10;
Width := 110;
ComboBox[1].Items.Add('Guam');
ComboBox[1].Items.Add('Marrentill');
ComboBox[1].Items.Add('Tarromin');
ComboBox[1].Items.Add('Harralander');
ComboBox[1].Items.Add('Ranarr');
ComboBox[1].Items.Add('Toadflax');
ComboBox[1].Items.Add('Irit');
ComboBox[1].Items.Add('Wergali');
ComboBox[1].Items.Add('Avantoe');
ComboBox[1].Items.Add('Kwuarm');
ComboBox[1].Items.Add('Snapdragon');
ComboBox[1].Items.Add('Dwarf');
ComboBox[1].Items.Add('Torstol');
ComboBox[1].Items.Add('Cadantine');
ComboBox[1].Items.Add('Lantadyme');
end;
ComboBox[3] := TComboBox.Create(MForm);
with ComboBox[3] do
begin
Parent := MForm;
Caption := 'Clean';
Top := 175;
Left := 10;
Width := 110;
ComboBox[3].Items.Add('Guam');
ComboBox[3].Items.Add('Marrentill');
ComboBox[3].Items.Add('Tarromin');
ComboBox[3].Items.Add('Harralander');
ComboBox[3].Items.Add('Ranarr');
ComboBox[3].Items.Add('Toadflax');
ComboBox[3].Items.Add('Irit');
ComboBox[3].Items.Add('Wergali');
ComboBox[3].Items.Add('Avantoe');
ComboBox[3].Items.Add('Kwuarm');
ComboBox[3].Items.Add('Snapdragon');
ComboBox[3].Items.Add('Dwarf');
ComboBox[3].Items.Add('Torstol');
ComboBox[3].Items.Add('Cadantine');
ComboBox[3].Items.Add('Lantadyme');
end;
oLabel[1] := TLabel.Create(MForm);
with oLabel[1] do
begin
Parent := MForm;
Caption := 'What bank?';
FONT.style := [fsbold];
Top := 202;
Left := 10;
end;
ComboBox[2] := TComboBox.Create(MForm);
with ComboBox[2] do
begin
Parent := MForm;
Caption := 'Bank';
Top := 220;
Left := 10;
Width := 130;
ComboBox[2].Items.Add('Falador East Bank');
ComboBox[2].Items.Add('Falador West Bank');
ComboBox[2].Items.Add('Varrock East Bank');
ComboBox[2].Items.Add('Varrock West Bank');
ComboBox[2].Items.Add('GE Bank');
ComboBox[2].Items.Add('Draynor Bank');
ComboBox[2].Items.Add('Al-Kharid Bank');
ComboBox[2].Items.Add('Edgeville Bank');
ComboBox[2].Items.Add('Catherby bank');
ComboBox[2].Items.Add('Camelot bank');
ComboBox[2].Items.Add('North Ardy bank');
ComboBox[2].Items.Add('South Ardy bank');
ComboBox[2].Items.Add('Yanille bank');
ComboBox[2].Items.Add('North gnome bank');
ComboBox[2].Items.Add('South gnome bank');
ComboBox[2].Items.Add('Warrior guild bank');
ComboBox[2].Items.Add('Fishing guild bank');
end;
Button[0] := TButton.Create(MForm);
with Button[0] do
begin
Parent := MForm;
FONT.style := [fsbold];
Caption := 'Start Script';
Top := 220;
Left := 180;
Width := 120;
Height := 35;
OnClick := @OnClick;
end;
Button[1] := TButton.Create(MForm);
with Button[1] do
begin
Parent := MForm;
Caption := 'Exit';
Left := 200;
Top := 260;
OnClick := @ExitForm;
end;
oLabel[2] := TLabel.Create(MForm);
with oLabel[2] do
begin
Parent := MForm;
Top := 10;
Left := 230;
FONT.style := [fsbold];
Caption := 'Username:';
end;
Edit[0] := TEdit.Create(MForm);
with Edit[0] do
begin
Parent := MForm;
Top := 30;
Left := 230;
Width := Edit[0].Width + 10;
end;
oLabel[3] := TLabel.Create(MForm);
with oLabel[3] do
begin
Parent := MForm;
Top := 55;
Left := 230;
FONT.style := [fsbold];
Caption := 'Password:';
end;
Edit[1] := TEdit.Create(MForm);
with Edit[1] do
begin
Parent := MForm;
Top := 75;
Left := 230;
Width := Edit[1].Width + 10;
Passwordchar := '*';
end;
oLabel[4] := Tlabel.Create(MForm);
with oLabel[4] do
begin
Parent := MForm;
Top := 100;
Left := 230;
FONT.style := [fsbold];
Caption := 'Bank pin:';
end;
Edit[2] := TEdit.Create(MForm);
with Edit[2] do
begin
Parent := MForm;
Top := 120;
Left := 230;
Maxlength := 4;
Width := Edit[2].Width + 10;
end;
oLabel[5] := Tlabel.Create(MForm);
with oLabel[5] do
begin
Parent := MForm;
Top := 295;
Left := 10;
FONT.style := [fsbold];
Caption := 'World:';
end;
Edit[3] := TEdit.Create(MForm);
with Edit[3] do
begin
Parent := MForm;
Top := 290;
Left := 52;
Maxlength := 3;
Width := 30;
end;
oLabel[6] := Tlabel.Create(MForm);
with oLabel[6] do
begin
Parent := MForm;
Top := 313;
Left := 10;
FONT.style := [fsbold];
Font.Size := 7;
Caption := 'Random member world if emty';
end;
oLabel[7] := Tlabel.Create(MForm);
with oLabel[7] do
begin
Parent := MForm;
Top := 245;
Left := 10;
FONT.style := [fsbold];
Caption := 'How many to make:';
end;
Edit[4] := TEdit.Create(MForm);
with Edit[4] do
begin
Parent := MForm;
Top := 264;
Left := 10;
end;
Button[2] := TButton.Create(MForm);
with Button[2] do
begin
Parent := MForm;
Top := 155;
Left := 200;
Caption := 'Save Info';
OnClick := @Save;
end;
Button[3] := TButton.Create(MForm);
with Button[3] do
begin
Parent := MForm;
Top := 155;
Left := 280;
Caption := 'Load Info';
Onclick := @Load;
end;
oLabel[6] := Tlabel.Create(MForm);
with oLabel[6] do
begin
Parent := MForm;
Top := 312;
Left := 275;
Caption := '~by neeger ©';
FONT.style := [fsbold];
Font.Color := 15236458;
end;
Image := TImage.Create(MForm);
with Image do
begin
Parent := MForm;
Left := 145;
Top := 40;
Width := 60;
Height := 80;
vials := BitmapFromString(60, 80, 'meJztmvmT2+aZ53+cWLYlS32p7+' +
'Z9gRdAgCRu4j4IECRIgvfRt9Stq7vV3ZJ1WLYl+baTOBnf50w qqZ3' +
'NJNmdzGRiz7FxbTazSWYqO3E8no33X9mXkhzbiizJkVOa2lrW t1j4' +
'gXj5wYPv+7zv8wCr/+ft1f+v/3dVePM8cen4jGFNmtYDah7q2MabZ' +
'1d++9ZdB/s8dd/7RrRSHzerQ3Jpr2jdI1jDtHgQZ+3/+sRdZ/s82X' +
'920Ws6w2p1TKsPidW9nLWX0UZpufxXT911ts9T5T89ESi2Js2 WK9/' +
'0GK0pxRmWKqN8nn7syF1n+zzlHz/pLrcmrMaU3vAagLw2ptgHed1F' +
'MMmS1H736btO+Gn13nnaeugwkrdm7fao3Rq3mlOF2rhRmTQq0 7w+h' +
'5MQAucfWb7rnJ9WcaMvCQIrSYRuwmYpWir7i1VfwYY0LUIxQQ RJIk' +
'nt0spd5/y0rJPzEp/jcjRBM1mSgRkhTgshVohRVDibiaNoKBiUz/b' +
'uOuenZWx3SYqgCZLMZGmCILMkkSGJbDaeTgNB8VgMTxZe2Ljr nJ+W' +
'vO5k02kzr3MEQcEwnYCZaIKOxZKJRAqB0TRa/s7Zuw55nTrvPu186' +
'1ypXNQESWEZjcspOUYATiFwAsNSbPquE36eFENhaZIm8QyRTl OZDI' +
'1nMDQWDGpPHr7rbDfU4i9eEGQuRxJkJpNCUzCKRJFkEopE/AFqrXT' +
'X8W6o4oVDHJOjcYJOExSaJgZzLxmHokGfH0onl//t9btOeJ36731d' +
'kAExKuYwgYY1Hq5YeEXBqGw4As16vTPmc//hlu/W5bW2I7eb/GKPX' +
'1vmj64JJ47yx9aZxR5hWZDMJygq0fj+Q3+kf1dePJv76oPU09 vcMz' +
'viM9u5Jzc6//TNW5z1m1ePnO1unbC2t4qbJ/K72+rOtrK1KZ7cFI4' +
'f5VeXqMU+U7YxfVFY/F8vfbm0K//+pnLm8KzRGAWbMakykTPHKHmI' +
'FOfyav0nX73Jievf2do6oWwel7a3ld1deWfninbl3V3l5Ca3e YxeX' +
'8EX+5lWHSk90vqSmX/zutDsjpid/Vpjv2Qf4Iv7aO0ekhvFaeXPz9' +
'zkxMPnK0cPU9snpZ1tcWdHAti7V7BPboobx5hj6+T6KrG6gHc aiO0' +
'g/f/+zJfJ/MHrQq87WuoNmfWDRn1Kq46phf2yPkHmCn/5yOee9e5T' +
'y8vcymJ6bZXc2hBObklbG+Kxde7oWu7QMnVoiZxvpTrVeKMct UoRQ' +
'4WMbfvLZP7fb3IL8+Ol9kGzMWM23EZ9XCs9IGrTvKBfOvZ5Z8 3vWv' +
'12dnmeWFmglheIfjvTaWL1WqruwLVK0inHK0akaEaKVrhkQLo SkR1' +
'24Zd/+qUAd955yj6/wjTao6XORL4xqzc8ZmNEs/fJ5jSnpGIkV9S6' +
'v7dpX/jBxVYj3W+le61Mr53pttKNGlKvJqqVRBXQFmO2FS5agDlc0' +
'MJFDVKkAEf7hXnpzoGXfv2K1rMVUWCKlTmr7inWXWbdXWiOa5 UxxZ' +
'okOSieQRPx/MPz11/pMbPdQK8KhLdZT1UqScuOVUuRuhUpWVHDCpv' +
'FsJ4PmwqkihFRDtOEN52Zbn7/3B0yd999RhIFReAJlkEVGdbzkFEM' +
'GEWfbPhJJoJicApJJSPi2fonZ330dv2ZJccBgUWBExp1tFlDG qW4Y' +
'SH8lfD2ChE5nyLVOKnFWTnBCimKhTE2iaRDSGqGKaN3yNz7+2 doiu' +
'RYJkdRHEORJIlmmVSGxTJsBiUYOM0lYcjvMb955FOnPF6x0xU 74dT' +
'ghgNXbahsQzUrahqwUojYBhBE6JhL5mdF0cWJboZxsaSbgIPp YDw1' +
'k866+j997g7NTOJZkefYHEOjKINidCoLRCVxMgo2wwiZShrPr H5yy' +
'm/fKm0VqzZsF2NONeGUY1opbJbCTgEqalFVC1l6yNASCVsYyzcPq M' +
'29QnkvX7gvpwxRxByZiKZmUvHx/FPXO+2L+jlri6okVip2TuKIbAa' +
'Dk2gigUVhGEmmM2hcznz699XLS1YBsuxI2YKcUsIuRqViQDdD VZAi' +
'9HBeDelyiFXQYK04ZjT3q437xMoe2fkKm3+A4afJdDA6B0fGY Tm8+' +
'OuX7wS78eMn8ptdSVU4hWN5hsGzTDbDZLMEkfHHIkEe+90vVz 54rb' +
'qq5k2QEMJlEyrpUCEPqWZQzgcLerggRTQlKHMhUiTcNcdrNuZ 0Z1J' +
'rjqj1vVxpTCh6aCoS8caC4z7PgYV/vtOk5zx/Ehiao4hcJptD0RyM' +
'4LFYPBgMenxxJvXJhP3Bo6oEG1oob4QsM2KqYUuFJCUkaQFVC hpCW' +
'GT9eSliVgqeWjdQsMOFkteszRrNCb02xZsQLzAsmY2Hcoel5Q/vaI' +
'O6/OtXhUYxx1A8KJuzOI1iwB7pWDwOhYM+bygaqH3/kWtG+ucX9MW' +
'CpkG6GlKVoKIES0xU5MKU4BelgMgFJN7frRLd+Zqr2potVWeL 9Rmj' +
'MZlvTmjNSb4AcaKq8paarb14pyVt573nKJbO5OgMRcB4Joqjk TQMo' +
'bA7EnD5PdNeF/dof/Wja+3N5fdfNQ4rqhwReb8sB00qIuZCpODjhQ' +
'DLept18uhKsderh6qtsYIzbjbHAbDenlQbLsGMi6KoswIds55 cvxP' +
'glY/eIs/WPXrSJcNuEfXl4AABh/FUBEt44OBEyD0SmhxJuz9zyoev' +
'F7YcmvHlxAAjBAQxkMv5hVyQJlztBrm6VF3oO42WLTUqvFOkn RJtF' +
'2hLZUwxpwo5gUXi0fwzd8Tc+LsnAyI6LiXHlcy4REwy+DSBz+ LYbC' +
'oxGvXsD0/vi04eiE0b//mzu7uP3q6+dEI/W8XlEMH6M9gMRXiI9Fy' +
'rzs53i/WqVa9YZtM26yXdKeoVUy0ZmqYKQi4ZC8NM6k6qrZXfvolv' +
'lKfFzFheHC3ow6o+IiqjvDJKcyM4fn8K+krcvSc5cS80Tl248 e536' +
'f1X5n/xDfPxBeOJboaP5Atcxc6XKvliMW8B0qJqaoqqSbLM52gigy' +
'TigaB5Z2auvfPYrITOFuUZpz5s1oe1yn65OMSb+yj5AM0OkZk 9Cdc' +
'90Yk9oVG/Qy6+/8rNR1v6zSv5y/OSKlbLllMpFE3B0FhZJCWeZKhU' +
'Bo5TGVTaaYE95J0wi8+uTAmwq1ycKHf3qbVhGag6xNsPUNoQI 47R5' +
'J7gFPDGvYHR+8Jjnf/5/O2M2frREzSBG6pi6LxhCEZeUCVWzGWpdD' +
'oejbT+7o6aur1/+kZAS41z8dmSNeX0xozWDJjj+faE1hjnyzO8OU3' +
'Ro1HvSGR6f3Bsb/hg5+e3xbz48z+VgXFJkqYyYFUlMDibisNxKBoK' +
'egI+8ZHF36WgL+7kt4QLixNMcErLJPrtmXJj2mpOW7VJoz6pN yel2' +
'lTO8LEipnIoAw+HJ/b6x9Czzu2MvPTLF2VJzFEESxHZNJbBkAwKdo' +
'YxwOz3ed2uOfvbNyvWbqLlf3/Dr2BeOYktFpOLLVel5irWJ0vORMG' +
'ZNBoTSm2CK3g5CVNEXmNnEC/wRnRVuZ2RO9+9KPE8T5A5AiczGRzN' +
'UnCKiCcSkXDA4/F73MxW7Q9jVt44OcHHmLZaXK1r8xWyVobs6txg5' +
'apOm2WPWgjwEiIrmCSkRWoc9twTGt0Hz7R/9rVb3L4PXjf7VZYAm1' +
'uWwXEqA7wBsNF0Mh4PA3P4Qh6/z+UqvLj5BwQ5vWOPckG6rVSWHKt' +
'bUZqVbM1BHDvpVOBKGbUtsqAzeZlUcgkGG4pM3+Mf2RMYVV67 RZpq' +
'vn1OAFtxGnwoOpsl0+ksls6mESwZj4WCQZ8v5PWF5vz04S/cxFt8/' +
'9VRHhrK+fG2pHcLSqOg1G2xZvF1na3k6YbBVfJCSREUmuCwEB YYiY' +
'zf6x+9xz86V7hZibH8/mv5RpGhKBaIIFgcx7GrfoaxJDxg9vtCfl/' +
'Q5fW63Y2//QLPDUF6zD7c2s8H9+f8aJVV2rpZN5WaKduKavO5osCZ' +
'nGCJgsZwMglnoIPhyaHg+H2BMYDta9I3GVk/3GBpimdzbIakwFZ2E' +
'GQsnUqmEcCcuMYc8AXcXp/bHUxC8//ywm0yW987P8QE9ub8Q7nABB' +
'tA1LTZLZR7ZauqWxVJKgiMyeTyAq/ksrmsO+EfDU0C2qvaj7qqP37' +
'shsP2f/gEy9I8ReUIggYRvgJ8hRlJp2A0GY8Gg+GAH8Q55PP5XR7P' +
'nEs4dbudpeg6WC/8B1j/EOUdys6Nox7WFsu9YqFu5R1TqepCSWPzC' +
'iUw8SwymwztC07eGxzfFxjb4x/d4xspfu8G3cLlD16XWhZHglxBAA' +
'3SRTqdSWN4KpVNIRgCp+LxZCQMQh0JBgBz0O31zs4iOrX84Ru 3BG7' +
'85OkpIzFEeoYI9zDhPpCe8QsJrV/KNwzgDd5WyIJE6iLJMxhNxDAk' +
'kILuD0yAdXBP6AqzdyS2coOMB7I9L+TYj5kHrkhjWTidQUDdn sgiG' +
'CjWEuEQSNGDUAd8QY/XP+v2zbmKb5+6JbPxFw8eALSkZyzrOoi7h9' +
'BZtMJqXVt3TK2sMCWFNERCEwiBIhjwt/FIJjGemL3XPwIm4B7/GIj' +
'zGO7//WFrr5xiGZIhcJbESTyTTqMgvBkYuCKFwgkshcAxKB4JQqFA' +
'JAimoQd4A2D7PHORBNT40eM3ZwZ7BvLx3mTWP552D+PuvegM2 hDZv' +
'sk5+Zyt87bMWDxpcqTGY0waxuMxIuVFofv84/eEx77i2X+Pe9hjXP' +
'9Mp/+Tr3I4zeOMgOX4JCsmOS7OCnGWjVJMhKIgnIpmiTCKheCkPxo' +
'J+YKA2e0ZzMQZd2DOl3/26O1YuvidMy4quj8+FdJT3IIptwtCxVAc' +
'TawobIlnCxytM2k2DRNoFIfjGfhAYPxPwiN/4t0/pSDtn362tfvRW' +
'9qJNp8R5LRkIFohni9A+ULEADIiugFpeVDXhkQ5JLABCg+lsX ASDs' +
'Ti/kh0Lhx1h4NTgRiKLP3m1dvB5i4vBfGo2TXLbcsq6batF2xNKMs ' +
'cYDbZnEriQhbPIVkylqWS/oRrr3/0Pt9I7e+fvG6c3o+eUjKyjiml' +
'VMFB7BpSriOVWrLSgKsObDtIqZIslWOlYrQwgI9KYlTIQQwdp sgQT' +
'oTTKU8Smg4Xn7utHTVYCu2vnzBKumFp+WK+YOm8qWUNGTcF3O QIjc' +
'YEHOOwTA7JMAkkHUvWWfX1zd/fkpUXFwtJvZg063CliTitVH0+3V5' +
'Id/pYq4c2e1irgzbaqXoTqTnxcjletCAzD+kKJIshjgvRZGCQm4qX ' +
'P7f1ep3YqpHm+aQohfhcWBRDspoo2alyOVowgzLvy5F+Mh0k0 GAGg' +
'TIJ7dINXgxY/sVLFcGpwnYNrgCwPgo4W0vZ3jLeB9+r5Dw4WCb64G' +
'AB64AL6aQaLaRWi1eKUVOPqHJYEEJsxoXiyM2Wqk9NnK/TjWaq2Uu' +
'vrCOHjsaX1+OLh7Nrm9jaZmz5SLR/KNLoh0pVlyKPZvGxeMyHJvs/' +
'v/7ZSuv8xhXgKgAG8QRUi+nuUqa3Qs6v0PPr/MpR8dCasHxYXFqiu' +
'ot4B9wCcF3NZK0cLZWilhpRlLDI+PFM8Dae1YKJc2FTOHkms3 M+uX' +
'M+uHUuvH0utnE6snE6dPwUdHzXu37Su3Q0sHwEml/11HuQ7UxjafL' +
's9U22Al9wUuVGyhkEGWsBWhDeFWp+Ce8dYhdPN3cv9M6f6505 2z+9' +
'W99aM5bnyU41Dq6xbEeLhaghh0U+ROMeTChZt2Tu/virwtEN+ORZ7' +
'87DnlMX/acvhncfiu5egE4/HNw+798+5zpxynNke+7wpnv5qGfpiL' +
'e16DFLqYYB1rvPmHljtQxbdaTaQJwO2gTYfazdw5oL2e7pyu7 DSw+' +
'dWzpzenFnZ/Hk7sL26aWdDefIktSrwBbIJ2pYAabkQmQ2kGl87/It' +
'Z592YZs59RB05lHP7kX37qOhM5fgc5eRc5eT5y/HHnoMOnspeOph7' +
'9ZZ3/Fd16ETrsX1qebiXK0bAanl249cd7+czXUrZVRTZQcuA69eSR' +
'flE6VjZ3tndnvbJ+c3tuc3N+ePH+uub/SOnWivn+wcd4iSFpaVsJQ' +
'LUHSCrn3rwi2DbP/lY8LxLfj0oyC8gQcvhs9djl94LHnhMhAAjgNd' +
'GGAHts4GNh8EJplbPjrdPzTeXJhzWnCvtfCv11ffzqUNQ7LNp FZMm' +
'JVUcUntn1rY2ege3+wfP9E7eqyzfrxz5Gj78NHW2npj9UjrUF 2rqm' +
'EJzD4+xbV+cOMd12eC/G9v8Kc30bUNePfh6IMDZujMxehDjyUuDHS' +
'VGTp3Obh7AZgkcOKUf23LvXxkurMy2VqcsRtuOQ8v3aAqXPqX l6vP' +
'bZMhcrWwuNU+ATiP9dePtdaOdtbWm4cA55HmoUWnf6i+BL4PO 8sWm' +
'qcxtve3z95Ouih+65H40mHXwpr/2HbszMX46YvwmUvQmUuRMxfDD1' +
'4MnX40tDuwtG/zwcDG6cD6ycDhTd/y0ZnOymyjP1tu7af4SYbjvn7' +
'ihoO3evML5e5Sbb5bafacdr/aWaz1Fird+Upnodrr2q1eudUpNdt2' +
'Q6LF/k9uUaZdG/OdZ5FqbbKzOrewPrN8JLC2lTx5PnnyHJh9vp2Hf' +
'Nvnw1tngB8CJ077ju341ja9K8cAsKd/2Nta9lY6o3LxXorfi+H7og' +
'n1tZ3rBu+8fqZaKReUfCGft/L5omna+UKtUK4XqnWzUjPKdaPqGGW' +
'gsmGpmtJ772aPdz+eL2+br5yHau3x1tJU/9DM/CFX/5AHBHxxPby2' +
'Nbu26VnbCh/ZDh4/FTi2Ezi04V5ad/VXXcAS1c6c2ZjRq6OCfi9O3' +
'4tl7osmMiean7SDPnq79OxxXVNlRdYGkmRJlCRBEUSdl01FM2 S9oO' +
'YtFSy5ui4pCi/xDKMcdm7Z6ABbXKTddDnNqfr8VGNhurU021r0dpa' +
'99fm5xvxkc3Ea4LWW5rorns7ydHNh3G5PWM6YUTmo25OyNSXm Rxnh' +
'fgy/H0EfCMUm08j8r649c5//b1/TCnlFkVUVxE9WJFGRJVkWZV4SW' +
'U6gWZ6mcwQQxZEUh5MUnh1UBzTd+KtbpDjAHGk2Dhbr3nILJK 7JWm' +
'/K6c45bV+t63ba00532mlPOp3JcnOy3Joo1idKtQm9OK4WJqT8J K9' +
'N5OQRnNmXTO2LxMZSSeFr1zaQS+89bzcr+XxelSVdlsA3CPJA oijx' +
'OVAbcqDaomkOBzUXDqpaKpuhMhlwwOA418rfvEEKmKH5Ngiax 6jNF' +
'esHi7Ux2xkvOTNFZ7pQnS05k2Z53HIm7PpE0Rk3SmNmYUzRx3 h1NC' +
'eO0PwolTuAZR+IJiZQRH3zWnGx+O6zlYaT17S8ppqqIovCgBZ EmAN' +
'BFgSW5nIMYAb1C0uROZLEicHLSvjgfaUsOyjB0p13bvEGbOd/fAPr' +
'O1NaaSpfHTdL46Y9opfG8mVwPG2UJg1ryjDB92TenDCMMUk9m BPHW' +
'fEgmbs/i9+PZw6kUnMM3v7Zta7d0t88XawUVQ18lKvhVQY2FgUR4O' +
'ZyPCMwlEAzOeJawTVo0VwpxgflLShkMASUutLp7i1nYv8XLya Xu9O' +
'iPqOak6o5iKSsjUn6mKhf+VbBwUFRGxO1IZYfoXLDBDOcIfeh 2H0J' +
'eDgW55+/luXmv3vJLhdkXdV1La/IuiJfs4QkikIOlIYsQ/EgzgwJg' +
'syBSjybHfSUMhlQiWdQFL/S9CAwlMpRnX+8dZae/9Ur4lPH3SI/Tj' +
'BjFHuQ4Q+ywsGcMMoKIww/zPBDzMAMBwjmAEYeQLN7E6l9UXg4ElF' +
'fvZbfun9+wTKNvK7JmgQm3SceHkgQOZZnwYfiGZqjyKsRvlqJ E+lM' +
'BksBgToxPSjGY6lEvPzy9u0kaiCwBAvPHHMLzGgmO4qkR7HsM IYPZ' +
'Ukw0Yaz1DBODWHEA0l0Xwx+AEpMwLD93Yevnth++XQhr5uapq uqqE' +
'q6DowhfxxhjmMolmFz9MDA7BVgMpP9uNcBUBEsmQCoaCKORCE kFo0' +
'E/OFM4gt1dxfff7X/q5eUl7azZxeyD/bHs+lhGDkAxYfiyBCUAIJY' +
'Xm73Wcus/fDyyodvVJ89LrI5SeCv5OEBKsgOILKDuTbgpAAnqL7p7' +
'KAnM4jtABVJIwiaGKDC8Sgci8KRcCwcGigU9Hk9xErhD+5IX7 HNS9' +
'1fvsA9d5TYbiMCrzZqulNTyuVSyRZ4Ic3iRBpjCAJkV5ED5Dm BYzm' +
'QxyjiqgcGTcXsVdOigzZdKoUm42gylopFESgCUJNQOBq+1k0K ej1x' +
'ClYuLv3BtNep9e5TBM9qoEocrMJGo1qrVSoAGEsmswgCZtMgu 1LAs' +
'QzgB5dCf9ydG9Cm0HQqkUpE0VgMjkHJWCR5JbAANXK19xUJsm tl8/' +
'n1xX+9o0fe10neaIZ8XpamqiW7ZldatWqv2crLSizoB1YEGsz 9dJr' +
'+Xe4aZANk0EuEY6l4HIYgOBKJX7n7ABUImCDg85BNvfoXD/V+dlvP' +
'OL6orG+eiEKDf+RYxraspmM7ZWCRAgYnosEAuMXAlhgMA8iBU QfvI' +
'cSTiSgchWKRSDg06BfRfZNeLEhnuiCVXVX7H7/Ml75+X8sfvoGhKR' +
'iKgGleKVjlouXYdr1sKzwHBfxgysPxWBIaRHKAGPAF/b6AxxNFovx' +
'WA/iq/Q9/XLwbCiz01vMbOJYGNxosslZeBzJ1TVckKBQKeNx+j8sz' +
'NwurZOn17cbfXK7/9WP1H17q/vS2tsR/VIEdZgYbvGNwdeEYvLakC' +
'GD2uedmkQJtf/s/3Nvjq4NXaF6VFmywKzN0TeB5sAoTeFZoF5z/cv' +
'Gus91Eyx+8JleNAqg/2kWuqhZfPrn0/m31A7+o/i8dLN0W');
getbitmapsize(vials, w, h);
DrawBitmap(vials, Image.Canvas, 0, 0);
end;
end;
procedure ShowFormModel;
begin
MForm.ShowModal;
end;
procedure MakeForm;
var
V: TVariantArray;
begin
ThreadSafeCall('form_init', V);
SetLength(V, 0);
ThreadSafeCall('ShowFormModel', V);
end;
procedure SecondItem(Item: String);
begin
case Lowercase(Item) of
'red spider egg': Second := DTMFromString('mbQAAAHicY2VgYMhkZGAoBuICIE4H4iQg3g cU3wHEh4H4KAOEP0FOFEgyoWBWBkzAiAWDAQAiWgax');
'eye of newt': Second := DTMFromString('mbQAAAHicY2VgYJjCyMAwDYjnAvEEIJ4OxL uB4ocZIPR+IN4OxBLSS4EkEwpmZcAEjFgwGAAAdN4Hkg==');
'unicorn dust': Second := DTMFromString('mWAAAAHicY2FgYDjEyMBwFIj3APFhIN4PFN sGxIeB+CgQtxfbAEkmMDY2NmZgZUAFjGgYBAD+2wfo');
'potato cactus': Second := DTMFromString('mWAAAAHicY2FgYDAHYgcg1gFiWyB+DcQPgf g9EH8EYvcAXSDJBMesDKiAEQ2DAABSgQVk');
'limp': Second := DTMFromString('mWAAAAHicY2FgYIgH4mwgjgXiSCB+CcRfgP gxEL8B4rIMVSDJBMesDKiAEQ2DAACQkQZD');
'snapegrass': Second := DTMFromString('mWAAAAHicY2FgYEgE4iQgjgbibCB+CsR3gf gLEL8HYv5cayDJBMesDKiAEQ2DAACBFAX5');
'chocolate dust': Second := DTMFromString('mWAAAAHicY2FgYNgFxIeAeDcQbwLiV0D8DI g/APE7IPbUEgOSTHDMyoAKGNEwCAAA5mEHNA==');
'crushed nest': Second := DTMFromString('mWAAAAHicY2FgYHgOxM+A+B4QfwLiV0D8CI jfQ7GluRGQZIJjVgZUwIiGQQAAIKMH/Q==');
'whiteberries': Second := DTMFromString('mWAAAAHicY2FgYHgMxDeh9EsgfgfF34D4BR Af3bsHSDLBMSsDKmBEwyAAAHB5CZQ=');
'zammy wine': Second := DTMFromString('mbQAAAHicY2VgYHBkZGCwh2JvIDYB4tdA8d tA/B2I3wPxOyBOS0wEkkwomJUBEzBiwWAAACwPBx0=');
'frog spawn': Second := DTMFromString('mbQAAAHicY2VgYOhgYmDoBeIaJgi7CYgfMj IwXAHiG0D8FIgfA3FmYQRQNSMKZmXABIxYMBgAAKC/CEU=');
end;
end;
procedure ItemDTMs;
begin
if (Radios.ItemIndex = 1) then
begin
First := DTMFromString('mWAAAAHicY2FgYDjEyMBwGoh3AvFRIJ4HFF sIxIuBeBoQZxeBeEwMZbUbwDQrAwTAaEY0DAIAHd0Ivw=='); //Water filled vial..
case ComboBox[1].ItemIndex of
0: Second := DTMFromString('mWAAAAHicY2FgYNAAYlMg1gZiWSD2A2I3IA 4B4gAg5nTgApJMcMzKgAoY0TAIAACSLAJE'); //guam
1: Second := DTMFromString('mWAAAAHicY2FgYAgB4kQgjgFibyD2BWI3qH gwEHP78gBJJjhmZUAFjGgYBADNnwMO'); //marrentill
2: Second := DTMFromString('mbQAAAHicY2VgYGgC4l4grgPiciBuBmI/KA4D4kAgdgNi3hhtIMmEglkZMAEjFgwGAJY9BLw='); //tarromin
3: Second := DTMFromString('mWAAAAHicY2FgYNgHxHuAeD8QHwPiZCDOBe JoIM4AYtc0PiDJBMccDKiAEQ2DAAB0SQVi'); //harralander
4: Second := DTMFromString('mbQAAAHicY2VgYLgBxE+B+A4QnwPi20DsB8 QeQBwCxEFA7ALEBg6cQJIJBbMyYAJGLBgMADTfBlM='); //ranarr
5: Second := DTMFromString('mbQAAAHicY2VgYBBjZGBQAGIpIBYBYm4gTg WKxwBxNhDnAnEWEHPKcQFJJhTMyoAJGLFgMAAA2J0CwA=='); //toadflax
6: Second := DTMFromString('mWAAAAHicY2FgYLBhZGBwA2JrIDYA4jSgWC YQFzBA2LaxGkCSCY65GFABIxoGAQDavwNx'); //irit
7: Second := DTMFromString('mWAAAAHicY2FgYHjGyMDwGYjfAfEdID4BFD sMxOegOEpbA0gywTErAypgRMMgAAAGwweP'); //wergali
8: Second := DTMFromString('mWAAAAHicY2FgYBBmgmBpIOYB4pNAsX1AfB 6KBYxlgCQTHLMyoAJGNAwCAPMpA+0='); //avantoe
9: Second := DTMFromString('mbQAAAHicY2VgYDjAyMBwHIj3APFBID4GxO lA8SwgzgbiPCBOBWJdc3YGF18uBmMrDgY3f24GNX02BlagODpm xILBAAChlQh4'); //kwuarm
10: Second := DTMFromString('mWAAAAHicY2FgYLgJxA+g9EUgVmRiYFABYg 0gVgJirxBuBnNnTgZ9S3YGFR02BnagGmTMiIZBAACMVQYQ'); //snapdragon
11: Second := DTMFromString('mWAAAAHicY2FgYEgB4lQgzgPidCCeAMQzgH gKEHcAMbsJB5BkgmNmBlTAiIZBAAAbbwQ3'); //dwarf
12: Second := DTMFromString('mWAAAAHicY2FgYJgIxFOBuB+IJwFxHxBPh+ I2IOby5AGSTAzcvrxgmpkBApigNCMaBgEAZP8FXw=='); //torstol
13: Second := DTMFromString('mWAAAAHicY2FgYJjGyMDQB8RTgXg2EL8Cir 0D4g9A/AaINfSlGAzMJRjM7KUZbN3kGFiBYsiYEQ2DAAD/aghK'); //cadantine
14: Second := DTMFromString('mWAAAAHicY2FgYLBlZGCwA2ILIHYF4ldAsc dA/AmI3wMxh70JkGSCY1YGVMCIhkEAAEyMBTk='); //lantadyme
end;
end;
if (Radios.ItemIndex = 0) then
begin
case ComboBox[0].ItemIndex of
0: begin
First := DTMFromString('mWAAAAHicY2FgYNgFxAeheAsQTwfieUA8CY gnA3HLjJlAkgmOmRlQASMaBgEA0aEHEQ=='); //attack
SecondItem('eye of newt');
end;
1: begin
First := DTMFromString('mWAAAAHicY2FgYBBmZGAQBGJJIOYC4ulAsQ VAPJkBwp46tRFIMsExMwMqYETDIAAAAyAEaQ=='); //strengt
SecondItem('limp');
end;
2: begin
First := DTMFromString('mWAAAAHicY2FgYLBnZGBwA2JTIHYE4hlAsW lAPAuIFwDx9JZmIMkEx6wMqIARDYMAADj5BRk='); //restore potion
SecondItem('red spider egg');
end;
3: begin
First := DTMFromString('mWAAAAHicY2FgYLBnZGBwA2JTIHYE4hlAsW lAPAuIFwDx9JZmIMkEx6wMqIARDYMAADj5BRk='); //Energypotion
SecondItem('chocolate dust');
end;
4: begin
First := DTMFromString('mWAAAAHicY2FgYMhiZGDIBuIiIE4G4ilAsQ VAPA2IpwJx8/RmIMkEx6wMqIARDYMAAGwiBb4='); //Defence potion
SecondItem('whiteberries');
end;
5: begin
First := DTMFromString('mWAAAAHicY2FgYMhiZGDIBuIiIE4G4ilAsQ VAPA2IpwJx8/RmIMkEx6wMqIARDYMAAGwiBb4='); //Pary
SecondItem('snapegrass');
end;
6: begin
First := DTMFromString('mWAAAAHicY2FgYDAEYnMo1gDio0B8Doj3A/FJIJ4+rQlIMsExKwMqYETDIAAAVwkFpQ=='); //Crafting
SecondItem('frog spawn');
end;
7: begin
First := DTMFromString('mbQAAAHicY2VgYNjHyMBwFIgPAvFWIN4OxL OA4jOAeDEQzwPi6UA8YQKIZALjyZNngWkOBkzAiAWDAQAgdgpP '); //Super attack
SecondItem('eye of newt');
end;
8: begin
First := DTMFromString('mbQAAAHicY2VgYNjHyMBwFIgPAvFWIN4OxL OA4jOAeDEQzwPi6UA8YQKIZALjyZNngWkOBkzAiAWDAQAgdgpP '); //super anti
SecondItem('unicorn dust');
end;
9: begin
First := DTMFromString('mWAAAAHicY2FgYOiH4jYgngHER4F4HRCfBO JjQDy5pwdIMsExKwMqYETDIAAAwSsG/Q=='); //Super str
SecondItem('limp');
end;
10: begin
First := DTMFromString('mWAAAAHicY2FgYNgJxYeBeDMQHwHiM1D6IB D3ZGkDSSY4ZmVABYxoGAQA35sHMg=='); //super restore
SecondItem('red spider egg');
end;
11: begin
DTMFromString('mbQAAAHicY2VgYNjLyMCwD4i3A/ERIN4DxJ+A4neB+D0QvwXi30C8cEo3kGRCwawMmIARCwYDAENX CjU='); //Super defence
SecondItem('whiteberries');
end;
12: begin
First := DTMFromString('mWAAAAHicY2FgYHgOxe+B+AEQHwbiM1D6AB B3TpwHJJngmJUBFTCiYRAAADPBCHs='); //ranging potion
SecondItem('zammy wine');
end;
13: begin
DTMFromString('mbQAAAHicY2VgYEhhZGBIBeJcKI4F4k9A8b tA/BGIfwLxdyBePL0XSDKhYGYGTMCIBYMBAKNWCJI='); //magic potion
SecondItem('potato cactus');
end;
14: begin
First := DTMFromString('mWAAAAHicY2FgYBBmhGBJIOYG4iNAsTNAfA CIDwLx0pn9QJIJjlkZUAEjGgYBADXIBUA='); //saradomin brew
SecondItem('crushed nest');
end;
end;
end;
if (Radios.ItemIndex = 2) then
begin
case ComboBox[3].ItemIndex of
0: Second := DTMFromString('mWAAAAHicY2FgYNAAYlMg1gZiWSD2A2I3IA 4B4gAg5nTgApJMcMzKgAoY0TAIAACSLAJE'); //guam
1: Second := DTMFromString('mWAAAAHicY2FgYAgB4kQgjgFibyD2BWI3qH gwEHP78gBJJjhmZUAFjGgYBADNnwMO'); //marrentill
2: Second := DTMFromString('mbQAAAHicY2VgYGgC4l4grgPiciBuBmI/KA4D4kAgdgNi3hhtIMmEglkZMAEjFgwGAJY9BLw='); //tarromin
3: Second := DTMFromString('mWAAAAHicY2FgYNgHxHuAeD8QHwPiZCDOBe JoIM4AYtc0PiDJBMccDKiAEQ2DAAB0SQVi'); //harralander
4: Second := DTMFromString('mbQAAAHicY2VgYLgBxE+B+A4QnwPi20DsB8 QeQBwCxEFA7ALEBg6cQJIJBbMyYAJGLBgMADTfBlM='); //ranarr
5: Second := DTMFromString('mbQAAAHicY2VgYBBjZGBQAGIpIBYBYm4gTg WKxwBxNhDnAnEWEHPKcQFJJhTMyoAJGLFgMAAA2J0CwA=='); //toadflax
6: Second := DTMFromString('mWAAAAHicY2FgYLBhZGBwA2JrIDYA4jSgWC YQFzBA2LaxGkCSCY65GFABIxoGAQDavwNx'); //irit
7: Second := DTMFromString('mWAAAAHicY2FgYHjGyMDwGYjfAfEdID4BFD sMxOegOEpbA0gywTErAypgRMMgAAAGwweP'); //wergali
8: Second := DTMFromString('mWAAAAHicY2FgYBBmgmBpIOYB4pNAsX1AfB 6KBYxlgCQTHLMyoAJGNAwCAPMpA+0='); //avantoe
9: Second := DTMFromString('mWAAAAHicY2FgYJjGyMDQB8RTgXg2EL8Cir 0D4g9A/AaINfSlGAzMJRjM7KUZbN3kGFiBYsiYEQ2DAAD/aghK'); //kwuarm
10: Second := DTMFromString('mWAAAAHicY2FgYLAEYhcgtgFifSCeBMTdQD wdiKcBcUg8H0NUGh+QxQTGrEAShGGAEQ2DAAAlggTY'); //snapdragon
11: Second := DTMFromString('mWAAAAHicY2FgYEgB4lQgzgPidCCeAMQzgH gKEHcAMbsJB5BkgmNmBlTAiIZBAAAbbwQ3'); //dwarf
12: Second := DTMFromString('mWAAAAHicY2FgYJgIxFOBuB+IJwFxHxBPh+ I2IOby5AGSTAzcvrxgmpkBApigNCMaBgEAZP8FXw=='); //torstol
13: Second := DTMFromString('mbQAAAHicY2VgYJjCCMELgXgyEHcB8Vug+G cgfgnE94H4FRDrm8sBSSYUzMKACRixYDAAAKIaCBg='); //cadantine
14: Second := DTMFromString('mWAAAAHicY2FgYLBlZGCwA2ILIHYF4ldAsc dA/AmI3wMxh70JkGSCY1YGVMCIhkEAAEyMBTk='); //lantadyme
end;
end;
end;
procedure EndScript;
begin
Report;
Logout;
FreeDTM(First);
FreeDTM(Second);
Terminatescript;
end;
Procedure CleanHerbs;
begin
case random(100) of
0..50: begin
for i := 1 to 28 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
end;
end;
51..100: begin
for i := 1 to 4 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
end;
i := 8
for h1 := 1 to 4 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
i := i - 1
end;
for i := 9 to 12 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
end;
i := 16
for h1 := 1 to 4 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
i := i - 1
end;
for i := 17 to 20 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
end;
i := 24
for h1 := 1 to 4 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
i := i - 1
end;
for i := 25 to 28 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
end;
end;
end;
end;
function Bank: Boolean;
begin
FindNormalRandoms;
if (Failsafe = 3) then
begin
WriteLn('Out of supply?');
EndScript;
end;
if (not(BankScreen)) then
begin
if (not(OpenBank(WBank, False, False))) then
WriteLn('Error: Cant open bank');
Wait(200 + Random(300));
end;
if BankScreen then
begin
Wait(200 + Random(300));
FixBank;
if (not(InvEmpty)) then
DepositAll;
end;
if (Radios.ItemIndex = 2) then
begin
if (not(WithdrawItem(Second, 'dtm', 28, 'a', []))) then
begin
Result := False;
exit;
end;
Wait(500 + Random(300));
end;
Wait(200 + Random(300));
if (Radios.ItemIndex = 0) or (Radios.ItemIndex = 1) then
begin
if (not(WithdrawItem(First, 'dtm', 14, 'a', []))) then
begin
Result := False;
exit;
end;
Wait(1000 + Random(300));
if (not(WithdrawItem(Second, 'dtm', 14, 'a', []))) then
begin
Result := False;
exit;
end;
end;
Wait(200 + Random(300));
WaitFunc(@InvFull, 50, 4000);
if (not(InvFull)) then
begin
Result := False;
exit;
end;
WaitFunc(@CloseBank, 20, 5000);
Wait(200 + Random(300));
FindNormalRandoms;
Failsafe:= 0;
Result := True;
end;
function func_wrapper: boolean;
begin
result := FindText(x, y, 'All', UpChars, 350, 350, 430, 375);
end;
function MakePotions: Boolean;
begin
if (not(InvFull)) then
exit;
if (Radios.ItemIndex = 2) then
begin
CleanHerbs;
Result := True;
exit;
end;
if (FindDTM(First, x, y, 600, 320, 690, 355)) and (FindDTM(Second, x1, y1, 600, 320, 690, 355)) then //finds DTM
begin
MMouse(x, y, 10, 10);
Wait(200 + Random(50));
ClickMouse2(True);
Wait(200 + Random(300));
if ItemActivated(14) then
Mouse(x1, y1, 10, 10, True);
Wait(1000 + Random(300));
WaitFunc(@func_wrapper, 20, 500);
end else exit;
Mouse(255, 430, 15, 15, True);
Failsafe:= 0;
repeat
FindNormalRandoms;
LevelUp;
Wait(1500 + Random(300));
Inc(Failsafe);
if (FailSafe = 1) or (FailSafe = 6) then
AntiBan;
until (not(FindDTM(First, x1, y1, MIX1, MIY1, MIX2, MIY2))) or (Failsafe = 14);
Failsafe:= 0;
Result := True;
end;
begin
MakeForm;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
Disguise('Herblore PRO');
ItemDTMs;
WhatBank;
Failsafe:= 0;
count:= 0;
ActivateClient;
if (not(LoggedIn)) then
LogInPlayer;
Wait(1000 + Random(500));
Gametab(tab_Inv);
SetAngle(SRL_ANGLE_HIGH); //Or SRL_ANGLE_LOW
MakeCompass('n');
repeat
if (not(Bank)) then
begin
Inc(Failsafe);
Bank;
end;
if MakePotions then
Inc(count);
UpdateReport;
until not(LoggedIn) or (count >= Make);
EndScript;
end.
Andr01d721
01-15-2012, 05:19 AM
mines working now, i updated all the stuff in simba now it can click the deposit all thing in bank screen
When I tried the GE Bank it couldn't locate it.
When I tried Varrock West bank it kept right clicking the banks there.
and this is the log
Warning! You passed a wrong ys to a finder function: -5. 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: -5. 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: -5. 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: -5. 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: -5. 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: -5. 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: -5. 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: -5. 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: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. 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: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. 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: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
DeiJaiVui
01-15-2012, 11:04 AM
When I run it, this pops up in the debug box.
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
holysin
01-15-2012, 03:17 PM
Change line 2
{$i SRL/SRL.scar}
to
{$i SRL/SRL.simba} .
Change line 998
SetAngle(True);
to
SetAngle(SRL_ANGLE_HIGH);
:spot::D tyvm
dc686
01-16-2012, 12:17 AM
cant even get script to completly log in it logs in sits at the log in page with this
The following DTMs were not freed: [2, 3]
pk master999
01-16-2012, 01:35 AM
how do i add this to simba - or any other script? please reply soon
pk master999
01-16-2012, 01:58 AM
how do i add this to simba - or any other script? please reply soon
i see where do download it- but what do i do after i press download please. i . need. help soon D:
pk master999
01-16-2012, 02:14 AM
how do i add this to simba - or any other script? please reply soon
pk master999
01-16-2012, 02:17 AM
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Exception in Script: Unable to find file 'SRL/SRL.scar' used from "
Andr01d721
01-16-2012, 10:00 PM
new error guys: the script runs but it cant open up the bank, got a fix yet?
thisguy
01-16-2012, 11:54 PM
Sorry I couldn't find out how to update the DTM's but I'm still looking for a thread to tell me how to do it. A few posts above shows my script that's partially updated to support SRL 5 but it just needs the latest DTM's. Please read posts above before you just post things.
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Exception in Script: Unable to find file 'SRL/SRL.scar' used from "
This was fixed in my partial completion of updating the script to SRL 5. I will try and make it recognize the herbs soon (that's what the DTM's are for).
new error guys: the script runs but it cant open up the bank, got a fix yet?
I had it opening the Varrock West Bank, Soul Wars Chest, and Draynor Bank the other day.
Andr01d721
01-17-2012, 05:17 AM
ah dont worry i got it working again, just had to change 1 thing
dc686
01-17-2012, 06:00 PM
can u give u the updated code please i am very noob at coding but im trying to learn
thexawesomex
01-17-2012, 09:34 PM
ah dont worry i got it working again, just had to change 1 thing
Can you give me the updated code then please?
Sorry I couldn't find out how to update the DTM's but I'm still looking for a thread to tell me how to do it. A few posts above shows my script that's partially updated to support SRL 5 but it just needs the latest DTM's. Please read posts above before you just post things.
This was fixed in my partial completion of updating the script to SRL 5. I will try and make it recognize the herbs soon (that's what the DTM's are for).
I had it opening the Varrock West Bank, Soul Wars Chest, and Draynor Bank the other day.
How do you run this at Soul Wars Chest
Andr01d721
01-18-2012, 02:00 PM
How do you run this at Soul Wars Chest
this script doesnt work at soul wars bank, there is another herblore script that can do that: http://villavu.com/forum/showthread.php?t=71605
nathan lad
01-18-2012, 04:43 PM
think neeger should think about adding soul wars bank as the damn randoms are makin me look like a bot! noooooooo
Warning! You passed a wrong ys to a finder function: -5. 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: -5. 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: -5. 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: -5. 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: -5. 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: -5. 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: -5. 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: -5. 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: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. 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: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. 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: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Andr01d721
01-20-2012, 11:30 AM
how do i add this to simba - or any other script? please reply soon
i see where do download it- but what do i do after i press download please. i . need. help soon D:
When you download the archive (.zip) file, extract it and wen u get the .simba script file in the folder, copy it in to C:/Simba/scripts.
Open Simba client and open it the script and try to compile it, if it fails then change the parts of the code to what the people recently posted on this thread.
illegal
01-20-2012, 04:33 PM
hmm this script doesn't seem to work for me in varrock west bank. Are there any spots that you guys use that work best?
The Script is broken:P still with SRL 4 I've got it to SRL5 and it still broken :P Mat
chelmid
01-22-2012, 01:52 PM
works good to me.today worked for 3 hours making unf harralanders.
iFluffy
01-22-2012, 11:30 PM
Adding soul wars bank would be pretty awesome, can't find it on the bank list :p
nathan lad
01-23-2012, 09:57 AM
agreed with fluffy, and many others whove suggested it. perhaps add soul wars chest to ure to do list
chelmid
01-23-2012, 07:39 PM
i was making harralander unfs and it works pretty well for 30 mins but then this happens:
Warning in Withdraw item: Could not find dtm in bank.
That has happened many times.
help!
The Ghola
01-23-2012, 09:34 PM
yes, Unf harra have just stopped working for me toooo
Andr01d721
01-24-2012, 02:28 AM
update your software, srl, msi, sps and extensions, restart simba and try again
chelmid
01-24-2012, 04:52 AM
update your software, srl, msi, sps and extensions, restart simba and try again
I have tried that several times.
chelmid
01-24-2012, 04:07 PM
:redface:C'mon neeger! update!
The Ghola
01-25-2012, 11:22 PM
:redface:C'mon neeger! update!
here, here.... these noobs will overtake the "original" lol
aew782
01-29-2012, 03:03 AM
Holy crap this is amazing, gonna go for the ovls for miniwars
botme99
01-29-2012, 04:48 PM
Hi script looks amzing and really want use it but i get this when i try to run.
[Error] (999:17): Type mismatch at line 998
Compiling failed.
hope you can help
Botme99 :)
maxxfilth
01-30-2012, 12:19 AM
[Error] (1004:18): Type mismatch at line 1003
Compiling failed.
Current
01-30-2012, 12:37 AM
Thanks bro, it's very useful.
Maxmm
01-30-2012, 01:05 PM
works fucking great! cleans and makes perfectly irit and kwuarms!
Maxmm
01-30-2012, 06:31 PM
Exception in Script: The given DTM Index[0] doesn't exist
The following DTMs were not freed: [1]
t0b1as
02-01-2012, 01:09 PM
Neeger, are you going to update this script?
Huggies
02-05-2012, 04:01 AM
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Anyone help?
Leonoras
02-05-2012, 09:22 PM
Change .scar to .simba
Jayron
02-06-2012, 02:50 AM
wonderful script!
t0b1as
02-06-2012, 08:16 AM
Working great :D
Rawrasaurus
02-06-2012, 11:29 PM
[Error] (999:17): Type mismatch at line 998
Compiling failed.
Please help :~)
takeapieandrun
02-07-2012, 05:41 AM
I may try this once I get members back, thanks for the script regardless. :)
[Error] (999:17): Type mismatch at line 998
Compiling failed.
Please help :~)
Same problem here
tisin
02-07-2012, 02:56 PM
Same problem here
Same here
DomoGen
02-09-2012, 08:10 AM
Hi script looks amzing and really want use it but i get this when i try to run.
[Error] (999:17): Type mismatch at line 998
Compiling failed.
hope you can help
Botme99 :)
Everyone with this error delete the line of code.
toteater15
02-10-2012, 02:54 AM
when i try and download the script it doesnt download for me it says error and then it freezes and then nothing happens what do i do??????
takeapieandrun
02-13-2012, 08:30 AM
Just got my members card will try this soon
epic vulture
02-15-2012, 05:03 PM
It was working perfectly for like 55k Energy Pots, but then when I got down to 6.8k supplies left it all of a sudden stopped finding the Chocolate Dust...
Ezio Auditore da Firenze
02-16-2012, 04:42 PM
Any ideas how to fix this? Exception in Script: Unable to find file 'SRL/SRL.scar' used from "
epic vulture
02-16-2012, 06:41 PM
Any ideas how to fix this? Exception in Script: Unable to find file 'SRL/SRL.scar' used from "
Change it to SRL/SRL.simba
rbloomer
02-17-2012, 02:14 AM
i am getting [Error] (838:17): Type mismatch at line 998 anyone know the fix?
chelmid
02-17-2012, 05:35 PM
Have somebody done unf. harras with this?(over 2hrs)I can't get it to work good anymore with them.It usually says that can't find dtm in bank.(of clean harralander)
iFluffy
02-20-2012, 08:07 PM
if only it banked at soul wars :(
mastastick2
02-21-2012, 05:05 PM
Needs serum 207 makeable :/
emm3t
02-21-2012, 07:41 PM
how do i update my srl?
it wont let me run it
it seas
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
please help me as soon as possible.
how do i update my srl?
it wont let me run it
it seas
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
please help me as soon as possible.
Change .scar to .simba and then deleted line 998.
chalkman
02-23-2012, 07:42 AM
Was just trying it out for strength potions and it couldnt find anything like 80% of the time. took me about 2 hours for it to work for like 15 seconds, read everyones problems tried multiple things to fix it, seems really legit, just might be something wrong thats hidden or this just happens to be the only script i cant figure out.
rahza786
02-24-2012, 07:26 PM
add sw bank, its better because you don't get any randoms there.
rahza786
02-24-2012, 07:52 PM
make it support scroll of cleansing....
can't unf pots with it...
janbricky
02-27-2012, 12:34 PM
Script doesn't work at warriors guild bank... it logs you in then logs out and shuts down
HHHHHHHH
02-29-2012, 04:28 PM
[Error] (999:17): Type mismatch at line 998
Compiling failed.
Please help!
Kajutsky
03-01-2012, 11:32 PM
status: not working, it just stands at bank and clicks at random places
t0b1as
03-07-2012, 09:57 AM
It is working for me =)
Just update the DTM's you are using =)
Tedious
03-07-2012, 01:33 PM
Very nice man, the bot is working smoothly.
ggsus
03-08-2012, 03:56 AM
WORKING FLAWLESS NOW!!
Thanks, almost paid for a epicbot script lmao!
TYVMSM!!
Adamcoled
03-08-2012, 04:23 PM
Does it work at soul wars?
Leonoras
03-08-2012, 10:10 PM
It is working great, you guys just need to start reading the related topics. :)
prostaker
03-09-2012, 09:36 AM
This is awesome script from awesome scripter. I will try to implement my own SW banking to this script. Shouldn't be hard. :):spongebob:
draken95
03-09-2012, 07:27 PM
Aint work at edge bank, tell me a working bank please?
Last Legend
03-10-2012, 09:12 PM
Great script other than the occasional failure to find an item which others seem to also be pointing out. Its a random occurance so I'm puzzled to what is causing it.
Thanks for the great script,
Anubis
exilednoob
03-12-2012, 09:22 AM
Getting this error
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Where do i put the script?
So originally i had the error: Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Changed to .simba as everyobe said and now getting...
Exception in Script: Unable to find file 'SRL/SRL.simba' used from ''
kylepwnz777
03-12-2012, 08:27 PM
downloaded going to try this out =)
beaver1995
03-12-2012, 09:40 PM
does this not work at soul wars bank? cus if it doesnt... facepalm..
-> Worked for: 6 Hours, 43 Minutes and 43 Seconds
-> Made: 14392 Potions
-> Thats: 2138 in hour
Another
---===Herblore PRO by Neeger beta v1.5===---
-> Worked for: 6 Hours, 1 Minutes and 18 Seconds
-> Made: 13202 Potions
-> Thats: 2192 in hour
-> Post Reports/Bugs to: http://villavu.com/forum/showthread.php?t=67544
dogtoy12
03-13-2012, 09:33 PM
I got an error message saying this, I'm new to simba so i have no idea what it means :/
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
please help, Thanks :)
I got same error as above, so i just changed .scar to .simba.
But i get this problem now:
[Error] (999:17): Type mismatch at line 998
Compiling failed.
ANinja
03-14-2012, 12:16 AM
I also changed .scar to .simba and then got the:
[Error] (999:17): Type mismatch at line 998
Compiling failed.
Message.
beaver1995
03-14-2012, 06:09 PM
me too
Zerkeronrs7
03-16-2012, 10:15 AM
Just update the script yourselves then...
http://villavu.com/forum/showthread.php?t=71645
mortino
03-16-2012, 05:57 PM
Great script other than the occasional failure to find an item which others seem to also be pointing out. Its a random occurance so I'm puzzled to what is causing it.
Thanks for the great script,
Anubis
the random cannot find item is a DTM error, the picture in your bank is slightly different each time you open your bank. to fix this all you need to do is create a better DTM. The best way i have found to make good DTM's is to withdraw a full inventory of that item and use the DTM makers find matching DTM's option, if it finds all of your inventory DTM should be pretty flawless. hope thishelped if it was confusig at post a reply and ill try to clear it up.
timrocks
03-17-2012, 10:03 AM
** Warning in WithdrawItem: Could not Find dtm in Bank. [Uptext: a] **
** Warning in WithdrawItem: Could not Find dtm in Bank. [Uptext: a] **
-> Worked for: 58 Seconds
-> Made: 0 Potions
-> Thats: 0 in hour
*Exception in Script: The given DTM Index[0] doesn't exist
The following DTMs were not freed: [1]
I bought 5k grimy guams. Putted it in one tab without any other herbs. (trying to clean them).
justiceouest
03-19-2012, 06:35 PM
** Warning in WithdrawItem: Could not Find dtm in Bank. [Uptext: a] **
-> Worked for: 2 Minutes and 13 Seconds
-> Made: 0 Potions
-> Thats: 0 in hour
my grimmy herb is on the first slot of the first tab but still dosent find them
can someone help me plz ?
siuman101
03-22-2012, 01:22 PM
Just update the script yourselves then...
http://villavu.com/forum/showthread.php?t=71645
I have already update everything, but the problem is still occur, please help.
shstiger2009
03-22-2012, 01:42 PM
I have already update everything, but the problem is still occur, please help.
This script is outdated kind of...at least the DTM's which find the items are. Use one of the more recent scripts like Smurg's.
Draqon Born
03-25-2012, 07:04 PM
Hey, I'm experienced in graphics production. I could work on the paint for you. Do you have skype?
shstiger2009
03-25-2012, 07:20 PM
Hey, I'm experienced in graphics production. I could work on the paint for you. Do you have skype?
He hasn't been active on here for a while. I'd contact someone else for GFX for their script.
Draqon Born
03-25-2012, 07:23 PM
He hasn't been active on here for a while. I'd contact someone else for GFX for their script.
Thanks for letting me know.
who23
03-26-2012, 01:16 AM
Can you add soul wars bank access? to prevent randoms etc. Thanks :D
iskill4u
03-29-2012, 08:42 AM
comes up with this for me Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Captain Morgan
03-31-2012, 01:24 AM
I will fix all your problems, cause you can't click a link fools.
Change {$I srl/srl.scar} to {$I srl/srl.simba}
Change SetAngle(true) to SetAngle(SRL_ANGLE_HIGH)
Gf Simba, gf.
Of course, my script won't even log-in properly. Fancy that. :D
COODA I
03-31-2012, 03:20 PM
Just update the script yourselves then...
http://villavu.com/forum/showthread.php?t=71645
Thanks for this before I have never been able to get something like this to work and now i just updated this script thanks for the help!
serexcety
04-02-2012, 12:58 AM
nevermind buddy. i fixed it.
t0b1as
04-03-2012, 11:24 AM
Is the script getting stuck because of the seal of the squeal of fortune to?
Or am I the only one xD? Does anybody know a fix for this?
ji33my
04-03-2012, 07:10 PM
EDIT: WOAH....wrong thread lmao <3
Son of Zeus
04-04-2012, 07:02 PM
Whenever I try to run the script I get this message:
"Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Please help?
mikeym
04-04-2012, 08:42 PM
Whenever I try to run the script I get this message:
"Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Please help?
same sadly:(
mikeym
04-04-2012, 09:23 PM
I fixed it tho. Hard to explain search around the forums that's how I found out.
pcelite11
04-05-2012, 12:06 AM
Whenever I try to run the script I get this message:
"Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Please help?
change .scar to .simba :spot:
Surfster
04-05-2012, 03:33 PM
Can't find bank at al-karid!
Rocker 1414
04-06-2012, 08:47 PM
For everyone getting errors
From the default v1.5 download, you need to fix two things to avoid errors:
1. Change .scar to .simba in the includes on line 3.
2. Replace the SetAngle line (around line 1000 - will be highlighted if you compile after doing step 1) with this text: SetAngle(SRL_ANGLE_NONE)
Voila!
OwainJones
04-08-2012, 02:35 PM
wrong thread, can't delete XD
Nolan2323
04-08-2012, 03:23 PM
cool
unknownrpg
04-08-2012, 11:51 PM
heads up its unable to find edgeville bank
user666
04-09-2012, 03:42 AM
Script getting too buggy.. Logs out every few minutes for no reason.
Neznam
04-10-2012, 03:18 AM
For everyone getting errors
From the default v1.5 download, you need to fix two things to avoid errors:
1. Change .scar to .simba in the includes on line 3.
2. Replace the SetAngle line (around line 1000 - will be highlighted if you compile after doing step 1) with this text: SetAngle(SRL_ANGLE_NONE)
Voila!
Thanks for the fix.
Works great.
Any recommendations as to how long its ok to run script for?
MEME123
04-10-2012, 10:29 PM
Where can i find GUI?? I opened it in simba with and it showed script not a GUI.
Edit: LOL i didnt click run. :duh:
MEME123
04-10-2012, 11:25 PM
it would be nice if it was compatible with the soul wars bank so there will not be random events.
Neznam
04-10-2012, 11:42 PM
it would be nice if it was compatible with the soul wars bank so there will not be random events.
While making unf, you get no exp, so no random events.
So far in the past 2 days of running this, ive made 30k potion (unf) and have yet to see a random event.
serexcety
04-11-2012, 07:59 PM
bug:doesn't work for sara brews
** Warning in WithdrawItem: Could not Find dtm in Bank. [Uptext: a] **
-> Worked for: 24 Seconds
-> Made: 0 Potions
-> Thats: 0 in hour
** Warning in WithdrawItem: Could not Find dtm in Bank. [Uptext: a] **
Out of supply?
wilkinson123
04-12-2012, 05:23 PM
The following DTMs were not freed: [2, 3]
Neznam
04-16-2012, 07:33 AM
Im having no trouble making UNFI potions, but when I try to make str atk or whatever potion the script runs for 15-45minutes and randomly logs out.
Any ideas why?
luckyloser01
04-18-2012, 10:02 PM
i managed to get it working :L looks good so far
melee
04-22-2012, 03:53 PM
Any way you can add spec restores? Great script mate!
Tiggy
04-28-2012, 07:08 AM
Any way you can add spec restores? Great script mate!
^ please
iFluffy
04-29-2012, 10:06 PM
it doesn't click the herbs, it keeps missclicking :(
adam101
04-30-2012, 03:59 PM
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
pkwa9lawy
05-07-2012, 01:46 AM
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
dude your a 07 member i dont mean to be harsh but... file 'SRL/SRL.scar' ?
change the .scar to .simba sigh..
elpreda
05-09-2012, 10:01 AM
I just downloaded and tried to use it. I noticed the include was srl.scar, not srl.simba, changed it, there was also a type mismatch at SetAngle line 998.
Anyway, i started it and asked it to clean guam and it seems that the dtm for grimy guam points to clean guam. I haven't tested anything else yet though. I'm going to change the dtm for this when i have some free time
Oh and it is v1.5 .
newlolplayer
05-10-2012, 12:35 AM
Great script! thx a lot.
When I was using it, I received a spin ticket, and the script got stuck at trying to store all inventory items (repeated it 50+ times before i noticed)
is there a way I can fix this?
Cyfer
05-14-2012, 12:34 PM
dude your a 07 member i dont mean to be harsh but... file 'SRL/SRL.scar' ?
change the .scar to .simba sigh..
I'm sorry I'm new to this and I have the same problem and I don't know how to fix it. I changed the 'srl.scar' in the script to simba but then I got a different problem with True(Angle). I then thought I had to change the actual srl.sex extension to srl.simba but that didn't help.
Any advice would be greatly appreciated, thanks.
EDIT: See post below please, sorry for the double post.
Cyfer
05-14-2012, 12:36 PM
I just downloaded and tried to use it. I noticed the include was srl.scar, not srl.simba, changed it, there was also a type mismatch at SetAngle line 998.
Anyway, i started it and asked it to clean guam and it seems that the dtm for grimy guam points to clean guam. I haven't tested anything else yet though. I'm going to change the dtm for this when i have some free time
Oh and it is v1.5 .
What did you do to solve the type mismatch? Thanks for your time.
Inheaven
05-19-2012, 12:46 PM
Hmm doesn't work for me .. Please help? :
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Jokester
05-19-2012, 03:27 PM
program HerblorePRO;
{$DEFINE SMART}
{$i SRL/SRL.simba}
{================= SETUP!=====================}
{ Setup in GUI.
note: Try to keep similar herbs/unfs in othet tabs, like Guam/torstol etc.
for smooth perfomance...
Post reports/suggestions/bugs, Thanks. }
var
Count, First, Second, Failsafe, Made, MadeInHour, x, y, x1, y1, vials, w, h, h1, Make, i: Integer;
WBank: String;
MForm: TForm;
oLabel: array[0..7] of TLabel;
Button: array[0..3] of TButton;
ComboBox: array[0..3] of TComboBox;
Edit: array[0..4] of TEdit;
Radios: Tradiogroup;
Image: TImage;
procedure AntiBan;
begin
case random(2000) of
0..50: HoverSkill('herblore',false);
51..80: PickupMouse;
81..100: RandomMovement;
101..220: BoredHuman;
221..240: ExamineInv;
241..260: RandomRClick;
end;
end;
procedure UpdateReport;
begin
Made := count * 14;
MadeInHour := Round((Made * 3600) / (GetTimeRunning / 1000));
Writeln(' ');
Writeln(' -> Worked for: ' + TimeRunning + ' ');
Writeln(' -> Made: ' + IntToStr(Made) + ' Potions ');
Writeln(' -> Thats: ' + IntToStr(MadeInHour) + ' in hour');
Writeln(' ');
end;
procedure Report;
begin
Made := count * 14;
MadeInHour := Round((Made * 3600) / (GetTimeRunning / 1000));
Writeln(' ');
Writeln('---===Herblore PRO by Neeger beta v1.5===--- ');
Writeln(' -> Worked for: ' + TimeRunning + ' ');
Writeln(' -> Made: ' + IntToStr(Made) + ' Potions ');
Writeln(' -> Thats: ' + IntToStr(MadeInHour) + ' in hour');
Writeln(' -> Post Reports/Bugs to: http://villavu.com/forum/showthread.php?t=67544 ');
Writeln(' ');
end;
procedure WhatBank;
begin
case ComboBox[2].ItemIndex of
0: WBank := 'feb';
1: WBank := 'fwb';
2: WBank := 'veb';
3: WBank := 'vwb';
4: WBank := 'geb';
5: WBank := 'db' ;
6: WBank := 'akb';
7: WBank := 'eb' ;
8: WBank := 'ctb';
9: WBank := 'clt';
10: WBank := 'nab';
11: WBank := 'sab';
12: WBank := 'ynb';
13: WBank := 'ngb';
14: WBank := 'sgb';
15: WBank := 'wgb';
16: WBank := 'fgb';
end;
end;
function FormOK: Boolean;
begin
if (Edit[0].TEXT = '') then
begin
MessageBox('Fill in username.', 'Error Message!', 0);
Exit;
end;
if (Edit[1].TEXT = '') then
begin
MessageBox('Fill in password.', 'Error Message!', 0);
Exit;
end;
if (Edit[4].TEXT = '') then
begin
MessageBox('Fill in how many potions would you like to make.', 'Error Message!', 0);
Exit;
end;
if (ComboBox[2].ItemIndex = -1) then
begin
MessageBox('Please choose what bank to use.', 'Error Message!', 0);
Exit;
end;
if (Radios.ItemIndex = 0) then
begin
if (ComboBox[0].ItemIndex = -1) then
begin
MessageBox('Please choose what potion to make.', 'Error Message!', 0);
Exit;
end;
end;
if (Radios.ItemIndex = 1) then
begin
if (ComboBox[1].ItemIndex = -1) then
begin
MessageBox('Please choose what unf. potion to make.', 'Error Message!', 0);
Exit;
end;
end;
if (Radios.ItemIndex = 2) then
begin
if (ComboBox[3].ItemIndex = -1) then
begin
MessageBox('Please choose what herb to clean', 'Error Message!', 0);
Exit;
end;
end;
Result := True;
end;
procedure Save(sender: TObject);
begin
if (not(FormOK)) then
Exit;
WriteINI('user', 'name', Base64Encode(Edit[0].Text), ScriptPath + 'PlayerInfo.ini');
WriteINI('user', 'pass', Base64Encode(Edit[1].Text), ScriptPath + 'PlayerInfo.ini');
WriteINI('user', 'pin', Base64Encode(Edit[2].Text), ScriptPath + 'PlayerInfo.ini');
WriteINI('user', 'world', Base64Encode(Edit[3].Text), ScriptPath + 'PlayerInfo.ini');
WriteINI('user', 'pot', Base64Encode(ComboBox[0].Text), ScriptPath + 'PlayerInfo.ini');
WriteINI('user', 'unf', Base64Encode(ComboBox[1].Text), ScriptPath + 'PlayerInfo.ini');
WriteINI('user', 'Bank', Base64Encode(ComboBox[2].Text), ScriptPath + 'PlayerInfo.ini');
end;
procedure Load(sender: TObject);
begin
Edit[0].Text := Base64Decode(ReadINI('user', 'name', ScriptPath + 'PlayerInfo.ini'));
Edit[1].Text := Base64Decode(ReadINI('user', 'pass', ScriptPath + 'PlayerInfo.ini'));
Edit[2].Text := Base64Decode(ReadINI('user', 'pin', ScriptPath + 'PlayerInfo.ini'));
Edit[3].Text := Base64Decode(ReadINI('user', 'world', ScriptPath + 'PlayerInfo.ini'));
ComboBox[0].Text := Base64Decode(ReadINI('user', 'pot', ScriptPath + 'PlayerInfo.ini'));
ComboBox[1].Text := Base64Decode(ReadINI('user', 'unf', ScriptPath + 'PlayerInfo.ini'));
ComboBox[2].Text := Base64Decode(ReadINI('user', 'Bank', ScriptPath + 'PlayerInfo.ini'));
end;
procedure OnClick(sender: TObject);
begin
if (not(FormOK)) then
Exit;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := Edit[0].Text;
Pass := Edit[1].Text;
Pin := Edit[2].Text;
Active := True;
end;
if (not(Edit[3].Text = '')) then
Smart_Server := StrToInt(Edit[3].Text);
Make := StrToInt(Edit[4].Text);
MForm.CLOSE;
FreeBitmap(vials);
end;
procedure ExitForm(sender: TObject);
begin
MForm.CLOSE;
FreeBitmap(vials);
// Terminatescript;
end;
procedure form_init();
begin
MForm := CreateForm;
with MForm do
begin
Width := 360;
Height := 330;
Caption := '---===HERBLORE PRO v1.5===---';
Position := poScreenCenter;
Color := 6872995;
end;
oLabel[0] := TLabel.Create(MForm);
with oLabel[0] do
begin
Parent := MForm;
Caption := 'Make Potions/Unfs/Clean:';
FONT.style := [fsbold];
Top := 10;
Left := 10;
end;
Radios := Tradiogroup.Create(MForm);
with Radios do
begin
Parent := MForm;
Items.Add('Potions');
Items.Add('Unfs');
Items.Add('Clean');
Top := 25;
Left := 25;
Width := 80;
Height := 80;
end;
oLabel[1] := TLabel.Create(MForm);
with oLabel[1] do
begin
Parent := MForm;
Caption := 'Choose what to make:';
FONT.style := [fsbold];
Top := 105;
Left := 10;
end;
ComboBox[0] := TComboBox.Create(MForm);
with ComboBox[0] do
begin
Parent := MForm;
Caption := 'Potions';
Top := 125;
Left := 10;
Width := 110;
ComboBox[0].Items.Add('Attack');
ComboBox[0].Items.Add('Strength');
ComboBox[0].Items.Add('Restore potion');
ComboBox[0].Items.Add('Energypotion');
ComboBox[0].Items.Add('Defence potion');
ComboBox[0].Items.Add('Prayer');
ComboBox[0].Items.Add('Crafting');
ComboBox[0].Items.Add('Super attack');
ComboBox[0].Items.Add('Super antipoison');
ComboBox[0].Items.Add('Super strength');
ComboBox[0].Items.Add('Super restore');
ComboBox[0].Items.Add('Super defence');
ComboBox[0].Items.Add('Ranging potion');
ComboBox[0].Items.Add('Magic potion');
ComboBox[0].Items.Add('Saradomin brew');
end;
ComboBox[1] := TComboBox.Create(MForm);
with ComboBox[1] do
begin
Parent := MForm;
Caption := 'Unfs';
Top := 150;
Left := 10;
Width := 110;
ComboBox[1].Items.Add('Guam');
ComboBox[1].Items.Add('Marrentill');
ComboBox[1].Items.Add('Tarromin');
ComboBox[1].Items.Add('Harralander');
ComboBox[1].Items.Add('Ranarr');
ComboBox[1].Items.Add('Toadflax');
ComboBox[1].Items.Add('Irit');
ComboBox[1].Items.Add('Wergali');
ComboBox[1].Items.Add('Avantoe');
ComboBox[1].Items.Add('Kwuarm');
ComboBox[1].Items.Add('Snapdragon');
ComboBox[1].Items.Add('Dwarf');
ComboBox[1].Items.Add('Torstol');
ComboBox[1].Items.Add('Cadantine');
ComboBox[1].Items.Add('Lantadyme');
end;
ComboBox[3] := TComboBox.Create(MForm);
with ComboBox[3] do
begin
Parent := MForm;
Caption := 'Clean';
Top := 175;
Left := 10;
Width := 110;
ComboBox[3].Items.Add('Guam');
ComboBox[3].Items.Add('Marrentill');
ComboBox[3].Items.Add('Tarromin');
ComboBox[3].Items.Add('Harralander');
ComboBox[3].Items.Add('Ranarr');
ComboBox[3].Items.Add('Toadflax');
ComboBox[3].Items.Add('Irit');
ComboBox[3].Items.Add('Wergali');
ComboBox[3].Items.Add('Avantoe');
ComboBox[3].Items.Add('Kwuarm');
ComboBox[3].Items.Add('Snapdragon');
ComboBox[3].Items.Add('Dwarf');
ComboBox[3].Items.Add('Torstol');
ComboBox[3].Items.Add('Cadantine');
ComboBox[3].Items.Add('Lantadyme');
end;
oLabel[1] := TLabel.Create(MForm);
with oLabel[1] do
begin
Parent := MForm;
Caption := 'What bank?';
FONT.style := [fsbold];
Top := 202;
Left := 10;
end;
ComboBox[2] := TComboBox.Create(MForm);
with ComboBox[2] do
begin
Parent := MForm;
Caption := 'Bank';
Top := 220;
Left := 10;
Width := 130;
ComboBox[2].Items.Add('Falador East Bank');
ComboBox[2].Items.Add('Falador West Bank');
ComboBox[2].Items.Add('Varrock East Bank');
ComboBox[2].Items.Add('Varrock West Bank');
ComboBox[2].Items.Add('GE Bank');
ComboBox[2].Items.Add('Draynor Bank');
ComboBox[2].Items.Add('Al-Kharid Bank');
ComboBox[2].Items.Add('Edgeville Bank');
ComboBox[2].Items.Add('Catherby bank');
ComboBox[2].Items.Add('Camelot bank');
ComboBox[2].Items.Add('North Ardy bank');
ComboBox[2].Items.Add('South Ardy bank');
ComboBox[2].Items.Add('Yanille bank');
ComboBox[2].Items.Add('North gnome bank');
ComboBox[2].Items.Add('South gnome bank');
ComboBox[2].Items.Add('Warrior guild bank');
ComboBox[2].Items.Add('Fishing guild bank');
end;
Button[0] := TButton.Create(MForm);
with Button[0] do
begin
Parent := MForm;
FONT.style := [fsbold];
Caption := 'Start Script';
Top := 220;
Left := 180;
Width := 120;
Height := 35;
OnClick := @OnClick;
end;
Button[1] := TButton.Create(MForm);
with Button[1] do
begin
Parent := MForm;
Caption := 'Exit';
Left := 200;
Top := 260;
OnClick := @ExitForm;
end;
oLabel[2] := TLabel.Create(MForm);
with oLabel[2] do
begin
Parent := MForm;
Top := 10;
Left := 230;
FONT.style := [fsbold];
Caption := 'Username:';
end;
Edit[0] := TEdit.Create(MForm);
with Edit[0] do
begin
Parent := MForm;
Top := 30;
Left := 230;
Width := Edit[0].Width + 10;
end;
oLabel[3] := TLabel.Create(MForm);
with oLabel[3] do
begin
Parent := MForm;
Top := 55;
Left := 230;
FONT.style := [fsbold];
Caption := 'Password:';
end;
Edit[1] := TEdit.Create(MForm);
with Edit[1] do
begin
Parent := MForm;
Top := 75;
Left := 230;
Width := Edit[1].Width + 10;
Passwordchar := '*';
end;
oLabel[4] := Tlabel.Create(MForm);
with oLabel[4] do
begin
Parent := MForm;
Top := 100;
Left := 230;
FONT.style := [fsbold];
Caption := 'Bank pin:';
end;
Edit[2] := TEdit.Create(MForm);
with Edit[2] do
begin
Parent := MForm;
Top := 120;
Left := 230;
Maxlength := 4;
Width := Edit[2].Width + 10;
end;
oLabel[5] := Tlabel.Create(MForm);
with oLabel[5] do
begin
Parent := MForm;
Top := 295;
Left := 10;
FONT.style := [fsbold];
Caption := 'World:';
end;
Edit[3] := TEdit.Create(MForm);
with Edit[3] do
begin
Parent := MForm;
Top := 290;
Left := 52;
Maxlength := 3;
Width := 30;
end;
oLabel[6] := Tlabel.Create(MForm);
with oLabel[6] do
begin
Parent := MForm;
Top := 313;
Left := 10;
FONT.style := [fsbold];
Font.Size := 7;
Caption := 'Random member world if emty';
end;
oLabel[7] := Tlabel.Create(MForm);
with oLabel[7] do
begin
Parent := MForm;
Top := 245;
Left := 10;
FONT.style := [fsbold];
Caption := 'How many to make:';
end;
Edit[4] := TEdit.Create(MForm);
with Edit[4] do
begin
Parent := MForm;
Top := 264;
Left := 10;
end;
Button[2] := TButton.Create(MForm);
with Button[2] do
begin
Parent := MForm;
Top := 155;
Left := 200;
Caption := 'Save Info';
OnClick := @Save;
end;
Button[3] := TButton.Create(MForm);
with Button[3] do
begin
Parent := MForm;
Top := 155;
Left := 280;
Caption := 'Load Info';
Onclick := @Load;
end;
oLabel[6] := Tlabel.Create(MForm);
with oLabel[6] do
begin
Parent := MForm;
Top := 312;
Left := 275;
Caption := '~by neeger ©';
FONT.style := [fsbold];
Font.Color := 15236458;
end;
Image := TImage.Create(MForm);
with Image do
begin
Parent := MForm;
Left := 145;
Top := 40;
Width := 60;
Height := 80;
vials := BitmapFromString(60, 80, 'meJztmvmT2+aZ53+cWLYlS32p7+' +
'Z9gRdAgCRu4j4IECRIgvfRt9Stq7vV3ZJ1WLYl+baTOBnf50w qqZ3' +
'NJNmdzGRiz7FxbTazSWYqO3E8no33X9mXkhzbiizJkVOa2lrW t1j4' +
'gXj5wYPv+7zv8wCr/+ft1f+v/3dVePM8cen4jGFNmtYDah7q2MabZ' +
'1d++9ZdB/s8dd/7RrRSHzerQ3Jpr2jdI1jDtHgQZ+3/+sRdZ/s82X' +
'920Ws6w2p1TKsPidW9nLWX0UZpufxXT911ts9T5T89ESi2Js2 WK9/' +
'0GK0pxRmWKqN8nn7syF1n+zzlHz/pLrcmrMaU3vAagLw2ptgHed1F' +
'MMmS1H736btO+Gn13nnaeugwkrdm7fao3Rq3mlOF2rhRmTQq0 7w+h' +
'5MQAucfWb7rnJ9WcaMvCQIrSYRuwmYpWir7i1VfwYY0LUIxQQ RJIk' +
'nt0spd5/y0rJPzEp/jcjRBM1mSgRkhTgshVohRVDibiaNoKBiUz/b' +
'uOuenZWx3SYqgCZLMZGmCILMkkSGJbDaeTgNB8VgMTxZe2Ljr nJ+W' +
'vO5k02kzr3MEQcEwnYCZaIKOxZKJRAqB0TRa/s7Zuw55nTrvPu186' +
'1ypXNQESWEZjcspOUYATiFwAsNSbPquE36eFENhaZIm8QyRTl OZDI' +
'1nMDQWDGpPHr7rbDfU4i9eEGQuRxJkJpNCUzCKRJFkEopE/AFqrXT' +
'X8W6o4oVDHJOjcYJOExSaJgZzLxmHokGfH0onl//t9btOeJ36731d' +
'kAExKuYwgYY1Hq5YeEXBqGw4As16vTPmc//hlu/W5bW2I7eb/GKPX' +
'1vmj64JJ47yx9aZxR5hWZDMJygq0fj+Q3+kf1dePJv76oPU09 vcMz' +
'viM9u5Jzc6//TNW5z1m1ePnO1unbC2t4qbJ/K72+rOtrK1KZ7cFI4' +
'f5VeXqMU+U7YxfVFY/F8vfbm0K//+pnLm8KzRGAWbMakykTPHKHmI' +
'FOfyav0nX73Jievf2do6oWwel7a3ld1deWfninbl3V3l5Ca3e YxeX' +
'8EX+5lWHSk90vqSmX/zutDsjpid/Vpjv2Qf4Iv7aO0ekhvFaeXPz9' +
'zkxMPnK0cPU9snpZ1tcWdHAti7V7BPboobx5hj6+T6KrG6gHc aiO0' +
'g/f/+zJfJ/MHrQq87WuoNmfWDRn1Kq46phf2yPkHmCn/5yOee9e5T' +
'y8vcymJ6bZXc2hBObklbG+Kxde7oWu7QMnVoiZxvpTrVeKMct UoRQ' +
'4WMbfvLZP7fb3IL8+Ol9kGzMWM23EZ9XCs9IGrTvKBfOvZ5Z8 3vWv' +
'12dnmeWFmglheIfjvTaWL1WqruwLVK0inHK0akaEaKVrhkQLo SkR1' +
'24Zd/+qUAd955yj6/wjTao6XORL4xqzc8ZmNEs/fJ5jSnpGIkV9S6' +
'v7dpX/jBxVYj3W+le61Mr53pttKNGlKvJqqVRBXQFmO2FS5agDlc0' +
'MJFDVKkAEf7hXnpzoGXfv2K1rMVUWCKlTmr7inWXWbdXWiOa5 UxxZ' +
'okOSieQRPx/MPz11/pMbPdQK8KhLdZT1UqScuOVUuRuhUpWVHDCpv' +
'FsJ4PmwqkihFRDtOEN52Zbn7/3B0yd999RhIFReAJlkEVGdbzkFEM' +
'GEWfbPhJJoJicApJJSPi2fonZ330dv2ZJccBgUWBExp1tFlDG qW4Y' +
'SH8lfD2ChE5nyLVOKnFWTnBCimKhTE2iaRDSGqGKaN3yNz7+2 doiu' +
'RYJkdRHEORJIlmmVSGxTJsBiUYOM0lYcjvMb955FOnPF6x0xU 74dT' +
'ghgNXbahsQzUrahqwUojYBhBE6JhL5mdF0cWJboZxsaSbgIPp YDw1' +
'k866+j997g7NTOJZkefYHEOjKINidCoLRCVxMgo2wwiZShrPr H5yy' +
'm/fKm0VqzZsF2NONeGUY1opbJbCTgEqalFVC1l6yNASCVsYyzcPq M' +
'29QnkvX7gvpwxRxByZiKZmUvHx/FPXO+2L+jlri6okVip2TuKIbAa' +
'Dk2gigUVhGEmmM2hcznz699XLS1YBsuxI2YKcUsIuRqViQDdD VZAi' +
'9HBeDelyiFXQYK04ZjT3q437xMoe2fkKm3+A4afJdDA6B0fGY Tm8+' +
'OuX7wS78eMn8ptdSVU4hWN5hsGzTDbDZLMEkfHHIkEe+90vVz 54rb' +
'qq5k2QEMJlEyrpUCEPqWZQzgcLerggRTQlKHMhUiTcNcdrNuZ 0Z1J' +
'rjqj1vVxpTCh6aCoS8caC4z7PgYV/vtOk5zx/Ehiao4hcJptD0RyM' +
'4LFYPBgMenxxJvXJhP3Bo6oEG1oob4QsM2KqYUuFJCUkaQFVC hpCW' +
'GT9eSliVgqeWjdQsMOFkteszRrNCb02xZsQLzAsmY2Hcoel5Q/vaI' +
'O6/OtXhUYxx1A8KJuzOI1iwB7pWDwOhYM+bygaqH3/kWtG+ucX9MW' +
'CpkG6GlKVoKIES0xU5MKU4BelgMgFJN7frRLd+Zqr2potVWeL 9Rmj' +
'MZlvTmjNSb4AcaKq8paarb14pyVt573nKJbO5OgMRcB4Joqjk TQMo' +
'bA7EnD5PdNeF/dof/Wja+3N5fdfNQ4rqhwReb8sB00qIuZCpODjhQ' +
'DLept18uhKsderh6qtsYIzbjbHAbDenlQbLsGMi6KoswIds55 cvxP' +
'glY/eIs/WPXrSJcNuEfXl4AABh/FUBEt44OBEyD0SmhxJuz9zyoev' +
'F7YcmvHlxAAjBAQxkMv5hVyQJlztBrm6VF3oO42WLTUqvFOkn RJtF' +
'2hLZUwxpwo5gUXi0fwzd8Tc+LsnAyI6LiXHlcy4REwy+DSBz+ LYbC' +
'oxGvXsD0/vi04eiE0b//mzu7uP3q6+dEI/W8XlEMH6M9gMRXiI9Fy' +
'rzs53i/WqVa9YZtM26yXdKeoVUy0ZmqYKQi4ZC8NM6k6qrZXfvolv' +
'lKfFzFheHC3ow6o+IiqjvDJKcyM4fn8K+krcvSc5cS80Tl248 e536' +
'f1X5n/xDfPxBeOJboaP5Atcxc6XKvliMW8B0qJqaoqqSbLM52gigy' +
'TigaB5Z2auvfPYrITOFuUZpz5s1oe1yn65OMSb+yj5AM0OkZk 9Cdc' +
'90Yk9oVG/Qy6+/8rNR1v6zSv5y/OSKlbLllMpFE3B0FhZJCWeZKhU' +
'Bo5TGVTaaYE95J0wi8+uTAmwq1ycKHf3qbVhGag6xNsPUNoQI 47R5' +
'J7gFPDGvYHR+8Jjnf/5/O2M2frREzSBG6pi6LxhCEZeUCVWzGWpdD' +
'oejbT+7o6aur1/+kZAS41z8dmSNeX0xozWDJjj+faE1hjnyzO8OU3' +
'Ro1HvSGR6f3Bsb/hg5+e3xbz48z+VgXFJkqYyYFUlMDibisNxKBoK' +
'egI+8ZHF36WgL+7kt4QLixNMcErLJPrtmXJj2mpOW7VJoz6pN yel2' +
'lTO8LEipnIoAw+HJ/b6x9Czzu2MvPTLF2VJzFEESxHZNJbBkAwKdo' +
'YxwOz3ed2uOfvbNyvWbqLlf3/Dr2BeOYktFpOLLVel5irWJ0vORMG' +
'ZNBoTSm2CK3g5CVNEXmNnEC/wRnRVuZ2RO9+9KPE8T5A5AiczGRzN' +
'UnCKiCcSkXDA4/F73MxW7Q9jVt44OcHHmLZaXK1r8xWyVobs6txg5' +
'apOm2WPWgjwEiIrmCSkRWoc9twTGt0Hz7R/9rVb3L4PXjf7VZYAm1' +
'uWwXEqA7wBsNF0Mh4PA3P4Qh6/z+UqvLj5BwQ5vWOPckG6rVSWHKt' +
'bUZqVbM1BHDvpVOBKGbUtsqAzeZlUcgkGG4pM3+Mf2RMYVV67 RZpq' +
'vn1OAFtxGnwoOpsl0+ksls6mESwZj4WCQZ8v5PWF5vz04S/cxFt8/' +
'9VRHhrK+fG2pHcLSqOg1G2xZvF1na3k6YbBVfJCSREUmuCwEB YYiY' +
'zf6x+9xz86V7hZibH8/mv5RpGhKBaIIFgcx7GrfoaxJDxg9vtCfl/' +
'Q5fW63Y2//QLPDUF6zD7c2s8H9+f8aJVV2rpZN5WaKduKavO5osCZ' +
'nGCJgsZwMglnoIPhyaHg+H2BMYDta9I3GVk/3GBpimdzbIakwFZ2E' +
'GQsnUqmEcCcuMYc8AXcXp/bHUxC8//ywm0yW987P8QE9ub8Q7nABB' +
'tA1LTZLZR7ZauqWxVJKgiMyeTyAq/ksrmsO+EfDU0C2qvaj7qqP37' +
'shsP2f/gEy9I8ReUIggYRvgJ8hRlJp2A0GY8Gg+GAH8Q55PP5XR7P' +
'nEs4dbudpeg6WC/8B1j/EOUdys6Nox7WFsu9YqFu5R1TqepCSWPzC' +
'iUw8SwymwztC07eGxzfFxjb4x/d4xspfu8G3cLlD16XWhZHglxBAA' +
'3SRTqdSWN4KpVNIRgCp+LxZCQMQh0JBgBz0O31zs4iOrX84Ru 3BG7' +
'85OkpIzFEeoYI9zDhPpCe8QsJrV/KNwzgDd5WyIJE6iLJMxhNxDAk' +
'kILuD0yAdXBP6AqzdyS2coOMB7I9L+TYj5kHrkhjWTidQUDdn sgiG' +
'CjWEuEQSNGDUAd8QY/XP+v2zbmKb5+6JbPxFw8eALSkZyzrOoi7h9' +
'BZtMJqXVt3TK2sMCWFNERCEwiBIhjwt/FIJjGemL3XPwIm4B7/GIj' +
'zGO7//WFrr5xiGZIhcJbESTyTTqMgvBkYuCKFwgkshcAxKB4JQqFA' +
'JAimoQd4A2D7PHORBNT40eM3ZwZ7BvLx3mTWP552D+PuvegM2 hDZv' +
'sk5+Zyt87bMWDxpcqTGY0waxuMxIuVFofv84/eEx77i2X+Pe9hjXP' +
'9Mp/+Tr3I4zeOMgOX4JCsmOS7OCnGWjVJMhKIgnIpmiTCKheCkPxo' +
'J+YKA2e0ZzMQZd2DOl3/26O1YuvidMy4quj8+FdJT3IIptwtCxVAc' +
'TawobIlnCxytM2k2DRNoFIfjGfhAYPxPwiN/4t0/pSDtn362tfvRW' +
'9qJNp8R5LRkIFohni9A+ULEADIiugFpeVDXhkQ5JLABCg+lsX ASDs' +
'Ti/kh0Lhx1h4NTgRiKLP3m1dvB5i4vBfGo2TXLbcsq6batF2xNKMs ' +
'cYDbZnEriQhbPIVkylqWS/oRrr3/0Pt9I7e+fvG6c3o+eUjKyjiml' +
'VMFB7BpSriOVWrLSgKsObDtIqZIslWOlYrQwgI9KYlTIQQwdp sgQT' +
'oTTKU8Smg4Xn7utHTVYCu2vnzBKumFp+WK+YOm8qWUNGTcF3O QIjc' +
'YEHOOwTA7JMAkkHUvWWfX1zd/fkpUXFwtJvZg063CliTitVH0+3V5' +
'Id/pYq4c2e1irgzbaqXoTqTnxcjletCAzD+kKJIshjgvRZGCQm4qX ' +
'P7f1ep3YqpHm+aQohfhcWBRDspoo2alyOVowgzLvy5F+Mh0k0 GAGg' +
'TIJ7dINXgxY/sVLFcGpwnYNrgCwPgo4W0vZ3jLeB9+r5Dw4WCb64G' +
'AB64AL6aQaLaRWi1eKUVOPqHJYEEJsxoXiyM2Wqk9NnK/TjWaq2Uu' +
'vrCOHjsaX1+OLh7Nrm9jaZmz5SLR/KNLoh0pVlyKPZvGxeMyHJvs/' +
'v/7ZSuv8xhXgKgAG8QRUi+nuUqa3Qs6v0PPr/MpR8dCasHxYXFqiu' +
'ot4B9wCcF3NZK0cLZWilhpRlLDI+PFM8Dae1YKJc2FTOHkms3 M+uX' +
'M+uHUuvH0utnE6snE6dPwUdHzXu37Su3Q0sHwEml/11HuQ7UxjafL' +
's9U22Al9wUuVGyhkEGWsBWhDeFWp+Ce8dYhdPN3cv9M6f6505 2z+9' +
'W99aM5bnyU41Dq6xbEeLhaghh0U+ROMeTChZt2Tu/virwtEN+ORZ7' +
'87DnlMX/acvhncfiu5egE4/HNw+798+5zpxynNke+7wpnv5qGfpiL' +
'e16DFLqYYB1rvPmHljtQxbdaTaQJwO2gTYfazdw5oL2e7pyu7 DSw+' +
'dWzpzenFnZ/Hk7sL26aWdDefIktSrwBbIJ2pYAabkQmQ2kGl87/It' +
'Z592YZs59RB05lHP7kX37qOhM5fgc5eRc5eT5y/HHnoMOnspeOph7' +
'9ZZ3/Fd16ETrsX1qebiXK0bAanl249cd7+czXUrZVRTZQcuA69eSR' +
'flE6VjZ3tndnvbJ+c3tuc3N+ePH+uub/SOnWivn+wcd4iSFpaVsJQ' +
'LUHSCrn3rwi2DbP/lY8LxLfj0oyC8gQcvhs9djl94LHnhMhAAjgNd' +
'GGAHts4GNh8EJplbPjrdPzTeXJhzWnCvtfCv11ffzqUNQ7LNp FZMm' +
'JVUcUntn1rY2ege3+wfP9E7eqyzfrxz5Gj78NHW2npj9UjrUF 2rqm' +
'EJzD4+xbV+cOMd12eC/G9v8Kc30bUNePfh6IMDZujMxehDjyUuDHS' +
'VGTp3Obh7AZgkcOKUf23LvXxkurMy2VqcsRtuOQ8v3aAqXPqX l6vP' +
'bZMhcrWwuNU+ATiP9dePtdaOdtbWm4cA55HmoUWnf6i+BL4PO 8sWm' +
'qcxtve3z95Ouih+65H40mHXwpr/2HbszMX46YvwmUvQmUuRMxfDD1' +
'4MnX40tDuwtG/zwcDG6cD6ycDhTd/y0ZnOymyjP1tu7af4SYbjvn7' +
'ihoO3evML5e5Sbb5bafacdr/aWaz1Fird+Upnodrr2q1eudUpNdt2' +
'Q6LF/k9uUaZdG/OdZ5FqbbKzOrewPrN8JLC2lTx5PnnyHJh9vp2Hf' +
'Nvnw1tngB8CJ077ju341ja9K8cAsKd/2Nta9lY6o3LxXorfi+H7og' +
'n1tZ3rBu+8fqZaKReUfCGft/L5omna+UKtUK4XqnWzUjPKdaPqGGW' +
'gsmGpmtJ772aPdz+eL2+br5yHau3x1tJU/9DM/CFX/5AHBHxxPby2' +
'Nbu26VnbCh/ZDh4/FTi2Ezi04V5ad/VXXcAS1c6c2ZjRq6OCfi9O3' +
'4tl7osmMiean7SDPnq79OxxXVNlRdYGkmRJlCRBEUSdl01FM2 S9oO' +
'YtFSy5ui4pCi/xDKMcdm7Z6ABbXKTddDnNqfr8VGNhurU021r0dpa' +
'99fm5xvxkc3Ea4LWW5rorns7ydHNh3G5PWM6YUTmo25OyNSXm Rxnh' +
'fgy/H0EfCMUm08j8r649c5//b1/TCnlFkVUVxE9WJFGRJVkWZV4SW' +
'U6gWZ6mcwQQxZEUh5MUnh1UBzTd+KtbpDjAHGk2Dhbr3nILJK 7JWm' +
'/K6c45bV+t63ba00532mlPOp3JcnOy3Joo1idKtQm9OK4WJqT8J K9' +
'N5OQRnNmXTO2LxMZSSeFr1zaQS+89bzcr+XxelSVdlsA3CPJA oijx' +
'OVAbcqDaomkOBzUXDqpaKpuhMhlwwOA418rfvEEKmKH5Ngiax 6jNF' +
'esHi7Ux2xkvOTNFZ7pQnS05k2Z53HIm7PpE0Rk3SmNmYUzRx3 h1NC' +
'eO0PwolTuAZR+IJiZQRH3zWnGx+O6zlYaT17S8ppqqIovCgBZ EmAN' +
'BFgSW5nIMYAb1C0uROZLEicHLSvjgfaUsOyjB0p13bvEGbOd/fAPr' +
'O1NaaSpfHTdL46Y9opfG8mVwPG2UJg1ryjDB92TenDCMMUk9m BPHW' +
'fEgmbs/i9+PZw6kUnMM3v7Zta7d0t88XawUVQ18lKvhVQY2FgUR4O' +
'ZyPCMwlEAzOeJawTVo0VwpxgflLShkMASUutLp7i1nYv8XLya Xu9O' +
'iPqOak6o5iKSsjUn6mKhf+VbBwUFRGxO1IZYfoXLDBDOcIfeh 2H0J' +
'eDgW55+/luXmv3vJLhdkXdV1La/IuiJfs4QkikIOlIYsQ/EgzgwJg' +
'syBSjybHfSUMhlQiWdQFL/S9CAwlMpRnX+8dZae/9Ur4lPH3SI/Tj' +
'BjFHuQ4Q+ywsGcMMoKIww/zPBDzMAMBwjmAEYeQLN7E6l9UXg4ElF' +
'fvZbfun9+wTKNvK7JmgQm3SceHkgQOZZnwYfiGZqjyKsRvlqJ E+lM' +
'BksBgToxPSjGY6lEvPzy9u0kaiCwBAvPHHMLzGgmO4qkR7HsM IYPZ' +
'Ukw0Yaz1DBODWHEA0l0Xwx+AEpMwLD93Yevnth++XQhr5uapq uqqE' +
'q6DowhfxxhjmMolmFz9MDA7BVgMpP9uNcBUBEsmQCoaCKORCE kFo0' +
'E/OFM4gt1dxfff7X/q5eUl7azZxeyD/bHs+lhGDkAxYfiyBCUAIJY' +
'Xm73Wcus/fDyyodvVJ89LrI5SeCv5OEBKsgOILKDuTbgpAAnqL7p7' +
'KAnM4jtABVJIwiaGKDC8Sgci8KRcCwcGigU9Hk9xErhD+5IX7 HNS9' +
'1fvsA9d5TYbiMCrzZqulNTyuVSyRZ4Ic3iRBpjCAJkV5ED5Dm BYzm' +
'QxyjiqgcGTcXsVdOigzZdKoUm42gylopFESgCUJNQOBq+1k0K ej1x' +
'ClYuLv3BtNep9e5TBM9qoEocrMJGo1qrVSoAGEsmswgCZtMgu 1LAs' +
'QzgB5dCf9ydG9Cm0HQqkUpE0VgMjkHJWCR5JbAANXK19xUJsm tl8/' +
'n1xX+9o0fe10neaIZ8XpamqiW7ZldatWqv2crLSizoB1YEGsz 9dJr' +
'+Xe4aZANk0EuEY6l4HIYgOBKJX7n7ABUImCDg85BNvfoXD/V+dlvP' +
'OL6orG+eiEKDf+RYxraspmM7ZWCRAgYnosEAuMXAlhgMA8iBU QfvI' +
'cSTiSgchWKRSDg06BfRfZNeLEhnuiCVXVX7H7/Ml75+X8sfvoGhKR' +
'iKgGleKVjlouXYdr1sKzwHBfxgysPxWBIaRHKAGPAF/b6AxxNFovx' +
'WA/iq/Q9/XLwbCiz01vMbOJYGNxosslZeBzJ1TVckKBQKeNx+j8sz' +
'NwurZOn17cbfXK7/9WP1H17q/vS2tsR/VIEdZgYbvGNwdeEYvLakC' +
'GD2uedmkQJtf/s/3Nvjq4NXaF6VFmywKzN0TeB5sAoTeFZoF5z/cv' +
'Gus91Eyx+8JleNAqg/2kWuqhZfPrn0/m31A7+o/i8dLN0W');
getbitmapsize(vials, w, h);
DrawBitmap(vials, Image.Canvas, 0, 0);
end;
end;
procedure ShowFormModel;
begin
MForm.ShowModal;
end;
procedure MakeForm;
var
V: TVariantArray;
begin
ThreadSafeCall('form_init', V);
SetLength(V, 0);
ThreadSafeCall('ShowFormModel', V);
end;
procedure SecondItem(Item: String);
begin
case Lowercase(Item) of
'red spider egg': Second := DTMFromString('mbQAAAHicY2VgYMhkZGAoBuICIE4H4iQg3g cU3wHEh4H4KAOEP0FOFEgyoWBWBkzAiAWDAQAiWgax');
'eye of newt': Second := DTMFromString('mbQAAAHicY2VgYJjCyMAwDYjnAvEEIJ4OxL uB4ocZIPR+IN4OxBLSS4EkEwpmZcAEjFgwGAAAdN4Hkg==');
'unicorn dust': Second := DTMFromString('mWAAAAHicY2FgYDjEyMBwFIj3APFhIN4PFN sGxIeB+CgQtxfbAEkmMDY2NmZgZUAFjGgYBAD+2wfo');
'potato cactus': Second := DTMFromString('mWAAAAHicY2FgYDAHYgcg1gFiWyB+DcQPgf g9EH8EYvcAXSDJBMesDKiAEQ2DAABSgQVk');
'limp': Second := DTMFromString('mWAAAAHicY2FgYIgH4mwgjgXiSCB+CcRfgP gxEL8B4rIMVSDJBMesDKiAEQ2DAACQkQZD');
'snapegrass': Second := DTMFromString('mWAAAAHicY2FgYEgE4iQgjgbibCB+CsR3gf gLEL8HYv5cayDJBMesDKiAEQ2DAACBFAX5');
'chocolate dust': Second := DTMFromString('mWAAAAHicY2FgYNgFxIeAeDcQbwLiV0D8DI g/APE7IPbUEgOSTHDMyoAKGNEwCAAA5mEHNA==');
'crushed nest': Second := DTMFromString('mWAAAAHicY2FgYHgOxM+A+B4QfwLiV0D8CI jfQ7GluRGQZIJjVgZUwIiGQQAAIKMH/Q==');
'whiteberries': Second := DTMFromString('mWAAAAHicY2FgYHgMxDeh9EsgfgfF34D4BR Af3bsHSDLBMSsDKmBEwyAAAHB5CZQ=');
'zammy wine': Second := DTMFromString('mbQAAAHicY2VgYHBkZGCwh2JvIDYB4tdA8d tA/B2I3wPxOyBOS0wEkkwomJUBEzBiwWAAACwPBx0=');
'frog spawn': Second := DTMFromString('mbQAAAHicY2VgYOhgYmDoBeIaJgi7CYgfMj IwXAHiG0D8FIgfA3FmYQRQNSMKZmXABIxYMBgAAKC/CEU=');
end;
end;
procedure ItemDTMs;
begin
if (Radios.ItemIndex = 1) then
begin
First := DTMFromString('mWAAAAHicY2FgYDjEyMBwGoh3AvFRIJ4HFF sIxIuBeBoQZxeBeEwMZbUbwDQrAwTAaEY0DAIAHd0Ivw=='); //Water filled vial..
case ComboBox[1].ItemIndex of
0: Second := DTMFromString('mWAAAAHicY2FgYNAAYlMg1gZiWSD2A2I3IA 4B4gAg5nTgApJMcMzKgAoY0TAIAACSLAJE'); //guam
1: Second := DTMFromString('mWAAAAHicY2FgYAgB4kQgjgFibyD2BWI3qH gwEHP78gBJJjhmZUAFjGgYBADNnwMO'); //marrentill
2: Second := DTMFromString('mbQAAAHicY2VgYGgC4l4grgPiciBuBmI/KA4D4kAgdgNi3hhtIMmEglkZMAEjFgwGAJY9BLw='); //tarromin
3: Second := DTMFromString('mWAAAAHicY2FgYNgHxHuAeD8QHwPiZCDOBe JoIM4AYtc0PiDJBMccDKiAEQ2DAAB0SQVi'); //harralander
4: Second := DTMFromString('mbQAAAHicY2VgYLgBxE+B+A4QnwPi20DsB8 QeQBwCxEFA7ALEBg6cQJIJBbMyYAJGLBgMADTfBlM='); //ranarr
5: Second := DTMFromString('mbQAAAHicY2VgYBBjZGBQAGIpIBYBYm4gTg WKxwBxNhDnAnEWEHPKcQFJJhTMyoAJGLFgMAAA2J0CwA=='); //toadflax
6: Second := DTMFromString('mWAAAAHicY2FgYLBhZGBwA2JrIDYA4jSgWC YQFzBA2LaxGkCSCY65GFABIxoGAQDavwNx'); //irit
7: Second := DTMFromString('mWAAAAHicY2FgYHjGyMDwGYjfAfEdID4BFD sMxOegOEpbA0gywTErAypgRMMgAAAGwweP'); //wergali
8: Second := DTMFromString('mWAAAAHicY2FgYBBmgmBpIOYB4pNAsX1AfB 6KBYxlgCQTHLMyoAJGNAwCAPMpA+0='); //avantoe
9: Second := DTMFromString('mbQAAAHicY2VgYDjAyMBwHIj3APFBID4GxO lA8SwgzgbiPCBOBWJdc3YGF18uBmMrDgY3f24GNX02BlagODpm xILBAAChlQh4'); //kwuarm
10: Second := DTMFromString('mWAAAAHicY2FgYLgJxA+g9EUgVmRiYFABYg 0gVgJirxBuBnNnTgZ9S3YGFR02BnagGmTMiIZBAACMVQYQ'); //snapdragon
11: Second := DTMFromString('mWAAAAHicY2FgYEgB4lQgzgPidCCeAMQzgH gKEHcAMbsJB5BkgmNmBlTAiIZBAAAbbwQ3'); //dwarf
12: Second := DTMFromString('mWAAAAHicY2FgYJgIxFOBuB+IJwFxHxBPh+ I2IOby5AGSTAzcvrxgmpkBApigNCMaBgEAZP8FXw=='); //torstol
13: Second := DTMFromString('mWAAAAHicY2FgYJjGyMDQB8RTgXg2EL8Cir 0D4g9A/AaINfSlGAzMJRjM7KUZbN3kGFiBYsiYEQ2DAAD/aghK'); //cadantine
14: Second := DTMFromString('mWAAAAHicY2FgYLBlZGCwA2ILIHYF4ldAsc dA/AmI3wMxh70JkGSCY1YGVMCIhkEAAEyMBTk='); //lantadyme
end;
end;
if (Radios.ItemIndex = 0) then
begin
case ComboBox[0].ItemIndex of
0: begin
First := DTMFromString('mWAAAAHicY2FgYNgFxAeheAsQTwfieUA8CY gnA3HLjJlAkgmOmRlQASMaBgEA0aEHEQ=='); //attack
SecondItem('eye of newt');
end;
1: begin
First := DTMFromString('mWAAAAHicY2FgYBBmZGAQBGJJIOYC4ulAsQ VAPJkBwp46tRFIMsExMwMqYETDIAAAAyAEaQ=='); //strengt
SecondItem('limp');
end;
2: begin
First := DTMFromString('mWAAAAHicY2FgYLBnZGBwA2JTIHYE4hlAsW lAPAuIFwDx9JZmIMkEx6wMqIARDYMAADj5BRk='); //restore potion
SecondItem('red spider egg');
end;
3: begin
First := DTMFromString('mWAAAAHicY2FgYLBnZGBwA2JTIHYE4hlAsW lAPAuIFwDx9JZmIMkEx6wMqIARDYMAADj5BRk='); //Energypotion
SecondItem('chocolate dust');
end;
4: begin
First := DTMFromString('mWAAAAHicY2FgYMhiZGDIBuIiIE4G4ilAsQ VAPA2IpwJx8/RmIMkEx6wMqIARDYMAAGwiBb4='); //Defence potion
SecondItem('whiteberries');
end;
5: begin
First := DTMFromString('mWAAAAHicY2FgYMhiZGDIBuIiIE4G4ilAsQ VAPA2IpwJx8/RmIMkEx6wMqIARDYMAAGwiBb4='); //Pary
SecondItem('snapegrass');
end;
6: begin
First := DTMFromString('mWAAAAHicY2FgYDAEYnMo1gDio0B8Doj3A/FJIJ4+rQlIMsExKwMqYETDIAAAVwkFpQ=='); //Crafting
SecondItem('frog spawn');
end;
7: begin
First := DTMFromString('mbQAAAHicY2VgYNjHyMBwFIgPAvFWIN4OxL OA4jOAeDEQzwPi6UA8YQKIZALjyZNngWkOBkzAiAWDAQAgdgpP '); //Super attack
SecondItem('eye of newt');
end;
8: begin
First := DTMFromString('mbQAAAHicY2VgYNjHyMBwFIgPAvFWIN4OxL OA4jOAeDEQzwPi6UA8YQKIZALjyZNngWkOBkzAiAWDAQAgdgpP '); //super anti
SecondItem('unicorn dust');
end;
9: begin
First := DTMFromString('mWAAAAHicY2FgYOiH4jYgngHER4F4HRCfBO JjQDy5pwdIMsExKwMqYETDIAAAwSsG/Q=='); //Super str
SecondItem('limp');
end;
10: begin
First := DTMFromString('mWAAAAHicY2FgYNgJxYeBeDMQHwHiM1D6IB D3ZGkDSSY4ZmVABYxoGAQA35sHMg=='); //super restore
SecondItem('red spider egg');
end;
11: begin
DTMFromString('mbQAAAHicY2VgYNjLyMCwD4i3A/ERIN4DxJ+A4neB+D0QvwXi30C8cEo3kGRCwawMmIARCwYDAENX CjU='); //Super defence
SecondItem('whiteberries');
end;
12: begin
First := DTMFromString('mWAAAAHicY2FgYHgOxe+B+AEQHwbiM1D6AB B3TpwHJJngmJUBFTCiYRAAADPBCHs='); //ranging potion
SecondItem('zammy wine');
end;
13: begin
DTMFromString('mbQAAAHicY2VgYEhhZGBIBeJcKI4F4k9A8b tA/BGIfwLxdyBePL0XSDKhYGYGTMCIBYMBAKNWCJI='); //magic potion
SecondItem('potato cactus');
end;
14: begin
First := DTMFromString('mWAAAAHicY2FgYBBmhGBJIOYG4iNAsTNAfA CIDwLx0pn9QJIJjlkZUAEjGgYBADXIBUA='); //saradomin brew
SecondItem('crushed nest');
end;
end;
end;
if (Radios.ItemIndex = 2) then
begin
case ComboBox[3].ItemIndex of
0: Second := DTMFromString('mWAAAAHicY2FgYNAAYlMg1gZiWSD2A2I3IA 4B4gAg5nTgApJMcMzKgAoY0TAIAACSLAJE'); //guam
1: Second := DTMFromString('mWAAAAHicY2FgYAgB4kQgjgFibyD2BWI3qH gwEHP78gBJJjhmZUAFjGgYBADNnwMO'); //marrentill
2: Second := DTMFromString('mbQAAAHicY2VgYGgC4l4grgPiciBuBmI/KA4D4kAgdgNi3hhtIMmEglkZMAEjFgwGAJY9BLw='); //tarromin
3: Second := DTMFromString('mWAAAAHicY2FgYNgHxHuAeD8QHwPiZCDOBe JoIM4AYtc0PiDJBMccDKiAEQ2DAAB0SQVi'); //harralander
4: Second := DTMFromString('mbQAAAHicY2VgYLgBxE+B+A4QnwPi20DsB8 QeQBwCxEFA7ALEBg6cQJIJBbMyYAJGLBgMADTfBlM='); //ranarr
5: Second := DTMFromString('mbQAAAHicY2VgYBBjZGBQAGIpIBYBYm4gTg WKxwBxNhDnAnEWEHPKcQFJJhTMyoAJGLFgMAAA2J0CwA=='); //toadflax
6: Second := DTMFromString('mWAAAAHicY2FgYLBhZGBwA2JrIDYA4jSgWC YQFzBA2LaxGkCSCY65GFABIxoGAQDavwNx'); //irit
7: Second := DTMFromString('mWAAAAHicY2FgYHjGyMDwGYjfAfEdID4BFD sMxOegOEpbA0gywTErAypgRMMgAAAGwweP'); //wergali
8: Second := DTMFromString('mWAAAAHicY2FgYBBmgmBpIOYB4pNAsX1AfB 6KBYxlgCQTHLMyoAJGNAwCAPMpA+0='); //avantoe
9: Second := DTMFromString('mWAAAAHicY2FgYJjGyMDQB8RTgXg2EL8Cir 0D4g9A/AaINfSlGAzMJRjM7KUZbN3kGFiBYsiYEQ2DAAD/aghK'); //kwuarm
10: Second := DTMFromString('mWAAAAHicY2FgYLAEYhcgtgFifSCeBMTdQD wdiKcBcUg8H0NUGh+QxQTGrEAShGGAEQ2DAAAlggTY'); //snapdragon
11: Second := DTMFromString('mWAAAAHicY2FgYEgB4lQgzgPidCCeAMQzgH gKEHcAMbsJB5BkgmNmBlTAiIZBAAAbbwQ3'); //dwarf
12: Second := DTMFromString('mWAAAAHicY2FgYJgIxFOBuB+IJwFxHxBPh+ I2IOby5AGSTAzcvrxgmpkBApigNCMaBgEAZP8FXw=='); //torstol
13: Second := DTMFromString('mbQAAAHicY2VgYJjCCMELgXgyEHcB8Vug+G cgfgnE94H4FRDrm8sBSSYUzMKACRixYDAAAKIaCBg='); //cadantine
14: Second := DTMFromString('mWAAAAHicY2FgYLBlZGCwA2ILIHYF4ldAsc dA/AmI3wMxh70JkGSCY1YGVMCIhkEAAEyMBTk='); //lantadyme
end;
end;
end;
procedure EndScript;
begin
Report;
Logout;
FreeDTM(First);
FreeDTM(Second);
Terminatescript;
end;
Procedure CleanHerbs;
begin
case random(100) of
0..50: begin
for i := 1 to 28 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
end;
end;
51..100: begin
for i := 1 to 4 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
end;
i := 8
for h1 := 1 to 4 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
i := i - 1
end;
for i := 9 to 12 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
end;
i := 16
for h1 := 1 to 4 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
i := i - 1
end;
for i := 17 to 20 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
end;
i := 24
for h1 := 1 to 4 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
i := i - 1
end;
for i := 25 to 28 do
begin
InvMouse(i, 1);
Wait(10 + Random(30));
end;
end;
end;
end;
function Bank: Boolean;
begin
FindNormalRandoms;
if (Failsafe = 3) then
begin
WriteLn('Out of supply?');
EndScript;
end;
if (not(BankScreen)) then
begin
if (not(OpenBank(WBank, False, False))) then
WriteLn('Error: Cant open bank');
Wait(200 + Random(300));
end;
if BankScreen then
begin
Wait(100 + Random(200));
FixBank;
if (not(InvEmpty)) then
DepositAll;
end;
if (Radios.ItemIndex = 2) then
begin
if (not(WithdrawItem(Second, 'dtm', 28, 'a', []))) then
begin
Result := False;
exit;
end;
Wait(300 + Random(200));
end;
Wait(100 + Random(200));
if (Radios.ItemIndex = 0) or (Radios.ItemIndex = 1) then
begin
if (not(WithdrawItem(First, 'dtm', 14, 'a', []))) then
begin
Result := False;
exit;
end;
Wait(500 + Random(200));
if (not(WithdrawItem(Second, 'dtm', 14, 'a', []))) then
begin
Result := False;
exit;
end;
end;
Wait(100 + Random(200));
WaitFunc(@InvFull, 50, 4000);
if (not(InvFull)) then
begin
Result := False;
exit;
end;
WaitFunc(@CloseBank, 20, 5000);
Wait(100 + Random(200));
FindNormalRandoms;
Failsafe:= 0;
Result := True;
end;
function func_wrapper: boolean;
begin
result := FindText(x, y, 'All', UpChars, 350, 350, 430, 375);
end;
function MakePotions: Boolean;
begin
if (not(InvFull)) then
exit;
if (Radios.ItemIndex = 2) then
begin
CleanHerbs;
Result := True;
exit;
end;
if (FindDTM(First, x, y, 600, 320, 690, 355)) and (FindDTM(Second, x1, y1, 600, 320, 690, 355)) then //finds DTM
begin
MMouse(x, y, 10, 10);
Wait(100 + Random(50));
ClickMouse2(True);
Wait(100 + Random(200));
if ItemActivated(14) then
Mouse(x1, y1, 10, 10, True);
Wait(500 + Random(200));
WaitFunc(@func_wrapper, 20, 500);
end else exit;
Mouse(255, 430, 15, 15, True);
Failsafe:= 0;
repeat
FindNormalRandoms;
LevelUp;
Wait(1000 + Random(200));
Inc(Failsafe);
if (FailSafe = 1) or (FailSafe = 6) then
AntiBan;
until (not(FindDTM(First, x1, y1, MIX1, MIY1, MIX2, MIY2))) or (Failsafe = 14);
Failsafe:= 0;
Result := True;
end;
begin
MakeForm;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
Disguise('Herblore PRO');
ItemDTMs;
MouseSpeed:=30;
WhatBank;
Failsafe:= 0;
count:= 0;
ActivateClient;
if (not(LoggedIn)) then
LogInPlayer;
Wait(1000 + Random(500));
Gametab(tab_Inv);
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('n');
repeat
if (not(Bank)) then
begin
Inc(Failsafe);
Bank;
end;
if MakePotions then
Inc(count);
UpdateReport;
until not(LoggedIn) or (count >= Make);
EndScript;
end.
Fixed and it is MUCH faster.
-> Worked for: 29 Minutes and 12 Seconds
-> Made: 1050 Potions
-> Thats: 2157 in hour
Helheim
05-22-2012, 05:04 PM
Hmm doesn't work for me .. Please help? :
I get the same error.
Does this support soulwar chest?
Jokester
05-22-2012, 09:16 PM
I get the same error.
The script that I posted 1 post above yours fixes this error... and is faster.:duh:
sickle
05-23-2012, 12:09 AM
What's the xp/hr you get?
Jokester
05-23-2012, 12:11 AM
What's the xp/hr you get?
I dont know... check the proggy I posted like 5 posts above...
thomas1116
05-23-2012, 07:51 AM
Does this work ? to make poitions , and unf potions ?
Syntax
05-25-2012, 12:40 PM
Does this work ? to make poitions , and unf potions ?
Yes it does.
Ragin Claws
05-26-2012, 06:04 AM
How come it says application not found?
bobo188
05-27-2012, 07:50 AM
great script tyvm, the one you just posted works like a charm <3
MotorMouse
05-27-2012, 05:39 PM
Stops after 60 potions..
Yellow Partyhat
05-28-2012, 08:46 PM
looks awesome cant wait to test
CaseyB
05-29-2012, 11:09 PM
in order to get it to compile, i had to rename SRL.SCAR to SRL.SIMBA, and remove SetAngle = True (line 998 i think?) not sure if it will run like this, but that was what was needed to get it to compile.
CaseyB
05-30-2012, 01:09 AM
not currently working with the new bankers. can't remember if SW or CW chests are included in this script. did get it to compile finally without removing line 898
SetAngel (True);
by replacing it with the proper
SetAngel (1);
if i knew more about how your script were set up, i could look for the banker DTMs and create a new method based on the color update for the next two weeks durring diamond jubilee.
but i just simply don't know enough about SIMBA yet for modifiing something like that to still have a script working
sorry for the double post.
Amin0
05-30-2012, 01:41 AM
Does it work at sw chest? cuz i cant see it in the choices.
Fascinate
06-04-2012, 08:17 PM
Does it work at sw chest? cuz i cant see it in the choices.
No it doesn't support sw bank.
Darcy_Oner
06-11-2012, 02:24 PM
Should include soulwars bank.
Fascinate
06-11-2012, 03:40 PM
Should include soulwars bank.
Ok well go ahead and add it. I'm pretty sure it's already included in SRL.
raivyn
06-12-2012, 08:05 PM
it doesnt load says it cant find the srl stat thingy
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.