SlapCount

#NewScriptBegin SlapCount
 
Dim SlapCount
 
Sub Serv_Action(Text, Nick, FrameID, ConnID)
  texoc=RemColors(Text)
 
  if (instr(1, lcase(texoc),"slaps ") > 0 or instr(1, lcase(texoc), "haut ") > 0) and instr(1, lcase(texoc), lcase(GetVal(FrontConId, 5))) > 0 then
    SlapCount = SlapCount + 1
    send "/me wurde das " & SlapCount & ". mal geschlagen!", FrameID
  end if
End Sub
 
Sub Load()
  SlapCount = val(Load("SlapCount"))
End Sub
 
Sub Unload()
  Save "SlapCount", SlapCount
End Sub
 
 
Sub RemColors(Text)
  TextNoColor=""
  i=0
  Do
    i2=i
    i=InStr(i2+1, Text, Chr(1))
    i4=InStr(i2+1, Text, Chr(3))
    if (i4<i or i=0) and i4>0 Then i=i4
    i3=i
    if i = 0 Then
      i=Len(Text)+1
      i3=i
    else
      Do
        i=i+1
        Dat=Mid(Text, i, 1)
      Loop until (Asc(Dat) > 57 or Asc(Dat) < 48) and Dat<>","
      i=i-1
    end if
    if i3-i2 > 1 Then TextNoColor=TextNoColor+Mid(Text, i2+1, i3-i2-1)
  loop until i3=Len(Text)+1
  RemColors = TextNoColor
End Sub

Eigene Werkzeuge