begin process at 2012 02 08 18:40:32
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > SYSTEME DE QUOTE SIMPLIFIÉ

SYSTEME DE QUOTE SIMPLIFIÉ


 Information sur la source

Note :
Aucune note
Catégorie :AddOns Niveau :Débutant Date de création :24/08/2003 Date de mise à jour :24/08/2003 18:40:26 Vu :3 413

Auteur : Asone

Ecrire un message privé
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 .


 Sources de la même categorie

PACMAN MULTI-JOUEUR EN LIGNE par wims
PROXY&SOCKS SCANNER+LEECHER par independentt
GESTIONNAIRE DE HIGHLIGHT AVANCÉ AVEC IGNORE SALON OU PSEUDO par doob666
AUTOJOIN HTABLE MULTISERVER par doob666
TCL - AJOUT SUPPRESSION DE LOGS par Atok

Commentaires et avis

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

Commentaire de T0x1K le 24/08/2003 19:35:35

lol Asone ;)
C'est tres bien :)

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

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

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

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

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)

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 ?
:/

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

Commentaire de SipiX le 26/08/2003 13:43:12

Voilà :)

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

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

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

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 ?

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

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


Appels d'offres

Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,420 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales