SRL Archive - OSR Help

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

elphalpha

2013-03-03 02:51:25

[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

Sjoe

2013-03-03 02:52:56

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

elphalpha

2013-03-03 02:55:13

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

Sjoe

2013-03-03 03:01:23

Could u use simba tags around your script?

 [/SIMBA.] (without the dot) 
Makes it more clear to read.

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

elphalpha

2013-03-03 03:12:34

[ATTACH]19563[/ATTACH]

Sjoe

2013-03-03 03:17:21

From: elphalpha
[ATTACH]19563[/ATTACH]

it's the little lion head next to Youtube.
It will paste this

 [/SIMBA.] (without the dot)

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

[SIMBA]
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 :)

elphalpha

2013-03-03 03:36:21

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

Sjoe

2013-03-03 03:38:34

From: elphalpha

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

From: Sjoekeloe

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

Learn to read please.

elphalpha

2013-03-03 03:47:26

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

Sjoe

2013-03-03 03:54:18

From: elphalpha
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..