home *** CD-ROM | disk | FTP | other *** search
/ InterCD 1999 June / june_1999.iso / Chat / TurboIRC / data1.cab / TurboIRC_Scripts / EONCLONE.txt < prev    next >
Encoding:
Text File  |  1999-05-04  |  785 b   |  39 lines
  1. // This is the ONCLONE TurboIRC Script
  2. // Copyright ⌐ Chourdakis Michael , 1998
  3.  
  4. // The mask in $0 ... the Channel in $2 + 1
  5. string chn = strcpy("$2" + 1)
  6. string CurDom = ""
  7. string CurNick = ""
  8. int CloneNum = 0
  9.  
  10. for (int K = 0 ; %K% < GetNickCount(%chn%) ; %K% += 1)
  11.  
  12. %CurNick% = GetNick(%chn%,%K%)
  13.  
  14. // Was it the one we have ?
  15. if (%CurNick% == $nick)
  16. continue
  17. endif
  18.  
  19. // Get information about the nick's domain
  20. %CurDom% = GetUserDomain(%CurNick%)
  21. if (%CurDom%=="")
  22.  continue
  23. endif
  24.  
  25. // Is it the same ?
  26. if (%CurDom%==$IP)
  27.  %CloneNum% += 1
  28. endif
  29.  
  30. endfor
  31.  
  32. if (%CloneNum% < 1)
  33.  return
  34. endif
  35.  
  36. // Here , show CLONE INFO !
  37. /pops %chn% ***HEY !!! CLONE HERE , $nick ($IP)  ??? Already %CloneNum% user(s) in %chn% !!!
  38. //pops %chn% ***HEY %chn% !!!
  39.