topic para justin mirc

 este es el !topic !vemos etc como lo quieran llamar  y trabaja asi !Ctopic 90 fast five , !BTOPIC para borrar el topic !topic para ver el topic
nota: no modifiques los comandos para que no tengas erores





##################

###MUGROCITO###

##################
on *:text:!CTOPIC*:#: {
  if ($nick isop $chan) {
    if ($2 isnum) {
      set %topicmugrotime. [ $+ [ $chan ] ] $calc($ctime + ( $2 * 60 ) )
      set %topicmugro [ $+ [ $chan ] ] $3-
      set %topicmugrotnick [ $+ [ $chan ] ] $nick
      describe $chan Estamos viendo: =====> %topicmugro [ $+ [ $chan ] ]  <===== Falta para que termine: $duration($calc(%topicmugrotime. [ $+ [ $chan ] ] - $ctime))) $+ .
      timer 1 $calc($2 * 60)  describe $chan La pelicula:----> %topicmugro [ $+ [ $chan ] ] <----  ha finalizado!
      timer 1 $calc($2 * 60) unset %eventtime. [ $+ [ $chan ] ]
      timer 1 $calc($2 * 60) unset %event [ $+ [ $chan ] ]
      timer 1 $calc($2 * 60) unset %eventnick [ $+ [ $chan ] ]

    }
    elseif ($2 !isnum 1-) || (!$4) {
      describe $chan $nick Error, Teclea: !ctopic <duracion de la pelicula> <pelicula>
    }
  }

}

##################

###MUGROCITO###

##################


on *:TEXT:!TOPIC:#: {
  if (%topicmugrotime. [ $+ [ $chan ] ] == $null) {
    describe $chan $nick No hay pelicula configurada :( | halt
  }
  else describe $chan Estamos viendo: ====> %topicmugro [ $+ [ $chan ] ] <===== Falta para que termine: $duration($calc(%topicmugrotime. [ $+ [ $chan ] ] - $ctime))) $+ .
}

##################

###MUGROCITO###

##################


On *:TEXT:!bTOPIC:#: {
  if ($nick isop $chan) {
    unset %topicmugrotime. [ $+ [ $chan ] ]
    unset %topicmugro [ $+ [ $chan ] ]
    unset %topicmugronick [ $+ [ $chan ] ]
    describe $chan pelicula borrada por $nick $+ .
  }
}