pls bolo by dobre keby to niekto vedel
Potreboval by som to na eggdrop-a ale ja tcl neviem pisat.

Nebolo by jednoduchšie nejaký skript pre eggdrop nájsť a ten upraviť?

ale ja nebudem upravovat 1000 riadkov a ked daco potrebujem doplnit aby to robilo co ja chcem tak potom ako??nepovies mi?

A ked chcem taky script co na nete nie je??

kod:

# Ai.tcl by KuNgFo0 (www.eggfaq.com)

#VERSION 0.3
#DESCRIPTION Responds to certain words said in the set channels.

# Set the next lines as the triggers and random responses you want
# (wildcards may be used)
set ai_data {
{"*trigger #1A*" "*trigger #1B*"} {
"trigger #1 response #1"
"trigger #1 response #2"
}
{"*trigger #2A*" "*trigger #2B*"} {
"trigger #2 response #1"
"trigger #2 response #2"
}
{"*pi*a*" "*pi*i*" "*pi*e*"} {
"hej bud slusny(a) $nick lebo ti rozjebem fejs jetovym elitnym roxorom a hovori sa pYca a nie pi*a"
"tu chces asi fakt na pYcu co $nick ?"
}
{"*sex*"} {
"hey $nick i want to suck your fuckstick"
}
{"bitch"} {
"$nick utieraj si papulu o matku"
}
{"*op me*"} {
"$nick neftieraj sa"
}
{"*voice me*"} {
"$nick neftieraj sa"
}
{"*stetka* *PHP-wh0re*"} {
"$nick sam si "
}
{"*PHP-wh0re* *stetka*"} {
"$nick sam si "
}
{"*PHP-wh0re* *pYca*"} {
"$nick sam si "
"no len sa neposer $nick"
}
{"*PHP-wh0re* *fuck *u*"} {
"$nick go fuck your self "
}
{"*char0n* *kokod*"} {
"$nick utri si radsej hubu o matku"
}
{"*kokod* *char0n*"} {
"$nick utri si radsej hubu o matku"
}
{"*oralek*"} {
"$nick ano v tom som elitna"
}
{"*dik*" "*dakujem*" "*vdaka*"} {
"hej $nick nebud sentimentalny pYco"
"takze ty nebudes pocuvat $nick ? asi ti natrhnem rit ty ko*ot, tu sa nedakuje"
"$nick pocuvaj nedakuj lebo ti sklo zredukuje epitel nadocnicovych oblukov"
}
{"time" "What time is it?" "What is the time?" "What's the time?" "Anyone have the time?"} {
"$nick, it's [clock format [clock seconds]]"
}
}
# Set the next line as the channels you want to run in
set ai_chans "#php.sk"

proc pub_ai {nick uhost hand chan arg} {
global ai_data ai_chans botnick
if {(([lsearch -exact [string tolower $ai_chans] [string tolower $chan]] != -1) || ($ai_chans == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
foreach {triggers responses} $ai_data {
foreach trigger $triggers {
if {[string match [string tolower $trigger] [string tolower $arg]]} { putserv "PRIVMSG $chan :[subst [lindex $responses [ rand [llength $responses]]]]" ; return }
}
}
}
}

bind pubm - * pub_ai

putlog "*** Ai.tcl 0.3 by KuNgFo0 loaded"

chem aby niektore nadavky boli prerobene a zeby za niektore boli kick za ine ban
a chem tam dat aj ine nadavky ako debil,dpc,ch*j,ko*ot,sku*veny atd...(nenadavam schvalne)

tcl - test na kick

lollo pls skopni to a nahod