Channel Modes Manager (Updated)

Platform: mIRC

Published Nov 03, 2008

Updated Nov 05, 2008

This is my channel modes manager, any ideas on how i could make this better let me know..
If you find any problems let me know ill be at
irc.ezzychat.com #Lobby
or
irc.swiftirc.net #PMS
Enjoy :)

Uh.. type /cmm to get it started :)

alias CMM { Dialog -nmrv CMM CMM }

dialog CMM {

  Title "Manager"

  size -1 -1 67 196

  option dbu



  Box "Channel Modes:", 1, 1 1 93 195

  Check "Moderated", 2, 3 10 40 10

  Check "No Swearing", 3, 3 20 40 10

  Check "No Nick Change", 4, 3 30 50 10

  Check "No CTCP", 5, 3 40 50 10

  Check "No Kicks", 6, 3 50 40 10

  Check "No Notices", 7, 3 60 40 10

  Check "No Invites", 8, 3 70 40 10

  Check "No Knock", 9, 3 80 40 10

  Check "Invite Only", 10, 3 90 40 10

  Check "Strip Color", 11, 3 100 40 10

  Check "Registered Only", 12, 3 110 60 10

  Check "Registered Talk Only", 13, 3 120 70 10

  Check "Topic Lock", 14, 3 130 40 10

  Check "IRCOP Only", 15, 3 140 40 10

  Check "Private Channel", 16, 3 150 50 10

  Check "Secret", 17, 3 160 40 10

  Button "Done", 18, 2 182 63 11, Flat ok

}

on *:Dialog:CMM:sclick:2: { if ($did(2).state) { .mode $active +m } | else { .mode $active -m } }

on *:Dialog:CMM:sclick:3: { if ($did(3).state) { .mode $active +G } | else { .mode $active -G } }

on *:Dialog:CMM:sclick:4: { if ($did(4).state) { .mode $active +N } | else { .mode $active -N } }

on *:Dialog:CMM:sclick:5: { if ($did(5).state) { .mode $active +C } | else { .mode $active -C } }

on *:Dialog:CMM:sclick:6: { if ($did(6).state) { .mode $active +Q } | else { .mode $active -Q } }

on *:Dialog:CMM:sclick:7: { if ($did(7).state) { .mode $active +T } | else { .mode $active -T } }

on *:Dialog:CMM:sclick:8: { if ($did(8).state) { .mode $active +V } | else { .mode $active -V } }

on *:Dialog:CMM:sclick:9: { if ($did(9).state) { .mode $active +K } | else { .mode $active -K } }

on *:Dialog:CMM:sclick:10: { if ($did(10).state) { .mode $active +i } | else { .mode $active -i } }

on *:Dialog:CMM:sclick:11: { if ($did(11).state) { .mode $active +s } | else { .mode $active -s } }

on *:Dialog:CMM:sclick:12: { if ($did(12).state) { .mode $active +R } | else { .mode $active -R } }

on *:Dialog:CMM:sclick:13: { if ($did(13).state) { .mode $active +M } | else { .mode $active -M } }

on *:Dialog:CMM:sclick:14: { if ($did(14).state) { .mode $active +t } | else { .mode $active -t } }

on *:Dialog:CMM:sclick:15: { if ($did(15).state) { .mode $active +O } | else { .mode $active -O } }

on *:Dialog:CMM:sclick:16: { if ($did(16).state) { .mode $active +p } | else { .mode $active -p } }

on *:Dialog:CMM:sclick:17: { if ($did(17).state) { .mode $active +s } | else { .mode $active -s } }

on *:dialog:CMM:init:0:{

  $iif(m isin $chan($active).mode,did -c $dname 2)

  $iif(G isin $chan($active).mode,did -c $dname 3)

  $iif(N isin $chan($active).mode,did -c $dname 4)

  $iif(C isin $chan($active).mode,did -c $dname 5)

  $iif(Q isin $chan($active).mode,did -c $dname 6)

  $iif(T isin $chan($active).mode,did -c $dname 7)

  $iif(V isin $chan($active).mode,did -c $dname 8)

  $iif(K isin $chan($active).mode,did -c $dname 9)

  $iif(i isin $chan($active).mode,did -c $dname 10)

  $iif(s isin $chan($active).mode,did -c $dname 11)

  $iif(R isin $chan($active).mode,did -c $dname 12)

  $iif(M isin $chan($active).mode,did -c $dname 13)

  $iif(t isin $chan($active).mode,did -c $dname 14)

  $iif(O isin $chan($active).mode,did -c $dname 15)

  $iif(p isin $chan($active).mode,did -c $dname 16)

  $iif(s isin $chan($active).mode,did -c $dname 17)

}

Comments

miniCruzer - Aug 21, 2009

Very nice, I like it
7/10

Respond

Anti - Nov 08, 2008

That's actually a small dialog.
What do you mean by listcb control.
Explain.

Respond

^Neptune - Nov 06, 2008

That's a big dialog. Why not try a listcb control? :]

Respond

zonirc - Nov 05, 2008

Quote

Well how would i get it to disable the modes if it isnt supported.. is there even a way to check for that

You can check it by using $chanmodes.

Quote

Also. Do you know if it can check what modes are selected and what ones arent so it can be automatically checked to cause no confusion.

You can use $chan(#channel).mode to determined the enable modes for the specified channel.

Im totally agree with others by using on init to check the current enable channel modes. However, its lack something such as when user keep the dialog open and the other channel operator changed a channel modes(or the user itself changed it manually).

So you need to watch the on mode event, and disable/enable the modes in dialog according to the current channel modes.

By using on active event also you can had one dialog for the whole channels, in other word the dialog would shown the correct modes for the active channel.

Respond

Anti - Nov 05, 2008

Okay i got it all >.<
Dont worry.. might add some stuff later napa gave me some suggestion's.

Respond

Blitzjager - Nov 05, 2008

on *:Dialog:CMM:sclick:23: { if ($did(23).state) { .mode $active +t } | else { .mode $active -t } }
on *:Dialog:CMM:sclick:19: { if ($did(19).state) { .mode $active +t } | else { .mode $active -t } }
on *:Dialog:CMM:sclick:20: { if ($did(20).state) { .mode $active +T } | else { .mode $active -T } }
I know the T is different but 19 and 23 are the same.

Respond

Anti - Nov 05, 2008

Well as you can see im not that great at scripting otherwise i would have added something like that ;)

Would you have any idea how to add that?

Or is this just a thing that you suggest that you have no clue what you're talking about?

Respond

AHBARAR - Nov 05, 2008

you can make every room seperated than other .. maybe 1 room have another modes than other would be nice

Respond

Anti - Nov 05, 2008

Uhh.. no i only have one topic lock the other one is to set another mode >.< It's just capitalized.

Respond

napa182 - Nov 05, 2008

Quote

Also. Do you know if it can check what modes are selected and what ones arent so it can be automatically checked to cause no confusion.

um you can do this on the init event

		Code 			
$iif(m isin $chan($active).mode,did -c $dname 2)	

and so on

Respond

Blitzjager - Nov 05, 2008

It doesn't seem like a good way but it's all I can think of. Do something like this on init and then if s isn't in the modes it sets disable the box. Idk.
mode $chan +abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ $str(1 $+ $chr(32),52)

You might already know this but you can use

		Code 			
on *:Dialog:CMM:*:*: {
if ($devent == sclick) {
if ($did == #) { }
if ($did == #) { }
}
}	

Also you have 2 Topic locks, 19 and 23 I think. Oh and unless it's different for different networks +s is secret not +S *shrug*

Respond

Anti - Nov 04, 2008

Ahhkay i knew that was coming about the network's i was going to add something like join throttling but i really got snagged by the edit and how to incorperate that with the other stuff.. so yeah.

Well how would i get it to disable the modes if it isnt supported.. is there even a way to check for that?

Also. Do you know if it can check what modes are selected and what ones arent so it can be automatically checked to cause no confusion.

Respond

zonirc - Nov 04, 2008

I assume this script would working in some network only(especially the network that had implemented the specified chan modes...which many of them are unfamiliar for me).
IMO this is a simple script with a nice dialog and maybe you could added a couple thing on it such as:

1. Disable the modes if its not supported by the network
2. Adding a channel name into dialog title instead of 'Manager' so users know which channel the modes would be apply.

Anyway... its really something useful for the operators

Nice job

Respond

Purcell - Nov 04, 2008

Hmm, nice all in one :P

Respond