on *:TEXT:!commands:*: { msg $nick }


-----------------------------------------------------------


on *:Start:{
  if (!$hget(greet)) {
    hmake Greet
  }
  if ($exists(greet.txt)) {
    hload greet greet.txt
  }
}

on *:Exit:{
  hsave greet greet.txt
}

on *:text:!setgreet*:#:{
  if ($len($2-) > 200) { .notice $nick That greet is too long. Your greet must be under 200 characters. | Halt }
  else {
    if (!$2) { 
      .notice $nick No greet set. 
      halt 
    }
    if ($2 == off) && (!$3) {
      .hadd greet $nick off
      .notice $nick Greets turned off for the nick $+($nick,.)
    } 
    else { 
      .notice $nick Your greet has been set to $+($2-,.) 
      .hadd greet $nick $2-
      .hsave greet greet.txt
    }
  }
}

on *:TEXT:!Greets*:#:{
  if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
    if (!$2) {
      if ($hget(greet,$chan)) {
        .notice $nick Greets are currently off in $+($chan,.)
      }
      else {
        .notice $nick Greets are currently on in $+($chan,.)
      }
    }
    if ($2 == off) { 
      .notice $nick Greets are now off in channel $+($chan,.) 
      .hadd greet $chan on 
      .hsave greet greet.txt 
    }
    elseif ($2 == on) { 
      .notice $nick Greets are now on in channel $+($chan,.) 
      .hdel greet $chan 
      .hsave greet greet.txt
    }
  }
  else { .notice $nick You must be an op to alter this channel's greet settings. | halt }
}

on *:Text:!viewgreet:*:{
  if (!$hget(greet,$nick)) {
    notice $nick No Greet Found, please type !greethelp to get help with greets.
  }
  else {
    notice $nick Your greet is set to $hget(greet,$nick))
  }
} 

on *:TEXT:!Delgreet*:#:{
  if ($hget(greet,$nick)) {
    .hdel greet $nick 
    .notice $nick Your greet has been deleted.
  }
  else { .notice $nick You have no greet set. Type !setgreet greet here to set one. | halt }
}

on *:Join:#:{
  if (($hget(Greet,$chan)) || ($hget(greet,$nick) == off) || ($nick == $me)) {
    Halt
  } 
  if ((!$hget(greet,$nick)) && (!$hget(greet,$chan))) { 
    .notice $nick You have no greet set. To set a greet, type !setgreet greet here.
    halt 
  }
  elseif (($hget(greet,$nick)) && (!$hget(Greet,$chan))) {
    .msg $chan [2 $+ $nick $+ ] $hget(greet,$nick) 
  }
}

on *:TEXT:!setclansite*:#:{
  if ($nick isop $chan) {
    set %clansite $2- 
    .notice $nick Clan Site has been set to $+($2-,)
  }
}

on *:TEXT:!clansite*:#:{
  .notice $nick The Clan Site URL is $+(%clansite,)
}


On $*:Text:/^[!@.]Price */Si:#:{
  if (!$2) {
    notice $nick No item entered.
  }
  else {
    var %x = 1
    while ($sock($+(Price.,%x))) {
      inc %x
    }
    set $+(%,price.target,.,%x) $iif($left($1,1) == @,msg $chan, notice $nick)
    set $+(%,price.search,.,%x) $replace($2-,$chr(32),+)
    sockopen $+(Price,.,%x) www.slushpuppy.silverinterlocution.org 80
  }
}

On *:SockOpen:Price.*:{
  var %id = $right($sockname,-6)
  sockwrite -nt $sockname GET /price.php?price= $+ $eval($+(%,price.search,.,%id),2) HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org $+ $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
  }
  else {
    var %read
    var %matches 
    while (1) {
      sockread %read
      if (!$sockbr) { 
        break
      }
      if (*gp* iswm %read) {
        tokenize 32 %read
        inc %matches  
        var %results = %results $iif(%results,$col1($+($chr(2),$chr(124),$chr(2))),$chr(32)) $col2($deltok($1-,$0,32))
      }
    }

    if (!%matches) {
      %target $col1(No Results found.)
    }

    else { 
      %target $col1(Returning) $col2(%matches) $col1(results:)
      %target $right(%results,-1) 
    }    

    sockclose $sockname
    cleanup %id
  }
}



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

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

alias -l cleanup {
  unset $+(%,Price,.,*,.,$1)
}


on *:TEXT:!kb*:#:{
  if (!$2) { .mode $chan +b $address($nick,2) | .kick $chan $nick $3- }
  else { .mode $chan +b $address($2,2) | kick $chan $2 $3- }
}

on $*:TEXT:/^[!@](TempBan|tb) */Si:#:{
  var %minutes = $calc($3 * 60) 
  if ($nick !isop $chan) { .notice $nick You are not authorized to do that. | halt }
  if ($me !isop $chan) && ($me !ishop $chan) { .notice $nick Sorry $nick $+ , I must be a halfop or op to Temp-ban. | Halt }
  if (!$2) { .notice $nick No Name Given | Halt }
  if (!$3) { .notice $nick No Time Given | Halt }
  if ($2 == $me) || ($2 == %owner) { .notice $nick I'm not going to tempban myself. | Halt }
  elseif ($address($nick,2) == $address($me,2)) || ($nick isop $chan) { .mode $chan +b $address($2,2) | .k $2 $2 Temp Banned for $3 $iif($3 == 1,minute,minutes) by $+($nick,.) $iif($4 != $null,Reason: $4-,No Reason Given) | .notice $2 You have been banned from $chan for $3 Minutes By $+($nick,.) $iif($4 != $null,Reason: $4-,No Reason Given) }
  .timer 1 %minutes { .mode $chan -b $address($2,2) | .notice $2 You have been unbanned from $+($chan,.) }
}


alias -l c1 { return $+($chr(3),01,$1-,$chr(3)) } 
alias -l c2 { return $+($chr(3),10,$1-,$chr(3)) } 
alias -l c3 { return $+($chr(3),02,$1-,$chr(3)) }

on $*:TEXT:/^[!@.]/Si:#: {
  if ($remove($1,!,@,.) == stats) {
    set %stats.style level 
  }
  elseif ($regex($remove($1,!,@,.),/^(def(ault)?|set)(rsn|name)/i)) {
    writeini -n DefRSN.ini RSNs $address($nick,2) $replace($2-,$chr(32),_)
    notice $nick $c1(Your default RSN for the host) $c2($address($nick,2)) $c1(has been set to) $c2($replace($2-,$chr(32),_)) $+ $c1(.)  
    halt
  }
  elseif ($statstrue($remove($1,!,@,.))) && ($remove($1,!,@,.) !isnum) { set %stats.style $+(skill.,$v1) }
  elseif ($regex($remove($1,!,@,.),/^co?mb(at)?|duel/i)) { set %stats.style combat }
  else { halt }
  set %stats.display $iif($left($1,1) == @,msg $chan,notice $nick)
  set %stats.n 0
  if ($2) {
    if (& isin $2-) {
      tokenize 32 $remove($1-,&)
      if ($2 !ison $chan) { notice $nick $c1(The username) $c2($2-) $c1(was not found on the channel.) | unset %stats.* | halt }
      elseif (!$readini(DefRSN.ini,n,RSNs,$address($2,2))) { notice $nick $c1(The username) $c2($2-) $c1(has not set a default RSN.) | unset %stats.* | halt }
      else { set %stats.user $readini(DefRSN.ini,n,RSNs,$address($2,2)) }
    }
    else { set %stats.user $replace($2-,$chr(32),_) }
  }
  else { 
    if ((!$readini(DefRSN.ini,n,RSNs,$address($nick,2))) && (!$2)) { .notice $nick You must specify a username between 3 and 12 characters. This can be omitted if defname is set. | Halt } 
    else { set %stats.user $readini(DefRSN.ini,n,RSNs,$address($nick,2)) }
  }
  sockopen stats hiscore.runescape.com 80
} 

on *:SOCKOPEN:stats: {
  sockwrite -n $sockname GET $+(/hiscorepersonal.ws?user1=,%stats.user) HTTP/1.1
  sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}

on *:SOCKREAD:stats: {
  var %i | sockread %i
  if (*does not feature* iswm %i) {
    %stats.display $c1(The username) $c2(%stats.user) $c1(does not appear in the Runescape Hiscores.)
    unset %stats.* | sockclose stats
  }
  elseif ($statstrue(%i)) { set %stats.skill %i | set %stats.n 1 }
  elseif (%stats.n isnum 3-5) {
    set $+(%,stats.,%stats.skill,.,$statstype(%stats.n)) $gettok($gettok(%i,2,62),1,60)
    if (%stats.n == 5) { set %stats.n 0 }
  }
  elseif (*</table>* iswm %i) {
    if ($left(%stats.style,5) == skill) {
      if ($($+(%,stats.,$gettok(%stats.style,2,46),.exp),2)) {
        var %rank = $($+(%,stats.,$gettok(%stats.style,2,46),.rank),2)
        var %exp = $($+(%,stats.,$gettok(%stats.style,2,46),.exp),2)
        var %level = $($+(%,stats.,$gettok(%stats.style,2,46),.level),2)
        %stats.display $c1($chr(2) $+ [) $+ $c3(%stats.user) $+ $c1(]) $+ $chr(2) $c1($chr(2) $+ [) $c2($statstrue($gettok(%stats.style,2,46))) $c1(]) $+ $chr(2) $&
          $c1(Level:) $c2(%level) $c1($chr(124)) $c1(Rank:) $c2(%rank) $c1($chr(124)) $c1(Exp:) $c2(%exp) $&
          $c1($chr(124)) $c1(Exp until $calc(%level + 1) $+ :) $c2($bytes($calc($statsxp($calc(%level + 1)) - $remove(%exp,$chr(44))),b))
      }
      else {
        %stats.display $c1($chr(2) $+ [) $+ $c3(%stats.user) $+ $c1(]) $+ $chr(2) $c1(User does not appear in the Runescape Hiscores for) $c2($gettok(%stats.style,2,46)) $+ $c1(.)
      }
      unset %stats.* | sockclose stats
    }
    elseif (%stats.style == combat) {
      var %a = $iif(%stats.Attack.level,$v1,1)
      var %d = $iif(%stats.Defence.level,$v1,1)
      var %s = $iif(%stats.Strength.level,$v1,1)
      var %h = $iif(%stats.Hitpoints.level,$v1,10)
      var %r = $iif(%stats.Ranged.level,$v1,1)
      var %p = $iif(%stats.Prayer.level,$v1,1)
      var %m = $iif(%stats.Magic.level,$v1,1)
      {
        var %base = $calc(($calc((%d *100)+(%h *100)) + $iif($isodd(%p),$calc(%p -1) *50,%p *50))/400)
        var %melee = $calc(((%a *130)+(%s *130))/400)
        var %range = $calc($iif($isodd(%r),$calc(((%r -1)+(%r *2))*65),$calc(%r *195))/400)
        var %mage = $calc($iif($isodd(%m),$calc(((%m -1)+(%m *2))*65),$calc(%m *195))/400)
        if (%range >= %mage) && (%range >= %melee) { var %combat = $calc(%range + %base) | var %class = Ranged }
        elseif (%mage >= %range) && (%mage >= %melee) { var %combat = $calc(%mage + %base) | var %class = Magic }
        else { var %combat = $calc(%melee + %base) | var %class = Melee }
      }
      %stats.display $c1($chr(2) $+ [) $+ $c3(%stats.user) $+ $c1(]) $+ $chr(2) $c1(Combat Level is) $c2(%combat) $c1([) $c2($+(%class,-,based Combat)) $c1(])
      %stats.display $c1(Attack:) $c2(%a) $c1($chr(124)) $c1(Defence:) $c2(%d) $c1($chr(124)) $c1(Strength:) $c2(%s) $c1($chr(124)) $c1(Hitpoints:) $c2(%h) $c1($chr(124)) $c1(Ranged:) $c2(%r) $c1($chr(124)) $c1(Prayer:) $c2(%p) $c1($chr(124)) $c1(Magic:) $c2(%m)
      unset %stats.* | sockclose stats
    }
    else {
      var %x = 1
      while (%x <= 17) {
        var %statline = %statline $iif($($+(%,stats.,$statstrue(%x),.level),2),$c1($statstrue(%x) $+ :) $c2($($+(%,stats.,$statstrue(%x),.,%stats.style),2)) $c1($chr(124)) $&,$null)
        inc %x
      }
      while (%x > 17) && (%x < 24) {
        var %statline2 = %statline2 $iif($($+(%,stats.,$statstrue(%x),.level),2),$c1($statstrue(%x) $+ :) $c2($($+(%,stats.,$statstrue(%x),.,%stats.style),2)) $c1($chr(124)) $&,$null)
        inc %x
      }

      %stats.display $c1($chr(2) $+ [) $+ $c3(%stats.user) $+ $c1(]) $+ $chr(2) $c1(Overall:) $iif(%stats.Overall.level,$c2($($+(%,stats.Overall.,%stats.style),2)),$c2(-)) $c1($chr(124)) $&
        $replace(%statline,Attack,Att,Defence,Def,Strength,Str,Hitpoints,HP,Ranged,Range,Prayer,Pray,Magic,Mage,Cooking,Cook,Woodcutting,Woodcut,Fletching,Fletch,Fishing,Fish,Firemaking,FM,Crafting,Craft,Smithing,Smith,Herblore,Herb,Agility,Agil,Thieving,Thief,Slayer,Slay,Farming,Farm,Runecraft,Rc,Hunter,Hunt,Construction,Con) 
      %stats.display $replace(%statline2,Attack,Att,Defence,Def,Strength,Str,Hitpoints,HP,Ranged,Range,Prayer,Pray,Magic,Mage,Cooking,Cook,Woodcutting,Woodcut,Fletching,Fletch,Fishing,Fish,Firemaking,FM,Crafting,Craft,Smithing,Smith,Herblore,Herb,Agility,Agil,Thieving,Thief,Slayer,Slay,Farming,Farm,Runecraft,Rc,Hunter,Hunt,Construction,Con) | unset %stats.* | sockclose stats
    }
  }
  if (%stats.n isnum 1-5) { inc %stats.n }
}

alias statstype {
  if ($1 == 3) { return rank }
  elseif ($1 == 4) { return level }
  else { return exp }
}

alias -l statstrue { 
  if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall 
  elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)?$/Si)) return Attack
  elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
  elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
  elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
  elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
  elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
  elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
  elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking 
  elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting 
  elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching 
  elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing 
  elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking 
  elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting 
  elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing 
  elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining 
  elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore 
  elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility 
  elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving 
  elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer 
  elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming 
  elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft 
  elseif ($1 == 22) || ($regex($1,/^(construct)(ion|ing)?$/si)) return Construction 
  elseif ($1 == 23) || ($regex($1,/^(hunt)(er|ing)?$/si)) return Hunter
}

alias statsxp {
  var %x = 1, %level = $calc($1 - 1), %xp = 0
  while (%x <= %level) {
    var %TempXp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
    inc %xp %TempXp
    inc %x
  }
  return $int(%xp)
}

alias isodd { if (. isin $calc($1 /2)) { return true } | else { return false } } 

-------------------------------------------------------------------------------------------




------------------------------------------------------------------------------------------


on *:TEXT:!mute*:#:{  
  if ($address($nick,2) != $address($me,2)) { .notice $nick You are not authorized to do that. | halt }
  else { .mode $chan -qaohvee $2 $2 $2 $2 $2 $address($2,2) | .mode $chan +b ~q: $+ $address($2,2) }
}

on *:TEXT:!unmute*:#:{ 
  if ($address($nick,2) != $address($me,2)) { .notice $nick I'm the juggernaut bitch! | halt }
  else { .mode $chan -b ~q: $+ $address($2,2) }
}
--------------------------------------------------------------------------------------------


on *:Join:#:{
  If ($nick == Kevinneke864) {
    .msg $chan 11,14<12>11<12>11<12>11<12>0 OMG ITS MY 1337 OWNER! 11<12>11<12>11<12>11<12>
  }
}


--------------------------------------------------------------------------------------------

on $*:TEXT:/^[!]timebomb */Si:#:{
  if ($nick !isop $chan) && ($nick !ishop $chan) { .notice $nick You must be halfop or op to timebomb. | halt }
  if ($2 !ison $chan) { .notice $nick [2Time Bomb]: person MUST be on $+($chan,.) | halt }
  if ($2 == $me) { .msg $chan [2Time Bomb]: Choose a person OTHER than me please. | halt }
  if (%timebomb.nick ison $chan) { .describe $chan Points to the bulge in the front of %timebomb.nick $+ 's pants. | halt }
  elseif ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) { timebomb $chan $2 }
}

alias timebomb {
  set %timebomb 1
  set %timebomb.nick $2
  set %timebomb.address $address($2,2)
  set %tbrunaway. $2
  set %timebomb.chan $1
  set %timebomb.time $rand(20,60)
  set %timebomb.w. $rand(2,15)
  if (%timebomb.w. == 2) { .set %timebomb.w Red, Blue }
  if (%timebomb.w. == 3) { .set %timebomb.w Red, Blue, Green }
  if (%timebomb.w. == 4) { .set %timebomb.w Red, Blue, Green, White }
  if (%timebomb.w. == 5) { .set %timebomb.w Red, Blue, Green, White, Black }
  if (%timebomb.w. == 6) { .set %timebomb.w Red, Blue, Green, White, Black, Purple }
  if (%timebomb.w. == 7) { .set %timebomb.w Red, Blue, Green, White, Black, Purple, Orange }
  if (%timebomb.w. == 8) { .set %timebomb.w Red, Blue, Green, White, Black, Purple, Orange, Turquoise }
  if (%timebomb.w. == 9) { .set %timebomb.w Red, Blue, Green, White, Black, Purple, Orange, Turquoise, Yellow }
  if (%timebomb.w. == 10) { .set %timebomb.w Red, Blue, Green, White, Black, Purple, Orange, Turquoise, Yellow, Brown }
  if (%timebomb.w. == 11) { .set %timebomb.w Red, Blue, Green, White, Black, Purple, Orange, Turquoise, Yellow, Brown, Lime }  
  if (%timebomb.w. == 12) { .set %timebomb.w Red, Blue, Green, White, Black, Purple, Orange, Turquoise, Yellow, Brown, Lime, Pink }
  if (%timebomb.w. == 13) { .set %timebomb.w Red, Blue, Green, White, Black, Purple, Orange, Turquoise, Yellow, Brown, Lime, Pink, Gray } 
  if (%timebomb.w. == 14) { .set %timebomb.w Red, Blue, Green, White, Black, Purple, Orange, Turquoise, Yellow, Brown, Lime, Pink, Gray, Silver }
  if (%timebomb.w. == 15) { .set %timebomb.w Red, Blue, Green, White, Black, Purple, Orange, Turquoise, Yellow, Brown, Lime, Pink, Gray, Silver, Gold }
  while (%timebomb.w2 !isin %timebomb.w) {
    set %timebomb.w2 $rand(1,15)
    set %timebomb.w2 $replace(%timebomb.w2,1,Red,2,Blue,3,Green,4,White,5,Black,6,Purple,7,Orange,8,Turquoise,9,Yellow,10,Brown,11,Lime,12,Pink,13,Gray,14,Silver,15,Gold)
  }
  echo -a *** Correct wire is %timebomb.w2
  notice %owner Correct wire is %timebomb.w2 in %timebomb.chan
  describe $chan stuffs a Time Bomb down %timebomb.nick $+ 's Pants.  The display reads %timebomb.time seconds.
  msg $chan %timebomb.nick $+ : You have the choice of %timebomb.w. wires ( $+ %timebomb.w $+ ) 
  msg $chan use !cutwire (color) to cut one!
  .enable #bombon
  .timerbombhalf 1 $calc(%timebomb.time / 2) msg %timebomb.chan Hurry %timebomb.nick $+ ! You only have $calc(%timebomb.time / 2) seconds left!
  .timerbomb 1 %timebomb.time /tblose
}

#bombon off
on $*:TEXT:/^[!]cutwire */Si:%timebomb.chan:{
  if ($address($nick,2) == %timebomb.address) {
    if (($findtok($remove(%timebomb.w,$chr(32)),$2,1,44)) && ($2 == %timebomb.w2)) {
      msg $chan $nick has cut the $2 wire.
      msg $chan 3 $+ $nick has successfully diffused the Bomb!
      msg $chan Congratulations $nick $+ , you don't get to die today.
      .timerbombhalf off
      .timerbomb off
      .disable #bombon
      .unset %timebomb* %tbrunaway.
    }
    elseif (!$findtok($remove(%timebomb.w,$chr(32)),$2,1,44)) {
      msg $chan Retard! there are no $2 wires! Choices are %timebomb.w $+ !
    }
    else {
      msg $chan $nick has cut the $2 wire. 
      msg $chan The Bomb has 4 EXPLODED!
      if ($me isop $chan) { .mode $chan +b $address(%timebomb.nick,2) }
      if ($me isop $chan) || ($me ishop $chan) { .kick $chan $nick 4*BOOM*3 }
      notice %timebomb.nick the correct wire was %timebomb.w2 
      .timerbombhalf off
      .timerbomb off
      .disable #bombon
      .unset %timebomb* %tbrunaway. 
    }
  }
}
#bombon end

alias tblose {
  .disable #bombon
  .unset %tbrunaway.
  msg %timebomb.chan %timebomb.nick has failed to defuse the bomb, and it has 4DETONATED!
  if ($me isop %timebomb.chan) { .mode %timebomb.chan +b $address(%timebomb.nick,2) }
  if ($me isop %timebomb.chan) || ($me ishop %timebomb.chan) { .kick %timebomb.chan %timebomb.nick 4*BOOM*3 }
  notice %timebomb.nick the correct wire was %timebomb.w2 
  .unset %timebomb*
}


--------------------------------------------------------------------------------------------

on $*:text:/^[!]except */Si:#:{
  if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) { 
    if (!$2) { .mode $chan +ee $nick $address($nick,2) }
    else { .mode $chan +ee $2 $address($2,2) }  
  }
} 


on $*:TEXT:/^[!]deexcept */Si:#:{ 
  if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) { 
    if (!$2) { .mode $chan -ee $nick $address($nick,2) }
    else { .mode $chan -ee $2 $address($2,2) } 
  }
}

--------------------------------------------------------------------------------------------
on $*:TEXT:/^[!](mode|setmode) */Si:#:{
  if ($me !isop $chan) && ($me !ishop $chan) { .notice $nick Sorry $nick $+ , I must be op or halfop to set the mode. | Halt }
  if (!$2) { .notice $nick You must specify a mode to set. | Halt }
  if ((q isin $2) || (a isin $2)) && ($address($nick,2) !=  $address($me,2)) { .notice $nick Sorry, you are not authorized to do that. | Halt }
  elseif ($nick isop $chan) || (($nick ishop $chan) && (o !isin $2)) || ($address($nick,2) == $address($me,2)) { .mode $chan $2- }
}



on $*:TEXT:/^[!](fgt-meter|gaymeter) */Si:#:{
  if ($2 == $me) { .describe $chan ran some gay-ness tests on $me $+ , and came up with these results:
    .msg $chan 8,0¤0,8¤9,8¤8,9¤13,9¤9,13¤1,13¤13,1¤9,14 $me is 0 $+ % gay. 13,1¤1,13¤9,13¤13,9¤8,9¤9,8¤0,8¤8,0¤ 
  .msg $chan 9,1STRAIGHT!! | halt }

  if (($2- == Michael Jackson) || ($2 == Michael_Jackson)) {
    .describe $chan says: WOW! MJ!? I don't even need to run tests on him, here : 
    .msg $chan 8,1`°*¤%7,8%8,7%8,4%7,4%¤1,4 Michael Jackson is 100% gay. 7,4¤%8,4%8,7%7,8%8,1%¤*°`
  .msg $chan 9,1TOTAL FAG! | halt }





  if (!$2) { 
    .describe $chan ran some gay-ness tests on $nick $+ , and came up with these results:
    .msg $chan 11,14<12,14>11,14<12,14>11,14<12,14>0,14 $nick is $rand(1,100) $+ % gay. 11,14<12,14>11,14<12,14>11,14<12,14>  

  }


  else { 
    var %number = $calc($len($2-) - 1)
    var %target = $upper($left($2-,1)) $+ $right($2-,%number)

    .describe $chan ran some gay-ness tests on %target $+ , and came up with these results:
    .msg $chan 13,1 $+ 8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o %target is $rand(0,100) $+ % gay. o1,12¤8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o
  }
}

on $*:TEXT:/^[!@]calc */Si:#:{
  $iif($left($1-,1) == @,.msg $chan,.notice $nick) 1[2Calculator1] $2- = $bytes($calc($remove($replace($2-,k,*1000,m,*1000000,b,*1000000000,x,*,pi,3.141592)$2-,$chr(44),$chr(32))) ,bd) 
}

-----------------------------------------------------------------------------------------------


on $*:TEXT:/^[!]cya */Si:#:{  
  if ($2 != $me) || (!$2) { .notice $nick To avoid confusion, type !cya $me to make me leave. | halt }
  if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) || ($nick == remy) { .part $chan Requested by $+($nick,.) $iif($3 != $null,Reason: $3-,No Reason Given) }
  else { halt }
}
 
----------------------------------------------------------------------------------------


on $*:TEXT:/^[!@](gratz|grats) */Si:#:{
  if ($2 isnum) { .msg $chan $gratz(Gratz on level $2 $+($3,$chr(44)) $+($nick,!) WOOT!) }
  if ($3 isnum) { .msg $chan $gratz(Gratz on level $3 $+($2,$chr(44)) $+($nick,!) WOOT!) }
  if ($2 !isnum) && ($3 !isnum) { .msg $chan $gratz(Gratz on your $2 level, $+($nick,!) WOOT!) }
}



alias gratz {
  var %gratzrand = $rand(1,4)
  if (%gratzrand == 1) { return 8,0¤0,8¤9,8¤8,9¤13,9¤9,13¤1,13¤13,1¤9,1 $1- 13,1¤1,13¤9,13¤13,9¤8,9¤9,8¤0,8¤8,0¤ }
  if (%gratzrand == 2) { return 11,14<12>11<12>11<12>11<12>0 $1- 11<12>11<12>11<12>11<12> }
  if (%gratzrand == 3) { return 4»0,4»5»4,5»1»5,1»0 $1- 5,1«1,5«4«5,4«0«4,0« }
  if (%gratzrand == 4) { return 8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o $1- o1,12¤8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o }
}

-------------------------------------------------------------------------------------


on *:TEXT:!av*:#:{
  if ($address($nick,2) != $address($me,2)) { .notice $nick You are not authorized to do that. | Halt }
  if (!$2) { .notice $nick You need to tell me who to autovoice | HALT }
  elseif ($2) { 
    .writeini av.ini avoice $address($2,2) autovoiced 
    .notice $nick $2 Has been added to the $chan Autovoice list. 
  }
}

on *:Join:#:{
  if ($readini(av.ini,np,avoice,$address($nick,2)) == autovoiced) { 
    .mode $chan +v $nick 
  }
}

--------------------------------------------------------------------------------------

on *:TEXT:!setpcw*:#:{ 
  if (($nick isop $chan) || ($nick ishop $chan)) { 
    set %pcw $2- 
    describe $chan return 8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o $1- o1,12¤8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o The pcw has been set, plz type !pcw to see it! 
  } 
} 
on *:TEXT:!pcw:#:{ 
  if %pcw { 
    notice $nick return 8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o $1- o1,12¤8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o The pestcontrol world is ~~ %pcw ~~ and the suggest world is ~~ %suggest ~~ 
  } 
} 
on *:TEXT:!suggest*:#: { 
  set %suggest $2- { 
    describe $chan return 8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o $1- o1,12¤8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o $nick has suggested a world, please type !pcw to see it! 
  } 
} 
on *:TEXT:!delpcw*:#:{ 
  if (($nick isop $chan) || ($nick ishop $chan)) { 
    unset %pcw 
    unset %suggest 
    Notice $chan return 8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o $1- o1,12¤8,12o1,12¤8,12o1,12¤8,12o1,12¤8,12o The pcw has been deleted 
  } 
} 
on $*:TEXT:/^[!@.]s(et)?pc-?l(ist)?/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) { 
    if ($2 !isnum || !$3) { notice $nick You must supply a number in this fashion: $1 <number> <rsn> } 
    if ($2 != 1 && !$readini(Pcl.ini,-n,$chan,$calc( $2 - 1 ))) { notice $nick You have not yet supplied the $calc( $2 - 1 ) person in the list } 
    else { 
      writeini Pcl.ini $chan $2 $3 
      notice $nick $3 has been added as number $2 on the PC list 
    } 
  } 
} 
on $*:TEXT:/^[!@.]pc-?l(ist)?/Si:#:{ 
  if (!$readini(Pcl.ini,-n,$chan,1)) { notice $nick No list has been made } 
  else { 
    var %x = 1 
    while ($readini(Pcl.ini,-n,$chan,%x)) { 
      msg $nick %x $+ . $readini(Pcl.ini,-n,$chan,%x) 
      inc %x 
    } 
  } 
}

-------------------------------------------------------------------------------------

on *:TEXT:hello:#:{ msg $chan Hi $nick }
on *:JOIN:#:{
  notice $nick Hello $nick welcome to $chan !
  notice $nick Make sure you enjoy your visit!
  notice $nick Pls Type /mode <nick> -f to see our CLANSITE
}

------------------------------------------------------------------------------------

on *:TEXT:!away*:#: { 
  if ($2 == $null) { msg $chan $chr(3) $+ 07 $+  $nick $chr(3) $+ 14 $+ please submit an away message } 
  else {  
    /set %away [ $+ [ $nick ] ] $2- 
    msg $chan $chr(3) $+ 07 $+ $nick $chr(3) $+ 14 $+ is now away for the following reasons: $chr(3) $+ 07 $+  %away [ $+ [ $nick ] ] 
  } 
} 
on *:TEXT:!back:#: { 
  if (%away [ $+ [ $nick ] ] == $null) { msg $chan $chr(3) $+ 07 $+  $nick $chr(3) $+ 14 $+ you havn't been marked as away yet! } 
  else { 
    msg $chan $chr(3) $+ 07 $+ $nick $chr(3) $+ 14 $+ is now back from: $chr(3) $+ 07 $+  %away [ $+ [ $nick ] ] 
  } 
} 

------------------------------------------------------------------------------------------

on *:OP:#: { 
  if ($opnick == $me) { 
    inc %op 
    msg $chan Thanks So Much!!for the Op $nick Do You Have A Partyhat You Own That Bad I Bet You Got One $+ . I've been opped %op times 
  } 
} 


on *:HELP:#: { 
  if ($hnick == $me) { 
    inc %halfop 
    msg $chan  8Thanks for the Halfop You Own You Know That? 14But not as much as me  $nick $+ . 8 I've been halfopped %halfop times 
  } 
} 

on *:DEVOICE:#: { 
  if ($vnick == $me) { 
    inc %devoice 
    msg $chan 11Gimme Me Back My Voice.. Or I'll Get My Owner  $nick $+ !! I've been devoiced %devoice times 
  } 
} 

---------------------------------------------------------------------------------



-------------------------------------------------------------------------------------

on *:sockopen:google: { 
  if ($sockerr) { msg $nick error: connecting failed ... } 
  else { 
    sockwrite -n $sockname GET $+(/search?btnI=&q=,$replace($hget(google,search),$chr(32),%)) HTTP/1.1 
    sockwrite -n $sockname Host: www.google.ch 
    sockwrite -n $sockname $crlf 
  } 
} 
on *:sockread:google: { 
  sockread %data 
  if ($gettok(%data,1,32) == location:) { 
    msg %chan %nick google: found for $+(",$hget(google,search),") $gettok(%data,2,32)
    sockclose $sockname 
    hdel google search 
  } 
  elseif (*We couldent find anything -*- .* iswm %data) { 
    msg %chan %nick google: nothing found for $+(",$hget(google,search),") 
    sockclose $sockname 
    hdel google search 
  } 
} 
on 1:text:!google*:#:{ 
  if ($2) {
    set %channel $chan 
    set %nick $nick
    hadd -m google search $2-
    if ($sock(google)) { sockclose google } 
    sockopen google google.ch 80 
  } 
}

------------------------------------------------------------------------------------------

on *:QUIT: { 
  if ($network isin $1-) && (*.*.*.* iswm $1-) && (Quit: !isin $1) && (Killed !isin $1-) { 
    if (%netsplit == yes) { halt } 
    [-Netsplit Alert-] $gettok($1,1,42) and $gettok($2,1,42) $+ at time $time $+ .
    timersplit 0 15 /set %netsplit no 
  } 
}
-----------------------------------------------------------------------------------------

on *:TEXT:!whois*:#: { 
  if ($nick isop $chan || $nick ishop $chan) { 
    if ($2 == on) { 
      if (%whois [ $+ [ $chan ] ] != on) { 
        set %whois [ $+ [ $chan ] ] on 
        msg $chan Whois on join has been enabled for $chan by $nick $+ . 
      } 
      else { 
        notice $nick Whois on join is already on for $chan $+ . | halt 
      } 
    } 
    elseif ($2 == off) { 
      if (%whois [ $+ [ $chan ] ] == on) { 
        set %whois  [ $+ [ $chan ] ] off 
        msg $chan Whois on join has been disabled for $chan by $nick $+ . 
      } 
      else { 
        notice $nick Whois on join is allready off for $chan $+ . 
      } 
    } 
  } 
} 
on *:JOIN:#: { 
  if (%whois [ $+ [ $chan ] ] == on) { 
    set %whoisnick $nick 
    set %whoischan $chan 
    whois $nick 
  } 
  else { 
    halt 
  } 
} 
raw *:*: { 
  if (%whoisnick && %whoischan) { 
    if ($numeric == 319) { 
      msg %whoischan %whoisnick is currently on: $3- 
      unset %whoisnick 
      unset %whoischan 
    } 
  } 
  else { 
    halt 
  } 
}