• Log in or sign up for an account here: https://www.sythe.org/login

Weird error

  • Thread starter Thread starter xminimanx
  • Start date Start date
X

xminimanx

Guest
Everytime I try to run this script, it says that there is an unknown identifier in 'username' whats going on?
(Im new to this whole scar stuff so please help me if you can)
Thanks.

Here is what it says:

Failed when compiling
Line 60: [Error] (60:1): Unknown identifier 'Username' in script C:\Scar Scripts\Powerminer.scar
 
plz read the stickies... post the script in
Code: 
 tags.
 
{=========================================================================]
[ Stupid3ooo's PowerMiner ]
[ version: 3.92 ]
[=========================================================================]
| Description: |
| A macro that you can run in any mine. It'll mine a full load of either|
| tin, copper, iron, or coal and drop it once it's full, then continue |
| minning. |
| Instructions: |
| 1.V-bright, 32bit resolution. |
| 2.Need SCAR version 2.0.2. |
| 3.Run script next to the full rock you want to mine. |
| 4.Recomended to have extra pickaxes in your inventory. |
| 5.Click and drag the crosshair over the Runescape client. |
| Then press the green arrow. |
| 6.To set your own colors go to lines 30-35.(Optional) |
| 7.For general SCAR help go to: |
| http://www.kaitnieks.com/files/SCARGUIDE/SCARGUIDE.htm |
| 8.Be sure to open SSI2.txt for more options. |
[=========================================================================]
[ Thanks to, RS Cheating community ]
[ *PLEASE POST ANY BUGS/HELP IN THE FORUMS OR E-MAIL ]
[ [email protected] ]
[ If you like pwease donate to me :) at: ]
[ http://www.stupid3ooo.fizzstudios.com/donate ]
[=========================================================================}

program StupidPowerMiner;



const
//=//================Colors(Leave as 0 to let script find)==============\
RockColor1= 3232634;//Colors of rocks in main screen.
RockColor2= 1265249;
RockColor3= 732987;
MMPickColor= 65536;//Pick symbol color. [SS:2575992]
MMOreColor= 3035274;//Mini map ore color. [SS:4010803]
//=\=================================================================//=\
//=\ Under the varibles you may disable the forms and setup options. //=\
//=\=================================================================//=\
var
OreCol,OreTol1,OreTol2,DroppedOres,OreType,Beer,MapOreColor,MapPickColor,
NotStuckMark,RunMark,MaxWait,SetRunTime:integer;
XpPerOre:extended;
RockDirection,RunDirection:string;
Look4Gas,DropAllButPick,StartScript,UseForm,ScarScape,LogsOut,Chats,Rotates:boolean;
frmDesign,frmMore:TForm;
labPassword,labUsername,labOreType,labRunDirection,labMaxWait,labMaxWait2,
labSetRunTime,labSetRunTime2:TLabel;
cboxOreType,cboxRunDirection:TComboBox;
edtUsername,edtPassword,edtSetRunTime,edtMaxWait:TEdit;
bMoreOptions,bStart,bSave,bDonate:TButton;
cbLook4Gas,cbLogsOut,cbChats,cbDropAllButPick,cbRotates,cbScarScape:TCheckBox;

procedure Setup;
begin
//=//==============================Setup================================\
UseForm:= true;//If you want to use the GUI in the beginning.
Username:='';//Username
Password:='';//Password
ScarScape:= true;//Set to true if you are using ScarScape.
LogsOut:= true;//If you want to log out every so often for antiban.
Chats:= true;//If you want to randomly chat for anti-ban.
Look4Gas:= true;//Set to false if you are having trouble with it constantly finding gas.
Rotates:= true;//If you want to randomly rotate the screen for anti-ban.
MaxWait:= 10;//Maximum time in seconds to wait while mining a rock.
SetRunTime:= 300;//Sets run every chosen amount of seconds.
RunDirection:= 'W';//Direction to run away from.
DropAllButPick:= true;//If you want to drop gems, gold, etc. instead of just ores.
//=\=================================================================//=\
end;

//DO NOT TOUCH BELOW

//==============================Misc Procedures===============================\

Procedure ProgressReport;//modified from Phalanx's script
var
RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
Time:string;
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if(DroppedOres>0)then
avtime:=Seconds/DroppedOres;
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+
' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
writeln(' ');
writeln('<=================Progress Report================>');
writeln('Worked for '+Time);
writeln('Dropped '+inttostr(DroppedOres)+' ore.');
writeln('Gained '+floattostr(XpPerOre*DroppedOres)+'xp.');
if(avtime>0)then
writeln('Currently Averaging about '+inttostr(3600/avtime)+
' ores and '+floattostr((3600/avtime)*XpPerOre)+' xp an hour.');
writeln('Random Event Report:');
if(fights>0)then writeln(' Fought '+inttostr(fights)+' time.');
if(talks>0)then writeln(' Talked to '+inttostr(talks)+' random event.');
if(lamps>0)then writeln(' Used lamps '+inttostr(lamps)+' time.');
if(boxes>0)then writeln(' Solved '+inttostr(boxes)+' box[es].');
if(logs>0)then writeln(' Logged in '+inttostr(logs)+' time.');
writeln('<================================================>');
end;

procedure GetOreType;
begin
if(OreType=1)then//1-Copper
begin
OreCol:=4550039;
OreTol1:=15;OreTol2:=35;
XpPerOre:= 17.5;
end;
if(OreType=2)then//2-Tin
begin
OreCol:=7895169;
OreTol1:=15;OreTol2:=35;
XpPerOre:= 17.5;
end;
if(OreType=3)then//3-Iron
begin
OreCol:=2371664;
OreTol1:=5;OreTol2:=25;
XpPerOre:= 35;
end;
if(OreType=4)then//4-coal
begin
OreCol:=2900546;
OreTol1:=5;OreTol2:=13;
XpPerOre:= 50;
end;
end;

procedure SetColors;
begin
OreColor1:=RockColor1;
OreColor2:=RockColor2;
OreColor3:=RockColor3;
MapPickColor:=MMPickColor;
MapOreColor:=MMOreColor;
end;

//=========================Color Finding Procedures===========================\

procedure FindRockDirection;
begin
if(MapPickColor>0)then
begin
if(FindColorSpiral(x,y,MapPickColor,668,5,725,160))then
RockDirection:='W';
if(FindColorSpiral(x,y,MapPickColor,575,5,628,160))then
RockDirection:='E';
if(FindColorSpiral(x,y,MapPickColor,575,103,725,160))then
RockDirection:='N';
if(FindColorSpiral(x,y,MapPickColor,575,5,725,68))then
RockDirection:='S';
end;
end;

function FindMapOreColor:integer;
var
MapOre,MapOre2:integer;
begin
MapOre := BitmapFromString(3, 3,
'3D2C345948546D5D624A39416D5D626D5D625948546D5D626D5D62' +
'');
MapOre2 := BitmapFromString(3, 3,
'061115222D35364243131E22364243364243222D35364243364243' +
'');
if(FindBitmapsProgressiveTol(MapOre,MapOre2,0,0,0,65,5,587,41,705,118))then
Result:=GetColor(x+1,y+1);
FreeBitmap(MapOre);
FreeBitmap(MapOre2);
end;

procedure FindColors;
var
c:integer;
begin
WriteLn('Finding colors please Wait...');
repeat
c:=c+1;
if(MapOreColor>0)and(MapPickColor>0)and(OreColor1>0)and(OreColor2>0)and
(OreColor3>0)then
Break;
FindOreColors(OreCol,OreTol1,OreTol2);
MapPickColor:=GetSymbolColor('mining spot');
MapOreColor:=FindMapOreColor;
if(c>=10)then
begin
WriteLn('Could not find colors, please stand next to a full rock and '+
'make sure the mining spot symbol is visible in the minimap, then'+
' run the script again');
TerminateScript;
end;
until(c>10)
end;

//========================Random Protection Procedures========================\

procedure ReturnToRocks;
begin
if(not(FindMMColor(MapPickColor)))then
begin
if(FindMMColor(MapOreColor))then
begin
Mouse(x,y,1,1,true);
Flag;
end
else if(not(FindMMColor(MapPickColor)))and
(not(FindMMColor(MapOreColor)))then
begin
writeln('Lost!!!');
TerminateScript;
end;
end;
if(FindColorSpiral(x,y,MapPickColor,565,5,725,160))then
begin
Mouse(x,y,1,1,true);
Flag;
if(not(RockDirection=''))then
RoadWalk(MapOreColor,RockDirection);
end;
end;

procedure TimedProcedures;
begin
if(TimeFromMark(NotStuckMark)>60000)then
begin
ReturnToRocks;
MarkTime(NotStuckMark);
end;
if(TimeFromMark(RunMark)>SetRunTime*1000)then
begin
MarkTime(RunMark);
SetRun(true);
end;
end;

procedure FindRandoms;
begin
FindNormalRandoms;
AntiBan;
FindDoctor;
FindBox;
if(FindFight)then
begin
RunAwayDirection(RunDirection);
Wait(5000+random(1000));
RunBack;
end;
if(not(FindPick))then
begin
ClickItemBmpTol(PickHandle,50,false);
ChooseOption('Drop');
end;
if(FindColor(x,y,OreColor,210,130,300,220))then
begin
if(Look4Gas)then
begin
if(FindGas(x,y))then
begin
WriteLn('Waiting for gas...');
Wait(25000+random(2000));
end;
end;
end;
end;

//============================Main Screen Procedures==========================\

procedure DropIfNeeded;
begin
if(InventoryFull)then
begin
Beer := BitmapFromString(5, 5,
'000001C9C1C9CDC5CDD0CAD0CDC5CD000001D7D1D7D9D2D8DAD5D9' +
'DDD9DD564D42000001E6E2E6E7E4E7E8E5E8564D42000001C09018' +
'F4F2F4F2F0F2544A3B000001C09018C09018C09018');
DroppedOres:=DroppedOres+(CountItemBmpTol(Ore,50));
if(FindItemBmpTol(Beer,50))then
begin
ClickAllItemsNameWait('Drop','Eat',0);
ClickAllItemsNameWait('Drop','Drink',0);
end;
if(DropAllButPick)then
begin
ClickAllItemsNameWait('Drop','Use',0);
end else
ClickAllItemsBmpTolWait('Drop',Ore,50,0);
ProgressReport;
FreeBitmap(Beer);
end;
end;

procedure Mine;
var
SysTime:integer;
begin
SetRandomOreColor;
if(FindObj('Mine',OreColor,5))then
begin
if(not(FindGas(x,y)))then
begin
Mouse(x,y,r,r,true);
if(FlagPresent)then
begin
Flag;
Wait(500+random(500));
end;
MarkTime(SysTime);
repeat
if(not(FindColorSpiral(x,y,OreColor,210,130,300,220)))then
Break;
FindRandoms;
Wait(500+Random(500));
until(not(GetColor(109,430)=0)and(not(GetColor(195,426)=0)))or
(TimeFromMark(SysTime)>=MaxWait*1000)
MarkTime(NotStuckMark);
end;
end;
end;

//====================================Form====================================\

procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;

procedure ShowMoreModal;
begin
frmMore.ShowModal;
end;

procedure SafeShowForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;

procedure SafeMore;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitMore', v);
end;

procedure Start(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
StartScript:=true;
end;

procedure More(sender: TObject);
var
v: TVariantArray;
begin
SafeMore;
setarraylength(V, 0);
ThreadSafeCall('ShowMoreModal', v);
end;

procedure SaveOptions;
begin
case cboxRunDirection.Text of
'North': RunDirection:='N';
'South': RunDirection:='S';
'East' : RunDirection:='E';
'West': RunDirection:='W';
end;
Look4Gas:=cbLook4Gas.State;
LogsOut:=cbLogsOut.State;
Chats:=cbChats.State;
Rotates:=cbRotates.State;
DropAllButPick:=cbDropAllButPick.State;
MaxWait:=strtoint(edtMaxWait.Text);
SetRunTime:=strtoint(edtSetRunTime.Text);
end;

procedure Save(sender: TObject);
begin
frmMore.Caption:= frmMore.Caption + '.';
frmMore.ModalResult:= mrOk;
SaveOptions;
end;


procedure Donate(sender: TObject);
begin
OpenWebPage('http://www.stupid3ooo.fizzstudios.com/donate/');
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 359;
frmDesign.Top := 225;
frmDesign.Width := 258;
frmDesign.Height := 204;
frmDesign.Caption := 'StupidPowerMiner';
frmDesign.Color := clWhite;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
labPassword := TLabel.Create(frmDesign);
labPassword.Parent := frmDesign;
labPassword.Left := 96;
labPassword.Top := 44;
labPassword.Width := 46;
labPassword.Height := 13;
labPassword.Caption := 'Password';
labUsername := TLabel.Create(frmDesign);
labUsername.Parent := frmDesign;
labUsername.Left := 96;
labUsername.Top := 6;
labUsername.Width := 48;
labUsername.Height := 13;
labUsername.Caption := 'Username';
labOreType := TLabel.Create(frmDesign);
labOreType.Parent := frmDesign;
labOreType.Left := 96;
labOreType.Top := 80;
labOreType.Width := 44;
labOreType.Height := 13;
labOreType.Caption := 'Ore Type';
cbScarScape := TCheckBox.Create(frmMore);
cbScarScape.Parent := frmDesign;
cbScarScape.Left := 88;
cbScarScape.Top := 151;
cbScarScape.Width := 80;
cbScarScape.Height := 17;
cbScarScape.Hint :=
'Check if you are using ScarScape.';
cbScarScape.ShowHint := True;
cbScarScape.Caption := 'ScarScape?';
if(ScarScape)then
begin
cbScarScape.Checked := True;
cbScarScape.State := cbChecked;
end;
edtUsername := TEdit.Create(frmDesign);
edtUsername.Parent := frmDesign;
edtUsername.Left := 64;
edtUsername.Top := 20;
edtUsername.Width := 121;
edtUsername.Height := 21;
edtUsername.TabOrder := 1;
edtUsername.Text := Username;
edtPassword := TEdit.Create(frmDesign);
edtPassword.Parent := frmDesign;
edtPassword.Left := 64;
edtPassword.Top := 58;
edtPassword.Width := 121;
edtPassword.Height := 21;
edtPassword.PasswordChar := '*';
edtPassword.Text := Password;
bMoreOptions := TButton.Create(frmDesign);
bMoreOptions.Parent := frmDesign;
bMoreOptions.Left := 178;
bMoreOptions.Top := 151;
bMoreOptions.Width := 70;
bMoreOptions.Height := 17;
bMoreOptions.Caption := 'More Options';
bMoreOptions.OnClick:= @More;
cboxOreType := TComboBox.Create(frmDesign);
cboxOreType.Parent := frmDesign;
cboxOreType.Left := 64;
cboxOreType.Top := 94;
cboxOreType.Width := 121;
cboxOreType.Height := 21;
cboxOreType.ItemHeight := 13;
cboxOreType.Text := 'Copper';
cboxOreType.Items.Add('Copper');
cboxOreType.Items.Add('Tin');
cboxOreType.Items.Add('Iron');
cboxOreType.Items.Add('Coal');
bStart := TButton.Create(frmDesign);
bStart.Parent := frmDesign;
bStart.Left := 87;
bStart.Top := 121;
bStart.Width := 75;
bStart.Height := 25;
bStart.Caption := 'Start';
bStart.TabOrder := 5;
bStart.OnClick:= @Start;
bDonate := TButton.Create(frmDesign);
bDonate.Parent := frmDesign;
bDonate.Left := 1;
bDonate.Top := 144;
bDonate.Width := 75;
bDonate.Height := 25;
bDonate.Caption := 'Donate Plz';
bDonate.TabOrder := 13;
bDonate.OnClick:= @Donate;
end;

procedure InitMore;
begin
frmMore := CreateForm;
frmMore.Left := 261;
frmMore.Top := 118;
frmMore.Width := 294;
frmMore.Height := 170;
frmMore.Caption := 'More Options';
frmMore.Color := clWhite;
frmMore.Font.Color := clWindowText;
frmMore.Font.Height := -11;
frmMore.Font.Name := 'MS Sans Serif';
frmMore.Font.Style := [];
frmMore.Visible := False;
frmMore.PixelsPerInch := 96;
labRunDirection := TLabel.Create(frmMore);
labRunDirection.Parent := frmMore;
labRunDirection.Left := 75;
labRunDirection.Top := 10;
labRunDirection.Width := 184;
labRunDirection.Height := 13;
labRunDirection.Caption := 'Direction to run away in case of a fight.';
labMaxWait := TLabel.Create(frmMore);
labMaxWait.Parent := frmMore;
labMaxWait.Left := 5;
labMaxWait.Top := 29;
labMaxWait.Width := 196;
labMaxWait.Height := 13;
labMaxWait.Caption := 'Maximum time to Wait while mining a rock:';
labMaxWait2 := TLabel.Create(frmMore);
labMaxWait2.Parent := frmMore;
labMaxWait2.Left := 243;
labMaxWait2.Top := 32;
labMaxWait2.Width := 40;
labMaxWait2.Height := 13;
labMaxWait2.Caption := 'seconds';
labSetRunTime := TLabel.Create(frmMore);
labSetRunTime.Parent := frmMore;
labSetRunTime.Left := 5;
labSetRunTime.Top := 47;
labSetRunTime.Width := 66;
labSetRunTime.Height := 13;
labSetRunTime.Caption := 'Set run every:';
labSetRunTime2 := TLabel.Create(frmMore);
labSetRunTime2.Parent := frmMore;
labSetRunTime2.Left := 114;
labSetRunTime2.Top := 50;
labSetRunTime2.Width := 40;
labSetRunTime2.Height := 13;
labSetRunTime2.Caption := 'seconds';
cboxRunDirection := TComboBox.Create(frmMore);
cboxRunDirection.Parent := frmMore;
cboxRunDirection.Left := 5;
cboxRunDirection.Top := 5;
cboxRunDirection.Width := 65;
cboxRunDirection.Height := 21;
cboxRunDirection.DropDownCount := 4;
cboxRunDirection.ItemHeight := 13;
cboxRunDirection.TabOrder := 8;
cboxRunDirection.Text := 'North';
case RunDirection of
'N': cboxRunDirection.Text:='North';
'S': cboxRunDirection.Text:='South';
'E' : cboxRunDirection.Text:='East';
'W': cboxRunDirection.Text:='West';
end;
cboxRunDirection.Items.Add('North');
cboxRunDirection.Items.Add('South');
cboxRunDirection.Items.Add('East');
cboxRunDirection.Items.Add('West');
cbLook4Gas := TCheckBox.Create(frmMore);
cbLook4Gas.Parent := frmMore;
cbLook4Gas.Left := 6;
cbLook4Gas.Top := 100;
cbLook4Gas.Width := 86;
cbLook4Gas.Height := 13;
cbLook4Gas.Hint :=
'Uncheck if you have trouble with the script stopping for gas too often.';
cbLook4Gas.Caption := 'Look for gas?';
cbLook4Gas.ParentShowHint := False;
cbLook4Gas.ShowHint := True;
cbLook4Gas.TabOrder := 9;
if(Look4Gas=true)then
begin
cbLook4Gas.State := cbChecked;
cbLook4Gas.Checked := True;
end;
edtMaxWait := TEdit.Create(frmMore);
edtMaxWait.Parent := frmMore;
edtMaxWait.Left := 204;
edtMaxWait.Top := 27;
edtMaxWait.Width := 38;
edtMaxWait.Height := 21;
edtMaxWait.MaxLength := 3;
edtMaxWait.TabOrder := 10;
edtMaxWait.Text := inttostr(MaxWait);
cbLogsOut := TCheckBox.Create(frmMore);
cbLogsOut.Parent := frmMore;
cbLogsOut.Left := 6;
cbLogsOut.Top := 66;
cbLogsOut.Width := 66;
cbLogsOut.Height := 17;
cbLogsOut.Hint := 'Check to log out about every 3 hours for anti-ban.';
cbLogsOut.Caption := 'Logs out?';
cbLogsOut.ParentShowHint := False;
cbLogsOut.ShowHint := True;
cbLogsOut.TabOrder := 11;
if(LogsOut)then
begin
cbLogsOut.Checked := True;
cbLogsOut.State := cbChecked;
end;
cbChats := TCheckBox.Create(frmMore);
cbChats.Parent := frmMore;
cbChats.Left := 6;
cbChats.Top := 82;
cbChats.Width := 54;
cbChats.Height := 17;
cbChats.Hint := 'Check to chat random prashes every so often for anti-ban.';
cbChats.Caption := 'Chats?';
cbChats.ParentShowHint := False;
cbChats.ShowHint := True;
if(Chats)then
begin
cbChats.Checked := True;
cbChats.State := cbChecked;
end;
cbChats.TabOrder := 12;
cbDropAllButPick := TCheckBox.Create(frmMore);
cbDropAllButPick.Parent := frmMore;
cbDropAllButPick.Left := 6;
cbDropAllButPick.Top := 114;
cbDropAllButPick.Width := 102;
cbDropAllButPick.Height := 17;
cbDropAllButPick.Hint :=
'If you want the script to drop other items like gems and random ' +
'items it might pick up.';
cbDropAllButPick.ShowHint := True;
cbDropAllButPick.Caption := 'Drop all but pick?';
cbDropAllButPick.TabOrder := 13;
if(DropAllButPick)then
begin
cbDropAllButPick.Checked := True;
cbDropAllButPick.State := cbChecked;
end;
edtSetRunTime := TEdit.Create(frmMore);
edtSetRunTime.Parent := frmMore;
edtSetRunTime.Left := 74;
edtSetRunTime.Top := 45;
edtSetRunTime.Width := 38;
edtSetRunTime.Height := 21;
edtSetRunTime.TabOrder := 14;
edtSetRunTime.Text := inttostr(SetRunTime);
cbRotates := TCheckBox.Create(frmMore);
cbRotates.Parent := frmMore;
cbRotates.Left := 78;
cbRotates.Top := 66;
cbRotates.Width := 97;
cbRotates.Height := 17;
cbRotates.Hint :=
'If you want to randomly rotate the camera every so often for ant' +
'i-ban.';
cbRotates.ShowHint := True;
cbRotates.Caption := 'Rotate?';
cbRotates.TabOrder := 16;
if(Rotates)then
begin
cbRotates.Checked := True;
cbRotates.State := cbChecked;
end;
bSave := TButton.Create(frmMore);
bSave.Parent := frmMore;
bSave.Left := 227;
bSave.Top := 119;
bSave.Width := 57;
bSave.Height := 15;
bSave.Caption := 'Save';
bSave.TabOrder := 15;
bSave.OnClick:= @Save;
end;

procedure StartForm;
begin
if(UseForm)then
begin
SafeMore;
SafeShowForm;
if(StartScript=false)then
TerminateScript;
SaveOptions;
case cboxOreType.Text of
'Copper': OreType:=1;
'Tin': OreType:=2;
'Iron': OreType:=3;
'Coal': OreType:=4;
end;
Username:= edtUsername.Text;
Password:= edtPassword.Text;
if(Username='')or(Password='')then
begin
Username:='No Username';
Password:='No Password';
end;
ActivateClient;
Wait(1000+random(500));
ChatsOff;
end;
end;

//==================================Main Line=================================\

begin
SetupSSI;
Setup;
StartForm;

GetOreType;
SetColors;
FindColors;
if(FindPickHeadColor)then
begin
MarkTime(NotStuckMark);
MarkTime(RunMark);
FindRockDirection;
writeln('Map pick color: '+inttostr(MapPickColor)+' Map ore color: '
+inttostr(MapOreColor)+' Rock direction: '+RockDirection);
repeat
TimedProcedures;
DropIfNeeded;
FindRandoms;
Mine;
Wait(100+random(50));
until(false)
end;
end.

Heres the Script.
Heres the Error:
Failed when compiling
Line 60: [Error] (60:1): Unknown identifier 'Username' in script C:\Scar Scripts\Powerminer.scar
 
You must log in or register to reply here.
Runescape Gamblingrunescape gambling
Back
Top