k9commander
2013-08-17 16:24:34
i'm following the scripting tutorial made by yohojo
it never finds the tree only moves around it,also the writeln never says in the debugbox.
it never finds the tree only moves around it,also the writeln never says in the debugbox.
[SIMBA=woodcutting]program new;
{$define srl15}
{$loadlib sps}
{$I SRL/SRL.Simba}
//{$define smart}
{$i sps/sps.simba}
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
function chopdown:boolean;
var
x,y:Integer;
begin
if FindObjCustom (x,y,['chop','down'],[1586759,1586759,1586759], 5)then
begin
writeln('horray,we found it');
GetMousePos(x,y);
case Random (1) of
0:Mouse(x,y,5,5,mouse_Left);
1:begin
mouse(x,y,5,5,false);
WaitOption('chop',500);
end;
end;
end;
end;
begin
setupSRL;
chopdown;
end.