posted on Thursday, August 14, 2003 6:53 PM
by
Kris
Expressions in OO
If Me.IsThirsty OrElse Me.IsHungry Then
Me.Goto(Fridge)
Dim coll As Foods = Me.CurrentLocation.GetContents()
Dim i As Integer
For Each f As Food In coll
Me.Consume(f.RawContent)
If i > 10 Then : Me.Burp() : End If
i += 1
Next
End If
- Thought I wanted to share this one with you all, but don't know anymore where I found this one (was on one blog)
Sorry for not refering...