Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Dire aux HEURE
#1
Es-ce que quel qu'un à un tcl de quote aléatoire ? :) ! merci Razz !
Le meuilleur du Web www.zet-land.org
#2
bonjour,
voici un TCL de quote assez simple (certes en anglais) mais qui je pense si tu ajoute un bind time pour qu'il récupère des quotes dans le quote.txt ça peut t'être pas mal.je suis sur tu peut faire quelque chose de bien :)


tcl
## Quote.tcl by N86ers ###
 
# A simple quote script with random output :)
 
# Set the trigger for quote adding:
 
set quotetrigger "!quote"
 
# Set the trigger for random output:
 
set randomtrigger "!rquote"
 
# Set trigger for deleting quotes:
 
set deltrigger "!delquote"
 
### Lame code begins :) ###
 
bind pub -* $quotetrigger quote
bind pub -* $randomtrigger rquote
bind pub -* $deltrigger delquote
 
proc quote {nick uhost hand chan arg} {
    global quotetrigger
    if {[llength $arg] == 0 } {
        putquick "privmsg $chan :Use $quotetrigger <newquote>"
    } else {
        set data [open "./scripts/quote.txt" a]
        puts $data "$nick $arg"
        close $data
        putquick "privmsg $chan :Added \037$arg\037 to the quote list :)"
        return 1
    }
}
 
proc delquote {nick uhost hand chan arg} {
	if {![string length [string trim $arg]]} {
		putquick "PRIVMSG $chan :Use $::deltrigger <quote>"
	} else {
		set fid [open "./scripts/quote.txt" r]
		if {[set pos [lsearch -glob [set ldata [split [read -nonewline $fid] \n]] $arg]] != -1} {
			# Close the read-only fileID:
			close $fid
			# Open the file again for writing:
			set fid [open "./scripts/quote.txt" w]
			puts $fid [join [lreplace $ldata $pos $pos] \n]
			close $fid
			putquick "PRIVMSG $chan :Deleted \037$arg\037 from the quote list =("
		} else {
			# Close the read-only fileID:
			close $fid
			putquick "PRIVMSG $chan :Can not find \037$arg\037 in the quotelist!"
		}
	}
}
 
proc rquote {nick uhost hand chan arg} {
    set quotes ""
    set data [open "./scripts/quote.txt" r]
    while { ![eof $data] } {
        set quote [gets $data]
        if { $quote != "" } {
            set quotes [linsert $quotes end $quote]
        }
    }
    close $data
    set random [rand [llength $quotes]]
    if { [expr $random >= 0] && [expr $random < [llength $quotes]] } {
        set quote [lindex $quotes $random]
        set out1 [lrange [split $quote] 1 end]
        set out [lindex $quote 0]
    }
    if { $quote != "" } {
        putquick "privmsg $chan :Heres a quote: \037$out1\037 Added by \037$out\037"
    }
 
}
 
putlog "Quote.tcl v.1.1 by N86ers is loaded!"

ceci et un TCL trouvé avec mon amis "Google" :)

cordialement
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
#3
re , lol

en voici un autre qui je pense fait ce que tu recherche mais à traduire car il est en russe (MDR) désolé ! y a plus cas traduire :D. il envoie une quote toute les 30mn (modifiable ).
je te joins le TCL si il t'interresse

(à force vous allez m'appelés fedora les bon tuyau lol )
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
#4
Oy alors => Fonctions recherche => Quote => http://www.eggdrop.fr/board/Quoteur-t-420.html
#5
aucun ne focntionne :) ! ,,,, mais bon j aimerais juste avoir 5 message différent et que l'eggdrop dit le message sur un salon à toute les heure alors exemple il dit un des 5 message aux heure ... :) merciii
Le meuilleur du Web www.zet-land.org
#6
Dans le lien que je tes donner, notre agréable moderateur "MenzAgitat" y met divers liens pour telecharger deux trois tcl sur les quotes (et qui marche)
Ensuite quand tu dit aucun fonctionne, dit ce qui va pas sinon on peut pas t'aider...
#7
les quotes la c'est pour adder des Citation ... mais c'est pas sa je veux ... :) BlackNight c'est de quoi je parle ... mais je crois je me suis assez bien exprimer au dessue
Le meuilleur du Web www.zet-land.org
#8
Quel est le souci ? La quote aléatoire ou le déclenchement toutes les heures ?
Si c'est le deuxième cas, il suffit d'avoir comme bind:

tcl
bind time - "00 * * * *" rquote:timed
proc rquote:timed { mn hh dd mm yy } {
   ...
}

Pour la quote aléatoire, il y a suffisament d'exemples dans les divers scripts sur ce fil.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#9
oki mais il doit i avoir un moyen de poster plusieurs message pour la même procédure ?
Le meuilleur du Web www.zet-land.org
#10
Peux-tu être plus explicite dans ta question s'il te plait ? Je ne comprends pas trop ce que tu veux dire / demander
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#11
Il veut surement en afficher plusieurs d'un coup
Dans ce cas, il suffit d'utiliser une boucle while pour repeter plusieurs fois
#12
bonjour

J'ai le tcl Public Quotes System v1.32 fait par MenzAgitat et je voulais savoir si il est envisagé une version avec les quotes dites aleatoirement sur le salon toutes les x minutes.
Cela me serait bien utile :)

Bon week-end a tous
Gilles
#13
bonsoir,

sur le TCL de "vie de merde" j'ai adapter pour qu'il sorte une citation toutes les dix minutes ! prend exemples dessus :)
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.


Forum Jump:


Users browsing this thread: 1 Guest(s)