Congratulations

[Rick_Araujo]

Need space on that mug.

[Tim_Parnell]

Or just at the bottom of the mug inside:

refill()

So when you drink all the coffee you can remember to get more!

[Rick_Araujo]

@107306:@Tim Parnell

Or just…

The fun part is showing some Xojo syntax. A pure refill() can be anything, from Pascal to C#

[Rick_Araujo]

Found a bug:

Dim mug As new DrinkContainer(DrinkContainerType.Mug) Dim pot As new PotContainer(PotType.CoffeePot) Dim bv As new Beverage(BevType.Coffee) pot.prepare(bv) mug.fill(pot.serveBeverage(mug.capacity)) While me.developing() If mug.almostEmpty() Then // 0 - 10% left mug.fill(pot.serveBeverage(mug.capacity-mug.beverageLeft)) else me.drink(mug) End If pot.empty() Then bv = new Beverage(BevType.Coffee) pot.prepare(bv) End Wend

[John_Scanlan]

You guys really don’t have enough to do.

[Richard_Summers]

You still left the tea option out!!

[Rick_Araujo]

I have, to sleep. Almost 1:00 AM.

[Rick_Araujo]

@107312:@Richard Summers

You still left the tea option out!!

Just one minute!

[Richard_Summers]

I don’t care about the time - I want my tea option!!!

[Rick_Araujo]

Dim mug As new DrinkContainer(DrinkContainerType.Mug)
Dim pot As new PotContainer(PotType.TeaPot)
Dim bv As new Beverage(BevType.Tea)
pot.prepare(bv)
mug.fill(pot.serveBeverage(mug.capacity))
While me.developing()
  If mug.almostEmpty() Then // 0 - 10% left
    mug.fill(pot.serveBeverage(mug.capacity-mug.beverageLeft))
  else
    me.drink(mug)
  End
  If pot.empty() Then
    bv = new Beverage(BevType.Tea)
    pot.prepare(bv)
  End
Wend

[Richard_Summers]

What about if I don’t feel like tea, but want a cup of hot chocolate???

[Bob_Coleman]

Then add it to the type.

[Richard_Summers]

Could you add the possibility to dunk a biscuit???

[Rick_Araujo]

You already played with MacOSLib, you are ready to implement “biscuit dunkers” by yourself.

[Bob_Coleman]

@107322:@Richard Summers

Could you add the possibility to dunk a biscuit???

The source is about as open as you can get. Go to it.

[Rick_Araujo]

Bye people, have a good night. (or whatever in your time zone)

[Dana_Brown]

[quote=107317:@Rick Araujo] Dim mug As new DrinkContainer(DrinkContainerType.Mug) Dim pot As new PotContainer(PotType.TeaPot) Dim bv As new Beverage(BevType.Tea) pot.prepare(bv) mug.fill(pot.serveBeverage(mug.capacity)) While me.developing() If mug.almostEmpty() Then // 0 - 10% left mug.fill(pot.serveBeverage(mug.capacity-mug.beverageLeft)) else me.drink(mug) End If pot.empty() Then bv = new Beverage(BevType.Tea) pot.prepare(bv) End Wend [/quote]
I’m pretty sure I can’t fit all of this on a mug - maybe a Travel mug

[Richard_Summers]

I still want biscuit dunking capabilities built into that code!

[Rick_Araujo]

Hey! Why the preference for the Tea version? That’s the exclusive Rich’s version (ask $10 extra bucks from him for the Tea series).

This version reduces coffee wasting at end.

Dim mug As new DrinkContainer(DrinkContainerType.Mug)
Dim pot As new PotContainer(PotType.CoffeePot)
Dim bv As new Beverage(BevType.Coffee) // Let's get some COFFEE!
pot.prepare(bv)
mug.fill(pot.serveBeverage(mug.capacity))
me.drink(mug)                 
While me.developing()                       // Xojo time!
  If pot.empty() Then
    bv = new Beverage(BevType.Coffee)
    pot.prepare(bv)
  End
  If mug.almostEmpty() Then               // 0 - 10% left
    mug.fill(pot.serveBeverage(mug.capacity-mug.beverageLeft))
  else
    me.drink(mug)
  End
Wend                                         // Snack time?

*Note for a Tea version just change the words Coffee and COFFEE by Tea and TEA.

[Richard_Summers]

And the biscuits???