Éditeur de citations

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 869 fois - Téléchargée 26 fois

Contenu du snippet

j'ai fait ce truc pour mon script ,mais ça peut servir à d'autres donc je le met là..
c'est en dialog ça permet de créer des citations ça les loges dans un fichier txt et quand quelqu'un tape !jcvd ça en lit une au hasard
vous pouvez modifier comme vous voulez

Source / Exemple :


;codé par _NicX_
menu channel,query {
  [Citations]
  .Créer Citations:dialog -m mongol mongol 
  .Dire Citations:/msg $active $read(jcvd.txt)
}

dialog mongol {
  title "Citations"
  size -1 -1 262 119
  option dbu
  box "", 1, 1 1 260 105
  text "éditer", 2, 120 7 22 8, center
  edit "", 3, 5 17 253 53, multi return hsbar
  button "ok", 4, 241 73 13 8
  button "voir messages", 5, 180 93 39 10
  button "effacer tout", 6, 222 93 36 10
  text "Ce message sera ajouté à jcvd.txt ,vous pouvez également ajouter vos messages ", 7, 30 73 209 8, center
  text "en éditant le fichier texte.. ", 8, 30 82 210 8, center
  button "Fermer", 9, 232 107 27 10, ok
}

on *:dialog:mongol:sclick:4: { /write jcvd.txt $did(mongol,3) }
on *:dialog:mongol:sclick:5: { window @jcvd | mongolito }
on *:dialog:mongol:sclick:6: { write -c jcvd.txt }

alias mongolito {
  set %mongolito 0
  :mong
  inc %mongolito
  /echo @jcvd $read(jcvd.txt,%mongolito)
  if {$lines(jcvd.txt) != %mongolito) { goto mong }
  else { halt }
}

on *:text:!jcvd:*: {

  /msg $chan $read(jcvd.txt) 

}

A voir également

Ajouter un commentaire Commentaires
Messages postés
150
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
24 août 2010
2
Tout d'abord je trouve cette source pas mal du tout :) Mais quelques défaults bien sur (car personne n'est parfait) ; dans le code tes "/" ne servent strictement à rien :: premier "/" qui sert à rien :
on *:dialog:mongol:sclick:4: { /write jcvd.txt $did(mongol,3) }

Voila sinon j'ai pas testé mais je pense pas qu'il y ai d'autres bugs ;)
Messages postés
1
Date d'inscription
vendredi 23 janvier 2004
Statut
Membre
Dernière intervention
23 janvier 2004

/msg #vitriers $read(jcvd.txt)

cette ligne me retourne insuffisant parameters

pourquoi ???
Messages postés
19
Date d'inscription
jeudi 29 août 2002
Statut
Membre
Dernière intervention
22 décembre 2002

ben di donc tu t'arrette plus :)

->BELIAL
Messages postés
2
Date d'inscription
lundi 9 septembre 2002
Statut
Membre
Dernière intervention
9 septembre 2002

Vraiment facile a utiliser... agréable et pratique pour les petites blagues avec un Bot-Remote....

Bravo!!! J'adore!

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.