PDA

View Full Version : [PROJECTRS06] JPowerChopper



Hexless
02-11-2013, 12:07 AM
hey guys this is my first script (i know its not flawless [yet])
Please leave FEEDBACK :)

Supports:
Fast Dropping
Uses Normal trees/Oaks (ATM going to be working so it uses different ones)
Future:
Picks Trees more logically (NotSTARTED)
Better Coding(NotSTARTED)


I coded this script based on the trees here: so thats where it'll work best :P (plus no one esle is normally there)
19085


//WARNING: USE AT OWN RISK!
//SCRIPT NOT RUNNING FLAWLESS YET
//Author:Hexless
//Time taken to make:3-4Hours (First Time Coding/Scripting)
//Special thanks for SNEAKDELLA for telling me how to drop the logs
//Hope you guys enjoy
//Please Leave FEEDBACK on the thread :)
//Happy Botting.



program JChopper;
{$I SRL/SRL.Simba}
{$I P06Include/P06Include.Simba}
//CODED BY HEXLESS
Function ChopDown:Boolean;
Var
X,Y,Boolean:Integer;
Begin
If FindColorSpiralTolerance(x,y,4683416 ,MSX1,MSY1,MSX2,MSY2,30)Then
WriteLn('Chopping down the tree');
If (P06_IsUpTextMultiCustom(['Chop','down','Oak']))Then
WriteLn ('Oak Tree Found');
wait(1500);
Mouse(x,y,2,2,False);
If (P06_ChooseOptionMulti(['Chop','Tree','down'])) Then
sleep(1000);
WriteLn('Chopping down the tree');

End;
//DROP IDEA FROM SNEAKDELLA
Procedure Drop;
begin
P06_DropAllExcept([0]);//LEAVE IF YOU CANT HOLD YOUR HATCHET!
end;





//CODED BY HEXLESS
Begin;
SetupP06Include;
Repeat
ChopDown;
If P06_InvFull Then
Drop;
sleep(6000);
WriteLn('Script has run for : ' + TimeRunning + '');
Until(false);
end.

End.
//CODED BY HEXLESS