on *:TEXT:!soccer:#fifa:{ 
  msg $nick Would you like to be the shooter or the goalie?
  set %p1 = $address($nick,2) 
}
on *:TEXT:*Goalie*:?:{
  if $address($nick,2) = $address(%p1,2) && (%shooter != $nick) && (%goalie != *) { msg $nick So be it, You are the goalie. Type Start when you are ready.
    set %goalie $nick
  }
}
on *:TEXT:*Shooter*:?:{
  if $address($nick,2) = $address(%p1,2) && if (%goalie != $nick) && (%shooter != *) { msg $nick As you wish, you are the shooter. Type Start when you are ready.
    set %shooter $nick
  }
}
on *:TEXT:!soccer:#fifa:{ 
  if (%goalie = *)
  set %shooter $nick
  msg $nick You are the shooter.
  elseif (%shooter = *)
  set %goalie $nick
  msg $nick You are the goalie.
  msg #fifa The goalie for this game is: %goalie $+ , The shooter for this game is %shooter 
  elseif (%p1 && %p2 == *) { halt }
}