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