Mine

menu channel,status,menubar {
  Channel Designer:design
}

alias design {
  if ($dialog(design) == $null) {
    dialog -ma design design
  }
  else {
    dialog -v design
  }
}
dialog design {
  title "Channel Designer By [M]ike"
  size -1 -1 110 110
  option dbu
  text "Channel Name:#", 1, 6 5 37 8
  edit "", 2, 45 4 43 10
  combo 3, 13 35 60 12, drop
  edit "", 4, 13 57 68 10, autohs
  text "Topic Text", 5, 16 48 25 8
  text "Topic Style", 6, 16 26 26 8
  button "Set Topic", 7, 25 75 37 12
  box "Topic Settings", 8, 8 18 79 71
  button "Set A Greet", 9, 9 92 37 12
  button "Close", 10, 48 92 37 12, cancel
  icon 11, 12 68 69 5, dsn\preview\junglepreview.JPG, 0
  icon 12, 12 68 69 5, dsn\preview\icepreview.JPG, 0
  icon 13, 12 68 69 5, dsn\preview\firepreview.JPG, 0
  icon 14, 12 68 69 5, dsn\preview\rainbowpreview.JPG, 0
  icon 15, 12 68 69 5, dsn\preview\lavapreview.JPG, 0
}

on *:DIALOG:design:init:*:{
  did -r $dname 2
  did -a $dname 2 %design.channel
  did -a $dname 3 Fire
  did -a $dname 3 Jungle
  did -a $dname 3 Ice
  did -a $dname 3 Rainbow
  did -a $dname 3 Lava
  did -h $dname 11-15
}
on *:DIALOG:design:sclick:3:{
  did -h $dname 11-15
  if ($did($dname,3).seltext == Lava) {
    did -v $dname 15
  }
  if ($did($dname,3).seltext == Rainbow) {
    did -v $dname 14
  }
  if ($did($dname,3).seltext == Fire) {
    did -v $dname 13
  }
  if ($did($dname,3).seltext == Ice) {
    did -v $dname 12
  }
  if ($did($dname,3).seltext == Jungle) {
    did -v $dname 11
  }
}
on *:DIALOG:design:sclick:7:{
  if ($$did($dname,3).seltext == Fire) {
    var %begin = 7,4æ5,4æ4,5æ1,5æ5,1æ8,1 $+ $$did($dname,4).text $+ 5,1æ1,5æ4,5æ5,4æ7,4æ4,7æ
  }
  elseif ($$did($dname,3).seltext == Ice) {
    var %begin = 0,11§12§12,1211§1§1,11,112§11 $+ $$did($dname,4).text $+ 12§12,121§11§11,1112§0§
  }
  elseif ($$did($dname,3).seltext == Jungle) {
    var %begin = 10,9§3,9§9,3§1,3§3,1§3,1 $+ $$did($dname,4).text $+ 3,1§1,3§9,3§3,9§10,9§
  }
  elseif ($$did($dname,3).seltext == Rainbow) {
    var %begin = 10,12|12,10|9,10|10,9|8,9|9,8|7,8|8,7|4,7|7,4|13,4|4,13|4,6 $+ $$did($dname,4).text $+ 10,12|12,10|9,10|10,9|8,9|9,8|7,8|8,7|4,7|7,4|13,4|4,13|
  }
  elseif ($$did($dname,3).seltext == Lava) {
    var %begin = 8,0æ0,8æ7,8æ8,7æ4,7æ7,4æ5,4æ4,5æ4,5 $+ $$did($dname,4).text $+ 8,0æ0,8æ7,8æ8,7æ4,7æ7,4æ5,4æ4,5æ1,5
  }
  topic $$did($dname,2).text %begin 
}
on *:DIALOG:design:sclick:9:{
  set %greet [ $+ [ $$did($dname,2).text ] ] $$?="Greet Text:"
}
on *:DIALOG:design:close:*:{
  set %design.channel $did($dname,2).text
}
on *:JOIN:#:{
  if (%greet [ $+ [ $chan ] ] != $null) { 
    .notice $nick %greet [ $+ [ $chan ] ]
  }
}