Epic
Epic
Last edited by Koetje; 01-10-2012 at 09:56 PM.
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?
Last edited by JackofSPades707; 01-12-2012 at 05:57 AM.
I got a small question, ranging potions work fine for me but now I'm trying to make saradomin brews and I got all the supplies for it in my bank visable the bot sees it but acts like they aren't there and just logs out. How should I fix this?
Last edited by Koetje; 01-11-2012 at 09:37 PM.
@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.
Last edited by thisguy; 01-13-2012 at 01:08 PM.
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.
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
cant even get script to completly log in it logs in sits at the log in page with this
The following DTMs were not freed: [2, 3]
Last edited by dc686; 01-16-2012 at 12:48 AM.
how do i add this to simba - or any other script? please reply soon
how do i add this to simba - or any other script? please reply soon
i see where do download it- but what do i do after i press download please. i . need. help soon D:
how do i add this to simba - or any other script? please reply soon
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
Exception in Script: Unable to find file 'SRL/SRL.scar' used from "
new error guys: the script runs but it cant open up the bank, got a fix yet?
Sorry I couldn't find out how to update the DTM's but I'm still looking for a thread to tell me how to do it. A few posts above shows my script that's partially updated to support SRL 5 but it just needs the latest DTM's. Please read posts above before you just post things.
This was fixed in my partial completion of updating the script to SRL 5. I will try and make it recognize the herbs soon (that's what the DTM's are for).
I had it opening the Varrock West Bank, Soul Wars Chest, and Draynor Bank the other day.new error guys: the script runs but it cant open up the bank, got a fix yet?
Last edited by thisguy; 01-17-2012 at 12:01 AM.
ah dont worry i got it working again, just had to change 1 thing
can u give u the updated code please i am very noob at coding but im trying to learn
this script doesnt work at soul wars bank, there is another herblore script that can do that: http://villavu.com/forum/showthread.php?t=71605
think neeger should think about adding soul wars bank as the damn randoms are makin me look like a bot! noooooooo
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
When you download the archive (.zip) file, extract it and wen u get the .simba script file in the folder, copy it in to C:/Simba/scripts.
Open Simba client and open it the script and try to compile it, if it fails then change the parts of the code to what the people recently posted on this thread.
There are currently 1 users browsing this thread. (0 members and 1 guests)