IsoMorphic
12-13-2012, 02:54 AM
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
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.
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
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.