Stuff

alias Jcfc { 
  dialog -m Jcfc Jcfc 
} 
dialog Jcfc {
  title "JcDialog"
  size -1 -1 235 210
  option dbu
  button "OK", 5, 27 178 37 12, ok
  button "Cancel", 6, 156 178 37 12, cancel
  text "Channels", 4, 190 67 25 8
  button "#k-chat", 7, 181 78 37 12
  button "#Jcfc", 8, 181 93 37 12
  button "#Redbladehunters", 9, 173 108 54 12
  button "#FishingGuild", 10, 181 123 37 12
  text "Links", 3, 13 67 25 8
  button "RuneScape", 11, 7 78 37 12
  button "Tip.it", 12, 7 93 37 12
  button "Tip.it forum", 13, 7 108 37 12
  button "RBH forum", 14, 7 123 37 12
  combo 15, 52 64 118 98, size
  button "Add Note", 2, 94 51 37 12
}



on *:dialog:Jcfc:sclick:*: {
  if ($did == 7) { join #k-chat }
  if ($did == 8) { join #jcfc }
  if ($did == 9) { join #redbladehunters }
  if ($did == 10) { join #FishingGuild }
  if ($did == 11) { /run http://runescape.co.uk }
  if ($did == 12) { /run http://tip.it/runescape }
  if ($did == 13) { /run http://forum.tip.it }
  if ($did == 14) { /run http://z12.invisionfree.com/redbladehunters }
  if ($did == 2) { /did -a $dname 15 $did(15) }
  if ($did == 5) {
    if ($numtok(%data,64) == $did(15).lines) { /dialog -x Jcfc Jcfc }
    var %lines = $did(15).lines
    var %it = 1
    while (%it <= %lines) {
      set %data %data @ $did(15,%it)
      inc %it
    }
  }
}

on *:dialog:Jcfc:init:0: {
  var %toks = $numtok(%data,64)
  var %it = 1
  while (%it <= %toks) {
    /did -a $dname 15 $gettok(%data,%it,64)
    inc %it
  }
}