on *:TEXT:*:#: {
  if ($read(Blist.txt, s, $address($nick,2)))  {
    notice $nick You are on my Blacklist, please PM Stratos101 and ask to be removed.
    halt
}
    if (($1 == !cracker) && ($address($2,2))) {
      notice $nick You pull the cracker with $2 $+ .
      notice $2 You pull the cracker with $nick $+ .
      set %cracker $rand(1,9)
      if (%cracker == 1) { set %phat White }
      if (%cracker == 2) { set %phat Blue }
      if (%cracker == 3) { set %phat Red }
      if (%cracker == 4) { set %phat Green }
      if (%cracker == 5) { set %phat Yellow }
      if (%cracker == 6) { set %phat Purple }
      if (%cracker == 7) { set %phat Nothing }
      if (%cracker == 8) { set %phat Nothing }
      if (%cracker == 9) { set %phat nothing }
      notice $nick You got a %phat Party hat!
      notice $2 You got stuck with a crummy cracker!
      writeini -n phat.ini $nick total $calc($readini(phat.ini,n,$nick,total) + 1)
      writeini -n phat.ini $nick %phat $calc($readini(phat.ini,n,$nick,%phat) +1)
      unset %cracker | unset %phat
    }
    if ($1 == !phat) { notice $nick You have $readini(phat.ini,n,$nick,total) total party hats. }
    if ($readini(phat.ini,n,$nick,$2)) { notice $nick You have $readini(phat.ini,n,$nick,$2) Total $2 party hats. }
  }
  }
}