Results 1 to 7 of 7

Thread: Cannot run scripts! How to fix antileech?

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

    Default Cannot run scripts! How to fix antileech?

    I've followed all the tutorials, placed the 07includes etc and read the FAQs but I can't run any script successfully.

    e.g.


    [Error] C:\Users\XXXXX\Documents\Simba\Scripts\Killer06's EssMiner 1.04.simba(600:49): Type mismatch at line 599
    Compiling failed.
    Last edited by rdxd; 03-03-2013 at 01:28 AM.

  2. #2
    Join Date
    Dec 2011
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by rdxd View Post
    I've followed all the tutorials, placed the 07includes etc and read the FAQs but I can't run any script successfully.
    at least show the script and the error so we can see what needs fixing?

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

    Default

    Quote Originally Posted by Incanumix View Post
    at least show the script and the error so we can see what needs fixing?
    sorry here it is


    [Error] C:\Users\XXXXX\Documents\Simba\Scripts\Killer06's EssMiner 1.04.simba(600:49): Type mismatch at line 599
    Compiling failed.

  4. #4
    Join Date
    Apr 2012
    Posts
    92
    Mentioned
    0 Post(s)
    Quoted
    23 Post(s)

    Default

    Quote Originally Posted by rdxd View Post
    sorry here it is


    [Error] C:\Users\XXXXX\Documents\Simba\Scripts\Killer06's EssMiner 1.04.simba(600:49): Type mismatch at line 599
    Compiling failed.
    LOL really? You have read so much tutorials, but you can't even show the script(do you know what a script is?)?
    What do you think we can do with only that one line of code?.. NOTHING. jezus christ.

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

    Default

    Could be anti-leech, try posting on the script thread.

    Forum account issues? Please send me a PM

  6. #6
    Join Date
    Feb 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by juunhoad View Post
    LOL really? You have read so much tutorials, but you can't even show the script(do you know what a script is?)?
    What do you think we can do with only that one line of code?.. NOTHING. jezus christ.
    Do you even know who "Jezus" christ is? Can't even spell his name. You're useless anyways.

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

    Default

    Quote Originally Posted by Incanumix View Post
    at least show the script and the error so we can see what needs fixing?
    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('mbQAAAHicY2VgYGAHYjYGCBAEYl4omxuIea C0EBCX5OQw9Le2MuSnp8NpLqA4OmbEgsEAALATB5Q=');
    AugDTM := DTMFromString('mQwAAAHicY2ZgYPjMxMDwG4i/AvFnIP8jEL8H4nXrVjE8ERcAYxEgH4YZkTAQAADIYgob');
    BankDTM := DTMFromString('mQwAAAHicY2ZgYKhlYmBoheI8BgguBOIYAx YwLtBhYBBhQGBGJAwEANrpBNk=');
    TeleDTM := DTMFromString('mQwAAAHicY2aAAG4gZgNiJiifGYht05IYWH klwLQMkA/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(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.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

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
  •