All pastes #796855 Raw Edit

Miscellany

public text v1 · immutable
#796855 ·published 2007-11-25 14:40 UTC
rendered paste body
menu channel {
  Q flags:q-flags
}
alias q-flags { dialog -m q-dialog q-dialog }
dialog q-dialog {
  title "Q-flags By DaNGeR_Boy"
  size -1 -1 117 132
  option dbu
  box "Options", 1, 1 -1 114 131
  button "banclear", 2, 5 10 34 10
  button "op", 3, 42 10 34 10
  button "invite", 4, 79 10 34 10
  button "removeuser", 5, 5 24 34 10
  button "banlist", 6, 42 24 34 10
  button "recover", 7, 79 24 34 10
  button "limit", 8, 5 37 34 10
  button "unbanall", 9, 42 38 34 10
  button "whois", 10, 79 38 34 10
  button "autolimit", 11, 5 51 34 10
  button "ban", 12, 42 51 34 10
  button "clearchan", 13, 79 51 34 10
  button "adduser", 14, 5 64 34 10
  button "settopic", 15, 42 64 34 10
  button "chanflags", 16, 79 64 34 10
  button "deopall", 17, 5 76 34 10
  button "bandel", 18, 42 76 34 10
  button "chanlev", 19, 79 76 34 10
  button "key ", 20, 5 88 34 10
  button "welcome", 21, 42 88 34 10
  button "voice", 22, 79 88 34 10
  button "hello", 23, 5 100 34 10
  button "auth", 24, 43 100 34 10
  button "newpass", 25, 79 100 34 10
  button "showcommands", 26, 4 112 53 14
  button "Close", 27, 60 112 53 14, ok cancel
}
on *:dialog:q-dialog:sclick:*:
  if ($did == 2) { msg Q BANCLEAR $active } 
  if ($did == 3) { msg Q OP $active } 
  if ($did == 4) { msg Q INVITE $active } 
  if ($did == 5) { msg Q REMOVEUSER $active $$?"Write Nick"  } 
  if ($did == 6) { msg Q BANLIST $active } 
  if ($did == 7) { msg Q RECOVER $active }
 // / /. . .
.  . . . . 
.  ............. noob.
  }
}