Results 1 to 6 of 6

Thread: Can somebody help me with this?

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

    Default Can somebody help me with this?

    So I've gotten past all of the anti leech I believe, however I'm a bit confused about why it will not run, please forgive me if I'm not suppose to post it I wasn't able to find anything about not being allowed to, and I'll be deleting this once my problem is fixed!

    Right when I hit run it just automatically stops, below is a picture of it and the logs!



    Code:
    Program killer06essminer;
    
    {$I SRL/SRL.Simba}
    {$I P07Include.Simba}
    
    var
      X,Y,DR,faildetect:Integer;
    
    var
      breakit:boolean;
    
    var
      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('mWAAAAHicY2FgYChkYmAoBeJ8IC4C4gKgWBkQVwBxJRD/MrVhuGQoxfCg2JjhiJAMgwhQDBkzomEQAADwFgj/');
      BankDTM := DTMFromString('mQwAAAHicY2ZgYKhlYmBoZYLQWQwQnAvERX4GYNzmpcDAD+TDMCMSBgIA+kYFyg==');
      TeleDTM := DTMFromString('mQwAAAHicY2ZgYJjCxMAwC4jnA7E7kO8BxK5AbJuWBMasvBIMIkA+DDMiYSAAAObrBR4=');
    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,2) = 1) ) then
      begin
      P07_MakeCompassDegree(RandomRange(1,3));
      end
      else
      begin
      P07_MakeCompassDegree(RandomRange(342,350));
     end;
    
      if(findDTM(BankDTM, bx, by, 565, 7, 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(P07_ContainsText(P07_GetUpText, ['ank'] )) 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.02 ');
      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
    
       begin
    
          end
          //writeln(inttostr(invcount2) + ' ' + inttostr(invcount1));
        end;
    
      begin TerminateScript;
    end.

    Code:
    Loading extension C:\Simba\Extensions\associate.sex
    Extension Enabled
    Loading extension C:\Simba\Extensions\srl.sex
    Extension Enabled
    SRL Updater Enabled!
    Plugins Updater Enabled!
    SPS Updater Enabled!
    MSI Updater Enabled!
    Simba news:
    
        Simba 0.99 has been released. The release pages will be updated in a few
        days.
    
        The latest Simba is Simba 992. Changes from 991 are mostly just lape
        updates: http://villavu.com/forum/showthread.php?t=94351
    
    
    Thank you for using Simba,
    Hakuna Matata.
    
    New window: 917712
    Compiled successfully in 672 ms.
    Successfully executed.
    Last edited by xRalek; 02-28-2013 at 05:20 AM.

  2. #2
    Join Date
    Mar 2007
    Posts
    5,125
    Mentioned
    275 Post(s)
    Quoted
    901 Post(s)

    Default

    That' the anti-leech still.

    Forum account issues? Please send me a PM

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

    Default

    But no hint? :S

  4. #4
    Join Date
    Feb 2012
    Location
    Wonderland
    Posts
    1,988
    Mentioned
    41 Post(s)
    Quoted
    272 Post(s)

    Default

    Quote Originally Posted by xRalek View Post
    But no hint? :S
    Any hints wouldn't be a hint, at least from my point of view, they'd be solutions that the script owner probably doesn't want being blatantly given. However, I would suggest studying some examples via tutorial section to learn the hints for your own knowledge. :]

  5. #5
    Join Date
    Jan 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by Le Jingle View Post
    Any hints wouldn't be a hint, at least from my point of view, they'd be solutions that the script owner probably doesn't want being blatantly given. However, I would suggest studying some examples via tutorial section to learn the hints for your own knowledge. :]
    Yep that's what I've been doing for literally over an hour now and still no luck haha, back to reading more!

    Does it have anything to do with the "//" comments?

  6. #6
    Join Date
    Feb 2012
    Location
    Wonderland
    Posts
    1,988
    Mentioned
    41 Post(s)
    Quoted
    272 Post(s)

    Default

    Quote Originally Posted by xRalek View Post
    Yep that's what I've been doing for literally over an hour now and still no luck haha, back to reading more!

    Does it have anything to do with the "//" comments?
    When you comment, you are writing `` code "" that does not get executed.
    Ideally, you use comments to document the code that does get executed.
    Simply think of commented code/words/text as descriptions for the most part.

    Hope that enlightens you to what the use of commenting and/or documenting code means.
    Note: I didn't suggest that commenting out code means anything towards anti - leech, for example, as I could comment out code that debugs or doesn't properly function right.

    It indeed takes some time before fully understanding what might be going on in a piece of code, so my best suggestion is to keep at it :]

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
  •