Looks nice Cold_Fussion.
I sorta changed it up a bit:
alias locks { Dialog -nmrv locks locks }
dialog locks {
title "Channels Made Easy"
size -1 -1 110 150
option dbu
box "Channel Security:", 1, 1 1 107 80
Check "Topic Lock", 2, 3 10 50 10
Check "Restricted", 17, 60 10 50 10
Check "Secure Ops", 3, 3 20 50 10
Check "xOP", 18, 60 20 50 10
Check "Founder Secure", 4, 3 30 50 10
Check "SignedKicks", 19, 60 30 50 10
Check "Secure", 5, 3 40 50 10
Check "Private", 6, 3 50 50 10
Check "Peace", 7, 3 60 50 10
Check "Op-Notice", 8, 3 70 50 10
box "Change Topic:", 9, 1 82 107 20
edit "", 10, 3 90 78 10 , return
button "CHANGE", 11, 82 90 25 10
box "Quit With Message:", 12, 1 103 107 20
edit "", 13, 3 111 78 10 , return
button "QUIT", 14, 82 111 25 10
box "Other Options:", 15, 1 125 107 20
button "Channel List", 16, 3 133 40 10
button "Creator", 20, 45 133 30 10
}
on *:dialog:locks:*:*: {
if ($devent == init) && ($did == 0) { did $iif(!$did(10),-b) locks 11 | did $iif(!$did(13),-b) locks 14 }
if ($devent == sclick) {
if ($did == 2) { if ($did(2).state) { .cs set $active topiclock on } | else { .cs set $active topiclock off } }
if ($did == 3) { if ($did(3).state) { .cs set $active secureops on } | else { .cs set $active secureops off } }
if ($did == 4) { if ($did(4).state) { .cs set $active securefounder on } | else { .cs set $active securefounder off } }
if ($did == 5) { if ($did(5).state) { .cs set $active secure on } | else { .cs set $active secure off } }
if ($did == 6) { if ($did(6).state) { .cs set $active private on } | else { .cs set $active private off } }
if ($did == 7) { if ($did(7).state) { .cs set $active peace on } | else { .cs set $active peace off } }
if ($did == 11) { topic $active $did(10) }
if ($did == 14) { quit $did(13) }
if ($did == 16) { list }
if ($did == 17) { if ($did(17).state) { .cs set $active restricted on } | else { .cs set $active restricted off } }
if ($did == 18) { if ($did(18).state) { .cs set $active xop on } | else { .cs set $active xop off } }
if ($did == 19) { if ($did(19).state) { .cs set $active signkick on } | else { .cs set $active signkick off } }
if ($did == 20) { dialog -nmrv creator creator }
}
if ($devent == edit) {
if ($did == 10) { did $iif($did(10),-e,-b) locks 11 }
if ($did == 13) { did $iif($did(13),-e,-b) locks 14 }
}
}
dialog creator {
title "Creator"
size -1 -1 110 45
option dbu
box "Created by:", 1, 1 1 107 43
text "TIGGA-CHAT COMMUNITY", 2, 3 10 109 10, center
text "Cold_Fussion", 4, 3 20 32 10
link "fussion69@gmail.com", 5, 38 20 69 10
button "OK", 3, 45 30 15 10, ok
}
on *:dialog:creator:sclick:5:{ run mailto:fussion69@gmail.com }
You can also round up $devent's and $did's as well to save some space.
I added some initiation and edit events to prevent some small errors like changing the topic to nothing or no quit messages..stuff like that.
Also, instead of making a separate dialog for the creator information, why not make a separate tab for it?
Good job on your first snippet.