X Commander

By G13AoUsTiS on Jan 01, 2008

a snippet for controling X undernet easily

dialog xcmd {
  title "X Commands"
  size -1 -1 168 138
  option dbu
  button "OP", 1, 6 10 37 12
  button "DEOP", 2, 47 10 37 12
  button "VOICE", 3, 88 10 37 12
  button "DEVOICE", 4, 128 10 37 12
  button "BAN", 5, 7 28 37 12
  button "UNBAN", 6, 48 28 37 12
  button "KICK", 7, 89 28 37 12
  button "INVITE", 8, 128 28 37 12
  button "ACCESS", 9, 48 45 37 12
  button "CHANINFO", 10, 89 45 37 12
  button "LOGIN", 11, 129 45 37 12
  button "STATUS", 12, 7 45 37 12
  button "JOIN", 13, 7 63 37 12
  button "PART", 14, 48 63 37 12
  button "INFO", 15, 89 63 37 12
  button "TAKEOVER", 16, 128 63 37 12
  button "MODACC", 17, 48 82 37 12
  button "AUTOMODE", 18, 88 82 37 12
  button "DESCRIPTION", 19, 128 82 37 12
  button "TOPIC", 20, 7 82 37 12
  button "ADDUSER", 21, 8 100 37 12
  button "REMUSER", 22, 48 100 37 12
  button "VERIFY", 23, 129 100 37 12
  button "DEAUTH", 24, 89 100 37 12
  button "DONE", 25, 17 118 141 12, flat, ok
}

on *:dialog:xcmd:sclick:*: {
  if ($did == 1) { /msg X op $active $$?="What NickName?" }
  if ($did == 2) { /msg X deop $active $$?="What NickName?" }
  if ($did == 3) { /msg X voice $active $$?="What NickName?" }
  if ($did == 4) { /msg X devoice $active $$?="What NickName?" }
  if ($did == 5) { /msg X ban $active $$?="What NickName Or Host?" $$?="Reason?" }
  if ($did == 6) { /msg X unban $active $$?="What NickName Or Host?" }
  if ($did == 7) { /msg X kick $active $$?="What NickName?" $$?="Reason?" }
  if ($did == 8) { /msg X invite $active $$?="What NickName?" }
  if ($did == 9) { /msg X access $active $$?="What Username?" }
  if ($did == 10) { /msg X chaninfo $active  }
  if ($did == 11) { /msg X login $$?="Username" $$?="PassWord" }
  if ($did == 12) { /msg X status $active }
  if ($did == 13) { /msg X join $active  }
  if ($did == 14) { /msg X part $active }
  if ($did == 15) { /msg X info $$?="Username"  }
  if ($did == 16) { /msg X ban $active *!*@* TakeOver Activated }
  if ($did == 17) { /msg X modinfo $active access $$?="Username" $$?="Level" }
  if ($did == 18) { /msg X modinfo $active automode $$?="Username" $$?="Mode (OP,Voice,None)" }
  if ($did == 19) { /msg X set $active desc $$?="Description"  }
  if ($did == 20) { /msg X topic $active $$?="Topic" }
  if ($did == 21) { /msg X adduser $active $$?="Username" $$?="level" }
  if ($did == 22) { /msg X remuser $active $$?="Username" }
  if ($did == 23) { /msg X verify $$?="Username"  }
  if ($did == 24) { /msg X deauth $active }
}

menu channel {
  -
  X Commands: /dialog -m xcmd xcmd 
}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.