Hi all. Thanks for taking the time to help me.This is my first powerchopper, as evident in the title,of my script, and I have a few problems. So far its only one part of the script, but here's the whole script anyway. The whole problem is at the bottom.
It says I have to add a "." at this point :Code:program Myfirstpowerchopper; {.include srl/srl.scar} Const treecolor1= 1517602; treecolor2= 3826305; Var x,y,L,MyMark : Integer; Procedure Startcutting; begin if(FindObj(x,y,'ree',TreeColor1,25))then begin Mouse(x,y,5,5,True); Writeln('walkingtotree') Flag; Writeln('CuttingTree') L:= InvCount; repeat if not Loggedin then exit; Until(InvCount > L); Writeln('TreeCut'); If TimeFromMark(MyMark)> (2*60*100)then begin Logout; Exit; End; End; End; Procedure startcutting2; begin If (FindObj(x,y,'hop',Treecolor2,25))then begin Mouse(x,y,0,0,False); if ChooseOption('hop') then begin Writeln('walkingtotree') Flag; Writeln('CuttingTree') end; L:= InvCount; repeat Until(InvCount > L); Writeln('TreeCut'); end; end; begin If TimeFromMark(MyMark)> (2*60*100)then begin Logout; Exit; End; End; Procedure AntiBanActions; begin case 1 + Random(3) of 0 : HoverSkill('random', false); 1 : RandomRClick; 2 : GameTab(1 + Random(13)); end; end; Procedure antirandoms; begin if FindFight then begin RunAwayDirection('W'); Wait(12000+random(15000)); RunBack; end; FindLamp('woodcutting'); end; Procedure invcheck; begin if InvFull = true then DropAll; end; Begin SetupSRL; ActivateClient; Disguise('www.runescape.com - Mozilla Firefox'); SetRun(true); MakeCompass('N'); StartCutting; AntiBanActions; FindNormalRandoms; Antirandoms; invcheck; Repeat Until(false); end.
Why? If I add a period, wouldn't it only compile and execute the first part without going through the main loop?Code:Procedure startcutting2; begin If (FindObj(x,y,'hop',Treecolor2,25))then begin Mouse(x,y,0,0,False); if ChooseOption('hop') then begin Writeln('walkingtotree') Flag; Writeln('CuttingTree') end; L:= InvCount; repeat Until(InvCount > L); Writeln('TreeCut'); end; end; begin If TimeFromMark(MyMark)> (2*60*100)then begin Logout; Exit; End; End; End;(//They want me to add it here.)


Reply With Quote



