Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:kennyscript [2007/02/25 14:01]
80.134.121.26 angelegt
nettalk:scripting:kennyscript [2007/11/10 14:47] (aktuell)
80.134.105.17
Zeile 2: Zeile 2:
  
 #​NewScriptBegin kenny #​NewScriptBegin kenny
- +
 Function Translate(Text) Function Translate(Text)
   StrOut=""​   StrOut=""​
   i=1   i=1
   do until i > len(Text)   do until i > len(Text)
-  ​C=mid(Text,​i,​1) +    ​C=mid(Text,​i,​1) 
-  +    tch=lcase(mid(Text,​i,​1)) 
- +    if tch="​a"​ Then C="​mmm"​ 
-       tch=lcase(mid(Text,​i,​1)) +    if tch="​b"​ Then C="​mmp"​ 
-      if tch="​a"​ Then C="​mmm"​ +    if tch="​c"​ Then C="​mmf"​ 
-      if tch="​b"​ Then C="​mmp"​ +    if tch="​d"​ Then C="​mpm"​ 
-      if tch="​c"​ Then C="​mmf"​ +    if tch="​e"​ Then C="​mpp"​ 
-      if tch="​d"​ Then C="​mpm"​ +    if tch="​f"​ Then C="​mpf"​ 
-      if tch="​e"​ Then C="​mpp"​ +    if tch="​g"​ Then C="​mfm"​ 
-      if tch="​f"​ Then C="​mpf"​ +    if tch="​h"​ Then C="​mfp"​ 
-      if tch="​g"​ Then C="​mfm"​ +    if tch="​i"​ Then C="​mff"​ 
-      if tch="​h"​ Then C="​mfp"​ +    if tch="​j"​ Then C="​pmm"​ 
-      if tch="​i"​ Then C="​mff"​ +    if tch="​k"​ Then C="​pmp"​ 
-      if tch="​j"​ Then C="​pmm"​ +    if tch="​l"​ Then C="​pmf"​ 
-      if tch="​k"​ Then C="​pmp"​ +    if tch="​m"​ Then C="​ppm"​ 
-      if tch="​l"​ Then C="​pmf"​ +    if tch="​n"​ Then C="​ppp"​ 
-      if tch="​m"​ Then C="​ppm"​ +    if tch="​o"​ Then C="​ppf"​ 
-      if tch="​n"​ Then C="​ppp"​ +    if tch="​p"​ Then C="​pfm"​ 
-      if tch="​o"​ Then C="​ppf"​ +    if tch="​q"​ Then C="​pfp"​ 
-      if tch="​p"​ Then C="​pfm"​ +    if tch="​r"​ Then C="​pff"​ 
-      if tch="​q"​ Then C="​pfp"​ +    if tch="​s"​ Then C="​fmm"​ 
-      if tch="​r"​ Then C="​pff"​ +    if tch="​t"​ Then C="​fmp"​ 
-      if tch="​s"​ Then C="​fmm"​ +    if tch="​u"​ Then C="​fmf"​ 
-      if tch="​t"​ Then C="​fmp"​ +    if tch="​v"​ Then C="​fpm"​ 
-      if tch="​u"​ Then C="​fmf"​ +    if tch="​w"​ Then C="​fpp"​ 
-      if tch="​v"​ Then C="​fpm"​ +    if tch="​x"​ Then C="​fpf"​ 
-      if tch="​w"​ Then C="​fpp"​ +    if tch="​y"​ Then C="​ffm"​ 
-      if tch="​x"​ Then C="​fpf"​ +    if tch="​z"​ Then C="​ffp"​
-      if tch="​y"​ Then C="​ffm"​ +
-      if tch="​z"​ Then C="​ffp"​ +
     i=i+1     i=i+1
     StrOut=StrOut & C     StrOut=StrOut & C
   loop   loop
 +  LastMsg(GetCaption(FrontFrameID))=StrOut
   Translate=StrOut   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="​mmp"​ Then C="​b"​
 +      if tch="​mmf"​ Then C="​c"​
 +      if tch="​mpm"​ Then C="​d"​
 +      if tch="​mpp"​ Then C="​e"​
 +      if tch="​mpf"​ Then C="​f"​
 +      if tch="​mfm"​ Then C="​g"​
 +      if tch="​mfp"​ Then C="​h"​
 +      if tch="​mff"​ Then C="​i"​
 +      if tch="​pmm"​ Then C="​j"​
 +      if tch="​pmp"​ Then C="​k"​
 +      if tch="​pmf"​ Then C="​l"​
 +      if tch="​ppm"​ Then C="​m"​
 +      if tch="​ppp"​ Then C="​n"​
 +      if tch="​ppf"​ Then C="​o"​
 +      if tch="​pfm"​ Then C="​p"​
 +      if tch="​pfp"​ Then C="​q"​
 +      if tch="​pff"​ Then C="​r"​
 +      if tch="​fmm"​ Then C="​s"​
 +      if tch="​fmp"​ Then C="​t"​
 +      if tch="​fmf"​ Then C="​u"​
 +      if tch="​fpm"​ Then C="​v"​
 +      if tch="​fpp"​ Then C="​w"​
 +      if tch="​fpf"​ Then C="​x"​
 +      if tch="​ffm"​ Then C="​y"​
 +      if tch="​ffp"​ Then C="​z"​
 +      tch=""​
 +    end if
 +    i=i+1
 +    StrOut=StrOut & C
 +  loop
 +  ReTranslate=StrOut
 End Function End Function
  
-Sub KeyShortcut(KeyCode, Shift)+Sub Load() 
 +  LastMsg("​0"​)=""​ 
 +End Sub
    
-    ​if Shift=0 and KeyCode=123 Then+Sub KeyShortcut(KeyCode,​ Shift) 
 +  ​if Shift=0 and KeyCode=123 Then
     Send Translate(TextBox),​ FrontFrameID     Send Translate(TextBox),​ FrontFrameID
     TextBox=""​     TextBox=""​
     skipevent     skipevent
   End if   End if
 +  if Shift=0 and KeyCode=122 Then
 +    print "~ Übersetzung:​ " & ReTranslate(LastMsg(GetCaption(FrontFrameID)))
 +  end if
 +End Sub
 +
 +Sub Chan_Msg(Text,​ Nick, Channel, FrameID, ConnID)
 +  LastMsg(Channel)=Text
 End Sub End Sub
  
 </​code>​ </​code>​
 +
 +© Kenny & Mirici

Eigene Werkzeuge