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 .
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?
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.
Last edited by Cyfer; 05-14-2012 at 12:42 PM.
Hmm doesn't work for me .. Please help? :Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Simba 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: [url]http://villavu.com/forum/showthread.php?t=67544[/url] ');
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(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
Does this support soulwar chest?
What's the xp/hr you get?
Does this work ? to make poitions , and unf potions ?
How come it says application not found?
great script tyvm, the one you just posted works like a charm <3
Stops after 60 potions..
looks awesome cant wait to test
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.
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
by replacing it with the properCode:SetAngel (True);
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.Code:SetAngel (1);
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.
Does it work at sw chest? cuz i cant see it in the choices.
Should include soulwars bank.
it doesnt load says it cant find the srl stat thingy
There are currently 1 users browsing this thread. (0 members and 1 guests)