bacon

alias echonames {
   set %harvest.num2 1
   if ($1 != $null) {
      while (%harvest.num2 <= $nick($1,0)) {
         echo -s $nick($1,%harvest.num2) - $address($nick($1,%harvest.num2),1)
         inc %harvest.num2
      }
   }
}

alias joinharv {
   join $1
   set %harvest.num 1
   if ($1 != $null) {
      while (%harvest.num <= $nick($1,0)) {
         userhost $nick($1,%harvest.num)
         inc %harvest.num
      }
   }
   timerHARVEST $+ $ctime 1 $calc($nick($1,0) * 2) //echonames $1
}

raw 302:*:{
   halt  
}