Something

on *:text:!setreq*:#: {
  if ($nick isop $chan) {
    set %cmb.req [ $+ [ $chan ] ] $2
    msg $chan 4Channel requirement has been changed to:7 %cmb.req [ $+ [ $chan ] ]
  }
  else {
    /notice $nick 4Only 7OP's 4can use this command.
  }
}
on *:text:!unsetreq:#: {
  if ($nick isop $chan) {
    unset %cmb.req [ $+ [ $chan ] ]
  }
  else {
    /notice $nick 4Only 7OP's 4can use this command.
  }
}
on *:join:#: {
  if (!%cmb.req [ $+ [ $chan ] ] || $nick == $me) { HALT }
  else {
    var %joincb.msock = $right($ticks,6)
    set %joincb.nick [ $+ [ %joincb.msock ] ] $replace($nick,$chr(32),_)
    set %msg.chan [ $+ [ %joincb.msock ] ] /msg $chan
    set %joincb.chan [ $+ [ %joincb.msock ] ] $chan
    sockopen cbjoin [ $+ [ %joincb.msock ] ] www.slushpuppy.silverinterlocution.org 80
  }
}
on *:sockopen:cbjoin*: {
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %joincb.nick [ $+ [ $right($sockname,6) ] ] HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:cbjoin*: {
  var %joincb.sockread
  sockread %joincb.sockread
  if (*does not feature* iswm %joincb.sockread) {
    kick %joincb.chan [ $+ [ $right($sockname,6) ] ] %joincb.nick [ $+ [ $right($sockname,6) ] ] You're nick does not feature in the highscores. Please join with your RS Name. 5 min ban.
    mode %joincb.chan [ $+ [ $right($sockname,6) ] ] +b $address(%joincb.nick [ $+ [ $right($sockname,6) ] ],2)
    notice %joincb.nick [ $+ [ $right($sockname,6) ] ] You're nick does not feature in the highscores. Please join with your RS Name. 5 min ban.
    timer 1 $calc(5 * 60) mode %joincb.chan [ $+ [ $right($sockname,6) ] ] -b $address(%joincb.nick [ $+ [ $right($sockname,6) ] ] ,2)
    timer 1 $calc(5 * 60) notice %joincb.nick [ $+ [ $right($sockname,6) ] ] You are now unbanned from %joincb.chan [ $+ [ $right($sockname,6) ] ]
    unset %joincb.nick [ $+ [ $right($sockname,6) ] ]
    unset %msg.chan [ $+ [ $right($sockname,6) ] ]
    unset %joincb.chan [ $+ [ $right($sockname,6) ] ]
    sockclose $sockname
  }
  if (*combat level for* iswm %joincb.sockread [ $+ [ $right($sockname,6) ] ]) {
    tokenize 32 %joincb.sockread
    set %combat.wait [ $+ [ %joincb.msock ] ] $remove($7,<br>)
    echo -a %combat.wait [ $+ [ $right($sockname,6) ] ]
    set %joincb.continue [ $+ [ %joincb.msock ] ] true
  }
  if (%combat.wait [ $+ [ $right($sockname,6) ] ] < %cmb.req [ $+ [ $chan ] ] && %joincb.continue [ $+ [ $right($sockname,6) ] ] == true) {
    notice %joincb.nick { $+ [ $right($sockname,6) ] ] You don't meet the combat requirement. 5 min ban.
      mode %joincb.chan [ $+ [ $right($sockname,6) ] ] +b $address(%joincb.nick [ $+ [ $right($sockname,6) ] ],2)
      timer 1 $calc(5 * 60) mode %joincb.chan [ $+ [ $right($sockname,6) ] ] -b $address(%joincb.nick [ $+ [ $right($sockname,6) ] ] ,2)
      timer 1 $calc(5 * 60) notice %joincb.nick [ $+ [ $right($sockname,6) ] ] You are now unbanned from %joincb.chan [ $+ [ $right($sockname,6) ] ]
      set %joincb.continue2 [ $+ [ %joincb.msock ] ] true
    }
    if (%combat.wait [ $+ [ $right($sockname,6) ] ] >= %cmb.req [ $+ [ $chan ] ] && %joincb.continue2 [ $+ [ $right($sockname,6) ] ] == true) {
      %msg.chan [ $+ [ $right($sockname,6) ] ] 4The combat level for7 %joincb.nick [ $+ [ $right($sockname,6) ] ] 4is7 %combat.wait [ $+ [ $right($sockname,6) ] ] 4and is able to join the channel!
      unset %joincb.nick [ $+ [ $right($sockname,6) ] ]
      unset %msg.chan [ $+ [ $right($sockname,6) ] ]
      unset %joincb.chan [ $+ [ $right($sockname,6) ] ]
      unset %joincb.continue2 [ $+ [ $right($sockname,6) ] ]
      unset %joincb.continue [ $+ [ $right($sockname,6) ] ]
      sockclose $sockname
    }
  }
}