Chez l'ami grokeur Index du Forum
Chez l'ami grokeur
Forum super mega giga actif, ici pas de tabou si vous cherchez de l'aide ou si vous voulez simplement rigoler n'hésitez pas :)
 
PortailChez l'ami grokeur Index du ForumFAQRechercherS’enregistrerConnexion

:: Remote tcl ::

 
Poster un nouveau sujet   Répondre au sujet    Chez l'ami grokeur Index du Forum -> >-IRC-< -> IRC
Sujet précédent :: Sujet suivant  
Auteur Message
grokeur
Administrateur
Administrateur

Hors ligne

Inscrit le: 03 Mai 2007
Messages: 44
Localisation: Tunis, Tunisie
Masculin Verseau (20jan-19fev) 兔 Lapin
Point(s): 12
Moyenne de points: 0,27

MessagePosté le: Dim 7 Oct - 10:49 (2007)    Sujet du message: Remote tcl Répondre en citant

Voila un petit script tcl (pour eggdrop / windrop ) que j'ai fait, en gros ca fait tourner un spliff virtuel sur le chan lol Smile

Code:
################## Spliff.tcl By grokeur #####################

######### Variables ###########

set spliff {
"off"
"on"
}

########## Binds ############

bind pub - !spliff pub_allume
bind pub _ !tourne pub_tourne
bind pub _ !souffle pub_souffle
bind pub _ !ecrase pub_ecrase

######### Procs #############

proc pub_allume { nick uhost hand channel arg } {
global nicksp chansp spliff
if { $spliff != "on"  } {
putserv "privmsg $channel :9 $nick se roule un gros 8spliff l'allume et 4commence à le fumer 1,0<///////////////////////////////#~~~~~~~~ "
set spliff on
set nicksp $nick
set chansp $channel
utimer 60 {
if { $spliff=="on" } {
putserv "privmsg $chansp :Le spliff est a moitié consommé et se trouve dans les mains de $nicksp  1,0<//////////////#~~~~~~~~"
}
}
utimer 120 {
if { $spliff=="on" } {
putserv "privmsg $chansp :$nicksp jette maintenant le spliff entierement consommé Pas mal du tout cette beuh :) 1,0<////#~~~"
set chansp ""
set spliff off
set nicksp ""
}
}
} else {
putserv "privmsg $channel :Il y a deja un spliff allumé c'est $nicksp qui l'a"
}
}



proc pub_tourne { nick uhost hand channel arg } {
global chansp nicksp spliff
if { $channel==$chansp && $spliff=="on" && $nick==$nicksp && [onchan $arg $chansp] } {
putserv "privmsg $chansp :9 $nick passe 8le spliff a $arg 4vas y doucement"
set nicksp $arg
} elseif { $spliff != "on" } {
putserv "privmsg $channel :Pense à allumer un spliff avant de le faire tourner banane !"
} elseif { $nick != $nicksp } {
putserv "privmsg $channel :Ce n'est pas toi qui a le spliff $nick c'est $nicksp"
} elseif { ![onchan $arg $chansp] } {
putserv "privmsg $channel :Je ne vois pas de $arg ici essaie un autre pseudo"
}
}


proc pub_souffle { nick uhost hand channel arg } {
global chansp nicksp spliff
if { $channel==$chansp && $spliff=="on" && $nick==$nicksp && [onchan $arg $chansp] } {
putserv "privmsg $chansp :9 $nick s'approche de $arg et 8lui souffle sa fumée en pleine face... 4Ca va $arg ? lol"
} elseif { $spliff != "on" } {
putserv "privmsg $channel :Pense à allumer un spliff avant banane !"
} elseif { $nick != $nicksp } {
putserv "privmsg $chansp :Ce n'est pas toi qui as le spliff $nick c'est $nicksp"
} elseif { ![onchan $arg $chansp] } {
putserv "privmsg $channel :Je ne vois pas de $arg ici essaie un autre pseudo"
}
}

proc pub_ecrase { nick uhost han channel arg } {
global chansp nicksp spliff
if { $channel==$chansp && $spliff=="on" && $nick==$nicksp } {
putserv "privmsg $chansp :9 $nick écrase le spliff,8 ca n'a pas l'air 4de lui plaire"
set spliff off
set chansp ""
set nicksp ""
} elseif { $spliff != "on" } {
putserv "privmsg $channel :Pense à allumer un spliff avant banane !"
} elseif { $nick != $nicksp } {
putserv "privmsg $chansp: Ce n'est pas toi qui as le spliff $nick c'est $nicksp"
}
}

################################################################

_________________




Revenir en haut
MSN
Publicité






MessagePosté le: Dim 7 Oct - 10:49 (2007)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Chez l'ami grokeur Index du Forum -> >-IRC-< -> IRC Toutes les heures sont au format GMT + 1 Heure
Page 1 sur 1

 
Sauter vers:  

Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation

Power of Neon-Gloss © theme modified by Soft-Paradise ™ 2008
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com