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