AI in Delphi

if Object in FriendList then
  with Object as TFriend do
    begin
    repeat
      DrinkBeer;
    until not MoneyEnough
      Self.Pee;
    end
else if Object is TWoman then
  with Object as TWoman do
    if not Assigned BoyFriend then
      try
        BuyRoses;
        DrinkFizz;
        repeat
          Friction;
        until not Finished
        Sleep(28800000) // – 8 hours
      except
        ShowMessage(“I’m Sorry”);
      end

Leave a Comment