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
Comments

Published by

PakCu

I'm a simple person

2 thoughts on “Input warna2”

  1. Utk Gojes:

    tukarkan baris ni:

    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

    kepada

    var %d $replace($1-,$chr(32),$chr(135)) , %e 1 , %b $gettok(11 13,$r(1,2),32)
    while (%a < $calc($len(%d) + 1)) { %b = $gettok(11 13,$r(1,2),32)

  2. Okeys ni utk random 3 pilihan kaler

    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
    goto $r(1,3)
    :1
    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
    }
    goto tamat
    :2
    var %d $replace($1-,$chr(32),$chr(135)) , %e 1 , %b $gettok(11 13,$r(1,2),32)
    while (%a < $calc($len(%d) + 1)) { %b = $gettok(11 13,$r(1,2),32) %c = $+(%c,$chr(3),%b,$mid(%d,%a,1)) .inc %a | .inc %b } goto tamat :3 var %d $replace($1-,$chr(32),$chr(135)) , %e 1 , %b $gettok(04 08,$r(1,2),32) while (%a < $calc($len(%d) + 1)) { %b = $gettok(04 08,$r(1,2),32) %c = $+(%c,$chr(3),%b,$mid(%d,%a,1)) .inc %a | .inc %b } goto tamat :tamat msg $active $replace(%c,$chr(135),$chr(32)) | halt } } #kaler end

Comments are closed.