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)
}

Commenting Options