Tag: on input

Input warna2

Saja buat time boring !!

menu channel {
  Input Warna
  .Aktifkan:.enable #kaler
  .Diaktifkan:.disable #kaler
}
#kaler on
ON *:INPUT:*: {
  if ($left($1,1) == $chr(47) || $ctrlenter) { return }
  else {
    var %a 1 , %b 2 , %c
    var %d $replace($1-,$chr(32),$chr(135)) , %e 1 , %b $r(2,14)
    while (%a < $calc($len(%d) + 1)) {
      if (%b > 15) %b = 2
      %c = $+(%c,$chr(3),%b,$mid(%d,%a,1))
      .inc %a | .inc %b
    }
    msg $active $replace(%c,$chr(135),$chr(32)) | halt
  }
}
#kaler end

Nick Completor

Okey, utk tidak menghampakan bro Zek, ni remote nick completor yg pakcu pakai… Feel free to edit it 😉

alias ncomp {
  var %color = $+($base($r(2,14),10,10,2))
  return $+($left($nick($1,$2).pnick,1),,%color,$left($2,1),,$mid($2,2,-1),,%color,$right($2,1),,$chr(44)) $3-
}
ON *:INPUT:*: {
  if ($left($1,1) == $chr(47) || $ctrlenter || $inpaste) { return }
  else {
    if ($chr(35) isin $active && c !isin $gettok($chan($active).mode,1,32)) {
      if ($1 ison $active) {
        msg $target $ncomp($active,$1,$2-) | halt
      }
      else {
        msg $target $1- | halt 
      }
    }
    else { 
      msg $target $1- | halt 
    }
  }
}