rendered paste bodydialog helpop {
title "Help0p Request"
size -1 -1 120 163
option dbu
box "Help Operator", 1, 2 0 117 135
text "Request From:", 2, 8 13 37 8
edit "", 3, 46 12 69 10, read
text "Version:", 4, 8 23 36 8
text "Time:", 5, 8 33 36 8
text "Ping:", 6, 8 43 25 8
edit "", 7, 46 22 69 10, read
edit "", 8, 46 32 69 10, read
edit "", 9, 46 42 69 10, read
text "User", 10, 54 57 12 8
edit "", 11, 8 65 105 10
text "Status", 12, 52 78 18 8
edit "", 13, 9 86 105 10
text "Question", 14, 49 97 25 8
edit "", 15, 9 106 104 26, multi return autovs
button "Respond", 16, 43 143 37 12
}
on 1:SNOTICE:*: {
if (*** HelpOp -- from isin $1-) {
dialog -md helpop helpop
did -ra helpop 3,11 $5
did -ra helpop 13 $remove($6,$chr(40),$chr(41),:)
did -ra helpop 15 $7-
.ctcp $5 ping
.ctcp $5 time
.ctcp $5 version
}
}
on 1:CTCPREPLY:VERSION*: { did -ra helpop 7 $2- }
on 1:CTCPREPLY:TIME*: { did -ra helpop 8 $2- }
on 1:CTCPREPLY:PING*: { did -ra helpop 9 $duration($calc($ctime - $2)) }
on *:DIALOG:helpop:sclick:16: {
msg $did(3) $+($chr(3),10,[,$chr(3),4,HelpOperator,$chr(3),10,],$chr(3),2,$chr(32),Hello $did(3),$chr(44),$chr(32),Please state your question!)
}