I need help with a !tb <-- Time Ban script. I want it to be like !tb 1 (d,w,y) Any Ideas?

Here it is!

On $*:Text:/^[@!.](Timeban|tb)/Si:#:{ 
  if ($2 == -s) { 
    set %o.1 $iif($left($1,1) == @, msg $chan, notice $nick)
    %o.1 $logo(timebans) I've did %timebans timebans.
    unset %o.*
  }
  else {
    if ($nick isop $chan) || ($nick ishop $chan) {
      if ($me ishop $chan || $me isop $chan) {
        inc %timebans 1
        set %tb.dur $calc( $3 * 9999 )
        set %tb.reason $iif($left($4,1) == $null, No reason given, $4-)
        /ban $+(-ku,%tb.dur) $chan $2 $2 3has been timebanned for $3 $+ 3mins! Reason: %tb.reason
        unset %tb.*
      }
    }
    else {      notice $nick $logo(error) You must be a channel operator (+o) or an channel halfop (+h) to use this command. $+([) $+ $scripter $+ $+(]) }
  }
}