For a while I have made a script that will power mine & drop copper from my own personal uses. I have used it to quickly raise my army of level 3's and 4's to level 20+ Mining. But now I have made a brand new public version and I need some script fixing help. I keep getting this error:
Line 40: [Error] (15317:10): Assignment expected in script [MyScriptDirect].
I can't fix it? Here is the almost until error fixed full script of Copper Mashed:
SCAR Code:
{.Script Info:
# ScriptName = Copper Mashed
# Author = MacroHawk
# Description = Power Mine's Copper Ore
# Version = 1.0 Beta
# Date = May 16, 2007
# Comments = Setup lines 14-17
/Script Info}
program CopperMash;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
const
PlayerName ='';
PassWord ='';
NickName ='ebra';
RunDirc ='';
var
Ores, GasFoundC: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :=(PlayerName);
Players[0].Pass :=(PassWord);
Players[0].Nick :=(NickName);
Players[0].Active:=True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure NoRands;
begin
FindPick;
EquipPick;
FindTalk;
FindNormalRandoms;
FindLamp('Mining');
if(FindGas(x,y)) then
begin
SetRun(true);
RunAwayDirection(RunDirc);
Wait(10000 + random(2000));
RunBack;
SetRun(False);
GasFoundC := GasFoundC + 1;
end;
if(FindFight) then
begin
SetRun(true);
RunAwayDirection(RunDirc);
Wait(10000 + random(2000));
RunBack;
SetRun(False);
end;
end;
procedure NoBan;
begin
RandomChatEvery(2 + Random(2));
BoredEvery(4 + random(7));
Wait(5 + random(2));
HoverSkill('Mining',false);
If(InChat('Mining levels') or
InChat('Mining levels?') or
InChat('Mining lvl') or
InChat('Mining lvls') or
InChat('Mine levels') or
InChat('Mine levels?') or
InChat('Mine lvl') or
InChat('Mine lvls') or
InChat('Mine lvls?') or
InChat('Mining lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Mining')));
end;
end;
procedure Login;
begin
LoginPlayer;
HighestAngle;
MakeCompass(RunDirc);
end;
procedure ProgressReport;
begin
ClearDebug;
Wait(10000)
Writeln('[x]---------->Copper Mashed<----------[x]')
Writeln('Mined '+IntToStr(Ores)+' Iron Ores')
Writeln('Gained '+IntToStr(Ores*35)+' Mining Experiance')
Writeln('Avoided '+IntToStr(GasFoundC)+' Random Gases')
Writeln('Worked For: ' + TimeRunning)
Writeln('[x]---------->Proggy Report<----------[x]')
end;
procedure MiningR;
begin
repeat
if(FindColor(x,y,4351888,0,0,800,800)) or
if(FindColor(x,y,3627131,0,0,800,800)) or
if(FindColor(x,y,3165547,0,0,800,800)) or then
begin
MMouse(x, y, 2, 2);
Wait(200+random(50));
if GetUpText = 'ine' then
Mouse(x,y,2,2,true);
Ores := Ores + 1;
Wait(2000+random(500));
NoRands;
NoBan;
end;
until(InvFull);
end;
procedure DropOre;
begin
if InventoryFull = true then
begin
GameTab(4);
DropAll;
end;
end;
begin
SetupSRL;
SetupSRLMining
DeclarePlayers;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
ActivateClient;
Login;
FindPickHeadColor;
repeat
MiningR;
DropOre;
ProgressReport;
NoRands;
NoBan;
until(false)
end.
Can some one look over the script and tell me what to fix please. Or if you could, can you just edit it and repost it here for me. I would be very greatful if you could and I will add you into the Script Credits. Please help (i'm so newbie).