SYSTEME DE QUOTE SIMPLIFIÉ
SipiX
Messages postés
40
Date d'inscription
samedi 19 avril 2003
Statut
Membre
Dernière intervention
30 septembre 2003
-
24 août 2003 à 18:53
Anatolei Messages postés 27 Date d'inscription samedi 24 décembre 2005 Statut Membre Dernière intervention 31 janvier 2009 - 16 janv. 2006 à 13:20
Anatolei Messages postés 27 Date d'inscription samedi 24 décembre 2005 Statut Membre Dernière intervention 31 janvier 2009 - 16 janv. 2006 à 13:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/15104-systeme-de-quote-simplifie
https://codes-sources.commentcamarche.net/source/15104-systeme-de-quote-simplifie
16 janv. 2006 à 13:20
if ($1 == "e) { /write quote.txt $2- }
if ($1 == &del) { /write -dl $2 quote.txt }
if ($1 == &read) {
if ($2 isalpha) && ($2 != $null) { .timer 1 1 /say 3Quote : $replace($read(quote.txt,w,* $+ $2- $+ *),$2-, $+ $2- $+ ) }
elseif ($2 isalnum) && ($2 != $null) { .timer 1 1 /say 3Quote $2 : $read(quote.txt,$2) }
else { .timer 1 1 /say 3Quote : $read(quote.txt) }
}
}
Voilà mon system de quotes.
Il peut lire des quotes au hazard, ou il recherche par rapport au numero de ligne ou par rapport à un texte. Il souligne aussi la partie du texte recherchée.
Par contre, quand je fais une recherche sur un mot, il commence la recherche à la premiere ligne, donc si j'ai le même mot à la deuxième ligne, et bien ça ne le citera jamais.
Si vous savez comment faire pour qu'il lise au hazard des lignes mais qui comportent le mot recherché, merci de m'expliquer comment procéder.
Merci.
26 juil. 2004 à 04:48
c pas mal aussi kand on peu effacer un quote..... -.-"
je site :
on 1:input:*:{
If ( $$1 == !quote ) { .timer1 1 1 /msg # $read(quote.txt, $$2) }
if ( $$1 == !add ) { /write quote.txt $$2- | .timer1 1 1 /echo -a $timestamp 2(Quote) 4 quote Mémorisé ! }
if ( $$1 == !del ) { /write -dl $+ $$2 quote.txt | .timer1 1 1 /echo -a $timestamp 2(Quote) 4 quote EffaCé ! }
if ($1 == !nombre) { .timer1 1 1 /msg $chan J'ai $+ $lines($mircdirquote.txt) $+ quote(s) enregistrée(s). }
}
Voila :)
Air-CoOleD -.-"
2 sept. 2003 à 20:43
29 août 2003 à 13:09
28 août 2003 à 21:14
et puis si ça t'éclate de croire que j'me plante ben éclates toi j'm'en fiche comme de l'an 40 :)
28 août 2003 à 20:43
ta k testé crée un alias :
alias test {
timertest 1 2 echo -a haha
timertest 1 2 echo -a hihi
timertest 1 2 echo -a hehe
}
c pas haha puis hihi puis hehe que tu vas voir ms seulement hehe .
car ya a chaq foi tu réinitialise le mem timer . als fé des test avan de parlé stp , lol .
have fun
26 août 2003 à 13:43
26 août 2003 à 09:40
quotetimer {
.timerquotetim 1 40 /unset %quotetim
}
on *:text:*!quote*:#:{
if ( %quotetim != on ) {
quotetimer
set %quotetim on
/msg $chan $nick -> $read(quote.txt, $$2)
}
}
gOod ^^
25 août 2003 à 21:27
si tu taperas 10 fois !quote ta phrase sera dites 10 fois
tu t'es jamais amusé à laguer (ou à faire laguer quelqu'un) avec un timer ?
:/
25 août 2003 à 13:04
on *:text:!quote*:#:timermsg 1 2 msg $chan $nick -> $read(quote.txt, $$2)
25 août 2003 à 03:19
--------------------------------------------------------------------------------
on peut y ajouter des remotes aussi pour que les autres puissent montrer les quotes . on y ajouterais la remote :
on *:text:*!quote*:#:/msg $chan $nick -> $read(quote.txt, $$2)
tout simplement ^^
Ouais mais la c'est un coup à ce que tout les pauvres boulets te fassent laguer à taper 350 fois "!quote" ...
24 août 2003 à 20:39
editez le .. je n'ai fait que donner la base , a vous de le personnaliser comme vous le souhaitez :)
24 août 2003 à 20:32
et sinon rajouté un mode hasard :
if ( $1 == !hasard ) { .timer 1 1 msg $chan $read(quote.txt, $rand(1, $lines(quote.txt) ) ) }
24 août 2003 à 20:14
on *:text:*!quote*:#:/msg $chan $nick -> $read(quote.txt, $$2)
tout simplement ^^
24 août 2003 à 19:35
C'est tres bien :)
24 août 2003 à 18:53
Faudrai que tu mettes un input pour lire et dire combien tu en as
Comme ça regarde
on *:INPUT:#:{
if ($1 == !add) { write $mircdirquote.txt $2- }
if ($1 == !nombre) { .timer 1 1 /msg $chan J'ai $+ $lines($mircdirquote.txt) $+ quote(s) enregistrée(s). }
if ($1 == !lis) { .timer 1 1 /msg $chan (14 Quote System ) $read $mircdirquote.txt $+ }
}
C'est beaucoup plus pratique, même si ça ne sert complètement à rien ...