Results 1 to 4 of 4

Thread: help??! herblore script

  1. #1
    Join Date
    Nov 2011
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default help??! herblore script

    the script is not mines.. but i need help, snapdragons aren't withdrawing
    i made sure the dtms were correct and its still not working, it just hovers over the snapdragons and then says it cant find them, please help



    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:  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('mWAAAAHicY2FgYLAEYhcgtgFifSCeBMTdQDwdiKcBcUg8H0NUGh+QxQTGrEAShGGAEQ2DAAAlggTY'); //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.

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Where did you get the script from?
    If it's not working why not post on the thread where you got the script?

  3. #3
    Join Date
    Nov 2011
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I already did, he's saying it does work, but for me it doesn't.. & its herblore pro, the one in herblore selection :S

  4. #4
    Join Date
    Nov 2011
    Posts
    255
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Quote Originally Posted by YoHoJo View Post
    Where did you get the script from?
    If it's not working why not post on the thread where you got the script?
    Doesn't say the name or anything in the name of the script

    Are you running your script in safe mode max brightness?

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •