on *:text:!setreq*:#: {
  if (!$2) {
    msg $chan 4Please set the combat level.
  }
  elseif ($2 && $nick isop $chan) {
    set %cmb.req [ $+ [ $chan ] ] $2
    msg $chan 4Required combat level for this channel has been changed to:7 %cmb.req [ $+ [ $chan ] ] $+ +
    unset %cmb.req.off [ $+ [ $chan ] ]
  }
  else {
    /notice $nick 4Only 7OP's 4can use this command.
  }
}
on *:text:!unsetreq:#: {
  if ($nick isop $chan && %cmb.req.off [ $+ [ $chan ] ] == off) {
    msg $chan 4Combat requirement has already been set 7off.
  }
  elseif ($nick isop $chan && %cmb.req.off == $null) {
    set %cmb.req.off [ $+ [ $chan ] ] off
    set %nick $nick
    msg $chan 4Combat requirement has been set off by7 %nick
    unset %nick    
    unset %cmb.req [ $+ [ $chan ] ]
  }
  else {
    /notice $nick 4Only 7OP's 4can use this command.
  }
}
on *:join:#: {
  if (!%cmb.req [ $+ [ $chan ] ] || $nick == $me) { HALT }
  else {
    if (%cmbname [ $+ [ $address ] ]) {
      set %joincb.nick [ $+ [ %joincb.msock ] ] %cmbname [ $+ [ $address ] ]
    }
    else {
      set %joincb.nick [ $+ [ %joincb.msock ] ] $replace($nick,$chr(32),_)
    }
  }
  else {
    var %joincb.msock = $right($ticks,6)
    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) ] ] 4You're nick does not feature in the highscores. Please join with your 7RS4 Name. 754 min ban.
    mode %joincb.chan [ $+ [ $right($sockname,6) ] ] +b $address(%joincb.nick [ $+ [ $right($sockname,6) ] ],2)
    notice %joincb.nick [ $+ [ $right($sockname,6) ] ] 4You're nick does not feature in the highscores. Please join with your RS Name.7 5 4min 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) ] ] 4You are now unbanned from7 %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) {
    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) ] ] 4You don't meet the combat requirement.7 5 4min ban.
    notice %joincb.nick [ $+ [ $right($sockname,6) ] ] 4You don't meet the combat requirement.7 5 4min 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) ] ] 4You are now unbanned from7 %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) ] ] 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.continue [ $+ [ $right($sockname,6) ] ]
    sockclose $sockname
  }
}
on $*:text:/^[@!.]req/Si:#: {
  set %reqcheck.text [ $+ [ $nick ] ] $iif($left($1,1) == @,msg $chan,notice $nick)
  %reqcheck.text [ $+ [ $nick ] ] 4The required combat level for this channel is7 %cmb.req [ $+ [ $chan ] ] $+ +
}
on $*:text:/^[!@.~](setname|allow|name)/Si:#: {
  if (!$2-) { notice $nick 4You must specify a name! 7!setname (RS name)4!
    HALT
  }
  else {
    set %cmbname [ $+ [ $address ] ] $replace($2-,$chr(32),_)
    notice $nick 4Name set to:7 %cmbname [ $+ [ $address ] ]
  }
}
on $*:text:/^[!@~.](checkname|allowname)/Si:#: {
  if (%cmbname [ $+ [ $address ] ] == $null) { notice nick 4You did not set a name. 7!setname (RS name) 4to set one. | HALT }
  else {
    notice $nick 4The name you use:7 %cmbname [ $+ [ $address ] ]
  }
}
on $*:text:/^[!@.~](unsetname|unname)/Si:#: {
  unset %cmbname [ $+ [ $address ] ]
  notice $nick 4Name has been unset!
}