@create Flowerpot=10
@Desc Flowerpot=[u(desc_[v(state)])]
@VS Flowerpot=10
&TICKER Flowerpot=@if [lt(setr(0,%vt),1)]={@emit [u(ticker_terminate,%q0)]},{@wait [u(ticker_continue,%q0)]%vs=@tr me/ticker}
&TRANSITION_-10 Flowerpot=-11
&TRANSITION_-20 Flowerpot=-21
&TRANSITION_12 Flowerpot=13[set(me,state:damp)][emit(u(message_damp))]
&TRANSITION_24 Flowerpot=25[set(me,state:wet)][emit(u(message_wet))]
&TRANSITION_36 Flowerpot=-10[set(me,state:soaked)][emit(u(message_soaked))]
&MESSAGE_DAMP Flowerpot=The sprout has grown a bud!
&MESSAGE_WET Flowerpot=Wow, the bud has already bloomed!
&MESSAGE_SOAKED Flowerpot=Aww, quick as you can blink, and it's gone.
&DESC_SOAKED Flowerpot=Darn. It's gone, already.
&DESC_WET Flowerpot=Oh, what a pretty flower!
&DESC_DRY Flowerpot=Aw, a cute lil sprout.
&DESC_DAMP Flowerpot=Look, it's got a bud, now!
&DESC_WRAPPED Flowerpot=It's a packet of seeds!
&STATE Flowerpot=package
@VT Flowerpot=0
&TICKER_TERMINATE Flowerpot=[set(me,vt:0)]
&TICKER_CONTINUE Flowerpot=[switch(hasattr(me,transition_%0),#-*,set(me,vt:-98)[emit([name(%!)]> ERROR: Function returned Error.)],0,set(me,vt:[inc(%0)]),1,set(me,vt:[u(transition_%0)]))]
&CMD_PLANT Flowerpot=$.plant:@if %vt[emit(u(message_dry))][set(me,vt:1)][set(me,state:dry)]=,{@tr me/ticker}
&CMD_PACKAGE Flowerpot=$.package:@if %vt[emit(u(message_package))][set(me,state:package)]={@vt me=-20}