/ScriptServ

;====================================================================================
;                                                                 NetLand §¢®Ipt V2.0
;                                                                       ßÿ GoodNews 
;                                           We made everything here and it is professional
;                                          so you dont need to touch or change  anything 
;                                     cause it can cause a malfunction to the script .Thx !!!!!!
;                                                               Long Live #NetLand
;=====================================================================================
;CLONES
#Scan.Clones off
raw 352:*: {  
  %Clones.Site = $remove($4,~)
  if ( %Clones.Site isin %Clones.Address) { inc %Clones.Total 1 | %Clones.Mask = *!*@ $+ %Clones.Site | %Clones.Read = -s $+ %Clones.Site | %Clones.Nicks = %Clones.Nicks $6 ( $+ and $read %Clones.Read $mircdir\clones.txt $+ ) | halt }
  else { %Clones.Address = %Clones.Address %Clones.Site | write $mircdir\clones.txt %Clones.Site $6 | halt }
}
raw 315:* {
  clonescount
  .disable #Scan.Clones | unset %Clones.* | remove $mircdir\clones.txt | halt
}
#Scan.Clones end
;IRCOP
#IRCop.Scan off
raw 352:*: { inc %IRCop.Scan.Total | aline -h @IRCop %IRCop.Scan.Total · $6 ( $+ $2 $+ , $5 $+ ) | halt }
raw 315:*: { aline -h 2 @IRCop %Hvc.Logo2 End of IRCop Scan! Total: ( $+ %IRCop.Scan.Total $+ ) | titlebar @IRCop End of Scan | .disable #IRCop.Scan | halt }
#IRCop.Scan end