Anyone Who Knows How To Work Scar Help

**Eldritch_of_Fire** · 04-26-2007 02:09 AM

Trying to get scar to work...but getting an error saying this

Failed when compiling
Line 2: [Error] (2:7) : Identifier expected in script C: \Program Files\Scar 3.01\Scripts\autominer.scar

Working with this

Code:

program New;
begin program SRLGuildMiner;

{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Mining.scar}
{.include SRL/SRL/misc/FaladorColorFinder.scar}
{.include SRL/SRL/extended/xMapWalk.scar}

Const
**Loads****************= 9999;**** // Number of loads before switching user.
**OreTol************** = 4999;
**StartPlayer**********= 0;

Const
**CoalColor**************= 2438711;** // CoalColor is a constant
**MithrilColor********** = 7425100;** // MithrilColor is a constant

//----------------------------------------------------------------------------//
Const VersionNumber********= &#39;0.39&#39;;
//----------------------------------------------------------------------------//

Var MapPickColor,MapOreColor,LadderColor,
****TotalOres,SecondsToWait,H,G&#58;integer;

Var FB1,FB2,FB3&#58; Integer; // BankerDTMs &#40;Yellow dots at three angles&#58; -10,0,+10 degrees&#41;
// For use with DTM3Flag that plants a flag when any of 3 DTM&#39;s is found


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

Procedure DeclarePlayers;
begin
**** HowManyPlayers&#58;=1;
**** NumberOfPlayers&#40;HowManyPlayers&#41;;
**** Players&#91;0&#93;.Name**** &#58;=&#39;myusername&#39;;
**** Players&#91;0&#93;.Pass**** &#58;=&#39;mypassword&#39;;
**** Players&#91;0&#93;.Nick**** &#58;=&#39;snatch&#39;;
**** Players&#91;0&#93;.Loc******&#58;=&#39;Falador&#39;;
**** Players&#91;0&#93;.Boolean1 &#58;= True;** // EquipPick.
**** Players&#91;0&#93;.String1**&#58;= &#39;Coal&#39;; // Coal = coal only. Mithril = both.
**** Players&#91;0&#93;.Active** &#58;= True;
end;

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

Procedure FillMem;** // 3 yellow dot bankers @ different angle
begin

**FB1 &#58;= DTMFromString&#40;&#39;78DA636C66626008634001972E5E66F80FA41&#39; +
****** &#39;981F83F1030B601D5C4A0AAF9F38789810BAA0604189B8850D345&#39; +
****** &#39;580D00CA7B110D&#39;&#41;;
**FB2 &#58;= DTMFromString&#40;&#39;78DA63EC61626008614001478F1E65F80FA41&#39; +
****** &#39;981F83F1030F602D544A1AAF9F38789810BAA0604182712A1662A&#39; +
****** &#39;504D247E3500C2961107&#39;&#41;;
**FB3 &#58;= DTMFromString&#40;&#39;78DA636C646260086140038C0CFFC12403C37&#39; +
****** &#39;F206004A9894255F1E70F130317540D58472B504D3401359D4035&#39; +
****** &#39;31F8D50000978B0E8E&#39;&#41;;
end;

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

Procedure SetOres;

Begin
**Case Lowercase&#40;Players&#91;CurrentPlayer&#93;.String1&#41; Of
****&#39;coal&#39;** &#58; Begin OreColor1 &#58;= CoalColor OreColor2 &#58;= OreColor1 End;
****&#39;mithril&#39;&#58; Begin OreColor1 &#58;= MithrilColor&#59; OreColor2 &#58;=CoalColor&#59; End;
**End;
End;

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

Function FindOre&#40;MaxTol&#58;Integer&#41;&#58;Boolean;

Var Tol,Ex,Ey&#58;Integer;

Begin

H&#58;=H+1;
**For G &#58;= 1 to H do
** Begin
****Case G Of

******1&#58; Begin OreColor&#58;= OreColor1; SecondsToWait &#58;= 5; End;
******2&#58; Begin OreColor&#58;= OreColor2; SecondsToWait &#58;= 10; End;

****End;
** End;

**While &#40;Not &#40;FindColorTolerance&#40;Ex, Ey, OreColor, MSX1, MSY1, MSX2, MSY2, Tol&#41;&#41;
**And Not &#40;Tol &#62; MaxTol&#41;&#41; Do
****Begin
******Tol&#58;=Tol+1;
****End;
**If &#40;&#40;FindColorTolerance&#40;Ex, Ey, OreColor, MSX1,MSY1 ,MSX2, MSY2, Tol&#41;&#41;
**And Not &#40;Tol &#62; MaxTol&#41;&#41; Then Result&#58;=True;
**Tol&#58;=1;
**Wait&#40;10&#41;;

End;

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

procedure PlayerStats;

var PSActive&#58; string;
var i&#58; Integer;
begin
**WriteLn&#40;&#39; &#39;&#41;;
**WriteLn&#40;&#39; &#39;&#41;;
**WriteLn&#40;&#39; &#39;&#41;;
**writeln&#40;&#39;**********************************************&#39;&#41;;
**writeln&#40;&#39;Name******** &#58; &#39;+ Players&#91;CurrentPlayer&#93;.Name&#41;;
**writeln&#40;&#39;Number****** &#58; &#39;+inttostr&#40;CurrentPlayer&#41;&#41;;
**writeln&#40;&#39;Mining Level &#58; &#39;+ inttostr&#40;Players&#91;CurrentPlayer&#93;.level&#91;15&#93;&#41;&#41;;
**writeln&#40;&#39;Worked for** &#58; &#39;+IntToStr&#40;Players&#91;CurrentPlayer&#93;.Worked&#41;+&#39; minutes.&#39;&#41;;
**writeln&#40;&#39;Banked****** &#58; &#39;+ inttostr&#40;Players&#91;CurrentPlayer&#93;.Banked&#41; + &#39; times.&#39;&#41;;
**if Players&#91;CurrentPlayer&#93;.Active=True then PSActive&#58;=&#39;True&#39; else PSActive&#58;=&#39;False&#39;;
**writeln&#40;&#39;Active****** &#58; &#39;+ PSActive&#41;;
**writeln&#40;&#39;Location**** &#58; &#39;+ Players&#91;CurrentPlayer&#93;.loc&#41;;
**writeln&#40;&#39;**********************************************&#39;&#41;;

for i &#58;= 0 to HowManyPlayers-1 do
** begin
** if Players&#91;i&#93;.Active=True then PSActive&#58;=&#39;True&#39; else PSActive&#58;=&#39;False&#39;;
******writeln&#40; &#40;inttostr&#40;i&#41;&#41;+&#39; &#58; &#39;+Players&#91;i&#93;.name+ &#39; = &#39;+PSActive+
******&#39;.- Lvl &#58; &#39;+inttostr&#40;Players&#91;i&#93;.level&#91;15&#93;&#41;+
******&#39;.- B &#58;&#39;+inttostr&#40;Players&#91;i&#93;.Banked&#41;+&#39; Times.&#39;+
******&#39;.- A&#58; &#39;+IntToStr&#40;Players&#91;i&#93;.Worked&#41;+&#39; mins.&#39;+
******&#39;.- Loc&#58; &#39;+Players&#91;i&#93;.loc&#41;;
****end
** writeln&#40;&#39;**********************************************&#39;&#41;;
end;

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

procedure ProgressReport;
begin
**WriteLn&#40;&#39; &#39;&#41;;
**WriteLn&#40;&#39; &#39;&#41;;
**WriteLn&#40;&#39; &#39;&#41;;
**WriteLn&#40;&#39;&#60;============== -&#39;+VersionNumber+&#39;- Progress Report ===============&#62;&#39;&#41;;
**writeln&#40;&#39;Worked for &#39;+ TimeRunning&#41;;
**WriteLn&#40;&#39;Banked &#39;+IntToStr&#40;banks&#41;+&#39; loads&#91;s&#93;.&#39;&#41;;
**WriteLn&#40;&#39;Banked &#39;+IntToStr&#40;TotalOres&#41;+&#39; Ores.&#39;&#41;;
**WriteLn&#40;&#39;&#60;=====================================================&#62;&#39;&#41;;
**PlayerStats;
**SRLRandomsReport;
end;

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

function FindMapOreColor&#58;integer;
var
**MapOre,MapOre2&#58;integer;
begin
**MapOre &#58;= BitmapFromString&#40;3, 3,
******** &#39;3D2C345948546D5D624A39416D5D626D5D625948546D5D626D5D62&#39; +
******** &#39;&#39;&#41;;
**MapOre2 &#58;= BitmapFromString&#40;3, 3,
******** &#39;061115222D35364243131E22364243364243222D35364243364243&#39; +
******** &#39;&#39;&#41;;
**if&#40;FindBitmapsProgressiveTol&#40;MapOre,MapOre2,0,0,0,65,5,587,41,***,118&#41;&#41;then
****Result&#58;=GetColor&#40;x+1,y+1&#41;;
**Freebitmap&#40;MapOre&#41;;
**Freebitmap&#40;MapOre2&#41;;
end;

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

Function FindFaladorLadderColor&#58; Integer;
var**C,TX,TY,FaladorLadder&#58;integer;

begin
FaladorLadder&#58;= BitmapFromString&#40;2, 2, &#39;4F1F004F1F004F1F00&#39; +
****** &#39;A4A298&#39;&#41;;

 while &#40;C&#60;100&#41; do
** begin
** C&#58;=C+5;
** If FindBitMapToleranceIn&#40;FaladorLadder,TX,TY,650,144,664,156,C&#41; then
******begin
************LadderColor&#58;=GetColor&#40;TX,TY&#41;;
************Players&#91;CurrentPlayer&#93;.Loc&#58;=&#39;Falador&#39;;
************Result&#58;=LadderColor;
************writeln&#40;&#39;LadderColor = &#39;+IntToStr&#40;LadderColor&#41;&#41;;
************break;
******end
** end
FreeBitMap&#40;FaladorLadder&#41;;
if Result = 0 then begin writeln&#40;&#39;ERROR&#58; LadderColor NOT Found&#39;&#41;; TerminateScript end;
end;

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

function Underground&#58;boolean;
begin
**if&#40;&#40;FindColoredAreaTolerance&#40;x,y,256,570,5,725,162,50,1&#41;&#41;&#41;then
**begin
****Result&#58;=true;
**end;
end;

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

procedure ToCenter;
begin
**if&#40;FindColorSpiral&#40;x,y,MapPickColor,570,63,725,160&#41;&#41;then
**begin
****Mouse&#40;x-10,y-10,20,20,true&#41;;
****FFlag&#40;20&#41;;
****Wait&#40;1000+Random&#40;100&#41;&#41;;
**end else
**begin
****RoadWalk&#40;MapOreColor,&#39;S&#39;&#41;;
****if&#40;FindColorSpiral&#40;x,y,MapPickColor,570,63,725,160&#41;&#41;then
****begin
******Mouse&#40;x-10,y-10,20,20,true&#41;;
******FFlag&#40;20&#41;;
******Wait&#40;1000+Random&#40;100&#41;&#41;;
****end;
**end;
end;

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

procedure RunAway;
begin
**if&#40;UnderGround&#41;then
**begin
****RoadWalk&#40;MapOreColor,&#39;W&#39;&#41;;
****ClickMMColor&#40;LadderColor&#41;;
****FFlag&#40;10&#41;;
****RoadWalk&#40;MapOreColor,&#39;E&#39;&#41;;
**end else
**RunTo&#40;&#39;N&#39;,False&#41;;
end;

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

function HandleGas&#40;Gx,Gy&#58;Integer&#41;&#58;Boolean;
begin
******if FindGas&#40;gx,gy&#41; then
******begin
******** ToCenter;
******** Result&#58;=True;
******end;
end;

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

Function ClimbLadderDown&#58;Boolean;
var
**c&#58;integer;
begin
**for c&#58;=1 to 50 do
**begin
****If FindColor&#40;x,y,0,MSX1+10,MSY1+10,MSX2-10,MSY2-10&#41; then
****begin
******Wait&#40;100&#41;;
******Mouse&#40;x,y,0,0,false&#41;;
******if ChooseOption&#40;x,y,&#39;Climb&#39;&#41; then
******begin
******** MarkTime&#40;Mark&#41;;
******** repeat
********** Wait&#40;&#40;1000&#41;+Random&#40;1000&#41;&#41;;
********** If TimeFromMark&#40;Mark&#41;&#62;30000 then begin Logout; Exit; end;
******** until &#40;&#40;GetColor&#40;580,80&#41;=0&#41; and &#40;GetColor&#40;648,142&#41;=0&#41;&#41;;
******Result&#58;=True;
******Exit;
******end;
****end;
**c&#58;=C+1;
**SendArrowSilentWait&#40;&#40;Random&#40;2&#41;*2&#41;+1, 20 + Random&#40;10&#41;&#41;;
**if C=50 then begin Logout; exit end;
**end;
end;

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

Function ClimbLadderUp&#58;Boolean;
var
**c&#58;integer;
begin
**for c&#58;=1 to 50 do
**begin
****Wait&#40;100&#41;;
****if FindObj&#40;x,y,&#39;adder&#39;,2775161,21&#41; then
******begin
********Wait&#40;100&#41;;
********Mouse&#40;x,y,0,0,false&#41;;
********if ChooseOption&#40;x,y,&#39;Climb&#39;&#41; then
********begin
**********MarkTime&#40;Mark&#41;;
**********repeat
************Wait&#40;&#40;1000&#41;+Random&#40;1000&#41;&#41;;
************If TimeFromMark&#40;Mark&#41;&#62;30000 then begin Logout; Exit; end;
**********until FindColor&#40;x,y,WaterColor,MMX1,MMY1,MMX2,MMY2&#41;;
**********Result&#58;=True;
**********Exit;
********end;
******end;
**c&#58;=C+1;
**if C=50 then begin Logout; exit end;
**SendArrowSilentWait&#40;&#40;Random&#40;2&#41;*2&#41;+1, 20 + Random&#40;10&#41;&#41;;
**end;
end;

//----------------------------------------------------------------------------//
// --****************To the Guild in Three Clicks&#33;**************************--//
//----------------------------------------------------------------------------//

procedure BankToGuild;
var xblack,yblack&#58;Integer;
begin
**PerfectNorth;
**MouseFindFlag&#40;690,110,1,-1&#41;;
**Flag;
**FindColor&#40;xblack,yblack,0,MMX1,MMCY,MMX2,MMY2&#41;;
**Mouse&#40;xblack-5,yblack+10,0,0,true&#41;;
**Flag;
**ClimbLadderDown;
**Players&#91;CurrentPlayer&#93;.loc&#58;=&#39;Guild&#39;;
end;


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

procedure GuildToBank;
var
**c&#58;integer;
begin

****repeat
******c&#58;=c+1;
******RadialWalk&#40;MapOreColor,210,270,50,-1,0&#41;;
******if FindColor&#40;x,y,LadderColor,MMX1,MMY1,MMX2,MMY2&#41; then break;
******if c=10 then begin Logout; exit; end;
****until&#40; FindColor&#40;x,y,LadderColor,MMX1,MMY1,MMX2,MMY2&#41; or&#40;c&#62;10&#41; &#41;
****IdleTime&#40;3000, 1000, 1.0&#41;;
****If FindColor&#40;x,y,LadderColor,MMX1,MMY1,MMX2,MMY2&#41; Then Mouse&#40;x,y,2,2,True&#41;;
****Wait&#40;1500+Random&#40;500&#41;&#41;;
****FFlag&#40;0&#41;;
****ClimbLadderUp;

****MouseFindFlag&#40;666,45,-1,-1&#41;;
****Flag;
****MakeCompass&#40;&#39;N&#39;&#41;;
****If FindColor&#40;x,y,BankColor,MMX1,MMY1,MMX2,MMY2&#41; then
****begin
******Mouse&#40;x,y,0,0,True&#41;;
******FFlag&#40;10&#41;;
******DTM3Flag&#40;FB1,FB2,FB3,True&#41;;
******FFlag&#40;3&#41;;
****end
****else
****begin
******DTM3Flag&#40;FB1,FB2,FB3,True&#41;;
******FFlag&#40;3&#41;;
****end;
****Players&#91;CurrentPlayer&#93;.loc&#58;=&#39;Falador&#39;;
end;
//----------------------------------------------------------------------------//

Function SimpleBank&#58;Boolean;
var sx,sy,dx,dy,Mark2,Tries&#58;integer;
begin
**SX&#58;=MSCX; SY&#58;=MSCY;
**repeat
****sx&#58;=Sx+1;
****sy&#58;=sy+3;
****MMouse&#40;sx, sy, 0, 0&#41;;
****if IsUpTextMulti&#40;&#39;e Bank&#39;,&#39;Booth&#39;,&#39;ooth&#39;&#41; then
****begin
******GetMousePos&#40;Dx, Dy&#41;;
******Mouse&#40;Dx, Dy, 0, 0, False&#41;;
******if ChooseOption&#40;Dx, Dy, &#39;uickly&#39;&#41;**then
******begin
********MarkTime&#40;Mark2&#41;;
********repeat
**********Wait&#40;10&#41;;
**********if TimeFromMark&#40;Mark2&#41; &#62; 20000 then
********** begin
************ Result&#58;=False;
************ Exit;
********** end;
********until BankScreen;
********if BankScreen then
********begin
**********Result &#58;= True;
**********Exit;
********end;
******end;
****end
****else
****begin
******wait&#40;1&#41;;
******Tries&#58;=Tries+1;
****end;
**until&#40;tries &#62;9&#41;;
end;

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

procedure Bank;

var LocalOres&#58;integer;
begin
****if &#40;NoPick and EquipPick&#41; then
****begin
****** if InventoryFull then
****** begin
******** if&#40;FindBitmapSpiralTolerance&#40;Ore,x,y,559,210,735,460,25&#41;&#41;then
**************begin
****************Mouse&#40;x,y,5,5,false&#41;;
****************ChooseOption&#40;x,y,&#39;Drop&#39;&#41;;
**************end;
****** end;
****** GameTab&#40;5&#41;;
****** Mouse&#40;593,303,0,0,true&#41;;
****** Wait&#40;Random&#40;1000&#41;+2000&#41;;
****** GameTab&#40;4&#41;;
****end;

****LocalOres&#58;=CountItemBmpTol&#40;Ore,50&#41;;
****MarkTime&#40;Mark&#41;;

****if not BankScreen then
****begin
******repeat
******** if &#40;not&#40;Loggedin&#41;&#41; then**Exit;
******** if not SimpleBank then OpenBankQuiet&#40;&#39;feb&#39;&#41;;
******until&#40;BankScreen or &#40;TimeFromMark&#40;Mark&#41;&#62;60000&#41;&#41;;
****end;
****if&#40;BankScreen&#41;then
****begin
******Wait&#40;Random&#40;2000&#41;+200&#41;;
******FixBank;
******if&#40;NoPick=true&#41;then
******begin
********ClickAllItemsColorWait&#40;&#39;All&#39;,65536,1000+Random&#40;100&#41;&#41;;
********Wait&#40;Random&#40;2000&#41;+200&#41;;
********Withdraw&#40;1,1,1&#41;;
********Wait&#40;Random&#40;2000&#41;+200&#41;;
******end else
******begin
********if&#40;EquipPick=false&#41;then Deposit&#40;2,28,2&#41;;
********Wait&#40;Random&#40;2000&#41;+200&#41;;
********if&#40;EquipPick=true&#41;then
********** begin
************ ClickAllItemsColorWait&#40;&#39;All&#39;,65536,1000+Random&#40;100&#41;&#41;;
************ Wait&#40;Random&#40;2000&#41;+200&#41;;
********** end;
******end;
******CloseBank;
******if&#40;NoPick=true&#41;and&#40;EquipPick=true&#41;then
******begin
********FindPickHeadColor;
********Wait&#40;Random&#40;1000&#41;+200&#41;;
********ClickItemColor&#40;hc1,true&#41;;
******end;
******Banks&#58;=Banks+1;
******TotalOres&#58;=TotalOres+LocalOres;
******Players&#91;CurrentPlayer&#93;.Banked&#58;=Players&#91;CurrentPlayer&#93;.Banked+1;
******NoPick&#58;=false
****end;
end;

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

Procedure ChangeGasPixels&#40;Var Gasx,GasY&#58;Integer&#41;;

Var
** TempX, TempY&#58; Integer;

Begin
**Wait&#40;100&#41;;
**If FlagPresent Then
****Begin
******FFlag&#40;0&#41;;
******If FindColorSpiralTolerance&#40;x,y,OreColor,MSX1,MSY1,MSX2,MSY2,4&#41; Then
********Begin
********x &#58;= TempX;
********y &#58;= TempY;
********If CheckOre&#40;x,y,OreColor,4&#41; &#62; 2 Then
**********Begin
************If Distance&#40;MSCX,MSCY,TempX,Tempy&#41; &#60; 40 Then
**************Begin
****************GasX &#58;= x;
****************GasY &#58;= y;
**************End;
**********End;
********End;
**End;
End;

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

Procedure WizzupMine;

Var Dx,Dy,Ex,Ey&#58;Integer;

Begin

**If FindOre&#40;OreTol&#41; Then
**Begin
****If FindObjOre&#40;Dx, Dy, &#39;Mine&#39;, OreColor, 10, 4&#41; Then
****Begin
******H&#58;=0;
******If Not HandleGas&#40;Dx, Dy&#41; Then
******Begin
**********If Random &#40;9&#41; &#60; 7 Then Mouse&#40;Dx, Dy, 0, 0, True&#41;
**********Else
**********Begin
************Mouse&#40;Dx, Dy, 0, 0, False&#41;;
************ChooseOption&#40;Ex, Ey, &#39;ine&#39;&#41;;
**********End;
******ChangeGasPixels&#40;Dx,Dy&#41;;
******MarkTime&#40;Mark&#41;;
******Repeat
********HandleGas&#40;Dx, Dy&#41;;
********Wait&#40;100&#41;;
********FindTalk;
********FindPick;
********If NoPick Then Break;
********If FindFight Then RunAway;
******Until &#40;&#40;TimeFromMark&#40;Mark&#41; &#62; &#40;1000 * SecondsToWait&#41;&#41;
******Or &#40;FindColor&#40;X, Y, 0,51, 421, 51, 421&#41;&#41;&#41;
******End;
****End;
**End
**Else
**Begin
****If H&#62;1 Then H&#58;=0;
****If Random&#40;9&#41; &#60; 7 Then if not FindColorTolerance&#40;x,y,CoalColor, MSX1,MSY1,MSX2,MSY2,OreTol&#41; then ToCenter;
****FindNormalRandoms;
****If FindFight Then RunAway;
****Wait&#40;500+Random&#40;500&#41;&#41;;
**End;
End;

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

Procedure DoChats;

Begin
**SetChat&#40;&#39;On&#39;, 1&#41;;
**SetChat&#40;&#39;On&#39;, 1&#41;;
**SetChat&#40;&#39;Off&#39;, 2&#41;;
**SetChat&#40;&#39;Off&#39;, 2&#41;;
**SetChat&#40;&#39;On&#39;, 3&#41;;
**SetChat&#40;&#39;On&#39;, 3&#41;;
End;

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

procedure Setup;
begin
**** SetupSRL;
**** SetUpSRLMining;
**** FillMem;
**** DeclarePlayers;
**** CurrentPlayer&#58;=StartPlayer;
**** EquipPick&#58;= Players&#91;CurrentPlayer&#93;.Boolean1;**// Wielding.
**** PickUpItems&#58;=True; // to pick up random items when pickhead is gone.
**** BenMouse&#58;=False;
**** MouseSpeed&#58;=10;
**** LoginPlayer;****** // logs in the first player.
**** SetOres;
end;

//----------------------------------------------------------------------------//
//*************************** Main Loop***************************************//
//----------------------------------------------------------------------------//

begin
**Setup;
**FindFaladorLadderColor;
**SymbolAccuracy&#58;=0.4;** // temporarily reduce symbolaccuracy for better symbol spotting
**FindFaladorBasicColors;
**SymbolAccuracy&#58;=0.8; // set symbolacc. to default
**NickNameBMP&#58;=CreateBitmapMaskFromText&#40;Players&#91;CurrentPlayer&#93;.Nick,UpChars&#41; // in case we started logged in aot logged out

**repeat
******GetAllLevels;
******if not FindPickHeadColor then Logout;

******Dochats;
******if Players&#91;CurrentPlayer&#93;.loc=&#39;Falador&#39; then
********begin
******** SetRun&#40;true&#41;;
******** BankToGuild;
********end

******if Players&#91;CurrentPlayer&#93;.loc=&#39;Guild&#39; then
********begin
**********if&#40;MapOreColor=0&#41; then MapOreColor&#58;=FindMapOreColor;

**********if FindMMColor&#40;x, y, LadderColor&#41; then RoadWalk&#40;MapOreColor,&#39;E&#39;&#41;;
**********FFlag&#40;10&#41;;

**********MarkTime&#40;Mark&#41;;
**************if&#40;MapPickColor=0&#41; then MapPickColor&#58;=GetSymbolColor&#40;x,y,&#39;mining spot&#39;&#41;;
**********repeat
************WizzupMine;
************Wait&#40;100&#41;;
************if &#40;not&#40;Loggedin&#41;&#41; then**break;
**********until&#40;InventoryFull&#41;or&#40;NoPick=true&#41;or&#40;TimeFromMark&#40;Mark&#41;&#62;1800000&#41;

**********SetRun&#40;False&#41;;
**********GuildToBank;
**********Bank;
**********ProgressReport;
********end;
******if &#40;&#40;LoggedIn&#41; and &#40;Players&#91;CurrentPlayer&#93;.Banked mod Loads = 0&#41; &#41; then
********Begin
**********MarkTime&#40;Mark&#41;;
**********SetChat&#40;&#39;off&#39;,1&#41;;
**********repeat
************ Wait&#40;1000&#41;;
************ FindNormalRandoms;
************ if&#40;TimeFromMark&#40;Mark&#41;&#62;120000&#41; then begin Logout; Break; end;
**********until&#40;not&#40;LoggedIn&#41;&#41;;
**********writeln&#40;&#39;dead and logging back in&#39;&#41;;
**********writeln&#40;InttoStr&#40;CurrentPlayer&#41;&#41;;
**********Wait&#40;500+Random&#40;501&#41;&#41;;
**********NextPlayer&#40;True&#41;;
**********writeln&#40;InttoStr&#40;CurrentPlayer&#41;&#41;;
**********NoPick&#58;=False;
**********SetOres;
**********EquipPick &#58;= Players&#91;CurrentPlayer&#93;.Boolean1;
**********FindPickHeadColor;
**********DoChats;
********end;

******if &#40;not &#40;Loggedin&#41;&#41; then
********Begin
**********NextPlayer&#40;False&#41;;
**********NoPick&#58;=False;
**********SetOres;
**********EquipPick &#58;= Players&#91;CurrentPlayer&#93;.Boolean1;
**********FindPickHeadColor;
**********DoChats;
******End;
**Until&#40;False&#41;
end.
end.

Anyone know what i am supposed to do to stop gettin the error? lol im a newb to SCAR

**Ynot** · 04-26-2007 02:46 PM

wikipedia'd scar, as I have no idea what it is
but I got this simple hello world

Code:

program HelloWorld;
begin
**WriteLn&#40;&#39;Hello World&#33;&#39;&#41;;
end.

so, I'd try changing the top of yours to read

Code:

program SRLGuildMiner;

{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Mining.scar}
{.include SRL/SRL/misc/FaladorColorFinder.scar}
{.include SRL/SRL/extended/xMapWalk.scar}

As I think the

Code: