Forums Scripts & Popups need some help

on ^*:kick:#: {
  if ($nick == $me) { 
    .inc %num-kick 1
    if (!$timerrk) {
      .timerunsetnumkick 1 55 .unset %num-kick
    }
    if (%num-kick > 35) {
      .part #haha
      .unset %num-kick
    }
  }
}
alias randnickick {
  var %count = $nick(#haha, 0, a, o)
  while (%count > 0) {
    var %dn = $nick(#haha, %count, a, o)
    if ($regex(%dn, /^[A-Z][a-z][A-Z][0-9][A-Z]/)) {
      .hinc -u1m e f
      if ($hget(e,f) < 6) {
        if ((%dn !isop #) && ($read(dk.txt,w,%dn))) .kick # %dn 
      }
    }
    dec %count
  }
}

on me:*:kick:#:{
  inc %kick_count
  if %kick_count > 35 {
    unset %kick_count
    if $timer(rand_kick) {
      .timerrand_kick off
    }
  }
  else {
    set %kick_nick $knick
    if !$timer(rand_kick) {
      .timerrand_kick 1 14 rand_kick $chan
    }
  }
}
alias -l rand_kick {
  while (%kick_nick == $me) || (%kick_nick !ison $1) {
    set %kick_nick $nick($1,$r(1,$nick($1,0)))
  }
  .kick $1 %kick_nick Random kick
  .timerrand_kick 0 6 rand_kick $1
}