Ban Dialog [Version 1.2]

By Purcell on Nov 14, 2009

Ban System v1.0

Credits:

Scakk (Player list)

About the script:

You can change reason on line 26 "didtok BanSysteem 1 32 None Spam Racism Advertise Flood"

Got questions? Idea's? Bugs?

Post them here!

Idea's

Logs (Cracker200)

Version 1.2

ColorChat
Logs (Ini, txt)

Thanks!

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

dialog BanSysteem {
  title "Ban Systeem"
  size -1 -1 148 115
  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 Systeem", 5, 57 2 129 10
  text "", 15, 11 86 129 10
  button "Logs.ini" 16, 13 75 23 8
  button "Color: Off" 17, 60 75 27 8
  button "Logs.txt" 18, 109 75 23 8
  button "Ban / Kick" 8, 60 96 28 9
}
on *:dialog:BanSysteem:*:*:{ 
  if ($devent == init) { 
    var %i = 1 
    while (%i <= $nick($active,0)) { didtok BanSysteem 2 44 $nick($active,%i) | inc %i } 
    didtok BanSysteem 1 32 None Spam Racism Advertise Flood
    didtok BanSysteem 14 32 Kick 5m 10m 15m 30m 1h 2h 3h 5h 10h 1d
    if (%BanSysteemColor == 0) || (%BanSysteemColor == $null) { did -a BanSysteem 17 Color: Off }
    if (%BanSysteemColor == 1) { did -a BanSysteem 17 Color: On }
  }
  if ($devent == sclick) {
    if ($did == 16) { /run BanSysteemLogs.ini }
    if ($did == 17) && ($devent == sclick) {
      if (%BanSysteemColor == 0) || (%BanSysteemColor == $null) { /set %BanSysteemColor 1 | did -a BanSysteem 17 Color: On | halt }
    if (%BanSysteemColor == 1) { /set %BanSysteemColor 0 | did -a BanSysteem 17 Color: Off } }
    if ($did == 18) { /run BanSysteemLogs.txt }
    if ($did == 8) { 
      if (!$did(BanSysteem,1).seltext) || (!$did(BanSysteem,2).seltext) || (!$did(BanSysteem,14).seltext) { did -a BanSysteem 15 Choose: Reason, Player, Time! | halt }
      if ($did(BanSysteem,2).seltext == $me) { did -a BanSysteem 15 Error, you can't kick $me $+ ! | halt }
      if ($did(BanSysteem,1).seltext) && ($did(BanSysteem,2).seltext) && ($did(BanSysteem,14).seltext) && ($devent == sclick) {
        if ($did(BanSysteem,14).seltext == Kick) { Colorban | /dialog -c BanSysteem | /timer 1 1 dialog $iif($dialog(BanSysteem),-v,-m) BanSysteem BanSysteem | halt }
        if ($did(BanSysteem,14).seltext == 5m) { ban -u300 $active $address($did(BanSysteem,2).seltext,1) | Colorban | write BanSysteemLogs.txt Name: $did(BanSysteem,2).seltext - Reason: $did(BanSysteem,1).seltext - Date: $fulldate - Time: 5m | timer 1 300 /remini BanSysteemLogs.ini $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Name $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Address $address($did(BanSysteem,2).seltext,1) | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Reason $did(BanSysteem,1).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Time $did(BanSysteem,14).seltext | /dialog -c BanSysteem | /timer 1 1 dialog $iif($dialog(BanSysteem),-v,-m) BanSysteem BanSysteem }
        if ($did(BanSysteem,14).seltext == 10m) { ban -u600 $active $address($did(BanSysteem,2).seltext,1) | Colorban | write BanSysteemLogs.txt Name: $did(BanSysteem,2).seltext - Reason: $did(BanSysteem,1).seltext - Date: $fulldate - Time: 10m | timer 1 600 /remini BanSysteemLogs.ini $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Name $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Address $address($did(BanSysteem,2).seltext,1) | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Reason $did(BanSysteem,1).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Time $did(BanSysteem,14).seltext | /dialog -c BanSysteem | /timer 1 1 dialog $iif($dialog(BanSysteem),-v,-m) BanSysteem BanSysteem | halt }
        if ($did(BanSysteem,14).seltext == 15m) { ban -u900 $active $address($did(BanSysteem,2).seltext,1) | Colorban | write BanSysteemLogs.txt Name: $did(BanSysteem,2).seltext - Reason: $did(BanSysteem,1).seltext - Date: $fulldate - Time: 15m | timer 1 900 /remini BanSysteemLogs.ini $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Name $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Address $address($did(BanSysteem,2).seltext,1) | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Reason $did(BanSysteem,1).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Time $did(BanSysteem,14).seltext | /dialog -c BanSysteem | /timer 1 1 dialog $iif($dialog(BanSysteem),-v,-m) BanSysteem BanSysteem | halt }
        if ($did(BanSysteem,14).seltext == 30m) { ban -u1800 $active $address($did(BanSysteem,2).seltext,1) | Colorban | write BanSysteemLogs.txt Name: $did(BanSysteem,2).seltext - Reason: $did(BanSysteem,1).seltext - Date: $fulldate - Time: 30m | timer 1 1800 /remini BanSysteemLogs.ini $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Name $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Address $address($did(BanSysteem,2).seltext,1) | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Reason $did(BanSysteem,1).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Time $did(BanSysteem,14).seltext | /dialog -c BanSysteem | /timer 1 1 dialog $iif($dialog(BanSysteem),-v,-m) BanSysteem BanSysteem | halt }
        if ($did(BanSysteem,14).seltext == 1h) { ban -u3600 $active $address($did(BanSysteem,2).seltext,1) | Colorban | write BanSysteemLogs.txt Name: $did(BanSysteem,2).seltext - Reason: $did(BanSysteem,1).seltext - Date: $fulldate - Time: 1h | timer 1 3600 /remini BanSysteemLogs.ini $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Name $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Address $address($did(BanSysteem,2).seltext,1) | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Reason $did(BanSysteem,1).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Time $did(BanSysteem,14).seltext | /dialog -c BanSysteem | /timer 1 1 dialog $iif($dialog(BanSysteem),-v,-m) BanSysteem BanSysteem | halt }
        if ($did(BanSysteem,14).seltext == 2h) { ban -u7200 $active $address($did(BanSysteem,2).seltext,1) | Colorban | write BanSysteemLogs.txt Name: $did(BanSysteem,2).seltext - Reason: $did(BanSysteem,1).seltext - Date: $fulldate - Time: 2h | timer 1 7200 /remini BanSysteemLogs.ini $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Name $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Address $address($did(BanSysteem,2).seltext,1) | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Reason $did(BanSysteem,1).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Time $did(BanSysteem,14).seltext | /dialog -c BanSysteem | /timer 1 1 dialog $iif($dialog(BanSysteem),-v,-m) BanSysteem BanSysteem | halt }
        if ($did(BanSysteem,14).seltext == 3h) { ban -u10800 $active $address($did(BanSysteem,2).seltext,1) | Colorban | write BanSysteemLogs.txt Name: $did(BanSysteem,2).seltext - Reason: $did(BanSysteem,1).seltext - Date: $fulldate - Time: 3h | timer 1 10800 /remini BanSysteemLogs.ini $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Name $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Address $address($did(BanSysteem,2).seltext,1) | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Reason $did(BanSysteem,1).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Time $did(BanSysteem,14).seltext | /dialog -c BanSysteem | /timer 1 1 dialog $iif($dialog(BanSysteem),-v,-m) BanSysteem BanSysteem | halt }
        if ($did(BanSysteem,14).seltext == 5h) { ban -u18000 $active $address($did(BanSysteem,2).seltext,1) | Colorban | write BanSysteemLogs.txt Name: $did(BanSysteem,2).seltext - Reason: $did(BanSysteem,1).seltext - Date: $fulldate - Time: 5h | timer 1 18000 /remini BanSysteemLogs.ini $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Name $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Address $address($did(BanSysteem,2).seltext,1) | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Reason $did(BanSysteem,1).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Time $did(BanSysteem,14).seltext | /dialog -c BanSysteem | /timer 1 1 dialog $iif($dialog(BanSysteem),-v,-m) BanSysteem BanSysteem | halt }
        if ($did(BanSysteem,14).seltext == 10h) { ban -u36000 $active $address($did(BanSysteem,2).seltext,1) | Colorban | write BanSysteemLogs.txt Name: $did(BanSysteem,2).seltext - Reason: $did(BanSysteem,1).seltext - Date: $fulldate - Time: 10h | timer 1 36000 /remini BanSysteemLogs.ini $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Name $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Address $address($did(BanSysteem,2).seltext,1) | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Reason $did(BanSysteem,1).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Time $did(BanSysteem,14).seltext | /dialog -c BanSysteem | /timer 1 1 dialog $iif($dialog(BanSysteem),-v,-m) BanSysteem BanSysteem | halt }
        if ($did(BanSysteem,14).seltext == 1d) { ban -u86400 $active $address($did(BanSysteem,2).seltext,1) | Colorban | write BanSysteemLogs.txt Name: $did(BanSysteem,2).seltext - Reason: $did(BanSysteem,1).seltext - Date: $fulldate - Time: 1d | timer 1 86400 /remini BanSysteemLogs.ini $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Name $did(BanSysteem,2).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Address $address($did(BanSysteem,2).seltext,1) | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Reason $did(BanSysteem,1).seltext | /writeini BanSysteemLogs.ini $did(BanSysteem,2).seltext Time $did(BanSysteem,14).seltext | /dialog -c BanSysteem | /timer 1 1 dialog $iif($dialog(BanSysteem),-v,-m) BanSysteem BanSysteem | halt }
      }
      if ($did == 17) && ($devent == sclick) { 
        if (%BanSysteemColor == 0) || (%BanSysteemColor == $null) { /set %BanSysteemColor 1 | did -a BanSysteem 17 Color: On | halt }
        if (%BanSysteemColor == 1) { /set %BanSysteemColor 0 | did -a BanSysteem 17 Color: Off
        }
      }
    }
  }
}

alias Colorban {
  if ($did(BanSysteem,14).seltext == Kick) && (%BanSysteemColor == 0) || (%BanSysteemColor == $null) { /kick $active $did(BanSysteem,2).seltext $me $+ : $did(BanSysteem,1).seltext (Kick }
  if ($did(BanSysteem,14).seltext == Kick) && (%BanSysteemColor == 1) { /kick $active $did(BanSysteem,2).seltext 10 $+ $me $+ :5 $did(BanSysteem,1).seltext (Kick }
  if ($did(BanSysteem,14).seltext == 5m) && (%BanSysteemColor == 0) || (%BanSysteemColor == $null) { /kick $active $did(BanSysteem,2).seltext $me $+ : $did(BanSysteem,1).seltext (5min }
  if ($did(BanSysteem,14).seltext == 5m) && (%BanSysteemColor == 1) { /kick $active $did(BanSysteem,2).seltext 10 $+ $me $+ :5 $did(BanSysteem,1).seltext (5min }
  if ($did(BanSysteem,14).seltext == 10m) && (%BanSysteemColor == 0) || (%BanSysteemColor == $null) { /kick $active $did(BanSysteem,2).seltext $me $+ : $did(BanSysteem,1).seltext (10min }
  if ($did(BanSysteem,14).seltext == 10m) && (%BanSysteemColor == 1) { /kick $active $did(BanSysteem,2).seltext 10 $+ $me $+ :5 $did(BanSysteem,1).seltext (10min }
  if ($did(BanSysteem,14).seltext == 15m) && (%BanSysteemColor == 0) || (%BanSysteemColor == $null) { /kick $active $did(BanSysteem,2).seltext $me $+ : $did(BanSysteem,1).seltext (15min }
  if ($did(BanSysteem,14).seltext == 15m) && (%BanSysteemColor == 1) { /kick $active $did(BanSysteem,2).seltext 10 $+ $me $+ :5 $did(BanSysteem,1).seltext (15min }
  if ($did(BanSysteem,14).seltext == 30m) && (%BanSysteemColor == 0) || (%BanSysteemColor == $null) { /kick $active $did(BanSysteem,2).seltext $me $+ : $did(BanSysteem,1).seltext (30min }
  if ($did(BanSysteem,14).seltext == 30m) && (%BanSysteemColor == 1) { /kick $active $did(BanSysteem,2).seltext 10 $+ $me $+ :5 $did(BanSysteem,1).seltext (30min }
  if ($did(BanSysteem,14).seltext == 1h) && (%BanSysteemColor == 0) || (%BanSysteemColor == $null) { /kick $active $did(BanSysteem,2).seltext $me $+ : $did(BanSysteem,1).seltext (1h }
  if ($did(BanSysteem,14).seltext == 1h) && (%BanSysteemColor == 1) { /kick $active $did(BanSysteem,2).seltext 10 $+ $me $+ :5 $did(BanSysteem,1).seltext (1h }
  if ($did(BanSysteem,14).seltext == 2h) && (%BanSysteemColor == 0) || (%BanSysteemColor == $null) { /kick $active $did(BanSysteem,2).seltext $me $+ : $did(BanSysteem,1).seltext (2h }
  if ($did(BanSysteem,14).seltext == 2h) && (%BanSysteemColor == 1) { /kick $active $did(BanSysteem,2).seltext 10 $+ $me $+ :5 $did(BanSysteem,1).seltext (2h }
  if ($did(BanSysteem,14).seltext == 3h) && (%BanSysteemColor == 0) || (%BanSysteemColor == $null) { /kick $active $did(BanSysteem,2).seltext $me $+ : $did(BanSysteem,1).seltext (3h }
  if ($did(BanSysteem,14).seltext == 3h) && (%BanSysteemColor == 1) { /kick $active $did(BanSysteem,2).seltext 10 $+ $me $+ :5 $did(BanSysteem,1).seltext (3h }
  if ($did(BanSysteem,14).seltext == 5h) && (%BanSysteemColor == 0) || (%BanSysteemColor == $null) { /kick $active $did(BanSysteem,2).seltext $me $+ : $did(BanSysteem,1).seltext (5h }
  if ($did(BanSysteem,14).seltext == 5h) && (%BanSysteemColor == 1) { /kick $active $did(BanSysteem,2).seltext 10 $+ $me $+ :5 $did(BanSysteem,1).seltext (5h }
  if ($did(BanSysteem,14).seltext == 10h) && (%BanSysteemColor == 0) || (%BanSysteemColor == $null) { /kick $active $did(BanSysteem,2).seltext $me $+ : $did(BanSysteem,1).seltext (10h }
  if ($did(BanSysteem,14).seltext == 10h) && (%BanSysteemColor == 1) { /kick $active $did(BanSysteem,2).seltext 10 $+ $me $+ :5 $did(BanSysteem,1).seltext (10h }
  if ($did(BanSysteem,14).seltext == 1d) && (%BanSysteemColor == 0) || (%BanSysteemColor == $null) { kick $active $did(BanSysteem,2).seltext $me $+ : $did(BanSysteem,1).seltext (1d }
  if ($did(BanSysteem,14).seltext == 1d) && (%BanSysteemColor == 1) { kick $active $did(BanSysteem,2).seltext 10 $+ $me $+ :5 $did(BanSysteem,1).seltext (1d }
}

Like Page Follow Author

Comments

Sorasyn - Nov 20, 2009

i like it it's very useful :) 1 few things that could be shortened:

if ($did(BanSysteem,14).seltext == Kick) { Colorban | /dialog -c BanSysteem | /timer 1 1 dialog $iif($dialog(BanSysteem),-v,-m) BanSysteem BanSysteem | halt }

could be written as


if ($did(14).seltext == Kick) { Colorban | /dialog -c BanSysteem | /timer 1 1 dialog $iif($dialog(BanSysteem),-v,-m) BanSysteem BanSysteem | halt }

no need to specify what dialog the command works with since you specified it in the "on :DIALOG:bansysteem::*{"
functions perfectly :D just can be shortened a bit. 7/10 :)

EDIT - dont be afraid to break commands down into seperate lines rather than packing them into one line. Makes it a tad faster, and easier to locate problems in the script :)

Respond

Purcell - Nov 15, 2009

Version 1.2

Respond

Purcell - Nov 14, 2009

Systeem = NL for System.
Doesn't matter.

Ok, I will see ;)

Respond

Cracker200 - Nov 14, 2009

And, you should add a Logger so it logs who you've banned and kicked just a tip i'd do it like that infact i'm going to :) because i like it alot lol :D

Respond

Cracker200 - Nov 14, 2009


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

Respond