fakehello1.0 tcl

[OkyAnuS]

#########################
# /msg <bot> Hello
# CopyRight OkyAnuS
# Guzel Bir TCL Scripti :) .
#######################################
putlog "fakehello1.0.tcl, by OkyAnuS"
putlog "fool a user with '/msg $botnick hello'"
bind msg - hello fakehello
bind msg - newuser *msg:hello
### use: /msg bot newuser for adding yourself as the owner main for the
### first time
### bind msg - fakehellohelp helpf
### proc helpf {nick uhost hand arg} {
### global botnick owner
### putlog "$nick is using the fakehellohelp command"
### putserv "PRIVMSG $nick :### * Fakehello 1.0 HELP * ###"
### putserv "PRIGMSG $nick :To set u as the owner for the very first
### time, use: /msg $botnick newuser"
### putserv "PRIVMSG $nick :To fool a (stupid) user, make him type: /msg
### $botnick hello"
proc fakehello {nick uhost hand arg} {
global botnick owner
putserv "NOTICE $nick :Hi $nick I'm $botnick, an eggdrop bot."
putserv "NOTICE $nick :I'll recognize you by hostmask '[maskhost $uhost]' from now on."
putserv "NOTICE $nick :YOU ARE THE OWNER ON THIS BOT NOW"
putserv "NOTICE $nick :As master you really need to set a password: with /MSG $botnick pass <your-chosen-password>."
putserv "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 !!!"
putlog "rofl, iam fooling $nick"
putlog "Hello Fake :) OkyAnuS"
return 0
}
bind join * * fakehello_greet
proc fakehello_greet {nick host chan uhost} {
putserv "NOTICE $nick :"
}

[OkyAnuS]

Çok Guzel ßir Şaka TCL Dosyasıdır /msg Botnick hello diye yapılır . dikkat edin botlar ucabilir :)