Dies ist eine alte Version des Dokuments!


#NewScriptBegin kenny
 
Function Translate(Text)
  StrOut=""
  i=1
  do until i > len(Text)
    C=mid(Text,i,1)
    tch=lcase(mid(Text,i,1))
    if tch="a" Then C="mmm"
    if tch="b" Then C="mmp"
    if tch="c" Then C="mmf"
    if tch="d" Then C="mpm"
    if tch="e" Then C="mpp"
    if tch="f" Then C="mpf"
    if tch="g" Then C="mfm"
    if tch="h" Then C="mfp"
    if tch="i" Then C="mff"
    if tch="j" Then C="pmm"
    if tch="k" Then C="pmp"
    if tch="l" Then C="pmf"
    if tch="m" Then C="ppm"
    if tch="n" Then C="ppp"
    if tch="o" Then C="ppf"
    if tch="p" Then C="pfm"
    if tch="q" Then C="pfp"
    if tch="r" Then C="pff"
    if tch="s" Then C="fmm"
    if tch="t" Then C="fmp"
    if tch="u" Then C="fmf"
    if tch="v" Then C="fpm"
    if tch="w" Then C="fpp"
    if tch="x" Then C="fpf"
    if tch="y" Then C="ffm"
    if tch="z" Then C="ffp"
    i=i+1
    StrOut=StrOut & C
  loop
  Translate=StrOut
End Function
 
Function ReTranslate(Text)
  StrOut=""
  tch=""
  i=1
  do until i > len(Text)
    C=mid(Text,i,1)
    if C="m" or C="p" or C="f" Then
      tch=tch+C
      C=""
    end if
    if len(tch)=3 Then
      if tch="mmm" Then C="a"
      if tch="b" Then C="mmp"
      if tch="c" Then C="mmf"
      if tch="d" Then C="mpm"
      if tch="e" Then C="mpp"
      if tch="f" Then C="mpf"
      if tch="g" Then C="mfm"
      if tch="h" Then C="mfp"
      if tch="i" Then C="mff"
      if tch="j" Then C="pmm"
      if tch="k" Then C="pmp"
      if tch="l" Then C="pmf"
      if tch="m" Then C="ppm"
      if tch="n" Then C="ppp"
      if tch="o" Then C="ppf"
      if tch="p" Then C="pfm"
      if tch="q" Then C="pfp"
      if tch="r" Then C="pff"
      if tch="s" Then C="fmm"
      if tch="t" Then C="fmp"
      if tch="u" Then C="fmf"
      if tch="v" Then C="fpm"
      if tch="w" Then C="fpp"
      if tch="x" Then C="fpf"
      if tch="y" Then C="ffm"
      if tch="z" Then C="ffp"
    end if
    i=i+1
    StrOut=StrOut & C
  loop
  ReTranslate=StrOut
End Function
 
Sub KeyShortcut(KeyCode, Shift)
  if Shift=0 and KeyCode=123 Then
    Send Translate(TextBox), FrontFrameID
    TextBox=""
    skipevent
  End if
End Sub

Eigene Werkzeuge