check_telling_core $nl talk
check_telling_core $nl act
}
- act - come {
+ act {
after 750 [list check_telling_core $nl $event]
}
default {
}
proc check_telling_core {nl event} {
- # event is `talk', `act' or `come'
+ # event is `talk' or `act'
# When user talks we actually get talk now and act later
FIXME - make it be called with come
FIXME - implement all cmds