home *** CD-ROM | disk | FTP | other *** search
/ InterCD 1999 June / june_1999.iso / Chat / TurboIRC / data1.cab / TurboIRC_Scripts / EControlQueries.txt < prev    next >
Encoding:
Text File  |  1999-05-04  |  883 b   |  35 lines
  1. // Query Control TurboIRC Script
  2. // Category : Utilities
  3. // Copyright ⌐ Chourdakis Michael , 1998
  4.  
  5. // For * PRIVMSG $mynick :* LOCKED
  6. // Load it : /_event ControlQueries 3 0 0 +:* PRIVMSG $mynick :*|||?.\demos\qc.txt
  7.  
  8. if (FindWindowFromTitle($nick)!=-1)
  9.  // already exists
  10.  #unlock
  11.  return
  12. endif
  13.  
  14. int IsSpam = 0
  15. string TimeDate = sprintf("%u-%u , %u:%u",$day,$month,$_hour,$minute)
  16.  
  17.  
  18. if (IsMatching("$3*","*http://*",1,0)==1)
  19.  IsSpam = 1
  20. endif
  21.  
  22. if (IsSpam==0)
  23.  /query MyQueryControl
  24.  /addtext MyQueryControl ***Query [%TimeDate%] from $nick!$ident@$IP $3*
  25.  return
  26. endif
  27.  
  28. // Here , it is SPAM
  29. string ToSet = sprintf("%s!%s@%s [%s] : %s\r\n",$nick,$ident,$IP,TimeDate,"$3*")
  30. string IniF = "C:\\TURBOIRC\\spam.txt"
  31.  
  32. AppendText(IniF,ToSet)
  33. /query MyQueryControl
  34. /addtext MyQueryControl ***SPAM Query [%TimeDate%] from $nick!$ident@$IP $3* (logged)
  35.