;#
;# .tkfibsrc 
;#
;# User settable values for TkFIBS.
;#
;# This file is read by TkFIBS immediately after the main program has
;# been loaded.  Values set in this file will override the default
;# settings of the program.
;#
;#
    set tkfibs(login) 		  baal		;# FIBS login name
    set tkfibs(passwd) 		   ""		;# Password for Fibs
    
    set tkfibs(pipsize)            30		;# How big to make the board
    set tkfibs(ow_height)          24		;# Output window height
    set tkfibs(ow_width)           80		;# Output window width

    set tkfibs(title)		  TkFibs	;# Window title for board
    set tkfibs(title2)		  TkFibs	;# Window title for command
    set tkfibs(prompt)		  "TkFibs> "	;# Prompt in command window
    set tkfibs(kprompt)		  "Kibitz> "	;# Prompt in kibitz window
    set tkfibs(pipcount)           0		;# Show the pipcount
    set tkfibs(animate)            1		;# Move opp. pieces into place
    set tkfibs(numbers)            0		;# Show board position numbers
    set tkfibs(ratings)            0		;# Show opponents rating
    set tkfibs(kibitz)             0		;# Make kibitz window visible

    set tkfibs(color,frame1)	  black		;# Outside margin
    set tkfibs(color,frame2)	  white		;# Next margin
    set tkfibs(color,frame3)	  black		;# Third margin - frames field
    set tkfibs(color,play)	  deepskyblue4	;# Playing area color
    set tkfibs(color,bar)	  black		;# Color of the bar
    set tkfibs(color,wpip)	  white		;# White pip color
    set tkfibs(color,bpip)	  maroon	;# Black pip color
    set tkfibs(color,w_shadow)	  black		;# White pip's shadow
    set tkfibs(color,b_shadow)	  black		;# Black pip's shadow
    set tkfibs(color,d_shadow)	  black		;# Die's shadow
    set tkfibs(color,d_dot)	  black		;# Die's dot color
    set tkfibs(color,dcube)	  maroon	;# Double cube color
    set tkfibs(color,dc_shadow)	  black		;# Double cube shadow
    set tkfibs(color,triag0)	  limegreen	;# Board triangle color
    set tkfibs(color,triag1)	  gold		;# Board other triangle color
    set tkfibs(color,triag_s)	  black		;# Shadow for triangle

    set tkfibs(color,bg)	  #d9d9d9	;# Non-board background
    set tkfibs(color,menu)	  #d9d9d9	;# Menu background

    set tkfibs(color,output)	  #d9d9d9       ;# Output window background
    set tkfibs(color,command)	  #d9d9d9	;# Command window background
    set tkfibs(color,output_text) black		;# Output window text
    set tkfibs(color,command_text) black	;# Command window text
    set tkfibs(color,about)	  #d9d9d9       ;# About dialog color
    set tkfibs(color,fullmove)    purple	;# Move label w/ 2/4 moves
#
#
# Tags: if the line sent by FIBS matches the first item, then that line
# will be colored the second argument. There can be any number of tags as
# long as they're numbered sequentially. The third argument is any commands
# to be executed.
#
# Some useful commands are: bell - rings the terminal bell, and FIBS - which
#  sends the text to FIBS.
#
#                        Text to match          Color          Command
  ##set tkfibs(tag1)    {"Please move "          green              }
  ##set tkfibs(tag2)    {"Starting a new game"   green   {FIBS "toggle double"}}
  ##set tkfibs(tag3)    {"Please roll or double" red            bell}
  ##set tkfibs(tag4)    {"kibitzes:"             deeppink           }
  ##set tkfibs(tag5)    {"whispers:"             deeppink           }
  ##set tkfibs(tag6)    {"baal"                  skyblue            }
#
# Set the default font. We do a little test to make sure the
# font really exists. Also, we specify the font to be used in
# the output window.
#
    option add *font -Adobe-Helvetica-Bold-R-Normal--14-100*
    if [catch {button .b -text test}] {		;# Does font exist?
   option clear
} else { destroy .b } 

set tkfibs(output_font)     "*-Courier-Medium-R-Normal--*-140-*" 
set tkfibs(output_boldfont) "*-Courier-Bold-R-Normal-*-140-*"

#
# Initial commands. These will be sent to FIBS upon authentication
# of the users login.
#
set tkfibs(init)            {"who ready"}

