Results 1 to 1 of 1

Thread: Help bot crashes after one run

  1. #1
    Join Date
    Mar 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Exclamation Help bot crashes after one run

    My bot runs once and then crashes its pretty messy. all it is is a herblore bot for runecore and banks in the donor area. if anyone can tell me why it crashes that would be great, heres the script.

    Simba Code:
    program DTMHerby;
    {$i SRL\SRL.simba}
    Var
    Chest, PotsToMake, PotsMade, Box, Unf, berry, X, Y, i:Integer;
    Procedure LoadDTM;
    begin
      ClearDebug;
      Berry := DTMFromString('mrAAAAHic42BgYOACYnYg5gRiQSDmY4AAZiDmAGJuKJ8FivmBmAcqJwzE29evB5JMOLERA37ASADDAAA7VgLz');
      Unf := DTMFromString('mrAAAAHic42BgYOAEYkEGCGACYhYg5gViPiDmAGIeIBYBYmEg5mZAAJA+cSCePaGdwUBBAaobE0sy4AeMBDAMAABBRQL5');
      //Chest := DTMFromString('m6wAAAHic42ZgYOADYi4gVgBiLSA2BGIjINYGYmYGCGCEskHYEohtoGpUgZgdSY0QEKtB5SpSfBja8kMYdq1ZxdBfHs2wf8M6hg93bzMkB9kxrFswnyEiMJDhyNYtDAc2bgDrN2IgDjCSgJEAAKXeFVA=');
    end;

    Procedure FindUnf;
    Begin
      if FindDTM(Unf, X, Y, MIX1, MIY1, MIX2, MIY2) Then
     begin
          Mouse(x,y,5,5,true);
          If Isuptext('Cad') Then
          begin
           wait(175);
            //mouse(x, y, 0, 0, False);
        end else
          FreeDTM(Unf);
        end;
       end;
       Procedure FindBerries;
    Begin
      wait(175)
      if FindDTM(Berry, X, Y, MIX1, MIY1, MIX2, MIY2) Then
     begin
          Mouse(x,y,5,5,true);
          If Isuptext('Whi') Then
          begin
           wait(175);
            //mouse(x, y, 0, 0, False);
        end else
          FreeDTM(Berry);
        end;
       end;
    Procedure Make;
    begin
      MMouse(262,417,2,2)
      ClickMouse2(mouse_left);
      WriteLn('Make all the potions!')
      end;

    Procedure Pots;
    begin
          mouse(266,136,0,0,true);
          wait(500);
          mouse(395,304,0,0,true);
          wait(100);
          mouse(50,110,0,0,false);
          mouse(57,188,0,0,true);
          mouse(97,107,0,0,false);
           wait(100);
           wait(100);
           mouse(81,191,0,0,true);
           wait(100);
           mouse(486,36,0,0,true);
     end;
    Procedure proggy;
    Begin
    ClearDebug;

      Writeln('**/\**/\**/\**/\**/\**/\**/\**/\**/\**')
      WriteLn('Yay you used my script, want a cookie?')
      Writeln('**/\**/\**/\**/\**/\**/\**/\**/\**/\**')

    end;
    Procedure DTMFREE;
    begin
    freeDTM(berry);
    freeDTM(unf);
    end;
    Begin
      SetupSRL();
      LoadDTM;
      SRL_EnableNavBar;
      Addonterminate('DTMFREE');
    addonterminate('Proggy');
      repeat
      SetScriptProp(SP_WriteTimeStamp, [True]);
      MouseSpeed := 10;
      //Pots;
      FindUnf;
      FindBerries;
      Make;
      IncEx(PotsMade, 14);
    until (PotsMade >= 140)
      DTMFREE;
    terminatescript();
    end.
    Last edited by antflga; 03-26-2013 at 11:02 PM.

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

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