on ^*:SNOTICE:*client connecting*: {
haltdef
if ( $window(@CLoneScan,1) != @CloneScan ) /window -nk +et @CloneScan verdana 10
if ( crnagora.net isin $10 ) goto al
if ( guest isin $9 ) && ( guest !isin $10 ) goto al
if (195.66 isin $10) goto al
if (213.149 isin $10) goto al
if (213.244 isin $10) goto al
if (com.al isin $10) goto al
; if $9 isin $10 { /akill $9 no clones, pa-pa | .aline @CloneScan 8,1CloneWarning: $1- | halt }
if ( a !isin $9 ) && ( e !isin $9 ) && ( i !isin $9 ) && ( o !isin $9 ) && ( u !isin $9 ) && ($len($9) > 3) { /akill $9 mail volna@cg.yu | .aline @CloneScan 8,1CloneWarning: $1- | halt }
if ($right($9,3) isnum) && ($len($9) == 4) { /akill $9 mail volna@cg.yu | .aline @CloneScan 8,1CloneWarning: $1- | halt }
if ($right($9,4) isnum) { /akill $9 mail volna@cg.yu | .aline @CloneScan 8,1CloneWarning: $1- | halt }
; if ( $mid($10,2,1) isalpha ) && ( $mid($10,3,1) isnum ) && ( $mid($10,4,1) isnum ) && ( $mid($10,5,1) isnum ) && ( $mid($10,6,1) isnum ) { /akill $9 mail na volna@cg.yu | .aline @CloneScan 8,1CloneWarning: $1- | halt }
:al
.aline @CloneScan connecting on $7-
}
on ^*:SNOTICE:*client exiting*: {
haltdef
if ( $window(@CLoneScan,1) != @CloneScan ) /window -nk @CloneScan
.aline @CloneScan 14 $+ exiting $6-
halt
}