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
}
}