All pastes #585461 Raw Edit

Someone

public text v1 · immutable
·published 2007-06-23 08:35 UTC
rendered paste body
dialog 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!)
}