Dire aux HEURE
#1
Es-ce que quel qu'un à un tcl de quote aléatoire ? Smile ! merci Razz !
Le meuilleur du Web www.zet-land.org
Répondre Avertir
#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 Smile

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" Smile

cordialement
[font=Times New Roman]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.[/font]
Répondre Avertir
#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 Very Happy. 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 )
[font=Times New Roman]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.[/font]
Répondre Avertir
#4
Oy alors => Fonctions recherche => Quote => http://www.eggdrop.fr/board/Quoteur-t-420.html
Répondre
#5
aucun ne focntionne Smile ! ,,,, 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 ... Smile merciii
Le meuilleur du Web www.zet-land.org
Répondre Avertir
#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...
Répondre
#7
les quotes la c'est pour adder des Citation ... mais c'est pas sa je veux ... Smile 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
Répondre Avertir
#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.
Répondre
#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
Répondre Avertir
#10
Peux-tu être plus explicite dans ta question s'il te plait ? Je ne comprends pas trop ce que tu veux dire / demander
Répondre
#11
Il veut surement en afficher plusieurs d'un coup
Dans ce cas, il suffit d'utiliser une boucle while pour repeter plusieurs fois
Répondre Avertir
#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 Smile

Bon week-end a tous
Gilles
Répondre Avertir
#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 Smile
[font=Times New Roman]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.[/font]
Répondre Avertir


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté