Page 15 of 21 FirstFirst ... 51314151617 ... LastLast
Results 351 to 375 of 512

Thread: Herblore PRO

  1. #351
    Join Date
    Jan 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Epic
    Last edited by Koetje; 01-10-2012 at 09:56 PM.

  2. #352
    Join Date
    Oct 2009
    Location
    Edgeville, RS
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    running script right now and getting about 4.9k herbs an hr cleaned.
    ~~RAM ROCKS~~

  3. #353
    Join Date
    Jan 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  4. #354
    Join Date
    Jan 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  5. #355
    Join Date
    Jan 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    @thexawesomex same here mine keeps clicking the money pouch icon and no one can fix it yet

  6. #356
    Join Date
    Jan 2012
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  7. #357
    Join Date
    Jan 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    mines working now, i updated all the stuff in simba now it can click the deposit all thing in bank screen

  8. #358
    Join Date
    Jan 2012
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  9. #359
    Join Date
    Dec 2011
    Location
    Sydney
    Posts
    1,284
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    When I run it, this pops up in the debug box.

    Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''

  10. #360
    Join Date
    Jan 2012
    Location
    i am the monster under yo bed!!
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Scar Newbie v1 View Post
    Change line 2

    Simba Code:
    {$i SRL/SRL.scar}

    to

    Simba Code:
    {$i SRL/SRL.simba}
    .

    Change line 998

    Simba Code:
    SetAngle(True);

    to

    Simba Code:
    SetAngle(SRL_ANGLE_HIGH);
    tyvm

  11. #361
    Join Date
    Jan 2012
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  12. #362
    Join Date
    Jan 2012
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how do i add this to simba - or any other script? please reply soon

  13. #363
    Join Date
    Jan 2012
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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:

  14. #364
    Join Date
    Jan 2012
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how do i add this to simba - or any other script? please reply soon

  15. #365
    Join Date
    Jan 2012
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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 "

  16. #366
    Join Date
    Jan 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    new error guys: the script runs but it cant open up the bank, got a fix yet?

  17. #367
    Join Date
    Jan 2012
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

    Quote Originally Posted by pk master999 View Post
    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 "
    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).

    new error guys: the script runs but it cant open up the bank, got a fix yet?
    I had it opening the Varrock West Bank, Soul Wars Chest, and Draynor Bank the other day.
    Last edited by thisguy; 01-17-2012 at 12:01 AM.

  18. #368
    Join Date
    Jan 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ah dont worry i got it working again, just had to change 1 thing

  19. #369
    Join Date
    Jan 2012
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    can u give u the updated code please i am very noob at coding but im trying to learn

  20. #370
    Join Date
    Dec 2011
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Andr01d721 View Post
    ah dont worry i got it working again, just had to change 1 thing
    Can you give me the updated code then please?

  21. #371
    Join Date
    Jan 2012
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by thisguy View Post
    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.
    How do you run this at Soul Wars Chest

  22. #372
    Join Date
    Jan 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default a script that can herblore at soul wars bank

    Quote Originally Posted by NFL View Post
    How do you run this at Soul Wars Chest
    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

  23. #373
    Join Date
    Dec 2011
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    think neeger should think about adding soul wars bank as the damn randoms are makin me look like a bot! noooooooo

  24. #374
    Join Date
    Jan 2012
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  25. #375
    Join Date
    Jan 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by pk master999 View Post
    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:
    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.

Page 15 of 21 FirstFirst ... 51314151617 ... LastLast

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
  •