Program Buy;

{$Include 'all.inc'}

var
hungryTimer, trackingTimer : Cardinal;

Procedure BuyReset;
Begin
    AutoBuy(BM, $0000, 0); // Blood Moss
    AutoBuy(BP, $0000, 0); // Black Pearl
    AutoBuy(GA, $0000, 0); // Garlic
    AutoBuy(GS, $0000, 0); // Ginsing
    AutoBuy(MR, $0000, 0); // Mandrake Root
    AutoBuy(NS, $0000, 0); // Nightshade
    AutoBuy(SA, $0000, 0); // Sulphurous Ash
    AutoBuy(SS, $0000, 0); // Spider Silk
End;

Procedure Buy;
Begin
    UOSay('buy');
    // AutoBuy(BM, $0000, 60); // Blood Moss
    // AutoBuy(BP, $0000, 60); // Black Pearl
    // AutoBuy(GA, $0000, 60); // Garlic
    // AutoBuy(GS, $0000, 60); // Ginsing
    // AutoBuy(MR, $0000, 60); // Mandrake Root
    // AutoBuy(NS, $0000, 60); // Nightshade
    // AutoBuy(SA, $0000, 60); // Sulphurous Ash
    // AutoBuy(SS, $0000, 60); // Spider Silk
End;

Begin
    FindDistance := 1;
    Ignore(self);
    hungryTimer := Timer;
    trackingTimer := Timer;
    BuyReset;
    While true Do Begin
        While (Not Dead) and Connected Do Begin
            If Timer > hungryTimer + 5*60*1000 Then Begin
                Hungry(1, Backpack);
                hungryTimer := Timer;
            End;
            If Timer > trackingTimer + 10000 Then Begin
                AutoMenu('Select', '(random)');
                UseSkill('Tracking');
                trackingTimer := Timer;
            End;
            FindType($0190, Ground);
            If (FindCount > 0) Then Begin
                Buy;
            End;
            FindType($0191, Ground);
            If (FindCount > 0) Then Begin
                Buy;
            End;
            Wait(2000);
        End;
    End;
End.