Dire aux HEURE

[Babytigrou16]

Es-ce que quel qu'un à un tcl de quote aléatoire ? :) ! merci :-P !

[fedora]

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 :)

tclcopier

## 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

[fedora]

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 )

[heretoc]

Oy alors => Fonctions recherche => Quote => http://www.eggdrop.fr/board/Quoteur-t-420.html

[Babytigrou16]

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

[heretoc]

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...

[Babytigrou16]

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

[CrazyCat]

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:

tclcopier

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.

[Babytigrou16]

oki mais il doit i avoir un moyen de poster plusieurs message pour la même procédure ?

[CrazyCat]

Peux-tu être plus explicite dans ta question s'il te plait ? Je ne comprends pas trop ce que tu veux dire / demander

[Artix]

Il veut surement en afficher plusieurs d'un coup
Dans ce cas, il suffit d'utiliser une boucle while pour repeter plusieurs fois

[bewess]

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

[fedora]

bonsoir,

sur le TCL de "vie de merde" j'ai adapter pour qu'il sorte une citation toutes les dix minutes ! prend exemples dessus :)