 |
|
 |
|
TrAsNeT
Junior 2
Data inscrierii: 12/Mai/2008
Mesaje: 44
Localitate: Sighet
|
|
 |
|
 |
|
 Trimis: 14/05/2008 00:01 Titlul subiectului: Vorbeste.tcl |
 |
|
set speakchans "*"
setudef flag vorbeste
## sal ##
bind pub - hello sal_speak
bind pub - alo sal_speak
bind pub - hallo sal_speak
bind pub - hi sal_speak
bind pub - hy sal_speak
bind pub - salz sal_speak
bind pub - sal sal_speak
bind pub - sall sal_speak
bind pub - salut sal_speak
bind pub - salutari sal_speak
bind pub - salutare sal_speak
bind pub - heya sal_speak
bind pub - hey sal_speak
bind pub - re sal_speak
bind pub - ree sal_speak
bind pub - hi sal_speak
set ran_sal {
"salutare"
"sal! ce mai faci?"
"buna! ti-a fost dor de mine?"
"neatza! te-ai trezit si tuh?"
"Iar tu ??"
"sal...  "
"ce vant te aduce pe la noi ?"
"re! incantat de cunojtintza! cred... lol!"
"Iote mah ca jtiai sa saluti si tu... "
"Sal! asl pls "
"Reeeee! I feel good! Yeeeeeah!"
}
proc sal_speak {nick uhost hand chan text} {
global botnick speakchans ran_sal
if {($text == "") || ([regexp -nocase "all" $text]) || ([regexp -nocase "Resident" $text])} {
if {(([lsearch -exact [string tolower $speakchans] [string tolower $chan]] != -1) || ($speakchans == "*"))} {
if {[string match "*+vorbeste*" [channel info $chan]]} {
set helos [lindex $ran_sal [rand [llength $ran_sal]]]
putserv "PRIVMSG $chan :$nick $helos" }
}
}
}
## Pa ##
bind pub - bye pa_speak
bind pub - zbye pa_speak
bind pub - pa pa_speak
bind pub - papa pa_speak
bind pub - pa-pa pa_speak
bind pub - ciao pa_speak
set ran_pa {
"Bye bye baby"
"Du-te si te culca macar atunci ai sa taci"
"Pa pa"
"Ciao"
"Du-te mai repede ca daca nu vin dupa tine cu bazooka"
"Du-te mai rapid ca m-am saturat de tine"
"Ia ca mai pleaka unu..."
"De ce pleci? nu iti place de mine? hai sa facem un cyber pe privat ... dar mai ramai"
"De ce pleci? nu ma mai iuby?"
"Pleci? Nu mai stai?"
"Mi-a placut sa te cunosc... sper ca ne mai vedem si maine..."
"sayoonara"
"daca pleci cu cine mai ma culc eu la noapte?"
"pleci? asa de repede? hai mai ramai... macar putin..."
"de ce pleci? nu te-am satisfacut ast'noapte?"
"hai mai ramai sa facem un cyber pe privat.. macar unul.."
"pleci? sper ca mai vii mai tarziu... imi va fi dor de tine scumpete "
"am sa te visez la noapte... wet, hot and SEXXXXY!! Huuuu yaaa!"
"nu ma uita! eu nu te voi uita sigur draga.."
}
proc pa_speak {nick uhost hand chan text} {
global botnick speakchans ran_pa
if {($text == "") || ([string match "*all*" [lindex $text 0 end]]) || ([string match "*Resident*" [lindex $text 0 end]])} {
if {(([lsearch -exact [string tolower $speakchans] [string tolower $chan]] != -1) || ($speakchans == "*"))} {
if {[string match "*+vorbeste*" [channel info $chan]]} {
set byes [lindex $ran_pa [rand [llength $ran_pa]]]
putserv "PRIVMSG $chan :$nick $byes" }
}
}
}
## lol ##
bind pub - lol lol_speak
bind pub - lool lol_speak
bind pub - loool lol_speak
bind pub - looool lol_speak
bind pub - loooool lol_speak
bind pub - looooool lol_speak
bind pub - loooooool lol_speak
bind pub - looooooool lol_speak
bind pub - loooooooool lol_speak
bind pub - looooooooool lol_speak
bind pub - loooooooooool lol_speak
bind pub - looooooooooool lol_speak
bind pub - loooooooooooool lol_speak
bind pub - looooooooooooool lol_speak
bind pub - loooooooooooooool lol_speak
bind pub - looooooooooooooool lol_speak
bind pub - loooooooooooooooool lol_speak
bind pub - looooooooooooooooool lol_speak
bind pub - loooooooooooooooooool lol_speak
bind pub - looooooooooooooooooool lol_speak
bind pub - loooooooooooooooooooool lol_speak
bind pub - looooooooooooooooooooool lol_speak
bind pub - loooooooooooooooooooooool lol_speak
bind pub - looooooooooooooooooooooool lol_speak
bind pub - loooooooooooooooooooooooool lol_speak
bind pub - looooooooooooooooooooooooool lol_speak
bind pub - loooooooooooooooooooooooooool lol_speak
bind pub - looooooooooooooooooooooooooool lol_speak
bind pub - loooooooooooooooooooooooooooool lol_speak
bind pub - looooooooooooooooooooooooooooool lol_speak
bind pub - lewl lol_speak
bind pub - lewll lol_speak
bind pub - llewl lol_speak
bind pub - llewll lol_speak
bind pub - leewl lol_speak
bind pub - {*} pub_lol
bind pub - {*} pub_lol
bind pub - {:>*} pub_lol
set ran_lol {
"Muhahhahha ;P"
"buhaha... razi ca.. ma abtzin :P ca te superi dupa"
"vezi sa nu crapi de atata ras"
"rasul ingrasa... watch out :P"
""
"Nu mai rade atata..."
"Buhaaaaaaahaaaaaaahaaaaaaaaaaaaaa..."
", ce rade asta..."
"Lol... Ma kak pe mine de ras... Kiddin`! Ai vrea tu ;P"
"tu esti persoana care inveseleste canalul?"
"ce zambet stralucitor ai... I think I`m in love"
"m-am indragostit de zambetul tau.. Would you be my Valentine ? :P"
"ce norocosi sunt cei carora le luminezi noptile cu zambetul tau"
"razi tu razi... dar eu plang in sinea mea..."
"tu razi si eu plang... iti pare bine? :( "
"nu mai rade ca se goleste canalul... :P "
"zi si mie sa rad si eu... ce persoana invidioasa ejti..."
}
proc lol_speak {nick uhost hand chan text} {
global botnick speakchans ran_lol
if {(([lsearch -exact [string tolower $speakchans] [string tolower $chan]] != -1) || ($speakchans == "*"))} {
if {[string match "*+vorbeste*" [channel info $chan]]} {
set lols [lindex $ran_lol [rand [llength $ran_lol]]]
putserv "PRIVMSG $chan :$nick $lols" }
}
}
## Thanks ##
bind pub - merci thx_speak
bind pub - mersi thx_speak
bind pub - multumesc thx_speak
bind pub - multzumesc thx_speak
bind pub - thanks thx_speak
bind pub - thank thx_speak
bind pub - multzam thx_speak
bind pub - multzumim thx_speak
bind pub - multam thx_speak
bind pub - multumim thx_speak
bind pub - thx thx_speak
bind pub - ms thx_speak
set ran_thx {
"cu placere :P"
"mai doresti ceva?"
"uite ca ai si tu bune maniere... le-ai furat de la cineva?"
"da` nu mi-ai multzumit inca pentru partida de sex de aseara..."
"te mai poate ajuta cu ceva asociatia de caritate a acestui canal? "
"Te mai putem ajuta cu ceva? un ban? un kick? un flood mic? :P"
"Unde ai invatat sa multumesti peste noapte?"
}
proc thx_speak {nick uhost hand chan text} {
global botnick speakchans ran_thx
if {(([lsearch -exact [string tolower $speakchans] [string tolower $chan]] != -1) || ($speakchans == "*"))} {
if {[string match "*+vorbeste*" [channel info $chan]]} {
set thxs [lindex $ran_thx [rand [llength $ran_thx]]]
putserv "PRIVMSG $chan :$nick $thxs" }
}
}
## BRB ##
bind pub - brb brb_speak
set ran_brb {
"unde pleci?"
"si eu! It's smoking time!"
"cand te intorci? deja mi-e dor de tine!"
"u want to go ? ok darling, but don't be so long ok pls, I need You honey"
"daca pleci cu cine mai ma culc eu la noapte?"
"pleci? asa de repede? hai mai ramai... macar putin..."
"de ce pleci? nu te-am satisfacut ast'noapte?"
"hai mai ramai sa facem un cyber pe privat.. macar unul.."
"pleci? sper ca mai vii mai tarziu... imi va fi dor de tine scumpete "
"am sa te visez la noapte... wet, hot and SEXXXXY!! Huuuu yaaa!"
"nu ma uita! eu nu te voi uita sigur draga.."
}
proc brb_speak {nick uhost hand chan text} {
global botnick speakchans ran_brb
if {(([lsearch -exact [string tolower $speakchans] [string tolower $chan]] != -1) || ($speakchans == "*"))} {
if {[string match "*+vorbeste*" [channel info $chan]]} {
set brbs [lindex $ran_brb [rand [llength $ran_brb]]]
putserv "PRIVMSG $chan :$nick $brbs" }
}
}
## BOT ##
bind pub - bot bot_speak
bind pub - boot bot_speak
bind pub - but bot_speak
set ran_bot {
"ai vrea tu sa ai un bot ca mine!"
"ce e cu mine? nu va plac?"
"Iha... pentru informatia voastra.. sunt doar un bot.."
"Ce mah? care e problema ta? nu iti plac sau ce? Crezi ca imi pasa?"
"DA! Recunosc! Eu sunt vinovat! Sper ca nu v-ati suparat... It's only Artificial Inteligence"
"But? Ce e ala? Ce draq e ala? Care imi explica si mie?"
"But? e prescurtarea de la buton sau ce ? Ce e un but?"
"But I did it again... :P But(ter)... so many words beggining with 'but'... But what?"
"Vrei un but ca mine? vorbeste cu un administrator... poate te scoti din foame cu unu ca mine :P"
"Sunt but da... dar de ce faci discriminari... am si eu sentimente... ba nu n`ap... Oopz.."
"But / Bun... tot aia... Mi se potrivesc amandoua caracteristicile.. :P"
"Orice ati zice voi eu sunt cel mai bun but... cel mai bun dintre cei mai buni..."
"Ce nu va plac? TCL-urile sunt de vina :P nu ma invinuiti pe mine... TrAsNeT e vinovatu`! El le-a facut"
"Man is God's creation... A boot is Man creation... My God is TrAsNeT ... He is a man... I am a but... Yeak... stupid algoritmic logics..."
"Yes I'm a boot... But I love you... Would you be my Valentine? ... Would you like a !rose? a !kiss ? a !hug ? some !sex ? I have everything..."
}
proc bot_speak {nick uhost hand chan text} {
global botnick speakchans ran_bot
if {(([lsearch -exact [string tolower $speakchans] [string tolower $chan]] != -1) || ($speakchans == "*"))} {
if {[string match "*+vorbeste*" [channel info $chan]]} {
set bots [lindex $ran_bot [rand [llength $ran_bot]]]
putserv "PRIVMSG $chan :$nick $bots" }
}
}
## UNDE ##
bind pub - unde unde_speak
bind pub - unde? unde_speak
bind pub - unde?? unde_speak
bind pub - unde??? unde_speak
bind pub - unde???? unde_speak
bind pub - unde????? unde_speak
set ran_unde {
"pe WC"
"la mare"
"la munte"
"in pat cu sora-ta"
"in pat cu maica-ta"
"in pat cu tine"
"pe pooola mea"
"pe root"
"pe Luna"
"pe Marte"
"pe Venus"
"pe Soare :P"
"pe Pluto :>"
"in alt sistem solar"
"in frigider"
"pe aragaz"
"in bloc"
"in casa"
"in pat"
"acasa"
"afara"
"in masina"
"la calculatorul tau"
"pe strada"
"in canalizarea orasului"
"sub pat"
"pe stadion"
"la masa"
"la restaurant"
"la hotel"
"la Disneyland"
"la McDonalds"
"la PizzaHut"
"la Gogoasa Infuriata"
"in cada"
"sub dus"
}
proc unde_speak {nick uhost hand chan text} {
global botnick speakchans ran_unde
if {(([lsearch -exact [string tolower $speakchans] [string tolower $chan]] != -1) || ($speakchans == "*"))} {
if {[string match "*+vorbeste*" [channel info $chan]]} {
set wheres [lindex $ran_unde [rand [llength $ran_unde]]]
putserv "PRIVMSG $chan :$nick $wheres" }
}
}
## CUM ##
bind pub - cum cum_speak
bind pub - cum? cum_speak
bind pub - cum?? cum_speak
bind pub - cum??? cum_speak
bind pub - cum???? cum_speak
set ran_cum {
"pe la spate"
"prin fata"
"incet"
"repede"
"asa bine"
"nu iti zic cum.."
"fierbinte"
"calda"
"moale"
"tare"
"greu"
"usor"
"usoara"
"grea"
}
proc cum_speak {nick uhost hand chan text} {
global botnick speakchans ran_cum
if {(([lsearch -exact [string tolower $speakchans] [string tolower $chan]] != -1) || ($speakchans == "*"))} {
if {[string match "*+vorbeste*" [channel info $chan]]} {
set hows [lindex $ran_cum [rand [llength $ran_cum]]]
putserv "PRIVMSG $chan :$nick $hows" }
}
}
bind pub - cand cand_speak
bind pub - cand? cand_speak
bind pub - cand?? cand_speak
bind pub - cand??? cand_speak
bind pub - cand???? cand_speak
bind pub - cand????? cand_speak
set ran_cand {
"aseara"
"maine"
"peste o saptamana"
"acum o saptamana"
"ieri"
"maine seara"
"ast`noapte"
"maine noapte"
"la amiaza"
"dimineata"
"seara"
"in seara asta"
"diseara"
"maine seara"
"intr-o seara"
"intr-o zi"
"nu mai stiu exact"
"am pierdut notiunea timpului"
"tu crezi ca eu mai stiu?"
"intr-un weekend"
"weekend-ul trecut"
"asta o sa decid eu..."
"intr-o luna"
"intr-un an"
"anul trecut"
"acum 2 ani"
"anul viitor"
"peste vreo doi ani"
"peste cativa ani"
}
proc cand_speak {nick uhost hand chan text} {
global botnick speakchans ran_cand
if {(([lsearch -exact [string tolower $speakchans] [string tolower $chan]]
!= -1) || ($speakchans == "*"))} {
if {[string match "*+vorbeste*" [channel info $chan]]} {
set hows [lindex $ran_cand [rand [llength $ran_cand]]]
putserv "PRIVMSG $chan :$nick $hows" }
}
}
bind pub - cat cat_speak
bind pub - cat? cat_speak
bind pub - cat?? cat_speak
bind pub - cat??? cat_speak
bind pub - cat???? cat_speak
bind pub - cat????? cat_speak
set ran_cat {
"mult"
"putin"
"foarte mult"
"enorm"
"deloc"
"aproape deloc"
"foarte putin"
"nu pot aproxima..."
"extrem de mult"
"nu mai stiu cat..."
"oleak... :P"
"cam putin"
"multishor..."
"nici prea mult... nici prea putin..."
"nu prea mult"
"nu prea putin"
}
proc cat_speak {nick uhost hand chan text} {
global botnick speakchans ran_cat
if {(([lsearch -exact [string tolower $speakchans] [string tolower $chan]]
!= -1) || ($speakchans == "*"))} {
if {[string match "*+vorbeste*" [channel info $chan]]} {
set hows [lindex $ran_cat [rand [llength $ran_cat]]]
putserv "PRIVMSG $chan :$nick $hows" }
}
}
|
|
FAQ 
Mesaje private 
