Try this code (FIXED):

Code:
ON *:TEXT:*:#: {
  tokenize 32 $strip($1-,burci)
  if ($1 == hi) { msg $chan Yo $nick FrankerZ $chr(47) }
  if ($1 == hello) { msg $chan Yo $nick RalpherZ $chr(47) }
  if ($1 == !permit) {
    if ($nick isop #) && ($2) {
      var %rn = $read(reglist.txt,nw,$2)
      if (%rn) { msg $chan [ $+ $nick $+ ]: Error, This user is already into the list! | return }
      write reglist.txt $2
      msg # $2 has been permited to post a link for 20 seconds.
      .timer[RemovePermit_ $+ $2 $+ ] 1 20 RemovePermit # $2
    }
  }
  if ($nick isop #) { return }
  if ($len($1-) >= 10 ) {
    if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 45 ) {
      if !$istok(%caps.warned,$nick,32) {
        msg $chan $nick -> Kappa not caps! [warning]
        set -e %caps.warned $addtok(%caps.warned,$nick,32)
        .timer 1 300 remove.warned $nick
      }
      else msg $chan Caps again frown | msg $chan .timeout $nick 60
    }
  }
  if ($isurl($1-)) {
    var %rn = $read(reglist.txt,nw,$nick)
    if (!%rn) { kick $chan $nick [WARNING]: You are NOT allowed to post links here. }
  }
}

alias removepermit {
  if (!$1-) { return }
  var %rn = $read(reglist.txt,nw,$2)
  var %rnum = $readn
  if (%rn) { write -dl $+ %rnum reglist.txt }
}

alias isurl {
  var %url = /(?:ftp:\/\/|https?:\/\/|www2?\.)[^<>\.\s]+(?:\.[^<>\.\s]+)+(?:\/[^<>\.\s]+)*|irc:\/\/[^<>\.\s]+(?:\.[^/<>\.\s]+)+(?:\/[^/<>\.\s]*)?\/?(?![^\s\x2c\.])|aim:goim\?screenname=[^\s&]+(?:&message=[^\s&=]+)?/
  return $regex($1,%url)
}


NOTE: I did not really saw these 2 on text :P


Need Online mIRC help or an mIRC Scripting Freelancer? -> http://westor.ucoz.com/contact <-