SRL Archive - OSR Help

Cannot run scripts! How to fix antileech?

rdxd

2013-03-02 20:14:49

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.

Incanumix

2013-03-02 20:19:49

From: rdxd
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?

rdxd

2013-03-02 20:27:57

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

juunhoad

2013-03-02 21:58:03

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

Justin

2013-03-02 22:08:43

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

Zezamorak

2013-03-03 00:02:39

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

rdxd

2013-03-03 00:50:41

From: Incanumix
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('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(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