Alias file dump.

REM - Note: Any passwords I still use have been removed from this file, so don't even try it. Older passwords may remain, but they're not used any more, so they're useless to you. Just sayin'.

/op /mode # +oooooooooooo $$1-
/deop /mode # -oooooooooooo $$1-
/v /mode # +vvvvvvvvvvvv $$1-
/dev /mode # -vvvvvvvvvvvv $$1-
/j /join #$$1 $2-
;p parth # You pneed atleast $calc($nick(#,0) + 1) users to keep me here
p part # Have a nice day.
n notice $$1 $$2-
/w /whois $$1
/ver ctcp $iif($1,$v1,$me) version
+e /mode # +eI $address($me,3) $address($me,3)
-e /mode # -eI $address($me,3) $address($me,3)

surl {
  if (($dde(opera,WWW_GetWindowInfo)) || ($dde(firefox,WWW_GetWindowInfo)) || ($dde(netscape6,WWW_GetWindowInfo)) || ($dde(iexplore,WWW_GetWindowInfo,1)) || ($dde(chrome,WWW_GetWindowInfo,1))) && ($regex(url,$v1,/^"([^"]+)"\x2C"([^"]*)"(?:\x2C".*")?$/)) { say $c1(Currently browsing) $c2($regml(url,1)) $+($c1($chr(40)),$c2($iif($regml(url,2),$v1)),$c1($chr(41))) }
  else { echo -ta You are not viewing an internet page. }
}


F2 massv
sockreader sockread $$1
cF2 massdv
blah { unset %chrstring |  var %num = $1 | while (%num) { %chrstring = %chrstring $+  $chr($r(1,255)) | dec %num } | return $iif($prop == u,$upper($remove(%chrstring,$cr,$lf)),$iif($prop == l,$lower($remove(%chrstring,$cr,$lf)),$remove(%chrstring,$cr,$lf))) }
lchrs { window -nk(0) @Chrs | var %x = 1 | while (%x <= 255) { echo @chrs $+($str($chr(160),15),$chr(36),chr,$chr(40),%x,$chr(41))) = $chr(%x) $str($chr(160),8) Binary for $chr(%x) = $base($asc( $+ $chr( $+ %x $+ ) $+ ),10,2) | inc %x } }
priv {
  inc %echos
  echo -ta 04¤14ECHO04¤14 $remove($1-,-ta,-a,-s) 04¤14 $bytes(%echos,b) 04¤
}
browse say $c1(Currenty Browsing:) $c2($iif($url,$v1,Nothing))
worms {
  msg # Many moons have passed, since the Worms went to war. Onwards and upwards, bigger weapons than before... Boggy B took cover, he shivered on patrol, the arms raised crazy, simply way out of control. Then his friend flew it, the latest device, Boggy B went and got it, against all advice...
  msg # His tail was split and his energy lost, how many more will this dreaded war cost...? Then came the nuke, and the deseased and run down, if the bug didn't get you, you probably drowned. The Worms battled on, through hunger and pain. Living to fight, just to victor again.
  msg # And now is the curtain call, the final onslaught, no better bullet could you possbly have bought... But spare a thought for Boggy and with it his friend. So fight with their honour and fight untill the end.
}
ls msg $active 14Members LootShare Worlds: 145, 157, 158, 131, 159, 26, 48, 9, 56, 92, 28, 22, 59, 65, 91, 88, 39, 46, 89, 98, 97, 69, 23, 84, 124, 121, 151, 137, 111, 112.
<3 {
  describe # 4(`'·.¸
  describe # 4(¸.·'´  $1-
}
f5 run $scriptdir
/convert /echo -ta $!+( $+ $left($regsubex($1-,/(.)/g,$!chr( $+ $asc(\t) $+ ) $+ $chr(44)),-1) $+ )
fail msg # I don't fail, I succeed at finding what doesnt work.
noobtalk msg $chan You. Know. You. Could. Talk. Like. Noobs. And. It. Would. Be. Ok. If. You. Had. A. Full. Stop. After. Every. Word.
zip /msg [01]Zipper login iPeer
/dick { /say Based on the uptime of my Windows $+ $os box, my e-Peenor is $round($calc($ticks / 3600000),2) inches ( $+ $round($calc($ticks * 2.54 / 3600000),2) $+ cm $+ ) long! $+(,$uptime(system,1),) }
drift {
  /msg # Traveling somewhere, could be anywhere... There's a coldness in the air, but i don't care.... (Embrace me...surround me). Travelling somewhere, could be anywhere, there's a coldness in the air, but i don't care
  /msg # We drift deeper, life goes on, we drift deeper, into the sound...
}
failpen msg $chan 8(((11¯¯¯¯(11¯¯4F11¯¯4A11¯¯4I11¯¯4L11¯¯4P11¯¯4E11¯¯4N11¯¯¯¯(11¯¯¯¯¯7((12>
failpencil msg $chan 8(((11¯¯¯¯(11¯¯4F11¯¯4A11¯¯4I11¯¯4L11¯¯4P11¯¯4E11¯¯4N11¯¯4C11¯¯4I11¯¯4L11¯¯¯¯(11¯¯¯¯¯7((12>
sell amsg [SELLING] $1-
buy amsg [BUYING] $1-
prod describe $iif(*#* iswm $active,$chan,$target) prods $$1 with a haddock
hardrock msg $active I'm the one thats up to no good... If you let me, baby I would... Suck you dry and leave you no doubt... Take a bite and spit you right out.
slay msg # You've completed your task; return to a Slayer master.
ge msg # One or more of your Grand Exchange offers have been updated.
/gban {
  var %b = $chan(0)
  while (%b) {
    if ($me isop $chan(%b)) || ($me ishop $chan(%b)) {
      ;msg $chan(%b) 14Globally Banning04 $1 14for reason04 $2-
      mode $chan(%b) +b $1
    }
    dec %b
  }
}
sid msg Spidle login iPeer
iid msg IdleBot LOGIN iPeer
/guban {
  var %b = $chan(0)
  while (%b) {
    if ($me isop $chan(%b)) || ($me ishop $chan(%b)) {
      ;msg $chan(%b) 14Globally Unbanning04 $1 14for reason04 $2-
      mode $chan(%b) -b $1
    }
    dec %b
  }
}
uptime { /msg $active 14Uptimes -> System:13 $uptime(System,1) 14mIRC:13 $uptime(mIRC,1) 14Server Connection:13 $uptime(server,1) }
/mirror {
  /ame holds up a mirror to his name
  /nick iPeer
}
/hits {
  if ($1- == $null) {
    /msg # 02     0
    /msg # 020     0
    /msg # 02     0
  }
  else {
    /msg # 04      $1
    /msg # 04 $+ $1     $1
    /msg # 04     $1
  }
}
/regnick {
  if (Unknown isin $me) /nick iPeer
}
;/update /msg # Update $date $+ : RuneScape was rebooted to allow us to add extra servers to the friend and ignore list system. This is in preparation for the Clan Chat feature. No changes were made to the game in this update.
;/worlds /run http://www.freewebs.com/ipeer/WorldList.html
/kicks {
  var %item = $iif($r(1,2) == 1,$read(updateditems.txt),$read(updatedmonsters.txt))
  /msg # $c1(Noobs pwnt by the) $c2($regsubex(%item,-(.+?)-,)) $+($c1([),$c2($bytes(%kicks,b)),$c1(]))
}
/ipsl2 /msg # 14 $+ $chr(149) It has been:04 $duration($calc($ctime - $ctime(29/11/07 00:00:00))) 14since iPSL2 was released! $chr(149)
/ele /msg # "Feel this fire deep inside, burning strong where you can't hide, join the elements tonight and see the light, when the darkness comes too strong, don't forget your not alone, join the elements tonight and feel alive."
/welcome /msg # 4,1»0,1 PeerIRC Welcomes %welcomes 4,1«
/love /msg # 4,7æ7,4æ5,4æ4,5æ1,5æ5,1æ8,1 7¤(~ 0,1 I Love You is eight letters... so is bullshit 7,1~)¤ 4,1 5,1æ1,5æ4,5æ5,4æ7,4æ4,7æ
life /msg # $c1($chr(149) I have been alive for:) $c2($idledur($calc($ctime - $ctime(06/06/91 00:00:00)))) $+($c1($chr(40) $+ $c2($round($calc(($ctime - $ctime(06/06/91 00:00:00)) / 31536000),2)),$chr(32),$c1(Years)),$chr(41),!) $chr(149)
bd {
  /msg # 14 $+ $chr(149) There is only:13 $idledur($iif($calc($ctime(06/06/ $+ $date(yy) 00:00:00) - $ctime) >= 0,$calc($ctime(06/06/ $+ $date(yy) 00:00:00) - $ctime),$calc($ctime(06/06/ $+ $calc($date(yy) + 1) 00:00:00) - $ctime))) 14'till my Birthday! $chr(149)
}
bxpw msg $active $c1(Bonus EXP Countdown:) $c2(~ $+ $duration($calc($ctime(03/09/2010 12:00:00) - $ctime)))
/21 msg # There is only: $idledur($calc($ctime(06/06/2012 00:00:00) - $ctime))) until I'm 21.
/xmas {
  var %xmas $+(25/12/,$iif($date(mmdd) >= 1225,$calc($date(yy) +1),$date(yy)))
  var %xmastime $idledur($calc($ctime(%xmas $iif($date(ddmm) == 2512,$ctime,00:00:00)) - $ctime))
  if ($isid) { return %xmastime }
  else { /msg # 03 $+ $chr(8552) There is only:04 %xmastime 03until Christmas!!! $chr(8554) }
}
ny {
  var %newyear $+(01/01/,$calc($date(yy) +1))
  var %newyeartime $idledur($calc($ctime(%newyear 00:00:00) - $ctime))
  if ($isid) return %newyeartime
  else msg # $c2(%newyeartime) $c1(until) $c2($calc($date(yyyy) +1)) $c1(:D)
}
/bbtime /msg # 14 $+ $chr(149) There is only:10 $duration($calc($ctime(04/06/09 21:00:00) - $ctime)) 14'till Big Brother $chr(149)
bb url www.channel4.com/bigbrother
/exams /msg # 14 $+ $chr(149) There is only:10 $duration($calc($ctime(23/08/07 10:00:00) - $ctime)) 14'till i get my exam results... :/ $chr(149)
/fparty /msg $chan 14There is now only10 $duration($calc($ctime(02/06/07 20:00:00) - $ctime)) 14'till Clbyt gets 99 fletch !!!!!
/q /query $$1
/mort /msg # $$1 $+ , for partner(s) in 10Shades of Morton please try world 1077 other wise, use the forums.
/send /dcc send $1 $2
/chat /dcc chat $1
/ping /ctcp $$1 ping
/s /server $$1-
/rule /msg # [#1 Rule Of IRC] Always assume a 'girl' is a guy, until you have seen them on Webcam.
/dl msg $active Def's Links v $+ $1 is now out, existing users(v3.5+) type /aupdate or update via the in dialog updater, other wise download from www.defslinks.filetap.com
/modes {
  if ($chan == #Peer) /mode # +fsTCujk [2j#i10,2n#N10,5t#b20]:15 2:15 2006
  if ($chan == #PeerScript) /mode # +fsTCj [2j#i10,2n#N10,5t#b20]:15 2:15
  else halt
}
/care /msg # CARE Unknown command
/fo2 /msg $chan $$1 For RS quest partners please use the RuneScape Forums.
/cat {
  if ($1- == $null) /msg # His Royal Highness, the Regent of Tuna, Glorious Furred Master of the Basket.
  else /msg # His Royal Highness, the Regent of Tuna, Glorious Furred Master of the Basket $1-
}
/random { var %item = $read(updateditems.txt) | $iif($isid,return,msg #) $iif($right(%item,1) == s,some,$iif($left(%item,1) isin aeiou,an,a))) %item }
/globalban {
  /gban $1 $2-
}
/globalunban {
  /guban $1 $2-
}
/slap {
  var %item = $iif($r(1,2) == 1,$read(updateditems.txt),$read(pokemon.txt))
  if ($1 == $me) describe $chan slaps himself with $iif($right(%item,1) == s,some,$iif($left(%item,1) isin aeiou,an,a))) %item
  else describe $chan slaps $1- with $iif($right(%item,1) == s,some,$iif($left(%item,1) isin aeiou,an,a))) %item
}
/slapback {
  var %item = $iif($r(1,2) == 1,$read(updateditems.txt),$read(pokemon.txt))
  describe $chan slaps $1- back with $iif($right(%item,1) == s,some,$iif($left(%item,1) isin aeiou,an,a))) %item
}
/noob {
  if (%lastpercent == $null) set %lastpercent 0
  if (%lastnoob == $null) set %lastnoob Well... No-one
  set %chan.noob $chan
  set %nick.noob $nick($chan,$rand(1,$nick($chan,0)))
  msg %chan.noob 14Hunting for noobs in06 $chan $+ 14!
  set %newpercent $rand(0,100)
  timernoob 1 5 msg %chan.noob 14Noob found!06 %nick.noob $+ 14! With a noob rating of06 %newpercent $+ % $+ 14! $iif(%newpercent > %lastpercent,14Congratulations! You beat the highest percentage of 06 $+ %lastpercent $+ % 14set by06 %lastnoob $+ 14!,You didn't beat the record of06 %lastpercent $+ % 14set by06 %lastnoob $+ 14!)
  if (%newpercent > %lastpercent) {
    set %lastpercent %newpercent
    set %lastnoob %nick.noob
  }
}
/targets {
  /msg # 4,7»»7,4»»5,4»»4,5»»1,5»»5,1»»7~(15,1 :::... Def669's 2007 Targets ..:.:.. 7,0175/80 Range0,1 / / 7,0198/99 Hitpoints0,1 / / 7,0192/95 Strength0,1 / / 7,0191/95 Fishing0,1 / / 7,0193/99 Cooking0,1 / / 7,01118/120 Combat ...:::7)~5,1««1,5««4,5««5,4««7,4««4,7««
  /msg # 4,7»»7,4»»5,4»»4,5»»1,5»»5,1»»7~(15,1 :::... Def669's Main Target ..:.:.. 7,0180 Range 0,01...::: 7)~5,1««1,5««4,5««5,4««7,4««4,7««
}

won {
  var %item = $iif($r(1,2) == 1,$read(updateditems.txt),$read(pokemon.txt))
  msg # 14Congratulations10 $1- $+ 14, You've won! Your Prize:10 $iif($right(%item,1) == s,some,$iif($left(%item,1) isin aeiou,an,a))) %item $+ 14!
}
pet {
  var %monster = $remove($iif($r(1,2) == 1,$read(updatedmonsters.txt),$read(pokemon.txt)),-1-,-2-,-3-,-4-,-5-,-6-,-7-,-8-,-9-))
  describe $chan sets his pet10 %monster on10 $$1 $+ .
}
feed {
  var %monster = $remove($read(updatedmonsters.txt),-1-,-2-,-3-,-4-,-5-,-6-,-7-,-8-,-9-))
  describe $chan feeds10 $1 to his pet10 %monster $+ .
}
att {
  %item = $read(item.txt)
  %hit = $r(0,1490)
  if (*godsword* iswm %item) set %hit2 1490
  else %hit2 = $r(0,1490)
  describe $chan attacks04 $replace($1-,$me,himself) with his04 %item hitting $iif(%hit <= 500,120,04 $+ $calc(%hit -500)) $iif($r(1,3) == 1,then throws it at them hitting a further $iif(%hit2 <= 500,120,04 $+ $calc(%hit2 - 500) $+ )  damage.)
}
dds {
  %spec1 = $r(0,750)
  %spec2 = $r(0,750)
  describe # hits $replace($$1-,$me,himself) with a dds special attack hitting $iif(%spec1 <= 250,120,04 $+ $calc(%spec1 -250)) & $iif(%spec2 <= 250,120,04 $+ $calc(%spec2 -250))
}
combo {
  ;describe # combos04 $1-
  dds $1-
  att $1-
}
;/quit {
;  if (Zipper ison #Zipper) /msg #Zipper .raw quit
;  if (!$1) {
;    set %quits $rand(1,2)
;    var %item = $read(itemlist.txt)
;    if (Zipper ison #Zipper) {
;      /msg #Zipper .raw quit
;    }
;    if (%quits == 1) /quit As $me leaves the channel he leaves10 $iif($right(%item,1) == s,some,$iif($left(%item,1) isin aeiou,an,a))) %item behind, little do you know it's booby trapped! hah, imbecile.
;    if (%quits == 2) /quit As $me leaves he lobs a bomb strapped to10 $iif($right(%item,1) == s,some,$iif($left(%item,1) isin aeiou,an,a))) %item into the channel. Have fun with it >=)
;  }
;  else {
;   /quit $1-
; }
;}
;quit { $iif($?!="Send BNC message and quit?" == $true,/global I am now on BNC - If you need to contact me: /ms send $me message,halt) | quit }
flag {
  /msg # 4,4==================
  /msg # 4,4==0,0==============4,4==
  /msg # 4,4==0,0==1,1==0,0==1,1======0,0==4,4==
  /msg # 4,4==0,0==1,1==0,0==1,1==0,0======4,4==
  /msg # 4,4==0,0==1,1==========0,0==4,4==
  /msg # 4,4==0,0======1,1==0,0==1,1==0,0==4,4==
  /msg # 4,4==0,0==1,1======0,0==1,1==0,0==4,4==
  /msg # 4,4==0,0==============4,4==
  /msg # 4,4==================
}
/kirby {
  msg $chan 0,0------1,1----------0,0------------0,0--------
  msg $chan 0,0----------1,1----6,6--13,13------6,6--1,1----0,0--------
  msg $chan 0,0--------1,1--6,6--13,13--------------6,6--1,1--0,0------
  msg $chan 0,0------1,1--6,6--13,13------------------1,1--0,0------
  msg $chan 0,0------1,1--13,13--------------------6,6--1,1--0,0----
  msg $chan 0,0----1,1--13,13--------------1,1--13,13--1,1--13,13--6,6--1,1--0,0----
  msg $chan 0,0--1,1--6,6--13,13--------------1,1--13,13--1,1--13,13------1,1--0,0--
  msg $chan 0,0--1,1--13,13----------------1,1--13,13--1,1--13,13------1,1--0,0--
  msg $chan 0,0--1,1--13,13----------4,4----13,13--------4,4----13,13--1,1--0,0--
  msg $chan 0,0--1,1--6,6--13,13----6,6--13,13----------------6,6--13,13--1,1--0,0--
  msg $chan 0,0----1,1--6,6--13,13--1,1--13,13----------1,1--13,13----1,1--6,6--1,1--0,0--
  msg $chan 0,0------1,1----6,6--13,13--------------6,6--1,1----0,0----
  msg $chan 0,0--------1,1----6,6----13,13--------6,6--1,1----0,0------
  msg $chan 0,0------1,1--4,4----1,1--------------4,4----1,1--0,0----
}
snorlax {
  msg # 0,0------------------------------------
  msg # 0,0------1,1--14,14--0,0----------------14,14--1,1--0,0------
  msg # 0,0------1,1----14,14--1,1------------14,14--1,1----0,0------
  msg # 0,0------1,1------14,14--1,1--------14,14--1,1------0,0------
  msg # 0,0------14,14--1,1--14,14--0,0------------14,14--1,1--14,14--0,0------
  msg # 0,0------1,1--14,14--1,1----0,0--------1,1----14,14--1,1--0,0------
  msg # 0,0----1,1----0,0--------1,1----0,0--------1,1----0,0----
  msg # 0,0--1,1--0,0--14,14--1,1--14,14----------------1,1--14,14--0,0--1,1--0,0--
  msg # 0,0--1,1--14,14--1,1--14,14--0,0----------------14,14--1,1--14,14--1,1--0,0--
  msg # 0,0----1,1--14,14--0,0------------------14,14----1,1--0,0----
  msg # 0,0----1,1--14,14--0,0----------------14,14------1,1--0,0----
  msg # 0,0----1,1----14,14--0,0----------14,14--------1,1----0,0----
  msg # 0,0--14,14--0,0----1,1----14,14------------1,1----0,0----14,14--0,0--
  msg # 0,0--1,1--0,0----14,14--1,1----------------14,14--0,0----1,1--0,0--
  msg # 0,0--1,1--14,14------1,1----------------14,14------1,1--0,0--
  msg # 0,0----1,1------14,14----------------1,1------0,0----
  msg # 0,0------------------------------------
}
/rsn {
  /msg # 14My RuneScape name is:13 i P e e r
}
/wrists {
  var %item = $read(updateditems.txt)
  if ($1- == $null)   describe $chan tries to slit his wrists with $iif($right(%item,1) == s,some,$iif($left(%item,1) isin aeiou,an,a))) %item
  else describe $chan tries to slit $1- $+ 's wrists with $iif($right(%item,1) == s,some,$iif($left(%item,1) isin aeiou,an,a))) %item
}
/kill {
  var %item = $read(updateditems.txt)
  describe $chan kills $1- with $iif($right(%item,1) == s,some,$iif($left(%item,1) isin aeiou,an,a))) %item
}
; - Pickpocket alias 06/06/08
pick describe $chan pickpockets04 $$1- stealing their04 $read(updateditems.txt) $+ .
/stab {
  var %item = $read(updateditems.txt)
  describe $chan stabs $1- in the crotch with $iif($right(%item,1) == s,some,$iif($left(%item,1) isin aeiou,an,a))) %item
}
/poke {
  var %item = $read(itemlist.txt)
  describe $chan pokes $1- with $iif($right(%item,1) == s,some,$iif($left(%item,1) isin aeiou,an,a))) %item
}
f3 { song }
/wc {
  if ($1 == -a) {
    if (whip isin $2-) { inc %Whip.Drop | echo 6 -ta Whip drops incresed to %Whip.Drop | halt }
    if (spear isin $2-) { inc %Spear.Drop | echo 6 -ta Spear drops incresed to %Spear.Drop | halt }
    if (half isin $2-) { inc %half.Drop | echo 6 -ta Half drops incresed to %half.Drop | halt }
    if (med isin $2-) { inc %Med.Drop | echo 6 -ta Med drops incresed to %Med.Drop | halt }
    if (head isin $2-) { inc %head.Drop | echo 6 -ta Head drops incresed to %head.Drop | halt }
    if (effigy isin $2-) { inc %effigy.drop | echo 6 -ta Effigy drops incresed to %effigy.drop | halt }
  }
  elseif ($1 == -d) {
    if (whip isin $2-) { /msg # 14¤06i P e e r14¤ ¤06Abyssal Drops '04 $+ $2- $+ 06'14¤ $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ ¤06Whip:04 %Whip.drop $+ 14¤ }
    if (med isin $2-) { /msg # 14¤06i P e e r14¤ ¤06Abyssal Drops '04 $+ $2- $+ 06'14¤ $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ ¤06Dragon Med:04 %med.drop $+ 14¤ }
    if (half isin $2-) { /msg # 14¤06i P e e r14¤ ¤06Abyssal Drops '04 $+ $2- $+ 06'14¤ $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ ¤06Dragon Half:04 %half.drop $+ 14¤ }
    if (spear isin $2-) { /msg # 14¤06i P e e r14¤ ¤06Abyssal Drops '04 $+ $2- $+ 06'14¤ $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ ¤06Dragon Spear:04 %spear.drop $+ 14¤ }
    if (head isin $2-) { /msg # 14¤06i P e e r14¤ ¤06Abyssal Drops '04 $+ $2- $+ 06'14¤ $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ ¤06Abyssal Demon Head:04 %head.drop $+ 14¤ }
    if (effigy isin $2-) { /msg # 14¤06i P e e r14¤ ¤06Abyssal Drops '04 $+ $2- $+ 06'14¤ $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ ¤06Effigies:04 %effigy.drop $+ 14¤ }
  }
  elseif (!$1) && (!$2) {
    /msg # 14¤06i P e e r14¤ ¤06Abyssal Drops14¤ $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ ¤06Whips:04 %Whip.drop $+ 14¤ ¤06Dragon Meds:04 %med.drop $+ 14¤ ¤06Dragon Spears:04 %spear.drop $+ 14¤ ¤06Dragon Halves:04 %half.drop $+ 14¤ ¤06Abyssal Demon Head:04 %head.drop $+ 14¤ ¤06Effigies:04 %effigy.drop $+ 14¤
  }
}
/db msg $chan 14¤06i P e e r14¤ ¤06Dark Bow Drops14¤ $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ ¤06Dark Bow:04 5 $+ 14¤
/net {
  if ($1 == -a) { set %net.worth $calc(%net.worth + $2-) | echo 6 -ta Net value increaced to04 $bytes(%net.worth,b) }
  elseif (!$1) && (!$2) {
    /msg # 14¤06i P e e r14¤ ¤06Net Value14¤ $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ 14¤06Estimated at04 $bytes(%net.worth,b) 06GP $+ 14¤
  }
}
/gag { /mode # -oaqhv+b $1 $1 $1 $1 $1 ~q: $+ $address($1,2) }
/ungag {
  /mode # -b ~q: $+ $address($1,2)
}
global { scon -a amsg $+(13[14,GLOBAL,13]14) $1- }
short {
  set %c $1
  if (%c == lol) { say 12L14augh 12O14ut 12L14oud }
  elseif (%c == brb) { say 12B14e 12R14ight 12B14ack }
  elseif (%c == bbl) { say 12B14e 12B14ack 12L14ater }
  elseif (%c == bbs) { say 12B14e 12B14ack 12S14oon }
  elseif (%c == wb) { say 12W14elcome 12B14ack }
  elseif (%c == ty) { say 12T14hank 12Y14ou }
  elseif (%c == rofl) { say 12R14olling 12O14n 12T14he 12F14loor 12L14aughing }
  elseif (%c == roflmao) { say 12R14olling 12O14n 12T14he 12F14loor 12L14aughing 12M14y 12A14ss 12O14ff }
  elseif (%c == lmao) { say 12L14aughing 12M14y 12A14ss 12O14ff }
  elseif (%c == back) { say 12B14ack }
  elseif (%c == omg) { say 12O14h 12M14y 12G14od }
  elseif (%c == nm) { say 12N14ever 12M14ind }
  elseif (%c == np) { say 12N14o 12P14roblem }
  elseif (%c == ok) { say 12O14k }
  elseif (%c == k) { say 12O14k }
  elseif (%c == jk) { say 12J14ust 12K14idding }
  elseif (%c == j/k) { say 12J14ust 12K14idding }
  elseif (%c == tyt) { say 12T14ake 12Y14our 12T14ime }
}
/news {
  /amsg [!! Important News !!] $1-
}
/question {
  /amsg [¿¿ Important Question ??] $1-
}
/greet {
  /ns set greet $1-
}
/time {
  /msg # The time where i live is03 $time(hh:nn:ss TT) $+ , The date is03 $date(dd/mm/yy) $+  And the day is03 $day
}
/group {
  /ns group iPeer
}
/mirc {
  msg $chan -> mIRC Active channel: $active <-> mIRC Uptime: $uptime(mirc,1) <-> mIRC Status: $status <-> mIRC Server: $server <-> mIRC Server IP: $serverip <-> mIRC Time: $time <-> mIRC Date: $date
}
rev {
  var %rev.000 = $1-
  var %rev.001 = $len(%rev.000)
  while %rev.001 > 0 {
    if ($mid(%rev.000,%rev.001,1) != $chr(32)) {
      var %rev.002 = %rev.002 $+ $mid(%rev.000,%rev.001,1)
    }
    else {
      var %rev.002 = %rev.002 $mid(%rev.000,%rev.001,1)
    }
    dec %rev.001
  }
  $iif($isid,return,say) %rev.002
}
/*
me {
  if ($1- == $null) /describe $active $chr(160)
  else /describe $active $1-
}

colban {
  //mode # +bbbbbbbbbbbb 00White 01Black 02Blue 03Green 04Red 05Dreg 06Purple 07Orange 08Yellow 09Green 10Cyan 11BCyan
  //mode # +bbbb 12DBlue 13Pink 14DGrey 15Grey
}
*/
alphabet {
  %full.bet =  A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
  if ($1) return $gettok(%full.bet,$1,32)
  else return %full.bet
  unset %full.bet
}
isgay {
  if ($r(1,2) == 1) return $true
  else return $false
}
only say Only on $+($day,s,.)
seen say !seen $replace($1-,$chr(32),$chr(160))
loser say Lee-Hew...Zoo-Her.
;f6 run "C:\Program Files\Swiftkit\Worldmap.exe"
reboot {
  if (Zipper ison #Peer) .msg Zipper .reboot
  if ([IP]Zipper ison #Peer) .msg [IP]Zipper .reboot
  if (PulseBot ison #Peer) .msg PulseBot .reboot
  if (PulseBot2 ison #Peer) .msg PulseBot .reboot
  run shutdown -r -t 10 Rebooting...
  quit Rebooting
}
dragon //say http://i195.photobucket.com/albums/z213/19james91/118cmb99summon.png
shilo { msg $active You clap your hands and the world changes... }
reso say Screen Resolution: $+($window(-1).w,x,$window(-1).h)
month return $date(mmmm)
fullscreen nick iPeer[FS] | away RSHD
maybe return $!maybe
peng msg $active $c1(For each point at level) $c2($1) $c1(you will gain) $c2($calc($1 * 25)) $c1(exp per point and gain) $c2($bytes($calc(($1 * 25)*15),b)) $c1(for 15 points)
cc echo -ta $c1(Stars:) $c2(Rgollum) $c1(Penguins:) $c2(Riods2525)
azn $iif($isid,return,say) $replace($1-,l,r,o,ah,ci,shi,asian,azn)
pc return $calc($floor($calc((91 * 91) / 600)) * 35)
randnick return $nick(#,$r(1,$nick(#,0)))
nv $iif($isid,return,say) $remove($1-,a,e,i,o,u)
stroke me strokes his $regsubex($read(updatedmonsters.txt),-(.+?)-,)
kirbys return <( ' . ' <) <( ' . ' )> (> ' . ' )>
percent if ($1 > $2) { echo -ta 14The first number must be smaller than the second. | halt } | else $iif($isid,return,echo -ta) $+(14,$calc($1 / $2 * 100),%)
ff web $1-
ffp run firefox.exe $iif($1-,$qt($v1))
scripts { var %a $script(0),%s1,%s2 | while (%a) { inc %s1 $file($script(%a)).size | inc %s2 $lines($script(%a)).size | dec %a } | $iif($1 = -e,echo -a,msg $active) $logo(Scripts) $c1(I have) $c2($iif($script(0) > 1,$v1 scripts,$v1 script)) $c1(loaded. There are) $c2($bytes(%s2,db)) $c1(lines in total. In total I have) $c2($bytes(%s1).suf) $c1(of scripts.) }
logo return $+($c2($chr(164)),$c1($1-),$c2($chr(164)))
;foldersize { var %size, %dir = $qt($sdir(*)) | noop $findfile(%dir,*,0,inc %size $lof($1-)) | echo -ag Size of %dir is $bytes(%size).suf ( $+ %size bytes $+ ) }
foldersize { var %size, %dir = $iif($1-,$qt($v1),$qt($sdir(*))) | %files = $findfile(%dir,*,0,inc %size $lof($1-)) | echo -ag Size of %dir is $bytes(%size).suf ( $+ $bytes(%size,b) bytes in $bytes(%files,b) files) }
fry describe # hits $$1- with a frying pan
dls dialog -md dlswhatdrive dlswhatdrive
randompass {
  var %PassGen 1
  while (%PassGen <= $iif($1,$v1,10)) {
    Var %R $r(1,3)
    if (%R == 1) { set %Pass %Pass $+ $r(0,9) }
    elseif (%R == 2) { set %Pass %Pass $+ $r(A,Z) }
    elseif (%R == 3) { set %Pass %Pass $+ $r(a,z) }
    inc %PassGen
  }
  echo -a Plain Text: %pass
  echo -a md5: $md5(%pass)
  echo -a sha1: $sha1(%pass)
  unset %pass
}
cattoilet { msg # He's a cat *meow*, flushing the toilet, He's a cat *meow*, flushing the toilet, He's a cat *meow*, flushing the toilet, he's cat flushing the toileeeeeet, He's a cat *meow*, flushing the toilet, He's a cat *meow*, flushing the toilet, He's a cat *meow*, flushing the toilet, he's cat flushing the toileeeeeet, he does not care if he's wastin' waterrrrr he likes to push the handleeeee, and watch the water go dooooooown *flush* | msg # He's a cat *meow*, flushing the toilet, He's a cat *meow*, flushing the toilet, He's a cat *meow*, flushing the toilet, he's cat flushing the toileeeeeet | msg # He's a cat *meow*, flushing the toilet, He's a cat *meow*, flushing the toilet, He's a cat *meow*, flushing the toilet, he's cat flushing the toileeeeeet }
comcube describe # hands $$1- a Companion Cube
ib ibrowse $1-
lmgtfy say $+(http://lmgtfy.com/?q=,$replace($1-,$chr(32),+))
ts2dl run C:\Documents and Settings\user\My Documents\EA Games\The Sims 2\Downloads
s2dl ts2dl
temp {
  if (!$2) { echo -ta Invalid Format: /temp C/F TEMP | halt }
  if ($1 == c || $right($2,1) == F) { echo -ta $+($remove($2,$chr(176),F),ºF) is $+($calc(($remove($2,$chr(176),F) - 32)* 5/9),ºC) }
  elseif ($1 == f || $right($2,1) == C) { echo -ta $+($remove($2,$chr(176),C),ºC) is $+($calc(($remove($2,$chr(176),C) * 9/5) + 32),ºF) }
}
iPee run F:\mIRC\iPee\mirc.exe
spidle run "C:\Spidle\Spidle.pl" --debug
doorclose say *lukkedoerendunandurraskewdylooshoofermoyportertooryzooysphalnabortansporthaokansakroidverjkapakkapuk*
c echo -ta $calc($1-)
twss say That's what she said
httpd run cmd /k "cd /D F:\www\Apache22\bin\&&httpd -k stop&&httpd -k start&&exit"
listdrives { unset %disks %id | var %d = 1 | while (%d <= $disk(0)) { | %disks = %disks $disk(%d).path | inc %d | } | $iif($isid,return,echo -tag) %disks | unset %disks %d | }
idledur {
  unset %days %hours %final %format
  if ($1 > 120960000 && *:*:* !iswm $1) return $duration($1)
  %format = $iif(*:*:* iswm $1,$1,$duration($1,3))
  tokenize 58 %format
  %final = $+(:,$2,:,$3)
  %hours = $1
  while (%hours >= 24) {
    inc %days
    %hours = $calc(%hours - 24)
  }
  if (!%days) return $+(0 days,$chr(44),$chr(32),%hours,%final)
  else return $+(%days days,$chr(44),$chr(32),$iif(%hours < 10,$+(0,%hours),%hours),%final)
}
_duration {
  unset %duration %years %weeks %days %mins %secs
  if ($1 > 1209600000 && *wks* !iswm $1) return $duration($1)
  %format = $iif(*wk* iswm $1,$1,$duration($1))
  if (*wk* !iswm %format) { echo -ta Invalid format. | halt }
  noop $regex(%format,([0-9]+)wks?)
  %weeks = $regml(1)
  %final = $remove(%format,$+(%weeks,wks),$+(%weeks,wk))
  while (%weeks > 52) {
    inc %years
    dec %weeks 52
  }
  return $iif(%years > 0,%years $+ $iif(%years > 1,yrs,yr)) $iif(%weeks > 0,%weeks $+ $iif(%weeks > 1,wks,wk)) %final
}
ie web $1-
fo3 web fallout.wikia.com/wiki/ $+ $replace($1-,$chr(32),_)
rdr web reddead.wikia.com/wiki/ $+ $replace($1-,$chr(32),_)
rs web runescape.wikia.com/wiki/ $+ $replace($1-,$chr(32),_)
pkmn web bulbapedia.bulbagarden.net/wiki/ $+ $replace($1-,$chr(32),_)
kn kb $1-
lent say The item you lent out has been sent to your Returned Items box.
pkmnbot /msg PokemonBot login
dot.test echo -ta Lol
roll say I rolled a $r(1,$1) on my $1 sided die.
ident { $iif($isid,return,echo) $remove($iif($prop == a,$+($gettok($address($iif($1,$1,$me),3),1,64),@),$gettok($address($iif($1,$1,$me),3),1,64)),*!*) }
ident2 { var %ident $regsubex($address($iif($1,$1,$me),3),/(\*!\*)?(.*)\@(.*)/S,\2) | $iif($isid,return,echo) $iif($prop == a,$+(%ident,@),%ident) }
mSE { .comopen a WScript.Shell | .comclose a $com(a,SendKeys,3,bstr,% $+ r) }

hextotext say $regsubex($1-,/([A-Z0-9]{2})/g,$chr($base(\t,16,10,0)))
texttohex say $regsubex($1-,/([[:alpha:][:space:][:punct:]\p{M}\P{M}|[0-9]+)/g,$+($base($iif(\t isnum 10-,\t,$asc(\t)),10,16,0),$chr(32)))

text2chr $iif($isid,return,echo -tag) $regsubex($1-,/(.+?)/g,$+($asc(\1),$chr(32)))
hashmemusage { var %h 1,%m 0 | while ($hget(%h,0).item) { inc %m $calc($hget(%h,0).item * 4) | inc %h } | return $bytes(%m).suf }
vn mode # +Nv-v $1 $1
bc1 return $2-
bc2 return $bc1($1-)
bc3 return $bc1($1-)
bob say Note: anything your familiar is carrying when it disappears will be placed on the floor.
chest say You hear the doors' locking mechanism grind open.
bless say You pour forth your blessing on to the gravestone (though you reserve 10 prayer points for emergencies).
sanctuary say When there's nowhere left to run, run with me. Let the moment be our, sanctuary... When it's all that you've become, set it free, let this moment be our.... sanctuary
leper say You feel the leprechaun's magic fade slowly away.
reverie say Reverie reverie you're all I need... Suddenly suddenly only silence sounds inside... Could it be could it be all that I've ever wanted... To be free to be free with you standing by my side...
sol say Your spell draws its power completely from your staff.
ge2 say You have items waiting in your Grand Exchange collection box!
bdoor say You hear the doors' locking mechanism grind open.
cF5 echo -tag $scriptdir
sF5 echo -tag Lines in this $+($chr(40),",$active,",$chr(41)) window: $line($active,0)
dls2 run F:\DLs\2
lives {
  if ($$1 > 0) { say $$1 $iif($$1 != 1,LIVES,LIFE) REMAINING }
  else { say CONTESTANT DEFEATED }
}
fonv {
  var %ukrelease $calc($ctime(22/10/2010 00:00:00) - $ctime)
  say $c1(Only) $c2($duration($iif($left(%ukrelease,1) == -,$remove(%ukrelease,-),%ukrelease))) $c1($iif($left(%ukrelease,1) == -,since,until) Fallout: New Vegas' release... But the Americans have had it for) $c2($duration($calc($ctime - $ctime(19/10/2010 07:00:00))))
}
sims ff http://sims.wikia.com/wiki/ $+ $replace($1-,$chr(32),_)
ipsl2mdbtoxml {
  var %i 1, %x $remove($1,.xml), %f $2-, %t $ini($2-,0)
  if ($exists($remove(%x,.xml) $+ .xml)) { .remove $+(%x,$iif($right(%x,3) != .xml,.xml)) }
  write $+(%x,.xml) <?xml version="1.0" encoding="utf-8" ?>
  write $+(%x,.xml) <data>
  while (%i <= %t) {
    write $+(%x,.xml) <monster>
    write $+(%x,.xml) <name> $+ $replace($ini(%f,%i),-,$chr(32)) $+ </name>
    write $+(%x,.xml) <SEXP> $+ $iif($readini(%f,$ini(%f,%i),SEXP),$v1,0) $+ </SEXP>
    write $+(%x,.xml) <CMB> $+ $iif($readini(%f,$ini(%f,%i),CMB),$v1,0) $+ </CMB>
    write $+(%x,.xml) <HP> $+ $iif($readini(%f,$ini(%f,%i),HP),$v1,0) $+ </HP>
    write $+(%x,.xml) <CMBEXP> $+ $iif($readini(%f,$ini(%f,%i),CMBEXP),$v1,0) $+ </CMBEXP>
    write $+(%x,.xml) </monster>
    inc %i
  }
  write $+(%x,.xml) </data>
  echo -tag Done.
}
hex2chr return $regsubex($1-,/(\d{2}|\w+)/g,$chr($base(\1,16,10,0)))
( echo -tag test
check ms check $$1-
mcitems window -fdp +l @MCItems -1 -1 296 680 | drawpic @MCItems 0 0 mcitems.png
b say $bytes($1-,b)
cartograph run "C:\Documents and Settings\user\Desktop\Dls\Cartograph"

inicheck {
  var %n 0
  while ($readini($mircini,options,$+(n,%n)) && $readini($mircdirmircold.ini,options,$+(n,%n))) {
    if ($readini($mircini,options,$+(n,%n)) != $readini($mircdirmircold.ini,options,$+(n,%n))) {
      echo -tsg 1 \ %n
    }
    else {
      echo -tsg 0
    }
    inc %n
  }
  echo -tsg Done.
}
murktosql {
  if ($exists(MURKTOSQL.txt)) .remove MURKTOSQL.txt
  write MURKTOSQL.txt INSERT INTO `murk_items` (`ItemID`, `Name`, `Description`, `MinDam`, `MaxDam`, `APBoost`, `HPBoost`, `CCBoost`, `MCBoost`, `Heals`, `Value`) VALUES
  var %t $ini(MURK\data\Item.ini,0), %it $iif($1,$v1,1), %s MURK\data\Shield.ini, %w MURK\data\Weapon.ini, %a MURK\data\Armour.ini, %ad MURK\data\Aid.ini, %i MURK\data\Item.ini, %l MURK\data\Legs.ini
  while (%it <= %t) {
    var %ID %it, %name = $+(',$replace($readini(%i,%it,Name),',''),'), %n $replace($left($right(%name,-1),-1),$chr(32),-), %desc = $+(',$iif($readini(%i,%it,DES),$replace($v1,',''),No Description.),'), $&
      %mind $+(',$iif($readini(%w,%n,MinDam),$v1,0),'), %maxd $+(',$iif($readini(%w,%n,MaxDam),$v1,0),'), %ap $+(',$iif($readini(%a,%n,APBoost),$v1,$iif($readini(%s,%n,APBoost),$v1,$iif($readini(%l,%n,APBoost),$v1,0))),'), $&
      %hp $+(',$iif($readini(%a,%n,HPBoost),$v1,$iif($readini(%s,%n,HPBoost),$v1,$iif($readini(%l,%n,HPBoost),$v1,0))),'), %cc $+(',$iif($readini(%a,%n,CCBoost),$v1,$iif($readini(%s,%n,CCBoost),$v1,$iif($readini(%l,%n,CCBoost),$v1,0))),'), $&
      %mc $+(',$iif($readini(%a,%n,MCBoost),$v1,$iif($readini(%s,%n,MCBoost),$v1,0)),'), %heals $+(',$iif($readini(%ad,%n,Varies),Varies,$iif($readini(%ad,%n,HP),$v1,0)),'), $&
      %value $iif($readini(%i,%it,VAL),$v1,0)
    write MURKTOSQL.txt $+($chr(40),%ID,$chr(44),$chr(32),%name,$chr(44),$chr(32),%desc,$chr(44),$chr(32),%mind,$chr(44),$chr(32),%maxd,$chr(44),$chr(32),%ap,$chr(44),$chr(32),%hp,$chr(44),$chr(32),%cc,$chr(44),$chr(32),%mc,$chr(44),$chr(32),%heals,$chr(44),$chr(32),%value,$chr(41),$iif(%it == %t,$chr(59),$chr(44)))
    inc %it
    inc %items
  }
  echo -tg Done. %items items written.
  unset %items %it
  run MURKTOSQL.txt
}
mc ff http://minecraftwiki.net/wiki/ $+ $replace($1-,$chr(32),_)
minecraft run F:\Installs\Minecraft
mcbackup {
  var %mcdir F:\Dropbox\Minecraft
  if ($1 == -r) {
    if ($exists($+(%mcdir,\bin\minecraft.jar))) remove $qt($+(%mcdir,\bin\minecraft.jar))
    copy $qt($+(%mcdir,\bin\Backup\,$2-,\minecraft.jar)) $qt($+(%mcdir,\bin\minecraft.jar))
  }
  else {
    var %dir $iif($1-,$v1,$asctime(dd-mm-yy@HH nn ss))
    if (!$exists($+(%mcdir,\bin\Backup))) mkdir $qt($+(%mcdir,\bin\Backup))
    if (!$exists($+(%mcdir,\bin\Backup\,%dir))) mkdir $qt($+(%mcdir,\bin\Backup\,%dir))
    .copy $qt($+(%mcdir,\bin\minecraft.jar)) $qt($+(%mcdir,\bin\Backup\,%dir))
    echo -tg Done!
  }
}
mcmap run F:\DLs\mcmap-win32
coin var %c $r(1,1000) | say $iif(%c < 500,The coin shows heads!,$iif(%c > 500,The coin shows tails!,Well would you look at that! The coin's laded on it's side!))
creeper /run -np F:\mIRC\Creeper\mIRC.exe
mcseed {
  var %n 1
  while (%n <= 20) {
    %s = %s $+ $r(0,9)
    inc %n
  }
  say $iif($r(1,2) == 1,$+(-,$right(%s,-1)),%s)
  unset %s
}