COMMANDE IRCOP

alias multi dialog -m multi multi
dialog multi {
  title "multi-fonction by Groudn"
  size -1 -1 187 130
  option dbu
  box "ircop", 1, 144 2 43 127
  box "Utilitaires", 2, -3 104 147 26
  text "Pseudo:", 3, 3 94 25 8
  edit %name, 4, 22 93 58 10
  text "Raison", 5, 2 82 25 8
  edit %raison, 6, 23 80 117 10
  text "Chan", 7, 3 68 25 8
  edit %chan, 8, 18 67 72 9
  text "Se dialog est un dialog regroupent plusieur fonction utile  whois commende op  admin ect..", 9, 1 44 80 20
  box "commande op", 10, 2 1 143 20
  button "killed", 11, 147 9 37 12
  button "GeTpAsS", 12, 148 24 37 12
  button "Cs GeTpAss", 13, 148 39 37 12
  button "Gline", 14, 148 54 37 12
  button "Sajoin", 15, 147 70 37 19
  button "Sapart", 16, 147 94 37 29
  button "Whois", 17, 4 114 37 12
  button "Dns", 18, 50 114 37 12
  button "Query", 19, 98 113 37 12
  button "kick", 20, 5 8 37 10
  button "kickban", 21, 44 8 37 10
  button "op", 22, 83 6 37 12
  button "deop", 23, 121 6 23 12
}
on *:dialog:multi:edit:4: { set %name $did(multi,4) }
on *:dialog:multi:edit:6: { set %raison $did(multi,6) }
on *:dialog:multi:edit:8: { set %chan $did(multi,8) }
on *:dialog:multi:sclick:*: {
if ($did == 11) { kill %name %raison }
if ($did == 12) { msg nickserv getpass %name }
if ($did == 13) { msg Chanserv getpass %chan }
if ($did == 14) { gline %name %raison }
if ($did == 15) { sajoin %name %chan }
if ($did == 16) { sapart %name %chan }
if ($did == 17) { who %name }
if ($did == 18) { dns %name }
if ($did == 19) { query %name }
if ($did == 20) { kick %chan %name %raison }
if ($did == 21) { mode %chan +b %name | kick %chan %name }
if ($did == 22) { mode %chan +o %name }
if ($did == 23) { mode %chan -o %name }
elseif { halt }