alias isregister {
var %a = regread $+ $ticks
.comopen %a WScript.Shell
if $comerr { return ERROR }
if !$com(%a,RegRead,3,bstr,$1) {
.comclose %a
return ERROR
}
var %b = $com(%a).result
.comclose %a
return OK %b
}
alias isreged {
if (*OK* iswm $isregister(HKEY_CURRENT_USER\Software\mIRC\UserName\)) { echo -a registered }
else { echo -a not registered }
}