fun.tcl

Suparatu · Administrator Data inscrierii: 12/Mai/2008 Mesaje: 24

##########################################################################
# fun-text.tcl by ShakE <shake@abv.bg> #
##########################################################################
# zna4i tova kara bota da otgovarq pri text !sex ... abe nai hubavo #
# napi6i v kanala !fun i bota 6te ti izkara help za komandite na tozi tcl#
##########################################################################
# Ako imate nqkakvi vaprosi, predlojenia ili kritiki posetete foruma na #
# http://tcl-bg.com i pi6ete tam! #
##########################################################################

bind pub - !bere fun_give-bere
bind pub - !slap fun_give-slap
bind pub - !apa fun_give-apa
bind pub - !tigari fun_give-tigari
bind pub - !aprinde fun_give-aprinde
bind pub - !ofera fun_give-ofera
bind pub - !sex fun_give-sex
bind pub - !stf fun_give-stf
bind pub - !laba fun_give-laba
bind pub - !10x fun_give-10x
bind pub - !bata fun_give-bata
bind pub - !mitraliera fun_give-mitraliera
bind pub - !cola fun_give-cola
bind pub - !kiss fun_give-kiss
bind pub - !dezvirgineaza fun_give-dezvirgineaza
bind pub - !69 fun_give-69
bind pub - !imbratisare fun_give-imbratisare
bind pub - !rose fun_give-rose
bind pub - !caca fun_give-caca
bind pub - !disco fun_give-disco
bind pub - !inghetata fun_give-inghetata
bind pub - !sms fun_give-sms
bind pub - !sabie fun_give-sabie
bind pub - !pistol fun_give-pistol
bind pub - !fanta fun_give-fanta
bind pub - !vodka fun_give-vodka
bind pub - !ofera fun_give-fun
bind pub - !pula_rus fun_give-pula_rus
bind pub - !pula fun_give-pula
bind pub - !babah fun_give-babah
bind pub - !caca2 fun_give-caca2

proc fun_give-caca2 {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick ii skoate oki lu $text s traji o kakashka in bortz"
}
proc fun_give-babah {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick ďđčâ˙çűâŕĺň $text ę áî÷ęĺ ń ďîđîőîě č ďîćčăŕĺň ôčňčëü.12 3... 2... 1... 4Áŕ-áŕő!!! Îé, ëó÷řĺ íĺ ăîâîđčňü, ÷ňî îň PuiDeDreaQ îńňŕëîńü..."
}
proc fun_give-pula {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick II traje o kirja intre bushi lu $text de-i iese okii"
}
proc fun_give-pula_rus {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick ¨áíóë $text ńâîĺé áŕëüřîé ďčďŰńęîé ďî đűëó!!"
}
proc fun_give-bere {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick ii pune o bere in halba si i-o impinge lui $text !"
}

proc fun_give-slap {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick loveste pe $text cu un sut in gura de ajunge la urgente!"
}

proc fun_give-apa {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick ii da lui $text un pahar de apa !"
}

proc fun_give-tigari {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick scoate un pachet de tigari si il serveste pe $text !"
putserv "PRIVMSG $chan :vrei sa ti-o aprind? scrie !aprinde"
}

proc fun_give-aprinde {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick ii pune nishte paie subtzioara lu $text sh li da fok ..ARZZZZ JITOooo.. sh frumushel prikureshte sigareta :D"
}

proc fun_give-ofera {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick ofera lu $text un cadou din politete si bun simt :P !"
}

proc fun_give-sex {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick invita pe $text la o partida de sex....ce zici $text accepti invitatia ?!"
}

proc fun_give-stf {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $text o sa te futa $nick in seara asta de o sa iti sara flocii pe pereti !"
}

proc fun_give-laba {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick se uita cum $text isi face laba in fata la tv la un film porno !"
}

proc fun_give-10x {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nickii multumeste lu $text pentru amabilitate !"
}

proc fun_give-bata {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick ii da cu bata in cap lui $text pana ii sar creierii pe pereti !"
}

proc fun_give-mitraliera {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick scoate miraliera si il ciuruiejte bine pe $text pana il lasa fara sange!"
}

proc fun_give-cola {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick il serveste pe $text cu o Coca-Cola rece !"
}

proc fun_give-kiss {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick saruta foarte senzual pe $text ( Se pare ca $text are o placere deosebita) !"
}

proc fun_give-dezvirgineaza {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $text vrea sa fie dezvirginat(a)... care se ofera voluntar(a)? !"
}

proc fun_give-69 {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $text vrea sa faca un 69.. cine vrea sa i se alature?!"
}

proc fun_give-imbratisare {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick imbratiseaza pe $text cu ambele brate!"
}

proc fun_give-rose {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick ii ofera lui $text un : 4@3>--`---,--- \001 !"
}

proc fun_give-caca {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick se uita cum $text s-a kakat pe el... rushinika... !"
}

proc fun_give-disco {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick merge in disco in seara asta ..vrea sa mai mearag cineva cu el? !"
}

proc fun_give-inghetata {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick ii asigură o inghetata pe bat lu $text !"
}

proc fun_give-sms {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $text io suge lu $nick pana i se albesc dintii !"
}

proc fun_give-sabie {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick ia sabia... se invarte putin prin aer.. si apropiindu-se de $text ii taie beregata... cum o fi fara cap? mai vrea cineva? !"
}

proc fun_give-pistol {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick scoate pistolul si ii trage un glonte in cap lu $text !"
}

proc fun_give-fanta {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick pune un pahar de fanta si il da lu $text !"
}

proc fun_give-vodka {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION $nick trage o dusca de vodka si apoi invita si pe $text !"
}

proc fun_give-fun {nick uhost hand chan text} {
putserv "privmsg $chan :Comenzi:"
putserv "privmsg $chan :!bere , !slap , !apa ,!tigari , !aprinde , !ofera , !stf , !sex , !laba , !10x , !bata , !mitraliera , !cola , !kiss , !dezvirgineaza , !69 , !imbratisare , !rose , !caca , !disco , !inghetata , !sms , !sabie , !pistol , !fanta , !vodka !pula , !pula_rus , !babah , !caca2 "
}

putlog "fun-text.tcl v1.0 by _Helper_ loaded!"

	Pagina de start a forumului #PBC Official Forum -> TCL Scripts	Ora este GMT + 2 ore
Pagina 1 din 1