whats best potions to make for a good profit? pm me please , i might not notice a reply.
thanks.
Printable View
whats best potions to make for a good profit? pm me please , i might not notice a reply.
thanks.
Help me?Quote:
Originally Posted by Askyla
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.
if you cant follow some simple instructions then dont bother coming back here...your just being lazy and dont wanna do anything your self!Quote:
Originally Posted by Moni
IF you really cant do it , pm me your msn and ill send u the file.
Nevermind, i fixed it. i just updated the dtmtostring thing.
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 2Quote:
Originally Posted by Kresh
Simba Code:{$i SRL/SRL.scar}
to
.Simba Code:{$i SRL/SRL.simba}
Change line 998
Simba Code:SetAngle(True);
to
Simba Code:SetAngle(SRL_ANGLE_HIGH);
it would be nice if you could change it so you can stop the script - change options and run it , without reloading smart.
so many low posters on this thread just asking daft questions :P
how come i got ranarrs to clean in a seperate tab but it dont find them and just shuts off?
Can you add Serum 207?
its Cheap & Fast, please add it asap :)
or give us the code and we'll add
until 10mins ago i was cracking on fine now it withdraws 14 vials deposits themx5 then logs out?
Go to the "First Scripts" section, and there is a Serum 207 maker.Quote:
Originally Posted by matan50010
which tabs do i put the unfs and herbs in?
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
THANKYOU! thanks so much man they all work now :)Quote:
Originally Posted by Scar Newbie v1
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
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
It just right clicks on the bank and then left clicks somewhere away.
Any possibilites for me to fix that?
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?
Whats the Gp / hr With this bot??
Nothing atm, the script doesnt work
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...Quote:
Originally Posted by BottingFTW
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!Quote:
Originally Posted by LordHades
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.
So does this not just clean herbs ? it has to make them UNF/POTIONS.??
all i want to do is just clean
@ 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.
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.
Issue for me is that it keeps on clicking on deposit coin pouch instead of empty inv.... Any help?
Epic
running script right now and getting about 4.9k herbs an hr cleaned. :)
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?
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?
@thexawesomex same here mine keeps clicking the money pouch icon and no one can fix it yet
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.
Code: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+baTOBnf50wqqZ3' +
'NJNmdzGRiz7FxbTazSWYqO3E8no33X9mXkhzbiizJkVOa2lrWt1j4' +
'gXj5wYPv+7zv8wCr/+ft1f+v/3dVePM8cen4jGFNmtYDah7q2MabZ' +
'1d++9ZdB/s8dd/7RrRSHzerQ3Jpr2jdI1jDtHgQZ+3/+sRdZ/s82X' +
'920Ws6w2p1TKsPidW9nLWX0UZpufxXT911ts9T5T89ESi2Js2WK9/' +
'0GK0pxRmWKqN8nn7syF1n+zzlHz/pLrcmrMaU3vAagLw2ptgHed1F' +
'MMmS1H736btO+Gn13nnaeugwkrdm7fao3Rq3mlOF2rhRmTQq07w+h' +
'5MQAucfWb7rnJ9WcaMvCQIrSYRuwmYpWir7i1VfwYY0LUIxQQRJIk' +
'nt0spd5/y0rJPzEp/jcjRBM1mSgRkhTgshVohRVDibiaNoKBiUz/b' +
'uOuenZWx3SYqgCZLMZGmCILMkkSGJbDaeTgNB8VgMTxZe2LjrnJ+W' +
'vO5k02kzr3MEQcEwnYCZaIKOxZKJRAqB0TRa/s7Zuw55nTrvPu186' +
'1ypXNQESWEZjcspOUYATiFwAsNSbPquE36eFENhaZIm8QyRTlOZDI' +
'1nMDQWDGpPHr7rbDfU4i9eEGQuRxJkJpNCUzCKRJFkEopE/AFqrXT' +
'X8W6o4oVDHJOjcYJOExSaJgZzLxmHokGfH0onl//t9btOeJ36731d' +
'kAExKuYwgYY1Hq5YeEXBqGw4As16vTPmc//hlu/W5bW2I7eb/GKPX' +
'1vmj64JJ47yx9aZxR5hWZDMJygq0fj+Q3+kf1dePJv76oPU09vcMz' +
'viM9u5Jzc6//TNW5z1m1ePnO1unbC2t4qbJ/K72+rOtrK1KZ7cFI4' +
'f5VeXqMU+U7YxfVFY/F8vfbm0K//+pnLm8KzRGAWbMakykTPHKHmI' +
'FOfyav0nX73Jievf2do6oWwel7a3ld1deWfninbl3V3l5Ca3eYxeX' +
'8EX+5lWHSk90vqSmX/zutDsjpid/Vpjv2Qf4Iv7aO0ekhvFaeXPz9' +
'zkxMPnK0cPU9snpZ1tcWdHAti7V7BPboobx5hj6+T6KrG6gHcaiO0' +
'g/f/+zJfJ/MHrQq87WuoNmfWDRn1Kq46phf2yPkHmCn/5yOee9e5T' +
'y8vcymJ6bZXc2hBObklbG+Kxde7oWu7QMnVoiZxvpTrVeKMctUoRQ' +
'4WMbfvLZP7fb3IL8+Ol9kGzMWM23EZ9XCs9IGrTvKBfOvZ5Z83vWv' +
'12dnmeWFmglheIfjvTaWL1WqruwLVK0inHK0akaEaKVrhkQLoSkR1' +
'24Zd/+qUAd955yj6/wjTao6XORL4xqzc8ZmNEs/fJ5jSnpGIkV9S6' +
'v7dpX/jBxVYj3W+le61Mr53pttKNGlKvJqqVRBXQFmO2FS5agDlc0' +
'MJFDVKkAEf7hXnpzoGXfv2K1rMVUWCKlTmr7inWXWbdXWiOa5UxxZ' +
'okOSieQRPx/MPz11/pMbPdQK8KhLdZT1UqScuOVUuRuhUpWVHDCpv' +
'FsJ4PmwqkihFRDtOEN52Zbn7/3B0yd999RhIFReAJlkEVGdbzkFEM' +
'GEWfbPhJJoJicApJJSPi2fonZ330dv2ZJccBgUWBExp1tFlDGqW4Y' +
'SH8lfD2ChE5nyLVOKnFWTnBCimKhTE2iaRDSGqGKaN3yNz7+2doiu' +
'RYJkdRHEORJIlmmVSGxTJsBiUYOM0lYcjvMb955FOnPF6x0xU74dT' +
'ghgNXbahsQzUrahqwUojYBhBE6JhL5mdF0cWJboZxsaSbgIPpYDw1' +
'k866+j997g7NTOJZkefYHEOjKINidCoLRCVxMgo2wwiZShrPrH5yy' +
'm/fKm0VqzZsF2NONeGUY1opbJbCTgEqalFVC1l6yNASCVsYyzcPqM' +
'29QnkvX7gvpwxRxByZiKZmUvHx/FPXO+2L+jlri6okVip2TuKIbAa' +
'Dk2gigUVhGEmmM2hcznz699XLS1YBsuxI2YKcUsIuRqViQDdDVZAi' +
'9HBeDelyiFXQYK04ZjT3q437xMoe2fkKm3+A4afJdDA6B0fGYTm8+' +
'OuX7wS78eMn8ptdSVU4hWN5hsGzTDbDZLMEkfHHIkEe+90vVz54rb' +
'qq5k2QEMJlEyrpUCEPqWZQzgcLerggRTQlKHMhUiTcNcdrNuZ0Z1J' +
'rjqj1vVxpTCh6aCoS8caC4z7PgYV/vtOk5zx/Ehiao4hcJptD0RyM' +
'4LFYPBgMenxxJvXJhP3Bo6oEG1oob4QsM2KqYUuFJCUkaQFVChpCW' +
'GT9eSliVgqeWjdQsMOFkteszRrNCb02xZsQLzAsmY2Hcoel5Q/vaI' +
'O6/OtXhUYxx1A8KJuzOI1iwB7pWDwOhYM+bygaqH3/kWtG+ucX9MW' +
'CpkG6GlKVoKIES0xU5MKU4BelgMgFJN7frRLd+Zqr2potVWeL9Rmj' +
'MZlvTmjNSb4AcaKq8paarb14pyVt573nKJbO5OgMRcB4JoqjkTQMo' +
'bA7EnD5PdNeF/dof/Wja+3N5fdfNQ4rqhwReb8sB00qIuZCpODjhQ' +
'DLept18uhKsderh6qtsYIzbjbHAbDenlQbLsGMi6KoswIds55cvxP' +
'glY/eIs/WPXrSJcNuEfXl4AABh/FUBEt44OBEyD0SmhxJuz9zyoev' +
'F7YcmvHlxAAjBAQxkMv5hVyQJlztBrm6VF3oO42WLTUqvFOknRJtF' +
'2hLZUwxpwo5gUXi0fwzd8Tc+LsnAyI6LiXHlcy4REwy+DSBz+LYbC' +
'oxGvXsD0/vi04eiE0b//mzu7uP3q6+dEI/W8XlEMH6M9gMRXiI9Fy' +
'rzs53i/WqVa9YZtM26yXdKeoVUy0ZmqYKQi4ZC8NM6k6qrZXfvolv' +
'lKfFzFheHC3ow6o+IiqjvDJKcyM4fn8K+krcvSc5cS80Tl248e536' +
'f1X5n/xDfPxBeOJboaP5Atcxc6XKvliMW8B0qJqaoqqSbLM52gigy' +
'TigaB5Z2auvfPYrITOFuUZpz5s1oe1yn65OMSb+yj5AM0OkZk9Cdc' +
'90Yk9oVG/Qy6+/8rNR1v6zSv5y/OSKlbLllMpFE3B0FhZJCWeZKhU' +
'Bo5TGVTaaYE95J0wi8+uTAmwq1ycKHf3qbVhGag6xNsPUNoQI47R5' +
'J7gFPDGvYHR+8Jjnf/5/O2M2frREzSBG6pi6LxhCEZeUCVWzGWpdD' +
'oejbT+7o6aur1/+kZAS41z8dmSNeX0xozWDJjj+faE1hjnyzO8OU3' +
'Ro1HvSGR6f3Bsb/hg5+e3xbz48z+VgXFJkqYyYFUlMDibisNxKBoK' +
'egI+8ZHF36WgL+7kt4QLixNMcErLJPrtmXJj2mpOW7VJoz6pNyel2' +
'lTO8LEipnIoAw+HJ/b6x9Czzu2MvPTLF2VJzFEESxHZNJbBkAwKdo' +
'YxwOz3ed2uOfvbNyvWbqLlf3/Dr2BeOYktFpOLLVel5irWJ0vORMG' +
'ZNBoTSm2CK3g5CVNEXmNnEC/wRnRVuZ2RO9+9KPE8T5A5AiczGRzN' +
'UnCKiCcSkXDA4/F73MxW7Q9jVt44OcHHmLZaXK1r8xWyVobs6txg5' +
'apOm2WPWgjwEiIrmCSkRWoc9twTGt0Hz7R/9rVb3L4PXjf7VZYAm1' +
'uWwXEqA7wBsNF0Mh4PA3P4Qh6/z+UqvLj5BwQ5vWOPckG6rVSWHKt' +
'bUZqVbM1BHDvpVOBKGbUtsqAzeZlUcgkGG4pM3+Mf2RMYVV67RZpq' +
'vn1OAFtxGnwoOpsl0+ksls6mESwZj4WCQZ8v5PWF5vz04S/cxFt8/' +
'9VRHhrK+fG2pHcLSqOg1G2xZvF1na3k6YbBVfJCSREUmuCwEBYYiY' +
'zf6x+9xz86V7hZibH8/mv5RpGhKBaIIFgcx7GrfoaxJDxg9vtCfl/' +
'Q5fW63Y2//QLPDUF6zD7c2s8H9+f8aJVV2rpZN5WaKduKavO5osCZ' +
'nGCJgsZwMglnoIPhyaHg+H2BMYDta9I3GVk/3GBpimdzbIakwFZ2E' +
'GQsnUqmEcCcuMYc8AXcXp/bHUxC8//ywm0yW987P8QE9ub8Q7nABB' +
'tA1LTZLZR7ZauqWxVJKgiMyeTyAq/ksrmsO+EfDU0C2qvaj7qqP37' +
'shsP2f/gEy9I8ReUIggYRvgJ8hRlJp2A0GY8Gg+GAH8Q55PP5XR7P' +
'nEs4dbudpeg6WC/8B1j/EOUdys6Nox7WFsu9YqFu5R1TqepCSWPzC' +
'iUw8SwymwztC07eGxzfFxjb4x/d4xspfu8G3cLlD16XWhZHglxBAA' +
'3SRTqdSWN4KpVNIRgCp+LxZCQMQh0JBgBz0O31zs4iOrX84Ru3BG7' +
'85OkpIzFEeoYI9zDhPpCe8QsJrV/KNwzgDd5WyIJE6iLJMxhNxDAk' +
'kILuD0yAdXBP6AqzdyS2coOMB7I9L+TYj5kHrkhjWTidQUDdnsgiG' +
'CjWEuEQSNGDUAd8QY/XP+v2zbmKb5+6JbPxFw8eALSkZyzrOoi7h9' +
'BZtMJqXVt3TK2sMCWFNERCEwiBIhjwt/FIJjGemL3XPwIm4B7/GIj' +
'zGO7//WFrr5xiGZIhcJbESTyTTqMgvBkYuCKFwgkshcAxKB4JQqFA' +
'JAimoQd4A2D7PHORBNT40eM3ZwZ7BvLx3mTWP552D+PuvegM2hDZv' +
'sk5+Zyt87bMWDxpcqTGY0waxuMxIuVFofv84/eEx77i2X+Pe9hjXP' +
'9Mp/+Tr3I4zeOMgOX4JCsmOS7OCnGWjVJMhKIgnIpmiTCKheCkPxo' +
'J+YKA2e0ZzMQZd2DOl3/26O1YuvidMy4quj8+FdJT3IIptwtCxVAc' +
'TawobIlnCxytM2k2DRNoFIfjGfhAYPxPwiN/4t0/pSDtn362tfvRW' +
'9qJNp8R5LRkIFohni9A+ULEADIiugFpeVDXhkQ5JLABCg+lsXASDs' +
'Ti/kh0Lhx1h4NTgRiKLP3m1dvB5i4vBfGo2TXLbcsq6batF2xNKMs' +
'cYDbZnEriQhbPIVkylqWS/oRrr3/0Pt9I7e+fvG6c3o+eUjKyjiml' +
'VMFB7BpSriOVWrLSgKsObDtIqZIslWOlYrQwgI9KYlTIQQwdpsgQT' +
'oTTKU8Smg4Xn7utHTVYCu2vnzBKumFp+WK+YOm8qWUNGTcF3OQIjc' +
'YEHOOwTA7JMAkkHUvWWfX1zd/fkpUXFwtJvZg063CliTitVH0+3V5' +
'Id/pYq4c2e1irgzbaqXoTqTnxcjletCAzD+kKJIshjgvRZGCQm4qX' +
'P7f1ep3YqpHm+aQohfhcWBRDspoo2alyOVowgzLvy5F+Mh0k0GAGg' +
'TIJ7dINXgxY/sVLFcGpwnYNrgCwPgo4W0vZ3jLeB9+r5Dw4WCb64G' +
'AB64AL6aQaLaRWi1eKUVOPqHJYEEJsxoXiyM2Wqk9NnK/TjWaq2Uu' +
'vrCOHjsaX1+OLh7Nrm9jaZmz5SLR/KNLoh0pVlyKPZvGxeMyHJvs/' +
'v/7ZSuv8xhXgKgAG8QRUi+nuUqa3Qs6v0PPr/MpR8dCasHxYXFqiu' +
'ot4B9wCcF3NZK0cLZWilhpRlLDI+PFM8Dae1YKJc2FTOHkms3M+uX' +
'M+uHUuvH0utnE6snE6dPwUdHzXu37Su3Q0sHwEml/11HuQ7UxjafL' +
's9U22Al9wUuVGyhkEGWsBWhDeFWp+Ce8dYhdPN3cv9M6f65052z+9' +
'W99aM5bnyU41Dq6xbEeLhaghh0U+ROMeTChZt2Tu/virwtEN+ORZ7' +
'87DnlMX/acvhncfiu5egE4/HNw+798+5zpxynNke+7wpnv5qGfpiL' +
'e16DFLqYYB1rvPmHljtQxbdaTaQJwO2gTYfazdw5oL2e7pyu7DSw+' +
'dWzpzenFnZ/Hk7sL26aWdDefIktSrwBbIJ2pYAabkQmQ2kGl87/It' +
'Z592YZs59RB05lHP7kX37qOhM5fgc5eRc5eT5y/HHnoMOnspeOph7' +
'9ZZ3/Fd16ETrsX1qebiXK0bAanl249cd7+czXUrZVRTZQcuA69eSR' +
'flE6VjZ3tndnvbJ+c3tuc3N+ePH+uub/SOnWivn+wcd4iSFpaVsJQ' +
'LUHSCrn3rwi2DbP/lY8LxLfj0oyC8gQcvhs9djl94LHnhMhAAjgNd' +
'GGAHts4GNh8EJplbPjrdPzTeXJhzWnCvtfCv11ffzqUNQ7LNpFZMm' +
'JVUcUntn1rY2ege3+wfP9E7eqyzfrxz5Gj78NHW2npj9UjrUF2rqm' +
'EJzD4+xbV+cOMd12eC/G9v8Kc30bUNePfh6IMDZujMxehDjyUuDHS' +
'VGTp3Obh7AZgkcOKUf23LvXxkurMy2VqcsRtuOQ8v3aAqXPqXl6vP' +
'bZMhcrWwuNU+ATiP9dePtdaOdtbWm4cA55HmoUWnf6i+BL4PO8sWm' +
'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' +
'4tl7osmMiean7SDPnq79OxxXVNlRdYGkmRJlCRBEUSdl01FM2S9oO' +
'YtFSy5ui4pCi/xDKMcdm7Z6ABbXKTddDnNqfr8VGNhurU021r0dpa' +
'99fm5xvxkc3Ea4LWW5rorns7ydHNh3G5PWM6YUTmo25OyNSXmRxnh' +
'fgy/H0EfCMUm08j8r649c5//b1/TCnlFkVUVxE9WJFGRJVkWZV4SW' +
'U6gWZ6mcwQQxZEUh5MUnh1UBzTd+KtbpDjAHGk2Dhbr3nILJK7JWm' +
'/K6c45bV+t63ba00532mlPOp3JcnOy3Joo1idKtQm9OK4WJqT8JK9' +
'N5OQRnNmXTO2LxMZSSeFr1zaQS+89bzcr+XxelSVdlsA3CPJAoijx' +
'OVAbcqDaomkOBzUXDqpaKpuhMhlwwOA418rfvEEKmKH5Ngiax6jNF' +
'esHi7Ux2xkvOTNFZ7pQnS05k2Z53HIm7PpE0Rk3SmNmYUzRx3h1NC' +
'eO0PwolTuAZR+IJiZQRH3zWnGx+O6zlYaT17S8ppqqIovCgBZEmAN' +
'BFgSW5nIMYAb1C0uROZLEicHLSvjgfaUsOyjB0p13bvEGbOd/fAPr' +
'O1NaaSpfHTdL46Y9opfG8mVwPG2UJg1ryjDB92TenDCMMUk9mBPHW' +
'fEgmbs/i9+PZw6kUnMM3v7Zta7d0t88XawUVQ18lKvhVQY2FgUR4O' +
'ZyPCMwlEAzOeJawTVo0VwpxgflLShkMASUutLp7i1nYv8XLyaXu9O' +
'iPqOak6o5iKSsjUn6mKhf+VbBwUFRGxO1IZYfoXLDBDOcIfeh2H0J' +
'eDgW55+/luXmv3vJLhdkXdV1La/IuiJfs4QkikIOlIYsQ/EgzgwJg' +
'syBSjybHfSUMhlQiWdQFL/S9CAwlMpRnX+8dZae/9Ur4lPH3SI/Tj' +
'BjFHuQ4Q+ywsGcMMoKIww/zPBDzMAMBwjmAEYeQLN7E6l9UXg4ElF' +
'fvZbfun9+wTKNvK7JmgQm3SceHkgQOZZnwYfiGZqjyKsRvlqJE+lM' +
'BksBgToxPSjGY6lEvPzy9u0kaiCwBAvPHHMLzGgmO4qkR7HsMIYPZ' +
'Ukw0Yaz1DBODWHEA0l0Xwx+AEpMwLD93Yevnth++XQhr5uapquqqE' +
'q6DowhfxxhjmMolmFz9MDA7BVgMpP9uNcBUBEsmQCoaCKORCEkFo0' +
'E/OFM4gt1dxfff7X/q5eUl7azZxeyD/bHs+lhGDkAxYfiyBCUAIJY' +
'Xm73Wcus/fDyyodvVJ89LrI5SeCv5OEBKsgOILKDuTbgpAAnqL7p7' +
'KAnM4jtABVJIwiaGKDC8Sgci8KRcCwcGigU9Hk9xErhD+5IX7HNS9' +
'1fvsA9d5TYbiMCrzZqulNTyuVSyRZ4Ic3iRBpjCAJkV5ED5DmBYzm' +
'QxyjiqgcGTcXsVdOigzZdKoUm42gylopFESgCUJNQOBq+1k0Kej1x' +
'ClYuLv3BtNep9e5TBM9qoEocrMJGo1qrVSoAGEsmswgCZtMgu1LAs' +
'QzgB5dCf9ydG9Cm0HQqkUpE0VgMjkHJWCR5JbAANXK19xUJsmtl8/' +
'n1xX+9o0fe10neaIZ8XpamqiW7ZldatWqv2crLSizoB1YEGsz9dJr' +
'+Xe4aZANk0EuEY6l4HIYgOBKJX7n7ABUImCDg85BNvfoXD/V+dlvP' +
'OL6orG+eiEKDf+RYxraspmM7ZWCRAgYnosEAuMXAlhgMA8iBUQfvI' +
'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('mbQAAAHicY2VgYMhkZGAoBuICIE4H4iQg3gcU3wHEh4H4KAOEP0FOFEgyoWBWBkzAiAWDAQAiWgax');
'eye of newt': Second := DTMFromString('mbQAAAHicY2VgYJjCyMAwDYjnAvEEIJ4OxLuB4ocZIPR+IN4OxBLSS4EkEwpmZcAEjFgwGAAAdN4Hkg==');
'unicorn dust': Second := DTMFromString('mWAAAAHicY2FgYDjEyMBwFIj3APFhIN4PFNsGxIeB+CgQtxfbAEkmMDY2NmZgZUAFjGgYBAD+2wfo');
'potato cactus': Second := DTMFromString('mWAAAAHicY2FgYDAHYgcg1gFiWyB+DcQPgfg9EH8EYvcAXSDJBMesDKiAEQ2DAABSgQVk');
'limp': Second := DTMFromString('mWAAAAHicY2FgYIgH4mwgjgXiSCB+CcRfgPgxEL8B4rIMVSDJBMesDKiAEQ2DAACQkQZD');
'snapegrass': Second := DTMFromString('mWAAAAHicY2FgYEgE4iQgjgbibCB+CsR3gfgLEL8HYv5cayDJBMesDKiAEQ2DAACBFAX5');
'chocolate dust': Second := DTMFromString('mWAAAAHicY2FgYNgFxIeAeDcQbwLiV0D8DIg/APE7IPbUEgOSTHDMyoAKGNEwCAAA5mEHNA==');
'crushed nest': Second := DTMFromString('mWAAAAHicY2FgYHgOxM+A+B4QfwLiV0D8CIjfQ7GluRGQZIJjVgZUwIiGQQAAIKMH/Q==');
'whiteberries': Second := DTMFromString('mWAAAAHicY2FgYHgMxDeh9EsgfgfF34D4BRAf3bsHSDLBMSsDKmBEwyAAAHB5CZQ=');
'zammy wine': Second := DTMFromString('mbQAAAHicY2VgYHBkZGCwh2JvIDYB4tdA8dtA/B2I3wPxOyBOS0wEkkwomJUBEzBiwWAAACwPBx0=');
'frog spawn': Second := DTMFromString('mbQAAAHicY2VgYOhgYmDoBeIaJgi7CYgfMjIwXAHiG0D8FIgfA3FmYQRQNSMKZmXABIxYMBgAAKC/CEU=');
end;
end;
procedure ItemDTMs;
begin
if (Radios.ItemIndex = 1) then
begin
First := DTMFromString('mWAAAAHicY2FgYDjEyMBwGoh3AvFRIJ4HFFsIxIuBeBoQZxeBeEwMZbUbwDQrAwTAaEY0DAIAHd0Ivw=='); //Water filled vial..
case ComboBox[1].ItemIndex of
0: Second := DTMFromString('mWAAAAHicY2FgYNAAYlMg1gZiWSD2A2I3IA4B4gAg5nTgApJMcMzKgAoY0TAIAACSLAJE'); //guam
1: Second := DTMFromString('mWAAAAHicY2FgYAgB4kQgjgFibyD2BWI3qHgwEHP78gBJJjhmZUAFjGgYBADNnwMO'); //marrentill
2: Second := DTMFromString('mbQAAAHicY2VgYGgC4l4grgPiciBuBmI/KA4D4kAgdgNi3hhtIMmEglkZMAEjFgwGAJY9BLw='); //tarromin
3: Second := DTMFromString('mWAAAAHicY2FgYNgHxHuAeD8QHwPiZCDOBeJoIM4AYtc0PiDJBMccDKiAEQ2DAAB0SQVi'); //harralander
4: Second := DTMFromString('mbQAAAHicY2VgYLgBxE+B+A4QnwPi20DsB8QeQBwCxEFA7ALEBg6cQJIJBbMyYAJGLBgMADTfBlM='); //ranarr
5: Second := DTMFromString('mbQAAAHicY2VgYBBjZGBQAGIpIBYBYm4gTgWKxwBxNhDnAnEWEHPKcQFJJhTMyoAJGLFgMAAA2J0CwA=='); //toadflax
6: Second := DTMFromString('mWAAAAHicY2FgYLBhZGBwA2JrIDYA4jSgWCYQFzBA2LaxGkCSCY65GFABIxoGAQDavwNx'); //irit
7: Second := DTMFromString('mWAAAAHicY2FgYHjGyMDwGYjfAfEdID4BFDsMxOegOEpbA0gywTErAypgRMMgAAAGwweP'); //wergali
8: Second := DTMFromString('mWAAAAHicY2FgYBBmgmBpIOYB4pNAsX1AfB6KBYxlgCQTHLMyoAJGNAwCAPMpA+0='); //avantoe
9: Second := DTMFromString('mbQAAAHicY2VgYDjAyMBwHIj3APFBID4GxOlA8SwgzgbiPCBOBWJdc3YGF18uBmMrDgY3f24GNX02BlagODpmxILBAAChlQh4'); //kwuarm
10: Second := DTMFromString('mWAAAAHicY2FgYLgJxA+g9EUgVmRiYFABYg0gVgJirxBuBnNnTgZ9S3YGFR02BnagGmTMiIZBAACMVQYQ'); //snapdragon
11: Second := DTMFromString('mWAAAAHicY2FgYEgB4lQgzgPidCCeAMQzgHgKEHcAMbsJB5BkgmNmBlTAiIZBAAAbbwQ3'); //dwarf
12: Second := DTMFromString('mWAAAAHicY2FgYJgIxFOBuB+IJwFxHxBPh+I2IOby5AGSTAzcvrxgmpkBApigNCMaBgEAZP8FXw=='); //torstol
13: Second := DTMFromString('mWAAAAHicY2FgYJjGyMDQB8RTgXg2EL8Cir0D4g9A/AaINfSlGAzMJRjM7KUZbN3kGFiBYsiYEQ2DAAD/aghK'); //cadantine
14: Second := DTMFromString('mWAAAAHicY2FgYLBlZGCwA2ILIHYF4ldAscdA/AmI3wMxh70JkGSCY1YGVMCIhkEAAEyMBTk='); //lantadyme
end;
end;
if (Radios.ItemIndex = 0) then
begin
case ComboBox[0].ItemIndex of
0: begin
First := DTMFromString('mWAAAAHicY2FgYNgFxAeheAsQTwfieUA8CYgnA3HLjJlAkgmOmRlQASMaBgEA0aEHEQ=='); //attack
SecondItem('eye of newt');
end;
1: begin
First := DTMFromString('mWAAAAHicY2FgYBBmZGAQBGJJIOYC4ulAsQVAPJkBwp46tRFIMsExMwMqYETDIAAAAyAEaQ=='); //strengt
SecondItem('limp');
end;
2: begin
First := DTMFromString('mWAAAAHicY2FgYLBnZGBwA2JTIHYE4hlAsWlAPAuIFwDx9JZmIMkEx6wMqIARDYMAADj5BRk='); //restore potion
SecondItem('red spider egg');
end;
3: begin
First := DTMFromString('mWAAAAHicY2FgYLBnZGBwA2JTIHYE4hlAsWlAPAuIFwDx9JZmIMkEx6wMqIARDYMAADj5BRk='); //Energypotion
SecondItem('chocolate dust');
end;
4: begin
First := DTMFromString('mWAAAAHicY2FgYMhiZGDIBuIiIE4G4ilAsQVAPA2IpwJx8/RmIMkEx6wMqIARDYMAAGwiBb4='); //Defence potion
SecondItem('whiteberries');
end;
5: begin
First := DTMFromString('mWAAAAHicY2FgYMhiZGDIBuIiIE4G4ilAsQVAPA2IpwJx8/RmIMkEx6wMqIARDYMAAGwiBb4='); //Pary
SecondItem('snapegrass');
end;
6: begin
First := DTMFromString('mWAAAAHicY2FgYDAEYnMo1gDio0B8Doj3A/FJIJ4+rQlIMsExKwMqYETDIAAAVwkFpQ=='); //Crafting
SecondItem('frog spawn');
end;
7: begin
First := DTMFromString('mbQAAAHicY2VgYNjHyMBwFIgPAvFWIN4OxLOA4jOAeDEQzwPi6UA8YQKIZALjyZNngWkOBkzAiAWDAQAgdgpP'); //Super attack
SecondItem('eye of newt');
end;
8: begin
First := DTMFromString('mbQAAAHicY2VgYNjHyMBwFIgPAvFWIN4OxLOA4jOAeDEQzwPi6UA8YQKIZALjyZNngWkOBkzAiAWDAQAgdgpP'); //super anti
SecondItem('unicorn dust');
end;
9: begin
First := DTMFromString('mWAAAAHicY2FgYOiH4jYgngHER4F4HRCfBOJjQDy5pwdIMsExKwMqYETDIAAAwSsG/Q=='); //Super str
SecondItem('limp');
end;
10: begin
First := DTMFromString('mWAAAAHicY2FgYNgJxYeBeDMQHwHiM1D6IBD3ZGkDSSY4ZmVABYxoGAQA35sHMg=='); //super restore
SecondItem('red spider egg');
end;
11: begin
DTMFromString('mbQAAAHicY2VgYNjLyMCwD4i3A/ERIN4DxJ+A4neB+D0QvwXi30C8cEo3kGRCwawMmIARCwYDAENXCjU='); //Super defence
SecondItem('whiteberries');
end;
12: begin
First := DTMFromString('mWAAAAHicY2FgYHgOxe+B+AEQHwbiM1D6ABB3TpwHJJngmJUBFTCiYRAAADPBCHs='); //ranging potion
SecondItem('zammy wine');
end;
13: begin
DTMFromString('mbQAAAHicY2VgYEhhZGBIBeJcKI4F4k9A8btA/BGIfwLxdyBePL0XSDKhYGYGTMCIBYMBAKNWCJI='); //magic potion
SecondItem('potato cactus');
end;
14: begin
First := DTMFromString('mWAAAAHicY2FgYBBmhGBJIOYG4iNAsTNAfACIDwLx0pn9QJIJjlkZUAEjGgYBADXIBUA='); //saradomin brew
SecondItem('crushed nest');
end;
end;
end;
if (Radios.ItemIndex = 2) then
begin
case ComboBox[3].ItemIndex of
0: Second := DTMFromString('mWAAAAHicY2FgYNAAYlMg1gZiWSD2A2I3IA4B4gAg5nTgApJMcMzKgAoY0TAIAACSLAJE'); //guam
1: Second := DTMFromString('mWAAAAHicY2FgYAgB4kQgjgFibyD2BWI3qHgwEHP78gBJJjhmZUAFjGgYBADNnwMO'); //marrentill
2: Second := DTMFromString('mbQAAAHicY2VgYGgC4l4grgPiciBuBmI/KA4D4kAgdgNi3hhtIMmEglkZMAEjFgwGAJY9BLw='); //tarromin
3: Second := DTMFromString('mWAAAAHicY2FgYNgHxHuAeD8QHwPiZCDOBeJoIM4AYtc0PiDJBMccDKiAEQ2DAAB0SQVi'); //harralander
4: Second := DTMFromString('mbQAAAHicY2VgYLgBxE+B+A4QnwPi20DsB8QeQBwCxEFA7ALEBg6cQJIJBbMyYAJGLBgMADTfBlM='); //ranarr
5: Second := DTMFromString('mbQAAAHicY2VgYBBjZGBQAGIpIBYBYm4gTgWKxwBxNhDnAnEWEHPKcQFJJhTMyoAJGLFgMAAA2J0CwA=='); //toadflax
6: Second := DTMFromString('mWAAAAHicY2FgYLBhZGBwA2JrIDYA4jSgWCYQFzBA2LaxGkCSCY65GFABIxoGAQDavwNx'); //irit
7: Second := DTMFromString('mWAAAAHicY2FgYHjGyMDwGYjfAfEdID4BFDsMxOegOEpbA0gywTErAypgRMMgAAAGwweP'); //wergali
8: Second := DTMFromString('mWAAAAHicY2FgYBBmgmBpIOYB4pNAsX1AfB6KBYxlgCQTHLMyoAJGNAwCAPMpA+0='); //avantoe
9: Second := DTMFromString('mWAAAAHicY2FgYJjGyMDQB8RTgXg2EL8Cir0D4g9A/AaINfSlGAzMJRjM7KUZbN3kGFiBYsiYEQ2DAAD/aghK'); //kwuarm
10: Second := DTMFromString('mWAAAAHicY2FgYLAEYhcgtgFifSCeBMTdQDwdiKcBcUg8H0NUGh+QxQTGrEAShGGAEQ2DAAAlggTY'); //snapdragon
11: Second := DTMFromString('mWAAAAHicY2FgYEgB4lQgzgPidCCeAMQzgHgKEHcAMbsJB5BkgmNmBlTAiIZBAAAbbwQ3'); //dwarf
12: Second := DTMFromString('mWAAAAHicY2FgYJgIxFOBuB+IJwFxHxBPh+I2IOby5AGSTAzcvrxgmpkBApigNCMaBgEAZP8FXw=='); //torstol
13: Second := DTMFromString('mbQAAAHicY2VgYJjCCMELgXgyEHcB8Vug+GcgfgnE94H4FRDrm8sBSSYUzMKACRixYDAAAKIaCBg='); //cadantine
14: Second := DTMFromString('mWAAAAHicY2FgYLBlZGCwA2ILIHYF4ldAscdA/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.
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.
When I run it, this pops up in the debug box.
Quote:
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
:spot::D tyvmQuote:
Originally Posted by Scar Newbie v1