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