# I Wrote this TCL Coz Some Guy On #eggdrop Wanted me to do it, So Here It's.
# This File Will auto a respond to anynew user as far as setting passwd 
# and a little introduction.
# /msg <bot> Hello  
# CopyRight Sucks, Have Fun, And Please Email Cmment To: 
# zimozimo@servtech.com, or root@alharithi.com .

bind msg - hello msg_chat

proc msg_chat {nick uhost hand arg} {
  global botnick owner
  putserv "NOTICE $nick :Hello $nick I`m $botnick $owner's Friend."
  putserv "NOTICE $nick :I Am here To Guid You To In Ur Intro T Me."
  putserv "NOTICE $nick :Please Think Of A Passwd And Send To me, To Do So, Do This:"
  putserv "NOTICE $nick :/msg $botnick pass <Put Your Pass Word here please>"
  putserv "NOTICE $nick :/msg ident <Your Pass Word Here Please>"
  putserv "NOTICE $nick :Now You Have Made Your Pass Word Thanks."
  putserv "NOTICE $nick :If You Would Like To Learn More Do This:"
  putserv "NOTICE $nick :/msg $botnick help"
  putserv "NOTICE $nick :Have Fun, and Thank The BoSs $owner ."
  putserv "NOTICE $nick :See Yaa."

 return 0
}