pcap
2013-03-01 20:05:16
Says unknown identifier for P07_findobjcustom in the Eat_food procedure
program Cow_Killer;
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}
var
x, y: Integer;
Test: Tstringarray;
procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
End;
procedure Kill_Cow;
Begin
repeat
//If P07_FindObjCustom (x,y, ['ow'], [1848381, 11975615],3) then
ClickMouse2(Mouse_left);
Wait(4500)
until(HPPercent <10);
End;
Procedure Eat_Food;
Begin
Repeat
If (HPPercent <10) then
PO7_FindObjcustom(x,y, ['rout'], [7238283], 2) then
Clickmouse2(mouse_left);
until(HPPercent > 50)
End;
begin
ClearDebug;
SetupP07Include;
DeclarePlayers;
P07_LoginPlayer;
Repeat
Kill_Cow;
Eat_Food;
Until(false);
end.