B&P UnderNet
Best IRC Team
|
Nou pe simpatie:
lonely_32
 | Femeie
24 ani
Valcea
cauta Barbat
26 - 57 ani |
|
|
B&P UnderNetInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
set question(1) {"line 1"}
set question(2) {"line 2"}
set question(3) {"line 3"}
set question(4) {"line 4"}
set question(5) {"line 5"}
set question(6) {"line 6"}
set question(7) {"line 7"}
set question(8) {"line 8"}
set question(9) {"line 9"}
set question(10) {"line 10"}
bind pub - !question pub:question
proc pub:question {nick uhost hand chan text} {
global question(1) question(2) question(3) question(4) question(5) question(6) question(7) question(8) question(9) question(10)
if {![matchattr $hand m|m $channel]} {
putserv "PRIVMSG $channel :Sorry, you are not authorized to use this command."
return 0
}
if {[string tolower [lindex $arg 0]] == "1"} {
foreach line $question(1) { puthelp "NOTICE $nick :$line" }
} else {
if {[string tolower [lindex $arg 0]] == "2"} {
foreach line $question(2) { puthelp "NOTICE $nick :$line" }
} else {
if {[string tolower [lindex $arg 0]] == "3"} {
foreach line $question(3) { puthelp "NOTICE $nick :$line" }
} else {
if {[string tolower [lindex $arg 0]] == "4"} {
foreach line $question(4) { puthelp "NOTICE $nick :$line" }
} else {
if {[string tolower [lindex $arg 0]] == "5"} {
foreach line $question(5) { puthelp "NOTICE $nick :$line" }
} else {
if {[string tolower [lindex $arg 0]] == "6"} {
foreach line $question(6) { puthelp "NOTICE $nick :$line" }
} else {
if {[string tolower [lindex $arg 0]] == "7"} {
foreach line $question(7) { puthelp "NOTICE $nick :$line" }
} else {
if {[string tolower [lindex $arg 0]] == "8"} {
foreach line $question(8) { puthelp "NOTICE $nick :$line" }
} else {
if {[string tolower [lindex $arg 0]] == "9"} {
foreach line $question(9) { puthelp "NOTICE $nick :$line" }
} else {
if {[string tolower [lindex $arg 0]] == "10"} {
foreach line $question(10) { puthelp "NOTICE $nick :$line" }
}
}
|
|
| |
|
