Projects's information
| Project Name |
: |
$ismirc |
| File Size |
: |
1.571 kb |
| Author |
: |
Sigh |
| Project Description |
: |
Uses binary variables to check the mIRC help file and determine whether the command or identifier specified if one of mIRC's built-in commands or identifiers, or not. |
| Line Numbers |
: |
Hide Lines Number |
alias ismirc {
var %f $+(",$findfile($mircdir,mirc.hlp,1),"),%r return,%e echo $color(i) -ea,%i $iif($!* iswm $1,1),%s $iif($!* iswm $&
$1,identifier.,command.),%c $eval($remote $beta $nopnick $nvnick $nhopnick $* $r $colour $nickmode $true $false $yes $no $ok $&
$cancel $hfile $lof $bits $evalnext $initopic $dir $auto $banlist $token $rnick $mp3 $wavedir $mp3dir $mididir $addtokcs $findtokcs $&
$istokcs $matchtokcs $remtokcs $reptokcs $sorttokcs $wildtokcs $getdir $inpaste $trust $! $? /xyzzy /colour /closemsg /clearial $&
/quote /auto /leave /registration /action /else /elseif /setlayer /notice /username,0),%l %e ** $1 is a built in %s
if ((i* iswm %s) && ($regex($mid($1,2),^\d+-*\d*$))) || ($istok(%c $!&,$1,32)) { goto y }
if (!$1) || (!$regex($1,^\$|/)) {
%e Specify a command/identifier to search for $iif(!$1,(remember to use ! in identifiers to keep them from evaluating))
%r
}
if (!%f) { %e Help file missing | %r }
if ($version < 6.1) { %e mIRC version 6.1 or greater required. | %r }
bread %f 1 $lof(%f) &t
var %p = $bfind(&t,1,$1)
if (%p && !$bvar(&t,$calc(%p -1))) && (!$bvar(&t,$calc($len($1)+%p))) {
:y
if ($isid) { %r 1 }
%l
%r
}
if ($isid) { %r 0 }
$instok(%l,not,7,32)
}
|
|
You have no new messages