Top

Fun Talkers


mIRC Code
+ 1 likes
Please Register to submit score.
Bookmark and Share
Average Score  7.3 (of 3 scores)
Date Added  Jan 23, 2006
Last Updated  Jan 23, 2006

Introduction

Place the first part into your alias then the second into your popups section(anyone, channel,query, status, whichever you choose).


[11:36] <~Edge> testing, one two three.
[11:36] <~Edge> CaPS/BoLD/uNDeRLiNe/CoLoR TeSTiNG
[11:36] <~Edge> å§©ïï tê§tïñG
[11:36] <~Edge> ŧÇÎβ TʧtÎÑg

Grab the Code

######### ALIAS #######
/ra {
  set %rainbow $1-
  %rainbow = $replace(%rainbow,a,2a)
  %rainbow = $replace(%rainbow,b,3b)
  %rainbow = $replace(%rainbow,c,4c)
  %rainbow = $replace(%rainbow,d,6d)
  %rainbow = $replace(%rainbow,e,12e)
  %rainbow = $replace(%rainbow,f,13f)
  %rainbow = $replace(%rainbow,g,14g)
  %rainbow = $replace(%rainbow,h,15h)
  %rainbow = $replace(%rainbow,i,2i)
  %rainbow = $replace(%rainbow,j,3j)
  %rainbow = $replace(%rainbow,k,4k)
  %rainbow = $replace(%rainbow,l,6l)
  %rainbow = $replace(%rainbow,m,12m)
  %rainbow = $replace(%rainbow,n,13n)
  %rainbow = $replace(%rainbow,o,14o)
  %rainbow = $replace(%rainbow,p,2p)
  %rainbow = $replace(%rainbow,q,3q)
  %rainbow = $replace(%rainbow,r,4r)
  %rainbow = $replace(%rainbow,s,6s)
  %rainbow = $replace(%rainbow,t,12t)
  %rainbow = $replace(%rainbow,u,13u)
  %rainbow = $replace(%rainbow,v,14v)
  %rainbow = $replace(%rainbow,w,15w)
  %rainbow = $replace(%rainbow,x,2x)
  %rainbow = $replace(%rainbow,y,3y)
  %rainbow = $replace(%rainbow,z,4z)
  say %rainbow
  unset %rainbow
}
/ra2 {
  %rainbow = $1-
  set %rainbow $replace(%rainbow,a,4a)
  set %rainbow $replace(%rainbow,b,3B)
  set %rainbow $replace(%rainbow,c,6C) 
  set %rainbow $replace(%rainbow,d,7D) 
  set %rainbow $replace(%rainbow,e,4e) 
  set %rainbow $replace(%rainbow,f,12F) 
  set %rainbow $replace(%rainbow,g,13G) 
  set %rainbow $replace(%rainbow,h,6H) 
  set %rainbow $replace(%rainbow,i,4i) 
  set %rainbow $replace(%rainbow,j,J) 
  set %rainbow $replace(%rainbow,k,3K) 
  set %rainbow $replace(%rainbow,l,L) 
  set %rainbow $replace(%rainbow,m,4M) 
  set %rainbow $replace(%rainbow,n,6N)
  set %rainbow $replace(%rainbow,o,4o) 
  set %rainbow $replace(%rainbow,p,12P) 
  set %rainbow $replace(%rainbow,q,Q) 
  set %rainbow $replace(%rainbow,r,13R) 
  set %rainbow $replace(%rainbow,s,7S) 
  set %rainbow $replace(%rainbow,t,T) 
  set %rainbow $replace(%rainbow,u,4u) 
  set %rainbow $replace(%rainbow,v,V) 
  set %rainbow $replace(%rainbow,w,12W) 
  set %rainbow $replace(%rainbow,x,7X) 
  set %rainbow $replace(%rainbow,y,Y) 
  set %rainbow $replace(%rainbow,z,6z) 
  set %rainbow $replace(%rainbow,?,12¿15?) 
  say %rainbow
  unset %rainbow
}
/ascii {
  set %ascii $1-
  %ascii = $replace(%ascii,a,å)
  %ascii = $replace(%ascii,b,ß)
  %ascii = $replace(%ascii,c,©)
  %ascii = $replace(%ascii,d,Ð)
  %ascii = $replace(%ascii,e,ê)
  %ascii = $replace(%ascii,f,F)
  %ascii = $replace(%ascii,g,G)
  %ascii = $replace(%ascii,h,h)
  %ascii = $replace(%ascii,i,ï)
  %ascii = $replace(%ascii,j,j)
  %ascii = $replace(%ascii,k,K)
  %ascii = $replace(%ascii,l,£)
  %ascii = $replace(%ascii,m,m)
  %ascii = $replace(%ascii,n,ñ)
  %ascii = $replace(%ascii,o,ð)
  %ascii = $replace(%ascii,p,þ)
  %ascii = $replace(%ascii,q,q)
  %ascii = $replace(%ascii,r,®)
  %ascii = $replace(%ascii,s,§)
  %ascii = $replace(%ascii,t,t)
  %ascii = $replace(%ascii,u,ü)
  %ascii = $replace(%ascii,v,v)
  %ascii = $replace(%ascii,w,W)
  %ascii = $replace(%ascii,x,×)
  %ascii = $replace(%ascii,y,¥)
  %ascii = $replace(%ascii,z,z)
  %ascii = $replace(%ascii,?,¿)
  %ascii = $replace(%ascii,!,¡)
  say %ascii
  unset %ascii
}
/asciic {
  %ascii = $1-
  %ascii = $replace(%ascii,1,¹)
  %ascii = $replace(%ascii,2,²)
  %ascii = $replace(%ascii,3,³)
  %ascii = $replace(%ascii,1/4)
  %ascii = $replace(%ascii,1/2)
  %ascii = $replace(%ascii,3/4)
  %ascii = $replace(%ascii,AE,Æ)
  %ascii = $replace(%ascii,A,Å)
  %ascii = $replace(%ascii,B,ß)
  %ascii = $replace(%ascii,C,Ç)
  %ascii = $replace(%ascii,D,Ð)
  %ascii = $replace(%ascii,E,Ê)
  %ascii = $replace(%ascii,I,Î)
  %ascii = $replace(%ascii,L,£)
  %ascii = $replace(%ascii,N,Ñ)
  %ascii = $replace(%ascii,O,Ô)
  %ascii = $replace(%ascii,R,®)
  %ascii = $replace(%ascii,S,§)
  %ascii = $replace(%ascii,U,Û)
  %ascii = $replace(%ascii,Y,¥) { 
    set %ascii1 %ascii
    unset %ascii
    set %ascii 
    set %asciicnumber 1 
    set %asciiccolor 2
    :continue
    if $mid(%ascii1,%asciicnumber,1) != $null {
      ;set %kaaaa7  $+ %asciicolor $+ $mid(%ascii1,%asciinumber,1) $+ 1
      ;set %ascii %ascii [ $+ [ %kaaaa7 ] ]
      set %ascii %ascii $+  $+ %asciiccolor $+ $mid(%ascii1,%asciicnumber,1) $+ 
      inc %asciicnumber
      If ( %asciiccolor == 15 ) set %asciiccolor 1
      inc %asciiccolor
      goto continue
    }
    say %ascii
    unset %ascii 
    unset %ascii1 
    unset %asciiccolor
    unset %asciicnumber
  }
} 
############# POPUPS ##############
&FunTalkers
.Rainbow
..Rainbow1:ra $$?="Say what?"
..Rainbow2:ra2 $$?="Say what?"
.ASCII
..ASCII:ascii $$?="What to say?"
..ASCII2:asciic $$?="What to say?"

Comments

  (12)  RSS
sean
Comments: 109
 
mIRC Snippet:  Fun Talkers
Posted on Jan 23, 2006 11:56 am
very sloppy, could be done with way less then what u have
Cross
Comments: 7
 
mIRC Snippet:  Fun Talkers
Posted on Jan 23, 2006 11:58 am
Sorry, but it's my scripting style and the way I script.
xDaeMoN
Comments: 695
 
mIRC Snippet:  Fun Talkers
Posted on Jan 23, 2006 12:10 pm
You can have many words to be replaced with just 1 $replace & that would lessen up your code.

See /help $replace
xDaeMoN
Comments: 695
 
mIRC Snippet:  Fun Talkers
Posted on Jan 23, 2006 12:14 pm
*words/characters
sean
Comments: 109
 
mIRC Snippet:  Fun Talkers
Posted on Jan 23, 2006 12:17 pm
also, var helps that way u don't have to unset so many variables ;)
Yoinx
Comments: 424
 
mIRC Snippet:  Fun Talkers
Posted on Jan 23, 2006 3:10 pm
now, Im not trying to rip on anything, I just want to point out two seperate ways to do this (my regex example might not be the best way to do it though.)

alias ra say $replace($1-,a,2a,b,3b,c,4c,d,6d,e,12e,f,13f,g,14g,h,15h,i,2i,j,3j,k,4k,l,6l,m,12m,n,13n,o,14o,p,2p,q,3q,r,4r,s,6s,t,12t,u,13u,v,14v,w,15w,x,2x,y,3y,z,4z)

alias ra {
.echo -q $regsub($1-,/(.)(.?)(.?)(.?)(.?)(.?)(.?)(.?)(.?)(.?)(.?)(.?)(.?)(.?)(.?)(.?)/ig,0\11\22\33\44\55\66\77\88\99\1010\1110\1111\1212\1313\1414\1515\16,%text)
say %text
}


personally, Id combine them all into the single replace method for each alias... just makes it a little faster, since you're only making one call to $replace, instead of 26. However, the $regex method, wont change the case of characters, where the replace would replace K with k
FiberOPtics
Comments: 28
 
mIRC Snippet:  Fun Talkers
Posted on Jan 23, 2006 3:25 pm
Use $replacecs if you want case sensitivity.
Yoinx
Comments: 424
 
mIRC Snippet:  Fun Talkers
Posted on Jan 23, 2006 3:44 pm
wwo, I really shoulda seperated those into multiple lines

:s
RoninWarrior
Comments: 252
 
mIRC Snippet:  Fun Talkers
Posted on Jan 23, 2006 3:45 pm
lol @yonix
gates
Comments: 2
 
mIRC Snippet:  Fun Talkers
Posted on Jan 23, 2006 5:25 pm
umm u sould really use the Chr of everything..

..u sould lik get the Asc number for all eff them and put it in ur $chr(number) ..ye
Gex
Comments: 94
 
mIRC Snippet:  Fun Talkers
Posted on Jan 23, 2006 9:09 pm
u dont need to use allllllll of this line...simply u can replace all the characters in one line of $replace....like this
$replace(string,s,S,t,T,r,R,i,I,n,N,g,G) that will give u STRING ... so u dnt have to use all these
Abbas
Comments: 15
 
mIRC Snippet:  Fun Talkers
Posted on Oct 30, 2007 1:23 pm
nice work

Commenting Options

Register or Login to Hawkee.com or use your Facebook or Twitter account by clicking the corresponding button below.

  
Bottom