Input Nie..

Post new topic   Reply to topic

View previous topic View next topic Go down

Input Nie..

Post  Dil on Thu Jul 17, 2008 8:48 am

on *:INPUT:*: {
.set %Var3 $1-
.set %Var1 1
.set %Var2 $upper($mid(%Var3,1,1))
if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }
if ($1 == nanak) { msg $active Nªnªkkk Nªnªkkk ~!!!!! :Þ ~ | .halt } <<--- Yang nie korang letak la ape2..
if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt }
:Start1
inc %Var1 1
if ($mid(%Var3,%Var1,1) != $chr(32)) { .set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($mid(%Var3,%Var1,1) == $chr(32)) { .set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($len(%Var3) != %Var1) { goto Start1 }
$colour2(%var2)
.unset %Var1
.unset %Var2
.unset %Var3
.halt
:ServerCommand
}

#colour1 on
alias colour2 {
msg $active $gettok(%ncme,$r(1,$numtok(%ncme,32)),32) $+ $chr(3) $+ $gettok(09 02 13 04,$r(1,4),32) $+ $left($1-,1) $+ $chr(3) $+ $gettok(07 12 03 04,$r(1,4),32) $+ $mid($1-,2,$calc($len($1-) - 2)) $+ $chr(3) $+ $gettok(09 02 03 04,$r(1,4),32) $+ $right($1-,1) $+ $gettok(%ncm,$r(1,$numtok(%ncm,32)),32) $chr(15)
}
#colour1 end
#colour2 off
alias colour2 {
set %ayat $1-
msg $active $chr(3) $+ 04 $+ $left(%ayat,1) $+ $chr(3) $+ 05 $+ $left(%ayat,1) $+ $chr(3) $+ 07 $+ %ayat $+ $chr(3) $+ 05 $+ $right(%ayat,1) $+ $chr(3) $+ 04 $+ $right(%ayat,1) $+ $chr(15)
}
#colour2 end
#colour3 off
alias colour3 {
msg $active $gettok(%ncme,$r(1,$numtok(%ncme,32)),32) $+ $chr(3) $+ $gettok(09 02 13 04,$r(1,4),32) $+ $left($1-,1) $+ $chr(3) $+ $gettok(07 12 03 04,$r(1,4),32) $+ $mid($1-,2,$calc($len($1-) - 2)) $+ $chr(3) $+ $gettok(09 02 03 04,$r(1,4),32) $+ $right($1-,1) $+ $gettok(%ncm,$r(1,$numtok(%ncm,32)),32) $chr(15)
}
#colour3 end

menu channel {
Input
.Style 1 $group(#colour1)
..On:.enable #colour1 | .disable #colour2 | .disable #colour3
..Off:.disable #colour1
.-
.Style 1 $group(#colour2)
..On:.enable #colour2 | .disable #colour1 | .disable #colour3
..Off:.disable #colour2
.-
.Style 1 $group(#colour3)
..On:.enable #colour3 | .disable #colour2 | .disable #colour1
..Off:.disable #colour3
}

Dil

Posts: 8
Join date: 2008-07-01

View user profile

Back to top Go down

View previous topic View next topic Back to top


Post new topic   Reply to topic
Permissions of this forum:
You can reply to topics in this forum