Kirby commented on a Page, Chan Owner helper  -  Feb 09, 2009

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.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.