Simba Code:
program HerblorePRO;
{$DEFINE SMART}
{$i SRL/SRL.scar}
{================= 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('', 'Error Message!', 0);
Exit;
end;
if (Edit[1].TEXT = '') then
begin
MessageBox('', 'Error Message!', 0);
Exit;
end;
if (Edit[4].TEXT = '') then
begin
MessageBox('', 'Error Message!', 0);
Exit;
end;
if (ComboBox[2].ItemIndex = -1) then
begin
MessageBox('', 'Error Message!', 0);
Exit;
end;
if (Radios.ItemIndex = 0) then
begin
if (ComboBox[0].ItemIndex = -1) then
begin
MessageBox('', '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(True);
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.
