Anonymous

on $10:text:/^[!@.](del)?(exempt|except|ex)/si:#: {
  if ($right($1,4) == list) {
    var %x = 1
    notice $nick 6Exemption list for10 $chan $+ 6:
    while ($ini(exlist.ini, $chan, %x)) {
      notice $nick 10 %x $+ .6 $ini(exlist.ini, $chan, %x)
      inc %x
    }
    notice $nick 6End of Exemption List.
    halt
  }
  if (!$2) {
    msg $chan 6Please specify the nick.  | halt
  }
  if ($mid($1,2,3) != del) {
    if ($readini(exlist.ini, $chan, $2)) {
      msg $chan 10 $+ $2 6is already on the exemption list.
    }
    else {
      writeini exlist.ini $chan $2 exempt
      msg $chan 10 $+ $2 6has been added to the exemption list.
    }
  }
  if ($mid($1,2,3) == del) {
    if ($readini(exlist.ini, $chan, $2)) {
      remini exlist.ini $chan $2
      msg $chan 10 $+ $2 6has been deleted from the exemption list.
    }
    else {
      msg $chan 10 $+ $2 6is not on the exemption list.
    }
  }
}



on *:text:!av*:#: {
  if ($nick isop $chan) {
    if ($2 == $null) {
      if (%avoice [ $+ [ $chan ] ] == $null) {   
        set %avoice [ $+ [ $chan ] ] OFF
        msg $chan 6Av is 10OFF
      }
      else { msg $chan 6Av is10 %avoice [ $+ [ $chan ]  ] $+ 6.   }
    }
    if ($2 == on) {
      set %avoice [ $+ [ $chan ]  ] ON
      msg $chan 6Av has been turned 10ON6.
    }
    if ($2 == off) {
      set %avoice [ $+ [ $chan ]  ] OFF
      msg $chan 6Av has been turned 10OFF6.
    }
  }
  else { notice $nick 6You must be op or hop to do that.  }
}
on *:text:.av*:#: {
  if (($nick isop $chan) || ($nick ishop $chan)) {
    if ($readini(avlist.ini, $chan, $2 $+ $address($2,1))) {
      msg $chan 4[[10 $2 4]]6 is already added to 10AutoVoice6 list.
    }
    else {
      if ($2 ison $chan) {     
        writeini -n avlist.ini $chan $2 $+ $address($2,1)  -~- added by: $nick
        msg $chan 4[[10 $2 4]]6 has been added to 10AutoVoice6 list by4 [[10 $nick 4]]6.
      }     
      else {
        msg $chan 6User must be on channel.
      }
    }
  }
  else {
    notice $nick 6You must be op to do that.
  }
}
on *:text:.delav*:#: {
  if (($nick isop $chan) || ($nick ishop $chan)) {
    if ($readini(avlist.ini, $chan, $2 $+ $address($2,1))) {
      remini -n avlist.ini $chan $2 $+ $address($2,1)
      msg $chan 4[[10 $2 4]]6 has been deleted from the 10AutoVoice6 List by4 [[10 $nick 4]]6.
    }
    else { msg $chan 4[[10 $2 4]]6 is not on 10AutoVoice6 list.

    }
    else { notice $nick 6You must be op or hop to do that.
    }
  }
}
on *:text:!enforce*:#: {
  if ($nick isop $chan) {
    if ($2 == $null) {
      if (%enforce [ $+ [ $chan ] ] == $null) {
        set %enforce [ $+ [ $chan ] ] OFF
        msg $chan 6Req enforce is 10OFF6.
      }
      else { msg $chan 6Req enforce is10 %enforce [ $+ [ $chan ]  ] $+ 6.  }
    }
    if ($2 == on) {
      set %enforce [ $+ [ $chan ]  ] ON
      msg $chan 6Req enforce has been turned 10ON6.
    }
    if ($2 == off) {
      set %enforce [ $+ [ $chan ]  ] OFF
      msg $chan 6Req enforce has been turned 10OFF6.
    }
  }
  else { notice $nick 6You must be op to do that. }
}
on $*:text:/^[!@.]setreqs (cmb)/si:#: {
  if ($nick isop $chan) {
    if ($2 == cmb) {
      if ($3 isalpha) { msg $chan 6Reqs must be made up of numbers only.
      }
      elseif (!$3) { msg $chan 6Please specify the level.
      }
      Else {
        set %reqcmb [ $+ [ $chan ] ] $3
        msg $chan 10¤¤NEW¤¤6 Combat Requirement for10 $chan 6has been set to10 %reqcmb [ $+ [ $chan ] ] $+ 6.
      }
    }
  }
  Else { notice $nick 6You must be op to do that.
  }
}
on $*:text:/[!@.](reqs)/Si:#: {
  set %reqmsg [ $+ [ $chan ] ] $iif($left($1,1) = @, msg $chan, notice $nick)
  if (($nick isop $chan) || ($nick ishop)) {
    %reqmsg [ $+ [ $chan ] ] 6Requirements for10 $chan $+ 4- 6Combat Level4:10 %reqcmb [ $+ [ $chan ] ] 
    unset %reqmsg [ $+ [ $chan ] ]
  }
}
on *:text:!cmbcheck*:#: {
  if ($2 == on) {
    set %cmbcheck [ $+ [ $chan ]  ] ON
    msg $chan 6Cmbcheck has been turned 10ON6.
  }
  if ($2 == off) {
    set %cmbcheck [ $+ [ $chan ]  ] OFF
    msg $chan 6Cmbcheck has been turned10 OFF6.
  }
  if ($2 == $null) {
    msg $chan 6Cmbcheck is10 %cmbcheck [ $+ [ $chan ]  ] $+ 6.
  }
}
on *:join:#: {
  if ($readini(exlist.ini, $chan, $nick)) { halt }
  if ($nick == $me) { halt }
  if (%avoice [ $+ [ $chan ] ] == ON) {
    if ($readini(avlist.ini, $chan, $nick $+ $address($nick,1))) {
      /mode $chan +v $nick
      var %multi = $right($ticks,6)
      set %nmsg. [ $+ [ %multi ] ] notice $nick
      set %enforce. [ $+ [ %multi ] ] %enforce [ $+ [ $chan ]  ]
      set %reqcmb. [ $+ [ %multi ] ] %reqcmb [ $+ [ $chan ] ]
      set %pmnick. [ $+ [ %multi ] ] %pmname [ $+ [ $chan ] ]       
      set %chan. [ $+ [ %multi ] ] $chan
      set %user. [ $+ [ %multi ] ] $nick
      set %jmsg. [ $+ [ %multi ] ] msg $chan
      sockopen jcmb. [ $+ [ %multi ] ] www.slushpuppy.silverinterlocution.org 80
    }
    else {
      if (%cmbcheck [ $+ [ $chan ] ] == ON) {
        var %multi = $right($ticks,6)
        set %nmsg. [ $+ [ %multi ] ] notice $nick
        set %enforce. [ $+ [ %multi ] ] %enforce [ $+ [ $chan ]  ]
        set %reqcmb. [ $+ [ %multi ] ] %reqcmb [ $+ [ $chan ] ]
        set %pmnick. [ $+ [ %multi ] ] %pmname [ $+ [ $chan ] ]       
        set %chan. [ $+ [ %multi ] ] $chan
        set %user. [ $+ [ %multi ] ] $nick
        set %jmsg. [ $+ [ %multi ] ] msg $chan
        sockopen jcmb. [ $+ [ %multi ] ] www.slushpuppy.silverinterlocution.org 80
      }
      if (%cmbcheck [ $+ [ $chan ] ] == OFF) {
      notice $nick 6Please PM 4[[10 %pmnick [ $+ [ $chan ] ] 4]]6 in game for voice! | halt }
    }
  }
  if (%avoice [ $+ [ $chan ] ] == OFF) {
    if (%cmbcheck [ $+ [ $chan ] ] == ON) {
      var %multi = $right($ticks,6)
      set %nmsg. [ $+ [ %multi ] ] notice $nick
      set %enforce. [ $+ [ %multi ] ] %enforce [ $+ [ $chan ]  ]
      set %reqcmb. [ $+ [ %multi ] ] %reqcmb [ $+ [ $chan ] ]
      set %pmnick. [ $+ [ %multi ] ] %pmname [ $+ [ $chan ] ]       
      set %chan. [ $+ [ %multi ] ] $chan
      set %user. [ $+ [ %multi ] ] $nick
      set %jmsg. [ $+ [ %multi ] ] msg $chan
      sockopen jcmb. [ $+ [ %multi ] ] www.slushpuppy.silverinterlocution.org 80
    }
    if (%cmbcheck [ $+ [ $chan ] ] == OFF) {
    notice $nick 6Please PM 4[[10 %pmnick [ $+ [ $chan ] ] 4]]6 in game for voice! | halt }
  }
}
on *:sockopen:jcmb.*: {
  sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ %user. [ $+ [ $right($sockname,6) ] ]  HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:sockread:jcmb.*: {
  var %cmbread. [ $+ [ $right($sockname,6) ] ]
  sockread %cmbread. [ $+ [ $right($sockname,6) ] ]
  if (0<br> isin %cmbread. [ $+ [ $right($sockname,6) ] ]) {
    if (%enforce. [ $+ [ $right($sockname,6) ] ] == ON) {
      %jmsg. [ $+ [ $right($sockname,6) ] ] 6The rsn10 %user. [ $+ [ $right($sockname,6) ] ] 6does10 not6 appear in the highscores.
      /ban -u300 %chan. [ $+ [ $right($sockname,6) ] ] %user. [ $+ [ $right($sockname,6) ] ] 1
      /kick %chan. [ $+ [ $right($sockname,6) ] ] %user. [ $+ [ $right($sockname,6) ] ] 10Reason:6 Don't meet reqs. if this isn't your rs name, please use your rs name.10 5 min ban. 4¤10-4¤10-4¤ 6Noobs Owned:10 %kcount 4¤10-4¤10-4¤
      unset %jmsg. [ $+ [ $right($sockname,6) ] ] | unset %user. [ $+ [ $right($sockname,6) ] ] | unset %chan. [ $+ [ $right($sockname,6) ] ] | unset %enforce. [ $+ [ $right($sockname,6) ] ] | unset %reqcmb. [ $+ [ $right($sockname,6) ] ] | unset %pmnick. [ $+ [ $right($sockname,6) ] ] | unset %nmsg. [ $+ [ $right($sockname,6) ] ]
      sockclose $sockname
    }
    else {
      %jmsg. [ $+ [ $right($sockname,6) ] ] 6The rsn10 %user. [ $+ [ $right($sockname,6) ] ] 6does10 not6 appear in the highscores.
      %nmsg. [ $+ [ $right($sockname,6) ] ] 6Please PM 4[[10 %pmnick. [ $+ [ $right($sockname,6) ] ] 4]]6 in game for voice!
      unset %jmsg. [ $+ [ $right($sockname,6) ] ] | unset %user. [ $+ [ $right($sockname,6) ] ] | unset %chan. [ $+ [ $right($sockname,6) ] ] | unset %enforce. [ $+ [ $right($sockname,6) ] ] | unset %reqcmb. [ $+ [ $right($sockname,6) ] ] | unset %reqatkstr. [ $+ [ $right($sockname,6) ] ] | unset %reqcbstat. [ $+ [ $right($sockname,6) ] ] | unset %pmnick. [ $+ [ $right($sockname,6) ] ] | unset %nmsg. [ $+ [ $right($sockname,6) ] ]
      sockclose $sockname
    }
  }

  if (<b> isin %cmbread. [ $+ [ $right($sockname,6) ] ]) {
    set %atk. [ $+ [ $right($sockname,6) ] ]  $gettok(%cmbread. [ $+ [ $right($sockname,6) ] ] ,5,32)
    set %str. [ $+ [ $right($sockname,6) ] ]  $gettok(%cmbread. [ $+ [ $right($sockname,6) ] ] ,9,32)
    set %def. [ $+ [ $right($sockname,6) ] ]  $gettok(%cmbread. [ $+ [ $right($sockname,6) ] ] ,7,32)
    set %hit. [ $+ [ $right($sockname,6) ] ]  $gettok(%cmbread. [ $+ [ $right($sockname,6) ] ] ,11,32)
    set %ran. [ $+ [ $right($sockname,6) ] ]  $gettok(%cmbread. [ $+ [ $right($sockname,6) ] ] ,13,32)
    set %mag. [ $+ [ $right($sockname,6) ] ]  $remove($gettok(%cmbread. [ $+ [ $right($sockname,6) ] ],17,32),$right($gettok(%cmbread. [ $+ [ $right($sockname,6) ] ],17,32),4))
  }
  if (<i> isin %cmbread. [ $+ [ $right($sockname,6) ] ] ) {
    if (Archery based isin %cmbread. [ $+ [ $right($sockname,6) ] ]) {
      set %bas. [ $+ [ $right($sockname,6) ] ]  $replace($remove($gettok(%cmbread. [ $+ [ $right($sockname,6) ] ],2-3,32),$right($gettok(%cmbread. [ $+ [ $right($sockname,6) ] ],2-3,32),4)),(Archery based),(Range based))
    }
    else {
      set %bas. [ $+ [ $right($sockname,6) ] ]  $remove($gettok(%cmbread. [ $+ [ $right($sockname,6) ] ],2-3,32),$right($gettok(%cmbread. [ $+ [ $right($sockname,6) ] ],2-3,32),4))
    }
  }
  if (<br> isin %cmbread. [ $+ [ $right($sockname,6) ] ] ) {
    set %cmb. [ $+ [ $right($sockname,6) ] ]  $remove($gettok(%cmbread. [ $+ [ $right($sockname,6) ] ],1,32),$right($gettok(%cmbread. [ $+ [ $right($sockname,6) ] ],1,32),4))
  }
  if (<p> isin %cmbread. [ $+ [ $right($sockname,6) ] ] ) {
    set %atkstr. [ $+ [ $right($sockname,6) ] ] $remove($gettok(%cmbread. [ $+ [ $right($sockname,6) ] ],1,32),$left($gettok(%cmbread. [ $+ [ $right($sockname,6) ] ],1,32),3))
    if ($readini(avlist.ini, %chan. [ $+ [ $right($sockname,6) ] ], %user. [ $+ [ $right($sockname,6) ] ] $+ $address(%user. [ $+ [ $right($sockname,6) ] ],1))) {
      %jmsg. [ $+ [ $right($sockname,6) ] ] 6Rsn:10 %user. [ $+ [ $right($sockname,6) ] ] 4¤ 6Combat:10 %cmb. [ $+ [ $right($sockname,6) ] ] %bas. [ $+ [ $right($sockname,6) ] ] 4¤ 6Strength:10 %str. [ $+ [ $right($sockname,6) ] ] 4¤ 6Attack:10 %atk. [ $+ [ $right($sockname,6) ] ] 4¤ 6Defence:10 %def. [ $+ [ $right($sockname,6) ] ] 4¤ 6Hitpoints:10 %hit. [ $+ [ $right($sockname,6) ] ] 4¤ 6Range:10 %ran. [ $+ [ $right($sockname,6) ] ] 4¤ 6Mage:10 %mag. [ $+ [ $right($sockname,6) ] ] 4¤ 6Atk 4+6 Str:10 %atkstr. [ $+ [ $right($sockname,6) ] ]
      unset %atk. [ $+ [ $right($sockname,6) ] ] | unset %str. [ $+ [ $right($sockname,6) ] ] | unset %def. [ $+ [ $right($sockname,6) ] ] | unset %hit. [ $+ [ $right($sockname,6) ] ] | unset %ran. [ $+ [ $right($sockname,6) ] ] | unset %mag. [ $+ [ $right($sockname,6) ] ] | unset %cmb. [ $+ [ $right($sockname,6) ] ] | unset %bas. [ $+ [ $right($sockname,6) ] ] | unset %jmsg. [ $+ [ $right($sockname,6) ] ] | unset %user. [ $+ [ $right($sockname,6) ] ] | unset %nmsg. [ $+ [ $right($sockname,6) ] ] | unset %enforce. [ $+ [ $right($sockname,6) ] ] | unset %chan. [ $+ [ $right($sockname,6) ] ] | unset %pmnick. [ $+ [ $right($sockname,6) ] ] | unset %reqcmb. [ $+ [ $right($sockname,6) ] ] | unset %atkstr. [ $+ [ $right($sockname,6) ] ]
      sockclose $sockname   
    }
    if (%enforce. [ $+ [ $right($sockname,6) ] ] == ON) {
      if (%cmb. [ $+ [ $right($sockname,6) ] ] >= %reqcmb. [ $+ [ $right($sockname,6) ] ]) {
        %jmsg. [ $+ [ $right($sockname,6) ] ] 6Rsn:10 %user. [ $+ [ $right($sockname,6) ] ] 4¤ 6Combat:10 %cmb. [ $+ [ $right($sockname,6) ] ] %bas. [ $+ [ $right($sockname,6) ] ] 4¤ 6Strength:10 %str. [ $+ [ $right($sockname,6) ] ] 4¤ 6Attack:10 %atk. [ $+ [ $right($sockname,6) ] ] 4¤ 6Defence:10 %def. [ $+ [ $right($sockname,6) ] ] 4¤ 6Hitpoints:10 %hit. [ $+ [ $right($sockname,6) ] ] 4¤ 6Range:10 %ran. [ $+ [ $right($sockname,6) ] ] 4¤ 6Mage:10 %mag. [ $+ [ $right($sockname,6) ] ] 4¤ 6Atk 4+6 Str:10 %atkstr. [ $+ [ $right($sockname,6) ] ]
        %nmsg. [ $+ [ $right($sockname,6) ] ] 6Please PM 4[[10 %pmnick. [ $+ [ $right($sockname,6) ] ] 4]]6 in game for voice!
        unset %atk. [ $+ [ $right($sockname,6) ] ] | unset %str. [ $+ [ $right($sockname,6) ] ] | unset %def. [ $+ [ $right($sockname,6) ] ] | unset %hit. [ $+ [ $right($sockname,6) ] ] | unset %ran. [ $+ [ $right($sockname,6) ] ] | unset %mag. [ $+ [ $right($sockname,6) ] ] | unset %cmb. [ $+ [ $right($sockname,6) ] ] | unset %bas. [ $+ [ $right($sockname,6) ] ] | unset %jmsg. [ $+ [ $right($sockname,6) ] ] | unset %user. [ $+ [ $right($sockname,6) ] ] | unset %nmsg. [ $+ [ $right($sockname,6) ] ] | unset %enforce. [ $+ [ $right($sockname,6) ] ] | unset %chan. [ $+ [ $right($sockname,6) ] ] | unset %pmnick. [ $+ [ $right($sockname,6) ] ] | unset %reqcmb. [ $+ [ $right($sockname,6) ] ] | unset %atkstr. [ $+ [ $right($sockname,6) ] ] 
        sockclose $sockname       
      }     
      else {
        inc %kcount
        %jmsg. [ $+ [ $right($sockname,6) ] ] 6Rsn:10 %user. [ $+ [ $right($sockname,6) ] ] 4¤ 6Combat:10 %cmb. [ $+ [ $right($sockname,6) ] ] %bas. [ $+ [ $right($sockname,6) ] ] 4¤ 6Strength:10 %str. [ $+ [ $right($sockname,6) ] ] 4¤ 6Attack:10 %atk. [ $+ [ $right($sockname,6) ] ] 4¤ 6Defence:10 %def. [ $+ [ $right($sockname,6) ] ] 4¤ 6Hitpoints:10 %hit. [ $+ [ $right($sockname,6) ] ] 4¤ 6Range:10 %ran. [ $+ [ $right($sockname,6) ] ] 4¤ 6Mage:10 %mag. [ $+ [ $right($sockname,6) ] ] 4¤ 6Atk 4+6 Str:10 %atkstr. [ $+ [ $right($sockname,6) ] ]
        /ban -u300 %chan. [ $+ [ $right($sockname,6) ] ] %user. [ $+ [ $right($sockname,6) ] ] 1
        /kick %chan. [ $+ [ $right($sockname,6) ] ] %user. [ $+ [ $right($sockname,6) ] ] 10Reason:6 Don't meet reqs, if this isn't your rs name, please use your rs name.10 5 min ban. 4¤10-4¤10-4¤  6Noobs Owned:10 %kcount  4¤10-4¤10-4¤
        unset %atk. [ $+ [ $right($sockname,6) ] ] | unset %str. [ $+ [ $right($sockname,6) ] ] | unset %def. [ $+ [ $right($sockname,6) ] ] | unset %hit. [ $+ [ $right($sockname,6) ] ] | unset %ran. [ $+ [ $right($sockname,6) ] ] | unset %mag. [ $+ [ $right($sockname,6) ] ] | unset %cmb. [ $+ [ $right($sockname,6) ] ] | unset %bas. [ $+ [ $right($sockname,6) ] ] | unset %jmsg. [ $+ [ $right($sockname,6) ] ] | unset %user. [ $+ [ $right($sockname,6) ] ] | unset %nmsg. [ $+ [ $right($sockname,6) ] ] | unset %enforce. [ $+ [ $right($sockname,6) ] ] | unset %chan. [ $+ [ $right($sockname,6) ] ] | unset %pmnick. [ $+ [ $right($sockname,6) ] ] | unset %reqcmb. [ $+ [ $right($sockname,6) ] ] | unset %atkstr. [ $+ [ $right($sockname,6) ] ]
        sockclose $sockname
      }       
    }
    else {
      %jmsg. [ $+ [ $right($sockname,6) ] ] 6Rsn:10 %user. [ $+ [ $right($sockname,6) ] ] 4¤ 6Combat:10 %cmb. [ $+ [ $right($sockname,6) ] ] %bas. [ $+ [ $right($sockname,6) ] ] 4¤ 6Strength:10 %str. [ $+ [ $right($sockname,6) ] ] 4¤ 6Attack:10 %atk. [ $+ [ $right($sockname,6) ] ] 4¤ 6Defence:10 %def. [ $+ [ $right($sockname,6) ] ] 4¤ 6Hitpoints:10 %hit. [ $+ [ $right($sockname,6) ] ] 4¤ 6Range:10 %ran. [ $+ [ $right($sockname,6) ] ] 4¤ 6Mage:10 %mag. [ $+ [ $right($sockname,6) ] ] 4¤ 6Atk 4+6 Str:10 %atkstr. [ $+ [ $right($sockname,6) ] ]
      %nmsg. [ $+ [ $right($sockname,6) ] ] 6Please PM 4[[10 %pmnick. [ $+ [ $right($sockname,6) ] ] 4]]6 in game for voice!
      unset %atk. [ $+ [ $right($sockname,6) ] ] | unset %str. [ $+ [ $right($sockname,6) ] ] | unset %def. [ $+ [ $right($sockname,6) ] ] | unset %hit. [ $+ [ $right($sockname,6) ] ] | unset %ran. [ $+ [ $right($sockname,6) ] ] | unset %mag. [ $+ [ $right($sockname,6) ] ] | unset %cmb. [ $+ [ $right($sockname,6) ] ] | unset %bas. [ $+ [ $right($sockname,6) ] ] | unset %jmsg. [ $+ [ $right($sockname,6) ] ] | unset %user. [ $+ [ $right($sockname,6) ] ] | unset %nmsg. [ $+ [ $right($sockname,6) ] ] | unset %enforce. [ $+ [ $right($sockname,6) ] ] | unset %chan. [ $+ [ $right($sockname,6) ] ] | unset %pmnick. [ $+ [ $right($sockname,6) ] ] | unset %reqcmb. [ $+ [ $right($sockname,6) ] ] | unset %atkstr. [ $+ [ $right($sockname,6) ] ]
      sockclose $sockname
    }
  }