Need A Auto Greet For MY Friend John...and trivia problem

[TakaShi^^]

Let say if john join tis channel, my bot will greet him only with Hello,The Master Is Here....


==========================================
Trivia Problem

Couldn't open "scripts/fragen"

set triv_botowners_nick "PRCom" ;# Change this to your nick you use
set triv_cheat 1 ;# 0 or 1. If 1, and the owner (above) is playing, it will NOTE you with the answer [ for troubleshooting purposes only ]
set triv_command zz ;# command which prededes everything concerning the game; change it to whatever you prefer.
set triv_to_win 5 ;# number of points needed to win a match.
set triv_intervall_s 55 ;# time from question to result (seconds).
set triv_intervall_q 15 ;# time from result to next question (seconds).

# If you come up with new question banks, just edit the below lines to reflect the theme and actual filename in your shell.
# If you DO add more, be sure to change the next variable to equal the number of banks you are using.

set triv_numbanks 7

# Now the filename for each bank, and the name shown in the "zz list topics" command.

set triv_fname_1 fragen
set triv_sname_1 "Default Question Bank"

# Set this as default

set triv_fname $triv_fname_1
set triv_sname $triv_sname_1


# Additional Ones

set triv_fname_2 fragen.idiot
set triv_sname_2 "Trivia Idiots Question Bank"
set triv_fname_3 fragen.grabbag
set triv_sname_3 "Grab Bag Question Bank"
set triv_fname_4 fragen.cartoons
set triv_sname_4 "Cartoons & Comics Question Bank"
set triv_fname_5 fragen.galaxynet
set triv_sname_5 "GalaxyNet Question Bank"
set triv_fname_6 fragen.irc
set triv_sname_6 "IRC Question Bank"
set triv_fname_7 fragen.computer
set triv_sname_7 "Computer Question Bank"
set triv_fname_8 fragen.galaxynet
set triv_sname_8 "GalaxyNet Question Bank"
set triv_fname_9 fragen.galaxynet
set triv_sname_9 "GalaxyNet Question Bank"


i dun have the fragen file

[awyeah]

Code: Select all

#Set the channel for the script to work on
set greet_chan "#channel"

#Set the person to greet
set greet_person "john"

#Set the greet message
set greet_msg "Hey john, you are looking groovy baby!"


bind join - "*" greet:person

proc greet:person {nick uhost hand chan text} {
 global greet_chan greet_person greet_msg
  if {[string equal -nocase $greet_chan $chan] && [string equal -nocase $greet_person $nick]} {
   putserv "PRIVMSG $chan :$greet_msg"
   }
}

[TakaShi^^]

got error =(

Tcl error [greet:person]: wrong # args: should be "greet:person nick uhost hand chan text"

[awyeah]

Oh, crap use this:

Code: Select all

#Set the channel for the script to work on
set greet_chan "#channel"

#Set the person to greet
set greet_person "john"

#Set the greet message
set greet_msg "Hey john, you are looking groovy baby!"


bind join - "*" greet:person

proc greet:person {nick uhost hand chan} {
 global greet_chan greet_person greet_msg
  if {[string equal -nocase $greet_chan $chan] && [string equal -nocase $greet_person $nick]} {
   putserv "PRIVMSG $chan :$greet_msg"
   }
}