Communauté Eggdrop
Dire aux HEURE - Version imprimable

+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : Dire aux HEURE (/showthread.php?tid=502)



Dire aux HEURE - Babytigrou16 - 29/08/2009

Es-ce que quel qu'un à un tcl de quote aléatoire ? Smile ! merci Razz !


RE: Dire aux HEURE - fedora - 29/08/2009

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


RE: Dire aux HEURE - fedora - 29/08/2009

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 )


RE: Dire aux HEURE - heretoc - 29/08/2009

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


RE: Dire aux HEURE - Babytigrou16 - 30/08/2009

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


RE: Dire aux HEURE - heretoc - 30/08/2009

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


RE: Dire aux HEURE - Babytigrou16 - 30/08/2009

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


RE: Dire aux HEURE - CrazyCat - 30/08/2009

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.


RE: Dire aux HEURE - Babytigrou16 - 30/08/2009

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


RE: Dire aux HEURE - CrazyCat - 31/08/2009

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


RE: Dire aux HEURE - Artix - 01/09/2009

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


RE: Dire aux HEURE - bewess - 29/11/2009

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


RE: Dire aux HEURE - fedora - 29/11/2009

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