Input warna2

You may also like...

2 Responses

  1. PakCu says:

    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. PakCu says:

    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

%d bloggers like this: