program PetTrainer;
var
bRunning:Boolean;
procedure ProcessPetStopCommand(szCommand:String);
begin
bRunning:=False;
end;
begin
if Character.MapID<>220000006 then
begin
MaplePrint('Pet Trainer: Please Move To Ludibrium Pet Walk!');
Exit;
end;
RegisterCommandHandler('petstop','ProcessPetStopCo mmand');
bRunning:=True;
Character.Teleport(308,-258);
Sleep(0);
BlockRecvHeader($2B2);
while bRunning do
begin
if Inventory.GetItemCount(4031128)=1 then
begin
SendPacket('71 00 A8 2E 00 00 81 01 F2 FB');
Sleep(0);
SendPacket('71 00 A8 2E 00 00 81 01 F2 FB');
Sleep(0);
SendPacket('71 00 A8 2E 00 00 81 01 F2 FB');
WaitRecvHeader($2B2);
Sleep(0);
SendPacket('73 00 00 01');
WaitRecvHeader($2B2);
Sleep(0);
SendPacket('73 00 00 01');
end
else
begin
{* Get Letter From Weaver *}
SendPacket('71 00 A7 2E 00 00 DC FC 66 00');
Sleep(0);
SendPacket('71 00 A7 2E 00 00 DC FC 66 00');
Sleep(0);
SendPacket('71 00 A7 2E 00 00 DC FC 66 00');
Sleep(0);
SendPacket('71 00 A7 2E 00 00 DC FC 66 00');
WaitRecvHeader($2B2);
Sleep(0);
SendPacket('73 00 02 01');
WaitRecvHeader($2B2);
Sleep(0);
SendPacket('73 00 00 01');
end;
Sleep(0);
end;
UnBlockRecvHeader($2B2);
end.