Mine

exp { 
  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 
  } 
  if ($1 > 127) { return $1 } 
  else { return $int(%xp) } 
} 

on *:TEXT:!level *:#:{ 
  if (%level.timer != $null) && ($network == SwiftIRC) { 
    notice $nick Try Again In A Minute. 
    halt 
  } 
  if (%level.timer == $null) && ($network == SwiftIRC) { 
    set %level.timer hai 
    timer60 1 15 /unset %level.timer 
  } 
  set %level.chan $chan 
  set %current $ docalc($2) 
  set %next $calc($2 + 1) 
  set %nextexp $exp(%next) 
  set %diff $calc(%nextexp - %current) 
  msg $chan Way To Go d00d on getting $2 $3 $+ . About $bytes(%diff,b) $+ xp Until Level %next $3 
  unset %current 
  unset %next 
  unset %nextexp 
  unset %diff 
} 

alias chanscript { 
  set %topic $strip($chan(#).topic,c) 
  set %topic $replace(%topic,',<b>',C,<b>C,,</b>,,<u>) 
  set %users $nick(#,0) 
  write -c site.txt Current Info about our irc channel $1 on $network 
  write site.txt Last Updated: $asctime(mm/dd/yyyy) at $asctime(hh:nntt) EST 
  write site.txt Current Topic: %topic 
  write site.txt Total Users: %users 
  set %a 1 
  set %users $calc(%users + 1) 
  while (%a < %users) { 
    write site.txt $nick(#,%a).pnick $+ $crlf 
    inc %a 1 
  } 
} 

on *:TEXT:!pk*:#:{ 
 if ($len($2-) >= 12) { msg $chan  $+ $rand(1,15) $+ ,00Choose a username shorter then 12 characters!  | halt } 
 if ($len($2-) <= 12) { msg $chan  $+ $rand(1,15) $+ ,00Well Bite Me, Chew Me, Spit Me Out, Pick Me Up And Bite Me Again, You Pk'd a ch00b named $2- $+ ...Dont You Just Feel So Fucking Special Now $nick $+ ? } 
}
on *:TEXT:!bs*:#:{
    set %bspercent $rand(0,100) | if (%bspercent <= 30) { msg $chan I have Determined That The Statement $2-  contains %bspercent $+ % Bullshit (very little Bullshit) } 
    elseif (%bspercent > 30 <= 59) { msg $chan I have Determined That The Statement $2- Contains %bspercent $+ % Bullshit (Moderate Percentage of Bullshit) } 
    elseif (%bspercent > 60 <= 89) { msg $chan I have Determined That The Statement $2- Contains %bspercent $+ % Bullshit (Large Content of Bullshit) } 
    elseif (%bspercent > 90 <= 99) { msg $chan I have Determined That The Statement $2- Contains %bspercent $+ % Bullshit (Almost Full of Bullshit) } 
    elseif (%bspercent == 100) { msg $chan I Have Determined That The Statement $2- Contains %bspercent $+ % Bullshit (Full of Bullshit!!!) } 
  } 


on *:TEXT:!leet*:#:{ msg $chan $replacecs($2-,a,4,A,4,e,3,E,3,L,|,l,|,I,1,i,1,f,ph,F,ph,s,5,S,5,you,j00,YOU,j00,o,0,O,0,t,7) } 
on *:TEXT:!|337*:#:{ msg $chan $replacecs($2-,4,a,4,A,3,e,3,E,|,L,|,l,1,i,1,I,ph,f,ph,F,5,s,5,S,j00,you,j00,YOU,0,o,0,O,7,t) } 

on $*:TEXT:/^(brb|bbs|bbl|afk|bbiab)/Si:#:{  
  set %brb. $+ $address $+ . $+ $chan True
  set %awaytime. $+ $address $+ . $+ $chan $ctime
  set %awayreason. $+ $address $+ . $+ $chan $1-
}
 
on 1:TEXT:*:*:{
  if (%brb. [ $+ [ $address ] $+ ] . [ $+ [ $chan ] ] == True) { 
    msg $chan 4 $+ $nick 2Is back from:1 %awayreason. [ $+ [ $address ] $+ ] . [ $+ [ $chan ] ] 2(Time Away: $duration($calc($ctime - %awaytime. [ $+ [ $address ] $+ ] . [ $+ [ $chan ] ] )) $+ ) 
    unset %brb. $+ $address $+ . $+ $chan
    unset %awaytime. $+ $address $+ . $+ $chan
    unset %awayreason. $+ $address $+ . $+ $chan
}
}
on *:TEXT:!change *:#:{ 
  if ( $nick isvoice # ) notice $nick You cannot change the world! 
  if ( $nick isreg # ) notice $nick You cannot change the world! 
  if ( $nick ishop # ) notice $nick You cannot change the world! 
  if ( $nick isop # ) set %pctime $ctime 
  if ( $nick isop # ) set %pcnick $nick 
  if ( $nick isop # ) set %pcworld $2- 
  if ( $nick isop # ) amsg |'|'|'|'|'|PC World is changed to %pcworld by %pcnick |'|'|'|'|'| 
} 

on *:TEXT:!world:#:{ 
  notice $nick Current PC World: %pcworld --Last Update: $+($duration($calc($ctime - %pctime)),) ago 
  notice $nick This world was set by: %pcnick 
} 

on *:TEXT:@world:#:{ 
  if ( $nick isop # ) msg $chan Current PC World: %pcworld --Last Update: $+($duration($calc($ctime - %pctime)),) ago 
  if ( $nick isop # ) msg $chan This world was set by: %pcnick 
} 
on *:TEXT:!shoot*:#:{ 
  set %snipetarget $iif(!$2,$nick($chan,$rand(1,$nick($chan,0))),$2) 
  set %snipetype $rand(1,12) 
  describe $chan picks up his sniper rifle. 
  .timer 1 1 describe $chan aims at his target, %snipetarget $+ . 
  .timer 1 2 describe $chan lines up a clear shot on %snipetarget $+ . 
  .timer 1 3 describe $chan pulls the trigger. 
  if (%snipetype == 1) { .timer 1 3 describe $chan BOOM! "HEAD SHOT!!" } 
  if (%snipetype == 2) { .timer 1 3 describe $chan BOOM! "NECK SHOT!" } 
  if (%snipetype == 3) { .timer 1 3 describe $chan BOOM! "CHEST SHOT!" } 
  if (%snipetype == 4) { .timer 1 3 describe $chan BOOM! "SHOULDER SHOT!" } 
  if (%snipetype == 5) { .timer 1 3 describe $chan BOOM! "CHEST SHOT!" } 
  if (%snipetype == 6) { .timer 1 3 describe $chan BOOM! "STOMACH SHOT!" } 
  if (%snipetype == 7) { .timer 1 3 describe $chan BOOM! "ARM SHOT!" } 
  if (%snipetype == 8) { .timer 1 3 describe $chan BOOM! "BUTT SHOT!" } 
  if (%snipetype == 9) { .timer 1 3 describe $chan BOOM! "LEG SHOT!" } 
  if (%snipetype == 10) { .timer 1 3 describe $chan BOOM! "HAND SHOT!" } 
  if (%snipetype == 11) { .timer 1 3 describe $chan BOOM! "FOOT SHOT!" } 
  if (%snipetype == 12) { .timer 1 3 describe $chan BOOM! "MISSED SHOT!!" } 
  unset %snipetype 
  unset %snipetarget 
ON $*:TEXT:/^[!@.](cash|price(check)?|gold|prise)/Si:#:{ 
  if ($2 == $null) { notice $nick Sorry $nick You Have To Specify An Item. Example: $right($1,1) $+ Rune Scim } 
  else { 
    inc %p 
    set $+(%,price.item.,%p) $replace($2-,$chr(32),$chr(37) $+ 20) 
    set $+(%,price.style.,%p) $iif($left($1,1) == @,msg $chan,notice $nick)  
    sockopen $+(price.,%p) zybez.net 80 
  } 
} 
on *:SOCKOPEN:price.*:{ 
  var %id = $gettok($sockname,2,46) 
  sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ $($+(%,price.item.,%p),2) $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1 
  sockwrite -nt $sockname Host: www.zybez.net 
  sockwrite -nt $sockname $+($crlf,$crlf) 
} 
on *:SOCKREAD:price.*:{ 
  inc %pcount 
  var %id = $gettok($sockname,2,46) 
  var %style = $($+(%,price.style.,%p),2) ,  $& 
    %item = $replace($($+(%,price.item.,%p),2),$chr(37) $+ 20,$chr(32)) 
  if ($sockerr) { 
    %style An error occured while connecting 
    unset $+(%,price.*) 
    sockclose $+(price.,%p) 
  } 
  else { 
    var %price 
    sockread %price 

    if (*">Viewing * of * Results</td>* iswm %price) { 
      tokenize 32 $nohtml(%price) 
      set $+(%,price.results.,%p) $2 
      if ($($+(%,price.results.,%p),2) == 0) %style Results Found: $($+(%,price.results.,%p),2) Showing Results: 0 
      elseif ($($+(%,price.results.,%p),2) < 5) %style Results Found: $($+(%,price.results.,%p),2) Showing Results: $($+(%,price.results.,%p),2)      
      else %style Results Found: $($+(%,price.results.,%p),2) Showing Results: 5 
    } 
    if (*<td class="tablebottom" colspan="5">Your search did not return any results. Please make sure your spelling is correct and that you are typing full words.</td>* iswm %price) { 
      %style Sorry $nick No Results Were Found For: $qt(%item) 
      unset $+(%,price.*.,%p) 
      sockclose $+(price.,%p) 
    } 
    if (*<td class='tablebottom'><img src="/img/member.gif" alt="*"/></td>* iswm %price) { 
      tokenize 32 $nohtml(%price) 
      set $+(%,price.members.,%p) Yes 
    }    
    if (*<td class="tablebottom">&nbsp;</td>* iswm %price) { 
      tokenize 32 $nohtml(%price) 
      set $+(%,price.members.,%p) No 
    } 
    if (*<!--name--><td class='tablebottom'>*</td>* iswm %price) { 
      tokenize 32 $nohtml(%price) 
      set $+(%,price.name.,%p) $1- 
    } 
    if (*<!--price--><td class="tablebottom">*</td>* iswm %price) { 
      tokenize 32 $nohtml(%price) 
      set $+(%,price.low.,%p) $1 
      set $+(%,price.high.,%p) $3 
    } 
    if (*<td class="tablebottom"><a href="/priceguide.php?category=*">*</a></td>* iswm %price) { 
      tokenize 32 $nohtml(%price) 
      set $+(%,price.catergory.,%p) $replace($1-,&quot;,",&amp;,&) 
      inc $+(%,price.times.,%p) 
      if ($($+(%,price.times.,%p),2) > 5 && !$($+(%,price.stop.,%p),2)) { 
        %style Max Results Of: 5 Allowed. Try Making Your Search For: $qt(%item) More Specific. 
        unset $+(%,price.*.,%p) 
        set $+(%,price.stop.,%p) true 
        sockclose $+(price.,%p) 
      } 
      elseif ($($+(%,price.times.,%p),2) <= 5) { 
        %style Members: $($+(%,price.members.,%p),2) $& 
          Item: $($+(%,price.name.,%p),2) $& 
          Price High: $($+(%,price.high.,%p),2) Price Low: $($+(%,price.low.,%p),2) $& 
          Category: $($+(%,price.catergory.,%p),2) $& Prices Checked: %pcount 
        sockclose $sockname 
     on $*:text:/^[!@.]clan/Si:#:{ 
  set %clan.user $replace($2-,$chr(32),+) 
  set %clan.out $iif($left($1,1) == @,msg $chan,notice $nick) 
  sockopen clan parsers.o-ss.net 80 
} 
ON *:SOCKOPEN:clan:{ 
  sockwrite -nt $sockname GET /oneline/clans.php?user= $+ %clan.user HTTP/1.1 
  sockwrite -nt $sockname Host: parsers.o-ss.net $+ $+($crlf,$crlf) 
} 
on *:SOCKREAD:clan:{ 
  if ($sockerr) { 
    echo -a Error in clan lookup 
    sockclose $sockname 
    halt 
  } 
  else { 
    var %clan.read 
    sockread %clan.read 
    if (*end* iswm %clan.read ) { 
%clan.out %clan.user Is In Clans: - $remove(%read,end) 
      sockclose $sockname 
      unset %clan.user 
      unset %clan.out 
    } 
  } 
} 
on $*:TEXT:/!greet*/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) { 
    if (!$2) { 
      if (%greetchan [ $+ [ $chan ] ] == $null) { 
        set %greetchan [ $+ [ $chan ] ] on 
        notice $nick Greetings are now on. 
      } 
      else { 
        notice $nick $c1(Greetings are now %greetchan [ $+ [ $chan ] ] $+ ). 
      } 
    } 
    if ($2 == off) { 
      set %greetchan [ $+ [ $chan ] ] off 
      notice $nick $c1(Greetings are now off). 
    } 
    if ($2 == on) { 
      set %greetchan [ $+ [ $chan ] ] on 
      notice $nick $c1(Greetings are now on.) 
    } 
  } 
} 

on *:TEXT:!setgreet*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) { 
    if (%greetchan [ $+ [ $chan ] ] == on) { 
      set %greet [ $+ [ $nick ] ] $2- 
      notice $nick $c1(Your greet has been changed to:) $c2($2-) 
    } 
    else { notice $nick $c1(greets have been disabled!) } 
  } 
} 
on *:TEXT:!mygreet*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) { 
    if (%greetchan [ $+ [ $chan ] ] == on) { 
      notice $nick $c2(%greet [ $+ [ $nick ] ]) 
    } 
    else { notice $nick $c1(greets have been disabled!) } 
  } 
} 
on *:TEXT:!delgreet*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) { 
    if (%greetchan [ $+ [ $chan ] ] == on) { 
      unset %greet [ $+ [ $nick ] ] 
      notice $nick $c1(Your greet has been deleted!) 
    } 
    else { notice $nick $c1(greets have been disabled!) } 
  } 
} 
on *:join:#:{ 
  if (%greetchan [ $+ [ $chan ] ] == on) { 
    if (%greet [ $+ [ $nick ] ] != $null) { 
      notice $nick $c2(%greet [ $+ [ $nick ] ]) 
    } 
    else { notice $nick $c1(You do not have a greet set, type) $c2(!setgreet greet) $c1(to set a greet!) } 
  } 
}