Ircop Botserv dialog

By Gemster on Jan 31, 2010

This dialog is for ircops to add, del, set nobot chans and set botserv bots to private so they can only assigned by an oper. Private bots are also not shown in "/msg botserv botlist" to normal users.

To add just simple copy and paste in a new remotes (alt+r)
To use this you must be an ircop. Right click in a chan, niclist, pm or status and you will see the menu Botserv.

Have Fun
Gemster

P.S - I know i could add a command so the menu wont show unless u are an ircop but people who are not an ircop wont use this script.

alias Tdialog { dialog -m Tdialog Tdialog }
dialog Tdialog {
  title "[ Botserv ]"
  size -1 -1 192 191
  option dbu
  tab "Add/Del", 15, 8 5 176 180
  button "Add Bot", 6, 76 96 37 10, tab 15
  edit "<Bot Host.aka.vhost.goes.here>", 4, 24 80 145 10, tab 15 autohs center
  edit "<Bot  RealName>", 3, 52 64 87 10, tab 15 autohs center
  box "Bot Add", 5, 16 21 161 92, tab 15
  edit "<Bot  Nick>", 1, 52 32 87 10, tab 15 autohs center
  edit "<Bot  UserName>", 2, 52 48 87 10, tab 15 autohs center
  box "Bot Delete", 7, 16 117 161 44, tab 15
  edit "<Bot  Nick>", 8, 52 128 87 10, tab 15 autohs center
  button "Del Bot", 9, 76 144 37 10, tab 15
  tab "Extras", 16
  box "No Bot", 10, 16 21 161 76, tab 16
  edit "<#channel>", 11, 52 32 87 10, tab 16 autohs center
  button "On", 12, 73 48 17 10, tab 16
  button "Off", 13, 97 48 17 10, tab 16
  text "This option makes a channel be unassignable(No bot can be assigned to this channel). If a bot is already assigned to the channel, it is unassigned  automatically when you enable the option", 14, 24 63 145 27, tab 16 center
  box "Private Bot", 17, 16 101 161 68, tab 16
  edit "<Bot  Nick>", 18, 52 112 87 10, tab 16 autohs center
  text "This option prevents a bot from being assigned to a channel by users that aren't IRC operators.", 21, 24 144 145 17, tab 16 center
  button "On", 20, 73 128 17 10, tab 16
  button "Off", 19, 97 128 17 10, tab 16
  button "Done", 22, 76 171 37 12, ok
}

on *:dialog:Tdialog:sclick:6:{ msg botserv bot add $did(1) $did(2) $did(4) $did(3) }
on *:dialog:Tdialog:sclick:9:{ msg botserv bot del $did(8) }
on *:dialog:Tdialog:sclick:12:{ msg botserv set $did(11) nobot on }
on *:dialog:Tdialog:sclick:13:{ msg botserv set $did(11) nobot off }
on *:dialog:Tdialog:sclick:19:{ msg botserv set $did(18) private off }
on *:dialog:Tdialog:sclick:20:{ msg botserv set $did(18) private on }

menu channel,menubar,query,status {
Botserv:/Tdialog }

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.