{
(set: $Events to (a:))
(set: $Events to it + (a: (dm:
"Delay", 2,
"Room", "--",
"Msg", "Event 1 has fired !",
)))
(set: $Events to it + (a: (dm:
"Delay", 4,
"Room", "Event2",
"Msg", "Event 2 has fired !",
)))
}
=== Step One
{|1>[]}
{|2>[]}
[[Two]]
=== Step Two
{|1>[]}
{|2>[]}
[[Three]]=== Step Three
{|1>[]}
{|2>[]}
[[One]]
That's Event 2. Not vey exciting.(if: length of $Events > 0)[
(set: $R02 to length of $Events)
(set: $R01 to 1)
(live: 10ms)[
(set: _EV to ($R01) of $Events)
(set: _D to Delay of _EV)
(set: _D to _D - 1)
(if: _D is 0)[
(set: $Events to it - (a: ($R01) of $Events))
(if: Room of _EV is "--")[
(set: _S1 to Msg of _EV)
(append: ?1)[_S1]
]
(else:)[
(set: _S1 to Msg of _EV)
(set: _S2 to Room of _EV)_
(append: ?2)[(link: _S1)[(display: _S2)]
]
]
(set: $R02 to length of $Events)
(if: $R02 > 0)[(set: $R01 to 1)]
(else:)[(stop:)]
]
(else:)[
(set: Delay of _EV to _D)
(set: ($R01) of $Events to _EV)
(set: $R01 to $R01+ 1)
(if: $R01 > $R02)[(stop:)]
]
]
]