Results 1 to 10 of 10

Thread: Can you please help me, unknown if this is an antileech or script error.

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

    Default Can you please help me, unknown if this is an antileech or script error.

    Simba Code:
    [ATTACH]19562[/ATTACH]Please help, i feel like this is broken, because somthing isn't right here, i don't believe it's the antileech

    "unexpected end at line 37453"

    i'
    m using Killer06 essence miner

    Thank you, for giving your time.




    Program killer06essminer;

    {$I SRL/SRL.Simba}
    {$I P07Include.Simba}

    var
      X,Y,D,DR,faildetect:Integer;

    var
      breakit:boolean;

    var
      textup:TStringArray;
      BankDTM, TeleDTM, AugDTM,StrangeboxDTM :Integer;




     Procedure playalarm;
     Begin
       PlaySound('C:/alarm.wav');
           Wait(RandomRange(200,400));
           StopSound;
     end;


     Procedure antistuck;
    Begin

    if(faildetect > 42) then
    begin
    playalarm;
    Writeln('we are stuck, script stopped.');
     terminatescript;
     end;

    faildetect := (faildetect + 1) ;

    end;




     Procedure P07_DepositInventorySlot2(SlotToDepo: Integer; DepositAll:Boolean);
    Var
      xsx,ysy,R,C:Integer;
    Begin
      SlotToDepo:=SlotToDepo-1;
      xsx:=565;
      ysy:=215;
      C:=(Round(SlotToDepo/4));
      R:=(SlotToDepo -(C*4));
      SlotToDepo:=SlotToDepo+1;
      If P07_ItemExists(SlotToDepo) Then
      Begin
        If (DepositAll) Then
        Begin

            antistuck;

          P07_MouseBox(xsx+(R*42), ysy+(C*36), xsx+(R*42)+27, ysy+(C*36)+25,mouse_right);
          P07_ChooseOptionMulti(['Store All','All']);
          Wait(RandomRange(300,500));
        End Else
          P07_MouseBox(xsx+(R*42), ysy+(C*36), xsx+(R*42)+27, ysy+(C*36)+25,mouse_left);
      End;
    End;


    Procedure P07_Deposit2(SlotFrom, SlotTo: Integer; DepositAll: Boolean);
    Var
      I:Integer;
    Begin
      If (Not P07_BankScreen) Then
        Exit;
      For I:=SlotFrom To SlotTo Do
      Begin
        P07_DepositInventorySlot2(I,DepositAll);
        Wait(RandomRange(20,90));
      End;
    End;

    //anti random event
    Procedure randomevent;
    Begin

      If (Not P07_LoggedIn) Then
     exit;

        //if(FindColorTolerance(X, Y, 548441, 150, 50, 350, 240, 1))  then
        if (FindColorTolerance(X, Y, 880212, 150, 50, 350, 240, 1))  or
        (FindColorTolerance(X, Y, 549451, 150, 50, 350, 240, 1))  then
       begin
          WriteLn('strange plant is strange lets click it');


        playalarm;


          mmouse(x, y,1,1);
        Wait(RandomRange(200,400));
        ClickMouse(X, Y, mouse_Left)
        Wait(RandomRange(1000,2000));
        end;


       if(FindColorTolerance(X, Y, 65280, 240, 130, 290, 190, 4))  then
       begin
        WriteLn('we getting atked RUN BITCH RUNNNN!!!');

       playalarm;


          mmouse(640, 18,2,2);
          Wait(RandomRange(200,400));
        ClickMouse(640, 18, mouse_Left)
       
        Wait(RandomRange(1000,2000));
        P07_FFlag;
        Wait(RandomRange(800,1200));
       
        WriteLn('lets try to walk back');
        mmouse(653, 146,2,2);
        Wait(RandomRange(200,400));
        ClickMouse(653, 146, mouse_Left)
       
        Wait(RandomRange(1000,2000));
        P07_FFlag;
        Wait(RandomRange(800,1200));
       
       
       end;




    End;

     //LOGIN INFO STUFF
    Procedure P07_DeclarePlayer;
    Begin
      P07_PlayerName:='';
      P07_PlayerPass:='';

      breakit := false;

      faildetect := 0;

      StrangeboxDTM := DTMFromString('mbQAAAHicY2VgYGAHYjYGCBAEYl4omxuIeaC0EBCX5OQw9Le2MuSnp8NpLqA4OmbEgsEAALATB5Q=');
      AugDTM := DTMFromString('mQwAAAHicY2ZgYPjMxMDwG4i/AvFnIP8jEL8H4nXrVjE8ERcAYxEgH4YZkTAQAADIYgob');
      BankDTM := DTMFromString('mQwAAAHicY2ZgYKhlYmBoheI8BgguBOIYAxYwLtBhYBBhQGBGJAwEANrpBNk=');
      TeleDTM := DTMFromString('mQwAAAHicY2aAAG4gZgNiJiifGYht05IYWHklwLQMkA/DjEgYCABX/gKl');
    End;




    Procedure walktoessence;
    var xmid, ymid, xdif, ydif, bx, by,xpos,ypos: integer;
    LABEL str,str2;
    Begin

       if(P07_invcount > 6) then
       begin
       Writeln('more than 6 items in iven at start we better stop, start script with only pickaxe in first slot');
       playalarm;
       terminatescript;
       end;




    xmid := 643;
    ymid := 83;


    if( (RandomRange(1,3) = 1) ) then
      begin
      Wait(RandomRange(150,300));
       P07_TabInventoryTab(12);

       if not (FindColorTolerance(xpos, ypos, 1777019, 625, 428, 627, 430, 8)) then
       begin
       Wait(RandomRange(150,300));
       mmouse(640,431,5,5);
       Wait(RandomRange(150,300));
       clickmouse2(mouse_Left);

        end;

           Wait(RandomRange(200,400));
       P07_TabInventoryTab(4);
       Wait(RandomRange(200,400));
       end;


    str:

      antistuck;

    Wait(RandomRange(200,900));

      if( (RandomRange(1,3) = 1) ) then
      begin
      P07_MakeCompassDegree(RandomRange(1,3));
      end
      else
      begin
      P07_MakeCompassDegree(RandomRange(340,348));
     end;

      if(findDTM(BankDTM, bx, by, 565, 59, 717, 157)) then
      begin

      xdif := xmid - bx - 1;
      ydif := ymid - by + 23;

      mmouse( (xmid +  17 - xdif ), (ymid + 44 - ydif) ,1 ,1);
      Wait(RandomRange(100,300));
      ClickMouse2(mouse_Left);


      P07_FFlag;
      Wait(RandomRange(2000,3000));
      P07_FFlag;
      Wait(RandomRange(500,850));
      P07_FFlag;


      end
      else
      goto str;

      str2:
      antistuck;


       P07_FFlag;
      Wait(RandomRange(500,850));

        if( (RandomRange(1,2) = 1) ) then
      begin
      P07_MakeCompassDegree(RandomRange(1,3));
      end
      else
      begin
      P07_MakeCompassDegree(RandomRange(342,350));
     end;

      if(findDTM(AugDTM, bx, by, 565, 7, 717, 157)) then
      begin

      mmouse( bx+2, (by + 6),1 ,1);
      Wait(RandomRange(100,300));
      ClickMouse2(mouse_Left);
      Wait(RandomRange(200,400));


      P07_FFlag;
      Wait(RandomRange(600,1300));
      P07_FFlag;
      Wait(RandomRange(500,850));
      P07_FFlag;

      end
      else
      goto str2;




    end;

    procedure teletomine;
    var xpos, ypos: Integer;
    label str;
    begin

      str:
      antistuck;
      wait(RandomRange(5,555));


      if( RandomRange(1,5) = 1) then
      begin
         KeyDown(40);
           wait(RandomRange(800,1400));
             KeyUp(40);
      end;
      //else
      //begin
    //KeyDown(38);
      //     wait(RandomRange(800,1400));
        //     KeyUp(38);
      //end;


        if( RandomRange(1,2) = 1) then
       P07_MakeCompassDegree(RandomRange(5,355));

      if(FindColorTolerance(xpos, ypos, 3005947, 20, 20, 480, 280, 3)) or
      (FindColorTolerance(xpos, ypos, 3005947, 20, 20, 480, 280, 3)) or
      (FindColorTolerance(xpos, ypos, 2011884, 20, 20, 480, 280, 3)) then
      Begin
        mmouse(xpos,ypos,2,2);

        if(P07_ContainsText(P07_GetUpText, ['ubur'] )) then
        Begin
        ClickMouse2(mouse_Right);
        Wait(RandomRange(200,350));
        if not (P07_ChooseOptionMulti(['elepo'])) then
        goto str;

        end
         else
        goto str;


      end
      else
      begin

        mmouse(246,165,2,2);

        if(P07_ContainsText(P07_GetUpText, ['ubur'] )) then
        Begin
        ClickMouse2(mouse_Right);
        Wait(RandomRange(200,350));
        if not (P07_ChooseOptionMulti(['elepo'])) then
        goto str;

        end
        else
        goto str;

      end;


      KeyDown(38);
      wait(RandomRange(1555,2500));
      KeyUp(38);


        P07_FFlag;
      Wait(RandomRange(600,800));
      P07_FFlag;
      Wait(RandomRange(500,850));
      P07_FFlag;

    End;


    procedure mineess;
    var minecheck, xpos, ypos: Integer;
    LABEL str, str2, done;
    Begin


      KeyDown(38);
      wait(RandomRange(1555,2500));
      KeyUp(38);


    str2:
    antistuck;

    wait(RandomRange(5,555));


      if( (RandomRange(1,2) = 1) ) then
      begin
      P07_MakeCompassDegree(RandomRange(1,5));
      end
      else
      begin
      P07_MakeCompassDegree(RandomRange(340,350));
      end;

    if not (findDTM(TeleDTM, xpos, ypos, 565, 7, 717, 157)) then
    begin

      mmouse(686,31,4,4);
      Wait(RandomRange(100,400));
      clickmouse2(mouse_Left);

      P07_FFlag;
      Wait(RandomRange(1000,2000));
      P07_FFlag;
      Wait(RandomRange(300,550));

      if not (findDTM(TeleDTM, xpos, ypos, 565, 7, 717, 157)) then
      goto str2;

    end;






    str:
    antistuck;

     wait(RandomRange(5,555));



       if( RandomRange(1,2) = 1) then
       P07_MakeCompassDegree(RandomRange(5,355));

        wait(RandomRange(200,400));

       if(P07_ContainsText(P07_GetUpText, ['ine'] )) then
        Begin
        wait(RandomRange(200,400));
        ClickMouse2(mouse_Left);
        goto done;
        end;

      if(FindColorTolerance(xpos, ypos, 4079171, 20, 20, 480, 280, 2)) or
      (FindColorTolerance(xpos, ypos, 6513515,  20, 20, 480, 280, 2)) or
      (FindColorTolerance(xpos, ypos, 8421770, 20, 20, 480, 280, 2)) or
      (FindColorTolerance(xpos, ypos, 10724271, 20, 20, 480, 280, 2)) then
      Begin

      wait(RandomRange(200,400));
        mmouse(xpos,ypos,2,2);

        wait(RandomRange(200,400));

        if(P07_ContainsText(P07_GetUpText, ['ine'] )) then
        Begin
        ClickMouse2(mouse_Left);
        end
        else
        goto str;

        done:

        repeat

          randomevent;
        wait( randomrange(3000,5000) );
        randomevent;

        if(minecheck = P07_InvCount) then
        break;

        minecheck :=  P07_InvCount;


        until(P07_InvCount > 24)

        if(P07_InvCount < 22)then
         goto str2;

      end

    end;

    procedure teleout;
    var posx, posy: Integer;
    LABEL str;
    begin


    str:
    antistuck;

        wait( randomrange(1500,3000) );

        if( RandomRange(1,2) = 1) then
       P07_MakeCompassDegree(RandomRange(5,355));

      if(findDTM(TeleDTM, posx, posy, 565, 7, 717, 157)) then
      begin

       mmouse(posx+5,posy,1,1);
       wait(RandomRange(100,300));
       ClickMouse2(mouse_Left);

       end
       else
       goto str;

       wait(RandomRange(500,900));

       P07_FFlag;
      Wait(RandomRange(900,1550));

       if(FindColorTolerance(posx, posy, 11258063, 20, 20, 480, 280, 4)) or
       (FindColorTolerance(posx, posy, 10071733, 20, 20, 480, 280, 3)) or
       (FindColorTolerance(posx, posy, 11523802, 20, 20, 480, 280, 4)) then
      Begin
        mmouse(posx,posy,4,4);
        wait(RandomRange(200,400));
        if(P07_ContainsText(P07_GetUpText, ['ort'] )) then
        Begin
        ClickMouse2(mouse_Left);
        end
        else
        goto str;


      end
       else
        goto str;



    end;

    procedure backtobank;
    var bx,by:Integer;
    label str;
    begin

             wait(RandomRange(100,300));
          P07_MakeCompassNorth;
          wait(RandomRange(100,300));
       mmouse(665,47,1,1);
       wait(RandomRange(100,300));
       ClickMouse2(mouse_Left);

      P07_FFlag;
      Wait(RandomRange(1000,2000));
      P07_FFlag;
      Wait(RandomRange(300,550));




    str:
    antistuck;

    Wait(RandomRange(500,1500));

      if( (RandomRange(1,2) = 1) ) then
      begin
      P07_MakeCompassDegree(RandomRange(1,5));
      end
      else
      begin
      P07_MakeCompassDegree(RandomRange(340,350));
      end;

      if(findDTM(BankDTM, bx, by, 565, 7, 717, 157)) then
      begin




      mmouse( bx + 3 ,  by - 26 ,1 ,0);
      Wait(RandomRange(100,300));
      ClickMouse2(mouse_Left);


      P07_FFlag;
      Wait(RandomRange(1500,2000));
      P07_FFlag;
      Wait(RandomRange(300,550));

      end
      else
      goto str;

    end;


    procedure bankess;
    var posx,posy: Integer;
    label str,done ;
    Begin


    str:
    antistuck;


    wait(RandomRange(5,555));

       if  (P07_BankScreen) then
       begin
      P07_Deposit(2,28,true);
      goto done;
       end;


       if( RandomRange(1,2) = 1) then
       P07_MakeCompassDegree(RandomRange(5,355));

       if(FindColorTolerance(posx, posy, 2117213, 20, 20, 480, 280, 4)) or
       (FindColorTolerance(posx, posy, 2051163, 20, 20, 480, 280, 4)) or
       (FindColorTolerance(posx, posy, 4466483, 20, 20, 480, 280, 6)) then
      Begin

        mmouse(posx,posy,10,10);

         if not ( P07_ChooseOptionMulti(['uickl', 'ank Ban']) )  then
        Begin
        ClickMouse2(mouse_Right);



           if not ( P07_ChooseOptionMulti(['uickl', 'ank Ban']) )  then
            goto str;



        end
      else
      goto str;

      end
      else
      goto str;

      wait(RandomRange(1555,2343));

      if not (P07_BankScreen) then
      goto str;

       P07_Deposit2(2,28,true);

         done:


         wait(RandomRange(400,1243));
          mmouse(486,40,6,6);
          wait(RandomRange(100,343));
          ClickMouse2(mouse_Left);
           wait(RandomRange(100,343));





    ////MAIN START HERE.


    Begin

      P07_DeclarePlayer;
      SetupP07Include;
      ActivateClient;
      Writeln(P07_GetUpText);

      wait(1000);
      P07_TabInventoryTab(4);
     
      Writeln('Killer06s Essence Miner 1.04 ');
      Writeln('if you have any problems post in thread or try to fix it yourself :P');

      DR := 1;

       repeat

       wait(400);

        randomevent;

        faildetect := 0;

           Wait(RandomRange(800,1000));
        Writeln('walk to aug');
        walktoessence;

           faildetect := 0;

         Wait(RandomRange(400,800));

        Writeln('tele to mine');
        teletomine;

             faildetect := 0;

         Wait(RandomRange(1800,2500));

        Writeln('lets mine ess');
        mineess;

           faildetect := 0;

         Wait(RandomRange(1000,2000));
        Writeln('teleout');
        teleout;

            faildetect := 0;

         Wait(RandomRange(2000,3500));
        Writeln('walk to bank');
       backtobank;


            faildetect := 0;

        //Wait(RandomRange(1000,2000));
       Writeln('bank the ess');
      bankess;


          faildetect := 0;

        until (false);

          playalarm;

    //End.



       // P07_LogInPlayer;
      //P07_MakeCameraAngleHigh;
      //P07_MakeCompassNorth;



     // If P07_BankScreen Then
      //  WriteLn('Bank is Open');

          //sandwich
      //if(FindColorTolerance(X, Y, 9344970, 150, 50, 350, 240, 4))  then
      // begin
       //end
       //560 720 285 458   640 490     627 374
    Last edited by elphalpha; 03-03-2013 at 08:46 AM.

  2. #2
    Join Date
    Mar 2006
    Location
    Belgium
    Posts
    3,564
    Mentioned
    111 Post(s)
    Quoted
    1475 Post(s)

    Default

    U should post your script-related problems on the scripters thread.

    Creds to DannyRS for this wonderful sig!

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

    Default

    i've tried that, as well as other people, however they don't seem to be interested in helping us "noobs"

  4. #4
    Join Date
    Mar 2006
    Location
    Belgium
    Posts
    3,564
    Mentioned
    111 Post(s)
    Quoted
    1475 Post(s)

    Default

    Could u use simba tags around your script? [SIMBA] [/SIMBA.] (without the dot)
    Makes it more clear to read.

    And btw, it's part of the anti-leech.

    Creds to DannyRS for this wonderful sig!

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

  6. #6
    Join Date
    Mar 2006
    Location
    Belgium
    Posts
    3,564
    Mentioned
    111 Post(s)
    Quoted
    1475 Post(s)

    Default

    Quote Originally Posted by elphalpha View Post
    it's the little lion head next to Youtube.
    It will paste this [SIMBA] [/SIMBA.] (without the dot)

    And if u put your code between those 2 . Your code will look like the following example:

    Simba Code:
    Program killer06essminer;

    {$I SRL/SRL.Simba}
    {$I P07Include.Simba}

    var
    X,Y,D,DR,faildetect:Integer;

    var
    breakit:boolean;

    var
    textup:TStringArray;
    BankDTM, TeleDTM, AugDTM,StrangeboxDTM :Integer;

    Edit your original post with simba tags please. And i'll fix the anti-leech problem for you

    Creds to DannyRS for this wonderful sig!

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

    Default

    Simba Code:
    Program killer06essminer;

    {$I SRL/SRL.Simba}
    {$I P07Include.Simba}

    var
      X,Y,D,DR,faildetect:Integer;

    var
      breakit:boolean;

    var
      textup:TStringArray;
      BankDTM, TeleDTM, AugDTM,StrangeboxDTM :Integer;




     Procedure playalarm;
     Begin
       PlaySound('C:/alarm.wav');
           Wait(RandomRange(200,400));
           StopSound;
     end;


     Procedure antistuck;
    Begin

    if(faildetect > 42) then
    begin
    playalarm;
    Writeln('we are stuck, script stopped.');
     terminatescript;
     end;

    faildetect := (faildetect + 1) ;

    end;




     Procedure P07_DepositInventorySlot2(SlotToDepo: Integer; DepositAll:Boolean);
    Var
      xsx,ysy,R,C:Integer;
    Begin
      SlotToDepo:=SlotToDepo-1;
      xsx:=565;
      ysy:=215;
      C:=(Round(SlotToDepo/4));
      R:=(SlotToDepo -(C*4));
      SlotToDepo:=SlotToDepo+1;
      If P07_ItemExists(SlotToDepo) Then
      Begin
        If (DepositAll) Then
        Begin

            antistuck;

          P07_MouseBox(xsx+(R*42), ysy+(C*36), xsx+(R*42)+27, ysy+(C*36)+25,mouse_right);
          P07_ChooseOptionMulti(['Store All','All']);
          Wait(RandomRange(300,500));
        End Else
          P07_MouseBox(xsx+(R*42), ysy+(C*36), xsx+(R*42)+27, ysy+(C*36)+25,mouse_left);
      End;
    End;


    Procedure P07_Deposit2(SlotFrom, SlotTo: Integer; DepositAll: Boolean);
    Var
      I:Integer;
    Begin
      If (Not P07_BankScreen) Then
        Exit;
      For I:=SlotFrom To SlotTo Do
      Begin
        P07_DepositInventorySlot2(I,DepositAll);
        Wait(RandomRange(20,90));
      End;
    End;

    //anti random event
    Procedure randomevent;
    Begin

      If (Not P07_LoggedIn) Then
     exit;

        //if(FindColorTolerance(X, Y, 548441, 150, 50, 350, 240, 1))  then
        if (FindColorTolerance(X, Y, 880212, 150, 50, 350, 240, 1))  or
        (FindColorTolerance(X, Y, 549451, 150, 50, 350, 240, 1))  then
       begin
          WriteLn('strange plant is strange lets click it');


        playalarm;


          mmouse(x, y,1,1);
        Wait(RandomRange(200,400));
        ClickMouse(X, Y, mouse_Left)
        Wait(RandomRange(1000,2000));
        end;


       if(FindColorTolerance(X, Y, 65280, 240, 130, 290, 190, 4))  then
       begin
        WriteLn('we getting atked RUN BITCH RUNNNN!!!');

       playalarm;


          mmouse(640, 18,2,2);
          Wait(RandomRange(200,400));
        ClickMouse(640, 18, mouse_Left)
       
        Wait(RandomRange(1000,2000));
        P07_FFlag;
        Wait(RandomRange(800,1200));
       
        WriteLn('lets try to walk back');
        mmouse(653, 146,2,2);
        Wait(RandomRange(200,400));
        ClickMouse(653, 146, mouse_Left)
       
        Wait(RandomRange(1000,2000));
        P07_FFlag;
        Wait(RandomRange(800,1200));
       
       
       end;




    End;

     //LOGIN INFO STUFF
    Procedure P07_DeclarePlayer;
    Begin
      P07_PlayerName:='';
      P07_PlayerPass:='';

      breakit := false;

      faildetect := 0;

      StrangeboxDTM := DTMFromString('mbQAAAHicY2VgYGAHYjYGCBAEYl4omxuIeaC0EBCX5OQw9Le2MuSnp8NpLqA4OmbEgsEAALATB5Q=');
      AugDTM := DTMFromString('mQwAAAHicY2ZgYPjMxMDwG4i/AvFnIP8jEL8H4nXrVjE8ERcAYxEgH4YZkTAQAADIYgob');
      BankDTM := DTMFromString('mQwAAAHicY2ZgYKhlYmBoheI8BgguBOIYAxYwLtBhYBBhQGBGJAwEANrpBNk=');
      TeleDTM := DTMFromString('mQwAAAHicY2aAAG4gZgNiJiifGYht05IYWHklwLQMkA/DjEgYCABX/gKl');
    End;




    Procedure walktoessence;
    var xmid, ymid, xdif, ydif, bx, by,xpos,ypos: integer;
    LABEL str,str2;
    Begin

       if(P07_invcount > 6) then
       begin
       Writeln('more than 6 items in iven at start we better stop, start script with only pickaxe in first slot');
       playalarm;
       terminatescript;
       end;




    xmid := 643;
    ymid := 83;


    if( (RandomRange(1,3) = 1) ) then
      begin
      Wait(RandomRange(150,300));
       P07_TabInventoryTab(12);

       if not (FindColorTolerance(xpos, ypos, 1777019, 625, 428, 627, 430, 8)) then
       begin
       Wait(RandomRange(150,300));
       mmouse(640,431,5,5);
       Wait(RandomRange(150,300));
       clickmouse2(mouse_Left);

        end;

           Wait(RandomRange(200,400));
       P07_TabInventoryTab(4);
       Wait(RandomRange(200,400));
       end;


    str:

      antistuck;

    Wait(RandomRange(200,900));

      if( (RandomRange(1,3) = 1) ) then
      begin
      P07_MakeCompassDegree(RandomRange(1,3));
      end
      else
      begin
      P07_MakeCompassDegree(RandomRange(340,348));
     end;

      if(findDTM(BankDTM, bx, by, 565, 59, 717, 157)) then
      begin

      xdif := xmid - bx - 1;
      ydif := ymid - by + 23;

      mmouse( (xmid +  17 - xdif ), (ymid + 44 - ydif) ,1 ,1);
      Wait(RandomRange(100,300));
      ClickMouse2(mouse_Left);


      P07_FFlag;
      Wait(RandomRange(2000,3000));
      P07_FFlag;
      Wait(RandomRange(500,850));
      P07_FFlag;


      end
      else
      goto str;

      str2:
      antistuck;


       P07_FFlag;
      Wait(RandomRange(500,850));

        if( (RandomRange(1,2) = 1) ) then
      begin
      P07_MakeCompassDegree(RandomRange(1,3));
      end
      else
      begin
      P07_MakeCompassDegree(RandomRange(342,350));
     end;

      if(findDTM(AugDTM, bx, by, 565, 7, 717, 157)) then
      begin

      mmouse( bx+2, (by + 6),1 ,1);
      Wait(RandomRange(100,300));
      ClickMouse2(mouse_Left);
      Wait(RandomRange(200,400));


      P07_FFlag;
      Wait(RandomRange(600,1300));
      P07_FFlag;
      Wait(RandomRange(500,850));
      P07_FFlag;

      end
      else
      goto str2;




    end;

    procedure teletomine;
    var xpos, ypos: Integer;
    label str;
    begin

      str:
      antistuck;
      wait(RandomRange(5,555));


      if( RandomRange(1,5) = 1) then
      begin
         KeyDown(40);
           wait(RandomRange(800,1400));
             KeyUp(40);
      end;
      //else
      //begin
    //KeyDown(38);
      //     wait(RandomRange(800,1400));
        //     KeyUp(38);
      //end;


        if( RandomRange(1,2) = 1) then
       P07_MakeCompassDegree(RandomRange(5,355));

      if(FindColorTolerance(xpos, ypos, 3005947, 20, 20, 480, 280, 3)) or
      (FindColorTolerance(xpos, ypos, 3005947, 20, 20, 480, 280, 3)) or
      (FindColorTolerance(xpos, ypos, 2011884, 20, 20, 480, 280, 3)) then
      Begin
        mmouse(xpos,ypos,2,2);

        if(P07_ContainsText(P07_GetUpText, ['ubur'] )) then
        Begin
        ClickMouse2(mouse_Right);
        Wait(RandomRange(200,350));
        if not (P07_ChooseOptionMulti(['elepo'])) then
        goto str;

        end
         else
        goto str;


      end
      else
      begin

        mmouse(246,165,2,2);

        if(P07_ContainsText(P07_GetUpText, ['ubur'] )) then
        Begin
        ClickMouse2(mouse_Right);
        Wait(RandomRange(200,350));
        if not (P07_ChooseOptionMulti(['elepo'])) then
        goto str;

        end
        else
        goto str;

      end;


      KeyDown(38);
      wait(RandomRange(1555,2500));
      KeyUp(38);


        P07_FFlag;
      Wait(RandomRange(600,800));
      P07_FFlag;
      Wait(RandomRange(500,850));
      P07_FFlag;

    End;


    procedure mineess;
    var minecheck, xpos, ypos: Integer;
    LABEL str, str2, done;
    Begin


      KeyDown(38);
      wait(RandomRange(1555,2500));
      KeyUp(38);


    str2:
    antistuck;

    wait(RandomRange(5,555));


      if( (RandomRange(1,2) = 1) ) then
      begin
      P07_MakeCompassDegree(RandomRange(1,5));
      end
      else
      begin
      P07_MakeCompassDegree(RandomRange(340,350));
      end;

    if not (findDTM(TeleDTM, xpos, ypos, 565, 7, 717, 157)) then
    begin

      mmouse(686,31,4,4);
      Wait(RandomRange(100,400));
      clickmouse2(mouse_Left);

      P07_FFlag;
      Wait(RandomRange(1000,2000));
      P07_FFlag;
      Wait(RandomRange(300,550));

      if not (findDTM(TeleDTM, xpos, ypos, 565, 7, 717, 157)) then
      goto str2;

    end;






    str:
    antistuck;

     wait(RandomRange(5,555));



       if( RandomRange(1,2) = 1) then
       P07_MakeCompassDegree(RandomRange(5,355));

        wait(RandomRange(200,400));

       if(P07_ContainsText(P07_GetUpText, ['ine'] )) then
        Begin
        wait(RandomRange(200,400));
        ClickMouse2(mouse_Left);
        goto done;
        end;

      if(FindColorTolerance(xpos, ypos, 4079171, 20, 20, 480, 280, 2)) or
      (FindColorTolerance(xpos, ypos, 6513515,  20, 20, 480, 280, 2)) or
      (FindColorTolerance(xpos, ypos, 8421770, 20, 20, 480, 280, 2)) or
      (FindColorTolerance(xpos, ypos, 10724271, 20, 20, 480, 280, 2)) then
      Begin

      wait(RandomRange(200,400));
        mmouse(xpos,ypos,2,2);

        wait(RandomRange(200,400));

        if(P07_ContainsText(P07_GetUpText, ['ine'] )) then
        Begin
        ClickMouse2(mouse_Left);
        end
        else
        goto str;

        done:

        repeat

          randomevent;
        wait( randomrange(3000,5000) );
        randomevent;

        if(minecheck = P07_InvCount) then
        break;

        minecheck :=  P07_InvCount;


        until(P07_InvCount > 24)

        if(P07_InvCount < 22)then
         goto str2;

      end

    end;

    procedure teleout;
    var posx, posy: Integer;
    LABEL str;
    begin


    str:
    antistuck;

        wait( randomrange(1500,3000) );

        if( RandomRange(1,2) = 1) then
       P07_MakeCompassDegree(RandomRange(5,355));

      if(findDTM(TeleDTM, posx, posy, 565, 7, 717, 157)) then
      begin

       mmouse(posx+5,posy,1,1);
       wait(RandomRange(100,300));
       ClickMouse2(mouse_Left);

       end
       else
       goto str;

       wait(RandomRange(500,900));

       P07_FFlag;
      Wait(RandomRange(900,1550));

       if(FindColorTolerance(posx, posy, 11258063, 20, 20, 480, 280, 4)) or
       (FindColorTolerance(posx, posy, 10071733, 20, 20, 480, 280, 3)) or
       (FindColorTolerance(posx, posy, 11523802, 20, 20, 480, 280, 4)) then
      Begin
        mmouse(posx,posy,4,4);
        wait(RandomRange(200,400));
        if(P07_ContainsText(P07_GetUpText, ['ort'] )) then
        Begin
        ClickMouse2(mouse_Left);
        end
        else
        goto str;


      end
       else
        goto str;



    end;

    procedure backtobank;
    var bx,by:Integer;
    label str;
    begin

             wait(RandomRange(100,300));
          P07_MakeCompassNorth;
          wait(RandomRange(100,300));
       mmouse(665,47,1,1);
       wait(RandomRange(100,300));
       ClickMouse2(mouse_Left);

      P07_FFlag;
      Wait(RandomRange(1000,2000));
      P07_FFlag;
      Wait(RandomRange(300,550));




    str:
    antistuck;

    Wait(RandomRange(500,1500));

      if( (RandomRange(1,2) = 1) ) then
      begin
      P07_MakeCompassDegree(RandomRange(1,5));
      end
      else
      begin
      P07_MakeCompassDegree(RandomRange(340,350));
      end;

      if(findDTM(BankDTM, bx, by, 565, 7, 717, 157)) then
      begin




      mmouse( bx + 3 ,  by - 26 ,1 ,0);
      Wait(RandomRange(100,300));
      ClickMouse2(mouse_Left);


      P07_FFlag;
      Wait(RandomRange(1500,2000));
      P07_FFlag;
      Wait(RandomRange(300,550));

      end
      else
      goto str;

    end;


    procedure bankess;
    var posx,posy: Integer;
    label str,done ;
    Begin


    str:
    antistuck;


    wait(RandomRange(5,555));

       if  (P07_BankScreen) then
       begin
      P07_Deposit(2,28,true);
      goto done;
       end;


       if( RandomRange(1,2) = 1) then
       P07_MakeCompassDegree(RandomRange(5,355));

       if(FindColorTolerance(posx, posy, 2117213, 20, 20, 480, 280, 4)) or
       (FindColorTolerance(posx, posy, 2051163, 20, 20, 480, 280, 4)) or
       (FindColorTolerance(posx, posy, 4466483, 20, 20, 480, 280, 6)) then
      Begin

        mmouse(posx,posy,10,10);

         if not ( P07_ChooseOptionMulti(['uickl', 'ank Ban']) )  then
        Begin
        ClickMouse2(mouse_Right);



           if not ( P07_ChooseOptionMulti(['uickl', 'ank Ban']) )  then
            goto str;



        end
      else
      goto str;

      end
      else
      goto str;

      wait(RandomRange(1555,2343));

      if not (P07_BankScreen) then
      goto str;

       P07_Deposit2(2,28,true);

         done:


         wait(RandomRange(400,1243));
          mmouse(486,40,6,6);
          wait(RandomRange(100,343));
          ClickMouse2(mouse_Left);
           wait(RandomRange(100,343));





    ////MAIN START HERE.


    Begin

      P07_DeclarePlayer;
      SetupP07Include;
      ActivateClient;
      Writeln(P07_GetUpText);

      wait(1000);
      P07_TabInventoryTab(4);
     
      Writeln('Killer06s Essence Miner 1.04 ');
      Writeln('if you have any problems post in thread or try to fix it yourself :P');

      DR := 1;

       repeat

       wait(400);

        randomevent;

        faildetect := 0;

           Wait(RandomRange(800,1000));
        Writeln('walk to aug');
        walktoessence;

           faildetect := 0;

         Wait(RandomRange(400,800));

        Writeln('tele to mine');
        teletomine;

             faildetect := 0;

         Wait(RandomRange(1800,2500));

        Writeln('lets mine ess');
        mineess;

           faildetect := 0;

         Wait(RandomRange(1000,2000));
        Writeln('teleout');
        teleout;

            faildetect := 0;

         Wait(RandomRange(2000,3500));
        Writeln('walk to bank');
       backtobank;


            faildetect := 0;

        //Wait(RandomRange(1000,2000));
       Writeln('bank the ess');
      bankess;


          faildetect := 0;

        until (false);

          playalarm;

    //End.



       // P07_LogInPlayer;
      //P07_MakeCameraAngleHigh;
      //P07_MakeCompassNorth;



     // If P07_BankScreen Then
      //  WriteLn('Bank is Open');

          //sandwich
      //if(FindColorTolerance(X, Y, 9344970, 150, 50, 350, 240, 4))  then
      // begin
       //end
       //560 720 285 458   640 490     627 374

  8. #8
    Join Date
    Mar 2006
    Location
    Belgium
    Posts
    3,564
    Mentioned
    111 Post(s)
    Quoted
    1475 Post(s)

    Default

    Quote Originally Posted by elphalpha View Post
    Simba Code:
    Program killer06essminer;

    {$I SRL/SRL.Simba}
    {$I P07Include.Simba}

    var
      X,Y,D,DR,faildetect:Integer;

    var
      breakit:boolean;

    var
      textup:TStringArray;
      BankDTM, TeleDTM, AugDTM,StrangeboxDTM :Integer;




     Procedure playalarm;
     Begin
       PlaySound('C:/alarm.wav');
           Wait(RandomRange(200,400));
           StopSound;
     end;


     Procedure antistuck;
    Begin

    if(faildetect > 42) then
    begin
    playalarm;
    Writeln('we are stuck, script stopped.');
     terminatescript;
     end;

    faildetect := (faildetect + 1) ;

    end;




     Procedure P07_DepositInventorySlot2(SlotToDepo: Integer; DepositAll:Boolean);
    Var
      xsx,ysy,R,C:Integer;
    Begin
      SlotToDepo:=SlotToDepo-1;
      xsx:=565;
      ysy:=215;
      C:=(Round(SlotToDepo/4));
      R:=(SlotToDepo -(C*4));
      SlotToDepo:=SlotToDepo+1;
      If P07_ItemExists(SlotToDepo) Then
      Begin
        If (DepositAll) Then
        Begin

            antistuck;

          P07_MouseBox(xsx+(R*42), ysy+(C*36), xsx+(R*42)+27, ysy+(C*36)+25,mouse_right);
          P07_ChooseOptionMulti(['Store All','All']);
          Wait(RandomRange(300,500));
        End Else
          P07_MouseBox(xsx+(R*42), ysy+(C*36), xsx+(R*42)+27, ysy+(C*36)+25,mouse_left);
      End;
    End;


    Procedure P07_Deposit2(SlotFrom, SlotTo: Integer; DepositAll: Boolean);
    Var
      I:Integer;
    Begin
      If (Not P07_BankScreen) Then
        Exit;
      For I:=SlotFrom To SlotTo Do
      Begin
        P07_DepositInventorySlot2(I,DepositAll);
        Wait(RandomRange(20,90));
      End;
    End;

    //anti random event
    Procedure randomevent;
    Begin

      If (Not P07_LoggedIn) Then
     exit;

        //if(FindColorTolerance(X, Y, 548441, 150, 50, 350, 240, 1))  then
        if (FindColorTolerance(X, Y, 880212, 150, 50, 350, 240, 1))  or
        (FindColorTolerance(X, Y, 549451, 150, 50, 350, 240, 1))  then
       begin
          WriteLn('strange plant is strange lets click it');


        playalarm;


          mmouse(x, y,1,1);
        Wait(RandomRange(200,400));
        ClickMouse(X, Y, mouse_Left)
        Wait(RandomRange(1000,2000));
        end;


       if(FindColorTolerance(X, Y, 65280, 240, 130, 290, 190, 4))  then
       begin
        WriteLn('we getting atked RUN BITCH RUNNNN!!!');

       playalarm;


          mmouse(640, 18,2,2);
          Wait(RandomRange(200,400));
        ClickMouse(640, 18, mouse_Left)
       
        Wait(RandomRange(1000,2000));
        P07_FFlag;
        Wait(RandomRange(800,1200));
       
        WriteLn('lets try to walk back');
        mmouse(653, 146,2,2);
        Wait(RandomRange(200,400));
        ClickMouse(653, 146, mouse_Left)
       
        Wait(RandomRange(1000,2000));
        P07_FFlag;
        Wait(RandomRange(800,1200));
       
       
       end;




    End;

     //LOGIN INFO STUFF
    Procedure P07_DeclarePlayer;
    Begin
      P07_PlayerName:='';
      P07_PlayerPass:='';

      breakit := false;

      faildetect := 0;

      StrangeboxDTM := DTMFromString('mbQAAAHicY2VgYGAHYjYGCBAEYl4omxuIeaC0EBCX5OQw9Le2MuSnp8NpLqA4OmbEgsEAALATB5Q=');
      AugDTM := DTMFromString('mQwAAAHicY2ZgYPjMxMDwG4i/AvFnIP8jEL8H4nXrVjE8ERcAYxEgH4YZkTAQAADIYgob');
      BankDTM := DTMFromString('mQwAAAHicY2ZgYKhlYmBoheI8BgguBOIYAxYwLtBhYBBhQGBGJAwEANrpBNk=');
      TeleDTM := DTMFromString('mQwAAAHicY2aAAG4gZgNiJiifGYht05IYWHklwLQMkA/DjEgYCABX/gKl');
    End;




    Procedure walktoessence;
    var xmid, ymid, xdif, ydif, bx, by,xpos,ypos: integer;
    LABEL str,str2;
    Begin

       if(P07_invcount > 6) then
       begin
       Writeln('more than 6 items in iven at start we better stop, start script with only pickaxe in first slot');
       playalarm;
       terminatescript;
       end;




    xmid := 643;
    ymid := 83;


    if( (RandomRange(1,3) = 1) ) then
      begin
      Wait(RandomRange(150,300));
       P07_TabInventoryTab(12);

       if not (FindColorTolerance(xpos, ypos, 1777019, 625, 428, 627, 430, 8)) then
       begin
       Wait(RandomRange(150,300));
       mmouse(640,431,5,5);
       Wait(RandomRange(150,300));
       clickmouse2(mouse_Left);

        end;

           Wait(RandomRange(200,400));
       P07_TabInventoryTab(4);
       Wait(RandomRange(200,400));
       end;


    str:

      antistuck;

    Wait(RandomRange(200,900));

      if( (RandomRange(1,3) = 1) ) then
      begin
      P07_MakeCompassDegree(RandomRange(1,3));
      end
      else
      begin
      P07_MakeCompassDegree(RandomRange(340,348));
     end;

      if(findDTM(BankDTM, bx, by, 565, 59, 717, 157)) then
      begin

      xdif := xmid - bx - 1;
      ydif := ymid - by + 23;

      mmouse( (xmid +  17 - xdif ), (ymid + 44 - ydif) ,1 ,1);
      Wait(RandomRange(100,300));
      ClickMouse2(mouse_Left);


      P07_FFlag;
      Wait(RandomRange(2000,3000));
      P07_FFlag;
      Wait(RandomRange(500,850));
      P07_FFlag;


      end
      else
      goto str;

      str2:
      antistuck;


       P07_FFlag;
      Wait(RandomRange(500,850));

        if( (RandomRange(1,2) = 1) ) then
      begin
      P07_MakeCompassDegree(RandomRange(1,3));
      end
      else
      begin
      P07_MakeCompassDegree(RandomRange(342,350));
     end;

      if(findDTM(AugDTM, bx, by, 565, 7, 717, 157)) then
      begin

      mmouse( bx+2, (by + 6),1 ,1);
      Wait(RandomRange(100,300));
      ClickMouse2(mouse_Left);
      Wait(RandomRange(200,400));


      P07_FFlag;
      Wait(RandomRange(600,1300));
      P07_FFlag;
      Wait(RandomRange(500,850));
      P07_FFlag;

      end
      else
      goto str2;




    end;

    procedure teletomine;
    var xpos, ypos: Integer;
    label str;
    begin

      str:
      antistuck;
      wait(RandomRange(5,555));


      if( RandomRange(1,5) = 1) then
      begin
         KeyDown(40);
           wait(RandomRange(800,1400));
             KeyUp(40);
      end;
      //else
      //begin
    //KeyDown(38);
      //     wait(RandomRange(800,1400));
        //     KeyUp(38);
      //end;


        if( RandomRange(1,2) = 1) then
       P07_MakeCompassDegree(RandomRange(5,355));

      if(FindColorTolerance(xpos, ypos, 3005947, 20, 20, 480, 280, 3)) or
      (FindColorTolerance(xpos, ypos, 3005947, 20, 20, 480, 280, 3)) or
      (FindColorTolerance(xpos, ypos, 2011884, 20, 20, 480, 280, 3)) then
      Begin
        mmouse(xpos,ypos,2,2);

        if(P07_ContainsText(P07_GetUpText, ['ubur'] )) then
        Begin
        ClickMouse2(mouse_Right);
        Wait(RandomRange(200,350));
        if not (P07_ChooseOptionMulti(['elepo'])) then
        goto str;

        end
         else
        goto str;


      end
      else
      begin

        mmouse(246,165,2,2);

        if(P07_ContainsText(P07_GetUpText, ['ubur'] )) then
        Begin
        ClickMouse2(mouse_Right);
        Wait(RandomRange(200,350));
        if not (P07_ChooseOptionMulti(['elepo'])) then
        goto str;

        end
        else
        goto str;

      end;


      KeyDown(38);
      wait(RandomRange(1555,2500));
      KeyUp(38);


        P07_FFlag;
      Wait(RandomRange(600,800));
      P07_FFlag;
      Wait(RandomRange(500,850));
      P07_FFlag;

    End;


    procedure mineess;
    var minecheck, xpos, ypos: Integer;
    LABEL str, str2, done;
    Begin


      KeyDown(38);
      wait(RandomRange(1555,2500));
      KeyUp(38);


    str2:
    antistuck;

    wait(RandomRange(5,555));


      if( (RandomRange(1,2) = 1) ) then
      begin
      P07_MakeCompassDegree(RandomRange(1,5));
      end
      else
      begin
      P07_MakeCompassDegree(RandomRange(340,350));
      end;

    if not (findDTM(TeleDTM, xpos, ypos, 565, 7, 717, 157)) then
    begin

      mmouse(686,31,4,4);
      Wait(RandomRange(100,400));
      clickmouse2(mouse_Left);

      P07_FFlag;
      Wait(RandomRange(1000,2000));
      P07_FFlag;
      Wait(RandomRange(300,550));

      if not (findDTM(TeleDTM, xpos, ypos, 565, 7, 717, 157)) then
      goto str2;

    end;






    str:
    antistuck;

     wait(RandomRange(5,555));



       if( RandomRange(1,2) = 1) then
       P07_MakeCompassDegree(RandomRange(5,355));

        wait(RandomRange(200,400));

       if(P07_ContainsText(P07_GetUpText, ['ine'] )) then
        Begin
        wait(RandomRange(200,400));
        ClickMouse2(mouse_Left);
        goto done;
        end;

      if(FindColorTolerance(xpos, ypos, 4079171, 20, 20, 480, 280, 2)) or
      (FindColorTolerance(xpos, ypos, 6513515,  20, 20, 480, 280, 2)) or
      (FindColorTolerance(xpos, ypos, 8421770, 20, 20, 480, 280, 2)) or
      (FindColorTolerance(xpos, ypos, 10724271, 20, 20, 480, 280, 2)) then
      Begin

      wait(RandomRange(200,400));
        mmouse(xpos,ypos,2,2);

        wait(RandomRange(200,400));

        if(P07_ContainsText(P07_GetUpText, ['ine'] )) then
        Begin
        ClickMouse2(mouse_Left);
        end
        else
        goto str;

        done:

        repeat

          randomevent;
        wait( randomrange(3000,5000) );
        randomevent;

        if(minecheck = P07_InvCount) then
        break;

        minecheck :=  P07_InvCount;


        until(P07_InvCount > 24)

        if(P07_InvCount < 22)then
         goto str2;

      end

    end;

    procedure teleout;
    var posx, posy: Integer;
    LABEL str;
    begin


    str:
    antistuck;

        wait( randomrange(1500,3000) );

        if( RandomRange(1,2) = 1) then
       P07_MakeCompassDegree(RandomRange(5,355));

      if(findDTM(TeleDTM, posx, posy, 565, 7, 717, 157)) then
      begin

       mmouse(posx+5,posy,1,1);
       wait(RandomRange(100,300));
       ClickMouse2(mouse_Left);

       end
       else
       goto str;

       wait(RandomRange(500,900));

       P07_FFlag;
      Wait(RandomRange(900,1550));

       if(FindColorTolerance(posx, posy, 11258063, 20, 20, 480, 280, 4)) or
       (FindColorTolerance(posx, posy, 10071733, 20, 20, 480, 280, 3)) or
       (FindColorTolerance(posx, posy, 11523802, 20, 20, 480, 280, 4)) then
      Begin
        mmouse(posx,posy,4,4);
        wait(RandomRange(200,400));
        if(P07_ContainsText(P07_GetUpText, ['ort'] )) then
        Begin
        ClickMouse2(mouse_Left);
        end
        else
        goto str;


      end
       else
        goto str;



    end;

    procedure backtobank;
    var bx,by:Integer;
    label str;
    begin

             wait(RandomRange(100,300));
          P07_MakeCompassNorth;
          wait(RandomRange(100,300));
       mmouse(665,47,1,1);
       wait(RandomRange(100,300));
       ClickMouse2(mouse_Left);

      P07_FFlag;
      Wait(RandomRange(1000,2000));
      P07_FFlag;
      Wait(RandomRange(300,550));




    str:
    antistuck;

    Wait(RandomRange(500,1500));

      if( (RandomRange(1,2) = 1) ) then
      begin
      P07_MakeCompassDegree(RandomRange(1,5));
      end
      else
      begin
      P07_MakeCompassDegree(RandomRange(340,350));
      end;

      if(findDTM(BankDTM, bx, by, 565, 7, 717, 157)) then
      begin




      mmouse( bx + 3 ,  by - 26 ,1 ,0);
      Wait(RandomRange(100,300));
      ClickMouse2(mouse_Left);


      P07_FFlag;
      Wait(RandomRange(1500,2000));
      P07_FFlag;
      Wait(RandomRange(300,550));

      end
      else
      goto str;

    end;


    procedure bankess;
    var posx,posy: Integer;
    label str,done ;
    Begin


    str:
    antistuck;


    wait(RandomRange(5,555));

       if  (P07_BankScreen) then
       begin
      P07_Deposit(2,28,true);
      goto done;
       end;


       if( RandomRange(1,2) = 1) then
       P07_MakeCompassDegree(RandomRange(5,355));

       if(FindColorTolerance(posx, posy, 2117213, 20, 20, 480, 280, 4)) or
       (FindColorTolerance(posx, posy, 2051163, 20, 20, 480, 280, 4)) or
       (FindColorTolerance(posx, posy, 4466483, 20, 20, 480, 280, 6)) then
      Begin

        mmouse(posx,posy,10,10);

         if not ( P07_ChooseOptionMulti(['uickl', 'ank Ban']) )  then
        Begin
        ClickMouse2(mouse_Right);



           if not ( P07_ChooseOptionMulti(['uickl', 'ank Ban']) )  then
            goto str;



        end
      else
      goto str;

      end
      else
      goto str;

      wait(RandomRange(1555,2343));

      if not (P07_BankScreen) then
      goto str;

       P07_Deposit2(2,28,true);

         done:


         wait(RandomRange(400,1243));
          mmouse(486,40,6,6);
          wait(RandomRange(100,343));
          ClickMouse2(mouse_Left);
           wait(RandomRange(100,343));





    ////MAIN START HERE.


    Begin

      P07_DeclarePlayer;
      SetupP07Include;
      ActivateClient;
      Writeln(P07_GetUpText);

      wait(1000);
      P07_TabInventoryTab(4);
     
      Writeln('Killer06s Essence Miner 1.04 ');
      Writeln('if you have any problems post in thread or try to fix it yourself :P');

      DR := 1;

       repeat

       wait(400);

        randomevent;

        faildetect := 0;

           Wait(RandomRange(800,1000));
        Writeln('walk to aug');
        walktoessence;

           faildetect := 0;

         Wait(RandomRange(400,800));

        Writeln('tele to mine');
        teletomine;

             faildetect := 0;

         Wait(RandomRange(1800,2500));

        Writeln('lets mine ess');
        mineess;

           faildetect := 0;

         Wait(RandomRange(1000,2000));
        Writeln('teleout');
        teleout;

            faildetect := 0;

         Wait(RandomRange(2000,3500));
        Writeln('walk to bank');
       backtobank;


            faildetect := 0;

        //Wait(RandomRange(1000,2000));
       Writeln('bank the ess');
      bankess;


          faildetect := 0;

        until (false);

          playalarm;

    //End.



       // P07_LogInPlayer;
      //P07_MakeCameraAngleHigh;
      //P07_MakeCompassNorth;



     // If P07_BankScreen Then
      //  WriteLn('Bank is Open');

          //sandwich
      //if(FindColorTolerance(X, Y, 9344970, 150, 50, 350, 240, 4))  then
      // begin
       //end
       //560 720 285 458   640 490     627 374

    Quote Originally Posted by Sjoekeloe View Post
    Edit your original post with simba tags please. And i'll fix the anti-leech problem for you

    Learn to read please.

    Creds to DannyRS for this wonderful sig!

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

    Default

    i feel like an idiot, but whatever, i hope that works.

  10. #10
    Join Date
    Mar 2006
    Location
    Belgium
    Posts
    3,564
    Mentioned
    111 Post(s)
    Quoted
    1475 Post(s)

    Default

    Quote Originally Posted by elphalpha View Post
    i feel like an idiot, but whatever, i hope that works.
    Ok my end of the promise.

    At the latter part of the script u'll see //End. Uncomment that so it's End.

    On the last procedure of the script (the one before the mainloop), the procedure's name is procedure bankess;
    U have to put an end; at the end of the procedure.

    If u encounter any more issues, please post it on the scripters thread.
    Since it will most likely be bugs etc..

    Creds to DannyRS for this wonderful sig!

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
  •