Dies ist eine alte Version des Dokuments!


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(Frontconnid,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

Eigene Werkzeuge