Jeg tænkte, at jeg ville gøre mit overdrevne kaffe drikkeri lidt lettere...
Sub Drink_From_Mug(ByVal Contents As Liquid, ByVal Mug As Container)
If Contents Is Not Liquid Then Exit Sub Do Until Mug Is Empty Action = Drink(Contents, Mug) SystemBladder = SystemBladder + Mug.Value If SystemBladder >= 90% Then GoTo Toilet: Loop
SystemEnergy = SystemEnergy + Contents.Caffeine If SystemEnergy < 100% Then Call Drink_From_Mug Else Clean Mug ' Must do this before go to Toilet End If
Toilet: Do Until SystemBladder Is Empty SystemBladder Release Loop
End Sub |