[script]
n0=alias desmorse echo $leemorse($1-)
n1=
n2=alias morse say $replace($1-,a,%m.a,b,%m.b,c,%m.c,d,%m.d,e,%m.e,f,%m.f,g,%m.g,h,%m.h,i,%m.i,j,%m.j,k,%m.k,l,%m.l,m,%m.m,n,%m.n,o,%m.o,p,%m.p,q,%m.q,r,%m.r,s,%m.s,t,%m.t,u,%m.u,v,%m.v,w,%m.w,x,%m.x,y,%m.y,z,%m.z,0,%m.0,1,%m.1,2,%m.2,3,%m.3,4,%m.4,5,%m.5,6,%m.6,7,%m.7,8,%m.8,9,%m.9,$chr(32),/) | echo acabo de decir: $1-
n3=
n4=on *:TEXT:*:*: {
n5=  if (·/ isin $1-) || (-/ isin $1-) { echo $iif($chan,$chan,$nick) $leemorse($1-) }
n6=  else { halt }
n7=}
n8=
n9=
n10=alias leemorse {
n11=  var %resp
n12=  var %e $replace($1-,//,/ $+ $chr(43) $+ /)
n13=  var %a 1
n14=  var %r $count(%e,/)
n15=  while (%a <= %r) {
n16=    var %m = $gettok(%e,%a,47)
n17=    var %p 97
n18=    var %q 122
n19=    while (%p <= %q) {
n20=      if ($left(%m. [ $+ [ $chr(%p) ] ],$calc($len(%m. [ $+ [ $chr(%p) ] ]) - 1)) == %m) {
n21=        var %resp = %resp $+ $chr(%p)
n22=      }
n23=      if ($chr(43) == %m) {
n24=        var %resp %resp $+ %m
n25=      } 
n26=      inc %p
n27=    }
n28=    inc %a
n29=  }
n30=  return $replace(%resp,$chr(43),$chr(32))
n31=}

[variables]
n0=%m.a ·-/
n1=%m.b -···/
n2=%m.c -·-·/
n3=%m.d -··/
n4=%m.e ·/
n5=%m.f ··-·/
n6=%m.g --·/
n7=%m.h ····/
n8=%m.i ··/
n9=%m.j ·---/
n10=%m.k -·-/
n11=%m.l ·-··/
n12=%m.m --/
n13=%m.n -·/
n14=%m.o ---/
n15=%m.p ·--·/
n16=%m.q --·-/
n17=%m.r ·-·/
n18=%m.s ···/
n19=%m.t -/
n20=%m.u ··-/
n21=%m.v ···-/
n22=%m.w ·--/
n23=%m.x -··-/
n24=%m.y -·--/
n25=%m.z --··/
n26=%m.0 -----/
n27=%m.1 ·----/
n28=%m.2 ··---/
n29=%m.3 ···--/
n30=%m.4 ····-/
n31=%m.5 ·····/
n32=%m.6 -····/
n33=%m.7 --···/
n34=%m.8 ---··/
n35=%m.9 ----·/
n36=%paro si
n37=%tmp.a.numsg
n38=%paner.ult )&(
n39=%barracid 1
n40=%sba.ls1.notify
n41=%idioma