Help plzz. Im new -dont know how to add a script

[1lovecash]

OK i got this woodcutting script, and saved it. I open it and fill in the appropriate fields but then when i try and run it it says
"Line 33: [Error] (20023:1): Unknown identifier 'LoadNPCArray' in script C:\Program Files\SCAR 3.21\Scripts\Woodcutter.txt"

and
"Line 233: [Error] (20223:3): Unknown identifier 'movemousesplineex' in script C:\Program Files\SCAR 3.21\Scripts\Woodcutter.txt"

and also once

"Failed when compiling
Line 23: [Error] (20013:34): Identifier expected in script C:\Program Files\SCAR 3.21\Scripts\Woodcutter.scar"


please someone help. How do I add a script and run it?

thansk so much.


PS: here's the script if anyone want to look at it.
program Basicut;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
waitt = 3000;//the time to wait between chopping.
treee = 'Tree';// the type of tree to chop, please spell correctly and first letter uppercase.')
roam = 'F';// T for roam around the woods F for stay in one area

var
x,y:integer;
l,lo:integer;
anti:integer;
rep,tal,spl:integer;
notyet,gow:boolean;
posx,posxx:integer;
posy:integer;
flagg,toomuch:integer;

procedure DeclarePlayers;// YOU SHOULD REALLY FILL THIS OUT!!
begin
HowManyPlayers := 1;//keep it at 1
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);

Players[0].Name := 'Scars dead';//name of your guy
Players[0].Pass := '';//pass of your guy
Players[0].Nick := 'ars';//nickname of your guy.
Players[0].Active := True;
end;

procedure comp; // compiles the script
begin
LoadNPCArray;
l:=0
lo:=0
cleardebug;
wait(10)
writeln('-----------------------------')
writeln('Basicut 5.1 made by GMK')
writeln('Your reliable way to powercut')
writeln('tree to chop is: '+ treee)
writeln('-----------------------------')
ActivateClient;
wait(2000)
end;

Procedure Report;// shows a progress report
begin
cleardebug;
writeln('-------------------------------------')
writeln('Basicut report')
writeln('Logs cut: '+inttostr(rep))
writeln('Times talked: '+inttostr(tal))
writeln('Random movements made: '+inttostr(spl))
writeln('Thanks for using Basicut')
writeln('-------------------------------------')
end;

procedure Load;
begin
flagg := BitmapFromString(17, 18, 'beNr7/3+AAQNDrLEgSepJ' +
'0wJWT4IWmHpitSCpJ0oLqnrCWjDUkxxi//8fC2MZ1TIIteAEAPN7K' +
'IQ=');
end;

procedure endit; // failsafe procedure, logs out if you dont have an axe.
begin
Logout;
wait(10)
writeln('Failsafe: problem found. Logging out to avoid further issues.')
wait(10)
Terminatescript;
end;

procedure failsafes;// checks to see if you still have an axe.
begin
if InChat('You do not have an axe which you have the woodcutting level to use.')=true then
endit;
end;

procedure cut;
begin
getmousepos(posx,posy)
FindEnt(posx,posy,true);
Mouse(posx,posy,2,2,false);
wait(100+ random(50))
ChooseOption('Chop down')
wait(250+ random(50))
repeat
wait(25+random(5))
until(FindBitmap(flagg,x,y)=false)
wait(waitt + random(20))
l:=l+l;
end;


procedure chop1; // an accurate scan
begin
posy:=25;
posx:=5;
gow:=false
toomuch:=0
repeat
posx:=posx+40random(5)
wait(25)
if posx>510 then
posy:=posy+40+random(5);
if posx>510 then
posx:=5;
if posy>310 then
posy:=25;
MMouse(posx,posy,1,1)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
gow:=true;
toomuch:=toomuch+1;
if toomuch>80 then
gow:=true;
until(gow=true)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
cut;
end;

procedure chop2; // an accurate reverse scan
begin
posy:=317;
posx:=500;
gow:=false
toomuch:=0
repeat
posx:=posx-40random(5)
wait(25)
if posx<20 then
posy:=posy-40+random(5);
if posx<20 then
posx:=500;
if posy>310 then
posy:=317;
MMouse(posx,posy,1,1)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
gow:=true;
toomuch:=toomuch+1;
if toomuch>80 then
gow:=true;
until(gow=true)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
cut;
end;


procedure chop3; // a quick scan
begin
posx:=50;
repeat
posx:=posx+40random(5)
if posx>450 then
gow:=true;
MMouse(posx,155,1,1)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
gow:=true;
until(gow=true)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
cut;
end;

procedure chop4; // a second quick scan
begin
posy:=50;
repeat
posy:=posy+40random(5)
if posy>300 then
gow:=true;
if posy>300 then
posy:=50;
MMouse(250,posy,1,1)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
gow:=true;
until(gow=true)
if IsUpText('Chop down '+treee+' / 2 more options')=true then
cut;
end;

procedure chop; // Randomly chooses a chopping procedure to use.
begin
gow:=false;
Anti:= random(6);
case Anti of
1,2:Chop1;
3,4:Chop2;
5:Chop3;
6:Chop4;
end;
end;





procedure autorespond; // to be added to soon
begin
if InChat('hi')=true then
TypeSend(AddMistakes('Hello', 20));
if InChat('bot')=true then
TypeSend(AddMistakes('No im not you noob', 20));
if InChat('Newb')=true then
TypeSend(AddMistakes('Nah, your the noob', 20));
if InChat('Nub')=true then
TypeSend(AddMistakes('Yo momma', 20));
end;

procedure drop; // drops the logs in the inventory.
begin
report;
if invfull=true then
begin
l:=3
repeat
DropItem(l)
l:=l+1
until(l=29)
end;
end;

Procedure Roamm; // if Roaming is activated then it will make your character move around the map.
begin
if roam='T' then
RunAway('N',false,1,4000)
end;

Procedure mouseit; // my personal mouse movement antiban procedure.
begin
spl:=spl+1
Anti:= random(5);
case Anti of
1:movemousesplineex(51,57,1,1,10,35,65);
2:movemousesplineex(80,80,1,1,10,35,65);
3:movemousesplineex(127,75,1,1,10,35,65);
4:movemousesplineex(100,59,1,1,10,35,65);
5:movemousesplineex(110,10,1,1,10,35,65);
end;
end;

Procedure Talkk; // talking antiban procedure.
begin
tal:=tal+1
Anti:= Random(5);
case Anti of
1:TypeSend(AddMistakes('Hai!', 20));
2:TypeSend(AddMistakes('Im really bored', 20));
3:TypeSend(AddMistakes('*yawn*', 20));
4:TypeSend(AddMistakes('Im tired of woodcutting!', 20));
5:TypeSend(AddMistakes('Sw33tn3ss!', 20));
end;
end;

procedure antiban; // calls antiban procedures
begin
if lo=5 then
begin
wait(100 + random(25))
lo:=0
Anti:= Random(6);
case Anti of
1:HoverSkill('woodcutting',false);
2ickupmouse;
3:Talkk;
4:mouseit;
5:RandomMovement;
6:Roamm;
end;
end;
end;

Procedure Randoms;// checks for randoms
begin
Findnormalrandoms;
if FindFight=true then
RunAway('n',true,1,9000)
end;

begin // main loop!
tal:=0
rep:=0
spl:=0
SetupSRL;
comp;
DeclarePlayers;
repeat
rep:=rep+1
lo:=lo+1
wait(100 + random(50))
chop;
wait(10+random(5))
Pickupmouse;
autorespond;
Randoms;
drop;
wait(10+random(5))
antiban;
until(false)
end.

 

[Yeha X D]

Im not 100% on 3.21, but on 3.22 MoveMouseSplineEx is no longer a function you can call...

Might wanna read the manual when a new edition comes out.

 

[Syd]

Simple solution:

Powerbot.org