on *:TEXT:!noob:*:{
  /msg $chan 8,1 Omfg $nick($chan,$r(1,$nick($chan,0))) is $rand(0,100)  $+ % noobisch!
}

on *:TEXT:!love *:*:{
  if ($2 == $null || $3 == $null) { notice $nick Please set 2 persons for the love test! | halt }
  else {
    /msg $chan 8,1 W00T,0,1 $2 and $3 8,1 Se amão em 7,1 $rand(0,100) $+ % !
  }




  ON $*:TEXT:/^[!@]clan/Si:*:{ unset %clanc.* | inc %c 
    set $+(%,clan.return.,%c) $iif($left($1,1) == @,msg $chan,notice $nick) 
    set $+(%,clan.member.,%c) $replace($2-,$chr(32),_) 
    sockopen $+(clan.,%c) www.runehead.com 80 
  } 

  ON *:SOCKOPEN:clan.*:{ 
    sockwrite -nt $sockname GET $+(/clans/search.php?search=,$($+(%,clan.member.,%c),2),&searchtype=excact) HTTP/1.1 
    sockwrite -nt $sockname Host: www.runehead.com $+ $+($crlf,$crlf) 
  } 

  ON *:SOCKREAD:clan.*:{ 
    if ($sockerr) { $($+(%,clan.return.,%c),2) 7[CLAN] 14Socket Error ocorreu, Por favor aguarde 30 segundos } 
    else { 
      sockread %clan 
      if (*<p>No results were found for* iswm %clan) { 
        $($+(%,clan.return.,%c),2) 7[CLAN] 14Desculpe, nenhum resultado foi encontrado de:7 $replace($($+(%,clan.member.,%c),2),_,$chr(32)) 
        sockclose $sockname    
      }    
      if (*</b> returned <b>*</b> result*:* iswm %clan) { set $+(%,clan.results.,%c) $remove($htmlfree(%clan), $($+(%,clan.member.,%c),2), exact, the, search, returned, results:, result:, $chr(32))
      }
      if (*'ml.php?clan=*'>*</a></td> iswm %clan) { if ($($+(%,clan.results.,%c),2) >= 2) { set $+(%,clan.list2.,%c) $($+(%,clan.list.,%c),2)
          set $+(%,clan.list.,%c) $($+(%,clan.list2.,%c),2) 4« »7 $htmlfree(%clan)
          inc $+(%,clan.c.,%c)
          if ($($+(%,clan.c.,%c),2) == $($+(%,clan.results.,%c),2)) $($+(%,clan.return.,%c),2) 7[CLAN] 4»7 $replace($($+(%,clan.member.,%c),2),_,$chr(32)) 14está nas seguintes listas: $($+(%,clan.list.,%c),2) 4«
        }
        if ($($+(%,clan.results.,%c),2) == 1) { $($+(%,clan.return.,%c),2) 4[CLAN] $replace($($+(%,clan.member.,%c),2),_,$chr(32)) 4is in the clan:4»7 $htmlfree(%clan) 4« } 
      }   
    } 
  } 

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




  on $*:TEXT:/^[!@.]rank */Si:*: { 
    if ($2 !isnum || !$3) { .notice $nick Syntax: !rank <rank> <skill> | halt } 
    var %x = 1 
    while ($sock(rank. $+ %x)) inc %x 
    .set %rtarget. $+ %x $iif($left($1,1) == @,.msg $chan,.notice $nick) 
    .set %rskill. $+ %x $3 
    .set %rank. $+ %x $2 
    sockopen rank. $+ %x parsers.o-ss.net 80 
  } 

  on *:SOCKOPEN:rank.*: { 
    var %x = $right($sockname,1) 
    if ($sockerr > 0) { %rtarget. [ $+ [ %x ] ] Socket Error: $sockerr | rcleanup $sockname | halt } 
    sockwrite -nt $sockname GET /ranks.php?skill= $+ %rskill. [ $+ [ %x ] ] $+ &rank= $+ %rank. [ $+ [ %x ] ] HTTP/1.1 
    sockwrite -nt $sockname Host: parsers.o-ss.net 
    sockwrite -nt $sockname $crlf 
  } 

  on *:SOCKREAD:rank.*: { 
    var %x = $right($sockname,1) 
    if ($sockerr > 0) { %rtarget. [ $+ [ %x ] ] Socket Error: $sockerr | rcleanup $sockname | halt } 
    var %read | sockread %read 
    if ([RANK] isin %read) { 
      %rtarget. [ $+ [ %x ] ] Rank %rank. [ $+ [ %x ] ] in %rskill. [ $+ [ %x ] ] $+ : $gettok(%read,2-,32) 
      rcleanup $sockname 
    } 
  } 
  alias rcleanup { 
    unset %rtarget. $+ $right($1,1) 
    unset %rskill. $+ $right($1,1) 
    unset %rank. $+ $right($1,1) 
    sockclose $1 
  } 


  on $*:TEXT:/^[!](news|rsnews)$/Si:*:{
    sockclose news
    set %output.news $iif($left($1,1) == @, msg $chan, notice $nick)
    sockopen news www.runescape.com 80
  }


  on *:SOCKOPEN:news: {
    sockwrite -nt $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1
    sockwrite -nt $sockname Host: www.runescape.com
    sockwrite -nt $sockname $crlf
  }


  on *:SOCKREAD:news: {
    if ($sockerr) { 
      echo -a Socket error
    }
    else {
      var %read.news
      sockread %read.news
      if (<dt><span class="newsdate">*</span>*</dt> iswm %read.news) {
        tokenize 32 $replace(%read.news,<dt><span class="newsdate">,$chr(32),</span>,$chr(32),</dt>,$chr(32))  
        %output.news $1- 
        var %read.news2
        sockread %read.news2
        if (<td style="text-align: justify; vertical-align: top;">*</td> iswm %read.news) {
          tokenize 32 $replace(%read.news2,<td style="text-align: justify; vertical-align: top;">,$chr(32),</td>,$chr(32))
          %output.news $1-
          unset %output.news
          unset %read.news
          sockclose $sockname
        }
      }
    }
  }


  on *:TEXT:!site*:*:{ 
    /notice $nick 7http://z3.invisionfree.com/swordsofglory/index.php?
  }


  on *:invite:*:{ 
    .join $chan 
  } 

  on *:text:!invite*:*:{ 
    .join $$2 
  } 

on *:join:*:{msg $chan @clan $remove($nick,pc|,pc-)  }

on $*:Text:/^[!@](cmb|combat)/Si:*:{
  inc %iddddd 1
  set %combat.user [ $+ [ %iddddd ] ] $replace($2-,$chr(32),_)
  set %combat.display. [ $+ [ %iddddd ] ] $iif($left($1,1) == @,msg $chan,.notice $nick)
  if ( !$2 ) { %combat.display. [ $+ [ %iddddd ] ] 14You must specify a runescape username to search with. }
  if ($len($2-) > 12) { %combat.display. [ $+ [ %iddddd ] ] 14The username "07 $+ $2- $+ 14" is too long. | halt }
  sockopen $+(combat.,%iddddd) slushpuppy.silverinterlocution.org 80
}

on *:SOCKOPEN:combat.*:{
  sockwrite -n $sockname GET /pestcontrol.php?pestcontrol= $+ %combat.user [ $+ [ %iddddd ] ] HTTP/1.1
  sockwrite -n $sockname Host: slushpuppy.silverinterlocution.org
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:combat.*:{
  var %combat.read
  sockread %combat.read
  if (*0<br>* iswm %combat.read) {
  %combat.display. [ $+ [ %iddddd ] ] $replace(%combat.user [ $+ [ %iddddd ] ],_,$chr(32))) $+ 14, was not found in the hiscores for any combat skills. | /unset %combat.* | halt }
  if (<b> isin %combat.read) {
  /set %combat.stats [ $+ [ %iddddd ] ] $+(14,$gettok($htmlfree(%combat.read),1,32),:) $+(07,$gettok($htmlfree(%combat.read),2,32),) $+(14,$gettok($htmlfree(%combat.read),3,32),:) $+(07,$gettok($htmlfree(%combat.read),4,32),) $+(14,$gettok($htmlfree(%combat.read),5,32),:) $+(07,$gettok($htmlfree(%combat.read),6,32),) $+(14,$gettok($htmlfree(%combat.read),7,32),:) $+(07,$gettok($htmlfree(%combat.read),8,32),) $+(14,$gettok($htmlfree(%combat.read),9,32),:) $+(07,$gettok($htmlfree(%combat.read),10,32),) $+(14,$gettok($htmlfree(%combat.read),11,32),:) $+(07,$gettok($htmlfree(%combat.read),12,32),) $+(14,$gettok($htmlfree(%combat.read),13,32),:) $+(07,$gettok($htmlfree(%combat.read),14,32),) }
  if (<i> isin %combat.read) {
  /set %combat.2 [ $+ [ %iddddd ] ] 07 $+ $replace(%combat.user [ $+ [ %iddddd ] ],_,$chr(32)) $+(14,is) $+(07,$htmlfree(%combat.read),) }
  if (<br> isin %combat.read) {
    /set %combat.3 [ $+ [ %iddddd ] ] $+(14,with) $+(07,$htmlfree(%combat.read)) $+(14,combat.)
    %combat.topline [ $+ [ %iddddd ] ] = %combat.2 [ $+ [ %iddddd ] ] %combat.3 [ $+ [ %iddddd ] ]
    %combat.display. [ $+ [ %iddddd ] ] %combat.topline [ $+ [ %iddddd ] ]
    %combat.display. [ $+ [ %iddddd ] ] %combat.stats [ $+ [ %iddddd ] ]
    /unset %combat.* 
  }
}

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


alias c1 { return $+($chr(3),07,$1-) } 
alias c2 { return $+($chr(3),02,$1-) } 
alias c3 { return $+($chr(3),04,$1-) } 
ON 1:TEXT:!k*:*: { if (($nick ishop $chan) || ($nick isop $chan)) { /kick $chan $2 $3- } }
ON 1:TEXT:!ban*:*: { if (($nick ishop $chan) || ($nick isop $chan)) { /mode $chan +b $iif($2,$2,$nick) } }
ON 1:TEXT:!unban*:*: { if (($nick ishop $chan) || ($nick isop $chan)) { /mode #sogpc -b $iif($2,$2,$nick) } }
ON 1:TEXT:!voice*:*: { if (($nick ishop $chan) || ($nick isop $chan)) { /mode $chan +v $2 } }
ON 1:TEXT:!devoice*:*: { if (($nick ishop $chan) || ($nick isop $chan)) { /mode $chan -v $2 } }
ON 1:TEXT:!halfop*:*: { if (($nick ishop $chan) || ($nick isop $chan)) { /mode $chan +h $2 } }
ON 1:TEXT:!dehalfop*:*: { if (($nick ishop $chan) || ($nick isop $chan)) { /mode $chan -h $2 } }
ON 1:TEXT:!op*:*: { if (($nick ishop $chan) || ($nick isop $chan)) { /mode $chan +o $2 } }
ON 1:TEXT:!deop*:*: { if (($nick ishop $chan) || ($nick isop $chan)) { /mode $chan -o $2 } }
on *:text:!av*:*:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %voicenick $2- 
    /cs access $chan add %voicenick 3
    /notice %voicenick You have been added to the auto-voice list.
    /mode $chan +v %voicenick
  }
}
on *:TEXT:!gratz *:*:{ msg $chan 8,0•0,8•7,8•8,7•4,7•7,4•5,4•4,5•5,1•1,1•4,1<-4,1 W0000T GRATZ $NICK ON LVL $2-!!!YOU ARE TEH OWNAGE!!! ;) 4,1->1,1•5,1•4,5•5,4•7,4•4,7• }

on *:TEXT:!kb*:*:{
  if ($nick ishop $chan || $nick isop $chan ||  $address($nick,2) == $address($me,2)) {
    ban -k $chan $2 Reason: $3-
  }
}
on $*:text:/^[!@](k|kick)/Si:*:{
  if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) {
    kick $chan $2 Reason: $3-
  }
}
On *:Text:!unban*:*: { 
  if ($nick isop $chan || $nick ishop $chan) {
    mode $chan -bb $address($2,2)  $2
  }
}


on $*:text:/^[!@.`,~^](tb|timeb|timeban|tban)/Si:*:{
  if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) {
    ban -ku $+ $calc($3 * 60) $chan $2 Time banned REASON: $+ $4-
  }
}
on $*:text:/^[!@](calc|calculator)/Si:*:{
  $iif($left($1,1) == @, msg $chan, notice $nick) $2- = $calc($2-)
}
on *:text:@pcw*:*:{
  if ($nick isop $chan) {
    /notice $chan 10»14]12[World:4 %world 12][Last updated:4 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) 12][Set by4 %nic 12]14[10«
  }
}
on *:text:!pcw*:*:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    /notice $nick 10»14]12[World:4 %world 12][Last updated:4 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) 12][Set by4 %nic 12]14[10«
  }
}
on *:text:!newo*:*:{ 
  if ($nick isop $chan) || ($nick ishop $chan) {
    /notice $chan $2- $+  8,1 O Pest-Control World foi trocado!!!!Press 4,1 !PCW 
  } 
}
on *:text:!setpcw*:*:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    /set %setpc $calc( $readini( setpcw.ini, $nick, Set ) +1)
    /writeini setpcw.ini $nick Set %setpc
    set %world $2-
    set %nic $nick
    set %pcsettime. [ $+ [ $chan ] ] $ctime
    /notice $chan 0,1 O Pest-control World foi atualizado!! Press 8,1 !PCW 
  } 
}
alias -l c1 return $+($chr(3),12,$1-,)
alias -l c2 return $+($chr(3),07,$1-,)
alias -l c3 return $+($chr(3),04,$1-,)

on $*:TEXT:/^[!@.]quest/Si:*:{
  inc %s
  set $+(%,return.,%s) $iif($left($1,1) == @, msg $chan, notice $nick)
  if ($2- == $null) { %return [ $+ [ %s ] ] add a quest to lookup! | halt }
  set $+(%,tipit.,%s) $2-
  sockopen $+(tipit.,%s) tip.it 80
}
on *:SOCKOPEN:tipit.*: {
  var %s = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /runescape/?rs2quest HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:tipit.*: {
  var %s = $gettok($sockname,2,46)
  if ($sockerr) {
    %return. [ $+ [ %s ] ] Socket error, please report this to $me $+ .
    halt
  }
  var %read
  sockread %read
  if (*<td><a href="index.php?rs2quest_id* $+ %tipit. [ $+ [ %s ] ] $+ *</a></td>* iswm %read) {
    set %read2 [ $+ [ %s ] ] $htmlfree(%read)
    set %tipid [ $+ [ %s ] ] $remove(%read,<td><a href="index.php?rs2quest_id=,</a></td>,$chr(34),>, %read2 [ $+ [ %s ] ] ,$chr(32))
    if (%read2 [ $+ [ %s ] ] != $null) {
      sockopen $+(tipid.,%s) tip.it 80
    }
    else { %return. [ $+ [ %s ] ] No results for %tipit. [ $+ [ %s ] ]
    }
  }
}
on *:SOCKOPEN:tipid.*: {
  var %s = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /runescape/index.php?rs2quest_id= $+ %tipid [ $+ [ %s ] ] HTTP/1.1
  sockwrite -nt $sockname Host: tip.it
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:tipid.*: {
  var %s = $gettok($sockname,2,46)
  if ($sockerr) {
    %return. [ $+ [ %s ] ] Socket error, please report this to $me $+ .
    halt
  }
  var %aread 
  sockread %aread 
  if (*<p><b>Difficulty level:</b>*</p><p><b>Start location:</b>*<p><b>*</b> <p><u>Quests:*</a></p>* iswm %aread) {
    set %tipdif [ $+ [ %s ] ] $remove($gettok(%aread,3,32),start,</p><p><b>)
    set %tiploc [ $+ [ %s ] ] $remove($gettok(%aread,1,46),<p>,<b>,</p>,</b>,Difficulty level: %tipdif [ $+ [ %s ] ] )
    set %tipquest [ $+ [ %s ] ] $htmlfree($gettok(%aread,5,58))
  } 
  if (*<p><u>Skill*</u>*</p>* iswm %aread) {
    set %tipstats [ $+ [ %s ] ] $htmlfree(%aread)
  }
  if (*Items* iswm %aread) { 
    set %tipitem [ $+ [ %s ] ] $remove($htmlfree($gettok(%aread,2,58)),suggested,items:) 
  }
  if (*<p><b>Reward:</b> <ul>*</ul> iswm %aread) && (*<li>*</li>*<ul>* iswm %aread)  {
    set %tipreward [ $+ [ %s ] ] $htmlfree(%aread)
  }
  if (*<p><b>Quest points gained on completion:</b>*</p>* iswm %aread) {
    tokenize 32 $htmlfree(%aread)
    set %tipqp [ $+ [ %s ] ] $6
  }
  if (*<p><b>Monsters:</b>* iswm %aread) {
    set %tipmon [ $+ [ %s ] ] $remove($htmlfree($gettok(%aread,4,58)),suggested,monsters,NPC,:)
  }
  if (*written by* iswm %aread) {
    set %tipcreator [ $+ [ %s ] ] $htmlfree(%aread)
  }
  if (*<p><b>Last updated:</b>* iswm %aread) {
    set %tipupdate [ $+ [ %s ] ] $htmlfree(%aread)
  }
  if (</html> isin %aread) {
    if (%tipqp [ $+ [ %s ] ] == $null) { set %tipqp [ $+ [ %s ] ] N/A }
    if (%tipmon [ $+ [ %s ] ] == $null) { set %tipmon [ $+ [ %s ] ] N/A }
    if (%tipitem [ $+ [ %s ] ] == $null) { set %tipitem [ $+ [ %s ] ] N/A }
    if (%tipstats [ $+ [ %s ] ] == $null) { set %tipstats [ $+ [ %s ] ] Skills: N/A }
    if (%tipupdate [ $+ [ %s ] ] == $null) { set %tipupdate [ $+ [ %s ] ] N/A }
    if (%tipcreator [ $+ [ %s ] ] == $null) { set %tipcreator [ $+ [ %s ] ] N/A }
    %return. [ $+ [ %s ] ] $c2(First matching result:) $c3 %read2 [ $+ [ %s ] ] $c2(url:) $c1(www.tip.it/runescape/index.php?rs2quest_id= $+ %tipid [ $+ [ %s ] ] )
    %return. [ $+ [ %s ] ] $c1(Qp:) $c2 %tipqp [ $+ [ %s ] ] $c1(Monsters: $remove(%tipmon [ $+ [ %s ] ] ,walktrough))
    tokenize 32 %tipitem [ $+ [ %s ] ]
    %return. [ $+ [ %s ] ] $c1(Items:) $c2($remove($2-12,monster)) $c1($remove($13-,monster))
    tokenize 32 %tipstats [ $+ [ %s ] ]
    %return. [ $+ [ %s ] ] $c1($1) $c2($2-12) $c1($13-)
    %return. [ $+ [ %s ] ] $c1 %tipupdate [ $+ [ %s ] ] $c2 %tipcreator [ $+ [ %s ] ]
    .timer 1 1 /cleanitup
  }
}
alias cleanitup {
  sockclose $+(tipid.,%s)
  sockclose $+(tipit.,%s)
  unset %tipupdate [ $+ [ %s ] ]
  unset %tipcreator [ $+ [ %s ] ]
  unset %return. [ $+ [ %s ] ]
  unset %tipit. [ $+ [ %s ] ]
  unset %read2 [ $+ [ %s ] ]
  unset %tipid [ $+ [ %s ] ]
  unset %tipmon [ $+ [ %s ] ]
  unset %tipitem [ $+ [ %s ] ]
  unset %tipstats [ $+ [ %s ] ]
  unset %tipqp [ $+ [ %s ] ]
}


on *:TEXT:!mode*:*:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    /mode $chan $2-
    /notice $nick u putted the mode $2- in $chan if it aint working u need to raise my status temporary , this script is made by kerst
  }
  else {
    /notice $nick u need h op or op status for this command 
  }
}
on *:TEXT:brb*:*:{ 
  if ($2 == $null) { /msg $chan 7 $nick 12 is 7right 12back! 
  }
  else {  /msg $chan 7 $nick is right back ::: 12he is gone cause: $2-
  }
}
on *:TEXT:away*:*:{
  /msg $chan 7 $nick is away ::: 12he is gone cause: $2- :::
}




on $*:TEXT:/^[!@.]youtube/Si:*:{
  inc %s
  set $+(%,return.,%s) $iif($left($1,1) == @, msg $chan, notice $nick)
  set $+(%,youtube.,%s) $replace($2-,$chr(32),+)
  sockopen $+(youtube.,%s) www.youtube.com 80
}
on *:SOCKOPEN:youtube.*: {
  sockwrite -nt $sockname GET /results?search_query= $+ %youtube. [ $+ [ %s ] ] $+ &search=Search HTTP/1.1
  sockwrite -nt $sockname Host: www.youtube.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:youtube.*: {
  if ($sockerr) {
    %return. [ $+ [ %s ] ] Socket error, please report this to $me $+ .
    halt
  }
  var %read
  sockread %read
  if (*<a href="/watch?v=* iswm %read)  {  
    /tokenize 32 %read
    %return. [ $+ [ %s ] ] o video è $+ :0,1 www.YouTube.com $+ $remove($1-2,<div><a href=",",$chr(9))
    sockclose $sockname
  }
}

ON $*:TEXT:/^[!@.]google/Si:#sogpc:{
  /inc %t 
  set $+(%,return.,%t) $iif($left($1,1) == @, msg $chan, notice $nick)
  set $+(%,google.,%t) $replace($2-,$chr(32),+)
  sockopen $+(google.,%t) www.google.com 80
}

on $*:TEXT:/^[!@]((def|)?(name|rsn)|p(est|c)|stats?|overall?|totaa?l|co?mb|att|def|str|h(p|it)|rang|pray|mag[ie]|cook|w(c|ood)|flet|fish|f(m|iremak)|craft|smith|min|herb|agi|th(ie|ei)|slay|farm|r(c|une)|hunt|c(s|on))/Si:*:{
  if ($regex($1,/^[!@](def|set)?(name|rsn)/Si)) {
    if (!$2) notice $nick $+($c1,[,$c2,You didn't specify a name! Please type,$c1 $1 ­name­])
    else {
      writeini defname.ini Defname $address($nick,3) $hr($2-)
      notice $nick $+($c1,[,$c2,The nick $c1,$2- $c2,is now set for your host,$c1,])
    }
  }
  else {
    inc %sc | sockopen $+(stats.,%sc) o-ss.net 80
    if ($regex($1,/^[!@]p(est|c)/Si)) sockmark $+(stats.,%sc) $iif($regex($1,/^@/Si),msg $chan,notice $nick) $iif($regex($left($3,1),/^[#-]/Si),$iif($4,$hr($4-),$iif($readini(defname.ini,defname,$address($nick,3)),$v1,$nick)),$iif($3,$hr($3-),$iif($readini(defname.ini,defname,$address($nick,3)),$v1,$nick))) $+(p.,$StatsID($2)) $iif($regex($left($3,1),/^[#-]/Si),$remove($3,$chr(35),-))
    else sockmark $+(stats.,%sc) $iif($regex($1,/^@/Si),msg $chan,notice $nick) $iif($regex($left($2,1),/^[#-]/Si),$iif($3,$hr($3-),$iif($readini(defname.ini,defname,$address($nick,3)),$v1,$nick)),$iif($2,$hr($2-),$iif($readini(defname.ini,defname,$address($nick,3)),$v1,$nick))) $StatsID($1) $iif($regex($left($2,1),/^[#-]/Si),$remove($2,$chr(35),-))
  }
}
on *:SOCKOPEN:stats.*:{
  sockwrite -nt $sockname GET /parsers/stats.php?user= $+ $gettok($sock($sockname).mark,3,32) HTTP/1.1
  sockwrite -nt $sockname Host: o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:stats.*:{
  var %rs | sockread %rs
  if ((*does not feature* iswm %rs) && ($sockname)) {
    $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$sr($gettok($sock($sockname).mark,3,32)) $c2,does not feature in the highscores for $c1,any skill])
    sockclose $sockname
  }
  elseif ((*overall* iswm %rs) && ($gettok($sock($sockname).mark,4,32) == overall) && ($sockname)) {
    var %z = %rs, %c = 1
    while (%c <= 23) { sockread %rs | tokenize 32 %rs | if ($3 != ranked) var %z = %z $+($gettok(%rs,1,32),: $c1,$gettok(%rs,3,32),$c2) | if (%c isnum 1-7) var %k = %k $iif($3 == ranked,$iif($1 == hitpoints,10,1),$3) | inc %c } | tokenize 32 %z
    $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Overall for $sr($gettok($sock($sockname).mark,3,32)),$c1,] [,$c2,Combat:,$c1 $cmb(%k $sockname) |,$c2 Total: $c1,$3 |,$c2 Rank: $c1,$2 |,$c2 Exp: $c1,$4,])
    $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$left($gettok(%z,5-,32),-3),$c1,])
    sockclose $sockname
  }
  elseif ((!$regex($gettok($sock($sockname).mark,4,32),/(overall|combat)/Si)) && ($+(*,$gettok($sock($sockname).mark,4,32),*) iswm %rs) && ($sockname)) {
    if ($gettok(%rs,2,32) == not) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$sr($gettok($sock($sockname).mark,3,32)) $c2,does not feature in the highscores for $c1,$gettok($sock($sockname).mark,4,32),])
    else $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$gettok($sock($sockname).mark,4,32) for $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Level: $c1,$gettok(%rs,3,32) |,$c2 Rank: $c1,$gettok(%rs,2,32) |,$c2 Exp: $c1,$gettok(%rs,4,32),$iif($gettok(%rs,3,32) != 99,$+($chr(32),|,$c2 Exp till level $c1,$iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),$c2,:,$c1 $bytes($calc($exp($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1))) - $remove($gettok(%rs,4,32),$chr(44))),bd))),]) 
    sockclose $sockname
  }
  elseif ((*attack* iswm %rs) && ($gettok($sock($sockname).mark,4,32) == combat) && ($sockname)) {
    var %c = $iif($gettok(%rs,3,32) != ranked,$v1,1), %z = 1
    while (%z <= 6) { sockread %rs | var %c = %c $iif($gettok(%rs,3,32) != ranked,$v1,$iif($gettok(%rs,1,32) == hitpoints,10,1)) | inc %z } | tokenize 32 %c
    $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Combat for $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Combat: $c1,$cmb(%c $sockname),] [,$c2,Att:,$c1 $1 |,$c2 Str:,$c1 $3 |,$c2 Def:,$c1 $2 |,$c2 Hp:,$c1 $4 |,$c2 Ranged:,$c1 $5 |,$c2 Pray:,$c1 $6 |,$c2 Magic:,$c1 $7,])
    $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Stats till combat $c1,$iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok($cmb(%c $sockname),1,46) + 1)),] [,$c2,$iif($gettok($cmb(%c $sockname),2,32) == melee,$+(Att/Str: $c1,$cc1($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))))),$iif($gettok($cmb(%c $sockname),2,32) == ranged,$+(Ranged: $c1,$cc3($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))))),$&
      $iif($gettok($cmb(%c $sockname),2,32) == magic,$+(Magic: $c1,$cc3($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))))),$chr(32),|,$c2 Hp/Def: $c1,$cc2($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))) |,$c2 Pray: $c1,$cc4($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))),])
    sockclose $sockname
  }
  elseif ((*overall* iswm %rs) && ($gettok($sock($sockname).mark,4,32) == combatp) && ($sockname)) {
    var %o = $iif($gettok(%rs,4,32),$remove($v1,$chr(44)),0), %z = 1
    while (%z <= 7) { sockread %rs | var %c = $calc(%c + $iif($gettok(%rs,4,32),$remove($v1,$chr(44)),0)) | inc %z }
    $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Combat percentage of $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Total Exp:,$c1 $bytes(%o,bd) |,$c2 Combat Exp:,$c1 $bytes(%c,bd) |,$c2 Combat Percentage:,$c1 $round($calc((%c / %o) * 100),2),$chr(37),])
    sockclose $sockname
  }
  elseif ((p.* iswm $gettok($sock($sockname).mark,4,32)) && ($+(*,$remove($gettok($sock($sockname).mark,4,32),p.),*) iswm %rs) && ($sockname)) {
    if ($gettok(%rs,2,32) == not) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$sr($gettok($sock($sockname).mark,3,32)) $c2,does not feature in the highscores for $c1,$remove($gettok($sock($sockname).mark,4,32),p.),])
    elseif ($gettok(%rs,3,32) == 99) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$remove($gettok($sock($sockname).mark,4,32),p.) for $c1,$sr($gettok($sock($sockname).mark,3,32)) $c2,is already 99,$c1,])
    else {
      var %m = $calc($gettok($calc(($exp($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1))) - $remove($gettok(%rs,4,32),$chr(44))) / ($gettok($calc(($gettok(%rs,3,32) * $gettok(%rs,3,32)) / $iif($remove($gettok($sock($sockname).mark,4,32),p.) == prayer,12,6)),1,46) + 1)),1,46) + 1)
      $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$remove($gettok($sock($sockname).mark,4,32),p.) for $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Level: $c1,$gettok(%rs,3,32) |,$c2 Rank: $c1,$gettok(%rs,2,32) |,$c2 Exp: $c1,$gettok(%rs,4,32),])
      $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Exp till level $c1,$iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),$c2,:,$c1 $bytes($calc($exp($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1))) - $remove($gettok(%rs,4,32),$chr(44))),bd),] [,$c2,PC Tickets (1):,$c1 $bytes(%m,bd) |,$c2 PC Tickets (100):,$c1 $bytes($gettok($calc(((%m / 10) * 9) + 1),1,46),bd),])
      sockclose $sockname
    }
  }
}
alias -l c1 return $+($chr(3),14)
alias -l c2 return $+($chr(3),07)
alias -l hr { return $replace($1-,$chr(32),+,$chr(45),+,$chr(95),+) }
alias -l sr { return $replace($1-,+,$chr(32)) }
alias -l StatsID {
  if ($regex($1,/^([!@])?(stats?|overall?|totaa?l)/Si)) return Overall
  elseif ($regex($1,/^([!@])?co?mb%/Si)) return Combatp
  elseif ($regex($1,/^([!@])?co?mb/Si)) return Combat
  elseif ($regex($1,/^([!@])?att/Si)) return Attack
  elseif ($regex($1,/^([!@])?def/Si)) return Defence
  elseif ($regex($1,/^([!@])?str/Si)) return Strength
  elseif ($regex($1,/^([!@])?h(p|it)/Si)) return Hitpoints
  elseif ($regex($1,/^([!@])?rang/Si)) return Ranged
  elseif ($regex($1,/^([!@])?pray/Si)) return Prayer
  elseif ($regex($1,/^([!@])?mag[ei]/Si)) return Magic
  elseif ($regex($1,/^([!@])?cook/Si)) return Cooking
  elseif ($regex($1,/^([!@])?w(c|oodcut)/Si)) return Woodcutting
  elseif ($regex($1,/^([!@])?flet/Si)) return Fletching
  elseif ($regex($1,/^([!@])?fish/Si)) return Fishing
  elseif ($regex($1,/^([!@])?f(m|iremak)/Si)) return Firemaking
  elseif ($regex($1,/^([!@])?craft/Si)) return Crafting
  elseif ($regex($1,/^([!@])?smith/Si)) return Smithing
  elseif ($regex($1,/^([!@])?min/Si)) return Mining
  elseif ($regex($1,/^([!@])?herb/Si)) return Herblore
  elseif ($regex($1,/^([!@])?agi/Si)) return Agility
  elseif ($regex($1,/^([!@])?th(ie|ei)/Si)) return Thieving
  elseif ($regex($1,/^([!@])?slay/Si)) return Slayer
  elseif ($regex($1,/^([!@])?farm/Si)) return Farming
  elseif ($regex($1,/^([!@])?r(c|une)/Si)) return Runecraft
  elseif ($regex($1,/^([!@])?hunt/Si)) return Hunter
  elseif ($regex($1,/^([!@])?c(s|on)/Si)) return Construction
}
alias -l cmb {
  tokenize 32 $1-
  var %rsc1 [ $+ [ $8 ] ] $calc((($1 * 130) + ($3 * 130)) / 400)
  var %rsc2 [ $+ [ $8 ] ] $calc($iif($and($5,1) == 0,$calc($5 * 195),$calc((($5 - 1) + ($5 * 2)) * 65)) / 400)
  var %rsc3 [ $+ [ $8 ] ] $calc($iif($and($7,1) == 0,$calc($7 * 195),$calc((($7 - 1) + ($7 * 2)) * 65)) / 400)
  if ((%rsc1 [ $+ [ $8 ] ] >= %rsc2 [ $+ [ $8 ] ]) && (%rsc1 [ $+ [ $8 ] ] >= %rsc3 [ $+ [ $8 ] ])) return $calc(%rsc1 [ $+ [ $8 ] ] + ((($2 * 100) + ($4 * 100) + ($iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50)) / 400)) Melee Based
  elseif ((%rsc2 [ $+ [ $8 ] ] >= %rsc3 [ $+ [ $8 ] ]) && (%rsc2 [ $+ [ $8 ] ] >= %rsc1 [ $+ [ $8 ] ])) return $calc(%rsc2 [ $+ [ $8 ] ] + ((($2 * 100) + ($4 * 100) + $iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50) / 400)) Ranged Based
  elseif ((%rsc3 [ $+ [ $8 ] ] >= %rsc1 [ $+ [ $8 ] ]) && (%rsc3 [ $+ [ $8 ] ] >= %rsc2 [ $+ [ $8 ] ])) return $calc(%rsc3 [ $+ [ $8 ] ] + ((($2 * 100) + ($4 * 100) + $iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50) / 400)) Magic Based
}
alias -l exp { return $gettok(0 83 174 276 388 512 650 801 969 1154 1358 1584 1833 2107 2411 2746 3115 3523 3973 4470 5018 5624 6291 7028 7842 8740 9730 10824 12031 13363 14833 16456 18247 20224 22406 24815 27473 30408 33648 37224 41171 45529 50339 55649 61512 67983 75127 83014 91721 101333 111945 123660 136594 150872 166636 184040 203254 224466 247886 273742 302288 333804 368599 407015 449428 496254 547953 605032 668051 737627 814445 899257 992895 1096278 1210421 1336443 1475581 1629200 1798808 1986068 2192818 2421087 2673114 2951373 3258594 3597792 3972294 4385776 4842295 5346332 5902831 6517253 7195629 7944614 8771558 9684577 10692629 11805606 13034431,$1,32) }
alias -l cc1 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.325) + 1),1,46) }
alias -l cc2 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.25) + 1),1,46) }
alias -l cc3 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.4875) + 1),1,46) }
alias -l cc4 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.125) + 1),1,46) }
alias c1 { return $+($chr(3),12,$1-) } 
alias c2 { return $+($chr(3),04,$1-) } 
alias priceconfig {
  echo -a * *********************************
  echo -a * To set price options use the following commands:
  echo -a * /priceall <on $+ $chr(124) $+ off> - Allows the use of the "all" trigger.  (.price -a rune set returns rune (g) set, rune (t) set, and rune set.)  Default is off due to flooding issues.
  echo -a * /pricecolor <color4 color11 color5> - Sets colors of the output text.  Default is ­14 07 15­ (looks like: 14Santa Hat:07 25,000,000gp |15 zybez.net)
  echo -a * *********************************
}
alias priceall {
  if ($1 == on) { set %priceall on | echo -a * Price All is now set to "on" | return Price All = On }
  elseif ($1 == off) { set %priceall off | echo -a * Price All is now set to "off" | return Price All = Off }
  else { echo -a * Invalid Syntax.  Either /priceall on or /priceall off. | return Invalid Syntax }
}
alias pricecolor {
  if ($len($1) == 2) && ($len($2) == 2) && ($len($3) == 2) && ($1 isnum) && ($2 isnum) && ($3 isnum) && ($1 <= 5) && ($2 <= 4) && ($3 <= 5) {
    set %c1 $1 | set %c2 $2 | set %c3 $3
    echo -a * Colors Set.  Output will now look like below:
    echo -a *  $+ %c1 Santa Hat: $+ %c2 25,000,000gp $chr(124) $+  $+ %c3 zybez.net
  }
  else { 
    echo -a * Invalid color selection.  Please use two digit color codes from 01 to 15.
  }
}
;Do not change priceappend.  Zybez will break the script again if you do.  Feel free to shorten it, but give credit to zybez ALWAYS.
;if it breaks again because of this, I wont release a new update.
alias priceappend {
  return $+(,%c3,­,http://zybez.net)
}

on *:TEXT:!rsplayers:*: { 
  if ($sock(RSplay)) { 
    .sockclose RSplay 
  } 
  sockopen RSplay runescape.com 80 
  set %chan $chan 
} 
on *:SOCKOPEN:RSplay: { 
  sockwrite -n $sockname GET /lang/en/aff/runescape/title.ws 
  sockwrite -n $sockname Host: runescape.com 
  sockwrite $sockname $crlf 
} 
on *:SOCKREAD:RSplay: { 
  if ($sockerr) { 
    msg %chan There was an error while the socket was being read. ( $+ $sockerr $+ ) 
    halt 
  } 
  else { 
    var %sockreader 
    sockread %sockreader 
    tokenize 32 $nohtml(%sockreader) 
    if (There are currently * people playing!* iswm $1-) { 
      msg %chan 7There are currently $4 people playing RuneScape. 
      unset %chan 
      sockclose RSplay 
    } 
  } 
} 
alias nohtml { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x } 
| return %x } 




alias -l htmlfree {
  var %x = "", %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
alias priceconfig {
  echo -a * *********************************
  echo -a * To set price options use the following commands:
  echo -a * /priceall <on $+ $chr(124) $+ off> - Allows the use of the "all" trigger.  (.price -a rune set returns rune (g) set, rune (t) set, and rune set.)  Default is off due to flooding issues.
  echo -a * /pricecolor <color1 color2 color3> - Sets colors of the output text.  Default is 14 07 15 (looks like: 14Santa Hat:07 25,000,000gp |15 zybez.net)
  echo -a * *********************************
}
alias priceall {
  if ($1 == on) { set %priceall on | echo -a * Price All is now set to "on" | return Price All = On }
  elseif ($1 == off) { set %priceall off | echo -a * Price All is now set to "off" | return Price All = Off }
  else { echo -a * Invalid Syntax.  Either /priceall on or /priceall off. | return Invalid Syntax }
}
alias pricecolor {
  if ($len($1) == 2) && ($len($2) == 2) && ($len($3) == 2) && ($1 isnum) && ($2 isnum) && ($3 isnum) && ($1 <= 15) && ($2 <= 15) && ($3 <= 15) {
    set %c1 $1 | set %c2 $2 | set %c3 $3
    echo -a * Colors Set.  Output will now look like below:
    echo -a *  $+ %c1 Santa Hat: $+ %c2 25,000,000gp $chr(124) $+  $+ %c3 zybez.net
  }
  else { 
    echo -a * Invalid color selection.  Please use two digit color codes from 01 to 15.
  }
}
;Do not change priceappend.  Zybez will break the script again if you do.  Feel free to shorten it, but give credit to zybez ALWAYS.
;if it breaks again because of this, I wont release a new update.
alias priceappend {
  return $+(,%c3,,http://zybez.net)
}

on *:TEXT:!price*:*: {
  if (%price.busy != $null) { .notice $nick 3[14[ElitePure]3] Sorry but %price.busy is already using this command... please wait 3 seconds and try again. | halt }
  set -u3 %price.busy $nick
  write -c pricedownload.txt
  if ($2 == -a) { 
    set %priceflag $2 
    set %rs.item $replace($3-,$chr(32),$chr(43))
  }
  else {
    set %rs.item $replace($2-,$chr(32),$chr(43))
  }
  set %pricenick $nick
  set %msg.type private
  price
}
on *:TEXT:@price*:*: {
  if (%price.busy != $null) { .notice $nick 3[14[ElitePure]3] Sorry but %price.busy is already using this command... please wait 3 seconds and try again. | halt }
  set -u3 %price.busy $nick
  write -c pricedownload.txt
  if ($2 == -a) { 
    set %priceflag $2 
    set %rs.item $replace($3-,$chr(32),$chr(43))
  }
  else {
    set %rs.item $replace($2-,$chr(32),$chr(43))
  }
  set %pricechannel $chan
  set %pricenick $nick
  set %msg.type public
  price
}
alias pricemsg {
  if (%priceall == on) && (%priceflag == -a) {
    var %itemnamecount 1
    var %pricecount 2
    while ($read(pricedownload.txt,1)) {
      var %itemname $read(pricedownload.txt,1))
      var %price $read(pricedownload.txt,2)
      var %output  $+ %c1 $+ %itemname $+ : $+ %c2 %price $+  %type $chr(124) $+  $+ %c3 $priceappend
      if (spelling isin $read(pricedownload.txt,1)) { notice %pricenick 07Your search did not return any results. Please make sure your spelling is correct and that you are typing full words. | halt  }
      if (%msg.type == private) { notice %pricenick 3[14[SOGPC]3] %output }  
      elseif (%msg.type == public) { msg %pricechannel 3[14[SOGPC]3] %output }
      else { msg %pricechannel Error.  Please eat a sock. }
      write -dl 1 pricedownload.txt
      write -dl 1 pricedownload.txt
    }
  }
  else {
    var %itemname $read(pricedownload.txt,1)
    var %price $read(pricedownload.txt,2)
    var %output  $+ %c1 $+ %itemname $+ : $+ %c2 %price $+  %type $chr(124) $+  $+ %c3 $priceappend
    if (spelling isin $read(pricedownload.txt,1)) { notice %pricenick 07Your search did not return any results. Please make sure your spelling is correct and that you are typing full words. | halt  }
    if (%msg.type == private) { notice %pricenick 3[14[SOGPC]3] %output }  
    elseif (%msg.type == public) { msg %pricechannel 3[14[SOGPC]3] %output }
    else { msg %pricechannel Error.  Please eat a sock. }
  }
  unset %priceflag
}
alias price sockclose price | sockopen price zybez.net 80
on *:sockopen:price:{ 
  sockwrite -n $sockname GET /priceguide.php?search_terms= $+ %rs.item $+ &search_area=1&price_low=&price_high=&member=1&Search HTTP/1.1
  sockwrite -n $sockname Host: www.zybez.net $+ $crlf $+ $crlf
}
on *:sockread:price:{ 
  if ($sockerr) {
    echo -a Error.
    halt
  }
  else {
    sockread %temp 
    if ($regex(%temp,/^<!--name/)) || ($regex(%temp,/^<!--price/)) {
      write pricedownload.txt $htmlfree($replace(%temp,&amp $+ $chr(59),&))
      timerSOCKET 1 1 pricemsg
    }
  }
}
on *:sockclose:price:{
} alias -l htmlfree {
var %x = "", %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x
}
alias priceconfig {
echo -a * *********************************
echo -a * To set price options use the following commands:
echo -a * /priceall <on $+ $chr(124) $+ off> - Allows the use of the "all" trigger.  (.price -a rune set returns rune (g) set, rune (t) set, and rune set.)  Default is off due to flooding issues.
echo -a * /pricecolor <color1 color2 color3> - Sets colors of the output text.  Default is 14 07 15 (looks like: 14Santa Hat:07 25,000,000gp |15 zybez.net)
echo -a * *********************************
}
alias priceall {
if ($1 == on) { set %priceall on | echo -a * Price All is now set to "on" | return Price All = On }
elseif ($1 == off) { set %priceall off | echo -a * Price All is now set to "off" | return Price All = Off }
else { echo -a * Invalid Syntax.  Either /priceall on or /priceall off. | return Invalid Syntax }
}
alias pricecolor {
if ($len($1) == 2) && ($len($2) == 2) && ($len($3) == 2) && ($1 isnum) && ($2 isnum) && ($3 isnum) && ($1 <= 15) && ($2 <= 15) && ($3 <= 15) {
  set %c1 $1 | set %c2 $2 | set %c3 $3
  echo -a * Colors Set.  Output will now look like below:
  echo -a *  $+ %c1 Santa Hat: $+ %c2 25,000,000gp $chr(124) $+  $+ %c3 zybez.net
}
else { 
  echo -a * Invalid color selection.  Please use two digit color codes from 01 to 15.
}
}
;Do not change priceappend.  Zybez will break the script again if you do.  Feel free to shorten it, but give credit to zybez ALWAYS.
;if it breaks again because of this, I wont release a new update.
alias priceappend {
return $+(,%c3,,http://zybez.net)
}





on *:TEXT:!part*:#sogpc: { 
if ( $nick isop $chan || $nick ishop $chan)  {
  part #sogpc requested: $nick 
  notice $nick To make me leave channel get an op or halfop 2 say !Part 
}
}


on *:text:!mute:#sogpc:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan +m } }


on *:text:!demute:#sogpc:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan -m } }

on *:TEXT:!dav*:#sogpc: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    /cs access $chan del $2 
    mode $chan -v $2
    notice $nick $2 you have been deleted from the Autovoice list.
  }
  else {
    notice $nick $2 You do not have the power to delete $2 from the Autovoice list
  }
}

on *:TEXT:!gay *:*:{
  if ($2 == $me) { /msg $chan 8,1 OMFG! $nick is 100% GAY! Run fast away!!!!!! | halt }
  else {
    /set %gaymeter $rand(0,100)
    if (%gaymeter == 0) { /msg $chan $2 is %gaymeter $+ % gay... He's not a gay i think! | /unset %gaymeter | halt }
    If (%gaymeter >= 0 && %Gaymeter <= 10) { /msg $chan 4,1 $2 7,1 is %gaymeter $+ % gay... He's not a gay i think! | /unset %gaymeter | halt }
    If (%gaymeter >= 9 && %Gaymeter <= 19) { /msg $chan 4,1 $2 7,1is %gaymeter $+ % gay... He's a little bit gay! | /unset %gaymeter | halt }
    If (%gaymeter >= 19 && %Gaymeter <= 29) { /msg $chan 4,1 $2 7,1is %gaymeter $+ % gay... I think he loves girls more... | /unset %gaymeter | halt }
    If (%gaymeter >= 29 && %Gaymeter <= 39) { /msg $chan 4,1 $2 7,1is %gaymeter $+ % gay... Don't enter his house, i think thats dangerous! | /unset %gaymeter | halt }
    If (%gaymeter >= 39 && %Gaymeter <= 49) { /msg $chan 4,1 $2 7,1is %gaymeter $+ % gay... If you walk with him next to the sea, he maybe attack you and...... | /unset %gaymeter | halt }
    If (%gaymeter >= 49 && %Gaymeter <= 59) { /msg $chan 4,1 $2 7,1is %gaymeter $+ % gay... Don't talk with him!! | halt }
    If (%gaymeter >= 59 && %Gaymeter <= 69) { /msg $chan 4,1 $2 7,1is %gaymeter $+ % gay... He's a big gay and........ LOOK OUT! | /unset %gaymeter | halt }
    If (%gaymeter >= 69 && %Gaymeter <= 79) { /msg $chan 4,1 $2 7,1is %gaymeter $+ % gay... OMFG! LOOK! He attack you! He is ......... | /unset %gaymeter | | halt }
    If (%gaymeter >= 79 && %Gaymeter <= 89) { /msg $chan 4,1 $2 7,1is %gaymeter $+ % gay... DONT GO TO THE BUSHES WITH HIM! I think you got attacked and to things what you dont like... | /unset %gaymeter | halt }
    If (%gaymeter >= 89 && %Gaymeter <= 99) { /msg $chan 4,1 $2 7,1is %gaymeter $+ % gay... OMFG! HE IS THE BIGGEST GAY! No, he's not the biggest gay. Thats %biggestgay $+ ! (You got logged if you are 100% gay and placed here) | /unset %gaymeter | halt }
    if (%gaymeter == 100) { /set %biggestgay $2 | /msg $chan OMFG! $2 is 100% GAY! Run fast away!!!!!! | /unset %gaymeter | halt }
  }
  ; Script by Rangeu2deth1 and Bubblerz
  off $*:text:!dmcommands:*:{ 
    msg $nick .::. Attacks .::. 
    msg $nick !whip 
    msg $nick !dds 
    msg $nick !dh 
    msg $nick !eat 
    msg $nick .::. Others .::. 
    msg $nick !dm 
    msg $nick !stopdm 
    msg $nick $& 
      $chr(84) $+ $chr(104) $+ $chr(105) $+ $chr(115) $chr(115) $+ $chr(99) $+ $chr(114) $+ $chr(105) $+ $chr(112) $+ $chr(116) $chr(119) $+ $chr(97) $+ $chr(115) $& 
      $chr(109) $+ $chr(97) $+ $chr(100) $+ $chr(101) $chr(98) $+ $chr(121) $& 
      $chr(82) $+ $chr(117) $+ $chr(110) $+ $chr(101) $+ $chr(121) $+ $chr(54) $+ $chr(55) $+ $chr(54) 
  } 
on *:join:#sogpc:{msg $chan @clan $remove($nick,pc|,pc-)  }