Scar error!!

[kizzxas]

I have download
*SRL 3.60b
*GlobalStats
*Includes
*Scar 2.03



Why this error?

[Ejjman]

Um, get rid of the variable 'a'......?

[kizzxas]

i cant get rid of the variable 'a'...becouse then i get rid it script dont work ,,

here id script

{Start at Varrock East bank. SetUp Player, and GO!}

program EssenceMiner;
{.include srl/srl.scar}
{.include srl/srl/extended/xmapwalk.scar}
{.include srl/srl/skill/mining.scar}

var mined,banked,MiningWaitTime:integer;
MagicShop,transportation:integer;
RockColor,CloseBank01,TP,MS:integer;
LoggingOutMark,LogsO:Integer;
TotEss,TotalEss:integer;
Trip,TotRun:integer;
Teleported:Boolean;
OutEss:Boolean;
TotRunStr:string;
Location:String;
TotEssStr:string;
What:string;
RCol:string;
const
{______________________________________}
{////////////////////\\\\\\\\\\\\\\\\\\}
{///-------Answering-Set-Up----------\\}
{////////////////////\\\\\\\\\\\\\\\\\\}
Answer1='bank'; //Text for answer of BankRuns
Answer2='esse'; //Text for answer of Mined essences
Answer3='logs'; //Text for answer of Logs out
Answer4='loca'; //Text for answer of location
Answer5='goin'; //Text for answer of happening
Answer6='hello';
Answer7='tote'; //Text for answer of total essences
Answer8='totb'; //Text for answer of total banks
Answer9='help'; //sends to you all commands what is used for answering

OtherPlayer='';//If Other player who to answer (Remember real font size, first letter with big font)

{______________________________________}
{////////////////////\\\\\\\\\\\\\\\\\\}
{///--------------SET-UP-------------\\}
{////////////////////\\\\\\\\\\\\\\\\\\}
BankRuns= {//Make} 12 {Bank runs} {\\} ;
EveryXMinutes= {//Log out every} 15 {minutes} {\\} ;
ForXMinutes= {//Stay logged out for} 2 {minutes} {\\} ;
{////////////////////\\\\\\\\\\\\\\\\\\}


procedure declareplayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
{______________________________________}
{////////////////////\\\\\\\\\\\\\\\\\\}
{///----------PLAYER-SET-UP----------\\}
{////////////////////\\\\\\\\\\\\\\\\\\}
Players[0].Name:= {//Player Name =}'username' ;
Players[0].Pass:= {//Player Password =}'password' ;
Players[0].Nick:= {//Player Nickname =}'sern' //(Remember real font size, first letter with big font) ;
{////////////////////\\\\\\\\\\\\\\\\\\}
end;

function GoingOn(What:string):boolean;
begin
clearreport;
writeln(What+' ('+TheTime+')')
status(What+' ('+TheTime+')')
addtoreport(what+' ('+theTime+')')
What:=What
end;

function Answer(FromCommand,WithCommand,ToPlayer:string):bo olean;
var a:string;
NameBmp:integer;
begin
wait(20)
a:=Lowercase(Trim(GetTextAtEx(84, 415, 45, SmallChars, False, False, 0, 2, 128, 40, True, tr_NormalChars)))
if(pos(a,FromCommand)<>0)
then begin
writeln('Found a command: '+FromCommand)
GameTab(8)
NameBmp:=CreateBitMapMaskFromText(ToPlayer,SmallCh ars)
if(findbitmapin(NameBmp,x,y,490,185,750,483))
then begin
writeln('Answered to '+ToPlayer)
Mouse(x+5,y+3,1,1,true)
wait(500)
Mouse(330,455,5,5,true)
TypeSend(WithCommand)
writeln('With command: '+withcommand)
end;
end;
end;

procedure SetAtScriptBrightness;
begin
GameTab(11)
if(not(getcolor(680,230)=9584920))
then begin
goingon('Setting right brightness for script')
Mouse(680,230,1,1,true)
wait(500)
end;
end;

procedure Answers;
begin
if(otherplayer='')
then begin
exit;
end;
Answer(Answer1,'I have mined '+inttostr(mined)+' essences now.',OtherPlayer)
//Text for answer of BankRuns

Answer(Answer2,'I have banked '+inttostr(banked)+' times now.',OtherPlayer)
//Text for answer of Mined essences

Answer(Answer3,inttostr(LogsO)+' times logged out.',OtherPlayer)
//Text for answer of Logs out

Answer(Answer4,'Im in the'+Location,OtherPlayer)
//Text for answer of Location

Answer(Answer5,'Im doing now: '+What,OtherPlayer)
//Text for answer of happening

Answer(Answer6,'Hi! ',OtherPlayer)

Answer(Answer7,'Total essences mined: '+TotEssStr,OtherPlayer)
//Text for answer of total essences mined

Answer(Answer8,'Total times banked: '+TotrunStr,OtherPlayer)
//Text for answer of total bank times

answer(Answer9,'Used commands are: '+Answer1+','+Answer2+','+Answer3+','+Answer4+','+ Answer5+','+Answer6+','+Answer7+','+Answer8+','+An swer9,OtherPlayer)
//Text for answer of used commands
end;


{LogOutEvery2 based From SRL, made it to log out for every X MINUTES}
procedure LogOutEvery2(Minutes, ForXMins: integer);
var LogsO:integer;
begin
if ((TimeFromMark(LogOutMark) / 1000) / 60 >= Minutes) then
begin
MarkTime(Loggingoutmark);
LogOut;
goingon('Logged out, coming back soon')
LogsO:=LogsO+1
goingon('Logged out for ' + inttoStr(forxmins) + 'min(s)')
goingon('Logging out and coming back in about ' + IntToStr(forxmins) + ' min(s)');
repeat
Mmouse(5, 5,1,1)
Wait(30000 + Random(1000));
Wait(15 + Random(15) + Random(15))
until (TimeFromMark(Loggingoutmark) >= forxmins);
Wait(Random(10000) + Random(5000));
LoginPlayer;
Wait(Random(5000) + Random(2500));
end;
end;

procedure TalkingToMeTXT;
begin
Case Random(10)+1 of
1: TypeSend('Right...'+chr(13))
2: TypeSend('What?'+chr(13))
3: TypeSend('Sorry, i dont understand.'+chr(13))
4: TypeSend('What do yuo want?'+chr(13))
5: TypeSend('I have no time'+chr(13))
6: TypeSend('I dont like you'+chr(13))
7: TypeSend('You are getting my nervous'+chr(13))
8: TypeSend('is it possible to be quit for 2 minutes?'+chr(13))
9: TypeSend('yes? I am.'+chr(13))
10: TypeSend('No, you again.'+chr(13))
End;
end;

procedure TalkingToMe;
var CUAM:integer;
begin
If(not(FindBitmapMaskTolerance(NickNameBmp, x, y, 0, 24, 517, 338, 0, 40))) then begin
wait(random(10))
Exit; end;
If(FindBitmapMaskTolerance(NickNameBmp, x, y, 0, 24, 517, 338, 0, 40)) then
begin
TalkingToMeTxt;
CUAM:=CUAM+1
Writeln('Your Name has spotted on the screen '+
'and you answered.')
if(CUAM>3) then begin
TypeSend('Nice to talk, but now gtg. See you! ')
LogOut;
Wait(20000+random(15000))
LogInPlayer;
CUAM:=0
end;
end;
wait(500)
end;

procedure SayLevel(Skill:string);
var LVLBmp,Lvl:integer;
begin
LvlBmp:=createbitmapmaskfromtext(skill,upchars)
If(FindBitmapMaskTolerance(LvlBmp, x, y, 0, 0, 516, 338, 0, 40))then
begin
Lvl:=GetSkillLevel(Skill)
TypeSend('My '+Skill+' Level is '+inttostr(Lvl)+chr(13))
goingon('Someone asked your '+Skill+' level. You answered.')
end;
end;

function InShop:boolean;
begin
if(findsymbol(x,y,'magic shop')=true)or(FindSymbol(x,y,'anvil')=true)
then begin
GoingOn('In shop')
Location:='In Shop'+inttostr(ScriptTime(2))
result:=true;
end;
end;

function AtBank:boolean;
begin
if(findsymbol(x,y,'bank')=true)
then begin
GoingOn('At bank')
Location:='At bank'+inttostr(ScriptTime(2))
Result:=True;
end;
end;

function AtEss:boolean;
begin
if(findsymbol(x,y,'transportation')=true)and
not(findsymbol(x,y,'anvil'))
then begin
Goingon('At essences')
Location:='At essences '+inttostr(ScriptTime(2))
result:=true;
end;
end;

procedure NotFindEss;
begin
goingon('Couldnt find object, rotating screen and trying again')
case random(9) of
0:
begin
KeyDown(VK_Left)
wait(750)
KEyUp(VK_Left)
end;
1:
begin
KeyDown(VK_Right)
wait(750)
KEyUp(VK_Right)
end;
2:
begin
KeyDown(VK_Up)
wait(750)
KEyUp(VK_Up)
end;
3:
begin
KeyDown(VK_Down)
wait(750)
KEyUp(VK_Down)
end;
4:
begin
HighestAngle;
end;
5:
begin
MakeCompass('N')
end;
6:
begin
MakeCompass('E')
end;
7:
begin
MakeCompass('S')
end;
8:
begin
MakeCompass('W')
end;
end;
end;

procedure checkbankcolor;
var c : integer;
begin
c:=0
repeat
BankColor:= GetSymbolColor(x,y, 'bank');
c:= c+1;
wait(140+random(20))
writeln('Taken '+inttostr(c)+'/20 tries to find bank')
until(bankcolor>0)or(c>19)

if(c>19)then
begin
c:=0
GoingOn('Cant find BankSymbol');
Goingon('Logging out and coming back')
LogOut;
wait(200)
LogInPlayer;
wait(200+random(500))
checkbankcolor;
end;
writeln('Bank color: '+inttostr(BankColor))
end;

procedure Walkingways;
begin
case random(2) of
0: begin mouse(681+random(4)-random(4),102+random(4)-random(4),2,2,true)
SetRun(true)
MMouse(681,102,2,2)
wait(200)
flag;
mouse(626+random(4)-random(4),118+random(4)-random(4),2,2,true)
wait(200)
flag;
end;

1: begin mouse(612+random(4)-random(4),94+random(4)-random(4),2,2,true)
SetRun(true)
MMouse(681,102,2,2)
wait(400)
flag;
mouse(653+random(4)-random(4),120+random(4)-random(4),2,2,true)
wait(300)
flag;
end;
end;
end;

procedure walkToAubury;
begin
Goingon('Walking to magic shop')
Walkingways;
end;

procedure Toshop;
begin
MS:=0
TP:=0
MagicShop:=0
Transportation:=0
Goingon('Finding shop')
repeat
MagicShop:=GetSymbolColor(x,y,'magic shop')
wait(50)
MS:=MS +1
writeln('Taken '+inttostr(MS)+'/6 tries to find Magic shop symbol')
until(MS=6)or (MagicShop>0)
MS:=0
if(MagicShop>0)then begin
Mouse(x+random(2)-random(2),y+9,2,2,true)
Goingon('Found Magic shop')
end;
if(MagicShop=0) then begin
writeln(' ')
repeat
Transportation:=GetSymbolColor(x,y,'transportation ')
wait(50)
TP:=TP +1
writeln('Taken '+inttostr(TP)+'/6 tries to find Transportation symbol')
until(TP=6)or(Transportation>0)
TP:=0
writeln('')
Goingon('Found magic shop')
Mouse(x+random(2)-random(2),y+9,2,2,true)
end;
if(MagicShop=0)and(Transportation=0)
then begin
logout;
loginplayer;
ToShop;
end;
wait(200)
flag;
wait(1000)
MS:=0
TP:=0
MagicShop:=0
Transportation:=0
end;

procedure ToRocks;
begin
if(Teleported=True)
then begin
Teleported:=True;
Exit;
end;
Teleported:=False
Goingon('Finding Aubury')
mousespeed:=4
FindObj(x,y,'Aubu',1287656,7)
wait(50)
Mouse(x+random(1)-random(1),y+random(1)-random(1),2,2,false)
if(not(ClickOption('Tele',1)))then begin
wait(100)
Clickoption('Cancel',1)
wait(100)
if(Teleported=True)
then begin
Exit;
end;
notfindess;
if((InShop)=false)
then begin
exit;
end;
ToRocks;
end;
mousespeed:=7
ClickOption('Tele',1)
wait(200)
if(inchat('reach'))
then begin
ToRocks;
end;
Teleported:=True;
flag;
wait(5000+random(1000))
makecompass('n')
end;

procedure Roomways;
begin
case random(4) of

0: begin
repeat
goingon('Walking to S-W room')
mouse(625+random(10)-random(10),100+random(10)-random(10),6,6,true)
wait(3000)
flag;
until(findsymbol(x,y,'arrow'))
Mouse(x+10,y,2,2,true)
wait(200)
flag;
Location:='S-W room'+inttostr(ScriptTime(2))
end;

1: begin
goingon('Walking to N-W room')
repeat
mouse(667+random(10)-random(10),60+random(10)-random(10),6,6,true)
wait(3000)
flag;
until(findsymbol(x,y,'arrow'))
Mouse(x-20,y+12,2,2,true)
wait(200)
flag;
Location:='N-W room'+inttostr(ScriptTime(2))
end;

2: begin
Goingon('Walking to S-E room')
repeat
mouse(670+random(10)-random(10),110+random(10)-random(10),6,6,true)
wait(3000)
flag;
until(findsymbol(x,y,'arrow'))
Mouse(x-15,y,2,2,true)
wait(200)
flag;
Location:='S-E room'+inttostr(ScriptTime(2))
end;

3: begin
Goingon('Walking to N-E room')
repeat
mouse(624+random(10)-random(10),60+random(10)-random(10),6,6,true)
wait(3000)
flag;
until(findsymbol(x,y,'arrow'))
Mouse(x+20,y+5,2,2,true)
wait(200)
flag;
Location:='N-E room'+inttostr(ScriptTime(2))
end;
end;
end;

function MiddleRoom:Boolean;
begin
if((AtEss)=false)
then begin
result:=true;
writeln('You are in middle room')
roomways;
end;
end;

procedure WhatRoom;
begin
if(FindSymbol(x,y,'Anvil'))then
begin
TelePorted:=False;
ToShop;
ToRocks;
WhatRoom;
end;
goingon('What room is this?')
if(FindSymbol(x,y,'arrow'))
then begin
goingon('This is not middle room')
exit;
end;
if(not(FindSymbol(x,y,'arrow')))
then begin
MiddleRoom;
end;
end;


procedure Randoms;
begin
findnormalrandoms;
wait(10)
solvepinball;
wait(200)
findtalk;
wait(10)
SayLevel('Mining')
wait(10)
clicktocontinue;
wait(10)
answers;
wait(10)
findname;
wait(10)
antiban;
GhostSpeak('Mining')
RandomChatEvery(4)
{BoredEvery(7)}
HoverEvery(6+random(2),'Mining')
FindLamp('Mining')
wait(10)
answers;
wait(10)
SayLevel('Magic')
wait(10)
wait(10)
FindPick;

if(findfight)then begin
goingon('Fight found, running away...')
RunAwayDirection('N')
wait(10000)
runback;
end;
if(findnewbox)then begin
Logout;
Goingon('Found a new box, logged out')
terminatescript;
end;
SRLRandomsReport;
clicktocontinue;
end;

procedure whilemining;
begin
Randoms;
wait(20)
TalkingToMe;
wait(30)
Answers;
wait(10)
end;

procedure GetRockColor;
begin
writeln('')
if((AtEss)=false)
then begin
ToRocks;
WhatRoom;
end;
Goingon('Getting new rock color')
if(Rcol='')
then begin
Rcol:='8487563'
end;
RCol:=LoadSetting('Pentti','RColor')
if(Rcol='')
then begin
Rcol:='8487563'
end;
Goingon('Old rock color: '+Rcol)
if(Rcol='')
then begin
Rcol:='8487563'
end;
RockColor:=strtoint(Rcol)
if(RockColor=0)then begin
RockColor:=8487563
end;
if(FindObj(x,y,'Esse',RockColor,10))
then begin
getmousepos(x,y)
MMouse(x,y,0,0)
if(not(isuptext('Esse')))
then begin
notfindess;
GetRockColor;
end;
if(isuptext('Esse'))
then begin
getmousepos(x,y)
RockColor:=getcolor(x,y)
if(RockColor=65535)or(RockColor=0)
then begin
notfindess;
GetRockColor;
end;
end;
end;
makeCompass('n')
writeln('Got new rock color: '+inttostr(RockColor))
writeln('')
SaveSetting('Pentti','RColor',inttostr(Rockcolor))
end;

procedure MineClick;
begin
case random(2) of
0: begin
MMouse(x,y,1,1)
if(not(isuptext('Esse')))
then begin
MineClick;
end;
if(IsUpText('Esse'))
then begin
mouse(x+random(1)-random(1),y+random(1)-random(1),2,2,true)
flag;
wait(200)
end;
end;

1: begin
mouse(x+random(1)-random(1),y+random(1)-random(1),2,2,false)
wait(200)
if(not(clickoption('ine',1)))
then begin
MMouse(10,10,1,1)
wait(200)
MineClick;
end;
Clickoption('ine',1)
wait(200)
flag;
end;
end;
end;

procedure Mine;
begin
repeat
if(FindObj(x,y,'Esse',rockcolor,10))
then begin
wait(200)
getmousepos(x,y)
MineClick;
wait(1000)
Goingon('Mining')
MarkTime(MiningWaitTime)
repeat
wait(1000)
whilemining;
until((TimeFrommark(MiningWaitTime)/1000)>25)or(invfull)
or(not(loggedin))
if(not(invfull))
then begin
Mine;
end;
end;
notfindess;
until(invfull)
end;


procedure BackShop;
begin
if(OutEss=True)
then begin
exit;
end;
OutEss:=False;
Goingon('Going back to magic shop')
SetRun(true)
repeat
wait(200)
FindSymbol(x,y,'arrow')
until(FindSymbol(x,y,'arrow'))
mouse(x+4+random(2)-random(2),y+7+random(2)-random(2),2,2,true)
wait(300)
flag;
wait(200)
MMouse(450+random(50),100+random(25),2,2)
if(FindObj(x,y,'orta',10010307,7))then begin
wait(200)
mouse(x,y,2,2,false)
wait(1000)
if(not(Clickoption('Use',1)))then begin
OutEss:=False;
BackShop;
end;
if(ClickOption('Use',1))then
begin
wait(300)
flag;
OutEss:=True;
wait(3500)
end;
end;
wait(1000)
end;

procedure BankWays;
begin
if(TotEssStr='')
then begin
TotEssStr:='1'
end;
TotEssStr:=LoadSetting('Pentti','TotalEssences')
if(TotEssStr='')
then begin
TotEssStr:='1'
end;
Mined:=Mined +28
writeln('M'+inttostr(Mined))
ReportVars[1] := Mined;
TotalEss:=strtoint(TotEssStr)
if(TotalEss=0)
then begin
TotalEss:=1
end;
case random(2) of

0:begin
mouse(662+random(2)-random(2),39+random(2)-random(2),2,2,true)
wait(1500)
Flag;
wait(1500)
flag;
checkbankcolor;
wait(10)
Mouse(x+3,y+6,2,2,true)
wait(500)
flag;
end;

1:begin
mouse(610+random(2)-random(2),50+random(2)-random(2),2,2,true)
wait(500)
Flag;
wait(100)
mouse(653+random(2)-random(2),55+random(2)-random(2),2,2,true)
wait(500)
flag;
checkbankcolor;
wait(200)
Mouse(x+3,y+6,2,2,true)
wait(500)
flag;
end;
end;
end;

procedure ToBank;
begin
Goingon('Walking to bank')
MakeCompass('N')
bankways;
end;

procedure BankEss;
begin
MakeCompass('S')
openbank3;
wait(50+random(50))
fixbank;
fixbank;
wait(50+random(50))
Goingon('banking all rune essences')
deposit(2,28,2);
deposit(2,28,2);
if(TotRunStr='')
then begin
TotRunStr:='1'
end;
TotRunStr:=LoadSetting('Pentti','TotalRuns')
if(TotRunStr='')
then begin
TotRunStr:='1'
end;
TotRun:=strtoint(TotRunStr)
if(TotRun=0)
then begin
TotRun:=1
end;
TotRun:=TotRun+1
SaveSetting('Pentti','TotalRuns',inttostr(TotRun))
banked:=banked+1
writeln('B'+inttostr(banked))
ReportVars[0] := Banked;
wait(1050+random(50))
repeat
findbitmap(CloseBank01,x,y)
wait(1000)
movemousesmooth(x+7,y+7)
wait(500)
mouse(x+7,y+7,4,4,true)
wait(200)
until(not(findbitmap(CloseBank01,x,y)))
wait(1000)
Makecompass('N')
wait(500+random(50))
end;

procedure Report;
begin
TotEssstr:=LoadSetting('Pentti','TotalEssences')
TotRunStr:=LoadSetting('Pentti','TotalRuns')
cleardebug;
writeln(' _____________________________________ ')
writeln('|Essence miner by: Pentti (Report->) |')
writeln('|_____________________________________|')
writeln('| '+inttostr(Banked)+' Banking runs by one script run. |')
writeln('| Mined '+inttostr(Mined)+' essences by one script run |')
writeln('| Script has worked for '+inttostr(ScriptTime(2))+' minutes. |')
writeln('| Logged out '+inttostr(LogsO)+' times |')
writeln('| Total essences mined: '+TotEssstr+' |')
writeln('| Total bank runs: '+Totrunstr+' |')
writeln('|_____________________________________|')
end;

procedure LoadBitMaps;
begin
CloseBank01 := BitmapFromString(19, 20, 'z78DAC594411283200C4' +
'5AF244908B29452EE7FA45A7F17CC88347464EAE28D03212F 8824' +
'E6E8C223826E152D33B86A48BA86459D6872DB1AE33C63EDF 2C51' +
'37F76879179F45132472F1239A092D946798A670661D4E4B3 70CD' +
'E5FD38F03C3B1A3F6AEC7B2D91B51127FB5B367B550DA3F82 0EE8' +
'AE7CC0D5737C3A8B1EFB5ACDDFFD14205B41BCF5EFB2A614E 9440' +
'187137FBBCDAA365EDA8D1728E76E3DE6FF6966077D967BF1 8D18' +
'52A36B29D62EC91A3C62B973DBE613C7AEC3CF2C6440AFEC1 C8AA' +
'5EA61B8532118C18C117AE2BB98D878B12A9CB78B7DCB57BF 902E' +
'139DD87');

end;

const Skip=false;

begin
SetUpSRL;
SetUpSRLMining;
ScriptID:='44'
cleardebug;
clearreport;
Report;
teleported:=False;
wait(3000)
clearreport;
cleardebug;
if(Skip=False) then begin
writeln('Going to make '+inttostr(bankRuns)+' bank runs.')
writeln('Logging out after '+inttostr(EveryXMinutes)+' minutes')
writeln('For '+inttostr(ForXMinutes)+' minutes')
wait(3500)
clearreport;
cleardebug;
Writeln('Essence miner By: [Pentti]')
wait(160)
cleardebug
Writeln('Essence miner By: [ Pentti ]')
wait(190)
cleardebug;
Writeln('Essence miner By: [ Pentti ]')
wait(250)
cleardebug;
Writeln('Essence miner By: [ Pentti ]')
wait(250)
cleardebug
Writeln('Essence miner By: [ Pentti ]')
wait(190)
cleardebug;
Writeln('Essence miner By: [ Pentti ]')
wait(160)
cleardebug;
Writeln('Essence miner By: [Pentti]')
wait(1000)
end;
cleardebug;
disguisescar('MSN Messenger 7.5')
SymbolAccuracy:=0.8
mousespeed:= 7
Benmouse:=true
LoadBitMaps;
LoadGhostSpeakWords('Mining')
declareplayers;
if(Players[0].Name='')
then begin
writeln('[Line 53 missing playername] You must write your PLAYERNAME to start script')
terminatescript;
end;
if(Players[0].Pass='')
then begin
writeln('[Line 54 missing player password] You must write your PASSWORD to start script')
terminatescript;
end;
if(Players[0].Nick='')
then begin
writeln('[Line 55 missing player nickname] You must write your NICKNAME to start script')
terminatescript;
end;
NickNameBmp:=Createbitmapmaskfromtext(Players[0].Nick,Upchars)
Activateclient;
wait(1000)
if(not(loggedin))then loginplayer;
FindpickHeadColor;
if(hc1=0)or(hc2=0)or(hc3=0)or(hc4=0)
then begin
writeln('You must have pickaxe to run with this')
logout;
writeln('Logged out; [No pickaxe]')
terminatescript;
end;
repeat
Trip:=trip+1
writeln('Starting trip number '+inttostr(trip)+'.')
MakeCompass('N')
highestangle;
SetChat('Hide',1)
setchat('friends',2)
setchat('off',3)
teleported:=False;
SetAtScriptBrightness
walkToAubury;
toshop;
ToRocks;
OutEss:=False;
if(TelePorted=False)
then begin
ToShop;
ToRocks;
end;
WhatRoom;
getrockcolor;
mine;
TotalEss:=TotalEss+28
SaveSetting('Pentti','TotalEssences',inttostr(Tota lEss))
Goingon('Inventory full')
writeln(inttostr(totaless))
mousespeed:=7
makecompass('n')
highestangle;
BackShop;
Tobank;
bankEss;
OutEss:=False;
LogOutEvery2(EveryXMinutes,ForXMinutes)
Report;
until(BankRuns=Banked)or(Scripttime(2)>240)
report;
SRLRandomsReport;
end.

[Buckleyindahouse]

Next time put that into scar tags. Change varabile A to A1, and compile when you come to error unknown identifier a then change that a to A1 and do the same for other duplicates you get.