hey i fix up allyour error in your script looks good for a first script i also comment on your errors keep up the good work 
SCAR Code:
{.Script Info:
# ScriptName = Ultimate Bone Burier
# Author = The Scar Noob
# Description = A script that withraws bones from bank, buries them, withraws again, ...
# Version = 1.0
# Date = 14 January 2007
# Comments = Fill in const (lines 19-26) and players information
(lines 29-62)
/Script Info}
program BoneBurier;
{.Include SRL/SRL.Scar}
{.Include SRL/SRL/Skill/Prayer.Scar}
//do not need the bank include that is part of SRL only inlcude stuff like skill an extented
var
BoneXP,Burrys, BoneEXP: Integer;// needed to declear BoneXP as an integer
const
BuryTimes = 50; // The number of loads you want to bury
BoneC = 0; // The bonecolor
Run = 'N'; // The direction to run when i fight is found
TypeOfBone = 'bones'; // The type of bone
pincode = '0000'; // Your pin number
// Setup player
Procedure DeclarePlayers;
begin
HowManyPlayers:=4; //Change to the amount of players you use
NumberOfPlayers(HowManyPlayers);
Players[0].Name :=''; //Enter your Username here
Players[0].Pass :=''; //Enter your Password here
Players[0].Nick :=''; //Enter your Nickname here
Players[0].Skill :=''; //Skill for genie lamp
Players[0].Active := True;
Players[1].Name :=''; //Enter your Username here
Players[1].Pass :=''; //Enter your Password here
Players[1].Nick :=''; //Enter your Nickname here
Players[1].Skill := ''; //Skill for genie lamp
Players[1].Active := True;
Players[2].Name :=''; //Enter your Username here
Players[2].Pass :=''; //Enter your Password here
Players[2].Nick :=''; //Enter your Nickname here
Players[2].Skill := ''; //Skill for genie lamp
Players[2].Active := True;
Players[3].Name :=''; //Enter your Username here
Players[3].Pass :=''; //Enter your Password here
Players[3].Nick :=''; //Enter your Nickname here
Players[3].Skill := ''; //Skill for genie lamp
Players[3].Active := True;
end;
// Setup
procedure Setup;
begin
If(Not(Loggedin)) then
LoginPlayer;
setChat('hide',1);
setChat('friends',2);
setChat('off',3);
SetRun(True);
HighestAngle;
PerfectNorth;
end;
// Randoms
procedure Randoms;
begin
If(FindFight) then
Runawaydirection(Run);
wait(15000+random(2500));
RunBack;
FindMod;
FindDemon;
FindMime;
FindScapeRune;
SolvePinball;
Dwarfitem;
FindName;
FindTalk;
SolveBox;
FindLamp(Players[CurrentPlayer].Skill);
//SolveFrog;
FindNormalRandoms;// For the sandwich lady{i am pretty sure findnormalrandoms; finds an solve all the randoms so you dont need to say findmime FindTalk etc etc how ever i could be wrong so i will just leave that}
end;
// Anti ban
procedure AntiBanActions;
var
DBanMe: Integer;
begin
DBanMe:= Random(14);
case DBanMe of
0: RandomRClickEvery(2 + Random(13));
1: HoverSkill('Mining', False);
2: RandomChatEvery(10 + Random(5));
3: RotateEvery(20 + Random(10));
4: LeaveScreenEvery(5 + Random(5));
5: HoverEvery(15 + Random(5), 'Smithing');
6: PickUpMouse;
7: BoredEvery(9 + Random(24));
8: DragItem(1, 1 + Random(18));
9: GameTab(1 + Random(12));
10: PolyGlotTalk;
end;
end;
// Getting the bone exp
procedure GetPrayerEXP;
begin
GetPrayerXP(TypeOfBone);
end;
// Burry the bones
Procedure Bury;
Begin
if(InvCount = 28) then
Begin
repeat
if(FindObj3(x,y,'ury',BoneC,10))or
(FindObj3(x,y,'ury',BoneC,15))then
wait(2000+random(600));
Mouse(x,y,2,2,True);
AntiBanActions;
Randoms;
Until(Not(FindObj3(x,y,'ury',BoneC,10)))or
(FindObj3(x,y,'ury',BoneC,15))
AntiBanActions;
Randoms;
Burrys:= Burrys + 1;
BoneEXP:= BoneXP * 28;//didnt have a semicolon an didnt declear BoneXP as a interger
end;
end;
// Opens the bank and withraws the bones
procedure WithrawBones;
begin
OpenBank3;
if(BankScreen = True) then
begin
if(PinScreen = True) then
InPin(pincode);
FixBank;
withdraw(1,28,2);
CloseBank;
end else
FixBank;
Withdraw(1, 1,28);//spelt withdraw wrong
CloseBank;
end;
// Credits
procedure Credits;
begin
ClearDebug
Writeln('Ultimate Bone Burier by The Scar Noob');
wait(200);
Writeln('This script is made by The Scar Noob and is free');
wait(200);
Writeln('Check for updates at www.villu-reborn.com');
wait(200);
Writeln('Plz post also proggys, bugs and comments over there');
wait(200);
Writeln('Thank you for using this bone burier, i hope you love it :-)');
end;
// Report
procedure Report;
begin
ClearDebug;
Writeln('+++++++++++++++ Report +++++++++++++++');
Writeln('The script is running for: '+TimeRunning);
Writeln('You have burried a total of '+IntToStr(Burrys)+' loads of '+TypeOfBone+ '[s].');
Writeln('You have gained '+IntToStr(BoneEXP)+' exp by burying.');
Writeln('Your prayer lvl is : ' + inttostr(GetSkillLevel('Prayer'))+ 'now');
end;
// Mainloop
begin
SetUpSRL;
DeclarePlayers;
ActivateClient;
Credits;
Setup;
repeat
WithrawBones;
Bury;
until(Burrys = BuryTimes)
Report;
Logout;
NextPlayer(True);
end.