funny.tcl

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

##################################
####Trup_&_Suflet Funny Script#####
#### BY _Helper_ #####
##################################
#Set
set Vair "\0032 Vai, vai, vai ce liniste......asa liniste nu am mai vazut.....nici pe Marte nu e asa liniste....:P"
set Cinevar "\0032 Cineva sa sune in Rai si sa le spuna ca le-a disparut un inger!"
set Suntr "\0034 Sunt nou in oras... poti sa-mi dai adresa de la apartamentul tau?"
set Plictisitr "\0032 Asa plictiseala inca nu am mai vazut de cad ma stiu................."
set Atmosferar "\0034 Atmosfera de aici e fierbinte sau doar tu?"
set Dacar "\0032 Daca ti-as spune ca ai un corp perfect, m-ai contrazice?"
set Crezir "\0032 Crezi in dragoste la prima vedere sau trebuie sa mai trec o data pe langa tine?"
set Poater "\0032 Poate ca nu sunt cel mai aratos tip de aici, dar sunt singurul care vorbeste cu tine!"
set Scuzamar "\0032 Scuza-ma, poti sa-mi dai numarul tau de telefon... pentru ca eu l-am pierdut pe al meu!"
set Obositr "\0032 Ai obosit? ... pentru ca mi-ai alergat prin cap toata ziua."
set Comenzir "\0037 Comenzile Funny : !Vai | !Cineva | !Sunt | !Plictisit | !Atmosfera | !Crezi | !Poate | !Scuzama | !Obosit | !answer | !Aiurea | !Bau | !Lag | !Prostii | !Suparat | !Daca !"
set answerr "\0031 Pleaca de aici, javra!!!"
set Aiurear "\0033 Ziua asta e cea mai aiurea din toata saptamana !!!"
set Baur "\0035 Baaaaaaaaaaa!!!!! Trezirea....ce kkt faceti???? dormiti pe posturi.... :PPPP"
set Lagr "\0032 Daca o sa mai dati multe ping-uri o sa pic eu sau o sa aveti voi kik....cine stie hehehehehehehe........."
set Prostiir "\0036 Fara prostii ........ plzzzzzzzzzz..... vb si voi cenzurat... ca poate mai sunt si copilasi mici pe aici..... Smile

"
set Suparatr "\0035 Daca ma suparati plec..........asa ca fiti cumintei.......sa nu faceti prostioare....."

#Bind-uri ..... nu umbla

bind pub - !vai vai
bind pub - !cineva cineva
bind pub - !sunt sunt
bind pub - !plictisit plictisit
bind pub - !atmosfera atmosfera
bind pub - !daca daca
bind pub - !crezi crezi
bind pub - !poate poate
bind pub - !scuzama scuzama
bind pub - !obosit obosit
bind pub - !comenzi comenzi
bind pub - !answer answer
bind pub - !aiurea aiurea
bind pub - !bau bau
bind pub - !lag lag
bind pub - !prostii prostii
bind pub - !suparat suparat

#NO EDIT .....

# Vai
#!Vai
proc vai {nick host hand chan args} {
global Vair
putserv "privmsg $chan :$Vair"
return "Asked Question" }

# Cineva
#!Cineva
proc cineva {nick host hand chan args} {
global Cinevar
putserv "privmsg $chan :$Cinevar"
return "Asked Question" }

# Sunt
#!Sunt
proc sunt {nick host hand chan args} {
global Suntr
putserv "privmsg $chan :$Suntr"
return "Asked Question" }

#Plictisit
#!Plictist
proc plictisit {nick host hand chan args} {
global Plictisitr
putserv "privmsg $chan :$Plictisitr"
return "Asked Question" }

# Atmosfera
#!Atmosfera
proc atmosfera {nick host hand chan args} {
global Atmosferar
putserv "privmsg $chan :$Atmosferar"
return "Asked Question" }

# Daca
#!Daca
proc daca {nick host hand chan args} {
global Dacar
putserv "privmsg $chan :$Dacar"
return "Asked Question" }

#Crezi
#!Crezi
proc crezi {nick host hand chan args} {
global Crezir
putserv "privmsg $chan :$Crezir"
return "Asked Question" }

#Poate
#!Poate
proc poate {nick host hand chan args} {
global Poater
putserv "privmsg $chan :$Poater"
return "Asked Question" }

# Scuzama
#!Scuzama
proc scuzama {nick host hand chan args} {
global Scuzamar
putserv "privmsg $chan :$Scuzamar"
return "Asked Question" }

# Obosit
#!Obosit
proc obosit {nick host hand chan args} {
global Obositr
putserv "privmsg $chan :$Obositr"
return "Asked Question" }

# Comenzi
#!Comenzi
proc comenzi {nick host hand chan args} {
global Comenzir
putserv "privmsg $chan :$Comenzir"
return "Asked Question" }

# Aiurea
#!Aiurea
proc aiurea {nick host hand chan args} {
global Aiurear
putserv "privmsg $chan :$Aiurear"
return "Asked Question" }

# Bau
#!Bau
proc bau {nick host hand chan args} {
global Baur
putserv "privmsg $chan :$Baur"
return "Asked Question" }

# Lag
#!Lag
proc lag {nick host hand chan args} {
global Lagr
putserv "privmsg $chan :$Lagr"
return "Asked Question" }

# Prostii
#!Prostii
proc prostii {nick host hand chan args} {
global Prostiir
putserv "privmsg $chan :$Prostiir"
return "Asked Question" }

# Suparat
#!Suparat
proc suparat {nick host hand chan args} {
global Suparatr
putserv "privmsg $chan :$Suparatr"
return "Asked Question" }

putlog "_Helper_ Funny Script"

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