SlapCount

#NewScriptBegin SlapCount
 
Dim SlapCount
 
Sub Serv_Action(Text, Nick, FrameID, ConnID)
  if (instr(1, lcase(Text),"slaps ") > 0 or instr(1, lcase(Text), "haut ") > 0) and instr(1, lcase(Text), 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