;------------------------------- Tic-Tac-Toe --------------------------------
;http://www.hawkee.com/view.php?file_id=239

Options:   
Disable Syntax Highlighting Line Numbers Add indentation   
Tic-Tac-Toe  by Cobi (download) [Copy to clipboard]
Allows one to start a game of Tic-Tac-Toe in a channel or in private message.

More documentation is in the comments of the script.

A cool, non-abusive IRC Network where you can find me: irc.nfinate.org
;================================================================
;                  Tic-Tac-Toe By Cobi - Cobi@winbots.org
;================================================================
; Commands:
;  /ttt <channel|nick> <Player1> <Player2> -- Starts game.
;  !ttt <number> -- Put your x/o on <number>.
;  (if enabled) !startttt <nick> -- start a game with <nick>.
;
; Objective:
;  I think we all know how to play Tic-Tac-Toe, But the
;  objective is to get 3 of your marker (X or O) in a row.
;  The first person to achive this, wins.

;18/05/2006 10:35p.m. just finished adding bot code, removing %ttt. $+ $1 $+ .1 1 type code to make it easier
; Source Code:
on *:TEXT:.startttt*:*:{ ttt $iif($chan,$chan,$nick) $nick $2 $3 }

alias ttt {
  if # isin $1 && $3 == $null { msg $1 You need an opponent to play against $2 (try playing against confusbot) | return }
  if # isin $1 && $3 !ison $1 { msg $1 $3 Doesn't seem to be on the channel $2 so game not started | return }
  if # isin $1 && $3 == $2 { msg $1 Sorry $2 but you can't play yourself (try playing against confusbot) | return }
  if %ttt.T != $null) { msg $chan A game is already in progress with %ttt.X and %ttt.O they can use .ttt end to stop the game | return }
  set %ttt.1 1
  set %ttt.2 2
  set %ttt.3 3
  set %ttt.4 4
  set %ttt.5 5
  set %ttt.6 6
  set %ttt.7 7
  set %ttt.8 8
  set %ttt.9 9
  set %ttt.X $2
  set %ttt.O $3
  ; Randomly choose who goes first
  ;  set %ttt.T $2
  set %ttt.T $randphrase($2,$3)
  msg $1 $+(,%ttt.1,|,%ttt.2,|,%ttt.3,)
  msg $1 $+(,%ttt.4,|,%ttt.5,|,%ttt.6,)
  msg $1 $+(%ttt.7,|,%ttt.8,|,%ttt.9)
  msg $1 $+(%ttt.T,'s) go! (use .ttt num to play)
  ;setup code for when playing against bot
  if %ttt.O == $me {
    set %TTT.MoveStr 123456789
    set %TTT.Human 1 | set %TTT.Computer 4
    set %TTT.Humanxo x | set %TTT.Computerxo o
    set %TTTLevel 0
    if ($4 == High) || ($4 == Hard) { set %TTTLevel 0 }
    if ($4 == Med) || ($4 == Medium)  { set %TTTLevel 8 }
    if ($4 == Low) || ($4 == Easy) { set %TTTLevel 32 }
    if $me == %ttt.T { botsTurn }
  }
}

on *:TEXT:.ttt*:*:{
  ;echo tttTEXT1: $1-
  if %ttt.T == $null { msg $chan There is no TicTacToe game currently running, type: .startttt YourOpponent to start a new game | return }
  if $2 == end || $2 == quit || $2 = stop { if (($nick == %ttt.X) || ($nick == %ttt.O)) { msg $iif($chan,$chan,$nick) TicTacToe Game Ended by $nick | unset %ttt.* | return } }
  ;echo tttTEXT2: %ttt.T *method: $iif($chan,$chan,$nick)
  tttmove $nick $iif($chan,$chan,$nick) $2
}
on *:INPUT:*:{
  if ($1 == .ttt) {
    if %ttt.T == $null { msg $chan There is no TicTacToe game currently running, type: .startttt YourOpponent to start a new game | return }
    if $2 == end || $2 == quit || $2 = stop { if (($nick == %ttt.X) || ($nick == %ttt.O)) { msg $iif($chan,$chan,$nick) TicTacToe Game Ended by $nick | unset %ttt.* | return } }
    tttmove $me $iif($chan,$chan,$target) $2
  }
}


alias -l tttmove {
  ;echo tttmove1: %ttt.T
  if ($1 == %ttt.T) {
    if (($1 == %ttt.X) || ($1 == %ttt.O)) {
      if (($3 == 1) || ($3 == 2) || ($3 == 3) || ($3 == 4) || ($3 == 5) || ($3 == 6) || ($3 == 7) || ($3 == 8) || ($3 == 9)) {
        ;echo tttmove2: %ttt.T
        if (%ttt. [ $+ [ $3 ] ] != $3) { msg $2 $1 $+ : You cant move there! }
        else {
          set %ttt. $+ $3 $iif($1 == %ttt.X,X,O)
          if ((!$tttcheckwin($2)) && (!$tttchecknowin($2))) {
            if %ttt.O == $me {
              ;if (( %ttt. [ $+ [ $chan ] $+ ] .X == %ttt. [ $+ [ $2 ] $+ ] .T ) { %TTT.MoveStr = $replace( %TTT.MoveStr, $3 , %TTT.Humanxo ) }
              if $1 == %ttt.t { %TTT.MoveStr = $replace( %TTT.MoveStr, $3 , %TTT.Humanxo ) }
              ;echo tttmove3: %ttt.T *set: %TTT.MoveStr = replace( %TTT.MoveStr, $3 , %TTT.Humanxo )
            }
            if %ttt.T == $me || %ttt.O != $me {
              msg $2 $+(,%ttt.1,|,%ttt.2,|,%ttt.3,)
              msg $2 $+(,%ttt.4,|,%ttt.5,|,%ttt.6,)
              msg $2 $+(%ttt.7,|,%ttt.8,|,%ttt.9)
            }
            set %ttt.T $iif($1 == %ttt.X,%ttt.O,%ttt.X)
            msg $2 $+(%ttt.T,'s) go! - Last play by $iif(%ttt.T == %ttt.X,%ttt.O,%ttt.X) $+ ( $+ $iif(%ttt.T == %ttt.X,O,X) $+ ): $3
            ;echo tttmove4: msg'd game
          }
          else { msg $2 End of Game! | unset %ttt.* }
        }
      }
      else { msg $2 $1 $+ : You cant move there! }
    }
    else { msg $2 $1 $+ : You aren't in the game! }
  }
  else { msg $2 $1 $+ : Not Your Go! }

  if %ttt.O == $me {
    ;echo tttmove5: %ttt.T
    if $me == %ttt.T { botsTurn }
  }

}


alias -l tttcheckwin {
  ; lines:
  ; 123 456 789 147 258 369 159 357
  var %nick = %ttt.T
  var %type = $iif(%nick == %ttt.X,X,O)
  if ($tttcheckline($1,%type,1,2,3)) { return $true }
  if ($tttcheckline($1,%type,4,5,6)) { return $true }
  if ($tttcheckline($1,%type,7,8,9)) { return $true }
  if ($tttcheckline($1,%type,1,4,7)) { return $true }
  if ($tttcheckline($1,%type,2,5,8)) { return $true }
  if ($tttcheckline($1,%type,3,6,9)) { return $true }
  if ($tttcheckline($1,%type,1,5,9)) { return $true }
  if ($tttcheckline($1,%type,3,5,7)) { return $true }
  return $false
}
alias -l tttchecknowin {
  if (%ttt.1 == 1) { return $false }
  if (%ttt.2 == 2) { return $false }
  if (%ttt.3 == 3) { return $false }
  if (%ttt.4 == 4) { return $false }
  if (%ttt.5 == 5) { return $false }
  if (%ttt.6 == 6) { return $false }
  if (%ttt.7 == 7) { return $false }
  if (%ttt.8 == 8) { return $false }
  if (%ttt.9 == 9) { return $false }
  msg $1 Tie Game!
  return $true
}
alias -l tttcheckline {
  if ((%ttt. [ $+ [ $3 ] ] == $2) && (%ttt. [ $+ [ $4 ] ] == $2) && (%ttt. [ $+ [ $5 ] ] == $2)) {
    set %ttt. $+ $1 $+ . $+ $3 04 $+ %ttt. [ $+ [ $3 ] ] $+ 
    set %ttt. $+ $1 $+ . $+ $4 04 $+ %ttt. [ $+ [ $4 ] ] $+ 
    set %ttt. $+ $1 $+ . $+ $5 04 $+ %ttt. [ $+ [ $5 ] ] $+ 
    msg $1 $+(,%ttt.1,|,%ttt.2,|,%ttt.3,)
    msg $1 $+(,%ttt.4,|,%ttt.5,|,%ttt.6,)
    msg $1 $+(%ttt.7,|,%ttt.8,|,%ttt.9)
    msg $1 %ttt. [ $+ [ $2 ] ] wins!
    return $true
  }
  return $false
}

;Simple alias to merge both scripts, so the ttt script triggers the bot script and the bot script talks back to the ttt script

alias botsTurn {
  ;echo running botsTurn
  TTTBestMove
  tttmove $me #vortexed %TTT.BestCompMove
}


;:::::::::::::::::::::::::::::::::::::::::::: ALIAS TTTFAVOR :::::::::::::::::::::::::::::::::

;Determines who the game favors based on numerical evaluation of board.  Negative numbers favor user, positive favor
;the computer.

alias TTTFavor {
  set %TTT.PosEval $TTTEvaluate($TTTMathStr(%TTT.MoveStr))
  if ( %TTT.PosEval == 0 ) { set %TTT.Favor Evaluation: $chr(91) %TTT.PosEval $chr(93)  Even }
  elseif ( %TTT.PosEval < 0 ) { set %TTT.Favor Evaluation:  $chr(91) %TTT.PosEval $chr(93) Your Favor! }
  elseif ( %TTT.PosEval > 0 ) { set %TTT.Favor Evaluation: $chr(91) %TTT.PosEval $chr(93) Puter's Favor! }
}

;:::::::::::::::::::::::::::::::::::::::::::: ALIAS TTTEVALSUM ::::::::::::::::::::::::::::::::::::::

;Sums the values in a numeric string (000114000) for a row, col, or diag

alias TTTEvalSum {
  %TTT.EvalSum = $calc( $mid(%TTT.EvalStr,$1,1) + $mid(%TTT.EvalStr,$2,1) + $mid(%TTT.EvalStr,$3,1))
  return %TTT.EvalSum
}

;::::::::::::::::::::::::::::::::::::::: ALIAS TTTEVALBOARD :::::::::::::::::::::::::::::::::::

;Increments or decreases evaluation based on the sum of a row, col, or diag.

alias TTTEvalBoard {
  if ( $1  == %TTT.Computer ) { inc %TTT.Eval 1 }
  elseif ( $1 == $calc(%TTT.Computer * 2 )) { inc %TTT.Eval 8 }
  elseif ( $1 == $calc(%TTT.Computer * 3 )) { inc %TTT.Eval 128 }
  elseif ( $1 == %TTT.Human ) { dec %TTT.Eval 1 }
  elseif ( $1 == $calc(%TTT.Human * 2 )) { dec %TTT.Eval 8 }
  elseif ( $1 == $calc(%TTT.Human * 3 )) { dec %TTT.Eval 128 }
}

;:::::::::::::::::::::::::::::::::::::::: ALIAS TTTEVALUATE ::::::::::::::::::::::::::::::::::

;Evaluates board position by getting sum for each row, col, diag and getting associated evaluation for each sum

alias TTTEvaluate {
  set %TTT.EvalStr $1
  set %TTT.Eval 0
  set %TTT.TempSum $TTTEvalSum(1,2,3)
  TTTEvalBoard %TTT.TempSum
  set %TTT.TempSum $TTTEvalSum(4,5,6)
  TTTEvalBoard %TTT.TempSum
  set %TTT.TempSum $TTTEvalSum(7,8,9)
  TTTEvalBoard %TTT.TempSum
  set %TTT.TempSum $TTTEvalSum(1,4,7)
  TTTEvalBoard %TTT.TempSum
  set %TTT.TempSum $TTTEvalSum(2,5,8)
  TTTEvalBoard %TTT.TempSum
  set %TTT.TempSum $TTTEvalSum(3,6,9)
  TTTEvalBoard %TTT.TempSum
  set %TTT.TempSum $TTTEvalSum(1,5,9)
  TTTEvalBoard %TTT.TempSum
  set %TTT.TempSum $TTTEvalSum(3,5,7)
  TTTEvalBoard %TTT.TempSum
  return %TTT.Eval
}

;::::::::::::::::::::::::::::::::::::::: ALIAS TTTMATHSTR :::::::::::::::::::::::::::::::

;Converts aphanumeric input string  to a numeric string for computations (123XXO789) =>>(000114000) if human is x or
;(000441000) if puter is x

alias TTTMathStr {
  set %TTT.Temp.var 1 | unset %TTT.NumStr
  :msloop
  if (%TTT.Temp.var > 9) { goto msloopend }
  if ( $mid( $1,%TTT.Temp.var,1) == %TTT.Computerxo ) { %TTT.NumStr = %TTT.NumStr $+ %TTT.Computer }
  elseif ( $mid( $1,%TTT.Temp.var,1 ) == %TTT.Humanxo ) { %TTT.NumStr = %TTT.NumStr $+ %TTT.Human }
  else { %TTT.NumStr = %TTT.NumStr $+ 0 }
  inc %TTT.Temp.var | goto msloop
  :msloopend
  return %TTT.NumStr
}

;::::::::::::::::::::::::::::::::::::::::::::::: ALIAS TTTBESTMOVE :::::::::::::::::::::::::::::::::::::

;Finds best move for computer by trying all available  moves for the computer and evaluating the board position
; after each possible human response to those moves.

alias TTTBestMove {
  set %TTT.BestCompMove 0
  set %TTT.BestCompEval -256 | set %TTT.CombinedEval 0
  set %TTT.BestStr %TTT.MoveStr
  set %TTT.Temp.var1 1
  :bestloop1
  if (%TTT.Temp.var1 > 9 ) { goto bestloop1end }
  if ( %TTT.Temp.var1 isin %TTT.BestStr ) {
    %TTT.BestStr = $replace(%TTT.BestStr, %TTT.Temp.var1, %TTT.Computerxo)
    %TTT.BestCompStr = $TTTMathStr(%TTT.BestStr)
    if ($TTTEvaluate(%TTT.BestCompStr) > 64) { %TTT.BestHumanEval = 128 }
    else {
      set %TTT.BestHumanMove 0 | set %TTT.BestHumanEval 256
      set %TTT.Temp.var2 1 | set %TTT.BestStrloop2 %TTT.BestStr
      :bestloop2
      if (%TTT.Temp.var2 > 9) { goto bestloop2end }
      if ( %TTT.Temp.var2 isin %TTT.BestStrloop2 ) {
        %TTT.BestStrloop2 = $replace(%TTT.BestStrloop2, %TTT.Temp.var2, %TTT.Humanxo)
        %TTT.BestCompStr = $TTTMathStr(%TTT.BestStrloop2)
        set %TTT.CombinedEval $TTTEvaluate(%TTT.BestCompStr)
        if (%TTT.CombinedEval < %TTT.BestHumanEval ) { set %TTT.BestHumanEval %TTT.CombinedEval | set %TTT.BestHumanMove %TTT.Temp.var2 }
        %TTT.BestStrloop2 = %TTT.BestStr
      }
      inc %TTT.Temp.var2 | goto bestloop2
      :bestloop2end
    }
    if ($calc(%TTT.BestHumanEval - %TTTLevel) > %TTT.BestCompEval) { set %TTT.BestCompEval %TTT.BestHumanEval | set %TTT.BestCompMove %TTT.Temp.var1 }
    %TTT.BestStr = %TTT.MoveStr
  }
  inc %TTT.Temp.var1 | goto bestloop1
  :bestloop1end
  ;  echo tttbot1: %TTT.MoveStr , %TTT.BestCompMove , %TTT.Computerxo
  %TTT.MoveStr = $replace(%TTT.MoveStr, %TTT.BestCompMove, %TTT.Computerxo)
  ;  echo tttbot2: %TTT.MoveStr , %TTT.BestCompMove , %TTT.Computerxo
}