menu * {
  Ban System: dialog $iif($dialog(BanSystem),-v,-m) BanSystem BanSystem
}

dialog BanSystem {
  title "Ban System"
  size -1 -1 148 110
  option dbu
  list 1, 8 22 35 49, size
  list 2, 56 22 35 49, size
  list 14, 104 22 35 49, size
  box "Reason:", 4, 5 13 41 61
  box "Players:", 3, 53 13 41 61
  box "Time:", 13, 101 13 41 61
  text "Ban System", 5, 57 2 129 10
  text "", 15, 11 80 129 10
  button "Ban / Kick" 8, 60 91 28 9
}
on *:dialog:BanSystem:*:*:{ 
  if ($devent == init) { 
    var %i = 1 
    while (%i <= $nick($active,0)) { didtok BanSystem 2 44 $nick($active,%i) | inc %i } 
    didtok BanSystem 1 32 None Spam Racism Advertise Flood
    didtok BanSystem 14 32 Kick 5m 10m 15m 30m 1h 2h 3h 5h 10h 1d
  }
  if ($devent == sclick) {
    if ($did == 8) {
      if (!$did(BanSystem,1).seltext) || (!$did(BanSystem,2).seltext) || (!$did(BanSystem,14).seltext) { did -a BanSystem 15 Choose: Reason, Player, Time!
      } 
      if ($did(BanSystem,1).seltext) && ($did(BanSystem,2).seltext) && ($did(BanSystem,14).seltext) {
        if ($did(BanSystem,14).seltext == Kick) { /kick $active $did(BanSystem,2).seltext $me $+ : $did(BanSystem,1).seltext (Kick | /dialog -c BanSystem | /timer 1 1 dialog $iif($dialog(BanSystem),-v,-m) BanSystem BanSystem | halt }
        if ($did(BanSystem,14).seltext == 5m) { ban -u300 $active $address($did(BanSystem,2).seltext,1) | /kick $active $did(BanSystem,2).seltext $me $+ : $did(BanSystem,1).seltext (5min | /dialog -c BanSystem | /timer 1 1 dialog $iif($dialog(BanSystem),-v,-m) BanSystem BanSystem | halt }
        if ($did(BanSystem,14).seltext == 10m) { ban -u600 $active $address($did(BanSystem,2).seltext,1) | /kick $active $did(BanSystem,2).seltext $me $+ : $did(BanSystem,1).seltext (10min | /dialog -c BanSystem | /timer 1 1 dialog $iif($dialog(BanSystem),-v,-m) BanSystem BanSystem | halt }
        if ($did(BanSystem,14).seltext == 15m) { ban -u900 $active $address($did(BanSystem,2).seltext,1) | /kick $active $did(BanSystem,2).seltext $me $+ : $did(BanSystem,1).seltext (15min | /dialog -c BanSystem | /timer 1 1 dialog $iif($dialog(BanSystem),-v,-m) BanSystem BanSystem | halt }
        if ($did(BanSystem,14).seltext == 30m) { ban -u1800 $active $address($did(BanSystem,2).seltext,1) | /kick $active $did(BanSystem,2).seltext $me $+ : $did(BanSystem,1).seltext (30min | /dialog -c BanSystem | /timer 1 1 dialog $iif($dialog(BanSystem),-v,-m) BanSystem BanSystem | halt }
        if ($did(BanSystem,14).seltext == 1h) { ban -u3600 $active $address($did(BanSystem,2).seltext,1) | /kick $active $did(BanSystem,2).seltext $me $+ : $did(BanSystem,1).seltext (1h | /dialog -c BanSystem | /timer 1 1 dialog $iif($dialog(BanSystem),-v,-m) BanSystem BanSystem | halt }
        if ($did(BanSystem,14).seltext == 2h) { ban -u7200 $active $address($did(BanSystem,2).seltext,1) | /kick $active $did(BanSystem,2).seltext $me $+ : $did(BanSystem,1).seltext (2h | /dialog -c BanSystem | /timer 1 1 dialog $iif($dialog(BanSystem),-v,-m) BanSystem BanSystem | halt }
        if ($did(BanSystem,14).seltext == 3h) { ban -u10800 $active $address($did(BanSystem,2).seltext,1) | /kick $active $did(BanSystem,2).seltext $me $+ : $did(BanSystem,1).seltext (3h | /dialog -c BanSystem | /timer 1 1 dialog $iif($dialog(BanSystem),-v,-m) BanSystem BanSystem | halt }
        if ($did(BanSystem,14).seltext == 5h) { ban -u18000 $active $address($did(BanSystem,2).seltext,1) | /kick $active $did(BanSystem,2).seltext $me $+ : $did(BanSystem,1).seltext (5h | /dialog -c BanSystem | /timer 1 1 dialog $iif($dialog(BanSystem),-v,-m) BanSystem BanSystem | halt }
        if ($did(BanSystem,14).seltext == 10h) { ban -u36000 $active $address($did(BanSystem,2).seltext,1) | /kick $active $did(BanSystem,2).seltext $me $+ : $did(BanSystem,1).seltext (10h | /dialog -c BanSystem | /timer 1 1 dialog $iif($dialog(BanSystem),-v,-m) BanSystem BanSystem | halt }
        if ($did(BanSystem,14).seltext == 1d) { ban -u86400 $active $address($did(BanSystem,2).seltext,1) | /kick $active $did(BanSystem,2).seltext $me $+ : $did(BanSystem,1).seltext (1d | /dialog -c BanSystem | /timer 1 1 dialog $iif($dialog(BanSystem),-v,-m) BanSystem BanSystem | halt }
      }
    }
  }
}

System * :D

And works Perfectly :)

[18:27:33:pm] <&root> 4[9Lul4]9, 8,1
[18:27:36:pm] <Lul> ?
[18:27:49:pm] <&root> can i try  a room ban on u?
[18:28:00:pm] <Lul> idc
[18:28:02:pm] * root sets mode: +b *!********.net
[18:28:02:pm] * Lul was kicked by root (root: Racism (5min) 

so i'll say 8/10 :) and a like cuz i like it =D