HaCKeRz KrOnIcKLeZ 3/HaCKeRz_KrOnIcKLeZ.iso/scriptz/laserscode.txt

Text File | 1996-04-23 | 2KB | 88 lines

Encode/Decode for mIRC 4.7
LaSeRs CoDe by Laserkid
-----

-Everyone with the code must be set to uselevel 15
-Type /ec <text> to send

-----

Popups Name List:

Code Users
.Add to List: /auser -a =15 $1 3
.Remove From List: /ruser 15 $address($1,3)
-----

Events:

+15:ON TEXT:4,1LaSeRs CoDe*:#:echo 4 $chan $nick $decode($parm2*)
+15:ON TEXT:4,1LaSeRs CoDe*:?:echo 4 $nick $decode($parm2*)
--

Aliases:

ec say $encode(*1)
decode {
  set %bd *1
  set %bd $replace(%bd,▒,a)
  set %bd $replace(%bd,_,b)
  set %bd $replace(%bd,╧,c)
  set %bd $replace(%bd,⌡,d)
  set %bd $replace(%bd,⌠,e)
  set %bd $replace(%bd,≤,f)
  set %bd $replace(%bd,±,g)
  set %bd $replace(%bd,▓,h)
  set %bd $replace(%bd,»,i)
  set %bd $replace(%bd,═,j)
  set %bd $replace(%bd,∞,k)
  set %bd $replace(%bd,δ,l)
  set %bd $replace(%bd,Ω,m)
  set %bd $replace(%bd,╔,n)
  set %bd $replace(%bd,╟,o)
  set %bd $replace(%bd,,╞,p)
  set %bd $replace(%bd,ª,q)
  set %bd $replace(%bd,º,r)
  set %bd $replace(%bd,α,s)
  set %bd $replace(%bd,└,t)
  set %bd $replace(%bd,╢,u)
  set %bd $replace(%bd,ó,v)
  set %bd $replace(%bd,ú,w)
  set %bd $replace(%bd,▐,x)
  set %bd $replace(%bd,▀,y)
  set %bd $replace(%bd,┐,z)
  return %bd
}
encode {
  set %bd *1
  set %bd $replace(%bd,a,▒)
  set %bd $replace(%bd,b,_)
  set %bd $replace(%bd,c,╧)
  set %bd $replace(%bd,d,⌡)
  set %bd $replace(%bd,e,⌠)
  set %bd $replace(%bd,f,≤)
  set %bd $replace(%bd,g,±)
  set %bd $replace(%bd,h,▓)
  set %bd $replace(%bd,i,»)
  set %bd $replace(%bd,j,═)
  set %bd $replace(%bd,k,∞)
  set %bd $replace(%bd,l,δ)
  set %bd $replace(%bd,m,Ω)
  set %bd $replace(%bd,n,╔)
  set %bd $replace(%bd,o,╟)
  set %bd $replace(%bd,p,╞)
  set %bd $replace(%bd,q,ª)
  set %bd $replace(%bd,r,º)
  set %bd $replace(%bd,s,α)
  set %bd $replace(%bd,t,└)
  set %bd $replace(%bd,u,╢)
  set %bd $replace(%bd,v,ó)
  set %bd $replace(%bd,w,ú)
  set %bd $replace(%bd,x,▐)
  set %bd $replace(%bd,y,▀)
  set %bd $replace(%bd,z,┐)
  set %bd 4,1LaSeRs CoDe1,0 %bd
  return %bd
}