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
 
Sub KeyShortcut(KeyCode, Shift)
 
    if Shift=0 and KeyCode=123 Then
    Send Translate(TextBox), FrontFrameID
    TextBox=""
    skipevent
  End if
End Sub

Eigene Werkzeuge