Mine

on *:text:!playball reset:#: {
  if ($address($nick,2) == $address($me,2)) { /unsetplayball | /not PlayBall Unseted }
}
on *:text:!playball *:%chan: {
  if (%pball.p1 != $null) { /not theres all ready a game going on, please wait till its finished |  halt }
  else {
    /set %pball.p1 $nick
    /set %pball.p2 $2
    /set %pballgame req
    /notice $2 $nick has requested to play BaseBall with you. type !pball yes or !pball no
    /notice $nick please wait for $2 to answer
} }
on *:text:!pball yes:%chan: {
  if ($nick == %pball.p2) && (%pballgame == req) {
    /notice $nick you have accepted the game.
    /notice %player1 $nick has accepted the game. 
    /set %pballgame deal 
    halt
  }
  else { halt }
}
on *:text:!pball no:%chan: {
  if ($nick == %pball.p2) && (%pball == req) {
    /notice %player1 $nick has rejected the game
    /notice $nick you have rejected the game
    /unset %pball.p1
    /unset %pball.p2
    /unset %pballgame
} }
;;
on *:text:!pitch:%chan: {
  if (%pballgame == pitch) && ($nick == %pball.p2) || ($nick == %pball.p1) {
    /msg # $nick Pitches the ball
}   
  on*text:!swing:%chan:{
    var %dc = $rand you have hit the ball.and made it to 1st base
    var %hc = $rand you have missed the ball 
    var %cc = $rand you hit a HOMERUN!@!@
    var %dc = $rand you popped the ball in the aid and it was caught.
    var %dc = $rand  you hit the ball and you made it to 2nd base
;;i stopped here ;;;;;
  } 
}
;;
alias unsetplayball {
  /unset %pball*
}