W
w00terman
Guest
ok i got this script from some1 and it says
Could u help me out
Code:
Failed when compiling
Line 4: [Error] (3:1): Identifier expected in script
Code:
begin
# ScriptName = Draynor Willow Smasher and Banker
begin
# Author = Surajd
begin
# Description = Smashes Willows and Banks them in Draynor =D
begin
# Version = v1.01 [ SRL Include ]
begin
# Date = Published on the 5/07/06
end;
end;
end;
end;
end;
end;
begin
# Comments = Please post all Bugs/Corrections in this script's thread, What are you waiting for! =D
end;
# Setup lines are from lines 29-35!
# Have Axe in the FIRST Inventory Slot!
# 06/06/06 : Added a Progress Report! As commented by a few people =D
# 06/06/06 : Fixed some bugs in the Counters =/
/Script Info}
program DWSBanker_SRL_Remade;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
var
a, b: Integer;
A1, A2, A3, H: Integer;
BTimes, STimes, FTimes, ETimes: Integer;
const
HowManyTrips = 357;
WaitTime = 3501;
MMBankSymbol = 5103346;
WTreeColor1 = 2658424;
WTreeColor2 = 1332819;
WTreeColor3 = 5535856;
VersionNumber = 'v1.01 by Surajd';
procedure ProgressReport;
begin
begin
WriteLn(' ');
WriteLn('<============== -' + VersionNumber + '- Progress Report ===============>');
WriteLn(' Smashed: ' + inttostr(STimes) + ' Willow Log(s)! ');
WriteLn(' Banked: ' + inttostr(BTimes) + ' Loads of Willows! ');
WriteLn(' Fixed: ' + inttostr(FTimes) + ' Axe(s)! ');
WriteLn(' Found: ' + inttostr(ETimes) + ' Ent(s)! ');
SRLRandomsReport;
end;
end;
procedure SetupScript;
begin
MakeCompass('N');
SetChat('Hide', 1);
SetChat('Off', 2);
SetChat('Off', 3);
SetRun(true);
GameTab(4);
end;
procedure AxeColors;
begin
Writeln('Getting Axe and Handle colors...')
A1 := Getcolor(593, 220)
A2 := Getcolor(590, 219)
A3 := Getcolor(588, 220)
H := Getcolor(582, 220)
Writeln('Axe colors: ' + inttostr(A1) + ' ' + inttostr(A2) + ' ' + inttostr(A3))
Writeln('Handle color: ' + inttostr(H))
end;
procedure AntiRandomsAR;
begin
Findnormalrandoms;
AntiBan;
if (FindFight) then
begin
Writeln('We are in a fight! Not to worry... .. SCRAMBLE!!!');
RunAwayDirection('E');
RunBack;
Writeln('Phew, that was a close one.. Lets continue smashing! =D');
end;
FindEnt(WTreeColor1);
FindEnt(WTreeColor2);
FindEnt(WTreeColor3);
if(FindEnt(WTreeColor1))then
ETimes := ETimes + 1
if (not (ExistsItem(1))) then
begin
Writeln('Axe head missing! Looking very carefully to find it =/');
FindHead;
FTimes := FTimes + 1
end;
end;
procedure GoSmashWillows;
begin
if (FindMMColorTol(a, b, MMBankSymbol, 5)) then
wait(1001 + random(203 * 2 / 1 - 1 + 2));
Mouse(a - 29, b + 41, 1, 2, true);
Flag;
end;
procedure GoBank;
begin
if (InvFull) then
Writeln('Going to deposit this heavy load of bull! *Sigh*');
FindBank('db');
Flag;
wait(2000 + random(500 * 2 / 3 + 100));
if (BankScreen) then
begin
Deposit(2, 28, 2);
wait(1001 + random(30 * 8 / 2 - 7 + 10));
BTimes := BTimes + 1
CloseBank;
Writeln('Successfully deposited the heap of goods!');
wait(1500 + random(709 * 2 / 2 + 200 - 2));
ProgressReport;
end;
end;
procedure ChopDownWillows;
begin
if (FindMainColor(a, b, WTreeColor1, 3, true)) or
FindMainColor(a, b, WTreeColor2, 2, true) or
FindMainColor(a, b, WTreeColor3, 3, true) then
begin
repeat
STimes := STimes + 1
wait(1023 + random(323 * 5 / 2));
if (IsUpText('Chop Down')) then
MMouse(a, b, 1, 2);
GetMousePos(a, b);
Mouse(a, b, 1, 2, true);
wait(WaitTime + Random(329 * 8 / 2 + 3 - 1));
AntiRandomsAR;
until (InvFull);
ProgressReport;
end;
end;
procedure MainLoop;
begin
repeat
SetupScript;
AxeColors;
AntiRandomsAR;
ChopDownWillows;
GoBank;
GoSmashWillows;
until (HowManyTrips = BTimes);
Logout;
Writeln('Thanks for using the beefy Draynor Willow Smasher and Banker Script created by Surajd =D');
end;
begin
BTimes := 0
STimes := 0
FTimes := 0
ETimes := 0
ProgressReport;
Writeln('You are using the Draynor Willow SMASHER and Banker script!');
Writeln('... Created by Surajd =)');
SetupSRL;
DisguiseScar('Notepad');
MainLoop;
end.
