Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:differentcolorwords [2007/10/10 17:35]
saaaale angelegt
nettalk:scripting:differentcolorwords [2007/10/10 21:24] (aktuell)
83.180.99.72
Zeile 9: Zeile 9:
    
 Sub SendMsg(Text,​ Channel, FrameID, ConnID) Sub SendMsg(Text,​ Channel, FrameID, ConnID)
 +  ltext=lCase(Text)
   MyWords = " hehe nettalk "   MyWords = " hehe nettalk "
   SkipEvent   SkipEvent
Zeile 19: Zeile 20:
     If InStr(1, MyWords, " " + lCase(OneWord) + " ") > 0 Then     If InStr(1, MyWords, " " + lCase(OneWord) + " ") > 0 Then
       If OneWord = "​hehe"​ Then       If OneWord = "​hehe"​ Then
-        OutText = OutText + Chr(3) + "12 h14e12h14e" & Chr(3)+        ​If ltext = "​hehe"​ Then 
 +          ​OutText = OutText + Chr(3) + "3h4e3h4e"​ & Chr(3) 
 +        Else 
 +          OutText = OutText + Chr(3) + "​3 ​h4e3h4e" & Chr(3) 
 +        End If
       End If       End If
       If OneWord = "​nettalk"​ Then       If OneWord = "​nettalk"​ Then
-        OutText = OutText + Chr(3) + "13 N4e12tt7alk"​ & Chr(3)+        ​If ltext = "​nettalk"​ Then 
 +          OutText = OutText + Chr(3) + "​13N4e12tt7alk"​ & Chr(3) 
 +        Else 
 +          ​OutText = OutText + Chr(3) + "13 N4e12tt7alk"​ & Chr(3) 
 +        End If
       End If       End If
     Else     Else

Eigene Werkzeuge