Mine

on *:text:!soccer:#:{ 
  notice $nick Type !setball to play. 
  set %p $address($nick,2) 
} 
on *:text:!setball:#:{ 
  if (%p = $address($nick,2)) { 
    notice $nick Type !aim 1-4 to aim your shot. 
  } 
} 
on *:text:!aim *:#:{ 
  set %d $r(1,4) 
  if (%d = $2) { 
    inc %goals [ $+ [ $nick ] ] 
    msg $chan $nick shoots and.... 9,1SCOOOORRREES. Goals scored by $nick $+ : %goals [ $+ [ $nick ] ] 
    unset %p | unset %d 
  } 
  elseif (%p == $address($nick,2)) { 
    msg $chan The goalie has saved $nick $+ 's terrible shot. 
    unset %p | unset %d 
  } 
} 
on *:text:!goals *:#:{ 
  if (%goals [ $+ [ $2 ] ])  { 
    msg $chan $2 has %goals [ $+ [ $nick ] ] goals. 
  } 
  else { 
    msg $chan $2 has no goals because they suck. 
  } 
}