Post by Anti on Jul 14, 2003 22:14:14 GMT -5
alias ktool { return dll/ktools.dll }
alias udll { return dll/mdx.dll }
alias vdll { return dll/views.mdx }
alias mdx.load { dll $udll SetMircVersion $version | dll $udll MarkDialog $dname }
alias muh { /dialog -m switchbar switchbar }
dialog switchbar {
title "switchbar"
size -1 -1 170 612
option pixels
list 1, 13 22 150 200, size
box "Info.", 16, 5 7 167 220
button "Mass Owner", 2, 8 248 75 17
button "Mass Deowner", 3, 88 248 75 17
button "Mass Op", 4, 88 268 75 17
button "Mass Deop", 5, 8 268 75 17
box "Mass Modes", 6, 3 230 165 69
list 19, 6 368 122 160, size
box "Current Passport", 20, 2 550 166 55
edit "", 21, 5 570 130 22, autohs
box "Passport", 22, 2 355 136 180
button "Update", 23, 65 313 55 16
button "Add", 42, 65 330 55 16
button "Remove", 43, 6 330 55 16
button "Edit", 44, 6 313 55 16
}
on *:dialog:switchbar:init:0:{
dll $udll SetMircVersion $version
dll $udll MarkDialog $dname
dll dll/mdx.dll SetDialog $dname style
dll dll/mdx.dll SetControlMDX $dname 1 treeview haslines hasbuttons showsel rowselect insertdroptarget > $vdll
dll dll/ktools.dll DockWindow $dialog(switchbar).hwnd > left
did -c switchbar1 5 1
}
on *:dialog:switchbar:init:0:{
mdx.load
dll $udll SetControlMDX $dname 1 treeview haslines hasbuttons showsel rowselect insertdroptarget > $vdll
dll $udll SetDialog $dname style
var %s = $dll($ktool,DockWindow,$dialog(switchbar).hwnd > left)
did -c switchbar 5 1
load.switchbar
}
on *:dialog:switchbar:sclick:2: {
qa
}
on *:dialog:switchbar:sclick:3: {
took
}
on *:dialog:switchbar:sclick:4: {
oa
}
on *:dialog:switchbar:sclick:5: {
da
}
on *:dialog:switchbar:init:0:{
set %x 1
while (%x <= $ini($passdir,0)) {
did -a switchbar 19 $ini($passdir,%x)
inc %x
}
}
on *:dialog:switchbar:sclick:39:{
if ($did(switchbar,39).state == 1) { /writeini -n $condir Options RGK on }
else { writeini -n $condir Options RGK off }
}
on *:dialog:switchbar:sclick:19:{
did -o switchbar 42 1 $readini($passdir,$did(switchbar,15).seltext,Login)
}
on *:dialog:switchbar:sclick:44:{
set %user $readini($passdir,$did(switchbar,15).seltext,Login)
set %pass $readini($passdir,$did(switchbar,15).seltext,Password)
update
}
on *:dialog:switchbar:sclick:42:{
dialog -m pdat pdat
}
on *:dialog:switchbar:sclick:43:{
/remini $passdir $did(switchbar,19).seltext
did -d switchbar 15 $did(switchbar,19).sel
}
on *:dialog:switchbar:sclick:8:{
reg
}
alias redir { return $+(",$shortfn($scriptdirrecent.txt),") }
alias condir { return $+(",$shortfn($scriptdirdata.ini),") }
alias passdir { return $+(",$shortfn($scriptdirpass.ini),") }
alias sd { return $+(",$shortfn($scriptdirnhtmln.dll),") }
on *:dialog:switchbar:sclick:14:{
set %version $did(13).text
/writeini -n $condir Options Version %version
}
on *:dialog:switchbar:sclick:19:{
did -o switchbar 42 1 $readini($passdir,$did(switchbar,19).seltext,Login)
}
on *:dialog:switchbar:sclick:44:{
set %user $readini($passdir,$did(switchbar,19).seltext,Login)
set %pass $readini($passdir,$did(switchbar,19).seltext,Password)
update
}
on *:dialog:switchbar:sclick:42:{
dialog -m pdat pdat
}
on *:dialog:switchbar:sclick:43:{
/remini $passdir $did(switchbar,19).seltext
did -d switchbar 19 $did(switchbar,19).sel
}
on *:dialog:switchbar:sclick:8:{
reg
}
alias load.switchbar {
did -r switchbar 1
var %a = 1
while (%a <= $scid(0)) {
scon %a
did -i switchbar 1 1 cb root
did -a switchbar 1 $iif($server != $null,+eb 1 1 $server,+eb 1 1 Not Connected)
did -i switchbar 1 1 cb last
did -a switchbar 1 +e 2 2 Rooms $+($chr(40),$channel(0),$chr(41))
did -i switchbar 1 1 cb last
var %x = 1
while (%x <= $chan(0)) {
did -a switchbar 1 + 2 2 $room($chan(%x))
inc %x
}
did -i switchbar 1 1 cb up
did -a switchbar 1 +e 3 3 Whispers $+($chr(40),$query(0),$chr(41))
did -i switchbar 1 1 cb last
var %x = 1
while (%x <= $query(0)) {
did -a switchbar 1 + 3 3 $heh($query(%x))
inc %x
}
inc %a
}
}
alias ktool { return dlls/ktools.dll }
alias udll { return dlls/mdx.dll }
alias vdll { return dlls/views.mdx }
alias mdx.load { dll $udll SetMircVersion $version | dll $udll MarkDialog $dname }
alias query { query $1- | .timer -m 1 1 load.switchbar }
alias server { server $1- | .timer -m 1 1 load.switchbar }
on *:join:#:{ if ($nick == $me) { .timer -m 1 1 load.switchbar } }
on *:connect:{ .timer -m 1 1 load.switchbar }
on *:part:#:{ if ($nick == $me) { .timer -m 1 1 load.switchbar } }
on *:open:@:{ .dialog -m switchbar switchbar | .timer -m 1 1 load.switchbar }
on *:close:@:{ .timer -m 1 1 load.switchbar }
on *:open:?:{ .timer -m 1 1 load.switchbar }
on *:close:?:{ .timer -m 1 1 load.switchbar }
on *:close:*:{ if ($target == "status window") { .timer -m 1 1 load.switchbar } }
on *:dialog:switchbar:sclick:*:{
tokenize 32 $did(1,1,1)
if ($4 <= $calc($scid(0) + 1)) && (!$5) {
scon $calc($4 - 1)
window -a "status window"
st
}
elseif ($5 = 2) && ($6) {
scon $calc($4 - 1)
window -a $chan($calc($6 - 1))
st
}
elseif ($5 = 3) && ($6) {
scon $calc($4 - 1)
window -a $query($calc($6 - 1))
}
elseif ($4 = $calc($scid(0) + 2)) && ($5) {
window -a $window($calc($5 - 1))
}
}
Does anyone know whats rong wit it
alias udll { return dll/mdx.dll }
alias vdll { return dll/views.mdx }
alias mdx.load { dll $udll SetMircVersion $version | dll $udll MarkDialog $dname }
alias muh { /dialog -m switchbar switchbar }
dialog switchbar {
title "switchbar"
size -1 -1 170 612
option pixels
list 1, 13 22 150 200, size
box "Info.", 16, 5 7 167 220
button "Mass Owner", 2, 8 248 75 17
button "Mass Deowner", 3, 88 248 75 17
button "Mass Op", 4, 88 268 75 17
button "Mass Deop", 5, 8 268 75 17
box "Mass Modes", 6, 3 230 165 69
list 19, 6 368 122 160, size
box "Current Passport", 20, 2 550 166 55
edit "", 21, 5 570 130 22, autohs
box "Passport", 22, 2 355 136 180
button "Update", 23, 65 313 55 16
button "Add", 42, 65 330 55 16
button "Remove", 43, 6 330 55 16
button "Edit", 44, 6 313 55 16
}
on *:dialog:switchbar:init:0:{
dll $udll SetMircVersion $version
dll $udll MarkDialog $dname
dll dll/mdx.dll SetDialog $dname style
dll dll/mdx.dll SetControlMDX $dname 1 treeview haslines hasbuttons showsel rowselect insertdroptarget > $vdll
dll dll/ktools.dll DockWindow $dialog(switchbar).hwnd > left
did -c switchbar1 5 1
}
on *:dialog:switchbar:init:0:{
mdx.load
dll $udll SetControlMDX $dname 1 treeview haslines hasbuttons showsel rowselect insertdroptarget > $vdll
dll $udll SetDialog $dname style
var %s = $dll($ktool,DockWindow,$dialog(switchbar).hwnd > left)
did -c switchbar 5 1
load.switchbar
}
on *:dialog:switchbar:sclick:2: {
qa
}
on *:dialog:switchbar:sclick:3: {
took
}
on *:dialog:switchbar:sclick:4: {
oa
}
on *:dialog:switchbar:sclick:5: {
da
}
on *:dialog:switchbar:init:0:{
set %x 1
while (%x <= $ini($passdir,0)) {
did -a switchbar 19 $ini($passdir,%x)
inc %x
}
}
on *:dialog:switchbar:sclick:39:{
if ($did(switchbar,39).state == 1) { /writeini -n $condir Options RGK on }
else { writeini -n $condir Options RGK off }
}
on *:dialog:switchbar:sclick:19:{
did -o switchbar 42 1 $readini($passdir,$did(switchbar,15).seltext,Login)
}
on *:dialog:switchbar:sclick:44:{
set %user $readini($passdir,$did(switchbar,15).seltext,Login)
set %pass $readini($passdir,$did(switchbar,15).seltext,Password)
update
}
on *:dialog:switchbar:sclick:42:{
dialog -m pdat pdat
}
on *:dialog:switchbar:sclick:43:{
/remini $passdir $did(switchbar,19).seltext
did -d switchbar 15 $did(switchbar,19).sel
}
on *:dialog:switchbar:sclick:8:{
reg
}
alias redir { return $+(",$shortfn($scriptdirrecent.txt),") }
alias condir { return $+(",$shortfn($scriptdirdata.ini),") }
alias passdir { return $+(",$shortfn($scriptdirpass.ini),") }
alias sd { return $+(",$shortfn($scriptdirnhtmln.dll),") }
on *:dialog:switchbar:sclick:14:{
set %version $did(13).text
/writeini -n $condir Options Version %version
}
on *:dialog:switchbar:sclick:19:{
did -o switchbar 42 1 $readini($passdir,$did(switchbar,19).seltext,Login)
}
on *:dialog:switchbar:sclick:44:{
set %user $readini($passdir,$did(switchbar,19).seltext,Login)
set %pass $readini($passdir,$did(switchbar,19).seltext,Password)
update
}
on *:dialog:switchbar:sclick:42:{
dialog -m pdat pdat
}
on *:dialog:switchbar:sclick:43:{
/remini $passdir $did(switchbar,19).seltext
did -d switchbar 19 $did(switchbar,19).sel
}
on *:dialog:switchbar:sclick:8:{
reg
}
alias load.switchbar {
did -r switchbar 1
var %a = 1
while (%a <= $scid(0)) {
scon %a
did -i switchbar 1 1 cb root
did -a switchbar 1 $iif($server != $null,+eb 1 1 $server,+eb 1 1 Not Connected)
did -i switchbar 1 1 cb last
did -a switchbar 1 +e 2 2 Rooms $+($chr(40),$channel(0),$chr(41))
did -i switchbar 1 1 cb last
var %x = 1
while (%x <= $chan(0)) {
did -a switchbar 1 + 2 2 $room($chan(%x))
inc %x
}
did -i switchbar 1 1 cb up
did -a switchbar 1 +e 3 3 Whispers $+($chr(40),$query(0),$chr(41))
did -i switchbar 1 1 cb last
var %x = 1
while (%x <= $query(0)) {
did -a switchbar 1 + 3 3 $heh($query(%x))
inc %x
}
inc %a
}
}
alias ktool { return dlls/ktools.dll }
alias udll { return dlls/mdx.dll }
alias vdll { return dlls/views.mdx }
alias mdx.load { dll $udll SetMircVersion $version | dll $udll MarkDialog $dname }
alias query { query $1- | .timer -m 1 1 load.switchbar }
alias server { server $1- | .timer -m 1 1 load.switchbar }
on *:join:#:{ if ($nick == $me) { .timer -m 1 1 load.switchbar } }
on *:connect:{ .timer -m 1 1 load.switchbar }
on *:part:#:{ if ($nick == $me) { .timer -m 1 1 load.switchbar } }
on *:open:@:{ .dialog -m switchbar switchbar | .timer -m 1 1 load.switchbar }
on *:close:@:{ .timer -m 1 1 load.switchbar }
on *:open:?:{ .timer -m 1 1 load.switchbar }
on *:close:?:{ .timer -m 1 1 load.switchbar }
on *:close:*:{ if ($target == "status window") { .timer -m 1 1 load.switchbar } }
on *:dialog:switchbar:sclick:*:{
tokenize 32 $did(1,1,1)
if ($4 <= $calc($scid(0) + 1)) && (!$5) {
scon $calc($4 - 1)
window -a "status window"
st
}
elseif ($5 = 2) && ($6) {
scon $calc($4 - 1)
window -a $chan($calc($6 - 1))
st
}
elseif ($5 = 3) && ($6) {
scon $calc($4 - 1)
window -a $query($calc($6 - 1))
}
elseif ($4 = $calc($scid(0) + 2)) && ($5) {
window -a $window($calc($5 - 1))
}
}
Does anyone know whats rong wit it