Éditeur de citations

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

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.