#########################
# /msg <bot> Hello  
# CopyRight Sucks, Have Fun, And Please Email Cmment To: 
# badeball@online.no, or badeball@krush.net .
#######################################

putlog "fakehello1.0.1.tcl, by badeball"
putlog "fool a user with '/msg $botnick hello'"

set ctcp-version "/msg $botnick hello"
set ver "1.0.1"

bind msg - hello fakehello
bind msg - newuser *msg:hello
bind msg - hostmask host

### use: /msg bot newuser for adding yourself as the owner main for the
### first time

proc fakehello {nick uhost tid dato} {
  global botnick owner
  puthelp "NOTICE $nick :Hi $nick  I'm $botnick, an eggdrop bot."
  puthelp "NOTICE $nick :I'll recognize you by hostmask '[maskhost $uhost]' from now on."
  puthelp "NOTICE $nick :YOU ARE THE OWNER ON THIS BOT NOW"
  puthelp "NOTICE $nick :As master you really need to set a password: with /MSG $botnick pass <your-chosen-password>."
  puthelp "NOTICE $nick :All major commands are used from DCC chat. From now on, you don't need to use the -m option when starting the bot.  Enjoy !!!"
  set tid [time]
  set dato [date]
  set ver "1.0.1"
  exec echo o-------------$ver---------------o >> scripts/hello.log
  exec echo H: [maskhost $uhost] N: $nick T: $tid D: $dato >> scripts/fakehello.log    
  exec echo <$botnick> Im laufing my head off :) >> scripts/fakehello.log
  exec echo o-------------------------------------o >> scripts/fakehello.log
  putlog "rofl, iam fooling $nick"
  putlog "fakehello1.0.1.tcl, by badeball"
 return 0
}

proc host {nick uhost t ora} {
  global botnick owner
  putserv "NOTICE $nick :o-----------------------------------------------o"
  putserv "NOTICE $nick :Youre hostmask is: [maskhost $uhost]"
  putserv "NOTICE $nick :o-----------------------------------------------o"
  set ver "1.0.1"
  putlog "$nick, asked for he's hostmask"
  putlog "Fakehello$ver"
  return 0
}