home *** CD-ROM | disk | FTP | other *** search
/ InterCD 1999 June / june_1999.iso / Chat / TurboIRC / data1.cab / TurboIRC_Scripts / ebadtext.txt < prev    next >
Encoding:
Text File  |  1999-05-04  |  2.3 KB  |  100 lines
  1. // Channel Status TurboIRC Script
  2. // Category : Defense
  3. // Copyright ⌐ Chourdakis Michael , 1998
  4.  
  5. // This script is the same like PIRCH's 3STRIKES PIL
  6. // or load it automatically : /_event ONBADTEXT 21 2 0 +* PRIVMSG * :*|||-:* PRIVMSG $mynick :*|||?.\demos\3strikes.txt
  7.  
  8. // We used 21 for "Enabled" , "Afterfire" and "GlobalMatch"
  9. // the 2 after requires for us to be @ or owner in the channel 
  10.  
  11. // You may add more banned words
  12.  
  13. // This event users IntegerList[3] 
  14.  
  15. // $3* holds the text
  16.  
  17. // Remember : To add more forbidden words
  18. // Place them inside *'s in  the following string
  19. // and don't forget to increase K < 4 to K < 5  , < 6 etc
  20. // for each word you add
  21.  
  22. string BadWords = "*FUCK* *POUSTI* *MALAKAS* *STUPID*"
  23. string TestStr = ""
  24. for (int K = 0 ; K < 4 ; K += 1)
  25. TestStr = ""
  26. TestStr = GetParameter(K,BadWords)
  27. if (TestStr=="")
  28.  return
  29. endif
  30. if (IsMatching("$3*",TestStr,1,0)==1)
  31.  goto BadMatched
  32. endif
  33. endfor
  34.  
  35. // nothing matched !
  36. return
  37.  
  38.  
  39.  
  40.  
  41. :BadMatched
  42.  
  43.  
  44. if (FindStringPos(GetClientMode(),"x")==-1)
  45.  goto NotIRCX
  46. endif
  47.  
  48. // Get User's level
  49. int Z = GetUserData($nick,3)
  50. if (Z==0)
  51.  // FIRST warning
  52.  /target $channel +$nick
  53.  /display $channel $nick , this is your 4,8FIRST1,0 warning ! Please do not say such word(s) here !
  54.  /target $channel
  55.  /setuserdata $nick 3 1
  56.  return 0
  57. endif
  58.  
  59. if (Z==1)
  60.  // LAST warning
  61.  /target $channel +$nick
  62.  /display $channel $nick , this is your 8,4LAST1,0 warning !! If you keep talking like this , you will get in trouble !!
  63.  /target $channel 
  64.  /setuserdata $nick 3 2
  65.  return 0
  66. endif
  67.  
  68. if (Z==2)
  69.  // KICK
  70.  /setuserdata $nick 3 0
  71.  /mode $channel +b %DefaultBanFromMask("$0")%
  72.  /kick $channel $nick You really made me mad !!
  73.  return 0
  74. endif
  75.  
  76. :NotIRCX
  77. // Get User's level
  78. int Z = GetUserData($nick,3)
  79. if (Z==0)
  80.  // FIRST warning
  81.  /display $channel $nick , this is your 4,8FIRST1,0 warning ! Please do not say such word(s) here !
  82.  /setuserdata $nick 3 1
  83.  return 0
  84. endif
  85.  
  86. if (Z==1)
  87.  // LAST warning
  88.  /display $channel $nick , this is your 8,4LAST1,0 warning !! If you keep talking like this , you will get in trouble !!
  89.  /setuserdata $nick 3 2
  90.  return 0
  91. endif
  92.  
  93. if (Z==2)
  94.  // KICK
  95.  /setuserdata $nick 3 0
  96.  /mode $channel +b %DefaultBanFromMask("$0")%
  97.  /kick $channel $nick You really made me mad !!
  98.  return 0
  99. endif
  100.