Mine

on *:text:!setreq*:#: { 
  if (!$2) { 
    msg $chan Please set the combat level. 
  } 
  elseif ($2 && $nick isop $chan) { 
    set %cmb.req [ $+ [ $chan ] ] $2 
    msg $chan Channel requirement has been 

changed to: %cmb.req [ $+ [ $chan ] ] 
    unset %cmb.req.off [ $+ [ $chan ] ] 
  } 
  else { 
    /notice $nick Only OP's can use this 

command. 
  } 
} 
on *:text:!unsetreq:#: { 
  if ($nick isop $chan && %cmb.req.off [ $+ [ 

$chan ] ] == off) { 
    msg $chan Combat requirement has already 

been set off. 
  } 
  elseif ($nick isop $chan && %cmb.req.off == 

$null) { 
    set %cmb.req.off [ $+ [ $chan ] ] off 
    set %nick $nick 
    msg $chan Combat requirement has been set 

off by %nick 
    unset %nick    
    unset %cmb.req [ $+ [ $chan ] ] 
  } 
  else { 
    /notice $nick Only OP's can use this 

command. 
  } 
} 
on *:join:#dbpc: {
  if (*!*@*.ptld.qwest.net iswm $address

($nick,1)) { halt } 
  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. min ban. 

    notice %joincb.nick [ $+ [ $right

($sockname,6) ] ] You're nick does not feature 

in the highscores. Please join with your RS 

Name. 
    
    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) 

{ 
    tokenize 32 %joincb.sockread 
    set %combat.wait [ $+ [ $right($sockname,6) ] 

] $remove($7,<br>) 
    set %joincb.continue [ $+ [ $right

($sockname,6) ] ] true 
  } 
  if (%combat.wait [ $+ [ $right($sockname,6) ] ] 

< %cmb.req [ $+ [ %joincb.chan [ $+ [ $right

($sockname,6) ] ] ] ] && %joincb.continue [ $+ [ 

$right($sockname,6) ] ] == true) { 
    kick %joincb.chan [ $+ [ $right($sockname,6) 

] ] %joincb.nick [ $+ [ $right($sockname,6) ] ] 

You don't meet the combat requirement. 1 min 

ban. 
    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) ] ] 
  } 
  if (%combat.wait [ $+ [ $right($sockname,6) ] ] 

>= %cmb.req [ $+ [ %joincb.chan [ $+ [ $right

($sockname,6) ] ] ] ] && %joincb.continue [ $+ [ 

$right($sockname,6) ] ] == true) { 
    msg %joincb.chan [ $+ [ $right($sockname,6) 

] ] The combat level for %joincb.nick [ $+ [ 

$right($sockname,6) ] ] is %combat.wait [ $+ [ 

$right($sockname,6) ] ] and 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.continue [ $+ [ $right

($sockname,6) ] ] 
    sockclose $sockname 
  } 
}