on *:TEXT:!pass:#:{
  if ((%hpotato [ $chan ] != $null) && (%hcarrier == $nick)) {
    /set %hcarrier [ $nick($chan,$rand(1,$nick($chan,0))) ]
    while (%hcarrier == $me) {
      /set %hcarrier [ $nick($chan,$rand(1,$nick($chan,0))) ]
    }
    /msg $chan OMG %hcarrier $+ , Pass it hurry! You have $timer(hp).secs Before it blows up!
  }
}