"useful" alias

[Ryan]

Post all these in your ALIAS tab in the Script Ed.

 

char return $!+( $+ $replace($mid($regsubex($1-,/(.)/g,$+($!chr,$chr(40),$asc(\t),$chr(41),$chr(44))),1,-1),$+($chr(44),$!chr(32),$chr(44)),$+($chr(41) $!+,$chr(40))) $+ )

 

Example:

//echo -a $char(Hi) -> $+($chr(72),$chr(105))

 

chanclear { var %a $chan(0) | while (%a >= 1) { window -g0 $chan(%a) | dec %a } }

 

Clears all your chans events

 

kb { mode # +bbb $+(*,$1,*!*@*) $+(*!*,$right($remove($ial($1).user,~),9),@*) $+(*!*@,$$ial($$1).host) | cs kick # $1 Yippykaiyay ************ }

 

Example:

(Tue/08:21:19 PM) —› i386 sets mode +bbb *Unknown50190*!*@* *!*Ryan@* *!*@Swift-46ABD125.tampabay.res.rr.com

(Tue/08:21:19 PM) —› Unknown50190 was kicked from #testchan by ChanServ (Yippykaiyay ************ (i386))

 

**** { /say Based on the uptime of my Windows $+ $os box, my e-***** is $round($calc($ticks / 3600000),2) inches ( $+ $round($calc($ticks * 2.54 /3600000),2) $+ cm $+ ) long! $uptime(system,1) }

 

Example:

(Tue/08:23:41 PM) (@i386) Based on the uptime of my WindowsVista box, my e-***** is 123.47 inches (313.62cm) long! 5days 3hrs 28mins 15secs

 

lyrics { tokenize 32 $replace($1-,$+($chr(32),~,$chr(32)),~) | run http://josh.stirk.org/parsers/lyrics.php?artist= $+ $replace($gettok($1-,1,126),$chr(32),% $+ 20) $+ &song= $+ $replace($gettok($1-,2,126),$chr(32),% $+ 20) }

 

Example:

/lyrics artist ~ name

 

hdisk { var %a = 1, %b = $disk(0)  while (%a <= %b) { if ($disk(%a) == $true) { .timer 1 %a msg $chan 4Disk: $disk(%a).path $+; 4Type: $disk(%a).type $+; 4Size: $bytes($disk(%a).size,b3).suf $+; 4Free: $bytes($disk(%a).free,b3).suf 12( $+ $round($calc(($disk(%a).free / $disk(%a).size) * 100),2) $+ % $+ 12) }	if ($disk(%a) == $false) {	.timer 1 %a msg $chan 4Disk: $disk(%a).path $+; 4Type: $replace($disk(%a).type,removable,floppy) $+ . }inc %a } }

 

Example:

(Tue/08:25:58 PM) (@i386) Disk: A:\; Type: floppy.

(Tue/08:25:59 PM) (@i386) Disk: C:\; Type: fixed; Size: 114GB; Free: 32.2GB (28.14%)

(Tue/08:26:00 PM) (@i386) Disk: D:\; Type: cdrom.

(Tue/08:26:00 PM) (@i386) Disk: E:\; Type: cdrom.

(Tue/08:26:01 PM) (@i386) Disk: F:\; Type: cdrom.

 

favourites {  if ($istok(on off,$1,32)) {	set %favourites $1	echo -aq * Favourites are $1  }  elseif ($1 == -a) {	if ($chr(44) isin $2-) {	  tokenize 44 $2-	  .timer 1 0 favourites -a $*	}	else set %favourite_chans $addtok(%favourite_chans,$$2,44)  }  elseif ($1 == -c) {	unset %favourite_chans	echo -aq * Favourite channel list cleared  }  elseif ($1 == -d) {	set %favourite_chans $remtok(%favourite_chans,$$2,1,44)	echo -aq * removed $qt($2) from favourites  }  elseif ($1 == -e) echo -a * Favourite channels: $iif(%favourite_chans,$v1,none)  elseif ($1 == -l) {	echo -a * Favourite channels:	if (%favourite_chans) {	  tokenize 44 $v1	  echo -a $*	}	else echo -a none  }  elseif (!$1) echo -a * Favourites are $iif(%favourites,%favourites,off)}

 

/favourites -a #chan (Adds)

/favourites -c (Clears)

/favourites -d #chan (deletes)

/favourites -e (Shows chans in a single line)

/favourites -l (shows them in a list)

/favourites (tells weather favourites are on or off **/favourites on/off to turn on/off**

 

calc { echo -a $itc1(Calc) $itc2($1-) $itc1($ita) $itc2($xcalc($1-)) }xcalc { var %x $replace($remove($1-,$chr(44),a,c,d,e,f,g,h,i,j,l,n,o,p,q,r,s,u,v,w,x,y,z),k,*1000,m,*1000000,b,*1000000000,t,*1000000000000) | return $bytes($calc(%x),bd) }

 

Example:

/calc 1+1 -> Calc 1+1 —› 2

**Need Jay's iTheme custom alias's for it to work**

[Cameron1]

A friend of mine linked me to this post and i was utterly disgousted by your scripts. The majority of which I believe are not even written by you, if any.

 

If you want to discuss any of this with me you can find me in #mSL.

 

char return $!+( $+ $replace($mid($regsubex($1-,/(.)/g,$+($!chr,$chr(40),$asc(\t),$chr(41),$chr(44))),1,-1),$+($chr(44),$!chr(32),$chr(44)),$+($chr(41) $!+,$chr(40))) $+ )

chanclear { var %a $chan(0) | while (%a >= 1) { window -g0 $chan(%a) | dec %a } }

How the **** are these useful?

kb { mode # +bbb $+(*,$1,*!*@*) $+(*!*,$right($remove($ial($1).user,~),9),@*) $+(*!*@,$$ial($$1).host) | cs kick # $1 Yippykaiyay ************ }

Learn to code in a proper fashion.

kb ban -k # $$1 2 $2-

Does the exact same thing

 

**** { /say Based on the uptime of my Windows $+ $os box, my e-***** is $round($calc($ticks / 3600000),2) inches ( $+ $round($calc($ticks * 2.54 /3600000),2) $+ cm $+ ) long! $uptime(system,1) }

Who gives a ****?

uptime say Uptime: $uptime(system,1)

 

lyrics { tokenize 32 $replace($1-,$+($chr(32),~,$chr(32)),~) | run http://josh.stirk.org/parsers/lyrics.php?artist= $+ $replace($gettok($1-,1,126),$chr(32),% $+ 20) $+ &song= $+ $replace($gettok($1-,2,126),$chr(32),% $+ 20) }

This may be the only somewhat useful script, that is if your too lazy to just google it.

 

hdisk { var %a = 1, %b = $disk(0)  while (%a <= %b) { if ($disk(%a) == $true) { .timer 1 %a msg $chan 4Disk: $disk(%a).path $+; 4Type: $disk(%a).type $+; 4Size: $bytes($disk(%a).size,b3).suf $+; 4Free: $bytes($disk(%a).free,b3).suf 12( $+ $round($calc(($disk(%a).free / $disk(%a).size) * 100),2) $+ % $+ 12) }	if ($disk(%a) == $false) {	.timer 1 %a msg $chan 4Disk: $disk(%a).path $+; 4Type: $replace($disk(%a).type,removable,floppy) $+ . }inc %a } }

I have a better solution:

/run .....................

 

 

favourites {  if ($istok(on off,$1,32)) {	set %favourites $1	echo -aq * Favourites are $1  }  elseif ($1 == -a) {	if ($chr(44) isin $2-) {	  tokenize 44 $2-	  .timer 1 0 favourites -a $*	}	else set %favourite_chans $addtok(%favourite_chans,$$2,44)  }  elseif ($1 == -c) {	unset %favourite_chans	echo -aq * Favourite channel list cleared  }  elseif ($1 == -d) {	set %favourite_chans $remtok(%favourite_chans,$$2,1,44)	echo -aq * removed $qt($2) from favourites  }  elseif ($1 == -e) echo -a * Favourite channels: $iif(%favourite_chans,$v1,none)  elseif ($1 == -l) {	echo -a * Favourite channels:	if (%favourite_chans) {	  tokenize 44 $v1	  echo -a $*	}	else echo -a none  }  elseif (!$1) echo -a * Favourites are $iif(%favourites,%favourites,off)}

How the **** is this useful? No-one gives a **** what your favourite chans are

 

 

calc { echo -a $itc1(Calc) $itc2($1-) $itc1($ita) $itc2($xcalc($1-)) }xcalc { var %x $replace($remove($1-,$chr(44),a,c,d,e,f,g,h,i,j,l,n,o,p,q,r,s,u,v,w,x,y,z),k,*1000,m,*1000000,b,*1000000000,t,*1000000000000) | return $bytes($calc(%x),bd) }

/run calc.exe

Needs nothing but any version of windows installed. You obviously don't understand that you can make it not require any theme by just removing $itc1(),

 

 

 

 

http://forum.swiftirc.net/viewforum.php?f=34

 

There you will find some useful scripts among a lot of crap.

[SAGE`]

******* destroyed.

[Asher]

Owned

[Anthoni]

confused.

[Gisele-Bundchen]

Cool Story bro