Page 20 of 21 FirstFirst ... 1018192021 LastLast
Results 476 to 500 of 512

Thread: Herblore PRO

  1. #476
    Join Date
    Jun 2006
    Posts
    127
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by adam101 View Post
    Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''
    dude your a 07 member i dont mean to be harsh but... file 'SRL/SRL.scar' ?
    change the .scar to .simba sigh..

  2. #477
    Join Date
    May 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I just downloaded and tried to use it. I noticed the include was srl.scar, not srl.simba, changed it, there was also a type mismatch at SetAngle line 998.
    Anyway, i started it and asked it to clean guam and it seems that the dtm for grimy guam points to clean guam. I haven't tested anything else yet though. I'm going to change the dtm for this when i have some free time
    Oh and it is v1.5 .

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

    Default

    Great script! thx a lot.

    When I was using it, I received a spin ticket, and the script got stuck at trying to store all inventory items (repeated it 50+ times before i noticed)

    is there a way I can fix this?

  4. #479
    Join Date
    May 2012
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by pkwa9lawy View Post
    dude your a 07 member i dont mean to be harsh but... file 'SRL/SRL.scar' ?
    change the .scar to .simba sigh..
    I'm sorry I'm new to this and I have the same problem and I don't know how to fix it. I changed the 'srl.scar' in the script to simba but then I got a different problem with True(Angle). I then thought I had to change the actual srl.sex extension to srl.simba but that didn't help.

    Any advice would be greatly appreciated, thanks.

    EDIT: See post below please, sorry for the double post.
    Last edited by Cyfer; 05-14-2012 at 12:42 PM.

  5. #480
    Join Date
    May 2012
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by elpreda View Post
    I just downloaded and tried to use it. I noticed the include was srl.scar, not srl.simba, changed it, there was also a type mismatch at SetAngle line 998.
    Anyway, i started it and asked it to clean guam and it seems that the dtm for grimy guam points to clean guam. I haven't tested anything else yet though. I'm going to change the dtm for this when i have some free time
    Oh and it is v1.5 .
    What did you do to solve the type mismatch? Thanks for your time.

  6. #481
    Join Date
    May 2012
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hmm doesn't work for me .. Please help? :
    Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''

  7. #482
    Join Date
    Jun 2011
    Location
    Anywhere that has WIFI
    Posts
    669
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Simba Code:
    program HerblorePRO;
    {$DEFINE SMART}
    {$i SRL/SRL.simba}

    {================= SETUP!=====================}
    {              Setup in GUI.

    note: Try to keep similar herbs/unfs in othet tabs, like Guam/torstol etc.
    for smooth perfomance...

    Post reports/suggestions/bugs, Thanks.                  }


     var

      Count, First, Second, Failsafe, Made, MadeInHour, x, y, x1, y1, vials, w, h, h1, Make, i: Integer;
      WBank: String;
      MForm: TForm;
      oLabel: array[0..7] of TLabel;
      Button: array[0..3] of TButton;
      ComboBox: array[0..3] of TComboBox;
      Edit: array[0..4] of TEdit;
      Radios: Tradiogroup;
      Image: TImage;


    procedure AntiBan;
    begin
      case random(2000) of
        0..50:    HoverSkill('herblore',false);
        51..80:   PickupMouse;
        81..100:  RandomMovement;
        101..220: BoredHuman;
        221..240: ExamineInv;
        241..260: RandomRClick;
      end;
    end;
    procedure UpdateReport;

    begin
      Made := count * 14;
      MadeInHour := Round((Made * 3600) / (GetTimeRunning / 1000));
      Writeln('                                                    ');
      Writeln('       -> Worked for: ' + TimeRunning + '           ');
      Writeln('       -> Made: ' + IntToStr(Made) + ' Potions      ');
      Writeln('       -> Thats: ' + IntToStr(MadeInHour) + ' in hour');
      Writeln('                                                    ');
    end;
    procedure Report;

    begin
      Made := count * 14;
      MadeInHour := Round((Made * 3600) / (GetTimeRunning / 1000));
      Writeln('                                                    ');
      Writeln('---===Herblore PRO by Neeger beta v1.5===---        ');
      Writeln('       -> Worked for: ' + TimeRunning + '           ');
      Writeln('       -> Made: ' + IntToStr(Made) + ' Potions      ');
      Writeln('       -> Thats: ' + IntToStr(MadeInHour) + ' in hour');
      Writeln('       -> Post Reports/Bugs to:  [url]http://villavu.com/forum/showthread.php?t=67544[/url]                    ');
      Writeln('                                                    ');
    end;
    procedure WhatBank;
    begin
      case ComboBox[2].ItemIndex of
        0:       WBank := 'feb';
        1:       WBank := 'fwb';
        2:       WBank := 'veb';
        3:       WBank := 'vwb';
        4:       WBank := 'geb';
        5:       WBank := 'db' ;
        6:       WBank := 'akb';
        7:       WBank := 'eb' ;
        8:       WBank := 'ctb';
        9:       WBank := 'clt';
        10:      WBank := 'nab';
        11:      WBank := 'sab';
        12:      WBank := 'ynb';
        13:      WBank := 'ngb';
        14:      WBank := 'sgb';
        15:      WBank := 'wgb';
        16:      WBank := 'fgb';
      end;
    end;

    function FormOK: Boolean;
    begin
      if (Edit[0].TEXT = '') then
        begin
          MessageBox('Fill in username.', 'Error Message!', 0);
          Exit;
        end;
      if (Edit[1].TEXT = '') then
        begin
          MessageBox('Fill in password.', 'Error Message!', 0);
          Exit;
        end;
      if (Edit[4].TEXT = '') then
        begin
          MessageBox('Fill in how many potions would you like to make.', 'Error Message!', 0);
          Exit;
        end;
      if (ComboBox[2].ItemIndex = -1) then
            begin
              MessageBox('Please choose what bank to use.', 'Error Message!', 0);
              Exit;
            end;
      if (Radios.ItemIndex = 0) then
        begin
          if (ComboBox[0].ItemIndex = -1) then
            begin
              MessageBox('Please choose what potion to make.', 'Error Message!', 0);
              Exit;
            end;
        end;
        if (Radios.ItemIndex = 1) then
        begin
          if (ComboBox[1].ItemIndex = -1) then
            begin
              MessageBox('Please choose what unf. potion to make.', 'Error Message!', 0);
              Exit;
            end;
        end;
        if (Radios.ItemIndex = 2) then
        begin
          if (ComboBox[3].ItemIndex = -1) then
            begin
              MessageBox('Please choose what herb to clean', 'Error Message!', 0);
              Exit;
            end;
        end;
      Result := True;
    end;
    procedure Save(sender: TObject);
    begin
      if (not(FormOK)) then
        Exit;
      WriteINI('user', 'name', Base64Encode(Edit[0].Text), ScriptPath + 'PlayerInfo.ini');
      WriteINI('user', 'pass', Base64Encode(Edit[1].Text), ScriptPath + 'PlayerInfo.ini');
      WriteINI('user', 'pin', Base64Encode(Edit[2].Text), ScriptPath + 'PlayerInfo.ini');
      WriteINI('user', 'world', Base64Encode(Edit[3].Text), ScriptPath + 'PlayerInfo.ini');
      WriteINI('user', 'pot', Base64Encode(ComboBox[0].Text), ScriptPath + 'PlayerInfo.ini');
      WriteINI('user', 'unf', Base64Encode(ComboBox[1].Text), ScriptPath + 'PlayerInfo.ini');
      WriteINI('user', 'Bank', Base64Encode(ComboBox[2].Text), ScriptPath + 'PlayerInfo.ini');

    end;
    procedure Load(sender: TObject);
     begin
       Edit[0].Text := Base64Decode(ReadINI('user', 'name', ScriptPath + 'PlayerInfo.ini'));
       Edit[1].Text := Base64Decode(ReadINI('user', 'pass', ScriptPath + 'PlayerInfo.ini'));
       Edit[2].Text := Base64Decode(ReadINI('user', 'pin', ScriptPath + 'PlayerInfo.ini'));
       Edit[3].Text := Base64Decode(ReadINI('user', 'world', ScriptPath + 'PlayerInfo.ini'));
       ComboBox[0].Text := Base64Decode(ReadINI('user', 'pot', ScriptPath + 'PlayerInfo.ini'));
       ComboBox[1].Text := Base64Decode(ReadINI('user', 'unf', ScriptPath + 'PlayerInfo.ini'));
       ComboBox[2].Text := Base64Decode(ReadINI('user', 'Bank', ScriptPath + 'PlayerInfo.ini'));

    end;
    procedure OnClick(sender: TObject);
    begin
      if (not(FormOK)) then
        Exit;
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      with Players[0] do
      begin
        Name := Edit[0].Text;
        Pass := Edit[1].Text;
        Pin  := Edit[2].Text;
        Active := True;
      end;
      if (not(Edit[3].Text = '')) then
        Smart_Server := StrToInt(Edit[3].Text);
      Make :=  StrToInt(Edit[4].Text);
      MForm.CLOSE;
      FreeBitmap(vials);
    end;
    procedure ExitForm(sender: TObject);
    begin
      MForm.CLOSE;
      FreeBitmap(vials);
     // Terminatescript;
    end;
    procedure form_init();
    begin
      MForm := CreateForm;
      with MForm do
      begin
        Width := 360;
        Height := 330;
        Caption := '---===HERBLORE PRO v1.5===---';
        Position := poScreenCenter;
       Color := 6872995;
      end;

      oLabel[0] := TLabel.Create(MForm);
      with oLabel[0] do
      begin
        Parent := MForm;
        Caption := 'Make Potions/Unfs/Clean:';
        FONT.style := [fsbold];
        Top := 10;
        Left := 10;
      end;

      Radios := Tradiogroup.Create(MForm);
      with Radios do
      begin
        Parent := MForm;
        Items.Add('Potions');
        Items.Add('Unfs');
        Items.Add('Clean');
        Top := 25;
        Left := 25;
        Width := 80;
        Height := 80;
      end;

      oLabel[1] := TLabel.Create(MForm);
      with oLabel[1] do
      begin
        Parent := MForm;
        Caption := 'Choose what to make:';
        FONT.style := [fsbold];
        Top := 105;
        Left := 10;
      end;

      ComboBox[0] := TComboBox.Create(MForm);
      with ComboBox[0] do
      begin
        Parent := MForm;
        Caption := 'Potions';
        Top := 125;
        Left := 10;
        Width := 110;
        ComboBox[0].Items.Add('Attack');
        ComboBox[0].Items.Add('Strength');
        ComboBox[0].Items.Add('Restore potion');
        ComboBox[0].Items.Add('Energypotion');
        ComboBox[0].Items.Add('Defence potion');
        ComboBox[0].Items.Add('Prayer');
        ComboBox[0].Items.Add('Crafting');
        ComboBox[0].Items.Add('Super attack');
        ComboBox[0].Items.Add('Super antipoison');
        ComboBox[0].Items.Add('Super strength');
        ComboBox[0].Items.Add('Super restore');
        ComboBox[0].Items.Add('Super defence');
        ComboBox[0].Items.Add('Ranging potion');
        ComboBox[0].Items.Add('Magic potion');
        ComboBox[0].Items.Add('Saradomin brew');
      end;

      ComboBox[1] := TComboBox.Create(MForm);
      with ComboBox[1] do
      begin
        Parent := MForm;
        Caption := 'Unfs';
        Top := 150;
        Left := 10;
        Width := 110;
        ComboBox[1].Items.Add('Guam');
        ComboBox[1].Items.Add('Marrentill');
        ComboBox[1].Items.Add('Tarromin');
        ComboBox[1].Items.Add('Harralander');
        ComboBox[1].Items.Add('Ranarr');
        ComboBox[1].Items.Add('Toadflax');
        ComboBox[1].Items.Add('Irit');
        ComboBox[1].Items.Add('Wergali');
        ComboBox[1].Items.Add('Avantoe');
        ComboBox[1].Items.Add('Kwuarm');
        ComboBox[1].Items.Add('Snapdragon');
        ComboBox[1].Items.Add('Dwarf');
        ComboBox[1].Items.Add('Torstol');
        ComboBox[1].Items.Add('Cadantine');
        ComboBox[1].Items.Add('Lantadyme');
      end;

      ComboBox[3] := TComboBox.Create(MForm);
      with ComboBox[3] do
      begin
        Parent := MForm;
        Caption := 'Clean';
        Top := 175;
        Left := 10;
        Width := 110;
        ComboBox[3].Items.Add('Guam');
        ComboBox[3].Items.Add('Marrentill');
        ComboBox[3].Items.Add('Tarromin');
        ComboBox[3].Items.Add('Harralander');
        ComboBox[3].Items.Add('Ranarr');
        ComboBox[3].Items.Add('Toadflax');
        ComboBox[3].Items.Add('Irit');
        ComboBox[3].Items.Add('Wergali');
        ComboBox[3].Items.Add('Avantoe');
        ComboBox[3].Items.Add('Kwuarm');
        ComboBox[3].Items.Add('Snapdragon');
        ComboBox[3].Items.Add('Dwarf');
        ComboBox[3].Items.Add('Torstol');
        ComboBox[3].Items.Add('Cadantine');
        ComboBox[3].Items.Add('Lantadyme');
      end;

      oLabel[1] := TLabel.Create(MForm);
      with oLabel[1] do
      begin
        Parent := MForm;
        Caption := 'What bank?';
        FONT.style := [fsbold];
        Top := 202;
        Left := 10;
      end;

      ComboBox[2] := TComboBox.Create(MForm);
      with ComboBox[2] do
      begin
        Parent := MForm;
        Caption := 'Bank';
        Top := 220;
        Left := 10;
        Width := 130;
        ComboBox[2].Items.Add('Falador East Bank');
        ComboBox[2].Items.Add('Falador West Bank');
        ComboBox[2].Items.Add('Varrock East Bank');
        ComboBox[2].Items.Add('Varrock West Bank');
        ComboBox[2].Items.Add('GE Bank');
        ComboBox[2].Items.Add('Draynor Bank');
        ComboBox[2].Items.Add('Al-Kharid Bank');
        ComboBox[2].Items.Add('Edgeville Bank');
        ComboBox[2].Items.Add('Catherby bank');
        ComboBox[2].Items.Add('Camelot bank');
        ComboBox[2].Items.Add('North Ardy bank');
        ComboBox[2].Items.Add('South Ardy bank');
        ComboBox[2].Items.Add('Yanille bank');
        ComboBox[2].Items.Add('North gnome bank');
        ComboBox[2].Items.Add('South gnome bank');
        ComboBox[2].Items.Add('Warrior guild bank');
        ComboBox[2].Items.Add('Fishing guild bank');
      end;

      Button[0] := TButton.Create(MForm);
      with Button[0] do
      begin
        Parent := MForm;
        FONT.style := [fsbold];
        Caption := 'Start Script';
        Top := 220;
        Left := 180;
        Width := 120;
        Height := 35;
        OnClick := @OnClick;

      end;

      Button[1] := TButton.Create(MForm);
      with Button[1] do
        begin
          Parent := MForm;
          Caption := 'Exit';
          Left := 200;
          Top := 260;
          OnClick := @ExitForm;
        end;

      oLabel[2] := TLabel.Create(MForm);
      with oLabel[2] do
      begin
        Parent := MForm;
        Top := 10;
        Left := 230;
        FONT.style := [fsbold];
        Caption := 'Username:';
      end;

      Edit[0] := TEdit.Create(MForm);
      with Edit[0] do
      begin
        Parent := MForm;
        Top := 30;
        Left := 230;
        Width := Edit[0].Width + 10;
      end;

      oLabel[3] := TLabel.Create(MForm);
      with oLabel[3] do
      begin
        Parent := MForm;
        Top := 55;
        Left := 230;
        FONT.style := [fsbold];
        Caption := 'Password:';
      end;

      Edit[1] := TEdit.Create(MForm);
      with Edit[1] do
      begin
        Parent := MForm;
        Top := 75;
        Left := 230;
        Width := Edit[1].Width + 10;
        Passwordchar := '*';
      end;

      oLabel[4] := Tlabel.Create(MForm);
      with oLabel[4] do
      begin
        Parent := MForm;
        Top := 100;
        Left := 230;
        FONT.style := [fsbold];
        Caption := 'Bank pin:';
      end;

      Edit[2] := TEdit.Create(MForm);
      with Edit[2] do
      begin
        Parent := MForm;
        Top := 120;
        Left := 230;
        Maxlength := 4;
        Width := Edit[2].Width + 10;
      end;

      oLabel[5] := Tlabel.Create(MForm);
      with oLabel[5] do
      begin
        Parent := MForm;
        Top := 295;
        Left := 10;
        FONT.style := [fsbold];
        Caption := 'World:';
      end;

      Edit[3] := TEdit.Create(MForm);
      with Edit[3] do
      begin
        Parent := MForm;
        Top := 290;
        Left := 52;
        Maxlength := 3;
        Width := 30;
      end;

      oLabel[6] := Tlabel.Create(MForm);
      with oLabel[6] do
      begin
        Parent := MForm;
        Top := 313;
        Left := 10;
        FONT.style := [fsbold];
        Font.Size := 7;
        Caption := 'Random member world if emty';
      end;

        oLabel[7] := Tlabel.Create(MForm);
      with oLabel[7] do
      begin
        Parent := MForm;
        Top := 245;
        Left := 10;
        FONT.style := [fsbold];
        Caption := 'How many to make:';
      end;

      Edit[4] := TEdit.Create(MForm);
      with Edit[4] do
      begin
        Parent := MForm;
        Top := 264;
        Left := 10;
      end;

      Button[2] := TButton.Create(MForm);
      with Button[2] do
      begin
        Parent := MForm;
        Top := 155;
        Left := 200;
        Caption := 'Save Info';
        OnClick := @Save;
      end;

      Button[3] := TButton.Create(MForm);
      with Button[3] do
      begin
        Parent := MForm;
        Top := 155;
        Left := 280;
        Caption := 'Load Info';
        Onclick := @Load;
      end;

      oLabel[6] := Tlabel.Create(MForm);
      with oLabel[6] do
      begin
        Parent := MForm;
        Top := 312;
        Left := 275;
        Caption := '~by neeger ©';
        FONT.style := [fsbold];
        Font.Color := 15236458;
      end;

      Image := TImage.Create(MForm);
      with Image do
      begin
      Parent := MForm;
      Left := 145;
      Top := 40;
      Width := 60;
      Height := 80;
      vials := BitmapFromString(60, 80, 'meJztmvmT2+aZ53+cWLYlS32p7+' +
            'Z9gRdAgCRu4j4IECRIgvfRt9Stq7vV3ZJ1WLYl+baTOBnf50wqqZ3' +
            'NJNmdzGRiz7FxbTazSWYqO3E8no33X9mXkhzbiizJkVOa2lrWt1j4' +
            'gXj5wYPv+7zv8wCr/+ft1f+v/3dVePM8cen4jGFNmtYDah7q2MabZ' +
            '1d++9ZdB/s8dd/7RrRSHzerQ3Jpr2jdI1jDtHgQZ+3/+sRdZ/s82X' +
            '920Ws6w2p1TKsPidW9nLWX0UZpufxXT911ts9T5T89ESi2Js2WK9/' +
            '0GK0pxRmWKqN8nn7syF1n+zzlHz/pLrcmrMaU3vAagLw2ptgHed1F' +
            'MMmS1H736btO+Gn13nnaeugwkrdm7fao3Rq3mlOF2rhRmTQq07w+h' +
            '5MQAucfWb7rnJ9WcaMvCQIrSYRuwmYpWir7i1VfwYY0LUIxQQRJIk' +
            'nt0spd5/y0rJPzEp/jcjRBM1mSgRkhTgshVohRVDibiaNoKBiUz/b' +
            'uOuenZWx3SYqgCZLMZGmCILMkkSGJbDaeTgNB8VgMTxZe2LjrnJ+W' +
            'vO5k02kzr3MEQcEwnYCZaIKOxZKJRAqB0TRa/s7Zuw55nTrvPu186' +
            '1ypXNQESWEZjcspOUYATiFwAsNSbPquE36eFENhaZIm8QyRTlOZDI' +
            '1nMDQWDGpPHr7rbDfU4i9eEGQuRxJkJpNCUzCKRJFkEopE/AFqrXT' +
            'X8W6o4oVDHJOjcYJOExSaJgZzLxmHokGfH0onl//t9btOeJ36731d' +
            'kAExKuYwgYY1Hq5YeEXBqGw4As16vTPmc//hlu/W5bW2I7eb/GKPX' +
            '1vmj64JJ47yx9aZxR5hWZDMJygq0fj+Q3+kf1dePJv76oPU09vcMz' +
            'viM9u5Jzc6//TNW5z1m1ePnO1unbC2t4qbJ/K72+rOtrK1KZ7cFI4' +
            'f5VeXqMU+U7YxfVFY/F8vfbm0K//+pnLm8KzRGAWbMakykTPHKHmI' +
            'FOfyav0nX73Jievf2do6oWwel7a3ld1deWfninbl3V3l5Ca3eYxeX' +
            '8EX+5lWHSk90vqSmX/zutDsjpid/Vpjv2Qf4Iv7aO0ekhvFaeXPz9' +
            'zkxMPnK0cPU9snpZ1tcWdHAti7V7BPboobx5hj6+T6KrG6gHcaiO0' +
            'g/f/+zJfJ/MHrQq87WuoNmfWDRn1Kq46phf2yPkHmCn/5yOee9e5T' +
            'y8vcymJ6bZXc2hBObklbG+Kxde7oWu7QMnVoiZxvpTrVeKMctUoRQ' +
            '4WMbfvLZP7fb3IL8+Ol9kGzMWM23EZ9XCs9IGrTvKBfOvZ5Z83vWv' +
            '12dnmeWFmglheIfjvTaWL1WqruwLVK0inHK0akaEaKVrhkQLoSkR1' +
            '24Zd/+qUAd955yj6/wjTao6XORL4xqzc8ZmNEs/fJ5jSnpGIkV9S6' +
            'v7dpX/jBxVYj3W+le61Mr53pttKNGlKvJqqVRBXQFmO2FS5agDlc0' +
            'MJFDVKkAEf7hXnpzoGXfv2K1rMVUWCKlTmr7inWXWbdXWiOa5UxxZ' +
            'okOSieQRPx/MPz11/pMbPdQK8KhLdZT1UqScuOVUuRuhUpWVHDCpv' +
            'FsJ4PmwqkihFRDtOEN52Zbn7/3B0yd999RhIFReAJlkEVGdbzkFEM' +
            'GEWfbPhJJoJicApJJSPi2fonZ330dv2ZJccBgUWBExp1tFlDGqW4Y' +
            'SH8lfD2ChE5nyLVOKnFWTnBCimKhTE2iaRDSGqGKaN3yNz7+2doiu' +
            'RYJkdRHEORJIlmmVSGxTJsBiUYOM0lYcjvMb955FOnPF6x0xU74dT' +
            'ghgNXbahsQzUrahqwUojYBhBE6JhL5mdF0cWJboZxsaSbgIPpYDw1' +
            'k866+j997g7NTOJZkefYHEOjKINidCoLRCVxMgo2wwiZShrPrH5yy' +
            'm/fKm0VqzZsF2NONeGUY1opbJbCTgEqalFVC1l6yNASCVsYyzcPqM' +
            '29QnkvX7gvpwxRxByZiKZmUvHx/FPXO+2L+jlri6okVip2TuKIbAa' +
            'Dk2gigUVhGEmmM2hcznz699XLS1YBsuxI2YKcUsIuRqViQDdDVZAi' +
            '9HBeDelyiFXQYK04ZjT3q437xMoe2fkKm3+A4afJdDA6B0fGYTm8+' +
            'OuX7wS78eMn8ptdSVU4hWN5hsGzTDbDZLMEkfHHIkEe+90vVz54rb' +
            'qq5k2QEMJlEyrpUCEPqWZQzgcLerggRTQlKHMhUiTcNcdrNuZ0Z1J' +
            'rjqj1vVxpTCh6aCoS8caC4z7PgYV/vtOk5zx/Ehiao4hcJptD0RyM' +
            '4LFYPBgMenxxJvXJhP3Bo6oEG1oob4QsM2KqYUuFJCUkaQFVChpCW' +
            'GT9eSliVgqeWjdQsMOFkteszRrNCb02xZsQLzAsmY2Hcoel5Q/vaI' +
            'O6/OtXhUYxx1A8KJuzOI1iwB7pWDwOhYM+bygaqH3/kWtG+ucX9MW' +
            'CpkG6GlKVoKIES0xU5MKU4BelgMgFJN7frRLd+Zqr2potVWeL9Rmj' +
            'MZlvTmjNSb4AcaKq8paarb14pyVt573nKJbO5OgMRcB4JoqjkTQMo' +
            'bA7EnD5PdNeF/dof/Wja+3N5fdfNQ4rqhwReb8sB00qIuZCpODjhQ' +
            'DLept18uhKsderh6qtsYIzbjbHAbDenlQbLsGMi6KoswIds55cvxP' +
            'glY/eIs/WPXrSJcNuEfXl4AABh/FUBEt44OBEyD0SmhxJuz9zyoev' +
            'F7YcmvHlxAAjBAQxkMv5hVyQJlztBrm6VF3oO42WLTUqvFOknRJtF' +
            '2hLZUwxpwo5gUXi0fwzd8Tc+LsnAyI6LiXHlcy4REwy+DSBz+LYbC' +
            'oxGvXsD0/vi04eiE0b//mzu7uP3q6+dEI/W8XlEMH6M9gMRXiI9Fy' +
            'rzs53i/WqVa9YZtM26yXdKeoVUy0ZmqYKQi4ZC8NM6k6qrZXfvolv' +
            'lKfFzFheHC3ow6o+IiqjvDJKcyM4fn8K+krcvSc5cS80Tl248e536' +
            'f1X5n/xDfPxBeOJboaP5Atcxc6XKvliMW8B0qJqaoqqSbLM52gigy' +
            'TigaB5Z2auvfPYrITOFuUZpz5s1oe1yn65OMSb+yj5AM0OkZk9Cdc' +
            '90Yk9oVG/Qy6+/8rNR1v6zSv5y/OSKlbLllMpFE3B0FhZJCWeZKhU' +
            'Bo5TGVTaaYE95J0wi8+uTAmwq1ycKHf3qbVhGag6xNsPUNoQI47R5' +
            'J7gFPDGvYHR+8Jjnf/5/O2M2frREzSBG6pi6LxhCEZeUCVWzGWpdD' +
            'oejbT+7o6aur1/+kZAS41z8dmSNeX0xozWDJjj+faE1hjnyzO8OU3' +
            'Ro1HvSGR6f3Bsb/hg5+e3xbz48z+VgXFJkqYyYFUlMDibisNxKBoK' +
            'egI+8ZHF36WgL+7kt4QLixNMcErLJPrtmXJj2mpOW7VJoz6pNyel2' +
            'lTO8LEipnIoAw+HJ/b6x9Czzu2MvPTLF2VJzFEESxHZNJbBkAwKdo' +
            'YxwOz3ed2uOfvbNyvWbqLlf3/Dr2BeOYktFpOLLVel5irWJ0vORMG' +
            'ZNBoTSm2CK3g5CVNEXmNnEC/wRnRVuZ2RO9+9KPE8T5A5AiczGRzN' +
            'UnCKiCcSkXDA4/F73MxW7Q9jVt44OcHHmLZaXK1r8xWyVobs6txg5' +
            'apOm2WPWgjwEiIrmCSkRWoc9twTGt0Hz7R/9rVb3L4PXjf7VZYAm1' +
            'uWwXEqA7wBsNF0Mh4PA3P4Qh6/z+UqvLj5BwQ5vWOPckG6rVSWHKt' +
            'bUZqVbM1BHDvpVOBKGbUtsqAzeZlUcgkGG4pM3+Mf2RMYVV67RZpq' +
            'vn1OAFtxGnwoOpsl0+ksls6mESwZj4WCQZ8v5PWF5vz04S/cxFt8/' +
            '9VRHhrK+fG2pHcLSqOg1G2xZvF1na3k6YbBVfJCSREUmuCwEBYYiY' +
            'zf6x+9xz86V7hZibH8/mv5RpGhKBaIIFgcx7GrfoaxJDxg9vtCfl/' +
            'Q5fW63Y2//QLPDUF6zD7c2s8H9+f8aJVV2rpZN5WaKduKavO5osCZ' +
            'nGCJgsZwMglnoIPhyaHg+H2BMYDta9I3GVk/3GBpimdzbIakwFZ2E' +
            'GQsnUqmEcCcuMYc8AXcXp/bHUxC8//ywm0yW987P8QE9ub8Q7nABB' +
            'tA1LTZLZR7ZauqWxVJKgiMyeTyAq/ksrmsO+EfDU0C2qvaj7qqP37' +
            'shsP2f/gEy9I8ReUIggYRvgJ8hRlJp2A0GY8Gg+GAH8Q55PP5XR7P' +
            'nEs4dbudpeg6WC/8B1j/EOUdys6Nox7WFsu9YqFu5R1TqepCSWPzC' +
            'iUw8SwymwztC07eGxzfFxjb4x/d4xspfu8G3cLlD16XWhZHglxBAA' +
            '3SRTqdSWN4KpVNIRgCp+LxZCQMQh0JBgBz0O31zs4iOrX84Ru3BG7' +
            '85OkpIzFEeoYI9zDhPpCe8QsJrV/KNwzgDd5WyIJE6iLJMxhNxDAk' +
            'kILuD0yAdXBP6AqzdyS2coOMB7I9L+TYj5kHrkhjWTidQUDdnsgiG' +
            'CjWEuEQSNGDUAd8QY/XP+v2zbmKb5+6JbPxFw8eALSkZyzrOoi7h9' +
            'BZtMJqXVt3TK2sMCWFNERCEwiBIhjwt/FIJjGemL3XPwIm4B7/GIj' +
            'zGO7//WFrr5xiGZIhcJbESTyTTqMgvBkYuCKFwgkshcAxKB4JQqFA' +
            'JAimoQd4A2D7PHORBNT40eM3ZwZ7BvLx3mTWP552D+PuvegM2hDZv' +
            'sk5+Zyt87bMWDxpcqTGY0waxuMxIuVFofv84/eEx77i2X+Pe9hjXP' +
            '9Mp/+Tr3I4zeOMgOX4JCsmOS7OCnGWjVJMhKIgnIpmiTCKheCkPxo' +
            'J+YKA2e0ZzMQZd2DOl3/26O1YuvidMy4quj8+FdJT3IIptwtCxVAc' +
            'TawobIlnCxytM2k2DRNoFIfjGfhAYPxPwiN/4t0/pSDtn362tfvRW' +
            '9qJNp8R5LRkIFohni9A+ULEADIiugFpeVDXhkQ5JLABCg+lsXASDs' +
            'Ti/kh0Lhx1h4NTgRiKLP3m1dvB5i4vBfGo2TXLbcsq6batF2xNKMs' +
            'cYDbZnEriQhbPIVkylqWS/oRrr3/0Pt9I7e+fvG6c3o+eUjKyjiml' +
            'VMFB7BpSriOVWrLSgKsObDtIqZIslWOlYrQwgI9KYlTIQQwdpsgQT' +
            'oTTKU8Smg4Xn7utHTVYCu2vnzBKumFp+WK+YOm8qWUNGTcF3OQIjc' +
            'YEHOOwTA7JMAkkHUvWWfX1zd/fkpUXFwtJvZg063CliTitVH0+3V5' +
            'Id/pYq4c2e1irgzbaqXoTqTnxcjletCAzD+kKJIshjgvRZGCQm4qX' +
            'P7f1ep3YqpHm+aQohfhcWBRDspoo2alyOVowgzLvy5F+Mh0k0GAGg' +
            'TIJ7dINXgxY/sVLFcGpwnYNrgCwPgo4W0vZ3jLeB9+r5Dw4WCb64G' +
            'AB64AL6aQaLaRWi1eKUVOPqHJYEEJsxoXiyM2Wqk9NnK/TjWaq2Uu' +
            'vrCOHjsaX1+OLh7Nrm9jaZmz5SLR/KNLoh0pVlyKPZvGxeMyHJvs/' +
            'v/7ZSuv8xhXgKgAG8QRUi+nuUqa3Qs6v0PPr/MpR8dCasHxYXFqiu' +
            'ot4B9wCcF3NZK0cLZWilhpRlLDI+PFM8Dae1YKJc2FTOHkms3M+uX' +
            'M+uHUuvH0utnE6snE6dPwUdHzXu37Su3Q0sHwEml/11HuQ7UxjafL' +
            's9U22Al9wUuVGyhkEGWsBWhDeFWp+Ce8dYhdPN3cv9M6f65052z+9' +
            'W99aM5bnyU41Dq6xbEeLhaghh0U+ROMeTChZt2Tu/virwtEN+ORZ7' +
            '87DnlMX/acvhncfiu5egE4/HNw+798+5zpxynNke+7wpnv5qGfpiL' +
            'e16DFLqYYB1rvPmHljtQxbdaTaQJwO2gTYfazdw5oL2e7pyu7DSw+' +
            'dWzpzenFnZ/Hk7sL26aWdDefIktSrwBbIJ2pYAabkQmQ2kGl87/It' +
            'Z592YZs59RB05lHP7kX37qOhM5fgc5eRc5eT5y/HHnoMOnspeOph7' +
            '9ZZ3/Fd16ETrsX1qebiXK0bAanl249cd7+czXUrZVRTZQcuA69eSR' +
            'flE6VjZ3tndnvbJ+c3tuc3N+ePH+uub/SOnWivn+wcd4iSFpaVsJQ' +
            'LUHSCrn3rwi2DbP/lY8LxLfj0oyC8gQcvhs9djl94LHnhMhAAjgNd' +
            'GGAHts4GNh8EJplbPjrdPzTeXJhzWnCvtfCv11ffzqUNQ7LNpFZMm' +
            'JVUcUntn1rY2ege3+wfP9E7eqyzfrxz5Gj78NHW2npj9UjrUF2rqm' +
            'EJzD4+xbV+cOMd12eC/G9v8Kc30bUNePfh6IMDZujMxehDjyUuDHS' +
            'VGTp3Obh7AZgkcOKUf23LvXxkurMy2VqcsRtuOQ8v3aAqXPqXl6vP' +
            'bZMhcrWwuNU+ATiP9dePtdaOdtbWm4cA55HmoUWnf6i+BL4PO8sWm' +
            'qcxtve3z95Ouih+65H40mHXwpr/2HbszMX46YvwmUvQmUuRMxfDD1' +
            '4MnX40tDuwtG/zwcDG6cD6ycDhTd/y0ZnOymyjP1tu7af4SYbjvn7' +
            'ihoO3evML5e5Sbb5bafacdr/aWaz1Fird+Upnodrr2q1eudUpNdt2' +
            'Q6LF/k9uUaZdG/OdZ5FqbbKzOrewPrN8JLC2lTx5PnnyHJh9vp2Hf' +
            'Nvnw1tngB8CJ077ju341ja9K8cAsKd/2Nta9lY6o3LxXorfi+H7og' +
            'n1tZ3rBu+8fqZaKReUfCGft/L5omna+UKtUK4XqnWzUjPKdaPqGGW' +
            'gsmGpmtJ772aPdz+eL2+br5yHau3x1tJU/9DM/CFX/5AHBHxxPby2' +
            'Nbu26VnbCh/ZDh4/FTi2Ezi04V5ad/VXXcAS1c6c2ZjRq6OCfi9O3' +
            '4tl7osmMiean7SDPnq79OxxXVNlRdYGkmRJlCRBEUSdl01FM2S9oO' +
            'YtFSy5ui4pCi/xDKMcdm7Z6ABbXKTddDnNqfr8VGNhurU021r0dpa' +
            '99fm5xvxkc3Ea4LWW5rorns7ydHNh3G5PWM6YUTmo25OyNSXmRxnh' +
            'fgy/H0EfCMUm08j8r649c5//b1/TCnlFkVUVxE9WJFGRJVkWZV4SW' +
            'U6gWZ6mcwQQxZEUh5MUnh1UBzTd+KtbpDjAHGk2Dhbr3nILJK7JWm' +
            '/K6c45bV+t63ba00532mlPOp3JcnOy3Joo1idKtQm9OK4WJqT8JK9' +
            'N5OQRnNmXTO2LxMZSSeFr1zaQS+89bzcr+XxelSVdlsA3CPJAoijx' +
            'OVAbcqDaomkOBzUXDqpaKpuhMhlwwOA418rfvEEKmKH5Ngiax6jNF' +
            'esHi7Ux2xkvOTNFZ7pQnS05k2Z53HIm7PpE0Rk3SmNmYUzRx3h1NC' +
            'eO0PwolTuAZR+IJiZQRH3zWnGx+O6zlYaT17S8ppqqIovCgBZEmAN' +
            'BFgSW5nIMYAb1C0uROZLEicHLSvjgfaUsOyjB0p13bvEGbOd/fAPr' +
            'O1NaaSpfHTdL46Y9opfG8mVwPG2UJg1ryjDB92TenDCMMUk9mBPHW' +
            'fEgmbs/i9+PZw6kUnMM3v7Zta7d0t88XawUVQ18lKvhVQY2FgUR4O' +
            'ZyPCMwlEAzOeJawTVo0VwpxgflLShkMASUutLp7i1nYv8XLyaXu9O' +
            'iPqOak6o5iKSsjUn6mKhf+VbBwUFRGxO1IZYfoXLDBDOcIfeh2H0J' +
            'eDgW55+/luXmv3vJLhdkXdV1La/IuiJfs4QkikIOlIYsQ/EgzgwJg' +
            'syBSjybHfSUMhlQiWdQFL/S9CAwlMpRnX+8dZae/9Ur4lPH3SI/Tj' +
            'BjFHuQ4Q+ywsGcMMoKIww/zPBDzMAMBwjmAEYeQLN7E6l9UXg4ElF' +
            'fvZbfun9+wTKNvK7JmgQm3SceHkgQOZZnwYfiGZqjyKsRvlqJE+lM' +
            'BksBgToxPSjGY6lEvPzy9u0kaiCwBAvPHHMLzGgmO4qkR7HsMIYPZ' +
            'Ukw0Yaz1DBODWHEA0l0Xwx+AEpMwLD93Yevnth++XQhr5uapquqqE' +
            'q6DowhfxxhjmMolmFz9MDA7BVgMpP9uNcBUBEsmQCoaCKORCEkFo0' +
            'E/OFM4gt1dxfff7X/q5eUl7azZxeyD/bHs+lhGDkAxYfiyBCUAIJY' +
            'Xm73Wcus/fDyyodvVJ89LrI5SeCv5OEBKsgOILKDuTbgpAAnqL7p7' +
            'KAnM4jtABVJIwiaGKDC8Sgci8KRcCwcGigU9Hk9xErhD+5IX7HNS9' +
            '1fvsA9d5TYbiMCrzZqulNTyuVSyRZ4Ic3iRBpjCAJkV5ED5DmBYzm' +
            'QxyjiqgcGTcXsVdOigzZdKoUm42gylopFESgCUJNQOBq+1k0Kej1x' +
            'ClYuLv3BtNep9e5TBM9qoEocrMJGo1qrVSoAGEsmswgCZtMgu1LAs' +
            'QzgB5dCf9ydG9Cm0HQqkUpE0VgMjkHJWCR5JbAANXK19xUJsmtl8/' +
            'n1xX+9o0fe10neaIZ8XpamqiW7ZldatWqv2crLSizoB1YEGsz9dJr' +
            '+Xe4aZANk0EuEY6l4HIYgOBKJX7n7ABUImCDg85BNvfoXD/V+dlvP' +
            'OL6orG+eiEKDf+RYxraspmM7ZWCRAgYnosEAuMXAlhgMA8iBUQfvI' +
            'cSTiSgchWKRSDg06BfRfZNeLEhnuiCVXVX7H7/Ml75+X8sfvoGhKR' +
            'iKgGleKVjlouXYdr1sKzwHBfxgysPxWBIaRHKAGPAF/b6AxxNFovx' +
            'WA/iq/Q9/XLwbCiz01vMbOJYGNxosslZeBzJ1TVckKBQKeNx+j8sz' +
            'NwurZOn17cbfXK7/9WP1H17q/vS2tsR/VIEdZgYbvGNwdeEYvLakC' +
            'GD2uedmkQJtf/s/3Nvjq4NXaF6VFmywKzN0TeB5sAoTeFZoF5z/cv' +
            'Gus91Eyx+8JleNAqg/2kWuqhZfPrn0/m31A7+o/i8dLN0W');
      getbitmapsize(vials, w, h);
      DrawBitmap(vials, Image.Canvas, 0, 0);
      end;
    end;
    procedure ShowFormModel;
    begin
      MForm.ShowModal;
    end;
    procedure MakeForm;
    var
      V: TVariantArray;
    begin
      ThreadSafeCall('form_init', V);
      SetLength(V, 0);
      ThreadSafeCall('ShowFormModel', V);
    end;
    procedure SecondItem(Item: String);
    begin
      case Lowercase(Item) of
       'red spider egg':  Second := DTMFromString('mbQAAAHicY2VgYMhkZGAoBuICIE4H4iQg3gcU3wHEh4H4KAOEP0FOFEgyoWBWBkzAiAWDAQAiWgax');
       'eye of newt':     Second := DTMFromString('mbQAAAHicY2VgYJjCyMAwDYjnAvEEIJ4OxLuB4ocZIPR+IN4OxBLSS4EkEwpmZcAEjFgwGAAAdN4Hkg==');
       'unicorn dust':    Second := DTMFromString('mWAAAAHicY2FgYDjEyMBwFIj3APFhIN4PFNsGxIeB+CgQtxfbAEkmMDY2NmZgZUAFjGgYBAD+2wfo');
       'potato cactus':   Second := DTMFromString('mWAAAAHicY2FgYDAHYgcg1gFiWyB+DcQPgfg9EH8EYvcAXSDJBMesDKiAEQ2DAABSgQVk');
       'limp':            Second := DTMFromString('mWAAAAHicY2FgYIgH4mwgjgXiSCB+CcRfgPgxEL8B4rIMVSDJBMesDKiAEQ2DAACQkQZD');
       'snapegrass':      Second := DTMFromString('mWAAAAHicY2FgYEgE4iQgjgbibCB+CsR3gfgLEL8HYv5cayDJBMesDKiAEQ2DAACBFAX5');
       'chocolate dust':  Second := DTMFromString('mWAAAAHicY2FgYNgFxIeAeDcQbwLiV0D8DIg/APE7IPbUEgOSTHDMyoAKGNEwCAAA5mEHNA==');
       'crushed nest':    Second := DTMFromString('mWAAAAHicY2FgYHgOxM+A+B4QfwLiV0D8CIjfQ7GluRGQZIJjVgZUwIiGQQAAIKMH/Q==');
       'whiteberries':    Second := DTMFromString('mWAAAAHicY2FgYHgMxDeh9EsgfgfF34D4BRAf3bsHSDLBMSsDKmBEwyAAAHB5CZQ=');
       'zammy wine':      Second := DTMFromString('mbQAAAHicY2VgYHBkZGCwh2JvIDYB4tdA8dtA/B2I3wPxOyBOS0wEkkwomJUBEzBiwWAAACwPBx0=');
       'frog spawn':      Second := DTMFromString('mbQAAAHicY2VgYOhgYmDoBeIaJgi7CYgfMjIwXAHiG0D8FIgfA3FmYQRQNSMKZmXABIxYMBgAAKC/CEU=');
      end;

    end;
    procedure ItemDTMs;
    begin
      if (Radios.ItemIndex = 1) then
      begin
        First := DTMFromString('mWAAAAHicY2FgYDjEyMBwGoh3AvFRIJ4HFFsIxIuBeBoQZxeBeEwMZbUbwDQrAwTAaEY0DAIAHd0Ivw=='); //Water filled vial..
        case ComboBox[1].ItemIndex of
          0:       Second := DTMFromString('mWAAAAHicY2FgYNAAYlMg1gZiWSD2A2I3IA4B4gAg5nTgApJMcMzKgAoY0TAIAACSLAJE'); //guam
          1:       Second := DTMFromString('mWAAAAHicY2FgYAgB4kQgjgFibyD2BWI3qHgwEHP78gBJJjhmZUAFjGgYBADNnwMO'); //marrentill
          2:       Second := DTMFromString('mbQAAAHicY2VgYGgC4l4grgPiciBuBmI/KA4D4kAgdgNi3hhtIMmEglkZMAEjFgwGAJY9BLw='); //tarromin
          3:       Second := DTMFromString('mWAAAAHicY2FgYNgHxHuAeD8QHwPiZCDOBeJoIM4AYtc0PiDJBMccDKiAEQ2DAAB0SQVi'); //harralander
          4:       Second := DTMFromString('mbQAAAHicY2VgYLgBxE+B+A4QnwPi20DsB8QeQBwCxEFA7ALEBg6cQJIJBbMyYAJGLBgMADTfBlM='); //ranarr
          5:       Second := DTMFromString('mbQAAAHicY2VgYBBjZGBQAGIpIBYBYm4gTgWKxwBxNhDnAnEWEHPKcQFJJhTMyoAJGLFgMAAA2J0CwA=='); //toadflax
          6:       Second := DTMFromString('mWAAAAHicY2FgYLBhZGBwA2JrIDYA4jSgWCYQFzBA2LaxGkCSCY65GFABIxoGAQDavwNx'); //irit
          7:       Second := DTMFromString('mWAAAAHicY2FgYHjGyMDwGYjfAfEdID4BFDsMxOegOEpbA0gywTErAypgRMMgAAAGwweP'); //wergali
          8:       Second := DTMFromString('mWAAAAHicY2FgYBBmgmBpIOYB4pNAsX1AfB6KBYxlgCQTHLMyoAJGNAwCAPMpA+0='); //avantoe
          9:       Second := DTMFromString('mbQAAAHicY2VgYDjAyMBwHIj3APFBID4GxOlA8SwgzgbiPCBOBWJdc3YGF18uBmMrDgY3f24GNX02BlagODpmxILBAAChlQh4'); //kwuarm
          10:      Second := DTMFromString('mWAAAAHicY2FgYLgJxA+g9EUgVmRiYFABYg0gVgJirxBuBnNnTgZ9S3YGFR02BnagGmTMiIZBAACMVQYQ'); //snapdragon
          11:      Second := DTMFromString('mWAAAAHicY2FgYEgB4lQgzgPidCCeAMQzgHgKEHcAMbsJB5BkgmNmBlTAiIZBAAAbbwQ3'); //dwarf
          12:      Second := DTMFromString('mWAAAAHicY2FgYJgIxFOBuB+IJwFxHxBPh+I2IOby5AGSTAzcvrxgmpkBApigNCMaBgEAZP8FXw=='); //torstol
          13:      Second := DTMFromString('mWAAAAHicY2FgYJjGyMDQB8RTgXg2EL8Cir0D4g9A/AaINfSlGAzMJRjM7KUZbN3kGFiBYsiYEQ2DAAD/aghK'); //cadantine
          14:      Second := DTMFromString('mWAAAAHicY2FgYLBlZGCwA2ILIHYF4ldAscdA/AmI3wMxh70JkGSCY1YGVMCIhkEAAEyMBTk='); //lantadyme
        end;
      end;
      if (Radios.ItemIndex = 0) then
        begin
          case ComboBox[0].ItemIndex of
            0:  begin
                  First := DTMFromString('mWAAAAHicY2FgYNgFxAeheAsQTwfieUA8CYgnA3HLjJlAkgmOmRlQASMaBgEA0aEHEQ=='); //attack
                  SecondItem('eye of newt');
                end;
            1:  begin
                  First := DTMFromString('mWAAAAHicY2FgYBBmZGAQBGJJIOYC4ulAsQVAPJkBwp46tRFIMsExMwMqYETDIAAAAyAEaQ=='); //strengt
                  SecondItem('limp');
                end;
            2:  begin
                  First := DTMFromString('mWAAAAHicY2FgYLBnZGBwA2JTIHYE4hlAsWlAPAuIFwDx9JZmIMkEx6wMqIARDYMAADj5BRk='); //restore potion
                  SecondItem('red spider egg');
                end;
            3:  begin
                  First := DTMFromString('mWAAAAHicY2FgYLBnZGBwA2JTIHYE4hlAsWlAPAuIFwDx9JZmIMkEx6wMqIARDYMAADj5BRk='); //Energypotion
                  SecondItem('chocolate dust');
                end;
            4:  begin
                  First := DTMFromString('mWAAAAHicY2FgYMhiZGDIBuIiIE4G4ilAsQVAPA2IpwJx8/RmIMkEx6wMqIARDYMAAGwiBb4='); //Defence potion
                  SecondItem('whiteberries');
                end;
            5:  begin
                  First := DTMFromString('mWAAAAHicY2FgYMhiZGDIBuIiIE4G4ilAsQVAPA2IpwJx8/RmIMkEx6wMqIARDYMAAGwiBb4='); //Pary
                  SecondItem('snapegrass');
                end;
            6:  begin
                  First := DTMFromString('mWAAAAHicY2FgYDAEYnMo1gDio0B8Doj3A/FJIJ4+rQlIMsExKwMqYETDIAAAVwkFpQ=='); //Crafting
                  SecondItem('frog spawn');
                end;
            7:  begin
                  First := DTMFromString('mbQAAAHicY2VgYNjHyMBwFIgPAvFWIN4OxLOA4jOAeDEQzwPi6UA8YQKIZALjyZNngWkOBkzAiAWDAQAgdgpP'); //Super attack
                  SecondItem('eye of newt');
                end;
            8:  begin
                  First := DTMFromString('mbQAAAHicY2VgYNjHyMBwFIgPAvFWIN4OxLOA4jOAeDEQzwPi6UA8YQKIZALjyZNngWkOBkzAiAWDAQAgdgpP'); //super anti
                  SecondItem('unicorn dust');
                end;
            9:  begin
                  First := DTMFromString('mWAAAAHicY2FgYOiH4jYgngHER4F4HRCfBOJjQDy5pwdIMsExKwMqYETDIAAAwSsG/Q=='); //Super str
                  SecondItem('limp');
                end;
            10: begin
                  First := DTMFromString('mWAAAAHicY2FgYNgJxYeBeDMQHwHiM1D6IBD3ZGkDSSY4ZmVABYxoGAQA35sHMg=='); //super restore
                  SecondItem('red spider egg');
                end;
            11: begin
                  DTMFromString('mbQAAAHicY2VgYNjLyMCwD4i3A/ERIN4DxJ+A4neB+D0QvwXi30C8cEo3kGRCwawMmIARCwYDAENXCjU='); //Super defence
                  SecondItem('whiteberries');
                end;
            12: begin
                  First := DTMFromString('mWAAAAHicY2FgYHgOxe+B+AEQHwbiM1D6ABB3TpwHJJngmJUBFTCiYRAAADPBCHs='); //ranging potion
                  SecondItem('zammy wine');
                end;
            13: begin
                  DTMFromString('mbQAAAHicY2VgYEhhZGBIBeJcKI4F4k9A8btA/BGIfwLxdyBePL0XSDKhYGYGTMCIBYMBAKNWCJI='); //magic potion
                  SecondItem('potato cactus');
                end;
            14: begin
                  First := DTMFromString('mWAAAAHicY2FgYBBmhGBJIOYG4iNAsTNAfACIDwLx0pn9QJIJjlkZUAEjGgYBADXIBUA='); //saradomin brew
                  SecondItem('crushed nest');
                end;
          end;
        end;
      if (Radios.ItemIndex = 2) then
        begin
          case ComboBox[3].ItemIndex of
            0:       Second := DTMFromString('mWAAAAHicY2FgYNAAYlMg1gZiWSD2A2I3IA4B4gAg5nTgApJMcMzKgAoY0TAIAACSLAJE'); //guam
            1:       Second := DTMFromString('mWAAAAHicY2FgYAgB4kQgjgFibyD2BWI3qHgwEHP78gBJJjhmZUAFjGgYBADNnwMO'); //marrentill
            2:       Second := DTMFromString('mbQAAAHicY2VgYGgC4l4grgPiciBuBmI/KA4D4kAgdgNi3hhtIMmEglkZMAEjFgwGAJY9BLw='); //tarromin
            3:       Second := DTMFromString('mWAAAAHicY2FgYNgHxHuAeD8QHwPiZCDOBeJoIM4AYtc0PiDJBMccDKiAEQ2DAAB0SQVi'); //harralander
            4:       Second := DTMFromString('mbQAAAHicY2VgYLgBxE+B+A4QnwPi20DsB8QeQBwCxEFA7ALEBg6cQJIJBbMyYAJGLBgMADTfBlM='); //ranarr
            5:       Second := DTMFromString('mbQAAAHicY2VgYBBjZGBQAGIpIBYBYm4gTgWKxwBxNhDnAnEWEHPKcQFJJhTMyoAJGLFgMAAA2J0CwA=='); //toadflax
            6:       Second := DTMFromString('mWAAAAHicY2FgYLBhZGBwA2JrIDYA4jSgWCYQFzBA2LaxGkCSCY65GFABIxoGAQDavwNx'); //irit
            7:       Second := DTMFromString('mWAAAAHicY2FgYHjGyMDwGYjfAfEdID4BFDsMxOegOEpbA0gywTErAypgRMMgAAAGwweP'); //wergali
            8:       Second := DTMFromString('mWAAAAHicY2FgYBBmgmBpIOYB4pNAsX1AfB6KBYxlgCQTHLMyoAJGNAwCAPMpA+0='); //avantoe
            9:       Second := DTMFromString('mWAAAAHicY2FgYJjGyMDQB8RTgXg2EL8Cir0D4g9A/AaINfSlGAzMJRjM7KUZbN3kGFiBYsiYEQ2DAAD/aghK'); //kwuarm
            10:      Second := DTMFromString('mWAAAAHicY2FgYLAEYhcgtgFifSCeBMTdQDwdiKcBcUg8H0NUGh+QxQTGrEAShGGAEQ2DAAAlggTY'); //snapdragon
            11:      Second := DTMFromString('mWAAAAHicY2FgYEgB4lQgzgPidCCeAMQzgHgKEHcAMbsJB5BkgmNmBlTAiIZBAAAbbwQ3'); //dwarf
            12:      Second := DTMFromString('mWAAAAHicY2FgYJgIxFOBuB+IJwFxHxBPh+I2IOby5AGSTAzcvrxgmpkBApigNCMaBgEAZP8FXw=='); //torstol
            13:      Second := DTMFromString('mbQAAAHicY2VgYJjCCMELgXgyEHcB8Vug+GcgfgnE94H4FRDrm8sBSSYUzMKACRixYDAAAKIaCBg='); //cadantine
            14:      Second := DTMFromString('mWAAAAHicY2FgYLBlZGCwA2ILIHYF4ldAscdA/AmI3wMxh70JkGSCY1YGVMCIhkEAAEyMBTk='); //lantadyme
        end;
      end;
    end;
    procedure EndScript;
    begin
      Report;
      Logout;
      FreeDTM(First);
      FreeDTM(Second);
      Terminatescript;
    end;
    Procedure CleanHerbs;
    begin
      case random(100) of
        0..50:  begin
                   for i := 1 to 28 do
                     begin
                       InvMouse(i, 1);
                       Wait(10 + Random(30));
                     end;
                end;
        51..100:  begin
                    for i := 1 to 4 do
                     begin
                       InvMouse(i, 1);
                       Wait(10 + Random(30));
                     end;
                    i := 8
                    for h1 := 1 to 4 do
                      begin
                        InvMouse(i, 1);
                        Wait(10 + Random(30));
                        i := i - 1
                      end;
                    for i := 9 to 12 do
                      begin
                        InvMouse(i, 1);
                        Wait(10 + Random(30));
                      end;
                    i := 16
                    for h1 := 1 to 4 do
                      begin
                        InvMouse(i, 1);
                        Wait(10 + Random(30));
                        i := i - 1
                      end;
                    for i := 17 to 20 do
                      begin
                        InvMouse(i, 1);
                        Wait(10 + Random(30));
                      end;
                    i := 24
                    for h1 := 1 to 4 do
                      begin
                        InvMouse(i, 1);
                        Wait(10 + Random(30));
                        i := i - 1
                      end;
                    for i := 25 to 28 do
                      begin
                        InvMouse(i, 1);
                        Wait(10 + Random(30));
                      end;
                  end;
      end;
    end;

    function Bank: Boolean;
    begin
      FindNormalRandoms;
      if (Failsafe = 3) then
        begin
          WriteLn('Out of supply?');
          EndScript;
        end;
      if (not(BankScreen)) then
        begin
          if (not(OpenBank(WBank, False, False))) then
            WriteLn('Error: Cant open bank');
            Wait(200 + Random(300));
        end;
      if BankScreen then
        begin
          Wait(100 + Random(200));
          FixBank;
          if (not(InvEmpty)) then
            DepositAll;
        end;
      if (Radios.ItemIndex = 2) then
        begin
          if (not(WithdrawItem(Second, 'dtm', 28, 'a', []))) then
            begin
              Result := False;
              exit;
            end;
          Wait(300 + Random(200));
        end;
      Wait(100 + Random(200));
      if (Radios.ItemIndex = 0) or (Radios.ItemIndex = 1) then
        begin
          if (not(WithdrawItem(First, 'dtm', 14, 'a', []))) then
            begin
              Result := False;
              exit;
        end;
        Wait(500 + Random(200));
        if (not(WithdrawItem(Second, 'dtm', 14, 'a', []))) then
          begin
            Result := False;
            exit;
          end;
        end;
      Wait(100 + Random(200));
      WaitFunc(@InvFull, 50, 4000);
      if (not(InvFull)) then
        begin
          Result := False;
          exit;
        end;
      WaitFunc(@CloseBank, 20, 5000);
      Wait(100 + Random(200));
      FindNormalRandoms;
      Failsafe:= 0;
      Result := True;
    end;
    function func_wrapper: boolean;
    begin
      result := FindText(x, y, 'All', UpChars, 350, 350, 430, 375);
    end;
    function MakePotions: Boolean;
    begin
      if (not(InvFull)) then
        exit;
      if (Radios.ItemIndex = 2) then
        begin
          CleanHerbs;
          Result := True;
          exit;
        end;
      if (FindDTM(First, x, y, 600, 320, 690, 355)) and (FindDTM(Second, x1, y1, 600, 320, 690, 355)) then //finds DTM
        begin
            MMouse(x, y, 10, 10);
            Wait(100 + Random(50));
            ClickMouse2(True);
            Wait(100 + Random(200));
            if ItemActivated(14) then
              Mouse(x1, y1, 10, 10, True);
            Wait(500 + Random(200));
            WaitFunc(@func_wrapper, 20, 500);
      end else exit;
      Mouse(255, 430, 15, 15, True);
      Failsafe:= 0;
      repeat
        FindNormalRandoms;
        LevelUp;
        Wait(1000 + Random(200));
        Inc(Failsafe);
        if (FailSafe = 1) or (FailSafe = 6) then
          AntiBan;
      until  (not(FindDTM(First, x1, y1, MIX1, MIY1, MIX2, MIY2))) or (Failsafe = 14);
      Failsafe:= 0;
      Result := True;
    end;



    begin
      MakeForm;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      ClearDebug;
      SetupSRL;
      Disguise('Herblore PRO');
      ItemDTMs;
      MouseSpeed:=30;
      WhatBank;
      Failsafe:= 0;
      count:= 0;
      ActivateClient;
      if (not(LoggedIn)) then
        LogInPlayer;
      Wait(1000 + Random(500));
      Gametab(tab_Inv);
       SetAngle(SRL_ANGLE_HIGH);
      MakeCompass('n');
      repeat
        if (not(Bank)) then
          begin
            Inc(Failsafe);
            Bank;
          end;
        if MakePotions then
          Inc(count);
        UpdateReport;
      until not(LoggedIn) or (count >= Make);
      EndScript;
    end.

    Fixed and it is MUCH faster.

    -> Worked for: 29 Minutes and 12 Seconds
    -> Made: 1050 Potions
    -> Thats: 2157 in hour

  8. #483
    Join Date
    May 2012
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Inheaven View Post
    Hmm doesn't work for me .. Please help? :
    I get the same error.

  9. #484
    Join Date
    May 2012
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Does this support soulwar chest?

  10. #485
    Join Date
    Jun 2011
    Location
    Anywhere that has WIFI
    Posts
    669
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Helheim View Post
    I get the same error.
    The script that I posted 1 post above yours fixes this error... and is faster.

  11. #486
    Join Date
    Mar 2012
    Posts
    182
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    What's the xp/hr you get?

  12. #487
    Join Date
    Jun 2011
    Location
    Anywhere that has WIFI
    Posts
    669
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by sickle View Post
    What's the xp/hr you get?
    I dont know... check the proggy I posted like 5 posts above...

  13. #488
    Join Date
    Feb 2012
    Location
    Ã…lesund,Norway
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Does this work ? to make poitions , and unf potions ?

  14. #489
    Join Date
    Nov 2011
    Location
    Australia
    Posts
    418
    Mentioned
    2 Post(s)
    Quoted
    86 Post(s)

    Default

    Quote Originally Posted by thomas1116 View Post
    Does this work ? to make poitions , and unf potions ?
    Yes it does.

  15. #490
    Join Date
    May 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How come it says application not found?

  16. #491
    Join Date
    Mar 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    great script tyvm, the one you just posted works like a charm <3

  17. #492
    Join Date
    Mar 2012
    Posts
    66
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Stops after 60 potions..

  18. #493
    Join Date
    May 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks awesome cant wait to test

  19. #494
    Join Date
    May 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    in order to get it to compile, i had to rename SRL.SCAR to SRL.SIMBA, and remove SetAngle = True (line 998 i think?) not sure if it will run like this, but that was what was needed to get it to compile.

  20. #495
    Join Date
    May 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    not currently working with the new bankers. can't remember if SW or CW chests are included in this script. did get it to compile finally without removing line 898
    Code:
    SetAngel (True);
    by replacing it with the proper
    Code:
    SetAngel (1);
    if i knew more about how your script were set up, i could look for the banker DTMs and create a new method based on the color update for the next two weeks durring diamond jubilee.
    but i just simply don't know enough about SIMBA yet for modifiing something like that to still have a script working
    sorry for the double post.

  21. #496
    Join Date
    May 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Does it work at sw chest? cuz i cant see it in the choices.

  22. #497
    Join Date
    May 2012
    Location
    Iowa
    Posts
    316
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Amin0 View Post
    Does it work at sw chest? cuz i cant see it in the choices.
    No it doesn't support sw bank.

  23. #498
    Join Date
    Mar 2012
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Should include soulwars bank.

  24. #499
    Join Date
    May 2012
    Location
    Iowa
    Posts
    316
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Darcy_Oner View Post
    Should include soulwars bank.
    Ok well go ahead and add it. I'm pretty sure it's already included in SRL.

  25. #500
    Join Date
    May 2012
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    it doesnt load says it cant find the srl stat thingy

Page 20 of 21 FirstFirst ... 1018192021 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
  •