Line 1: [Error] (1:1): 'BEGIN' expected in script

i got this in my script, heres the script, its a fletching one


.Script Info:
# ScriptName = PROPERSTRINGER
# Author = gh0st
# Description = simple script to String your bows
# Version = 1.11
# Date = 10/9/2006
# Comments = IT WORKS!!
/Script Info}
{simple script to string bows
----



logs and strings in first 2 bank slots
Face towards that bank, at middle angle

http://forum.scar-scripts.com/showthread.php?p=2091

post in forum with ANY problems

--changelog--
v0.1-0.9 making
v1.00-release
v1.11 use 27,28(thanks for idea R4NDOM 9UY)
----

anyone change and call there own, DONT
if you change CREDIT ME
written by PROPERHACKER,
}
program Properstringer;
{.include Si.scar}

const Totalbows = 530;
LogOutWhenDone = true;

const siUsername = '';
siPassword = '';
siLoggedIn = 30; // mins to run before sleeping
siLoggedOut = 10; // mins to sleep before restarting
siRunDirection = 'S'; // I use seer's
siLampSkill = 'Prayer'; // skill to use lamp on
siTakeScreens = true; // do you want screens of randoms?

var TotalDone, MakeX, count : integer;

procedure HandleRandoms;
begin
CheckRandoms(1, siLampSkill, siRunDirection, false, siTakeScreens, [rtText, rtBox, rtLamp, rtPlant, rtLeveled]);
end;

procedure closebank;
begin
if(BankScreen)then
wait(200+random(200));
mouse(486,42,2,2,true)
end;

procedure Withdrawsb; //withdraw strings and bows
begin
if(not(BankScreen))then
OpenBank;
wait(200+random(200));
Mouse(476,77,2,2,true);
wait(200+random(200));
Withdraw(1, 1, 13);
Withdraw(1, 2, 14);
Withdraw(1, 1, 1);
wait(random(200));
closebank;
end;

procedure DepositBows; //deposits bows
begin
OpenBank;
wait(600+random(400));
Deposit(1, 2, 0);
wait(400+random(600));
end;

procedure MakeBows; //strings bows
var x, y: integer;
begin
Wait(750);
UseItem(27);
UseItem(28);//1
UseItem(27);
UseItem(28);//2
UseItem(27);
UseItem(28);//3
UseItem(27);
UseItem(28);//4
UseItem(27);
UseItem(28);//5
UseItem(27);
UseItem(28);//5
UseItem(27);
UseItem(28);//6
UseItem(27);
UseItem(28);//7
UseItem(27);
UseItem(28);//8
UseItem(27);
UseItem(28);//9
UseItem(27);
UseItem(28);//10
UseItem(27);
UseItem(28);//11
UseItem(27);
UseItem(28);//12
UseItem(27);
UseItem(28);//13
UseItem(27);
UseItem(28);//14
wait(random(200));
TotalDone := TotalDone + 27;
end;

procedure ScriptInit;
begin
LoadInclude('', false);
SetAccount(1, siUsername, siPassword);
TotalDone := 0;
end;

begin
ScriptInit;

repeat
begin
AntiBan(siLoggedIn, siLoggedOut, 1);
Withdrawsb;
HandleRandoms;
MakeBows;
HandleRandoms;
DepositBows;
end;
until(TotalDone >= Totalbows);
CloseWindow;

if(LogOutWhenDone)then
LogOut;
end.

 

That script is too old and won't work. If you want to make it compile then put a { before anything else in the script.

 

grr! and i paid 700k for it!!

omg now ill never get a good fletcher

 

srl-forums.com they have really good free ones there.

 

yeah, but make sure the script u get is updated for SRL 4.