I just added a powerchopper to my firs scriptt, autosinger.
but...
i get an error with the drop... "DropToPosition"
Try it please and try to fix?
Code:program ZomgCollinFirstScript; {.include SRL\SRL.scar} // ZomgCollin's First Script! AutoSinger/Talker! // Song is "Don't Stop Me Now" by Queen! // http://www.srl-forums.com/ var Talked, Antibans, TotalTalks :integer; const Message1 = 'green: Im a sex machine ready to reload!'; Message2 = 'cyan: Like an atom BOMB!'; Message3 = 'red: Im bout to oh, oh, oh, oh, oh, EXPLODE!'; Message4 = 'green: Im burnin thru the sky! yeah!!!'; Message5 = 'cyan: 200 degrees, thats why they call me mr. fahrenheight!'; Message6 = 'red: Im travellin at the speed of light!!'; Message7 = 'green: Oh, I want to make a super-sonic man out of you!'; RunDirection = 'N';//N = North, E = East, And So on. LoadsPerPlayer = 30; //Amounts of loads per player before switching. TreeColor = 0; //Fill in the treecolor here. WaitPerTree = 5000; //the time to wait while we are chopping the tree in Miliseconds. procedure DeclarePlayers; Begin HowManyPlayers := 2; // how many players NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; // player to start Players[0].Name := 'user'; //your runescape account Players[0].Pass := 'pass'; // your runescape password of your account Players[0].Nick := 'nick'; //3 or 4 letters of the name, used for finding randoms Players[0].Active := True; // want this account to bot or not? Players[1].Name := 'user'; //your runescape account Players[1].Pass := 'pass'; // your runescape password of your account Players[1].Nick := 'nick'; //3 or 4 letters of the name, used for finding randoms Players[1].Active := True; // want this account to bot or not? end; Procedure FindFightEx; Begin If(FindFight) then Begin Status('Fight found!'); Writeln('Our player is being attacked!') Writeln('Run the FUCK AWAY!!!!') Begin Status('Running the FUCK AWAY!!!!'); Writeln('Running the FUCK AWAY!!!!'); RunAway(RunDirection,False,1,8000+Random(3000)) Writeln('Whew, We got the FUCK AWAY!'); end; end; end; Procedure AntiRandoms; var i : Integer; Begin Status('Doing AntiRandoms'); for i := 0 to 3 do FindNormalRandoms; FindFightEx; FindNonInventoryRandoms; wait(1); end; procedure Antiban; begin if not LoggedIn then Exit; case Random(68) of 0: begin HoverSkill('Attack', False); Antibans:=Antibans+1; end; 1: begin HoverSkill('Strength', False); Antibans:=Antibans+1; end; 2: begin GameTab(1 + Random(12)); wait(800 + random(500)); GameTab(4); Antibans:=Antibans+1; end; 3: begin BoredHuman; Antibans:=Antibans+1; end; 4: begin AlmostLogout; Antibans:=Antibans+1; end; 5: begin DoEmote(400 + Random(90)); Antibans:=Antibans+1; end; end; end; procedure AutoTalk; begin if not LoggedIn then Exit; case Random(7) of 0: Typesend(Message1); 1: Typesend(Message2); 2: Typesend(Message3); 3: Typesend(Message4); 4: Typesend(Message5); 5: Typesend(Message6); 6: Typesend(Message7); end; Talked:= Talked+1; TotalTalks:=TotalTalks+1; end; procedure Proggy; begin cleardebug; writeln('#+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#'); writeln('Talked ' +IntToStr(TotalTalks)+' Times!'); writeln('Performed '+IntToStr(Antibans)+' Antibans'); writeln('Ran for ' +TimeRunning); writeln('#+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#'); end; procedure ChopTree; var x, y, MyMark : integer; begin if not Loggedin then Exit; MarkTime(MyMark); repeat if FindObj(x, y, 'hop', TreeColor, 30) then begin Mouse(x, y, 0, 0, False); if ChooseOption('hop') then begin //increase 1 to the total tree chop - if we had one Exit; //We clicked chop, now we can exit this procedure. end; end; if TimeFromMark(MyMark) > (2 * 60 * 100) then begin Logout; Exit; end; until false end; procedure mainloop; begin repeat if Talked >= 25000 then begin writeln('We talked 25000 times!'); NextPlayer(True); Talked:=Talked-Talked; mainloop; end; AutoTalk; AntiRandoms; Antiban; AntiRandoms; Proggy; until(false); end; begin SetupSRL; DeclarePlayers; LoginPlayer; SetAngle(true); MakeCompass('N'); mainloop; if LoggedIn then Logout; LoginPlayer; repeat ChopTree; if InvFull then begin DropToPosition(2, 28); Inc(Players[CurrentPlayer].Banked); if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then begin NextPlayer(True); end; end; if not Loggedin then NextPlayer(False); until false end.


Reply With Quote



