Caps

na caps'a

Kod:

#function caps public() << on_msg

setvar capsik 0
setvar wielkie $msg

setvar litera0 A
setvar litera1 A
setvar litera2 B
setvar litera3 C
setvar litera4 C
setvar litera5 D
setvar litera6 E
setvar litera7 E
setvar litera8 F
setvar litera9 G
setvar litera10 H
setvar litera11 I
setvar litera12 J
setvar litera13 K
setvar litera14 L
setvar litera15 L
setvar litera16 M
setvar litera17 N
setvar litera18 N
setvar litera19 O
setvar litera20 Ó
setvar litera21 P
setvar litera22 Q
setvar litera23 R
setvar litera24 S
setvar litera25 S
setvar litera26 T
setvar litera27 U
setvar litera28 V
setvar litera29 W
setvar litera30 X
setvar litera31 Y
setvar litera32 Z
setvar litera33 Z
setvar litera34 Z

repeat 35 mlc VARPOSSTR_ wielkie capsik $litera$int||if ($capsik != 0) UPPERCASE czycaps $msg

VARLEN czycaps wynik
VIEWVAR wynik

IF ( $msg === $czycaps ) IF ( $wynik>4 ) wnd $room mlc msg $nick wylacz duze litery !
#end caps

Post został pochwalony 0 razy