Alias Problem

#1
Ich habe ein Alias in mein mIRC gepostet, nun funktioniert es nicht. Habe nur einen on:Input: Event.
Code:
alias bunt {
  if ($1 != $null) {
    var %LL = 12,06,04
    var %ctl = 1
    var %ct = 1
    while (%ct <= $len($1)) {
      var %new = %new $+ $+ $gettok(%LL,%ctl,44) $+ $iif($mid($1-,%ct,1) != $chr(32), $+ $mid($1-,%ct,1), $chr(32) $+ $mid($1-,%ct,1))
      inc %ctl 1
      if (%ctl > 3) { var %ctl = 1 }
      inc %ct 1
    }
    return %new $+
  }
}

alias reverse {
  var %len = $len($1-)
  var %return = $null
  while (%len > 0) {
    var %return = %return $+ $mid($1-,%len,1) $+ $chr(32)
    dec %len
  }
  return %return
}

alias r {
  say $reverse($1-)
}

on *:input:*: {
  if ($1 == $me) {
    if ($1 == bs) { say $bunt($2-) }
    if ($1 == rs) { say $reverse($2-) }
    if ($1 == brs) { say $bunt($reverse($2-)) }
    if ($1 == n) { notice $2- }
    if ($1 == m) { me $2- }
    if ($1 == w) { whois $2 }
    if ($1 == q) { query $2- }
    haltdef
  }
}
Vielleicht kann sich das ja mal einer anschauen, weiss nicht wo der Fehler liegt.
Noch ne Frage, es gibt doch so Zeichen für zum ändern der Farbe, Schriftart und zum aufheben nach einer Farbeingabe, hat jemand von Euch diese Zeichen?
Vielen Dank
MFG
 
Zuletzt bearbeitet:
#2
Hallo zusammen

Habe den Fehler gefunden, habe den Code neu editiert
Code:
alias bunt {
  if ($1 != $null) {
    var %LL = 12,06,04
    var %ctl = 1
    var %ct = 1
    while (%ct <= $len($1)) {
      var %new = %new $+ $+ $gettok(%LL,%ctl,44) $+ $iif($mid($1-,%ct,1) != $chr(32), $+ $mid($1-,%ct,1), $chr(32) $+ $mid($1-,%ct,1))
      inc %ctl 1
      if (%ctl > 3) { var %ctl = 1 }
      inc %ct 1
    }
    return %new $+
  }
}
alias reverse {
  var %len = $len($1-)
  var %return = $null
  while (%len > 0) {
    var %return = %return $+ $mid($1-,%len,1) $+ $chr(32)
    dec %len
  }
  return %return
}
alias r {
  say $reverse($1-)
}
on *:input:*: {
    if ($1 == bs) { say $bunt($2-) }
    if ($1 == rs) { say $reverse($2-) }
    if ($1 == brs) { say $bunt($reverse($2-)) }
    if ($1 == n) { notice $2- }
    if ($1 == m) { me $2- }
    if ($1 == w) { whois $2 }
    if ($1 == q) { query $2- }
    haltdef
 }
Die Zeichen habe ich noch nicht gefunden.

Vielen Dank

MFG
 
Oben