- dialog ctcprep {
- title "CTCP reply"
- size -1 -1 160 168
- option dbu notheme
- edit %ver, 1, 16 32 126 10
- edit %pin, 2, 16 56 126 10
- edit %tim, 3, 16 80 126 10
- edit %fin, 4, 16 104 126 10
- button "DEFINIR", 5, 32 128 37 12, ok
- button "ANNULER", 6, 88 128 37 12, cancel
- box "Choisit un texte a retourner pour les evenements suivant", 7, 8 8 144 150
- text "VERSION", 8, 55 20 45 10, center
- text "PING", 9, 55 44 45 10, center
- text "TIMER", 10, 55 68 45 10, center
- text "FINGER", 11, 55 92 45 10, center
- }
-
-
- on *:dialog:ctcprep:edit:1: {
- unset %ver
- set -n %ver $did(1)
- }
-
- on *:dialog:ctcprep:edit:2: {
- unset %pin
- set -n %pin $did(2)
- }
-
- on *:dialog:ctcprep:edit:3: {
- unset %tim
- set -n %tim $did(3)
- }
-
- on *:dialog:ctcprep:edit:4: {
- unset %fin
- set -n %fin $did(4)
- }
-
-
- ctcp *:version:?: {
- .notice $nick %ver
- msg $me Il y a $nick qui veut ta version!
- halt
- }
-
-
- ctcp *:ping:?: {
- .notice $nick %pin
- msg $me Il y a $nick qui veut savoir si tu lagg!(PING)
- halt
- }
-
-
- ctcp *:time:?: {
- .notice $nick %tim
- msg $me Il y a $nick qui veut connaître l'heure!
- halt
- }
-
-
- ctcp *:finger:?: {
- .notice $nick %fin
- msg $me $nick veut connaître ton "FINGER"!
- halt
- }
-
- alias ctcp_reply dialog -m ctcprep ctcprep
dialog ctcprep {
title "CTCP reply"
size -1 -1 160 168
option dbu notheme
edit %ver, 1, 16 32 126 10
edit %pin, 2, 16 56 126 10
edit %tim, 3, 16 80 126 10
edit %fin, 4, 16 104 126 10
button "DEFINIR", 5, 32 128 37 12, ok
button "ANNULER", 6, 88 128 37 12, cancel
box "Choisit un texte a retourner pour les evenements suivant", 7, 8 8 144 150
text "VERSION", 8, 55 20 45 10, center
text "PING", 9, 55 44 45 10, center
text "TIMER", 10, 55 68 45 10, center
text "FINGER", 11, 55 92 45 10, center
}
on *:dialog:ctcprep:edit:1: {
unset %ver
set -n %ver $did(1)
}
on *:dialog:ctcprep:edit:2: {
unset %pin
set -n %pin $did(2)
}
on *:dialog:ctcprep:edit:3: {
unset %tim
set -n %tim $did(3)
}
on *:dialog:ctcprep:edit:4: {
unset %fin
set -n %fin $did(4)
}
ctcp *:version:?: {
.notice $nick %ver
msg $me Il y a $nick qui veut ta version!
halt
}
ctcp *:ping:?: {
.notice $nick %pin
msg $me Il y a $nick qui veut savoir si tu lagg!(PING)
halt
}
ctcp *:time:?: {
.notice $nick %tim
msg $me Il y a $nick qui veut connaître l'heure!
halt
}
ctcp *:finger:?: {
.notice $nick %fin
msg $me $nick veut connaître ton "FINGER"!
halt
}
alias ctcp_reply dialog -m ctcprep ctcprep