MultiUserSlap

Adds the Command /multislap for Channels.

#NewScriptBegin MultiUserSlap
 
Sub Load()
  MakeShortcut "", "multislap", "/call MultiUserSlap.mSlap", 1
End Sub
 
Function mSlap()
  i=0
  i2=0
  TexOut = "/me slaps "
  do until i=GetListCount(FrontFrameID)
    if i > 0 Then TexOut = TexOut + ", "
    TexOut = TexOut + NoSign(GetListValue(FrontFrameID,i,0))
    i=i+1
  loop
  Send TexOut, FrontFrameID
End Function

Eigene Werkzeuge