Omwisselaar

; typ "/enable #dt" of "/dt" om het aan te zetten.
; en "/disable #dt" of "/nodt" om t weer uit te zetten.

#dt off
on *:INPUT:*:{
  if (/* !iswm $1) {
    var %tekst $1-
    var %tekst $vervanglettermisschien(%tekst,t,d)
    var %tekst $vervanglettermisschien(%tekst,T,D)
    var %tekst $vervanglettermisschien(%tekst,ch,«)
    var %tekst $vervanglettermisschien(%tekst,Ch,»)
    var %tekst $vervanglettermisschien(%tekst,c,k)
    var %tekst $vervanglettermisschien(%tekst,C,K)
    var %tekst $vervanglettermisschien(%tekst,ij,¨)
    var %tekst $vervanglettermisschien(%tekst,Ij,´)
    var %tekst $vervanglettermisschien(%tekst,ij,ei)
    var %tekst $vervanglettermisschien(%tekst,Ij,Ei)
    var %tekst $vervanglettermisschien(%tekst,z,s)
    var %tekst $vervanglettermisschien(%tekst,Z,S)
    var %tekst $vervanglettermisschien(%tekst,b,p)
    var %tekst $vervanglettermisschien(%tekst,B,P)
    var %tekst $vervanglettermisschien(%tekst,t,d)
    var %tekst $vervanglettermisschien(%tekst,t,d)
    var %tekst $vervanglettermisschien(%tekst,au,ou)
    var %tekst $vervanglettermisschien(%tekst,Au,Ou)

    var %tekst $replace(%tekst,«,g,»,G,¨,y,´,Y)

    ;var %tekst $replacecs($1-,d,$chr(143),t,d,$chr(143),t,D,$chr(143),T,D,$chr(143),T)
    ;var %tekst $replacecs(%tekst,k,$chr(143),c,k,$chr(143),c,K,$chr(143),C,K,$chr(143),C)
    ;var %tekst $replacecs(%tekst,ei,$chr(143),ij,ei,$chr(143),ij,Ei,$chr(143),Ij,Ei,$chr(143),Ij)
    ;var %tekst $replacecs(%tekst,s,$chr(143),z,s,$chr(143),z,S,$chr(143),Z,S,$chr(143),Z)
    ;var %tekst $replacecs(%tekst,g,$chr(143),kh,g,$chr(143),ch,G,$chr(143),Kh,G,$chr(143),Ch)
    ;var %tekst $replacecs(%tekst,ou,$chr(143),au,ou,$chr(143),au,Ou,$chr(143),Au,Ou,$chr(143),Au)
    ;var %tekst $replacecs(%tekst,y,$chr(143),ij,y,$chr(143),ij,Y,$chr(143),Ij,Y,$chr(143),Ij)
    ;var %tekst $replacecs(%tekst,p,$chr(143),b,p,$chr(143),b,P,$chr(143),B,P,$chr(143),B)
    msg $active %tekst
    halt
  }
}
alias vervanglettermisschien {
  var %tekst $1
  var %letter1 $2
  var %letter2 $3
  var %l $len(%letter1)
  while ($poscs(%tekst,%letter1,1)) {
    var %j $v1
    if ($rand(0,1)) var %tekst $left(%tekst,$calc(%j - 1)) $+ ° $+ $right(%tekst,$calc(-1 * ( %j -1 + %l)))
    else var %tekst $left(%tekst,$calc(%j - 1)) $+ ¶ $+ $right(%tekst,$calc(-1 * ( %j -1 + %l)))
    inc %n
  }
  while ($poscs(%tekst,%letter2,1)) {
    var %j $v1
    if ($rand(0,1)) var %tekst $left(%tekst,$calc(%j - 1)) $+ ¶ $+ $right(%tekst,$calc(-1 * ( %j -1 + %l)))
    else var %tekst $left(%tekst,$calc(%j - 1)) $+ ° $+ $right(%tekst,$calc(-1 * ( %j -1 + %l)))
    inc %n
  }
  return $replace(%tekst,°,%letter2,¶,%letter1)
}
#dt end