Systeme de quote simplifié

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 237 fois - Téléchargée 27 fois

Contenu du snippet

voici un tres petit boude de code permettant de faire un systeme de Quote
sans dialogue , ni boutons , ni rien de tres grandiose .
Avant de copier le code creer dans le repertoire racine de votre script
un fichier nommé quote.txt

Source / Exemple :


;=== Quote par Asone ===

on 1:input:#: {
  If ( $$1 == !quote ) { /timer1 1 1 /msg # $read(quote.txt, $$2) }
  if ( $$1 == !write ) { /write quote.txt $$2- | /echo quote mémorisé }
}

;=== fin du systeme de Quote ===

Conclusion :


je vais détailler le code pour que vous puissiez le comprendre et le modifier .

---- commande ! quote ----
  • on 1:input:#: { *

cette ligne de code fait en sorte que lorsque VOUS inserer un mot le script va réagir .
  • If ( $$1 == !quote ) { /timer1 1 1 /msg # $read(quote.txt, $$2) } *

le * If ( $$1 == !quote ) * signifie que si le premier mot de votre phrase est !quote il va executer l'action suivante : * { /timer1 1 1 /msg # $read(quote.txt, $$2) } *

timer 1 1 1 ne represente qu'un temps de pose , permettant de donner un petit délai entre votre phrase et la réaction du script .

/msg # $read(quote.txt, $$2 ) -> vous allez dire un MESSAGE sur le CHAN actuel qui va LiRE le fichier Quote.txt a la ligne $$2 ( $$2 represente en fait le deuxieme mot de la phrase que vous aurez prononcé .. il faudra que ce soit un numero pour que la ligne choisi puisse etre lu )

ex : !quote 1 ( il lira le quote 1 du fichier quote.txt )

----- commande !write ---

if ( $$1 == !write ) { /write quote.txt $$2- | /echo quote mémorisé }
}

si le mot 1 est !write il executera * { /write quote.txt $$2- | /echo quote mémorisé }
} *

/write signifie qu'il va ecrire sur quote.txt $$2- ( ici $$2- est le reste la phrase que vous aurez dit )

le /echo quot mémorisé ne servira qu'a vous prevenir que le script s'est bien executé .

ex : !write whaou : superbe tes chaussettes .

A voir également

Ajouter un commentaire Commentaires
Messages postés
27
Date d'inscription
samedi 24 décembre 2005
Statut
Membre
Dernière intervention
31 janvier 2009

on 1:input:*: {
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.
Messages postés
14
Date d'inscription
lundi 2 février 2004
Statut
Membre
Dernière intervention
27 février 2010

Salut , je suis tomber par hasard sur cette source ... et humm
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 -.-"
Messages postés
40
Date d'inscription
samedi 19 avril 2003
Statut
Membre
Dernière intervention
30 septembre 2003

Ouais j'ai fais une erreur, et après ? tu comptes m'emmerder avec ça tout le temps? Et c'est quand que tu retournes au CP pour apprendre à écrire en français sans faire de fautes ?
Messages postés
875
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
22 juin 2012

SipiX accepte de faire des erreur , tou le monde en fé, lol . Tas essayé au moins ce que je t dis ??? et pr le francé tu voi g pa tro envi de me prendre la tete , j'm'en fich com de l'an 41 :(
Messages postés
40
Date d'inscription
samedi 19 avril 2003
Statut
Membre
Dernière intervention
30 septembre 2003

ça t'arrive d'écrire en français ?
et puis si ça t'éclate de croire que j'me plante ben éclates toi j'm'en fiche comme de l'an 40 :)
Afficher les 16 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.