Stuff

menu * {
  -
  Set Pestcontrol World: If (%pcw ==$null) /dialog -m pcw pcw | if (%pcw != $null) /pcw
  -
}
dialog Pestcontrol {
  title "Set PCW"

on *:TEXT:!setpcw*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %pctime $ctime 
    Set %Pestcontrol $2 
    inc %worldchanged 1 
    unset %pccount 
    unset %ctime 
    msg #killerpc 6A new pcw has been set plz type !pcw or !world to view. The pestcontrol world has been changed 4[[12 %worldchanged 4]] 6times. 
    msg #killerpc_Staff 6The current pcw is 4>>12 %pestcontrol 4<<1
  } 
} 
on $*:TEXT:/^[!@.](pcw|world)/Si:#:{ 
  if ($mid($nick,1,5) == [kpc]) { 
    inc %pccount 1 
    notice $nick 6The current pcw is 4>>12 %Pestcontrol 4<< 6seen12 %pccount 6times. Set12 $duration($calc($ctime - %pctime)) 6ago. The suggested world is4 >>12 %suggest 4<< 1
  } 
  else {
    Notice $nick Plz insert [KPC] in your nick like so, [KPC]NICK. To do so type /nick [KPC]NICK.
  }
}
on $*:TEXT:/^[!@.]suggest/si:#:{ 
  set %suggest $2 
  msg $chan 6 $nick has suggested world 4>>12 %suggest 4<<1 
}
on *:JOIN:#killerpc:{ 
  set %channel.check $chan 
  .enable #channel.check 
  whois $nick 
} 
#channel.check off
raw *:*:{ 
  if ($istok(301 307 310 311 312 313 314 317 318 319 320 330 335 338 369 378 379 401 406 671,$numeric,32)) { 
    haltdef 
    if ($numeric == 319) describe %channel.check sees that $2 is on $3- 
    elseif ($numeric == 318) .disable #channel.check 
  } 
} 
#channel.check end
on *:TEXT:!setmsg*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %msg $2
    msg $chan 12The msg was set to6,8[[ %msg ]]

  } 
}
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:#: { 
  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. 
    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) { 
    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. 5 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 
  } 
}

on *:TEXT:!msg:#:{ 
  msg #killerpc 6,8 %msg
} 
on *:text:!av*:#:{ 
  if (($nick isop $chan) || ($nick ishop $chan)) { 
    /cs access $chan add $2 3 
    /msg $chan 4-ChanServ- $2 added to $chan access list at level 3.1 
  } 
}
on *:text:!ah*:#:{ 
  if ($nick isop $chan) { 
    /cs access $chan add $2 4 
    /msg $chan -ChanServ- $2 added to $chan access list at level 4. 
  } 
} 
on *:text:!ao*:#:{ 
  if ($nick isop $chan) { 
    /cs access $chan add $2 5 
    /msg $chan -ChanServ- $2 added to $chan access list at level 5. 
  } 
}
on *:text:!tb*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    /ban -ku $+ $calc( $3 * 60 ) $chan $2 2  Reason - $4- -  $3 Minute Ban. 
  } 
} 
on *:TEXT:!setpm*:#killerpc:{

  set %pm $2 
  msg $chan 6Plz pm 8>> 7 %pm 8<< 6IN RS to get voice.1  
}
} 

on *:TEXT:!pm*:#killerpc:{
  if %pm {
    msg $chan 6Plz pm 8>>7 %pm 8<< 6IN RS to get voice.1
  }
}
on ^*:Join:#killerpc:{
  if %pm {
    msg $chan 6Plz pm 8>>7 %pm 8<< 6IN RS to get voice if not already.1
  }
}
on *:join:#killerpc:{
  if %pm {
    Msg $nick 6Pm 8>> 7 %pm 8<< 6IN RS to get voice if not already.1
  }
}
ON $*:TEXT:/^[!@.](cash|price(check)?|gold|price)/Si:#:{ 
  if ($2 == $null) { notice $nick Sorry $nick You Have To Specify An Item. Example: $right($1,1) $+ Rune Scim } 
  else { 
    inc %p 
    set $+(%,price.item.,%p) $replace($2-,$chr(32),$chr(37) $+ 20) 
    set $+(%,price.style.,%p) $iif($left($1,1) == @,msg $chan,notice $nick)  
    sockopen $+(price.,%p) zybez.net 80 
  } 
} 
on *:SOCKOPEN:price.*:{ 
  var %id = $gettok($sockname,2,46) 
  sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ $($+(%,price.item.,%p),2) $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1 
  sockwrite -nt $sockname Host: www.zybez.net 
  sockwrite -nt $sockname $+($crlf,$crlf) 
} 
on *:SOCKREAD:price.*:{ 
  inc %pcount 
  var %id = $gettok($sockname,2,46) 
  var %style = $($+(%,price.style.,%p),2) ,  $& 
    %item = $replace($($+(%,price.item.,%p),2),$chr(37) $+ 20,$chr(32)) 
  if ($sockerr) { 
    %style An error occured while connecting 
    unset $+(%,price.*) 
    sockclose $+(price.,%p) 
  } 
  else { 
    var %price 
    sockread %price 

    if (*">Viewing * of * Results</td>* iswm %price) { 
      tokenize 32 $nohtml(%price) 
      set $+(%,price.results.,%p) $2 
      if ($($+(%,price.results.,%p),2) == 0) %style Results Found: $($+(%,price.results.,%p),2) Showing Results: 0 
      elseif ($($+(%,price.results.,%p),2) < 5) %style Results Found: $($+(%,price.results.,%p),2) Showing Results: $($+(%,price.results.,%p),2)      
      else %style Results Found: $($+(%,price.results.,%p),2) Showing Results: 5 
    } 
    if (*<td class="tablebottom" colspan="5">Your search did not return any results. Please make sure your spelling is correct and that you are typing full words.</td>* iswm %price) { 
      %style Sorry $nick No Results Were Found For: $qt(%item) 
      unset $+(%,price.*.,%p) 
      sockclose $+(price.,%p) 
    } 
    if (*<td class='tablebottom'><img src="/img/member.gif" alt="*"/></td>* iswm %price) { 
      tokenize 32 $nohtml(%price) 
      set $+(%,price.members.,%p) Yes 
    }    
    if (*<td class="tablebottom">&nbsp;</td>* iswm %price) { 
      tokenize 32 $nohtml(%price) 
      set $+(%,price.members.,%p) No 
    } 
    if (*<!--name--><td class='tablebottom'>*</td>* iswm %price) { 
      tokenize 32 $nohtml(%price) 
      set $+(%,price.name.,%p) $1- 
    } 
    if (*<!--price--><td class="tablebottom">*</td>* iswm %price) { 
      tokenize 32 $nohtml(%price) 
      set $+(%,price.low.,%p) $1 
      set $+(%,price.high.,%p) $3 
    } 
    if (*<td class="tablebottom"><a href="/priceguide.php?category=*">*</a></td>* iswm %price) { 
      tokenize 32 $nohtml(%price) 
      set $+(%,price.catergory.,%p) $replace($1-,&quot;,",&amp;,&) 
      inc $+(%,price.times.,%p) 
      if ($($+(%,price.times.,%p),2) > 5 && !$($+(%,price.stop.,%p),2)) { 
        %style Max Results Of: 5 Allowed. Try Making Your Search For: $qt(%item) More Specific. 
        unset $+(%,price.*.,%p) 
        set $+(%,price.stop.,%p) true 
        sockclose $+(price.,%p) 
      } 
      elseif ($($+(%,price.times.,%p),2) <= 5) { 
        %style Members: $($+(%,price.members.,%p),2) $& 
          Item: $($+(%,price.name.,%p),2) $& 
          Price High: $($+(%,price.high.,%p),2) Price Low: $($+(%,price.low.,%p),2) $& 
          Category: $($+(%,price.catergory.,%p),2) $& Prices Checked: %pcount 
        sockclose $sockname 
      } 
    } 
  } 
} 
alias -l nohtml { 
  var %x,%i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x) 
  %x = $remove(%x,&nbsp;) 
  return %x 
} 

Alias isowner {
  if ($isid) return $iif($nick($1,$2,q) || $istok($ial($2).mark,$1,32),$true,$false)
  .ialmark $2 $($+($,$3,tok($ial($2).mark,$1,32)),2)
}
ON *:join:#:{ isowner # $nick rem }
ON *:owner:#:{ isowner # $opnick add }
ON *:deowner:#:{ isowner # $opnick rem }
ON *:join:#:{ isadmin # $nick rem }
RAW 388:*:{ isadmin $2- add } 
RAW 386:*:{ isowner $2- add }
Alias isadmin {
  if ($isid) return $iif($nick($1,$2,$mid($prefix,$pos($nickmode,a),1)) || $istok($ial($2).mark,a $+ $1,32),$true,$false)
  .ialmark $2 $($+($,$3,tok($ial($2).mark,a $!+ $!1,32)),2)
}
on *:rawmode:#:{
  if (*a*,*,*,* iswmcs $chanmodes) {
    var %a = 1, %b, %c = 2
    while ($mid($1,%a,1)) {
      if ($v1 isin +-) %b = $v1
      if ($v1 === a) isadmin # $($ $+ %c,2) $replace(%b,+,add,-,rem)
      if ($regex($nickmode $chanmodes,/(?:^|,)(?=.* $v1 )/gx) %b isin 3 +1 %b 2 %b) inc %c
      inc %a
    }
  }
}
ON *:INPUT:#:{
  if (/me isin $1 || /describe isin $1) {
    .describe $chan $iif(d isin $1,$3-,$2-)
    echo -t $chan $+(10* ,$left($me,1),,$right($me,$calc($len($me) - 1)),02) $iif(d isin $1,$3-,$2-)
    halt
  }
  elseif ($remove($1,$chr(44)) ison $chan) {
    .msg $chan $name($remove($1,$chr(44))) $+ $iif($2,04: $2-,$null)
    echo -t $chan $+(04»10,$left($me,1),,$right($me,$calc($len($me) - 1)),04«) $name($remove($1,$chr(44))) $+ $iif($2,04: $2-,$null)
    halt
  }
  elseif ($left($1,1) != /) {
    .msg $chan $1-
    echo -t $chan $+(04»10,$left($me,1),,$right($me,$calc($len($me) - 1)),04«02) $1-
    halt
  }
  else { 
    $($1-,2)
    halt
  }
}
Alias name {
  return $+($chr(3),$chr(49),$chr(48),$chr(2),$chr(91),$chr(2),$chr(3),$chr(3),$chr(52),$chr(187),$chr(3),$chr(3),$chr(49),$chr(50)) $&
    $+ $iif($left($1,1) === i,$chr(31) $+ $left($1,1),$iif($left($1,1) isalpha,$chr(31) $+ $upper($left($1,1)),$upper($left($1,1)))) $+ $&
    $iif($left($1,1) isalpha || $left($1,1) === i,$chr(31),$null) $+ $replace($remove($right($1,$calc($len($1) - 1)),$chr(44),:),_,$chr(32)) $+ $&
    $+($chr(3),$chr(3),$chr(48),$chr(52),$chr(171),$chr(3),$chr(3),$chr(49),$chr(48),$chr(2),$chr(93),$chr(2),$chr(3),$chr(3),$chr(48),$chr(52))
}
ON *:INPUT:?:{
  if (/me isin $1 || /describe isin $1) {
    .describe $active $iif(d isin $1,$3-,$2-)
    echo -t $active $+(10* ,$left($me,1),,$right($me,$calc($len($me) - 1)),10) $iif(d isin $1,$3-,$2-)
    halt
  }
  elseif ($left($1,1) != /) {
    .msg $active $1-
    echo -t $active $+(04»10,$left($me,1),,$right($me,$calc($len($me) - 1)),04«) $1-
    halt
  }
  else {
    $($1-,2)
    halt
  }
}
ON ^*:TEXT:*:#:{
  haltdef
  if ($isowner($chan,$nick)) echo -t $chan $+(02»04~10,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),02«02) $1-
  elseif ($isadmin($chan,$nick)) echo -t $chan $+(02»04&10,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),02«02) $1-
  elseif ($nick isop $chan) echo -t $chan $+(02»04@10,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),02«02) $1-
  elseif ($nick ishop $chan) echo -t $chan $+(04»07%10,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),04«02) $1-
  elseif ($nick isvoice $chan) echo -t $chan $+(04»02+10,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),04«02) $1-
  else echo -t $chan $+(04»10,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),04«02) $1-
}
ON ^*:NOTICE:*:*:{
  haltdef
  echo -ta $+(05-02,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),05-10) $iif($chan,$chan ,$null) $1-
}
ON ^*:TEXT:*:?:{
  haltdef
  if (%Query. [ $+ [ $nick ] ] == $null) {
    set %Query. $+ $nick On
    .msg $nick 10I have02 $query(0) 10active querys
    echo -t $nick $+(04»02,$left($me,1),,$right($me,$calc($len($me) - 1)),04«02) 10I have02 $query(0) 10active querys
  }
  echo -t $nick $+(04»02,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),04«02) $1-
}
ON *:CLOSE:?:{
  unset %Query. $+ $target
}
ON ^*:ACTION:*:?:{
  haltdef
  echo -t $nick $+(02*02,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),02) $1-
}
ON ^*:ACTION:*:#:{
  haltdef
  if ($nick isop $chan) echo -t $chan $+(04* ,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),10) $1-
  elseif ($nick ishop $chan) echo -t $chan $+(07* ,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),10) $1-
  elseif ($nick isvoice $chan) echo -t $chan $+(02* +,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),10) $1-
  else echo -t $chan $+(12* ,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),10) $1-
}
ON ^*:INVITE:#:{
  haltdef 
  set %ichan $remove($chan,$chr(35))
  echo -at $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1)),10) has invited you to join $+(02,$chr(35),,$left(%ichan,1),,$right(%ichan,$calc($len(%ichan) - 1)))
  unset %ichan
}
ON ^*:KICK:#:{
  haltdef
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has kicked $+(02,$left($knick,1),,$right($knick,$calc($len($knick) - 1))) $iif($1,$+(10[02,$1-,10]),$null)
}
Alias oj {
  if ($readini(ChanStats.ini,$2,$chan) == $null) {
    writeini ChanStats.ini $2 $chan $3
    echo -t $chan $+(04»10,$left($me,1),,$right($me,$calc($len($me) - 1)),04«) 10New user peak02 $3
    .msg $1 10New user peak02 $3
  }
  elseif ($readini(ChanStats.ini,$2,$chan) < $3) {
    writeini ChanStats.ini $2 $chan $3
    echo -t $chan $+(04»10,$left($me,1),,$right($me,$calc($len($me) - 1)),04«) 10New user peak02 $3
    .msg $1 10New user peak02 $3
  }
}
ON ^*:JOIN:#:{
  haltdef
  if ($nick == $me) {
    set %ichan $remove($chan,$chr(35))
    echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has joined $+(02,$chr(35),,$left(%ichan,1),,$right(%ichan,$calc($len(%ichan) - 1))) 
    unset %ichan
  }
  else {
    set %ichan $remove($chan,$chr(35))
    echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has joined $+(02,$chr(35),,$left(%ichan,1),,$right(%ichan,$calc($len(%ichan) - 1))) 
    unset %ichan
    oj $chan $network $nick($chan,0)
    var %i = 0
    while (%i < $nick($chan,0)) {
      inc %i
      if ($address($nick,2) iswm $address($nick($chan,%i),2)) var %clones = %clones $nick($chan,%i)
    }
    if ($count(%clones,$chr(32)) > 0) {
      echo -t $chan 10Clones:02 $iif($replace(%clones,$chr(32),$chr(44)),$replace(%clones,$chr(32),$chr(44)),No One)
    }
  }
}
ON ^*:PART:#:{
  haltdef
  set %ichan $remove($chan,$chr(35))
  echo -t $chan $+(02,$left($nick,1),,$right($nick,$calc($len($nick) - 1))) 10has parted $+(02,$chr(35),,$left(%ichan,1),,$right(%ichan,$calc($len(%ichan) - 1))) $iif($1,$+(10[2,$1-,10]),$null)
  unset %ichan
}

On *:text:!ucount*:#:{ 
  Msg $chan <@ $+ $nick($chan,0,o) $+ > + <% $+ $nick($chan,0,h) $+ > + <+ $+ $nick($chan,0,v) $+ > < $+ $nick($chan,0,r)  $+ > = $nick($chan,0) Users 
}
on *:text:!calc *:#:{ 
  if ($2- isletter) { notice $nick Invalid equation. | halt } 
  if ($2- != $null) { notice $nick $2- = $calc($2-) } 
}