LM11

; 4-square Game

alias num {
  tokenize 32 $1-
  return $0
}

alias move_squares {
  ; Loser = $1
  ; Old sq 1 = $2
  ; Old sq 2 = $3
  ; Old sq 3 = $4
  ; Old sq king = $5
  set %4sq.1 = $1
  if ($1 == $2) {
    halt
  }
  elseif ($1 == $3) {
    set %4sq.2 = $2
  }
  elseif ($1 == $4) {
    set %4sq.3 = $3
    set %4sq.2 = $2
  }
  elseif ($1 == $5) {
    set %4sq.king = $4
    set %4sq.3 = $3
    set %4sq.2 = $2
  }
  else {
    describe $chan dies
  }
  $iif(%4sq.time == $null, msg $chan halting, msg $chan %4sq.ball has failed to hit the ball and moves back to the first square)
}

on *:TEXT:!4square:#:{
  set %4sq.players $nick
  if (%4sq.game == on) { msg $chan There is already a 4-square game in place, please wait until the next round, or until this game has stopped to create/join a new game }
  else { 
    set %4sq.game on 
    set %4sq.starter $nick 
    set %4sq.ball $nick
    set %4sq.nplayers 1
    set %4sq.king $nick
    msg $chan $nick has started and joined a 4-square game, the next three players to type !join get to play this round!
  }
}

on *:TEXT:!join:#:{
  if ($nick isin %4sq.players) {
    msg $chan You have already joined a game, please invite more players to join
  }
  elseif ($num(%4sq.players) == 4) {
    msg $chan There are already 4 players in this game, please wait until the round is finished
  }
  else {
    set %4sq.players %4sq.players $nick
    set %4sq.nplayers $calc(%4sq.nplayers + 1)
    if (%4sq.nplayers == 2) { set %4sq.3 $nick }
    elseif (%4sq.nplayers == 3) { set %4sq.2 $nick }
    elseif (%4sq.nplayers == 4) { set %4sq.1 $nick }
    msg $chan $nick has joined the game!
  }
}

on *:TEXT:!hit*:#:{
  timer* off
  set %4sq.hit $rand(1,2)
  if (%4sq.game == off) { msg $chan There is no game in place, please type !4square to begin a game | unset %4sq.hit }
  elseif (%4sq.nplayers != 4) { msg $chan There are not enough players, please get more to join! }
  elseif (%4sq.ball != $nick) { msg $chan $nick $+ , you do not have the ball. }
  elseif ($2 !isin %4sq.players) { msg $chan $2 is not apart of this game | unset %4sq.hit }
  elseif ($2 == $nick) { msg $chan You cannot hit the ball into your own square | unset %4sq.hit }
  elseif (%4sq.hit == 1) { set %4sq.time $rand(14,15) 
    msg $chan $nick hits it at $2 $+ 's square. $2 has %4sq.time seconds to hit the ball. 
    set %4sq.ball $2 
    dec -z %4sq.time
    timer 1 %4sq.time $move_square($2,%4sq.1,%4sq.2,%4sq.3,%4sq.king)
  }
  elseif (%4sq.hit == 2) { set %4sq.time $rand(14,15) 
    msg $chan $nick slams it at $2 $+ 's square. $2 has %4sq.time seconds to hit the ball.
    set %4sq.ball $2 
    dec -z %4sq.time
    timer 1 %4sq.time $move_squares($2,%4sq.1,%4sq.2,%4sq.3,%4sq.king)
  }
} 

on *:TEXT:!ball:#:{
  if ($nick == LordMan11) { set %4sq.ball LordMan11 | describe $chan gives LordMan11 the ball so he can test some more }
  else { msg $chan You do not have permission to use this command }
}

; End 4-square Game