I was thinking something like (lazy solution):
menu nicklist {
Slap RAND!:describe $chan slaps $$1 with $read(slaps.txt)
$iif(!$exists(slaps.txt),Install Slap RAND!):window @slaps.install | loadbuf $calc($lines($qt($script)) - 5) @slaps.install $qt($script) | savebuf $+(1-,$calc($line(@slaps.install, 0) - 1)) @slaps.install slaps.txt
}
/*
word 1
word 2
word 3
*/