i haven't scripted before this in over a year so its been difficult trying to get it back. i wanted to post what i am working on just for general advice because i know it needs a lot of things. help would be appreciated.
also when i try to compile i get this...
Line 88: [Error] (12540:23): Invalid number of parameters in script
line 88 is.. if(FindEnt(treecolor1))or
Code://********* **** * * * * ******/////////////////////////// // * * * * * ** ** * *////////////////////////// // * * * * * * **** * * *////////////////////////// //* * * * * * * * *****///////////////////////// //* * * * * * * * * */////////////////////// // * * **** ******* * * ******////////////////////// ////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////// ///////Powercutter////////////////////////////////////////////// //{ <<===Version 1===<< }//////////////////////////////////// ///// PowerCutting//////////////////////////////////////////// //Ax in first slot/////////////////////////////////////////// //////////////////////////////////////////////////////////// program Cutter; {.include SRL\SRL.scar} {.include SRL\SRL\skill\woodcutting.scar} var x,y,Logs:integer; const { <===SETUP===<< } treecolor1=3432545; treecolor2=3432545; treecolor3=3432545; CutTime = 4000; tol = 15; directiontorun='N'; runfar=true; directionofcompass='N'; { <===END SETUP===<< } function FindFastRandoms: Boolean; //WT-Fawki var i: Integer; begin for i:=1 to 9 do begin case I of 1: If FindDead then Result := True; 2: If FindMod then Result := True; 3: If FindMime then Result := True; 4: If FindMaze then Result := True; 5: If FindQuiz then Result := True; 6: If FindDemon then Result := True; 7: begin if NoGameTab then begin Result := True; Logout; Exit; end; end; 7: begin if InBlack then begin Result := True; Logout; Exit; end; end; 8: if(RC)then Result := True; 9: if FindTalk then Result := True; end; wait(1); end; if Result then end; procedure FindingEnts;/////IEatJ00erBaybees var Ents: Integer; begin if(FindEnt(treecolor1))or (FindEnt(treecolor2))or (FindEnt(treecolor3))then begin WriteLn('Ent Found'); RunAwayDirection('N'); wait(7000+random(3000)); RunBack; Ents := Ents + 1; end; end; procedure report; begin ClearReport; writeln ('***********************************************') writeln ('********* **** * * * * ******') writeln (' * * * * * ** ** * *') writeln (' * * * * * * **** * * *' ) writeln ('* * * * * * * * *****' ) writeln ('* * * * * * * * * *') writeln (' * * **** ******* * * ******') writeln ('***********************************************') AddToReport('Cutter By Jdumber2k'); AddToReport('------------------------'); AddToReport('Cut ' + inttostr(Logs) + ' Logs'); AddToReport('Avoided ' + inttostr(Ents) + ' Ents'); end; procedure CutTrees; begin repeat if(not(LoggedIn)) then Exit; if (FindColorSpiralTolerance(x, y, treecolor1, 454, 454, 454, 454, tol)) or (FindColorSpiralTolerance(x, y, treecolor2, 454, 454, 454, 454, tol)) or (FindColorSpiralTolerance(x, y, treecolor3, 454, 454, 454, 454, tol)) and isupext('ree'); then begin wait(1000+random(300)); FindingEnts; findfastrandoms; wait(50+random(25)); mouse(x,y,0,0,false) wait(50+random(25)); chooseoption('Chop') wait(300+random(500)) findfastrandoms; Findhead; if(infight)then RunTo(directiontorun,runfar); wait(7000+random(3000)); Runback; if FindNewBox then SolveBox; wait(cuttime+random(1000)) end; else begin Writeln('Couldnt find a tree!'); Logout; end; Antiban; until(InvFull) end; begin Findaxeheadcolor(true); repeat if(not(LoggedIn)) then Exit; MakeCompass(directionofcompass); CutTrees; Logs:=Logs+27; DropToPosition(2,28) Report; until(false) end.



Reply With Quote
nd willing to help more should u need it, but gd luc doing it on yr own
