[Error] (37912:1): Unexpected end of file at line 37911
Compiling failed.
Fixed the P07, gave the end proper "semicolon" and added one at bottom, what now?
[Error] (37912:1): Unexpected end of file at line 37911
Compiling failed.
Fixed the P07, gave the end proper "semicolon" and added one at bottom, what now?
It has a hard time finding the rock itself, if this were smart i'd actually use it a lot.
Error] C:\Users\cOMPUTER\Downloads\Killer06's EssMiner 1.03 (dif bank detection) .simba(308:50): Type mismatch at line 307
Last edited by zero8; 03-10-2013 at 09:00 AM.
[Error] C:\Users\Memos\Downloads\Killer06's EssMiner 1.04 (dif bank detection) (2).simba(600:49): Type mismatch at line 599
Compiling failed.
[Error] C:\Users\Memos\Downloads\Killer06's EssMiner 1.04 (dif bank detection) (3).simba(709:7): Identifier expected at line 708
Compiling failed. please i need help with this anyone able to help me?
Exception in Script: Unable to find file 'P07Include.Simba anyone eble to help please
I can't do the anti-leech
"[Error] (37908:1): Unexpected end of file at line 37907 Compiling failed."
I have been at it for a good while now, I'm sure I have to end it, but everything I try doesnt work.
Could I have a hint?
[Error] (37450:1): Unexpected end of file at line 37449
Compiling failed.
this isnt making sense, please help
[Error] C:\Users\Nick\Downloads\Killer06's EssMiner 1.02 .simba(308:50): Type mismatch at line 307
Compiling failed.
can someone help me?
It's funny how so many people posting have less than 5 posts. You'll get rid of the anti leeches eventually. Bot works well, but every so often it gets stuck at the mining place with a full inventory.
this is my first time even using simba but i honestly dont understand the coding and stuff...
Quit posting your errors. Learn 2 script!
I'm having trouble with the DTM's. I set my own according to the ones in the original post, but it still just rotates the camera back and forth.
Last edited by othehorror; 03-11-2013 at 12:50 AM.
I tried 1.02, 1.03 and 1.04 and they all seem to have a problem finding the first DTM.
I started in front of a bank booth at Varrock's east bank. After running the script it clicks by inventory, goes to options and turns on run, goes back to inventory, moves the camera/compass to point south and then it keeps moving it left and right.
Looked through the code and you have so much camera movement in there.. All the DTM issues could be something to do with the fact the camera's moving about so much? Give it a chance to breathe haha.
Helps if you read. Download the P07 include here: http://villavu.com/forum/showthread.php?t=96863
Last edited by PartyShanked; 03-11-2013 at 04:48 AM.
Took me all of 4 minutes to fix anti-leaches when i have barely the basic understanding of simba coding. All script does is rotate camera now though.
Getting a type mismatch on line 599. Fixed the first leach (fairly obvious) but I'm stuck on what to change here.
You people are dropping kids that don't have the ability to hear into music lessons, they won't learn unless you TEACH them. Adding an anti-leech is good, but come on I've been trying to work out; "[Error] (37449:1): Unexpected end of file at line 37448 Compiling failed." For two hours now.
Some help would be great, It's just starting to frustrate the fuck out of me.
Heres script but it just moves screen back and forth.... Doesn't mine but antileech is out.
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));
end;
////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
FINALLY!! I got it ;D (without using the post above) that whole the last anti-leech had me confused for awhile, not actually wanting to use the script but noticed a lot of people having problems so thought i'd give it a shot, by the way if I ever attempt at making some noob script do you care if I steal your stranger plant random code?
Edith and since they're forcing you to take away anti-leech I would highly suggest removing script, unless your purpose in scripting is to ruin rs economy :/
Sorry for the comment,it was my fault,thank you so much its working very well![]()
Last edited by TheBlack; 03-15-2013 at 12:54 PM.
anti-leeches are agianst the rules if u dont belive me goto this link http://villavu.com/forum/announcement.php?f=&a=48
Have some trouble with Error] (37912:1): Unexpected end of file at line 37911...
There are currently 1 users browsing this thread. (0 members and 1 guests)