This is a Rock Paper Scissors Lizard Spock game you can play against a bot or another user.
on *:TEXT:*:*: {
tokenize 32 $remove($strip($1-),$chr(1))
if ($1 == `rock) {
if $2 && $istok(r p s l v,$2,32) {
if ($nick isin %rpsls.vs) { var %y = $+($nick,:,$2-11) | set -u30 %rpsls.vs $iif($nick == $gettok(%rpsls.vs,1,46),$+(%y,.,$gettok(%rpsls.vs,2,46)),$+($gettok(%rpsls.vs,1,46),.,%y)) }
if ($var(%rpsls.vs,0) == 0) || ($var(%rpsls.vs,0) == 1 && $numtok(%rpsls.vs,58) == 3) {
if ($0 > 2) {
set %rpsls.track = 0:0
set %rpsls.tie = 0
if ($var(%rpsls.vs,0) == 1) { var %m = $len($remove($rpsls.getvs(1),$chr(32))) , %n = $len($remove($rpsls.getvs(2),$chr(32))) , %p = $iif(%m <= %n,%m,%n) }
var %tt = $2-11
tokenize 32 $iif($var(%rpsls.vs,0) == 1,%rpsls.vs,%tt)
var %x = 1, %t = $iif($var(%rpsls.vs,0) == 1,%p,$iif($0 > 10,10,$0))
while (%x <= %t) {
var %y = $iif($var(%rpsls.vs,0) == 1,$gettok($rpsls.getvs(1),%x,32),$eval($ $+ %x,2))
if $var(%rpsls.vs,0) == 1 { var %o = $gettok($rpsls.getvs(2),%x,32) }
if ($len(%y) = 1) { rpsls %y $iif($var(%o,0) == 1,%o) }
inc %x
}
msg # $iif($gettok(%rpsls.track,1,58) > $gettok(%rpsls.track,2,58),$iif($gettok($gettok(%rpsls.vs,1,46),1,58),$rpsls.getname(1),You),$iif($gettok(%rpsls.track,1,58) == $gettok(%rpsls.track,2,58),$iif($gettok($gettok(%rpsls.vs,2,46),1,58),You,We) both,$iif($gettok($gettok(%rpsls.vs,2,46),1,58),$rpsls.getname(2),I))) won best of $calc($gettok(%rpsls.track,1,58) + $gettok(%rpsls.track,2,58) + %rpsls.tie) : $iif($rpsls.getname(1),$rpsls.getname(1),You) $+ : $gettok(%rpsls.track,1,58) vs $iif($rpsls.getname(1),$rpsls.getname(2),Me) $+ : $gettok(%rpsls.track,2,58) - Tie: %rpsls.tie
}
if ($0 == 2) { rpsls $2 }
}
}
elseif ($getdecodenick($2) != $false) { set -u40 %rpsls.vs $+($nick,.,$ifmatch) | msg # $nick and $ifmatch $+ , you have 30 seconds to type `rock and your choices }
elseif $2 == rules { msg # Rules are: $webreturn Scissors cut paper $+ $ext.stupid(..) $+ Paper disproves Spock $+ $ext.stupid(..) $+ Paper covers rock $webreturn Scissors decapitate lizard $+ $ext.stupid(..) $+ Lizard poisons Spock $+ $ext.stupid(..) $+ Rock crushes lizard $webreturn Spock smashes (or melts) scissors $+ $ext.stupid(..) $+ Spock vaporizes rock $+ $ext.stupid(..) $+ Lizard eats paper | msg # And as always, Rock crushes scissors | msg # http://ih0.redbubble.net/image.13813344.0841/sticker,375x360.u2.png | msg # To verse someone type `rock [their name] then u both have 30 seconds to verse up to 10 times in the next `rock command as you would the bot }
else { msg # $webreturn Use r for rock, p for paper, s for scissors, l for lizard, v for spock $webreturn Can do up to 10 in 1 command. $webreturn ex: `rock r p s l v }
}
}
alias rpsls {
if $istok(r p s l v,$1,32) {
if ($2 && !$istok(r p s l v,$2,32)) { msg # Sorry $gettok($gettok(%rpsls.vs,2,46),1,58) but $2 is invalid | halt }
var %me = $iif($2,$replace($2,r,rock,p,paper,s,scissors,l,lizard,v,spock),$replace($mid($r(11111,99999),3,1),0,rock,1,rock,2,scissors,3,paper,4,lizard,5,spock,6,scissors,7,paper,8,lizard,9,spock)) , %user = $replace($1,r,rock,p,paper,s,scissors,l,lizard,v,spock) , %winner = noone
msg # %user vs %me
if (%me == %user) { msg # Tie! | inc %rpsls.tie }
elseif $rpsls.if(%user,%me,scissors,paper) { var %winner = $rpsls.winner(%me,scissors) | msg # %winner win: Scissors cut paper }
elseif $rpsls.if(%user,%me,paper,rock) { var %winner = $rpsls.winner(%me,paper) | msg # %winner win: Paper covers rock }
elseif $rpsls.if(%user,%me,rock,lizard) { var %winner = $rpsls.winner(%me,rock) | msg # %winner win: Rock crushes lizard }
elseif $rpsls.if(%user,%me,lizard,spock) { var %winner = $rpsls.winner(%me,lizard) | msg # %winner win: Lizard poisons Spock }
elseif $rpsls.if(%user,%me,spock,scissors) { var %winner = $rpsls.winner(%me,spock) | msg # %winner win: Spock smashes (or melts) scissors }
elseif $rpsls.if(%user,%me,scissors,lizard) { var %winner = $rpsls.winner(%me,scissors) | msg # %winner win: Scissors decapitate lizard }
elseif $rpsls.if(%user,%me,lizard,paper) { var %winner = $rpsls.winner(%me,lizard) | msg # %winner win: Lizard eats paper }
elseif $rpsls.if(%user,%me,paper,spock) { var %winner = $rpsls.winner(%me,paper) | msg # %winner win: Paper disproves Spock }
elseif $rpsls.if(%user,%me,spock,rock) { var %winner = $rpsls.winner(%me,spock) | msg # %winner win: Spock vaporizes rock }
elseif $rpsls.if(%user,%me,rock,scissors) { var %winner = $rpsls.winner(%me,rock) | msg # %winner win: Rock crushes scissors }
else { msg # Unknown error: See $eval(%user,0) is %user and $eval(%me,0) is %me | halt }
var %t = $calc($gettok(%rpsls.track,1,58) $iif($istok(You $gettok($gettok(%rpsls.vs,1,46),1,58),%winner,32), + 1)) , %u = $calc($gettok(%rpsls.track,2,58) $iif($istok(I $gettok($gettok(%rpsls.vs,2,46),1,58),%winner,32), + 1))
set %rpsls.track $+(%t,:,%u)
}
else { msg # I'm sorry but $1 is not valid option. Use r for rock, p for paper, s for scissors, l for lizard, v for spock }
}
alias -l rpsls.if {
;$rpsls.if(Person,Bot,option1,option2)
if (($1 == $3) || ($2 == $3)) && (($1 == $4) || ($2 == $4)) { return $true }
else { $false }
}
alias -l rpsls.winner {
return $iif($1 == $2,$iif(%rpsls.vs,$gettok($gettok(%rpsls.vs,2,46),1,58),I),$iif(%rpsls.vs,$gettok($gettok(%rpsls.vs,1,46),1,58),You))
}
alias -l rpsls.getvs {
return $gettok($gettok(%rpsls.vs,$1,46),2,58)
}
alias -l rpsls.getname {
return $gettok($gettok(%rpsls.vs,$1,46),1,58)
}
alias -l webreturn { return $+($chr(226),$chr(128),$chr(169)) }
;Thia msn.decode is originally from Vincula by eXonyte
alias -l msn.decode {
var %r, %l 1
%r = $replace($1-,∞,8,ï‚°,*,♡,O,√,v,Ẵ,A,ẅ,w,áº,a,â—Š,•,à¸,w,Ẁ,W,Ǥ,G,―,—,ä,ä,Õ¤,n,Ð¥,X,â–“,·,Ã,Ð,Â¥,¥,ế,ê,¤,¤,Ť,T,Ù¤,~,º¢Ä,Ï,°Å¤,T,Ĥ,H,≤,‹,ï‚,B,ï‚ ,Ûž,ï€>,-,,-,ï€,-,™Ì, ,̃, ,ஃ,•,á½²,è,צ,ÿ,É™,ê,Ù‡,×,Ë›,ˆ,ˇ,¸,Ø¡,·,♣,•,ஜ,~,ặ,â,ï´¿,›,Õ,Ö,â€, ,‎, ,¼·,ï,ἕ,ë,ï´¾,‹,Ù¼,~,ï·²,~,Ò¢,H,Ú´,¿,Ú‡,¿,Ú¾,¿,ắ,a,»•,o,Û•,•,≡,-,ḑ,d,Ḱ,K,ṇ,n,ḣ,h,á¹,t,ï„‚,o,ï„„,s,☺,º,Ç«,ò,ï,X,ÙŒ,`,ẵ,a,Æ,B,Ä«,i,Ç¥,g,☼,*,Ṃ,M,ṟ,R,Ò¼,e)
%r = $replace(%r,È›,t,Æ´,y,Æœ,W,Ẅ,W,Ṩ,S,Ḳ,K,Ẏ,Y,Ṙ,R,Ὀ,O,á´„,c,Ḱ,K,Ḕ,E,Ṫ,T,Ḅ,B,á¹´,U,ả,a,Ú¼,U,ï…,E,ïƒ,C,ï,A,ï’,R,ï‹,K,ï¹,y,ﺘ,i,ﺉ,s,דּ,t,טּ,u,ﻉ,e,ï«,k,ï†,F,ïµ,u,ï§,g,Χ,X,,>,,$chr(37),,8,ï¤,d,ï,m,ï¨,h,ï»›,s,ï‡,G,ï,M,ï¬,l,ï³,s,ïŸ,_,ï”,T,ï²,r,ï¡,a,ï®,n,ï£,c,ï¥,e,ïŽ,N,ï¡,a,ï´,t,ï©,i,ï¯,o,ï®,n,ï¦,f,ï·,w,ïœ,\,ï¼,|,ï€,@,ï,P,ï„,D,,',ï€ , ,,$chr(40),,$chr(41),,*,,:,ï›,[,ï,],ï°,p,,·)
%r = $replace(%r,å,*,Ò±,Y,χ,X,ņ,n,Ω,n,»·,y,Ñ€,p,Ð ,P,Å™,r,Ñ…,x,Ä®,I,Ä»,L,Ф,o,Ĉ,C,Å,o,Å©,u,Å„,n,Ä¢,G,Å»,r,Å›,s,Ä·,k,Å–,R,×–,i,ε,e,ק,r,Ñ›,h,м,m,ØŒ,·,Ä«,i,‘,‘,’,’,Û±,',Ä“,e,¢,¢,ï“,S,•,•,ï,O,ï‰,I,Ά,A,ÑŠ,b,ŠÏ,T,Φ,o,Ђ,b,Ñ,r,Ð,E,д,A,К,K,ÄŽ,D,и,n,θ,o,Ðœ,M,Ї,I,Т,T,Є,e,Ǻ,A,ö,ö,–,–,·,·,Ö,Ö,Ãœ,Ü,Ë,Ë,Ñ»,s,Ä…,a,Ä,i,й,n,в,b,о,o,ш,w,Äž,G,Ä‘,d,з,e)
%r = $replace(%r,É„,U,~,~,Ŧ,T,α,a,ÄŸ,g,ú,ú,Å”,R,Ä„,A,ć,c,Ä,Ð,Κ,K,Ñž,y,µ,µ,Ã,Í,‹,‹,¦,¦,û,û,Ù,Ù,À,À,Î ,N,Ò“,f,ΰ,u,Ä¿,L,Å,o,Ï‚,c,Ä‹,c,ħ,h,į,i,ŧ,t,Ζ,Z,Þ,Þ,þ,þ,ç,ç,á,á,¾,¾,ž,ž,Ç,Ç, $+ $chr(173),-,Ã,Á,…,…,¨,¨,ý,ý,ˉ,¯,â€,”,Û,Û,ì,ì,Ï,p,Î,e,г,r,à ,à,È,È,¼,¼,ĵ,j,ã,ã,Ä™,e,ÅŸ,s,º,º,Ñ,Ñ,ã,ã,Æ,Æ,Ëš,°,Я,R,Ëœ,˜,ÃŽ,Î,Ê,Ê,Ã,Ý,Ã,Ï,É,É,‡,‡)
%r = $replace(%r,á¹–,P,á¹³,u,á¹—,p,ḙ,e,á¹,t,Ṍ,O,ṋ,n, á¸,a,Ṧ,S,á¹,t,ṟ,r,á¸,i,ṉ,n,ḡ,g,ღ,*,Ḅ,B,á¹´,U,Ṙ,R,á¹®,T,Ș,S,ÃŒ,Ì,ª,ª,ó,ó,â„¢,™,Ã’,Ò,Ã,í,¿,¿,Ä,Ä,¶,¶,ü,ü,Æ’,ƒ,ð,ð,ò,ò,õ,õ,¡,¡,é,é,ß,ß,¤,¤,×,×,ô,ô,Å ,Š,ø,ø,›,›,â,â,î,î,€,€,Å¡,š,ï,ï,ÿ,ÿ,Ń,N,©,©,®,®,û,û,†,†,°,°,§,§,±,±,²,²,è,è,•,»,Ûž,¤,áº,z,↔,-,♪,•,∕,/,á¹—,p,Û´,¥,â„…,·/·,*,*,ï½—,w, ,$chr(160),ฑ,n,Ề,E,ã€,[,】,])
%r = $replace(%r,ﺈ,l,ÎŒ,O,Ň,N,Û°,·,Ä´,J,І,I,Σ,E,ι,i,Å,O,δ,o,×¥,y,ν,v,×¢,y,מ,n,Ž,Ž,Å‘,o,ÄŒ,C,Ä—,e,₤,L,ÅŒ,O,ά,a,Ä ,G,Ω,O,Ð,H,ể,e,Ж,K,á»,e,ế,e,á»—,o,Å«,u,â‚£,F,∆,a,Ắ,A,ủ,u,Ķ,K,Ť,T,Åž,S,Θ,O,Ш,W,Î’,B,П,N,ẅ,w,ﻨ,i,ﯼ,s,ÑŸ,u,Ñ’,h,¹,¹,Ỳ,Y,λ,a,С,C,Ð $+ $chr(173),E,Å°,U,Ī,I,Ä,c,Ä”,E,Åœ,S,Ị,I,Ä,g,Å€,l,Ñ—,i,Ù,*,ʼn,n,Ħ,H,Д,A,Îœ,M,Ñ‘,e)
%r = $replace(%r,Ц,U,Ñ,e,“,“,Ñ„,o,у,y,Ñ,c,к,k,Ã…,Å,Ƥ,P,â„ž,R,ï “,I,ɳ,n,Ê—,c,â–«,·,Ñ“,r,ệ,e,ẳ,a,ů,u,Ľ,L,Æ°,u,·,·,Ë™,',η,n,â„“,e,Â,,Â,,Â,,×€,i,Ä¡,g,ŠÅ´,W,Δ,A,ﮊ,J,μ,µ,Ÿ,Ÿ,Ä¥,h,β,ß,Ь,b,ų,u,Ñ”,e,ω,w,ÄŠ,C,Ñ–,i,Å‚,l,Ç¿,o,∫,s,ż,z,Å£,t,æ,æ,≈,-,Å,L,Å‹,n,Ú¯,S,Ä,d,ψ,w,σ,o,Ä£,g,Ή,H,Î,i,Ò‘,r,κ,k,ÅŠ,N,œ,\,,/,¬,¬,щ,w,Û»,o)
%r = $replace(%r,Ïœ,F,Ê’Ì…,E,×,o,³,³,½,½,Ä°,I,ľ,l,Ä»,e,Å¢,T,Å,s,Å·,y,ľ,l,Ä©,i,Ô,Ô,Åš,S,Ĺ,L,а,a,е,e,Ρ,P,Ј,J,Î,N,Ç»,a,Ñ’,h,ή,n,ί,i,Å’,Œ,¯,¯,Ä,a,ŵ,w,Â,Â,Ã,Ã,н,H,ˇ,',¸,¸,Ì£,$chr(44),Ø·,b,Ó,Ó,Й,N,«,«,ù,ù,Ø,Ø,ê,ê,ű,û,ῶ,w,á¿–,i,ž,,à®,°,Õ¦,q,Õ¯,u,â””,L,Ö¶,::,Ö²,–,Ö°,.,Öµ,..,Ö´,.,仓,Å,『,¯,â„›,,â„°,)
%r = $replace(%r, ï´¾,$chr(40),Í¡,^,à¹,o, ̯,^,ï´¿,$chr(41),ا,I,л,n,Ñ‹,bl,б,6,ש,w,※,-,Ϊ,I,ï ,`,Å,u,á»»,o,Ǿ,Ø,ẫ,a,ầ,a,ï±,q,Ĥ,H,á»,o,−,-,ïž,^,ล,a,Äœ,G,ﺯ,j,Ù‰,s,Ѓ,r,ứ,u,â—,·,Ï,u,,0,,7,,",Ó©,O,Ç,i,Ç‘,O,Æ ,O,,2,Ò¯,y,ï¶,v,Ð,A,≥,›,ẩ,a,ïˆ,H,Ù¤,e,ﺂ,i,ÐŒ,K,Ū,U,,;,ă,a,ĸ,k,Ć,C,Ĭ,I,ň,n,Ĩ,I,Ι,I,Ϋ,Y,ïŠ,J,ï˜,X,ï½,$chr(125),ï»,$chr(123),Ξ,E)
%r = $replace(%r,☆,*,ˆ,^,ï–,V,ïŒ,L,γ,y,ﺎ,i,Î,o,ỳ,y,Ć,C,Ĭ,I,ĸ,k,Ŷ,y,๛,c,ỡ,o,๓,m,ﺄ,i,ïŽ,G,Ŭ,U,Ä’,E,Ä‚,A,÷,÷, , ,‚,‚,„,„,ˆ,ˆ,‰,‰,ă,a,ï¸,x,,-,Ù‚,J,,?,,-,Ñ‚,T,Ä€,A,ï‡,P,Ä–,E,Ę,E,ο,o,Ï‹,u,‼,¡¡,ט,u,ï®’,S,Ч,y,Ò,r,Ä›,e,Ę,E,ĺ,I,Λ,a,ο,o,Ú,Ú,Ř,R,Ư,U,Å“,œ,ï€,-,—,—,ห,n,ส,a,à¸,s,Ψ,Y,Ẫ,A,Ï€,n,Å…,N,Ø!,o)
%r = $replace(%r,ד,t,Ћ,h,ợ,o,ĉ,c,â—¦,·,ﮎ,S,Ų,U,л,E,Ð…,S,Ûµ,º,ÙŠ,S,ب,u,Ø©,o,ئ,s,ļ,l,ı,i,Å—,r,ж,x,Î…,",ÏŽ,w,â–ª,·,ζ,L,Щ,W,฿,B,ỹ,y,ÏŠ,i,Å¥,t,п,n,´,´,Ú©,s,ï±¢,*,ξ,E,Ñœ,k,√,v,Ï„,t,Ã,Ð,£,£,ñ,ñ,Â¥,¥,ë,ë,Ã¥,å,ï™,Y,ÇŽ,a,З,e,À`, ,♫,¶,Å´,W,๕,<,๖,>,,«,〖,[,〗,],â• ,|,â•£,|,Á¯,o,Û¶*,*,â—˜,,ṃ,m,á¼,E)
%r = $replace(%r,ằ,a, , ,Ο,O,₪,n,Ậ,A,ï‚£,£,ïƒ ,à,ï‚®,®,,á,ï‚©,©,,õ,á»,o,â€, ,Ö±,¸,Ö¾,-,הּ,n,ź,z,‌, ,Ù,',๘,c,ฅ,m,Â,,,<,â–¼,v,ﻜ,S,â„®,e,ź,z,๑,•,Û©,•,ï¬,fi,ÑŒ,b,ﺒ,·,ﺜ,:,ศ,a,ภ,n,à¹,o,ะ,-,ï†,y,ซ,i,‾,¯,∂,a,:,:,≠,-,,+,Ù…,r,ồ,o,Ử,U,Л,N,Ó’,A,Ọ,O,Ẅ,W,á»´,Y,ﺚ,u,ﺬ,i,ïº,u,Å»,Z,ï®»,S)
%r = $replace(%r,ﺳ,w,ﯽ,u,ﺱ,uw,ﻚ,J,ﺔ,a,,!,á»…,e,Ù„,J,ر,j,Ù€,_,ÏŒ,o,â‚«,d,â„–,no,ữ,u,Äš,E,φ,o,ï» ,I,ц,u,,A,,N,Њ,H,Έ,E,ï¾,~,ï»,U,ạ,a,,1,,4,,3,ỉ,i,λ,E,Ð,U,Ùƒ,J,★,*,ï¢,b,,$chr(35),,$,â—‹,o,ÑŽ,10,ỵ,y,áº,w,Ò›,k,Ù¿,u,♂,o,ïŠ,n,Ù¥,o,ï®,S,â¿,n,ï»—,9,ï¢,b,,$chr(35),,$,â—‹,o,ÑŽ,10)
%r = $replace(%r,ị,i,Α,A, , ,ﻩ,o,ï»,E,Ù†,u,ẽ,e,Ø«,u,ã…“,t,Ó›,e,Ó˜,E,ﻘ,o,Û·,v,שׁ,w,ụ,u,ÅŽ,O,Â,,á»±,u,J,J,ï½…,e,ï½,a,ï¼®,N,(,$chr(40),ï¼ ,@,ï½€,`,.,·,′,',),$chr(41),â–¬,-,â—„,<,â–º,>,∑,E,Ö»,$chr(44),‬,|,‎,|,‪,|,‫,|,Ộ,O,И,N,ï—,W,ïº,z,Àj,*,ج,c,â–’â–’â–’,¤,â–’,|,Û²,·,Û³,`,¥º,|,Г,R)
%r = $replace(%r,ṕ,p,ḯ,i,ṋ,n,ḱ,k,ס,o,⻳,X,Ù ,·,Ò’,F,Ï…,u,â€,,Ö¼,·,Ç”,u,ผ,w,Ằ,A,Ấ,A,»,»,ﺖ,u,ố,o,ﮓ,S,ở,o,ﺻ,u,ï®”,S, Òœ,K,♦,·,‗,_,ﻈ,b,ฬ,w,אּ,x,ï‚,-,ข,u,ท,n,Ờ,O,Ặ,A,á»,u,Ễ,E,ਹ,J, Ù‡,o,â– ,·,Æ¡,o,ï¿,,Ò£,h,Òš,K,Ò²,X,Ò³,x,Òœ,K,ع,E,Ú†,c,ч,y,Ù¦,7,Ö½,·,ÙŽ,',Ö¿,',׃,:,á»,o,Ò–,X,ÛŒ,s,ฬ,w,∙,·,ḉ,c)
%r = $replace(%r,Τ,T,â“’,c,â“,a,â“Ÿ,p,â“”,e,â“£,t,Ç,A,Ö³,·,ÛŒ,s,Ỉ,I,̉,',ïš,Z,á»,o,ẹ,e,Ò,k,ﺖ,u,ố,o,ﮓ,S,ở,o,ﺻ,u,Òš,K,ïš,Z,Ì»,',├,|,┤,|,Ø£,I,‹,,×,x,ặ,a,Ç’,o,Ờ,O,☼,¤,×,·,ïš,Z,ฤ,n,â‘·,4,⑵,2,â’ª,0,เ,i,ﺇ,i,Ð’,B,ừ,u,Ò°,Y,Ở,O,á»”,O,ž,z,ÌÌÌÌ,`,΄,',♀,O,⻢,||,Ó™,e,ï®,S,Ø¢,i,¸”l,l,¸”m,m)
%r = $replace(%r,ﺙ,u,ÃÐ,D,לּ,h, ÎŽ,Y,Ẳ,A,×›,c,ﺸ,_,ﺷ,_,â–²,»,Ẵ,a,†¨,i,ј,J,ǽ,e,º¢,y,Ö¸,_,á»™,o,ธ,s,ฟ,W,¿xï´¿,|,ï´¾,l,Ø®,c,ï„,g,ร,s,ค,a,๔,c,à¸z,w,Ò¹,y,ﺤà¸,--,ฮ,a,-à¸,y,à¸,y,¯Ò,o,±oy‘,n,ẻî ,e,·î ˜c·,-,·cî ˜·,-,y¡,u,Û¸,a,Ù¨,a,Ù§,v,Ẹ,E,º¥Í,l,─,-,T‚,c,Å¿,l,ﻸ,k,ﻼ,k,שּׁ,w,ï¬,w,á»›,ó,Ε,E,Ũ,Û,È™,s)
%r = $replace(%r,※,*,∽,8,Ê’,E,ÐŽ,Y,âˆz,-,×—,o,ẻ,e,ï»z,J,Ǽ,AE,×’,a,,a,Ù¡Î,i,“á,r,»°,u,, ,y»,a,y‡,v,ﺩ,c,y²,r,ﺓ,-,ï,o,Ì€Ì,n,̃',y,פ,D,â»,|,⻣, |,ๅ,l,à¹,o,Ùo,o,ﻢ,o,ﻤ,o,Η,h,Ö¹,-,ä,a,ù,u,Û¼,E,ï‹,i,Æ,e,ï€ ,$chr(32),♥,¥,☻,•,Ñ•,s,â–ˆ,$chr(23),Ä•,e,ẃ,w,Ò»,h,,s,Å•,r,ו,i,ל,7,á¼±,i,Ъ,b,ஓ,_,yº,º,Õ¹,£,Õ¨,n,Õ¬,L,Ô¸,C,Ô»,r,Õ´,u,Õ,S,Ï°,Ï,â™ ,•,Ù¾c,7)
return %r
}
alias -l getdecodenick {
var %i 1
while (%i <= $nick($iif($chan != $null,$chan,$active),0)) {
if ($+(*,$nick.decodemore($msn.decode($replace($1-,$chr(32),*))),*) iswm $nick.decodemore($msn.decode($nick($iif($chan != $null,$chan,$active),%i)))) {
if ($nick($iif($chan != $null,$chan,$active),%i) == $me) { goto notme }
return $nick($iif($chan != $null,$chan,$active),%i)
halt
}
:notme
inc %i
}
return $false
}
alias -l nick.decodemore {
var %n, %l 1
%n = $replace($1-,€,E,ƒ,f,†,T,‡,T,Š,S,š,s,Ÿ,Y,¡,!,¢,c,£,L,¥,Y,§,S,©,C,«,<,®,R,µ,u,¶,P,»,>,¿,?,À,A,Á,A,Â,A,Ã,A,Ä,A,Å,A,Ž,Z,™,tm,·,.,¬,-)
%n = $replace(%n,Ç,C,È,E,É,E,Ê,E,Ë,E,Ì,I,Í,I,Î,I,Ï,I,Ð,D,Ñ,N,Ò,O,Ó,O,Ô,O,Õ,O,Ö,O,×,x,Ø,O,Ù,U,Ú,U,Û,U,Ü,U,Ý,Y,Þ,P,ß,B,à,a,á,a,¤,*,°,0,º,0)
%n = $replace(%n,â,a,ã,a,ä,a,å,a,ç,c,è,e,é,e,ê,e,ë,e,ì,i,í,i,î,i,ï,i,ð,o,ñ,n,ò,o,ó,o,ô,o,õ,o,ö,o,ø,o,ù,u,ú,u,û,u,ü,u,ý,y,þ,p,ÿ,y,ª,a,•,.)
return %n
}