GeoIP localization for hidden IPs Address. Some IP addresses are not visible because users connect throught Web-Interfaces to IRC. In most cases IP is hidden in the IDENT field as Hex number. In this case this snippet can help to build a correct request for WEB Based GeoIP localization sites. In very few cases the IP is not shown in any way: here there is nothing that I can do. Of course I do not have..
Source code:
Menu channel,status {
♔ --- Text Tricks --->
.gothic:conv $?="Enter the text to be changed"
.script:script $?="Enter the text to be changed"
.double:double $?="Enter the text to be changed"
}
;---
;--- A short alias to change the message font also for the readers
;---
;--- Use: /conv The Quick Brown Fox Jumps Over Lazy Dog
;--- or: //msg nickname $conv( The Quick Brown Fox Jumps Over Lazy Dog )
;--- or: //me $conv( The Quick Brown Fox Jumps Over Lazy Dog )
;--- /script The Quick Brown Fox Jumps Over Lazy Dog
alias conv {
%co = $replacecs($1-, 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,𝖟,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,𝖅,0,𝟎,1,𝟏,2,𝟐,3,𝟑,4,𝟒,5,𝟓,6,𝟔,7,𝟕,8,𝟖,9,𝟗,!,❗,?,❓)
$iif($isid,return,$iif($active ischan,say ,echo 4 -a)) %co
}
alias script {
%co = $replacecs($1-,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,𝓏,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,𝒵,0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,!,!,?,?)
$iif($isid,return,$iif($active ischan,say ,echo 4 -a)) %co
}
alias double {
%co = $replacecs($1-,$&
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,𝕫,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,ℤ,0,𝟘,1,𝟙,2,𝟚,3,𝟛,4,𝟜,5,𝟝,6,𝟞,7,𝟟,$&
8,𝟠,9,𝟡,!,❕,?,❔)
$iif($isid,return,$iif($active ischan,say ,echo 4 -a)) %co
}
try:
on *:join:#: {
if ( $nick == Name1 ) { msg $chan Text for your own 1 | halt }
if ( $nick == Name2 ) { msg $chan Text for your own 2 | halt }
msg $chan Text for your own 3
}