Miscellany

on *:invite:#: {
  if ($chan == #bots) || ($chan == #bot) { HALT }
}

on *:text:!setreq*:#: {
  if ($nick isop $chan) {
    writeini -n setban.ini ban $chan $2
    writeini -n setbanattnstr.ini att+str $chan $3
    msg # 4[14*4Requirements14*4]14 You need $readini(setban.ini,n,ban,$chan) combat or $readini(setbanattnstr.ini,n,att+str,$chan) att+str
  }
}

on *:text:!delreq*:#: {
  if ($nick isop $chan) {
    remini -n setban.ini ban $chan
    remini -n setbanattnstr.ini attnstr $chan
    msg # 4[14*4Requirements14*4]14 Requirements have been unset
  }
}

on *:TEXT:!req on*:#:{ 
  if ($nick isop $chan || $nick ishop $chan || $nick == Daryl|) { msg $chan 4Reqs for5 $chan 4are currently set to 5ON 4| to make sure the reqs work plz set requirements by doin !setreq CMB ATT+STR (e.g !setreq 90 170 will be 90+cmb and 170+ att+str)
  set %pc.kicker $+ $chan ON  }
}
on *:TEXT:!req off*:#:{ if ($nick isop $chan || $nick ishop $chan || $nick == Daryl|) { msg $chan 4Reqs for5 $chan 4are currently set to5 OFF to delete the set requirements do !delreq
  set %pc.kicker $+ $chan OFF  }
}

on *:JOIN:#:{
  if ($chan == #bot) || ($chan == #ircbots) { HALT }
  if (%pc.kicker [ $+ [ $chan ] ] == OFF) { Halt }
  if ($nick == $me) { Halt }
  if (%haltpccommands [ $+ [ $chan ] ] == off) { HALT }
  set %channy $chan
  set %user $nick
  set %pc.msg msg #
  set %cmb $readini(setban.ini,n,ban,$chan)
  set %attstr $readini(setbanattnstr.ini,n,att+str,$chan)
  sockopen pestkick www.slushpuppy.silverinterlocution.org 80
}
on *:SOCKOPEN:pestkick*:{
  sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ %user HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:pestkick*:{
  var %sockread
  set %attnstr $calc(%attack + %strength)
  sockread %sockread
  if (<b> isin %sockread) {
    set %attack $gettok($htmlfree(%sockread),4,32)
    set %strength $gettok($htmlfree(%sockread),8,32) 
    set %mage $gettok($htmlfree(%sockread),16,32) 
    set %range $gettok($htmlfree(%sockread),12,32) 
  }
  if (<br> isin %sockread) {
    var %combat = $htmlfree(%sockread)
    if (%combat > %cmb) && (%attnstr > %attstr) { %pc.msg 3PASSED 14Rsn:3 %user 2¤14 Att 2&14 Str :3 %attnstr $+ 4/ $+ %attstr 2¤14 Combat:3 %combat $+ 4/ $+ %cmb  2¤14 Range:3 %mage 2¤14 Mage:3 %range  }
    if (%combat < %cmb) && (%attnstr < %attstr) { %pc.msg 4FAILED 14Rsn:3 %user 2¤14 Att 2&14 Str :3 %attnstr $+ 4/ $+ %attstr 2¤14 Combat:3 %combat $+ 4/ $+ %cmb  2¤14 Range:3 %mage 2¤14 Mage:3 %range  }
    sockclose $sockname | unset %combat.3 | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg | unset %mage | unset %range | unset %attnstr
  }
}

on *:Sockclose:pestkick*:{
  Sockclose $sockname
  unset %combat | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg | unset %mage | unset %range | unset %attnstr
}


alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x }



alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x }