check nick start with <alpha>

tips: /alpa a nanti dia bagi tau sape yg guna nick start ngan urup tu
tips: /alpa -c A <-- nih case sensitife dia detect urup A yg besar saje
contoh dalam channel ade nick Lestat Ayang maivia along pastu taip /a
result dia [Ayang][along]
kalau /alpa -c a <-- jadi [along] saje <-- kalau /alpa -c A jadi [Ayang] saje.. nak terang pon aku tak berapa reti... heheh cuba jer la

alias alpa {
if (!$2) { var %case = ==,%als = $1,%cc = $null }
if ($1 == -c) && ($len($2) == 1) { var %case = ===,%als = $2,%cc = case sensitif }
var %al 1
while (%al <= $nick(#,0)) {
if ($left($nick(#,%al),1) %case %als) { var %alpa = $addtok(%alpa,$nick(#,%al),44),%num = $numtok(%alpa,44) }
inc %al
}
if (!%alpa) { msg $chan no nick with %als | halt }
msg $chan $+($chr(3),12,[,$chr(3),15,,%num,$chr(3),12,]) $+($chr(3),15,nick start with %cc) $+($chr(3),12,[,$chr(3),15,%als,$chr(3),12,]) 9=14 %alpa
}