on *:start: {
  server irc.bitvortex.net
}

on *:connect: {
  if ($network == Bitvortex) {
    /msg nickserv release nick password
    if ($me != <nick>) { nickserv ghost nick password | nick <nick> }
    msg nickserv identify password
    scid $cid join #gta.chat
    scid $cid join #gta.sumo
    scid $cid join #gta
  }
}

on *:join:#: {
  if ($nick == $me) {
    msg #gta.chat Hello
  }
}

on *:action:*:#: {
  if ((slaps isin $1- || pokes isin $1- || kicks isin $1- || chops isin $1-) && $me isin $1- && $calc($ctime - %slapprot) > 60) {
    if (slaps isin $1-) var %prot = slap
    elseif (pokes isin $1-) var %prot = poke
    elseif (kicks isin $1-) var %prot = kick
    elseif (chops isin $1-) var %prot = chops

    set %slapprot $ctime
    msg $chan *** Warning: %prot detected!
    .timer1 1 2 msg $chan *** Initiating anti %prot system
    .timer2 1 5 msg $chan *** Countdown: 3
    .timer3 1 6 msg $chan *** Countdown: 2
    .timer4 1 7 msg $chan *** Countdown: 1
    .timer5 1 8 describe $chan %prot $+ s $nick back!
    .timer6 -m 1 8500 describe $chan %prot $+ s $nick again!
    .timer7 -m 1 9000 describe $chan and again!
    .timer8 1 11 msg $chan *** Anti %prot system ended

  }
}


alias mibbit {
  if ($1) {
    if ($1 ison $active) {
      var %host = $address($1, 0)
      if ($regex(result, %host, /\*!(.*)\@.*/)) {
        %host = $regml(result, 1)
        echo -a Resolved: $longip($base(%host,16,10))
      }
      else {
        echo -a Invalid host
      }
    }
    else {
      echo -a $1 is not on the active channel
    }
  }
  else {
    echo -a Usage: /mibbit <nickname>
  }
}