Akriam
2006-11-04 16:53:54
I made the following script, there are some errors, and I was just wondering whether or not any of you could fix it up a little. There probably is many procedure errors because I have only scimmed over like 3 [Tut]'s on how to script. Also in line 86 there is an error;) \
////////////////////////////////////////////////////////////////////////////////
////AKRIAM'S ULTIMATE CHOPPER///////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//All of the following Code belongs to Akriam, do not repost without permission
//Start Of Program:
//Credits to Solemn Whishes, The Prince of Randomness, and Starblaster100
//becasue I looked at their scripts to make this one.
//Insturctions:
//1.)Start by the willow trees in Draynor
//2.)Press "Start"
program ultimatechopper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
//Constants
Const
TreeColor1=125234;
TreeColor2=234634;
TreeColor3=235234;
CutWait=2000;
Procedure updates;
begin
writeln('Hello,thanks for using this script!')
writeln('You are using version 1!')
writeln('Updates for version two include:')
writeln('1.)Random mouse movements')
writeln('2.)Banking')
writeln('3.)Random talking')
end;
//Declaring Players
Procedure decalreplayers;
begin
HowManyPlayers :=3
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0
//Player Setup
Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;
Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;
Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;
end;
//Randoms; Thanks to "The Prince of Randomness" for this part
Procedure Randoms;
begin
FindNormalRandoms;
FindHead;
FindEnt(4156042);
if not loggedin then RandomNextPlayer(False);
end;
//Cutting Procedure
Procedure Cut;
begin
wait(100)
if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
findcolorspiral(x,y,TreeColor2,3,3,515,336)or
findcolorspiral(x,y,TreeColor3,3,3,515,336)then
begin
movemousesmooth(x,y,3,3)
istextat2(9,9;'Chop'20)
holdmouse(x,y)
releasemouse(x,y)
wait(CutWait+random(300))
until(invfull)
if (invfull = true) then
end;
//Dropping Procedure
Procedure dropal;
begin
dropto(2-28);
end;
begin
Setupsrl;
declareplayers;
FindAxeHeadColor;
repeat
Cut;
Randoms;
if InvFull then DropAllLogs;
until(getskilllevel('woodcutting')=99);
end.
//Copywrighted- © 2006 G.A.S.P. Inc./Akriam