Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

SYSTEME DE QUOTE SIMPLIFIÉ


Information sur la source

Catégorie :AddOns Niveau : Débutant Date de création : 24/08/2003 Date de mise à jour : 24/08/2003 18:40:26 Vu : 2 633

Note :
Aucune note

Commentaire sur cette source (16)
Ajouter un commentaire et/ou une note

Description

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

  • ;=== 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 ===
;=== 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 .

 

Commentaires et avis

signaler à un administrateur
Commentaire de SipiX le 24/08/2003 18:53:50

Moi je m'en suis fais un en input aussi, et ben j'vais le garder paske le tiens il est pas complet
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 (14Quote System) $read $mircdirquote.txt $+ }
}

C'est beaucoup plus pratique, même si ça ne sert complètement à rien ...

signaler à un administrateur
Commentaire de T0x1K le 24/08/2003 19:35:35

lol Asone ;)
C'est tres bien :)

signaler à un administrateur
Commentaire de Asone le 24/08/2003 20:14:27

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

signaler à un administrateur
Commentaire de abdoulax le 24/08/2003 20:32:25

ouai il fodrai mettre aussi halt à la fin parce kon voi tte les commande que tu entre .

et sinon rajouté un mode hasard :

if ( $1 == !hasard ) { .timer 1 1 msg $chan $read(quote.txt, $rand(1, $lines(quote.txt) ) ) }

signaler à un administrateur
Commentaire de Asone le 24/08/2003 20:39:52

ah ben je vois que mon mini systeme de Quote plait a certains et qu'il est assez maniable ... :)

editez le .. je n'ai fait que donner la base , a vous de le personnaliser comme vous le souhaitez :)

signaler à un administrateur
Commentaire de SipiX le 25/08/2003 03:19:49

Message de Asone déposé le 24/08/2003 20:14:27
--------------------------------------------------------------------------------

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

signaler à un administrateur
Commentaire de abdoulax le 25/08/2003 13:04:25

SipiX pr pas se fair flooder tu mes un timer :

on *:text:!quote*:#:timermsg 1 2 msg $chan $nick -> $read(quote.txt, $$2)

signaler à un administrateur
Commentaire de SipiX le 25/08/2003 21:27:00

c'est la même chose qu'il y ai un timer ou pas . . .
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 ?
:/

signaler à un administrateur
Commentaire de jujuquatre le 26/08/2003 09:40:03

Bha tu fait sa :

quotetimer {
  .timerquotetim 1 40 /unset %quotetim
}

on *:text:*!quote*:#:{
  if ( %quotetim != on ) {
    quotetimer
    set %quotetim on
/msg $chan $nick -> $read(quote.txt, $$2)
}
}

gOod ^^

signaler à un administrateur
Commentaire de SipiX le 26/08/2003 13:43:12

Voilà :)

signaler à un administrateur
Commentaire de abdoulax le 28/08/2003 20:43:09

lol als la tu te plante completement Sipix , c la 2eme fois kon me fé cet réfléxion , g t sur de moi au debut ms à force je me suis posé des question . als g retest et mon truc il est bon .

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

signaler à un administrateur
Commentaire de SipiX le 28/08/2003 21:14:15

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

signaler à un administrateur
Commentaire de abdoulax le 29/08/2003 13:09:03

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

signaler à un administrateur
Commentaire de SipiX le 02/09/2003 20:43:21

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 ?

signaler à un administrateur
Commentaire de cooled le 26/07/2004 04:48:25

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

signaler à un administrateur
Commentaire de Anatolei le 16/01/2006 13:20:27

on 1:input:*: {
  if ($1 == &quote) { /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.

Ajouter un commentaire



Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 1,966 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.