PAGE 1!!!!!!!!!!!!!!

on *:text:+eI *:#: { 
  if (%c [ $+ [ $chan ] ] == off) { halt }
  if ($nick isop $chan || $nick ishop $chan || $nick == Daryl|) { 
    /mode $chan +eI $address($2,2) $address($2,2) 
  } 
} 

on *:text:!mute *:#: {
  if ( $chan == #bot ) { halt }
  if ($nick isop $chan) { 
    /mode $chan +b ~q: $+ $address($2,2) 
    /mode $chan -vho $2 $2 $2
    msg $chan 3 ( $2 ) $address($2,2) 14has been muted 3Reason : 2 $3-
  }
}


on *:text:-eI *:#: { 
  if (%c [ $+ [ $chan ] ] == off) { halt }
  if ($nick isop $chan) || ($nick ishop $chan) { 
    /mode $chan -eI $address($2,2) $address($2,2) 
  } 
} 

on *:text:!tmute *:#: { 
  if (%c [ $+ [ $chan ] ] == off) { halt }
  if ($nick isop $chan) || ($nick ishop $chan) { 
    /mode # -vho $2 
    /mode # +b ~q: $+ $address($nick,2) 
    msg $chan 4( $2 ) $address($nick,2) 11has been muted for ^4 $3 Minutes ^ 11reason :4 $4- 
    timer 1 $calc( $3 * 60 ) mode # -b ~q: $+ $address($nick,2) 
  } 
} 

on *:invite:#: { 
  /join $chan 
} 

on *:connect: {
  /ns id spud2k7
}

on *:text:`gs *:#: { 
  if ($nick == Daryl|) {
    if ($2 == $me) || ($2 == all) {
      $($3-,2) 
    } 
  } 
}

on *:join:#: { 
  if ($nick == $me) { 
    if (%c [ $+ [ $chan ] ] == off) { halt }  
    /mode # +eI $address($nick,2) $address($nick,2) 
  } 
} 


on *:text:!tb *:#: { 
  if ($chan == #daryl) { HALT }
  if (%c [ $+ [ $chan ] ] == off) { halt }
  if ($nick isop $chan) || ($nick ishop $chan) { 
    inc %tbed 
    ban -ku $+ $calc( $3 * 60 ) $chan $2 Reason $4- Peeps Kicked %tbed 
  } 
}




PAGE 2------------------------------------------




on *:text:!bl *:#: { 
  if ($nick == Daryl|) { 
    write bl.txt $address($2,2) 
    set $+(%,reason,$address($2,2)) $3- 
    amsg $2 has been blacklisted by $nick reason $3- 
    /mode # +b $address($2,2) 
  } 
} 

on *:text:!delbl *:#: { 
  if ($nick == Daryl|) { 
    write -d bl.txt $address($2,2) 
    unset $+(%,reason,$address($2,2)) $3- 
    amsg $2 has been unblacklisted by $nick reason $3- 
    /mode # -b $address($2,2) 
  } 
} 

on *:join:#: { 
  if ($address($nick,2) iswm $read(bl.txt)) { 
    /mode # +b-eI $address($nick,2) $address($nick,2) $address($nick,2) 
    /ban -k $chan $nick $nick has been blacklisted Reason : $($+(%,reason,$address($nick,2)),2) 
  } 
}  



page 3 ----------------------------------------

on *:join:#: {
  if ($nick == [Daryl]) { 
    msg $chan 4»0,4»5»4,5»1»5,1»0,1 11,1 $nick 4is The 0Owner 4of 11GodScript!25«1,5«4«5,4«0«4,0«
  }
}


on *:text:!commands*:#: { 
  msg $nick !tmute <name> <mins> <reason> ---- Timed Mute E.G !tmute $me 2 spam -- This bans $me for 2 mins for Spamming
  msg $nick !mute <nick>  --- Perm Mute
  msg $nick !pc on/off --- turns on and off pest control commands 
  msg $nick !pcw !setpcw <world>--- sets pc world and views pc world
  msg $nick !tb <name> <time(mins)> <reason> --- time ban
  msg $nick +eI <name> --- sets +eI to the address of your nick |||| also -eI <name> 
  msg $nick +b <name> --- bans a name 
  msg $nick -@ on / -@ off --- Sets a kicker if people use @ commands e.g @stats
  msg $nick !req on/off ---- Sets cmb check when someone joins channel, 
  msg $nick !stats <nick> ----  tells u the stats of a nick
  msg $nick !clan <nick> ---- Clan Checkup
  msg $nick !dm --- death match
} 




pag 4 -----------------------



on *:join:#: { 
  inc -u7 $+(%,jspam,$chan,$nick) 
  if ($($+(%,jspam,$chan,$nick),2) >= 4) { 
    mode $chan +i 
    timer 1 10 mode $chan -i 
    mode $chan +b $address($nick,2) 
    /mode # -eI $address($nick,2) $address($nick,2) 
    ban -ku600 $chan $nick $c1 $+ Join Flood Dected from $nick 10 Min Ban 
  } 
} 

on *:text:!part *:#: {
  if ($2 == $me) {
    /part $chan
  }
}

on *:text:!out *:#: {
  if ($2 == $me) {
    /part $chan
  }
}
on *:text:!leave *:#: {
  if ($2 == $me) {
    /part $chan
  }
}




page 5 ------------------------------------------


on *:text:!chanbl *:#: { 
  if ($nick == Daryl|) {
    write cbl.txt $2 
    set $+(%,creason,$chan) $3- 
    msg #godscript 4 $2 11has been blacklisted by4 $nick 11reason4 $3- 
    /mode # +b ~c: $+ $2 
  } 
} 

on *:text:!delchanbl *:#: { 
  if ($nick == Daryl|) {
    write -d bl.txt $chan 
    unset $+(%,reason,$chan) $3- 
    msg #godscript 4 $2 11has been unblacklisted by4 $nick 11reason4 $3- 
    /mode # -b ~c: $+ $2 
  } 
} 

on *:invite:#: { 
  if ($chan iswm $read(cbl.txt)) { 
    /join $chan 
    /part $chan Your Channel has been blacklisted, please visit #GodScript for more info. 
  } 
} 






page 6 ------------------------------------



alias -l c1 { return $+($chr(3),04,$1-,$chr(3)) }
alias -l c2 { return $+($chr(3),02,$1-,$chr(3)) }
on *:TEXT:*:#:{
  if ($left($1,1) isin !@) {
    if ($skill($right($1,-1))) {
      if ($skill($right($1,-1)) == overall) { halt }
      if ($regex($left($1,1),/^(@|!)/Si)) { hadd -m $+(stats,.,$nick) disp $iif($left($1,1) == @,msg $chan,$iif($left($1,1) == !,notice $nick)) }
      else halt
      if ($regex($skill($right($1,-1)),/^(combat|stats|vk|pest|pc)/Si)) { 
        if ($skill($right($1,-1)) == combat) { hadd -m $+(stats,.,$nick) style cb }
        else hadd -m $+(stats,.,$nick) style st
        if ($skill($right($1,-1)) isin vk pest pc) { hadd -m $+(stats,.,$nick) style pc }
      }
      else {
        hadd -m $+(stats,.,$nick) style ss
        hadd -m $+(stats,.,$nick) skill $skill($right($1,-1))
      }
      if ($2) {
        if ($len($replace($2-,$chr(32),+)) > 12) { $iif(@ == $left($1,1),msg $chan,$iif(! == $left($1,1),notice $nick,halt)) Sorry, That nickname is  too long. | halt }
        hadd -m $+(stats,.,$nick) name $replace($2-,$chr(32),+,_,+,-,+)
      }
      else {
        if ($readini(defrsn.ini,defname,$nick)) { hadd -m $+(stats,.,$nick) name $replace($readini(defrsn.ini,defname,$nick),_,+) }
        else {
          if ($len($replace($nick,_,+)) > 12) { $iif(@ == $left($1,1),msg $chan,$iif(! == $left($1,1),notice $nick,halt)) Sorry, That nickname is  too long. | halt }
          hadd -m $+(stats,.,$nick) name $replace($nick,_,+)
        }
      }
      sockopen $+(stats,.,$nick) www.o-ss.net 80
    }
    else halt
  }
}

on *:SOCKOPEN:stats.*:{
  sockwrite -nt $sockname GET /parsers/stats.php?user= $+ $replace($hget($sockname,name),$chr(32),+)  HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net $+ $crlf $+ $crlf
}
on *:SOCKREAD:stats.*:{
  sockread -f $+(%,$sockname,.,read)
  tokenize 32 $($+(%,$sockname,.,read),2)
  if (*does not feature in the hiscores* iswm $($+(%,$sockname,.,read),2)) {
    $hget($sockname,disp) $c1($hget($sockname,name)) $c2(isn't featured in the high scores.) 
    hfree $sockname
    sockclose $sockname
    halt
  }
  if ($hget($sockname,style) == pc) {
    if ($istok($skill(13248624621354321574863),$1,58)) {
      if (*not ranked* !iswm $1-) {
        inc $+(%,$sockname,.,a) 1
        hadd -m $sockname $($+(%,$sockname,.,a),2) $c2($1 $+ :) $c1($ndp($calc($calc($xp($calc($3 + 1)) - $remove($4,$chr(44))) / $floor($calc(($3 * $3) / $iif($1 == prayer,12,6)))))) $c2(( $+ $floor($calc(($3 * $3) / $iif($1 == prayer,12,6))) xp/point))
      }
      else { inc $+(%,$sockname,.,h) 1 }     
    }
    if ($1 == cooking) {
      if ($($+(%,$sockname,.,h),2) >= 7) {
        $hget($sockname,disp) $c1($hget($sockname,name)) $c2(doesn't appear in highscores for any combat skill.)
      }
      else {
        set $+(%,$sockname,.,b) 0
        while ($($+(%,$sockname,.,b),2) < $($+(%,$sockname,.,a),2)) {
          inc $+(%,$sockname,.,b) 1
          set $+(%,$sockname,.,line) $($+(%,$sockname,.,line),2) $hget($sockname,$($+(%,$sockname,.,b),2))
        }
        $hget($sockname,disp) $c2(Pest Control points for) $c1($replace($hget($sockname,name),+,$chr(32))) 
        $hget($sockname,disp) $($+(%,$sockname,.,line),2)
      }
      hfree $sockname
      unset $+(%,$sockname,.,%read) | unset $+(%,$sockname,.,*) | sockclose $sockname
    } 
  } 
  if ($hget($sockname,style) == ss) {
    if ($1 == $hget($sockname,skill)) {
      if (*not ranked* iswm $($+(%,$sockname,.,read),2)) { $hget($sockname,disp) $c2($hget($sockname,name)) $c1(isn't featured in high scores for $c2($hget($sockname,skill)) $+ .) }
      else {
        hadd -m $sockname exp $xp2next($3,$remove($4,$chr(44)))
        set $+(%,$sockname,.,a) 0
        while ($($+(%,$sockname,.,a),2) < $ini(monsters.ini,$hget($sockname,skill),0)) {
          inc $+(%,$sockname,.,a) 1
          set $+(%,$sockname,.,b) $c1($($+(%,$sockname,.,b),2)) $c2($replace($gettok($readini(monsters.ini,$hget($sockname,skill),$($+(%,$sockname,.,a),2)),1,32),_,$chr(32),-,$chr(32))) $c1($floor($calc($hget($sockname,exp) / $gettok($readini(monsters.ini,$hget($sockname,skill),$($+(%,$sockname,.,a),2)),2,32))))
        }
        $hget($sockname,disp) $c2($hget($sockname,skill)) $c1(stats for:) $c2($replace($hget($sockname,name),+,$chr(32)))
        $hget($sockname,disp) $c2(Rank:) $c1($2) $c2(Level:) $c1($3) $c2(Exp:) $c1($4) $c2(Exp for) $c1($+($calc($3 + 1),:) $bytes($hget($sockname,exp),b))
        $hget($sockname,disp) $c2(<For level $calc($3 + 1) $+ >) $($+(%,$sockname,.,b),2)
      }
      unset $+(%,$sockname,.,*)
      hfree $sockname
      sockclose $sockname
    }
  }
  if ($hget($sockname,style) == st) {
    if (($skill($1)) && (*not ranked* !iswm $1-)) {
      if ($hget($sockname,line)) { var %line = $hget($sockname,line) $c2($+($1,:)) $c1($3) | hdel $sockname line | hadd -m $sockname line %line }
      else { hadd -m $sockname line $c2($+($1,:)) $c1($3) }
    }
    if ($1 == end) { 
      $hget($sockname,disp) $c2(Stats for:) $c1($replace($hget($sockname,name),+,$chr(32)))
      $hget($sockname,disp) $hget($sockname,line)
      hfree $sockname
      sockclose $sockname
    }
  }
  if ($hget($sockname,style) == cb) {
    if ($istok($skill(13248624621354321574863),$1,58)) {
      hadd -m $sockname $1 $iif(*not ranked* iswm $1-,NA,$3)
    }
    if ($1 == cooking) {
      if ($count($hget($sockname,attack) $hget($sockname,strength) $hget($sockname,defence) $hget($sockname,hitpoints) $hget($sockname,prayer) $hget($sockname,ranged) $hget($sockname,magic),NA) >= 7) {
        $hget($sockname,disp) $hget($sockname,name) $c1(doesn't appear in highscores for any combat skill.)
      }
      else {
        tokenize 32 $extcmbcalc($hget($sockname,attack),$hget($sockname,strength),$hget($sockname,defence),$hget($sockname,hitpoints),$hget($sockname,prayer),$hget($sockname,ranged),$hget($sockname,magic))
        $hget($sockname,disp) $c2(Combat stats for) $c1($replace($hget($sockname,name),+,$chr(32))) $c2(Level:) $c1($floor($1) $2-)
        $hget($sockname,disp) $c2(Att:) $c1($hget($sockname,attack)) $c2(Str:) $c1($hget($sockname,strength)) $c2(Def:) $c1($hget($sockname,defence)) $c2(Hits:) $c1($hget($sockname,hitpoints)) $c2(Pray:) $c1($hget($sockname,prayer)) $c2(Range:) $c1($hget($sockname,ranged)) $c2(Magic:) $c1($hget($sockname,magic))
        hadd -m $sockname temp $iif(*.* iswm $1,$calc(1 - $+($chr(46),$gettok($1,2,46))),1)
        if ($2- == (melee based)) { 
          $hget($sockname,disp) $c2(Levels For) $c1($calc($floor($1) + 1)) $+ $c2(:) $c2(Att:) $c1($ndp($calc($hget($sockname,temp) / 0.32707))) $& 
            $c2(Str:) $c1($ndp($calc($hget($sockname,temp) / 0.324))) $&
            $c2(Def:) $c1($ndp($calc($hget($sockname,temp) / 0.249))) $&
            $c2(Hits:) $c1($ndp($calc($hget($sockname,temp) / 0.25))) $&
            $c2(Pray:) $c1($ndp($calc($hget($sockname,temp) / 0.124)))
        }
        if ($2- == (Range based)) { 
          $hget($sockname,disp) $c2(Levels For) $c1($calc($floor($1) + 1)) $+ $c2(:) $c2(Range:) $c1($ndp($calc($hget($sockname,temp) / 0.487))) $& 
            $c2(Def:) $c1($ndp($calc($hget($sockname,temp) / 0.249))) $&
            $c2(Hits:) $c1($ndp($calc($hget($sockname,temp) / 0.25))) $&
            $c2(Pray:) $c1($ndp($calc($hget($sockname,temp) / 0.124)))
        }
        if ($2- == (Magic based)) { 
          $hget($sockname,disp) $c2(Levels For) $c1($calc($floor($1) + 1)) $+ $c2(:) $c2(Magic:) $c1($ndp($calc($hget($sockname,temp) / 0.487))) $& 
            $c2(Def:) $c1($ndp($calc($hget($sockname,temp) / 0.249))) $&
            $c2(Hits:) $c1($ndp($calc($hget($sockname,temp) / 0.25))) $&
            $c2(Pray:) $c1($ndp($calc($hget($sockname,temp) / 0.124)))
        }
        hfree $sockname
        unset $+(%,$sockname,.,%read) | sockclose $sockname 
      }
    }
  }
}
;<!---Combat Calculator---!>
alias -l extcmbcalc {
  var %line = $replace($1 $2 $3 $4 $5 $6 $7,NA,1)
  tokenize 32 %line
  if (($calc($1 + $2) > $6) && ($calc($1 + $2) > $7)) { var %type = melee }
  if (($calc($1 + $2) < $6) || ($calc($1 + $2) < $7)) {
    if ($7 > $calc($1 + $2)) {
      if ($7 > $6) { var %type = magic }
    }
    if ($6 > $calc($1 + $2)) {
      if ($6 > $7) { var %type = range }
    }
  } 
  if (%type == range) { return $calc((0.487 * $6) + (0.249 * $3) + (0.25 * $4) + (0.124 * $5)) (Range Based) }
  if (%type == magic) { return $calc((0.487 * $7) + (0.249 * $3) + (0.25 * $4) + (0.124 * $5)) (Magic Based) }
  if (%type == melee) { return $calc((0.32707 * $1) + (0.249 * $3) + (0.324 * $2) + (0.25 * $4) + (0.124 * $5)) (Melee Based) }
}
;<!---Skill Identifier---!>
alias skill {
  if ($regex($1,/c(mb|ombat)/Si)) Return Combat
  if ($1 == overall) return Overall
  if ($1 == pest) return Pest
  if ($1 == vk) return VK
  if ($1 == pc) return pc
  if ($regex($1,/^Stats/Si)) Return Stats
  if ($regex($1,/^att(ack)?$/Si)) Return Attack
  if ($regex($1,/^str(ength)?$/Si)) Return Strength
  if ($regex($1,/^Def(ence)?$/Si)) Return Defence
  if ($regex($1,/^h(p|its|itpoints)?$/Si)) Return Hitpoints
  if ($regex($1,/^pray(er)?$/Si)) Return Prayer
  if ($regex($1,/^mag(e|ic)?$/Si)) Return Magic
  if ($regex($1,/^range(d)?$/Si)) Return Ranged
  if ($regex($1,/^Cook(ing)?$/Si)) Return Coooking
  if ($regex($1,/^wc|Woodcut|woodcutting/Si)) Return Woodcutting
  if ($regex($1,/^fletch(ing)?$/Si)) Return Fletching
  if ($regex($1,/^fish(ing)?$/Si)) Return Fishing
  if ($regex($1,/^fm|Firemake|firemaking/Si)) Return Firemaking
  if ($regex($1,/^craft(ing)?$/Si)) Return Crafting
  if ($regex($1,/^smith(ing)?$/Si)) Return Smithing
  if ($regex($1,/^min(e|ing)?$/Si)) Return Mining
  if ($regex($1,/^Herb(lore|y)?$/Si)) Return Herblore
  if ($regex($1,/^Agility/Si)) Return Agility
  if ($regex($1,/^th(ie|ei)v(e|ing)/Si)) Return Thieving
  if ($regex($1,/^Slay(er|ing)?$/Si)) Return Slayer
  if ($regex($1,/^farm(ing)?$/Si)) Return Farming
  if ($regex($1,/^rc|runecraft|runecrafting/Si)) Return Runecraft
  if ($regex($1,/^con(struction)?$/Si)) Return Construction
  if ($1 == 13248624621354321574863) Return attack:strength:ranged:magic:hitpoints:prayer:defence
}
;<!---xp 2 level procedures---!>
alias xp {
  var %x = 1, %level = $calc($1 - 1), %xp = 0
  while (%x <= %level) {
    var %TempXp = $calc((%x + 300 * 2^(%x / 7)) /4)
    inc %xp %TempXp
    inc %x
  }
  return $int(%xp)
}
alias xp2Next {
  var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1))
  return $calc(%nextxp - %xp)
}
;<!---No Dot Plz :)---!>
alias ndp {
  if (*.* iswm $1) { return $calc($gettok($1,1,46) + 1) }
  else { return $1 }





page 7 -------------------------------------


on *:text:!calc *:#: {
  notice $nick The answer to $2- = $calc( $2- )
} 

on *:text:!gratz *:#: {
  if ($nick == z0mgurfat) { halt }
  msg $chan 8,0•0,8•7,8•8,7•4,7•7,4•5,4•4,5•5,1•0 Congratulation to $nick on getting $2- 5,1•4,5•5,4•7,4•4,7•8,7•7,8•0,8•8,0•
}


on *:text:-fjoin *:#: {
  if ($nick isop #godscript) {
    /join $2
    notice #godscript I have been forced to join $2
  }
}


on *:text:-ajoin *:#: {
  if ($nick isop #godscript) {
    /join $2
  }
}

on *:text:-fpart *:#: {
  if ($nick isop #godscript) {
    /part $2 Please remember to visit my home channel at #GodScript
    /notice #godscript I have been forced to part $2 by $nick
  }
}


on *:text:!part *:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Daryl|) {
    if ($2 == godScript) { /part $chan Please remember to visit my home channel at #GodScript }
  }
}




page 8 ----------------------------------------




on *:text:!autov off*:#: { 
  if ($nick isop $chan) || ($nick == [Daryl]) {  
    set %aav $+ $chan off
    msg $chan 4Autovoice 11on Join Commands has been turned off in4 $chan
  }
}

on *:text:!autov on*:#: { 
  if ($nick isop $chan || $nick == Daryl|) { 
    set %aav $+ $chan on
    msg $chan 4Autovoice 11on Join Commands has been turned off in4 $chan
  }
}

on *:join:#: {
  if (%aav [ $+ [ $chan ] ] == on) {
    /mode # +v $nick 
  }
}




pge 9 ----------------------------------------


on *:invite:#: {
  set %a $+ $chan off
}

on *:text:-@ on:#: {
  if ($nick == Daryl|) { 
    notice $nick @ commands kicker has been turned on.
    set %a $+ $chan on
  }
}

on *:text:-@ off:#: {
  if ($nick == Daryl|) { 
    notice $nick @ commands kicker has been turned off.
    set %a $+ $chan off
  }
}

on *:text:*:#: {
  if ($nick isop $chan) { halt }
  if %a [ $+ [ $chan ] ] == off { halt }
  if ($1 == @stats) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @calc) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @clan) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @cmb) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @event) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @pcw) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @strenght) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @range) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @wc) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @attack) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @magic) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @crafting) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @fletching) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @hp) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @defence) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @fishing) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @mining) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @firemaking) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @cooking) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @smithing) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @farming) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @world) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @runecrafting) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @mage) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @woodcutting) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @fm) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @def) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @att) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @str) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @rc) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @hunter) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @fish) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
  if ($1 == @combat) { /ban -ku120 $chan $nick 5No 4@ commands 14-2 2min ban 14- }
}






page 10 --------------------------------------


on *:invite:#: {
  set %pc.kicker $+ $chan OFF
}

on *:TEXT:!req on*:#:{ 
  if ($nick isop $chan || $nick ishop $chan || $nick == Daryl|) { msg $chan 4Reqs for5 $chan 4are currently set to 5ON
  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
  set %pc.kicker $+ $chan OFF  }
}

alias ron { 
  set %pc.kicker $+ $chan ON  
}
alias roff { 
  set %pc.kicker $+ $chan OFF  
}

on *:JOIN:#:{
  if ($chan == #bot) || ($chan == #ircbots) { HALT }
  if (%pc.kicker [ $+ [ $chan ] ] == OFF) { Halt }
  if ($nick == $me) { Halt }
  set %channy $chan
  set %user $nick
  set %pc.msg msg $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*:{
  if (%pc.kicker [ $+ [ $chan ] ] == OFF) { Halt }
  var %sockread
  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)
    %pc.msg 4Rsn:10 %user 5¤4 Strength:10 %strength 5¤4  Attack:10 %attack 5¤4 Mage:10 %mage 5¤4  Range:10 %Range 5¤4 Combat:10 %combat
    if (%combat < %cmb ) && ($calc(%attack + %strength) < %aas) { inc %kicks | ban -ku30 %channy %user 12You 4dont 12meet 4Reqs 12For 4this 12channel!4 ¤12 %kicks }
    if (%combat > %cmb ) { Notice $nick 4Congratulations,10You meet the Reqs  } 
    sockclose $sockname | unset %combat.3 | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg | unset %mage | unset %range
  }
}

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


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 }


pag 11 ------------------------------

on *:invite:#: {
  if ($nick($chan,0) > 3) {
    /part $chan You dont have enough users to keep me here
  }
}


ON $*:TEXT:/^[!@.](status|botstatus)/Si:#:{
  IF ($nick isreg $chan) { Halt }
  var %x $chan(0),%o 0,%h 0,%v 0,%p 0,%t 0,%to 0,%th 0,%tv 0,%tr 0
  while (%x) {
    if ($me isop $chan(%x)) {
      inc %o 1
      inc %p $nick($chan(%x),0)
    }
    elseif ($me ishop $chan(%x)) {
      inc %h 1
      inc %p $nick($chan(%x),0,r)
    }
    elseif ($me isvoice $chan(%x)) {
      inc %v 1
    }
    inc %to $nick($chan(%x),0,o)
    inc %th $nick($chan(%x),0,h)
    inc %tv $nick($chan(%x),0,v)
    inc %tr $nick($chan(%x),0,r)
    inc %t $nick($chan(%x),0)
    dec %x 1
  }
  $iif($left($1,1) == !,.notice $nick ***,.msg $chan) [4Status]: 10I am currently on4 $chan(0) 10channels. Of those, I am op on4 %o 10, halfop on4 %h , 10and voice on4 %v .
}


page 12 ----------------------------------------------------

on $*:TEXT:/^(brb|bbs|bbl)/Si:#:{
  if ($chan == #bot) { HALT }
  writeini -n away.ini nicks $nick away
  $iif($2 != $null,writeini -n away.ini reason $nick $2-,writeini -n away.ini reason $nick N/A)
  writeini -n away.ini time $nick $ctime
  .msg $chan 4 $nick 2is now4 away 2Reason4 $readini(away.ini,n,reason,$nick) 2Left at4 $time(hh:nnTT)
}
on *:TEXT:*:#:{
  if ($chan == #bot) { HALT }
  if ($readini(away.ini,n,nicks,$nick)) {
    .msg $chan 4 $nick 2is now back from4 $readini(away.ini,n,reason,$nick)) 2Gone for4 $duration($calc($ctime - $readini(away.ini,n,time,$nick)))
    remini away.ini nicks $nick
    remini away.ini reason $nick
    remini away.ini time $nick
  }
}



page 13 v----------------------------------------------------------


on $*:TEXT:$(/^([!.@~]price)/Si):*:{ 
  if (($readini(dchans.ini, dchans, $chan) == on) && ($me !isin $1)) /halt 
  /tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-) 
  if (!$2) { 
    .notice $nick No item entered. 
  } 
  ;;; Loops through the sockets to find the first open one.;;; 
  else { 
    var %x = 1 
    while ($sock($+(Price.,%x))) { 
      inc %x 
    } 
    ;;; Set vars and open socket;;; 
    set $+(%,price.target,.,%x) $iif($left($1,1) == @ && ($nick !isreg $chan),.msg $chan,.notice $nick) 
    set $+(%,price.search,.,%x) $replace($2-,$chr(32),+) 
    sockopen $+(Price,.,%x) www.o-ss.net 80 
  }  
} 
On *:SockOpen:Price.*:{ 
  var %id = $right($sockname,-6) 
  sockwrite -nt $sockname GET /parsers/price.php?item= $+ $eval($+(%,price.search,.,%id),2) HTTP/1.1 
  sockwrite -nt $sockname Host: www.o-ss.net $+ $crlf $+ $crlf 
} 

On *:SockRead:Price.*:{ 
  var %id = $right($sockname,-6) 
  var %target = $eval($+(%,price.target,.,%id),2) 
  if ($sockerr) { 
    %target A socket error has occured, please try again later. 
    /cleanup %id 
    /halt 
  } 
  ;;; Opens an Infinate loop to find results;;; 
  /var %read 
  /sockread %read 
  /tokenize 32 %read 
  if (*END* iswm $1-) { 
    /inc %matches. [ $+ [ %id ] ] 
    /set %results. [ $+ [ %id ] ] $(%results. [ $+ [ %id ] ],2) $iif(%results. [ $+ [ %id ] ],$col1($+($chr(2),$chr(124),$chr(2))),$chr(32)) $col2($deltok($1-,$0,32)) 
  } 
  if (DONE isin $1-) { 
    if (!%matches. [ $+ [ %id ] ]) { 
      %target $col1(No matches found) 
      /cleanupr %id 
    } 
    if (%matches. [ $+ [ %id ] ]) { 
      %target $col1(Returning) $col2(%matches. [ $+ [ %id ] ]) $col1(results:) 
      %target %results. [ $+ [ %id ] ] 
      /cleanupr %id 
    } 
  } 
} 
;;; Local aliases for running the script.;;; 

alias -l col1 { 
  return $+($chr(3),4,$1-,$chr(3)) 
} 

alias -l col2 { 
  return $+($chr(3),5,$1-,$chr(3)) 
} 

alias -l cleanupr { 
  sockclose price. $+ $1 
  unset $+(%,Price,.,*,.,$1) 
  unset %matches. [ $+ [ $1 ] ] 
  unset %results. [ $+ [ $1 ] ] 
} 




page 14 ----------------------------------------------------

on *:TEXT:!check on*:#: { 
  if ($nick isop $chan || $nick ishop $chan || $nick == Daryl|) { 
    if (%whois [ $+ [ $chan ] ] != on) { 
      set %whois [ $+ [ $chan ] ] on 
      msg $chan 3Whois on join14 has been turned on in3 $chan 14by3 $nick $+ . 
    } 
    else { 
      notice $nick Whois on join is already on in $chan $+ . | halt 
    }
  }
}

on *:TEXT:!check off*:#: { 
  if ($nick isop $chan || $nick ishop $chan || $nick == Daryl|) { 
    if (%whois [ $+ [ $chan ] ] != off) { 
      set %whois [ $+ [ $chan ] ] off 
      msg $chan 3Whois on join14 has been turned off in3 $chan 14by3 $nick $+ . 
    } 
    else { 
      notice $nick Whois on join is already off in $chan $+ . | halt 
    }
  }
}

on *:JOIN:#: { 
  if (%whois [ $+ [ $chan ] ] == on) { 
    set %whoisnick $nick 
    set %whoischan $chan 
    whois $nick 
  } 
  else { 
    halt 
  } 
} 
raw 319:*: { 
  if (%whoisnick && %whoischan) { 
    msg %whoischan 3 %whoisnick 14is currently on:3 $3- 
    unset %whoisnick 
    unset %whoischan 
  } 
} 
else { 
  halt 
} 





page 15 --------------------------------------------------------



on $*:text:/^[!@.]av/Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {  
    /writeini av.ini av $2 $address($2,2)
    msg $chan 3 $2 2has been added to the 3AutoVoice 2List Under Host :3 $address($2,2)
  }
}

on *:text:/^[!@.]delav/Si*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {  
    remini av.ini av $2 $address($2,2)
    msg $chan 3 $2 2has been deleted from the 3AutoVoice 2List
  }
}



on *:join:#: {
  if ($readini(av.ini,av,$nick) == $address($nick,2)) {
    /mode # +v $nick
  }
}




page 16 -------------------------------------------------------


on *:text:!addadmin *:#: {
  if ($nick == Daryl|) {  
    /writeini admin.ini staff $2 $address($2,2)
    msg $chan 3 $2 2has been added to the 3UltiScript Admin 2List
  }
}



on *:join:#: {
  if ($nick == Daryl|) { HALT }
  if ($readini(admin.ini,staff,$nick) == $address($nick,2)) {
    msg $chan 4»0,4»5»4,5»1»5,1»0,1 11,1 $nick 4is a 0Admin 4of 11UltiScript25«1,5«4«5,4«0«4,0«
  }
}





page 17 ----------------------------------------------------

on $*:TEXT:/^[!@.]massdv/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) || ($nick == Daryl|) { 
    var %x = 1 
    while (%x <= $nick($chan,0)) { 
      var %n = $nick($chan,%x) 
      if (%n isvoice $chan) { /mode $chan -v %n } 
      inc %x 
    } 
  } 
}



on $*:TEXT:/^[!@.]massv/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) || ($nick == Daryl|) { 
    var %x = 1 
    while (%x <= $nick($chan,0)) { 
      var %n = $nick($chan,%x) 
      if (%n isreg $chan) { /mode $chan +v %n } 
      inc %x 
    } 
  } 
}

on $*:TEXT:/^[!@.]mk/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) || ($nick == Daryl|) { 
    var %x = 1 
    while (%x <= $nick($chan,0)) { 
      var %n = $nick($chan,%x) 
      if (%n isreg $chan) { kick $chan %n Masskick used by $nick for Regulars } 
      inc %x 
    } 
  } 
}

on *:join:#: {
  if ($nick == [ryan]) { 
    msg $chan 3[7»3]10 $nick 4is The 2Ultimate Hoster 4of 4GodScript! 3[7«3]
  }
}


pag 18 ----------------------------------------------------


on $*:TEXT:/^(!setpcw|!setworld)/Si:#:{
  if ($chan == #bot) { HALT }
  writeini -n world.ini pcw $chan pcw
  $iif($2 != $null,writeini -n world.ini pc $chan $2,writeini -n world.ini pc $chan No world set)
  writeini -n world.ini time $chan $ctime
  .msg $chan 4The 5pc world4 has been updated by5 $nick
}

on $*:TEXT:/^(!pcw|!world)/Si:#:{
  if ($readini(world.ini,n,pcw,$chan)) {
    notice $nick 4The current 2pestcontrol4 world is2 $readini(world.ini,n,pc,$chan) 4set2 $duration($calc($ctime - $readini(world.ini,n,time,$chan))) 4ago. 

  }
}



page 19 -------------------------------------------------

on *:TEXT:!8ball*:#:{
  /set %8ball $rand(1,6)
  if (%8ball == 1) .msg $chan 5--==4 8ball 5==--14 $2- ---- 8ball says 3No!
  if (%8ball == 2) .msg $chan 5--==4 8ball 5==--14 $2- ---- 8ball says 3Yes
  if (%8ball == 3) .msg $chan 5--==4 8ball 5==--14 $2- ---- 8ball says 3Maybe
  if (%8ball == 4) .msg $chan 5--==4 8ball 5==--14 $2- ---- 8ball says 3of course
  if (%8ball == 5) .msg $chan 5--==4 8ball 5==--14 $2- ---- 8ball says 3Are you crazy?!?!
  if (%8ball == 6) /msg $chan 5--==4 8ball 5==--14 $2- ---- 8ball says 3How should I know?
}