ÉDITEUR DE CITATIONS

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

}