Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:kennyscript [2007/02/25 14:08]
80.134.78.26
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=""​
Zeile 38: Zeile 38:
     StrOut=StrOut & C     StrOut=StrOut & C
   loop   loop
 +  LastMsg(GetCaption(FrontFrameID))=StrOut
   Translate=StrOut   Translate=StrOut
 End Function End Function
 + 
 Function ReTranslate(Text) Function ReTranslate(Text)
   StrOut=""​   StrOut=""​
Zeile 53: Zeile 54:
     if len(tch)=3 Then     if len(tch)=3 Then
       if tch="​mmm"​ Then C="​a"​       if tch="​mmm"​ Then C="​a"​
-      if tch="b" Then C="mmp+      if tch="mmp" Then C="b
-      if tch="c" Then C="mmf+      if tch="mmf" Then C="c
-      if tch="d" Then C="mpm+      if tch="mpm" Then C="d
-      if tch="e" Then C="mpp+      if tch="mpp" Then C="e
-      if tch="f" Then C="mpf+      if tch="mpf" Then C="f
-      if tch="g" Then C="mfm+      if tch="mfm" Then C="g
-      if tch="h" Then C="mfp+      if tch="mfp" Then C="h
-      if tch="i" Then C="mff+      if tch="mff" Then C="i
-      if tch="j" Then C="pmm+      if tch="pmm" Then C="j
-      if tch="k" Then C="pmp+      if tch="pmp" Then C="k
-      if tch="l" Then C="pmf+      if tch="pmf" Then C="l
-      if tch="m" Then C="ppm+      if tch="ppm" Then C="m
-      if tch="n" Then C="ppp+      if tch="ppp" Then C="n
-      if tch="o" Then C="ppf+      if tch="ppf" Then C="o
-      if tch="p" Then C="pfm+      if tch="pfm" Then C="p
-      if tch="q" Then C="pfp+      if tch="pfp" Then C="q
-      if tch="r" Then C="pff+      if tch="pff" Then C="r
-      if tch="s" Then C="fmm+      if tch="fmm" Then C="s
-      if tch="t" Then C="fmp+      if tch="fmp" Then C="t
-      if tch="u" Then C="fmf+      if tch="fmf" Then C="u
-      if tch="v" Then C="fpm+      if tch="fpm" Then C="v
-      if tch="w" Then C="fpp+      if tch="fpp" Then C="w
-      if tch="x" Then C="fpf+      if tch="fpf" Then C="x
-      if tch="y" Then C="ffm+      if tch="ffm" Then C="y
-      if tch="z" Then C="ffp"+      if tch="ffp" Then C="z" 
 +      tch=""
     end if     end if
     i=i+1     i=i+1
Zeile 85: Zeile 87:
 End Function End Function
  
 +Sub Load()
 +  LastMsg("​0"​)=""​
 +End Sub
 + 
 Sub KeyShortcut(KeyCode,​ Shift) Sub KeyShortcut(KeyCode,​ Shift)
   if Shift=0 and KeyCode=123 Then   if Shift=0 and KeyCode=123 Then
Zeile 91: Zeile 97:
     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