- Код: Выделить всё
bind pub - !hero pub:heroes
proc pub:heroes {nick host hand chan text} {
set hero1 "троль"
set hero2 "эльф"
set hero3 "человек"
set hero4 "хоббит"
set kto [lindex $text 0]
if {$kto == ""} {
putquick "NOTICE $nick :Герои: $hero1 $hero2 $hero3 $hero4"
return
}
if {$kto == $hero1} {
set data "троль: бла, бла, бла "
putquick "PRIVMSG $chan :$data"
return
}
if {$kto == $hero2} {
set data "Эльф, ссуко, остроухий!"
putquick "PRIVMSG $chan :$data"
return
}
if {$kto == $hero3} {
set data "Человек, ссуко, разъебай!"
putquick "PRIVMSG $chan :$data"
return
}
if {$kto == $hero4} {
set data "Хоббит, ссуко, мелкий!"
putquick "PRIVMSG $chan :$data"
return
}
putquick "NOTICE $nick :Чё-то я не знаю такую расу..."
}
скрипт выводит инофрмацию по героям, а как сделать если в базе нету героя, а юзер знает про него и хочет добавить в базу, напрмиер командой !добавить <ГЕРОЙ> <Описание>
