alias nookie {
  var %1 pokeball
  var %2 train
  var %3 battle
  var %4 gym
  var %5 dcave
  var %6 mewtwo
  var %7 lucario
  var %8 tower
  var %line [LINESTART]: 
  while (1 !isin %line || 2 !isin %line || 3 !isin %line || 4 !isin %line || 5 !isin %line || 6 !isin %line || 7 !isin %line || 8 !isin %line) {
    var %pick $r(1,8)
    if (%pick !isin %line) {
      var %line %line $+ % [ $+ [ %pick ] ] $+ %pick $+ @
    }
  }
  var %line2 $remove(%line,1,2,3,4,5,6,7,8,[LINESTART]:)
  var %line3 $left(%line2,52)
  var %x 1
  while ($gettok(%line3,%x,64)) {
    var %line4 %line4 $+  $+ $gettok(%line3,%x,64) $+ 12 >0,0*2
    inc %x
  }
  var %line5 $left(%line4,145)
  var %line6 7[11OPTIONS7]2 %line5 $+ .
  echo -a %line6
  var %y 1
  while ($gettok(%line3,%y,64)) {
    var %t $calc($iif(%t,%t + $r(4,7),$r(2,5)))
    var %data. [ $+ [ %y ] ] $iif($r(1,2) == 1,!,.) $+ $gettok(%line3,%y,64)
    .timer 1 %t msg #benelux %data. [ $+ [ %y ] ]
    inc %y
  }
}