;========= = - -;Op Conference v1.5;By Asriel;mirc version: 6.02+ (does't work with anything but);-------- - -;It's not much to oogle over;so don't feel bad about stealing;or deleting it...;========= = - -;To install, just put this file;Wherever and type; /load -rs wherever\the\file\is\opconf.mrc;Enjoy it.;-------- - -on *:load: { if ($version < 6.02) { /echo -a Your version of mirc is too old, get with it. /unload -rs " $+ $scriptdir $+ opconf.mrc $+ " /halt}else { set %autopop $true /echo -a Op Conference Script by Asriel loaded! /echo -a Type /ops to initiate an ops conference}};========= = - -; Dialogs;========= = - -dialog op_conf { title "Op Conference" size -1 -1 231 158 option dbu edit "", 2, 3 141 176 13, multi autohs button "Send Message", 3, 182 142 44 12, default list 4, 181 4 45 135, size edit "", 1, 3 4 176 135, multi vsbar};========= = - -; Remotes;========= = - -on ^*:notice:*:*: { ;-------- - - ;When you get a notice... ;-------- - - if ($target == $+(@,$chan)) { ;-------- - - ; Is it an op notice... ;-------- - - if ((!$dialog(op_conf)) && (%autopop == $true)) { ;-------- - - ; If the /ops dialog isn't open, open it.. ;-------- - - set %chan $chan dialog -md op_conf op_conf dialog -t op_conf Op Conference: %chan } ;-------- - - ; Add the initial notice to the list ;-------- - - did -a op_conf 1 $+([,$nick,]) $1- $crlf } halt}on ^*:text:*:*: { ;-------- - - ;When you get a msg... ;-------- - - if ($target == $+(@,$chan)) { ;-------- - - ; Is it an op msg... ;-------- - - if ((!$dialog(op_conf)) && (%autopop == $true)) { ;-------- - - ; If the /ops dialog isn't open, open it.. ;-------- - - set %chan $chan dialog -md op_conf op_conf dialog -t op_conf Op Conference: %chan } ;-------- - - ; Add the initial notice to the list ;-------- - - did -a op_conf 1 $+([,$nick,]) $1- $crlf } halt};-------- - -; When you click 'Send Message'..;-------- - -on *:DIALOG:op_conf:sclick:3: { ;-------- - - ; Op notice the chan, and update the window ;-------- - - //onotice %chan $did(op_conf,2) did -a op_conf 1 $+([,$me,]) $did(op_conf,2) $crlf did -r op_conf 2 ;Clear the editbox did -f op_conf 2 ;Select the editbox, so you can start typing ;without having to re-click the box};-------- - -; When the window opens...;-------- - -on *:DIALOG:op_conf:init:*: { ;-------- - - ; /op_list scans for the ops in the room, and ; adds them to the list in the window ;-------- - - op_list ;-------- - - ; /list_refresh sets a timer to refresh the nicklist ; in case someone gets deoped or joins, or whatever.. ;-------- - - list_refresh};-------- - -; When you close..;-------- - -on *:DIALOG:op_conf:close:*: { ;-------- - - ; Unset all the [gasp] variables! ;-------- - - unset %chan unset %ops timer.refresh off timer.refresh1 off};-------- - -; When you doubleclick a name...;-------- - -on *:DIALOG:op_conf:dclick:4: { ;-------- - - ; Get rid of the @'s and queries the dude.. ;-------- - - set %nick $replace($did(op_conf,4).seltext,@,$null) query %nick unset %nick};========= = - -; Aliases;========= = - -alias -l op_list { ;-------- - - ; This crazy business scans for ; ops in the room, and adds them to a tokenlist ; THEN adds them to the list in the window ;-------- - - var %a = $nick(# $+ %chan,0,o) while (%a) { set %ops $addtok(%ops,$nick(# $+ %chan,%a,o),46) dec %a } set %ops $sorttok(%ops,46) set %x 1 while (%x <= $nick(# $+ %chan,0,o)) { set %name $+(@,$gettok(%ops,%x,46)) did -a op_conf 4 %name inc %x } unset %name unset %x}alias ops { if (!$dialog(op_conf)) { set %chan $chan dialog -md op_conf op_conf dialog -t op_conf Op Conference: %chan if ($1) opsay $1- if ($1) did -a op_conf 1 $+([,$me,]) $1- } else { ;-------- - - ; If the dialog is open, bring it to front (then unlock) ;-------- - - dialog -o op_conf op_conf dialog -n op_conf op_conf }}alias -l list_refresh { .timer.refresh 0 30 did -r op_conf 4 .timer.refresh1 0 30 op_list}alias opsay { //onotice %chan $1-};========= = - -; Popup.. yawn;========= = - -;-------- - -; People didn't like it automaticaly poping up, so; I added a toggle;-------- - -menu channel { Op Conference .Open Op Conference: /ops .- .Turn AutoPopup $iif(%autopop == $true, OFF, ON): $iif(%autopop == $true, set %autopop $false, set %autopop $true) ;If autopop is on, it will only show "turn OFF", and if it's off.. it will only show "Turn ON"};========= = - -; End Script;========= = - -