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
}