Menu * { 
  IRC:/dialog -m home home 
} 
dialog Home { 
  title "Home" 
  size -1 -1 90 50 
  option dbu 
  menu "File", 1 
  item "Close", 2, 1 
  Menu "Options", 4 
  item "Timeban", 5, 4 
  item "AMSG", 6, 4 
  item "Join", 7, 4 
} 

on *:DIALOG:home:menu:5:{ 
  dialog -x home home 
  dialog -m timeban timeban 
} 
on *:DIALOG:home:menu:2:{ 
  dialog -x home home 
} 
dialog timeban { 
  Title "Timeban" 
  size 0 0 140 115 
  option dbu 
  Button "Ok", 1, 28 95 29 12, ok, flat 
  Button "Cancel", 2, 73 95 29 12, cancel, flat 
  Edit "Nick", 3, 28 20 75 10 
  Edit "Time", 4, 28 40 75 10 
  Edit "Channel", 5, 28 60 75 10 
  Edit "Reason", 6, 28 80 75 10 
} 
on *:dialog:timeban:mouse:3:{ 
  if ($did(3) == Nick) { did -r timeban 3 } 
} 
on *:DIALOG:timeban:mouse:4:{ 
  if ($did(4) == Time) { did -r timeban 4 } 
} 
on *:DIALOG:timeban:mouse:5:{ 
  if ($did(5) == Channel) { did -r timeban 5 } 
} 
on *:DIALOG:timeban:mouse:6:{ 
  if ($did(6) == Reason) { did -r timeban 6 } 
} 
on *:DIALOG:timeban:sclick:1:{ 
  if ($did(3) ison $iif($did(5) = $null,$active,$did(5))) && ($did(4) > 0) { 
    ban -ku $+ $calc($did(4) * 60) $iif($did(5) = $null,$active,$did(5)) $did(3) You have been banned for: Minutes: $did(4) - From Channel: $iif($did(5) = $null,$active,$did(5)) $iif($did(6) != $null,$did(6),) 
  } 
} 
dialog amsg { 
  Title "AMSG" 
  Size -1 -1 200 80 
  option dbu 
  edit "", 1, 10 10 170 50, multi 
  Button "Send", 2, 40 65 29 12, ok 
  Button "Cancel", 3, 110 65 29 12, cancel 
} 
on *:DIALOG:amsg:sclick:2:{ 
  if ($did(1) != $null) { 
    amsg 10[3•4»Amsg«3•10] 4 $+ $did(1) 
  } 
} 
on *:DIALOG:home:menu:6:{ 
  dialog -x home home 
  dialog -m amsg amsg 
} 
dialog Cjoin { 
  Title "Channel Joiner" 
  size -1 -1 100 50 
  option dbu 
  Edit "#", 1, 24 10 50 10 
  Button "Join", 2, 24 30 19 12, ok 
  Button "Cancel", 3, 54 30 19 12, cancel 
} 
on *:DIALOG:cjoin:sclick:2:{ 
  if ($did(1) != $null) { join $did(1) } 
} 
on *:DIALOG:home:menu:7:{ 
  dialog -x home home 
  dialog -m cjoin cjoin 
}