-
FindObj not working
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/
or
Code:
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.
-
-
OMFG THANKS!!!!!
Ok I fixed it I changed it to
if FindObjCustom(x,y,['chop', 'down','oak'],[1978423,2242367,2703691],15) then
please don't hack me ;(