Forums Scripts & Popups Mirc Channel Central

i made a dialog similar to mircs channel central but like if a room is +l i need help getting that to show in the right spot but if its +l and +k and +f and +L how do i get the right info in the right spot? thanx k1ll3rz

• 
  if (k isincs $chan($active).mode) {
  did -c dname id_of_key_checkbox
  did -a dname id_of_key_editbox $chan($active).key
  }
  if (l isincs $chan($active).mode) {
  did -c dname id_of_limit_checkbox
  did -a dname id_of_limit_editbox $chan($active).limit
  }
  if (i isincs $chan($active).mode) { did -c dname id_of_invite_checkbox }

Etc

Sorry if that's not too clear, but I can't think of any other way to explain it.

those werk but wut im wondering how to do is find the link to when full chan and the flood protection stuff. thanx

I don't understand, could you rephrase the question please?

when a room is full you can have users automatically go to another room. how do i do this?

there is a channel command +f and was needing to know the info to get it to show in the dialog when its open. how do i do this?


thanx

Not sure about the first question.

As for +f, it looks quite complicated, try this:

• 
  if ([ *]:* iswm $gettok($chan($active).mode),2-,32) && (f isincs $chan($active).mode) {
  var %f = $wildtok($chan($active).mode,[ *]:*,1,32)
  did -c dname id_of_flood_checkbox
  did -a dname id_of_flood_seconds_editbox $gettok(%f,2,58)
  .echo -q $regex(j,%f,/j(\d+)/)
  .echo -q $regex(m,%f,/m(\d+)/)
  .echo -q $regex(n,%f,/n(\d+)/)
  .echo -q $regex($chr(35),%f,/ $+ $chr(35) $+ (\w+)/)
  did -a dname id_of_joins_editbox $regml(j,1)
  did -a dname id_of_messages_editbox $regml(m,1)
  did -a dname id_of_nicks_editbox $regml(n,1)
  did -a dname id_of_modes_editbox $regml($chr(35),1)
  }

The above presumes the +f mode you are talking about is in the same format as the one documented on this webpage.

On the first and second line you need to remove the spaces from [ *], I had to use [ *] because without spaces it creates a bullet point.

wud u need to see my mirc channel central to see what i mean?

If that's not what you wanted, yes.

;Mirc Channel Central
dialog channelcentral {
title "Channel Central"
icon tha ballaz script.ico, 0
size -1 -1 254 179
option dbu
tab "Channel Modes", 1, 0 1 251 155
tab "Ban List", 32
tab "Exempt List", 37
tab "Topic History", 41
check "No Color Messages", 2, 16 25 60 10, tab 1 group
check "Flood Protection", 3, 16 33 50 10, tab 1 group
check "Secret", 16, 16 137 50 10, tab 1 group
check "Bad Word Filter", 21, 112 57 50 10, tab 1 group
check "Only Registered Nickname Can Talk", 22, 112 65 100 10, tab 1 group
check "Registered", 15, 16 129 50 10, tab 1 group
check "Private", 14, 16 121 50 10, tab 1 group
check "Channel To Join When Full", 23, 112 73 84 10, tab 1 group
check "No Nickname Changes", 25, 112 89 66 10, tab 1 group
check "Strip Mirc Color Codes", 29, 112 121 65 10, tab 1 group
check "No Invites Allowed", 30, 112 129 56 10, tab 1 group
check "Auditorium Modes", 31, 112 137 55 10, tab 1 group
check "Only Registered Nickname Can Join", 28, 112 113 100 10, tab 1 group
check "No Kicking", 27, 112 105 50 10, tab 1 group
check "IRCOP Only", 26, 112 97 40 10, tab 1 group
check "No CTCP Messages", 20, 112 49 61 10, tab 1 group
check "Server/NetAdmin Only", 19, 112 41 66 10, tab 1 group
check "Only Ops Can Change Topic", 17, 112 25 79 10, tab 1 group
check "Only Clients On Secure Connection Can Join", 18, 112 33 116 10, tab 1 group
edit "", 6, 24 57 64 10, tab 1 group
edit "", 5, 24 49 55 10, tab 1 group
edit "", 4, 24 41 69 10, tab 1 group autohs
;6- seconds to trigger
;5- lines to trigger
;4- autoban word
edit "", 24, 120 81 50 10, tab 1 group autohs
;24-channel when full
check "Invite Only", 7, 16 65 50 10, tab 1 group
check "Join Key", 8, 16 73 32 10, tab 1 group
edit "", 9, 24 81 52 10, tab 1 group
;9 - join key
check "Maximum Users", 10, 16 89 50 10, tab 1 group
edit "", 11, 24 97 30 10, tab 1 group
;11 - users
check "No Outside Messages", 13, 16 113 65 10, tab 1 group
check "Moderated", 12, 16 105 39 10, tab 1 group
list 36, 2 14 214 144, tab 32 vsbar size sort
button "View", 38, 216 43 30 11, tab 32
button "Delete", 39, 216 58 30 11, tab 32
button "Add", 42, 216 27 30 12, tab 32
list 44, 2 14 214 141, tab 37 vsbar size sort
button "Add", 45, 217 27 30 12, tab 37
button "View", 46, 217 43 30 11, tab 37
button "Delete", 47, 217 58 30 11, tab 37
combo 43, 1 14 250 145, tab 41 edit hsbar size
button "OK", 33, 16 164 37 12, ok
button "Apply Changes", 34, 110 163 42 12
button "Cancel", 35, 200 163 37 12, cancel
check "No Knocking", 52, 112 145 50 10, tab 1
}
on 1:dialog:channelcentral:sclick:34: {
if ($did(2).state = 0) { mode %chan1 -c }
if ($did(2).state = 1) { mode %chan1 +c }
if ($did(3).state = 0) { mode %chan1 -f $did(4) $did(5) $did(6) }
if ($did(3).state = 1) { mode %chan1 +f $did(4) $did(5) $did(6) }
if ($did(7).state = 0) { mode %chan1 -i }
if ($did(7).state = 1) { mode %chan1 +i }
if ($did(8).state = 0) { mode %chan1 -k $did(9) }
if ($did(8).state = 1) { mode %chan1 +k $did(9) }
if ($did(10).state = 0) { mode %chan1 -l $did(11) }
if ($did(10).state = 1) { mode %chan1 +l $did(11) }
if ($did(12).state = 0) { mode %chan1 -m }
if ($did(12).state = 1) { mode %chan1 +m }
if ($did(13).state = 0) { mode %chan1 -n }
if ($did(13).state = 1) { mode %chan1 +n }
if ($did(14).state = 0) { mode %chan1 -p }
if ($did(14).state = 1) { mode %chan1 +p }
if ($did(15).state = 0) { mode %chan1 -r }
if ($did(15).state = 1) { mode %chan1 +r }
if ($did(16).state = 0) { mode %chan1 -s }
if ($did(16).state = 1) { mode %chan1 +s }
if ($did(17).state = 0) { mode %chan1 -t }
if ($did(17).state = 1) { mode %chan1 +t }
if ($did(18).state = 0) { mode %chan1 -z }
if ($did(18).state = 1) { mode %chan1 +z }
if ($did(19).state = 0) { mode %chan1 -A }
if ($did(19).state = 1) { mode %chan1 +A }
if ($did(20).state = 0) { mode %chan1 -C }
if ($did(20).state = 1) { mode %chan1 +C }
if ($did(21).state = 0) { mode %chan1 -G }
if ($did(21).state = 1) { mode %chan1 +G }
if ($did(22).state = 0) { mode %chan1 -M }
if ($did(22).state = 1) { mode %chan1 +M }
if ($did(52).state = 0) { mode %chan1 -K }
if ($did(52).state = 1) { mode %chan1 +K }
if ($did(23).state = 0) { mode %chan1 -L $did(24) }
if ($did(23).state = 1) { mode %chan1 +L $did(24) }
if ($did(25).state = 0) { mode %chan1 -N }
if ($did(25).state = 1) { mode %chan1 +N }
if ($did(26).state = 0) { mode %chan1 -O }
if ($did(26).state = 1) { mode %chan1 +O }
if ($did(27).state = 0) { mode %chan1 -Q }
if ($did(27).state = 1) { mode %chan1 +Q }
if ($did(28).state = 0) { mode %chan1 -R }
if ($did(28).state = 1) { mode %chan1 +R }
if ($did(29).state = 0) { mode %chan1 -S }
if ($did(29).state = 1) { mode %chan1 +S }
if ($did(30).state = 0) { mode %chan1 -V }
if ($did(30).state = 1) { mode %chan1 +V }
if ($did(31).state = 0) { mode %chan1 -u }
if ($did(31).state = 1) { mode %chan1 +u }
}

on 1:dialog:channelcentral:init:0: {
did -a channelcentral 43 %topic
if (c isincs $gettok(%modes,1,32)) { did -c channelcentral 2 }
if (f isincs $gettok(%modes,1,32)) { did -c channelcentral 3 }
if (i isincs $gettok(%modes,1,32)) { did -c channelcentral 7 }
if (k isincs $gettok(%modes,1,32)) { did -c channelcentral 8 | did -a channelcentral 9 $chan($active).key }
if (l isincs $gettok(%modes,1,32)) { did -c channelcentral 10 | did -a channelcentral 11 $chan($active).limit }
if (m isincs $gettok(%modes,1,32)) { did -c channelcentral 12 }
if (n isincs $gettok(%modes,1,32)) { did -c channelcentral 13 }
if (p isincs $gettok(%modes,1,32)) { did -c channelcentral 14 }
if (r isincs $gettok(%modes,1,32)) { did -c channelcentral 15 }
if (s isincs $gettok(%modes,1,32)) { did -c channelcentral 16 }
if (t isincs $gettok(%modes,1,32)) { did -c channelcentral 17 }
if (z isincs $gettok(%modes,1,32)) { did -c channelcentral 18 }
if (A isincs $gettok(%modes,1,32)) { did -c channelcentral 19 }
if (C isincs $gettok(%modes,1,32)) { did -c channelcentral 20 }
if (G isincs $gettok(%modes,1,32)) { did -c channelcentral 21 }
if (M isincs $gettok(%modes,1,32)) { did -c channelcentral 22 }
if (K isincs $gettok(%modes,1,32)) { did -c channelcentral 52 }
if (L isincs $gettok(%modes,1,32)) { did -c channelcentral 23 | timerlinkup }
if (N isincs $gettok(%modes,1,32)) { did -c channelcentral 25 }
if (O isincs $gettok(%modes,1,32)) { did -c channelcentral 26 }
if (Q isincs $gettok(%modes,1,32)) { did -c channelcentral 27 }
if (R isincs $gettok(%modes,1,32)) { did -c channelcentral 28 }
if (S isincs $gettok(%modes,1,32)) { did -c channelcentral 29 }
if (V isincs $gettok(%modes,1,32)) { did -c channelcentral 30 }
if (u isincs $gettok(%modes,1,32)) { did -c channelcentral 31 }
mode %chan1 topic $did(43)
}
alias timerlinkup {
timerupdate -m 1 200 did -a channelcentral 24 $chan($active).link
}
on 1:dialog:channelcentral:sclick:33: {
if ($did(2).state = 0) { mode %chan1 -c }
if ($did(2).state = 1) { mode %chan1 +c }
if ($did(3).state = 0) { mode %chan1 -f $did(4) $did(5) $did(6) }
if ($did(3).state = 1) { mode %chan1 +f $did(4) $did(5) $did(6) }
if ($did(7).state = 0) { mode %chan1 -i }
if ($did(7).state = 1) { mode %chan1 +i }
if ($did(8).state = 0) { mode %chan1 -k $did(9) }
if ($did(8).state = 1) { mode %chan1 +k $did(9) }
if ($did(10).state = 0) { mode %chan1 -l $did(11) }
if ($did(10).state = 1) { mode %chan1 +l $did(11) }
if ($did(12).state = 0) { mode %chan1 -m }
if ($did(12).state = 1) { mode %chan1 +m }
if ($did(13).state = 0) { mode %chan1 -n }
if ($did(13).state = 1) { mode %chan1 +n }
if ($did(14).state = 0) { mode %chan1 -p }
if ($did(14).state = 1) { mode %chan1 +p }
if ($did(15).state = 0) { mode %chan1 -r }
if ($did(15).state = 1) { mode %chan1 +r }
if ($did(16).state = 0) { mode %chan1 -s }
if ($did(16).state = 1) { mode %chan1 +s }
if ($did(17).state = 0) { mode %chan1 -t }
if ($did(17).state = 1) { mode %chan1 +t }
if ($did(18).state = 0) { mode %chan1 -z }
if ($did(18).state = 1) { mode %chan1 +z }
if ($did(19).state = 0) { mode %chan1 -A }
if ($did(19).state = 1) { mode %chan1 +A }
if ($did(20).state = 0) { mode %chan1 -C }
if ($did(20).state = 1) { mode %chan1 +C }
if ($did(21).state = 0) { mode %chan1 -G }
if ($did(21).state = 1) { mode %chan1 +G }
if ($did(22).state = 0) { mode %chan1 -M }
if ($did(22).state = 1) { mode %chan1 +M }
if ($did(52).state = 0) { mode %chan1 -K }
if ($did(52).state = 1) { mode %chan1 +K }
if ($did(23).state = 0) { mode %chan1 -L $did(24) }
if ($did(23).state = 1) { mode %chan1 +L $did(24) }
if ($did(25).state = 0) { mode %chan1 -N }
if ($did(25).state = 1) { mode %chan1 +N }
if ($did(26).state = 0) { mode %chan1 -O }
if ($did(26).state = 1) { mode %chan1 +O }
if ($did(27).state = 0) { mode %chan1 -Q }
if ($did(27).state = 1) { mode %chan1 +Q }
if ($did(28).state = 0) { mode %chan1 -R }
if ($did(28).state = 1) { mode %chan1 +R }
if ($did(29).state = 0) { mode %chan1 -S }
if ($did(29).state = 1) { mode %chan1 +S }
if ($did(30).state = 0) { mode %chan1 -V }
if ($did(30).state = 1) { mode %chan1 +V }
if ($did(31).state = 0) { mode %chan1 -u }
if ($did(31).state = 1) { mode %chan1 +u }
mode %chan1 topic $did(43)
}
on 1:dialog:channelcentral:close:*: {
unset %chan1
unset %modes
unset %topic
}
on 1:dialog:channelcentral:sclick:42: {
mode %chan1 +b $?"Ban Who?"
did -r channelcentral 36
mode %chan1 +b
}
on 1:dialog:channelcentral:sclick:38: {
did -r channelcentral 36
mode %chan1 +b
}
on 1:dialog:channelcentral:sclick:39: {
mode %chan1 -b $gettok($did(channelcentral,36,$did(channelcentral,36).sel),1,32)
did -r channelcentral 36
mode %chan1 +b
}

on 1:dialog:channelcentral:sclick:45: {
mode %chan1 +e $?"Exempt Who?"
did -r channelcentral 44
mode %chan1 +e
}
on 1:dialog:channelcentral:sclick:46: {
did -r channelcentral 44
mode %chan1 +e
}
on 1:dialog:channelcentral:sclick:47: {
mode %chan1 -e $gettok($did(channelcentral,44,$did(channelcentral,44).sel),1,32)
did -r channelcentral 44
mode %chan1 +e
}

on *^:Topic:#: {
hadd -m topics $+($cid,:,#,:,$calc($hmatch(topics,$+($cid,:,#,:*),0)+1)) $1-
}


when u do /dialog -dm channelcentral channelcentral u will see what im talking about. the blanks are explained in the code. thanx

I'm really not sure how to parse the +f parameters without using lots of messy code, but i'm sure a regex guru will help you.

Sorry.

ok thanx anyways. u have been lots of help with everything else i asked. thanx