API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 15th, 2015
221
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 29.25 KB | None | 0 0
raw download clone embed print report
  1. on *:text:$load*:#:{
  2. if ($2 == -r) {
  3. if ($nick == Doctor) {
  4. msg $chan Chargé avec succès.
  5. }
  6. }
  7. else {
  8. msg $chan Erreur dans le chargement du module " $+ $3 $+ " $+ .
  9. }
  10. }
  11.  
  12. on *:text:$version*:#:{
  13. notice $nick Judgement project 2.0.7 (Ek) - Started 15 march 2014
  14. notice $nick Judgement team project: Doctor
  15. notice $nick This version is supported by mSL language
  16. notice $nick Support - /msg Doctor support - Your question
  17. }
  18.  
  19. on *:text:Judgement,*:#:{
  20. if ($address($nick,2) == *!*@Doctor.user.OnlineGamesNet) {
  21. $2-
  22. }
  23. }
  24.  
  25. on *:text:$listchan:#:{
  26. if ($address($nick,2) == *!*@Doctor.user.OnlineGamesNet) {
  27. notice $nick List of all registered channels:
  28. var %a 0
  29. while (%a < $chan(0)) {
  30. inc %a
  31. notice $nick $chan(%a)
  32. }
  33. }
  34. else {
  35. notice $nick nn
  36. }
  37. }
  38.  
  39. on *:text:*:#:{
  40. if ($nick == EkServ) || ($nick == KiriBot) { halt }
  41. if ($eval($+(%,CapsScan,$chan),2) == on) {
  42. if ($eval($+(%,capsscanops,$chan),2) == on) {
  43. var %a $regex($1-,/[A-Z]/g)
  44. var %b $calc(%a - $eval($+(%,CapsScanMax,$chan),2))
  45. if (%b >= 0) {
  46. mode $chan +b $address($nick,2)
  47. kick $chan $nick Talking with too many caps letters is against the channel rules.
  48. timer 1 $eval($+(%,capsscantempsban,$chan),2) mode $chan -b $address($nick,2)
  49. }
  50. }
  51. if ($eval($+(%,capsscanops,$chan),2) == off) {
  52. if ($nick !isop $chan) {
  53. var %a $regex($1-,/[A-Z]/g)
  54. var %b $calc(%a - $eval($+(%,CapsScanMax,$chan),2))
  55. if (%b >= 0) {
  56. mode $chan +b $address($nick,2)
  57. kick $chan $nick Talking with too many caps letters is against the channel rules.
  58. timer 1 $eval($+(%,capsscantempsban,$chan),2) mode $chan -b $address($nick,2)
  59. }
  60. }
  61. }
  62. }
  63. }
  64.  
  65. on *:load:{
  66. if (!$hget(badword)) { hmake badword }
  67. if ($exists(badword.hsh)) { hload badword badword.hsh }
  68. }
  69. on *:start:{
  70. if (!$hget(badword)) { hmake badword }
  71. if ($exists(badword.hsh)) { hload badword badword.hsh }
  72. }
  73. on *:disconnect:{
  74. if ($hget(badword)) { hsave badword badword.hsh }
  75. }
  76.  
  77. on *:text:*:#:{
  78. if ($nick == EkServ) || ($nick == KiriBot) { halt }
  79.  
  80. if ($1 == $eval($+(%,trigger,$chan),2) $+ addbadword) {
  81. if ($address($nick,2) == $eval($+(%,Owner,$chan),2)) || ($address($nick,2) == *!*@Doctor.user.OnlineGamesNet) || ($address($nick,2) == *!*@Disconnect.support.OnlineGamesNet) {
  82. var %bw $2
  83. if ($hget(badword,%bw)) { notice $nick The badword %bw already exists. }
  84. if (!$hget(badword,%bw)) { hadd badword %bw $date $time | notice $nick The badword %bw added succesfully. | halt }
  85. }
  86. else {
  87. notice $nick You lack access in $chan to use this command.
  88. }
  89. }
  90.  
  91.  
  92. if ($1 == $eval($+(%,trigger,$chan),2) $+ delbadword) {
  93. if ($address($nick,2) == $eval($+(%,Owner,$chan),2)) || ($address($nick,2) == *!*@Doctor.user.OnlineGamesNet) || ($address($nick,2) == *!*@Disconnect.support.OnlineGamesNet) {
  94. var %bw $2
  95. if (!$hget(badword,%bw)) { notice $nick The badword %bw does not exist. }
  96. if ($hget(badword,%bw)) { hdel badword %bw | notice $nick Badword %bw removed succesfully. }
  97. }
  98. else {
  99. notice $nick You lack access in $chan to use this command.
  100. }
  101. }
  102.  
  103. if ($1 == $eval($+(%,trigger,$chan),2) $+ listbadword) {
  104.  
  105. if ($hfind(badword,*,0,w) == 0) { notice $nick The badword list is empty. }
  106. if ($hfind(badword,*,0,w) > 0) {
  107. var %i = 1
  108. while (%i <= $hfind(badword,*,0,w)) {
  109. notice $nick Badword: $hfind(badword,*,%i,w) Added on: $hget(badword,$hfind(badword,*,%i,w))
  110. inc %i
  111. }
  112. }
  113.  
  114. }
  115.  
  116. if ($eval($+(%,badwordscan,$chan),2) == on) {
  117. if ($eval($+(%,badwordscanops,$chan),2) == on) {
  118. if ($hfind(badword,*,0,w) > 0) {
  119. var %i = $hfind(badword,*,0,w)
  120. while (%i) {
  121. if ($hfind(badword,*,%i,w) isin $1-) {
  122. mode $chan +b $address($nick,2)
  123. kick $chan $nick Badword $+($mid($hfind(badword,*,%i,w),1,1),$str($chr(42),$calc($len($hfind(badword,*,%i,w)) - 1))) found. You are banned.
  124. timer 1 $eval($+(%,badwordscantempsban,$chan),2) mode $chan -b $address($nick,2)
  125. }
  126. dec %i
  127. }
  128. }
  129. }
  130. if ($eval($+(%,badwordscanops,$chan),2) == off) {
  131. if ($nick !isop $chan) {
  132. if ($hfind(badword,*,0,w) > 0) {
  133. var %i = $hfind(badword,*,0,w)
  134. while (%i) {
  135. if ($hfind(badword,*,%i,w) isin $1-) {
  136. mode $chan +b $address($nick,2)
  137. kick $chan $nick Badword $+($mid($hfind(badword,*,%i,w),1,1),$str($chr(42),$calc($len($hfind(badword,*,%i,w)) - 1))) found. You are banned.
  138. timer 1 $eval($+(%,badwordscantempsban,$chan),2) mode $chan -b $address($nick,2)
  139. }
  140. dec %i
  141. }
  142. }
  143. }
  144. }
  145. }
  146.  
  147. }
  148.  
  149. on *:join:#:{
  150. if ($nick == EkServ) || ($nick == KiriBot) { halt }
  151. if ($eval($+(%,joinscan,$chan),2) == on) {
  152. if ($eval($+(%,JoinScanOps,$chan),2) == on) {
  153. inc %join $+ $chan $+ $address($nick,2)
  154. timer 1 $eval($+(%,joinscantemps,$chan),2) dec %join $+ $chan $+ $address($nick,2)
  155. if ($eval($+(%,join,$chan,$address($nick,2)),2) >= $eval($+(%,joinscanmax,$chan),2)) {
  156. mode $chan +b $address($nick,2)
  157. kick $chan $nick Joining this channel too much times is against the channel rules.
  158. unset %join $+ $chan $+ $address($nick,2)
  159. timer 1 $eval($+(%,joinscantempsban,$chan),2) mode $chan -b $address($nick,2)
  160. }
  161. if ($eval($+(%,joinscanwarn,$chan),2) == on) {
  162. if ($calc($eval($+(%,joinscanmax,$chan),2) - $eval($+(%,join,$chan,$address($nick,2)),2)) == 1) {
  163. notice $nick You will be banned if you join this channel again.
  164. }
  165. }
  166. }
  167. if ($eval($+(%,JoinScanOps,$chan),2) == off) {
  168. if ($nick !isop $chan) {
  169. inc %join $+ $chan $+ $address($nick,2)
  170. timer 1 $eval($+(%,joinscantemps,$chan),2) dec %join $+ $chan $+ $address($nick,2)
  171. if ($eval($+(%,join,$chan,$address($nick,2)),2) >= $eval($+(%,joinscanmax,$chan),2)) {
  172. mode $chan +b $address($nick,2)
  173. kick $chan $nick Joining this channel too much times is against the channel rules.
  174. unset %join $+ $chan $+ $address($nick,2)
  175. timer 1 $eval($+(%,joinscantempsban,$chan),2) mode $chan -b $address($nick,2)
  176. }
  177. if ($eval($+(%,joinscanwarn,$chan),2) == on) {
  178. if ($calc($eval($+(%,joinscanmax,$chan),2) - $eval($+(%,join,$chan,$address($nick,2)),2)) == 1) {
  179. notice $nick You will be banned if you join this channel again.
  180. }
  181. }
  182. }
  183. }
  184. }
  185. }
  186.  
  187.  
  188.  
  189. on *:action:*:#:{
  190. if ($nick == EkServ) || ($nick == KiriBot) { halt }
  191. if ($eval($+(%,FloodScan,$chan),2) == on) {
  192. if ($eval($+(%,FloodScanOps,$chan),2) == on) {
  193. inc %flood $+ $chan $+ $address($nick,2)
  194. timer 1 $eval($+(%,floodscantemps,$chan),2) dec %flood $+ $chan $+ $address($nick,2)
  195. if ($eval($+(%,flood,$chan,$address($nick,2)),2) >= $eval($+(%,floodscanmax,$chan),2)) {
  196. mode $chan +b $address($nick,2)
  197. kick $chan $nick Flooding the channel is against the channel rules.
  198. unset %flood $+ $chan $address($nick,2)
  199. timer 1 $eval($+(%,floodscantempsban,$chan),2) mode $chan -b $address($nick,2)
  200. }
  201. if ($eval($+(%,floodscanwarn,$chan),2) == on) {
  202. if ($calc($eval($+(%,floodscanmax,$chan),2) - $eval($+(%,flood,$chan,$address($nick,2)),2)) <= 2) {
  203. notice $nick You will be banned if you flood again.
  204. }
  205. }
  206. }
  207. if ($eval($+(%,FloodScanOps,$chan),2) == off) {
  208. if ($nick !isop $chan) {
  209. inc %flood $+ $chan $+ $address($nick,2)
  210. timer 1 $eval($+(%,floodscantemps,$chan),2) dec %flood $+ $chan $+ $address($nick,2)
  211. if ($eval($+(%,flood,$chan,$address($nick,2)),2) >= $eval($+(%,floodscanmax,$chan),2)) {
  212. mode $chan +b $address($nick,2)
  213. kick $chan $nick Flooding the channel is against the channel rules.
  214. unset %flood $+ $chan $address($nick,2)
  215. timer 1 $eval($+(%,floodscantempsban,$chan),2) mode $chan -b $address($nick,2)
  216. }
  217. if ($eval($+(%,floodscanwarn,$chan),2) == on) {
  218. if ($calc($eval($+(%,floodscanmax,$chan),2) - $eval($+(%,flood,$chan,$address($nick,2)),2)) <= 2) {
  219. notice $nick You will be banned if you flood again.
  220. }
  221. }
  222. }
  223. else {
  224. halt
  225. }
  226. }
  227. }
  228. if ($eval($+(%,SpamScan,$chan),2) == on) {
  229. if (http isin $1-) || (www isin $1-) || (.com isin $1-) || (.fr isin $1-) {
  230. if ($eval($+(%,spamscanops,$chan),2) == on) {
  231. inc %spam $+ $chan $+ $address($nick,2)
  232. timer 1 $eval($+(%,spamscantemps,$chan),2) dec %spam $+ $chan $+ $address($nick,2)
  233. if ($eval($+(%,spam,$chan,$address($nick,2)),2) >= $eval($+(%,spamscanmax,$chan),2)) {
  234. mode $chan +b $address($nick,2)
  235. kick $chan $nick Sending some links in this channel is agaisnt the channel rules.
  236. unset %spam $+ $chan $+ $address($nick,2)
  237. timer 1 $eval($+(%,spamscantempsban,$chan),2) mode $chan -b $address($nick,2)
  238. }
  239. if ($eval($+(%,spamscanwarn,$chan),2) == on) {
  240. if ($calc($eval($+(%,spamscanmax,$chan),2) - $eval($+(%,join,$chan,$address($nick,2)),2))) == 1) {
  241. notice $nick You will be banned if you send links in this channel.
  242. }
  243. }
  244. }
  245. if ($eval($+(%,spamscanops,$chan),2) == off) {
  246. if ($nick !isop $chan) {
  247. inc %spam $+ $chan $+ $address($nick,2)
  248. timer 1 $eval($+(%,spamscantemps,$chan),2) dec %join $+ $chan $+ $address($nick,2)
  249. if ($eval($+(%,spam,$chan,$address($nick,2)),2) >= $eval($+(%,spamscanmax,$chan),2)) {
  250. mode $chan +b $address($nick,2)
  251. kick $chan $nick Sending some links in this channel is agaisnt the channel rules.
  252. unset %spam $+ $chan $+ $address($nick,2)
  253. timer 1 $eval($+(%,spamscantempsban,$chan),2) mode $chan -b $address($nick,2)
  254. }
  255. if ($eval($+(%,spamscanwarn,$chan),2) == on) {
  256. if ($calc($eval($+(%,spamscanmax,$chan),2) - $eval($+(%,join,$chan,$address($nick,2)),2)) == 1) {
  257. notice $nick You will be banned if you send links in this channel.
  258. }
  259. }
  260. }
  261. else {
  262. halt
  263. }
  264. }
  265. }
  266. }
  267. }
  268.  
  269. on *:text:*:#:{
  270. if ($nick == EkServ) || ($nick == KiriBot) { halt }
  271. if ($eval($+(%,FloodScan,$chan),2) == on) {
  272. if ($eval($+(%,FloodScanOps,$chan),2) == on) {
  273. inc %flood $+ $chan $+ $address($nick,2)
  274. timer 1 $eval($+(%,floodscantemps,$chan),2) dec %flood $+ $chan $+ $address($nick,2)
  275. if ($eval($+(%,flood,$chan,$address($nick,2)),2) >= $eval($+(%,floodscanmax,$chan),2)) {
  276. mode $chan +b $address($nick,2)
  277. kick $chan $nick Flooding the channel is against the channel rules.
  278. unset %flood $+ $chan $address($nick,2)
  279. timer 1 $eval($+(%,floodscantempsban,$chan),2) mode $chan -b $address($nick,2)
  280. }
  281. if ($eval($+(%,floodscanwarn,$chan),2) == on) {
  282. if ($calc($eval($+(%,floodscanmax,$chan),2) - $eval($+(%,flood,$chan,$address($nick,2)),2)) <= 2) {
  283. notice $nick You will be banned if you flood again.
  284. }
  285. }
  286. }
  287. if ($eval($+(%,FloodScanOps,$chan),2) == off) {
  288. if ($nick !isop $chan) {
  289. inc %flood $+ $chan $+ $address($nick,2)
  290. timer 1 $eval($+(%,floodscantemps,$chan),2) dec %flood $+ $chan $+ $address($nick,2)
  291. if ($eval($+(%,flood,$chan,$address($nick,2)),2) >= $eval($+(%,floodscanmax,$chan),2)) {
  292. mode $chan +b $address($nick,2)
  293. kick $chan $nick Flooding the channel is against the channel rules.
  294. unset %flood $+ $chan $address($nick,2)
  295. timer 1 $eval($+(%,floodscantempsban,$chan),2) mode $chan -b $address($nick,2)
  296. }
  297. if ($eval($+(%,floodscanwarn,$chan),2) == on) {
  298. if ($calc($eval($+(%,floodscanmax,$chan),2) - $eval($+(%,flood,$chan,$address($nick,2)),2)) <= 2) {
  299. notice $nick You will be banned if you flood again.
  300. }
  301. }
  302. }
  303. else {
  304. halt
  305. }
  306. }
  307. }
  308. if ($eval($+(%,SpamScan,$chan),2) == on) {
  309. if (http isin $1-) || (www isin $1-) || (.com isin $1-) || (.fr isin $1-) {
  310. if ($eval($+(%,spamscanops,$chan),2) == on) {
  311. inc %spam $+ $chan $+ $address($nick,2)
  312. timer 1 $eval($+(%,spamscantemps,$chan),2) dec %spam $+ $chan $+ $address($nick,2)
  313. if ($eval($+(%,spam,$chan,$address($nick,2)),2) >= $eval($+(%,spamscanmax,$chan),2)) {
  314. mode $chan +b $address($nick,2)
  315. kick $chan $nick Sending some links in this channel is agaisnt the channel rules.
  316. unset %spam $+ $chan $+ $address($nick,2)
  317. timer 1 $eval($+(%,spamscantempsban,$chan),2) mode $chan -b $address($nick,2)
  318. }
  319. if ($eval($+(%,spamscanwarn,$chan),2) == on) {
  320. if ($calc($eval($+(%,spamscanmax,$chan),2) - $eval($+(%,join,$chan,$address($nick,2)),2))) == 1) {
  321. notice $nick You will be banned if you send links in this channel.
  322. }
  323. }
  324. }
  325. if ($eval($+(%,spamscanops,$chan),2) == off) {
  326. if ($nick !isop $chan) {
  327. inc %spam $+ $chan $+ $address($nick,2)
  328. timer 1 $eval($+(%,spamscantemps,$chan),2) dec %join $+ $chan $+ $address($nick,2)
  329. if ($eval($+(%,spam,$chan,$address($nick,2)),2) >= $eval($+(%,spamscanmax,$chan),2)) {
  330. mode $chan +b $address($nick,2)
  331. kick $chan $nick Sending some links in this channel is agaisnt the channel rules.
  332. unset %spam $+ $chan $+ $address($nick,2)
  333. timer 1 $eval($+(%,spamscantempsban,$chan),2) mode $chan -b $address($nick,2)
  334. }
  335. if ($eval($+(%,spamscanwarn,$chan),2) == on) {
  336. if ($calc($eval($+(%,spamscanmax,$chan),2) - $eval($+(%,join,$chan,$address($nick,2)),2)) == 1) {
  337. notice $nick You will be banned if you send links in this channel.
  338. }
  339. }
  340. }
  341. else {
  342. halt
  343. }
  344. }
  345. }
  346. }
  347. }
  348.  
  349. on *:text:$($+($eval($+(%,trigger,$chan),2),*)):#:{
  350. if ($1 == $eval($+(%,trigger,$chan),2) $+ kick) {
  351. if ($address($nick,2) == *!*@Doctor.user.OnlineGamesNet) || ($address($nick,2) == *!*@Doctor.bnc.tedomum.org) || ($address($nick,2) == *!*@Disconnect.user.OnlineGamesNet) || ($address($nick,2) == *!*@Lord_DN.user.OnlineGamesNet) {
  352. kick $chan $2 Requested
  353. }
  354. }
  355. if ($1 == $eval($+(%,trigger,$chan),2) $+ commands) {
  356. notice $nick List of all commands:
  357. notice $nick Help           Commands           Register
  358. notice $nick Reg            Unregister         Unreg
  359. notice $nick Set            Set FloodScan      Stats
  360. notice $nick Set SpamScan   Set CapsScan       Set BadWordScan
  361. notice $nick Set JoinScan   Judgement           Addbadword
  362. notice $nick Listbadword    Delbadword
  363. notice $nick 162 commands - loaded successfully
  364. notice $nick 14 commands - failed to load.
  365. }
  366.  
  367. if ($1 == $eval($+(%,trigger,$chan),2) $+ help) {
  368. notice $nick Judgement Help
  369. notice $nick Judgement is a channel protection anti-spam service, primarily intended to protects all the channels against flood, spam...
  370. notice $nick Judgement commands:
  371. notice $nick   REGISTER    Register a new channel.
  372. notice $nick   UNREGISTER  Unregister a channel.
  373. notice $nick   SET         Change the settings of a channel registered with EkSpam
  374. notice $nick   ADDBADWORD  Add a badword to the channel badword list.
  375. notice $nick   DELBADWORD  Delete a badword from the channel badword list
  376. notice $nick   LISTBADWORD Show the list of the badwords.
  377. }
  378.  
  379. if ($1 == $eval($+(%,trigger,$chan),2) $+ reg) || ($1 == $eval($+(%,trigger,$chan),2) $+ register) {
  380. if ($address($nick,2) == *!*@Doctor.user.OnlineGamesNet) || ($address($nick,2) == *!*@Disconnect.user.OnlineGamesNet) || ($address($nick,2) == *!*@Lord_DN.user.OnlineGamesNet) {
  381. if ($3) && ($2) {
  382. who $2
  383. who $3
  384. ;Principaux sets pour set "On" les options et le trigger de base.
  385. set %trigger $+ $2 .
  386. set %FloodScan $+ $2 On
  387. set %SpamScan $+ $2 On
  388. set %JoinScan $+ $2 On
  389. set %CapsScan $+ $2 On
  390. set %BadWordScan $+ $2 On
  391.  
  392. ;Configuration de "base".
  393. set %FloodScanMax $+ $2 5
  394. set %FloodScanTemps $+ $2 6
  395. set %FloodScanTempsBan $+ $2 1800
  396. set %FloodScanWarn $+ $2 On
  397. set %FloodScanOps $+ $2 Off
  398.  
  399. set %SpamScanMax $+ $2 3
  400. set %SpamScanTemps $+ $2 3600
  401. set %SpamScanTempsBan $+ $2 1800
  402. set %SpamScanWarn $+ $2 On
  403. set %SpamScanOps $+ $2 Off
  404.  
  405. set %JoinScanMax $+ $2 10
  406. set %JoinScanTemps $+ $2 3600
  407. set %JoinScanTempsBan $+ $2 1800
  408. set %JoinScanWarn $+ $2 On
  409. set %JoinScanOps $+ $2 Off
  410.  
  411. set %CapsScanMax $+ $2 10
  412. set %CapsScanTempsBan $+ $2 1800
  413. set %CapsScanOps $+ $2 Off
  414.  
  415. set %BadwordScanOps $+ $2 Off
  416. set %badwordScanTempsBan $+ $2 1800
  417.  
  418. set %Owner $+ $2 $address($3,2)
  419. join $2
  420. notice $nick The channel has correctly being registered
  421. }
  422. else {
  423. notice $nick You have to specified a channel and an owner.
  424. }
  425. }
  426. else {
  427. notice $nick REGISTER is a privileged command.
  428. }
  429. }
  430.  
  431. if ($1 == $eval($+(%,trigger,$chan),2) $+ unreg) || ($1 == $eval($+(%,trigger,$chan),2) $+ unreg) {
  432. if ($address($nick,2) == *!*@Doctor.user.OnlineGamesNet) || ($address($nick,2) == *!*@Disconnect.user.OnlineGamesNet) {
  433. unset %trigger $+ $2 .
  434. unset %FloodScan $+ $2
  435. unset %SpamScan $+ $2
  436. unset %JoinScan $+ $2
  437. unset %CapsScan $+ $2
  438. unset %BadWordScan $+ $2
  439. unset %FloodScanMax $+ $2
  440. unset %FloodScanTemps $+ $2
  441. unset %FloodScanTempsBan $+ $2
  442. unset %FloodScanWarn $+ $2
  443. unset %FloodScanOps $+ $2
  444. unset %SpamScanMax $+ $2
  445. unset %SpamScanTemps $+ $2
  446. unset %SpamScanTempsBan $+ $2
  447. unset %SpamScanWarn $+ $2
  448. unset %SpamScanOps $+ $2
  449. unset %JoinScanMax $+ $2
  450. unset %JoinScanTemps $+ $2
  451. unset %JoinScanTempsBan $+ $2
  452. unset %JoinScanWarn $+ $2
  453. unset %CapsScanMax $+ $2
  454. unset %CapsScanTempsBan $+ $2
  455. unset %CapsScanOps $+ $2
  456. unset %BadwordScanOps $+ $2
  457. unset %badwordscantempsban $+ $2
  458. unset %Owner $+ $2
  459. part $2 ( $+ $nick $+ ) $3-
  460. }
  461. }
  462.  
  463. if ($1 == $eval($+(%,trigger,$chan),2) $+ set) {
  464. if (!$2) {
  465. notice $nick Channel setting:
  466. notice $nick FloodScan      $eval($+(%,FloodScan,$chan),2)
  467. notice $nick SpamScan       $eval($+(%,SpamScan,$chan),2)
  468. notice $nick JoinScan       $eval($+(%,JoinScan,$chan),2)
  469. notice $nick CapsScan       $eval($+(%,CapsScan,$chan),2)
  470. notice $nick BadwordScan    $eval($+(%,BadwordScan,$chan),2)
  471. notice $nick Trigger        $eval($+(%,Trigger,$chan),2)
  472. }
  473. elseif ($2) && ($address($nick,2) == $eval($+(%,Owner,$chan),2)) || ($address($nick,2) == *!*@Doctor.user.OnlineGamesNet) || ($address($nick,2) == *!*@Disconnect.support.OnlineGamesNet) {
  474.  
  475. if ($2 == FloodScan) {
  476. if (!$3) {
  477. notice $nick FloodScan settings:
  478. notice $nick FloodScan      $eval($+(%,FloodScan,$chan),2)
  479. notice $nick Trigger        $eval($+(%,FloodScanMax,$chan),2) - User will be warned/punished after sending  $+ $eval($+(%,FloodScanMax,$chan),2) $+  message(s).
  480. notice $nick Duration       $eval($+(%,FloodScanTemps,$chan),2) - In how many second you can send max  $+ $eval($+(%,FloodScanMax,$chan),2) $+  message(s).
  481. notice $nick Reaction       $eval($+(%,FloodScanTempsBan,$chan),2) - Timer of the ban.
  482. notice $nick Warning        $eval($+(%,FloodScanWarn,$chan),2)
  483. notice $nick ScanOps        $eval($+(%,FloodScanOps,$chan),2)
  484. }
  485. elseif ($3) {
  486. if ($3 == on) || ($3 == 1) {
  487. set %FloodScan $+ $chan On
  488. notice $nick FloodScan is now on
  489. }
  490. if ($3 == off) {
  491. set %FloodScan $+ $chan Off
  492. notice $nick FloodScan is now off
  493. }
  494. if ($3 == Trigger) {
  495. if ($4 > 0) {
  496. set %FloodScanMax $+ $chan $4
  497. notice $nick Trigger is now $4
  498. }
  499. }
  500. if ($3 == Duration) {
  501. if ($4 > 0) {
  502. set %FloodScanTemps $+ $chan $4
  503. notice $nick Duration is now $4
  504. }
  505. }
  506. if ($3 == Reaction) {
  507. if ($4 > 0) {
  508. set %FloodScanTempsBan $+ $chan $4
  509. notice $nick Reaction is now $4
  510. }
  511. }
  512. if ($3 == Warning) {
  513. if ($4 == 1) || ($4 == on) {
  514. set %FloodScanWarn $+ $chan On
  515. notice $nick Warning is now On
  516. }
  517. if ($4 == 0) || ($4 == off) {
  518. set %FloodScanWarn $+ $chan Off
  519. notice $nick Warning is now Off
  520. }
  521. }
  522. if ($3 == ScanOps) {
  523. if ($4 == 1) || ($4 == on) {
  524. set %FloodScanOps $+ $chan On
  525. notice $nick ScanOPs is now On
  526. }
  527. if ($4 == 0) || ($4 == off) {
  528. set %FloodScanOps $+ $chan Off
  529. notice $nick ScanOps is now Off
  530. }
  531. }
  532. }
  533. }
  534. if ($2 == SpamScan) {
  535. if (!$3) {
  536. notice $nick SpamScan settings:
  537. notice $nick SpamScan       $eval($+(%,SpamScan,$chan),2)
  538. notice $nick Trigger        $eval($+(%,SpamScanMax,$chan),2) - User will be warned/punished after sending  $+ $eval($+(%,SpamScanMax,$chan),2) $+  link(s).
  539. notice $nick Duration       $eval($+(%,SpamScanTemps,$chan),2) - In how many messages user will be banned.
  540. notice $nick Reaction       $eval($+(%,SpamScanTempsBan,$chan),2) - Timer of the ban.
  541. notice $nick Warning        $eval($+(%,SpamScanWarn,$chan),2)
  542. notice $nick ScanOps        $eval($+(%,SpamScanOps,$chan),2)
  543. }
  544. elseif ($3) {
  545. if ($3 == on) || ($3 == 1) {
  546. set %SpamScan $+ $chan On
  547. notice $nick SpamScan is now on
  548. }
  549. if ($3 == off) {
  550. set %SpamScan $+ $chan Off
  551. notice $nick SpamScan is now off
  552. }
  553. if ($3 == Trigger) {
  554. if ($4 > 0) {
  555. set %SpamScanMax $+ $chan $4
  556. notice $nick Trigger is now $4
  557. }
  558. }
  559. if ($3 == Duration) {
  560. if ($4 > 0) {
  561. set %SpamScanTemps $+ $chan $4
  562. notice $nick Duration is now $4
  563. }
  564. }
  565. if ($3 == Reaction) {
  566. if ($4 > 0) {
  567. set %SpamScanTempsBan $+ $chan $4
  568. notice $nick Reaction is now $4
  569. }
  570. }
  571. if ($3 == Warning) {
  572. if ($4 == 1) || ($4 == on) {
  573. set %SpamScanWarn $+ $chan On
  574. notice $nick Warning is now On
  575. }
  576. if ($4 == 0) || ($4 == off) {
  577. set %SpamScanWarn $+ $chan Off
  578. notice $nick Warning is now Off
  579. }
  580. }
  581. if ($3 == ScanOps) {
  582. if ($4 == 1) || ($4 == on) {
  583. set %SpamScanOps $+ $chan On
  584. notice $nick ScanOPs is now On
  585. }
  586. if ($4 == 0) || ($4 == off) {
  587. set %SpamScanOps $+ $chan Off
  588. notice $nick ScanOps is now Off
  589. }
  590. }
  591. }
  592. }
  593. if ($2 == JoinScan) {
  594. if (!$3) {
  595. notice $nick JoinScan settings:
  596. notice $nick JoinScan       $eval($+(%,JoinScan,$chan),2)
  597. notice $nick Trigger        $eval($+(%,JoinScanMax,$chan),2) - User will be warned/punished after joining  $+ $eval($+(%,JoinScanMax,$chan),2) $+  time(s) the channel
  598. notice $nick Duration       $eval($+(%,JoinScanTemps,$chan),2) - In how many time.
  599. notice $nick Reaction       $eval($+(%,JoinScanTempsBan,$chan),2) - Timer of the ban.
  600. notice $nick Warning        $eval($+(%,JoinScanWarn,$chan),2)
  601. notice $nick ScanOps        $eval($+(%,SpamScanOps,$chan),2)
  602. }
  603. elseif ($3) {
  604. if ($3 == on) || ($3 == 1) {
  605. set %JoinScan $+ $chan On
  606. notice $nick JoinScan is now on
  607. }
  608. if ($3 == off) {
  609. set %JoinScan $+ $chan Off
  610. notice $nick JoinScan is now off
  611. }
  612. if ($3 == Trigger) {
  613. if ($4 > 0) {
  614. set %JoinScanMax $+ $chan $4
  615. notice $nick Trigger is now $4
  616. }
  617. }
  618. if ($3 == Duration) {
  619. if ($4 > 0) {
  620. set %JoinScanTemps $+ $chan $4
  621. notice $nick Duration is now $4
  622. }
  623. }
  624. if ($3 == Reaction) {
  625. if ($4 > 0) {
  626. set %JoinScanTempsBan $+ $chan $4
  627. notice $nick Reaction is now $4
  628. }
  629. }
  630. if ($3 == Warning) {
  631. if ($4 == 1) || ($4 == on) {
  632. set %JoinScanWarn $+ $chan On
  633. notice $nick Warning is now On
  634. }
  635. if ($4 == 0) || ($4 == off) {
  636. set %JoinScanWarn $+ $chan Off
  637. notice $nick Warning is now Off
  638. }
  639. }
  640. if ($3 == ScanOps) {
  641. if ($4 == 1) || ($4 == on) {
  642. set %JoinScanOps $+ $chan on
  643. notice $nick ScanOps is now On
  644. }
  645. if ($4 == 0) || ($4 == off) {
  646. set %JoinScanOps $+ $chan off
  647. notice $nick ScanOps is now Off
  648. }
  649. }
  650. }
  651. }
  652. if ($2 == CapsScan) {
  653. if (!$3) {
  654. notice $nick CapsScan settings:
  655. notice $nick CapsScan       $eval($+(%,CapsScan,$chan),2)
  656. notice $nick Trigger        $eval($+(%,capsscanmax,$chan),2) - User will be punished if they are $eval($+(%,capsscanmax,$chan),2) capslock in this channel.
  657. notice $nick Reaction       $eval($+(%,CapsScanTempsBan,$chan),2) - Timer of the ban.
  658. notice $nick ScanOps        $eval($+(%,CapsScanOps,$chan),2)
  659. }
  660. elseif ($3) {
  661. if ($3 == on) || ($3 == 1) {
  662. set %CapsScan $+ $chan On
  663. notice $nick CapsScan is now on
  664.  
  665. }
  666. if ($3 == off) {
  667. set %CapsScan $+ $chan Off
  668. notice $nick CapsScan is now off
  669. }
  670. if ($3 == Trigger) {
  671. if ($4 > 0) {
  672. set %CapsScanMax $+ $chan $4
  673. notice $nick Trigger is now $4
  674. }
  675. }
  676. if ($3 == Reaction) {
  677. if ($4 > 0) {
  678. set %CapsScanTempsBan $+ $chan $4
  679. notice $nick Reaction is now  $+ $4 $+ 
  680. }
  681. }
  682. if ($3 == ScanOps) {
  683. if ($4 == 1) || ($4 == on) {
  684. set %CapsScanOps $+ $chan On
  685. notice $nick ScanOps is now On
  686. }
  687. if ($4 == 0) || ($4 == off) {
  688. set %CapsScanOps $+ $chan Off
  689. notice $nick ScanOps is now Off
  690. }
  691. }
  692. }
  693. }
  694. if ($2 == BadwordScan) {
  695. if (!$3) {
  696. notice $nick BadwordScan settings:
  697. notice $nick BadwordScan    $eval($+(%,BadwordScan,$chan),2)
  698. notice $nick Reaction       $eval($+(%,BadwordScanTempsBan,$chan),2) - Timer of the ban.
  699. notice $nick ScanOps        $eval($+(%,BadwordScanOps,$chan),2)
  700. }
  701. elseif ($3) {
  702. if ($3 == on) || ($3 == 1) {
  703. set %BadWordScan $+ $chan On
  704. notice $nick BadwordScan is now on
  705. }
  706. if ($3 == off) {
  707. set %BadWordScan $+ $chan Off
  708. notice $nick BadwordScan is now off
  709. }
  710. if ($3 == Reaction) {
  711. if ($4 > 0) {
  712. set %BadWordScanTempsBan $+ $chan $4
  713. notice $nick Reaction is now  $+ $4 $+ 
  714. }
  715. }
  716. if ($3 == ScanOps) {
  717. if ($4 == 1) || ($4 == on) {
  718. set %BadwordScanOps $+ $chan On
  719. notice $nick ScanOps is now On
  720. }
  721. if ($4 == 0) || ($4 == off) {
  722. set %BadwordScanOps $+ $chan Off
  723. notice $nick ScanOps is now Off
  724. }
  725. }
  726. }
  727. }
  728. if ($2 == Trigger) {
  729. if (!$3) notice $nick Trigger        $eval($+(%,Trigger,$chan),2)
  730. elseif ($3) && (!$4) {
  731. set %Trigger $+ $chan $3
  732. notice $nick Trigger is now $3
  733. }
  734. }
  735. }
  736. else {
  737. notice $nick You lack access in $chan to use this command.
  738. }
  739. }
  740. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!