Ok, so I just reinstalled windows toget windows 8 so I deleted all my simba stuff. I got it back and now im writing just a power chopper.
I know im using FindObj its just for starting then il change to FindObjTPA nad AutoColorAid ok?
Thanks
http://paste.villavu.com/show/7evk8DRuFLygtiqkbyZG/
orCode:program PowerOak; {$i srl/srl.simba} Procedure DeclarePlayers; begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name :=''; Players[0].Pass :=''; Players[0].Nick :=''; Players[0].Active:=True; end; procedure ChopTree; var x,y:integer; begin ExitSquealOfFortune; if FindObjCustom(x,y,'chop',1978423,15) then begin Mouse(x,y,2,2,true); //repeat //Wait(1200+random(250)); //until not IsUpText('oak') or (InvFull); end; end; begin SetupSRL; ActivateClient; DeclarePlayers; LoginPlayer; ExitSquealOfFortune; ChopTree; end.



Reply With Quote


