# The below code is inserted into the eggbot startup script to make
# the bot a mud connection server

proc play_dawn {nick uhost hand chan text} {
  global botnick 
  set i [myip]
     putlog "PRIVMSG $nick :DCC CHAT chat $i 1235"
  if {$botnick != $nick} {
     puthelp "PRIVMSG $nick :\001DCC CHAT chat $i 1235\001\n"
  }
}

proc play_dawnmsg {nick uhost hand chan } {
  global botnick
  set i [myip]
     putlog "PRIVMSG $nick :DCC CHAT chat $i 1235"
  if {$botnick != $nick} {
     puthelp "PRIVMSG $nick :\001DCC CHAT chat $i 1235\001\n"
  }
}
proc play_dawnolc {nick uhost hand chan} {
  global botnick
  set i [myip]
     putlog "PRIVMSG $nick :DCC CHAT chat $i 4322"
  if {$botnick != $nick} {
     puthelp "PRIVMSG $nick :\001DCC CHAT chat $i 4322\001\n"
  }
}


proc do_topic_set {nick uhost hand chan} {  
  global botnick
  if {$botnick != $nick} {
    puthelp "NOTICE $nick :To play an online roleplaying game /msg $botnick !dawn"
    return 0
  }
  putserv "TOPIC $chan :To play an online roleplaying game /msg $botnick !dawn"
  bind pub -|- !dawn play_dawn
  bind msg -|- !dawn play_dawnmsg
  bind msg -|- !olc play_dawnolc

}
bind join - * do_topic_set