Sephiroth :: Thema anzeigen - /me, /msg, /say, /describe

Code: Alles auswählen

; changed to display lines with text above 430 Chars (most IRCd Limit)
; with mIRC 6.32 you can post up to 4000 Chars (~667 Words with 5 Chars +1 Space)
; just sends the output in multiple msgs instead of one
alias say { sendmsg say $active $1- }
alias me { sendmsg me $active $1- }
alias describe { sendmsg describe $1- }
alias msg { sendmsg msg $1- }
alias -l sendmsg {
  var %type = ! $+ $1
  tokenize 32 $2-
  if ((c isincs $gettok($chan($1).mode,1,32)) && ($strip($2-) != $2-)) { tokenize 32 $1 $strip($$2-) }
  if ($findtok(!me !say,%type,1,32)) { var %type = $gettok(!describe !msg,$v1,32) }
  var %x = 1,%o
  while (%x < $0) {
    inc %x
    %o = %o $ [ $+ [ %x ] ]
    if ($len(%o) > 400) {
      %type $1 %o
      %o = ""
    }
  }
  if (%o) { %type $1 %o }
}

Autor:	Sephiroth [ 23. Mai 2008 20:45 ]
Betreff des Beitrags:	/me, /msg, /say, /describe
Code: Alles auswählen ; changed to display lines with text above 430 Chars (most IRCd Limit) ; with mIRC 6.32 you can post up to 4000 Chars (~667 Words with 5 Chars +1 Space) ; just sends the output in multiple msgs instead of one alias say { sendmsg say $active $1- } alias me { sendmsg me $active $1- } alias describe { sendmsg describe $1- } alias msg { sendmsg msg $1- } alias -l sendmsg { var %type = ! $+ $1 tokenize 32 $2- if ((c isincs $gettok($chan($1).mode,1,32)) && ($strip($2-) != $2-)) { tokenize 32 $1 $strip($$2-) } if ($findtok(!me !say,%type,1,32)) { var %type = $gettok(!describe !msg,$v1,32) } var %x = 1,%o while (%x < $0) { inc %x %o = %o $ [ $+ [ %x ] ] if ($len(%o) > 400) { %type $1 %o %o = "" } } if (%o) { %type $1 %o } }

Sephiroth http://sephiroth.scifi-action.de/board/

/me, /msg, /say, /describe http://sephiroth.scifi-action.de/board/viewtopic.php?f=4&t=73	Seite 1 von 1

Seite 1 von 1	Alle Zeiten sind UTC + 1 Stunde
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/