Log in

View Full Version : Line 66 error mistmatch???????


aaron7395
08-15-2007, 05:17 PM
wtf i have scar divi 3.11 and srl 3.81 and ive tryed to run a script ive set up the srl and downloaded it on scar but it says Line 67: [Error] (14516:20): Type mismatch in script C:\Documents and Settings\Gisele1\Local Settings\Temporary Internet Files\Content.IE5\O1EKPSY4\Meanage%20Studios%20Var rock%20Log%20Cutter%20and%20Banker%20v0.71[1].scar some one help me omg!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!:fiery:
LordGregGreg
08-15-2007, 05:22 PM
wtf i have scar divi 3.11 and srl 3.81 and ive tryed to run a script ive set up the srl and downloaded it on scar but it says Line 67: [Error] (14516:20): Type mismatch in script C:\Documents and Settings\Gisele1\Local Settings\Temporary Internet Files\Content.IE5\O1EKPSY4\Meanage%20Studios%20Var rock%20Log%20Cutter%20and%20Banker%20v0.71[1].scar some one help me omg!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!:fiery:

Im am sorry, but flamming and demanding help is going to get you no where fast.

People here would love to help you, and the least they want in ruturn is to be appriciated, we are not getting any gain out of helping you, rmember that.

Now, srl is not working right now.. just fyi.. wait for srl 4. But this also seems to be an error inside the script you are trying to run.

This is means that you can have srl and scar set up correctly, and just a bad script.

If you post the script , we can help you more.

Also, this is a warning, please do not demand for help anymore.
aaron7395
08-15-2007, 05:28 PM
__ ___ ______ ___
/ |/ /__ ___ ____ ___ ____ ____ / __/ /___ _____/ (_)__ ___
/ /|_/ / -_) _ `/ _ \/ _ `/ _ `/ -_) _\ \/ __/ // / _ / / _ \(_-<
/_/ /_/\__/\_,_/_//_/\_,_/\_, /\__/ /___/\__/\_,_/\_,_/_/\___/___/
/___/
Varrock Normal Log Cutter/Banker v0.71

This script was made by Meanage, with credits to Wizzup? for the banking.

This is a macro that cuts normal trees and banks the logs in Varrock east bank.
Features:
-Extra failsafes
-Better banks per logs ratio
-Less bot-like walking
-Global stats
-New report style
-An Introductin thing(ment to look like a brocken neon sign lol)
-Changed window name
-Fixed a bug where it would walk to the dig site instead of the dummys

Issues:
-No ent protection. Will be added as soon as I get an ent with a normal tree.
-No axe finder. Will add one when SRL gets a working one, may make my own but you lose it so rarly that it doesnt matter.

This script will be moved to the member section if:
1.I dont get a high enough feedback to downloads ratio
2.This script is abused, eg. in every world there ia a lvl 3, default clothes using it
3.This script is posted on anothere website(especially Sythe.org)
However, if it gets moved to the members section and your not a member and you gave me feedback on how it went etc
then you can continue to have updates if you want them.

Instructions;
1.Start in varrock east bank with axe in 1st invent slot
2.Setup players, and loads to do
3.Login and out if youve just loaded the world
4.Drag the crosshair onto rs window
5.Press play
6.Tell me what happend and post progress reports

}
program VarrockTreeCutter;
{.include SRL/SRL.scar}

//----------------------------------------------------------------------------------------------------------------//
//----------------------------------------------------------------------------------------------------------------//
//SetUp //
//----------------------------------------------------------------------------------------------------------------// //

const ToDo=6;// How many loads to do before switching players

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Players //
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//set the usernames, passwords and nicknames, the nicknames are 3 lowercase letters of your username, //
//if you are not using all of the spaces available the either put {} around the unused ones or delete them, //
//set how many players to the number of players ou are using, if you want to add more players than there is slots //
//then just stick more slots in but remember to cange the numbers //
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

procedure DeclarePlayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;

Players[0].Name :=0mg its oby;
Players[0].Pass :=15540;
Players[0].Nick :=omg;
Players[0].Active:=True;

Players[1].Name :='Username';
Players[1].Pass :='Password';
Players[1].Nick :='Nickname';
Players[1].Active:=false;

Players[2].Name :='Username';
Players[2].Pass :='Password';
Players[2].Nick :='Nickname';
Players[2].Active:=false;

Players[3].Name :='Username';
Players[3].Pass :='Password';
Players[3].Nick :='Nickname';
Players[3].Active:=false;
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//
//Script, end of setup, no need to change anything //
//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

var Atbank:boolean;
var Done :integer;
var Tree2,XTR,YTR:integer;
var Totaldone,banked,TreesCut:integer;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Procedure SendArrowWait( key, WaitTime : Integer ); //0 = up, 1 = right, 2 = down, 3 = left. Dark_snipers
begin
If key = 0 then begin
KeyDown(38)
wait(WaitTime)
KeyUp(38)
end;
If key = 1 then begin
KeyDown(39)
wait(WaitTime)
KeyUp(39)
end;
If key = 2 then begin
KeyDown(40)
wait(WaitTime)
KeyUp(40)
end;
If key = 3 then begin
KeyDown(37)
wait(WaitTime)
KeyUp(37)
end;
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Procedure BitMaps;
begin
tree2 := BitmapFromString(3, 3, '889049765B3768783488693F7A' +
'5D3898A86582643B7D5F387D5F38');
end;

procedure FreeBitmaps;
begin
FreeBitmap(tree2)
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Procedure LogoutIn;
begin
Logout;
Wait(2000+random(3000))
LoginPlayer;
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//
// Bank walking //
//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Procedure ToWaterSymbol;//Finds water symbol and moves to it
var WSX,WSY,L,W,T:integer;
var AtWater:Boolean;
begin
AtWater:=False;
T:=0;
L:=0;
W:=0;
Writeln('Finding Water Symbol')
SymbolAccuracy:= 0.5;
begin
Repeat
Writeln('Tryed to find Water '+ inttostr(t) + ' times')
If (FindSymbol(WSX,WSY,'water'))then
begin
Mouse(WSX,WSY,1,1,true)
wait(4000)
FFlag(0)
AtWater:=True;
end;
If (not(FindSymbol(x,y,'water')))then
begin
Mouse(649, 101,3,3,true)
FFlag(0)
W:=W+1;
end;
If (W=2) then
begin
LogoutIn;
W:=0;
L:=L+1;
end;
If (L=3) then
begin
Writeln('Couldnt find water')
NextPlayer(False)
Done:=0;
end;
If (not(loggedIn)) then
begin
LoginPlayer;
end;
until(AtWater=True)
end;
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Procedure ToDummySymbol;//Finds dummy symbol and moves to it, it it doesnt then it Finds water symbol
var DSX,DSY,T,L,W:integer;
var AtDummys:Boolean;
begin
AtDummys:=False;
T:=0;
L:=0;
W:=0;
Writeln('Finding Dummy Symbol')
SymbolAccuracy:= 0.9;
begin
Repeat
Writeln('Tryed to find dummys '+ inttostr(T) + ' times')
If (FindSymbol(DSX,DSY,'training dummy'))then
begin
Mouse(DSX-(9),DSY+(12),4,4,true)
Wait(4000)
FFlag(0)
AtDummys:=True;
end;
If (not(FindSymbol(x,y,'training dummy')))then
begin
ToWaterSymbol;
T:=T+1;
end;
If (T=2) then
begin
Mouse(670, 84,1,1,True)
FFlag(0)
W:=W+1;
T:=0;
end;
If (W=2) then
begin
LogoutIn;
L:=L+1;
W:=0;
T:=0;
end;
If (L=3) then
begin
Writeln('Couldnt find dummys')
Exit;
NextPlayer(False)
Done:=0;
end;
If (not(loggedIn)) then
begin
LoginPlayer;
end;
until(AtDummys=True)
end;
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

procedure ToBankDTM;
var BankDTM:integer;
var AngleVar:extended;
begin
BankDTM:= DTMFromString('78DA636C666260486140016FDEBC61F80FA 41' +
'981F83F1030B603D5E4A0AA79FB96814103AA060418EB816A B251' +
'D57CFD8AAA0600B6210EA4');
If FindDTMRotated(BankDTM ,X ,Y, MMX1, MMY1, MMX2, MMY2, -1.0, 2.0, 1,Anglevar) Then
Begin
Mouse(X, Y, 0, 0, True);
Wait(200)
FFlag(0)
AtBank:=True;
End;
FreeDTM(BankDTM);
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Procedure ToBankSymbol;//Finds bank symbol and moves to it, if it doesnt then it Finds dummy symbol
var BSX,BSY,W,T,L:integer;
var AtBank:Boolean;
begin
AtBank:=False;
T:=0;
L:=0;
W:=0;
Writeln('Finding Bank Symbol')
SymbolAccuracy:= 0.3;
begin
Repeat
Writeln('Tryed to find bank '+ inttostr(T) + ' times')
If (FindSymbol(BSX,BSY,'bank'))then
begin
Mouse(BSX,BSY,2,2,true)
wait(4000)
FFlag(0)
AtBank:=True;
end;
If (not(FindSymbol(x,y,'bank')))then
begin
T:=T+1;
ToDummySymbol;
end;
If (T=2) then
begin
Mouse(649, 101,3,3,True)
FFlag(0)
ToBankDTM;
AtBank:=True;
T:=0;
W:=W+1;
end;
If (W=3) then
begin
LogoutIn;
T:=0;
W:=0;
L:=L+1;
end;
If (L=2) then
begin
Writeln('Couldnt find bank')
Exit;
NextPlayer(False)
Done:=0;
end;
If (not(loggedIn)) then
begin
LoginPlayer;
end;
until(AtBank=True)
end;
end;



//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Function EasyBank:Boolean;//stolen from wizzup?
Begin
LowestAngle;
OpenBankGlass('veb',False,False);
FFlag(0);
Wait(1000);
If BankScreen Then
Begin
Result := True;
Exit;
End;
If OpenBankQuiet('veb') Then Result := True;
End;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

function CloseBank2: Boolean;//Stolen from Fakawi, edited it
var
CBBM, CBx, CBy: Integer;
begin
CBBM := BitmapFromString(4, 3, 'z78DA3330000243030CD2C' +
'CC4D4DC848008320900F6350DC1');
if not BankScreen then Exit;
if FindBitmapToleranceIn(CBBM, CBx, CBy, 450, 30, 500, 50, 50) then
begin
MMouse(CBx, CBy, 4, 4)
Wait(100+random(500))
GetMousePos(CBx,CBy)
Mouse(CBX, CBY, 0, 0, true)
Result := True;
end;
FreeBitmap(CBBM);
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Procedure Banklogs;
begin
Deposit(2,28,2)
CloseBank2;
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Procedure Bank;
begin
ToBankSymbol;
ToBankDTM;
Wait(100)
EasyBank;
Wait(10+random(500))
BankLogs;
Wait(20+random(500))
CloseBank2;
Wait(10)
HighestAngle;
End;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//
// Tree walking //
//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Procedure ToBankSymbol2;//Finds bank symbol and moves to it, if it doesnt then it Finds dummy symbol
var BSX,BSY,T,L:integer;
//var AtBank:Boolean;
begin
AtBank:=False;
//MakeMapNorth;///////////////////////////////////////////////////////////////////////////////////
T:=0;
L:=0;
Writeln('Finding Bank Symbol')
SymbolAccuracy:= 0.4;
begin
Repeat
Writeln('Tryed to find bank '+ inttostr(t) + ' times')
If (FindSymbol(BSX,BSY,'bank'))then
begin
Mouse(BSX,BSY,4,4,true)
Wait(4000)
FFlag(0)
AtBank:=True;
end;
If (not(FindSymbol(x,y,'bank')))then
begin
T:=T+1;
ToDummySymbol;
end;
If (T=2) then
begin
LogoutIn;
T:=0;
L:=L+1;
end;
If (L=3) then
begin
Writeln('Couldnt find bank')
Exit;
NextPlayer(False)
Done:=0;
end;
If (not(loggedIn)) then
begin
LoginPlayer;
end;
until(AtBank=True)
end;
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Procedure ToDummySymbol2;//Finds dummy symbol and moves to it, it it doesnt then it Finds water symbol
var DSX,DSY,T,L:integer;
var AtDummys:Boolean;
begin
AtDummys:=False;
T:=0;
L:=0;
Writeln('Finding Dummy Symbol')
SymbolAccuracy:= 0.4;
begin
Repeat
Writeln('Tryed to find dummys '+ inttostr(t) + ' times')
If (FindSymbol(DSX,DSY,'training dummy'))then
begin
Mouse(DSX-(9),DSY+(13),2,2,true)
Wait(4000)
FFlag(0)
AtDummys:=True;
end;
If (not(FindSymbol(x,y,'training dummy')))then
begin
T:=T+1;
Mouse(630, 83,3,3,true)
Wait(100)
FFlag(0)
end;
If (T=2) then
begin
LogoutIn;
T:=0;
L:=L+1;
end;
If (L=3) then
begin
Writeln('Couldnt find dummys')

NextPlayer(False)
Done:=0;
Exit;
end;
If (not(loggedIn)) then
begin
LoginPlayer;
end;
until(AtDummys=True)
end;
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Procedure ToWaterSymbol2;//Finds water symbol and moves to it if it doesnt it goes to the color
var WSX,WSY,T,L,W:integer;
var AtWater:Boolean;
begin
AtWater:=False;
T:=0;
L:=0;
W:=0;
Writeln('Finding Water Symbol')
SymbolAccuracy:= 0.5;
begin
Repeat
Writeln('Tryed to find Water '+ inttostr(t) + ' times')
If (FindSymbol(WSX,WSY,'water'))then
begin
Mouse(WSX,WSY,1,1,true)
Wait(4000)
FFlag(0)
AtWater:=True;
end;
If (not(FindSymbol(x,y,'water')))then
begin
Todummysymbol2;
T:=T+1;
end;
If (T=2) then
begin
Mouse(660,86,3,3,true)
FFlag(0)
W:=W+1;
T:=0;
L:=L+1;
end;
If (W=2) then
begin
LogoutIn;
W:=0;
T:=0;
L:=L+1;
end;
If (L=3) then
begin
Writeln('Couldnt find water')
NextPlayer(False)
Done:=0;
end;
If (not(loggedIn)) then
begin
LoginPlayer;
end;
until(AtWater=True)
end;
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

procedure ToTrees;
begin
Mouse(654,64,4,4,True)
FFlag(0)
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

procedure FromTrees;
begin
Mouse(659, 107, 4, 4, true)
FFlag(0)
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//
//Cutting //
//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

procedure TreeWait;
var TreeThere,TreeCut:Boolean;
begin
TreeThere:=False;
TreeCut:=False;
MMouse(xtr,ytr,3,3)
wait(1000+random(500))
If(inchat('do not have')) then begin
NextPlayer(false)
Done:=0;
end;
FindNormalRandoms;//replace with find fast
Wait(100+random(500))
if (FindFight) then
begin
RunAwayDirection('S');
Wait(5500 + random(3500));
RunBack;
FFlag(0)
end;
wait(1100)
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Procedure Cut;
var Cut2:boolean;
var tx,ty,loops,F,fg:integer;
begin
Loops:=0;
F:=0;
FG:=0;
repeat
Loops:=Loops+1;
if FindBitmapToleranceIn(tree2, tx,ty,msx1,msy1,msx2,msy2, 50) then
begin
MMouse(tx,ty,3,3)
wait(100+random(250))
if (not(IsUpText('hop'))) and (not(IsUpText('h op'))) and (not(IsUpText('ho p'))) and (not(IsUpText('h o p')))then
begin
SendArrowWait(1,4)
f:=F+1;
end;
if (IsUpText('hop')) or (IsUpText('h op')) or (IsUpText('ho p')) or (IsUpText('h o p'))then
begin
Loops:=0;
Fg:=0;
GetMousePos(xtr,ytr)
Mouse(tx,ty,3,3,true)
FFlag(0)
TreeWait;
TreesCut:=TreesCut+1;
ReportVars[1]:=ReportVars[1]+1;
Wait(200)
end;

end;
if (not(FindBitmapToleranceIn(tree2, tx,ty,msx1,msy1,msx2,msy2, 50))) then
begin
Mouse(552+random(180), 186, 4, 4, true)
Wait(3000+random(2000))
If(findFight) then
begin
exit;
end;
Findnormalrandoms;
FTWait(13)
end;
If (f >= 5) then
Begin
MakeCompass('N');
Loops:=0;
F:=0;
FG:=FG+1;
end;
If (not(loggedIn)) then
begin
LoginPlayer;
end;
until(invfull) or (loops = 5) or (FG = 7)
MakeCompass('N');
//SendArrowWait(3,f*4)
// CompassDegree(0)
// perfectscreen;
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Procedure Chop;
begin
ToWaterSymbol2;
ToTrees;
Cut;
FromTrees;
End;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//
//SetUp //
//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//
Procedure Welcome;
var f:integer;
begin
F:=0;
Repeat
Writeln(' __ ___ ______ ___')
Writeln(' / |/ /__ ___ ____ ___ ____ ____ / __/ /___ _____/ (_)__ ___')
Writeln(' / /|_/ / -_) _ `/ _ \/ _ `/ _ `/ -_) _\ \/ __/ // / _ / / _ \(_-<')
Writeln('/_/ /_/\__/\_,_/_//_/\_,_/\_, /\__/ /___/\__/\_,_/\_,_/_/\___/___/')
Writeln(' /___/')
Writeln(' Varrock Normal Log Cutter/Banker v0.71')
Wait(100+random(800))
ClearDebug;
Wait(100+random(300))
F:=F+1;
until(F >= 5)
end;

Procedure SetMeUp;
begin
ClearDebug;
Welcome;
SetUpSRL;
DisguiseScar('Meanage Studios Log Cutter/Banker');
ScriptID:='109';
DeclarePlayers;
Done:=0;
TotalDone:=0;
TreesCut:=0;
Bitmaps;
if(not(LoggedIn)) then
begin
LoginPlayer;
end;
end;

//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

Procedure Report;
begin
ClearDebug;
Writeln('Meanage Studios Varrock Log Cutter/Banker')
Writeln('Worked For : ' + ScriptTime2(2))
Writeln('Cut ' + inttostr(TreesCut) + ' Logs')
Writeln('Banked ' + inttostr(TotalDone) + ' Times')
Writeln('Meanage Studios Varrock Log Cutter/Banker')
SRLRandomsReport;
end;
//---------------------------------------------------------------------------------------------------------------//
//---------------------------------------------------------------------------------------------------------------//

begin
SetMeUp;
begin
repeat
Chop;
Bank;
TotalDone:=TotalDone+1;
Banks:=Banks+1;
Done:=Done+1;
Report;
if (Done>=ToDo) then
begin
NextPlayer(True)
Done:=0;
end;
Until(False)
end;
FreeBitmaps;
end.



here you go and sorry about that but ive been trying to fix this for 1 week and how long will it take for srl 4.0 to come out?
LordGregGreg
08-15-2007, 05:33 PM
Ok, next time please use
your script here tags to put the script in.

now look, string must be in " 'sting' " marks, else it wont work.



Players[0].Name :=0mg its oby;


is wrong



Players[0].Name :='0mg its oby';



is correct.

read a tutorial on how to auto for any other questions.


and srl will be out very soon, :D
aaron7395
08-15-2007, 05:38 PM
ok thanks allot m8 and now it says

[Runtime Error] : Out Of Range in line 72 in script C:\Documents and Settings\Gisele1\Local Settings\Temporary Internet Files\Content.IE5\O1EKPSY4\Meanage%20Studios%20Var rock%20Log%20Cutter%20and%20Banker%20v0.71[1].scar

and you got script from before and tyvm
LordGregGreg
08-15-2007, 07:06 PM
ok thanks allot m8 and now it says

[Runtime Error] : Out Of Range in line 72 in script C:\Documents and Settings\Gisele1\Local Settings\Temporary Internet Files\Content.IE5\O1EKPSY4\Meanage%20Studios%20Var rock%20Log%20Cutter%20and%20Banker%20v0.71[1].scar

and you got script from before and tyvm

this is because you have your player array set up wrong

please read a tutorial about array, and the player array to understand


you need to set the number of player to 4, and make the ones u dont need to ".active=false;

if you dont understand, read the tutorial.
rotflmfwao
08-15-2007, 08:29 PM
Please read some tutorials and refer to this page (http://www.villavu.com/forum/showthread.php?t=6413?t=7421&highlight=Fixing+Errors) before asking for help please