menu * { 
  -
  TimedBan:/dialog -m TimedBan TimedBan
} 
dialog TimedBan { 
  title "Timed Ban - By Tomconstable" 
  size -1 -1 130 150 
  option dbu  

  tab "Basic Ban", 100, 0 0 130 150 
  tab "Advanced Ban", 101, 0 0 130 150
  tab "Usage", 102, 0 0 130 150

  box "Basic Ban", 1, 3 15 123 87, tab 100
  text "Nick:", 2, 8 28 22 10, left, tab 100
  edit "", 3, 32 26 91 10, center, tab 100  
  text "Time:", 4, 8 43 22 10, left, tab 100  
  edit "", 5, 32 41 68 10, center, tab 100
  text "Channel:", 6, 8 58 22 10, left, tab 100
  edit "", 7, 32 56 91 10, center, tab 100  
  text "Reason:", 8, 8 73 22 10, left, tab 100
  edit "", 9, 32 71 91 10, centre tab 100
  text "minutes", 10, 103 43 20 10, tab 100
  button "TimeBan User", 11, 6 86 58 13, center, tab 100
  button "Cancel", 12, 64 86 58 13, cancel, tab 100

  box "Advanced Ban", 13, 3 15 123 132, tab 101
  box "Settings", 25, 6 22 117 46, tab 101
  check "Address type 2 (*!*@Host)", 26, 9 30 100 10, tab 101
  check "Address type 3 (*!*Nick@*.PartOfHost)", 27, 9 39 110 10, tab 101
  check "Both types", 28, 9 48 100 10, tab 101
  check "Notify of unban", 29, 9 57 100 10, tab 101
  text "Nick:", 14, 8 73 22 10, left, tab 101
  edit "", 15, 32 71 91 10, center, tab 101  
  text "Time:", 16, 8 89 22 10, left, tab 101  
  edit "", 17, 32 86 68 10, center, tab 101
  text "Channel:", 18, 8 103 22 10, left, tab 101
  edit "", 19, 32 101 91 10, center, tab 101  
  text "Reason:", 20, 8 119 22 10, left, tab 101
  edit "", 21, 32 116 91 10, centre tab 101
  text "minutes", 22, 103 88 20 10, tab 101
  button "TimeBan User", 23, 6 131 58 13, center, tab 101
  button "Cancel", 24, 64 131 58 13, cancel, tab 101

  box "Usage", 30, 3 15 123 132, tab 102
  text "Simple fill out the information on Basic Ban and click 'TimeBan User', or , go onto the Advanced Ban tab and choose one of the addresses, OR the 'Both' to ban via both addresses. The 'Notify' button can be used on any type of Advanced Ban." 31, 8 28 116 100, tab 102 


} 
on *:DIALOG:TimedBan:sclick:11: { 
  mode $did($dname,7) +b $address($did($dname,3),2)  
  kick $did($dname,7) $did($dname,3) $did($dname,9) 
timer 1 $calc( $did($dname,5) * 60 ) mode $did($dname,7) -b $address($did($dname,3),2) }

on *:DIALOG:TimedBan:sclick:23: {
  if ($did($dname,26).state == 1) { mode $did($dname,19) +b $address($did($dname,15),2) | kick $did($dname,19) $did($dname,15) $did($dname,21) | timer 1 $calc( $did($dname,17) * 60 ) mode $did($dname,19) -b $address($did($dname,15),2) }
  if ($did($dname,27).state == 1) { mode $did($dname,19) +b $address($did($dname,15),3) | kick $did($dname,19) $did($dname,15) $did($dname,21) | timer 1 $calc( $did($dname,17) * 60 ) mode $did($dname,19) -b $address($did($dname,15),3) }
  if ($did($dname,28).state == 1) { mode $did($dname,19) +b $address($did($dname,15),2) | mode $did($dname,19) +b $address($did($dname,15),3) | kick $did($dname,19) $did($dname,15) $did($dname,21) | timer 1 $calc( $did($dname,17) * 60 ) mode $did($dname,19) -b $address($did($dname,15),2) | timer 1 $calc( $did($dname,17) * 60 ) mode $did($dname,19) -b $address($did($dname,15),3) }
  if ($did($dname,29).state == 1) { timer 1 $calc( $did($dname,17) * 60 ) msg Tomconstable The ban on $did($dname,15) has been lifted. }
}
on *:DIALOG:TimedBan:sclick:26:{ if ($did($dname,26).state == 1) { did -u TimedBan 27,28 } 
}

on *:DIALOG:TimedBan:sclick:27:{ if ($did($dname,27).state == 1) { did -u TimedBan 26,28 } 
}
on *:DIALOG:TimedBan:sclick:28:{ if ($did($dname,28).state == 1) { did -u TimedBan 26,27 } 
}