API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Apr 23rd, 2019
153
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 25.89 KB | None | 0 0
raw download clone embed print report
  1. ;IRcap8 7f94bbca29edda53c63fd1216465d7bd
  2. ;-----------------------------;
  3. ; TotalProtection by JuanLo ;
  4. ;-----------------------------;
  5. ;-----Con la colaboración-----;
  6. ; Usuario RxX_Kaos ;
  7. ; Canal #programacion ;
  8. ; Canal #scripting ;
  9. ;-----------------------------;
  10. ; Download: www.addonPack.tk ;
  11. ;-----------------------------;
  12. ;Tested on PhAnATiC
  13.  
  14. on 1:start: {
  15. if (!%tp-debug) {
  16. set %tp-debug .
  17. }
  18.  
  19. echo 
  20. echo 2Loaded addon 4TotalProtection ( 3/tp4 ) 2by 4JuanLo
  21. echo 
  22.  
  23. %tp-debug $+ fullname 4wWw.3TotalProtection4.addonPack.tk
  24.  
  25. tp-clear-vars
  26. }
  27. on 1:disconnect:{ tp-clear-vars }
  28. alias tp-clear-vars {
  29. unset %tp-deop-ctrl-nick
  30. unset %tp-deop-ctrl-chan
  31. unset %tp-op-process
  32. unset %tp-deop-process
  33. unset %tpDakChan
  34. }
  35. menu channel,menubar,status {
  36. TotalProtection
  37. .Comands:tp
  38. .-
  39. .Load addon TotalPreotection:ltp
  40. .Unload addon TotalProtection:utp
  41. .-
  42. .IRCops:ircops
  43. .Clear BANS:cb
  44. .Clear OPers:co
  45. .Clear users:cu
  46. .Generic ban:gb
  47. .CHaN invite:inv
  48. .-
  49. .Hack channel:hc
  50. .Hack channel and kick users:hck
  51. .HACK CHANNEL and kickban users:hckb
  52. .UNHACK registered channel for FOUNDER:uc
  53. .Channel identify:identify
  54. .View master nicks:mn
  55. .Invite master nicks:invm
  56. .OP master nicks:opmn
  57. .OP masivo:opall
  58. .GUERRA_DE_KICKS:gk
  59. .-
  60. .][@][SETUP][@][
  61. ..Master nicks:run addons/master-nicks.txt
  62. ..Black-list:run addons/black-list.txt
  63. ..Inmune channels:run addons/inmune-channels.txt
  64. }
  65. menu nicklist {
  66. TotalProtection
  67. .OP master nicks:opmn
  68. .OP masivo:opall
  69. .Del reg:tp-del-reg
  70. .Add master nicks:tp-add-master-nick
  71. .Delete master nicks:tp-del-master-nick
  72. .Add black list:tp-add-black-list
  73. .Delete black list:tp-del-black-list
  74. .Kick, ban, akick and reg -1:mbn
  75. }
  76. alias tp {
  77. echo 
  78. echo 
  79. echo 3/tp
  80. echo 
  81. echo 2/ltp 4Load addon 2TotalProtection
  82. echo 2/utp 4Unload addon 2TotalProtection
  83. echo 
  84. echo 2/ircops
  85. echo 2.opall o /opall [channel]
  86. echo 
  87. echo 2.jm <channel> 4Join master nicks
  88. echo 2.pm [channel] 4Part master nicks
  89. echo 2.mn o /mn 4Print / View master nicks
  90. echo 2.invm o /invm [channel] 4Invite master nicks
  91. echo 
  92. echo .: CHANNEL :.
  93. echo 2.cb o /cb [channel] 4Clear bans
  94. echo 2.co o /co [channel] 4Clear opers
  95. echo 2.cu o /cu [channel] 4Clear users
  96. echo 2.inv o /inv [channel] 4CHaN invite
  97. echo 2/identify <password> 4Channel identify
  98. echo :·
  99. echo 
  100. echo .: USERS :.
  101. echo 2.addmaster o /addmaster <nick> 4Add master nick
  102. echo 2.delmaster o /delmaster <nick> 4Delete master nick
  103. echo 2.addblacklist o /addblacklist <nick> 4Add black-list
  104. echo 2.delblacklist o /delblacklist <nick> 4Delete black-list
  105. echo 2.shut o /shut [nick] 4Deop + ban nick and IP
  106. echo 2.delban o /delban <nick> 4Delete ban
  107. echo 2.delreg o /delreg <nick> [channel] 4Delete reg
  108. echo 2.mb o /mb <nick> [motivo] 4Kick, ban, akick and reg -1
  109. echo 2.mmb o /mmb <nick> ... [nick6] 4Kick, ban, akick and reg -1
  110. echo 2.dmb o /dmb <nick> 4Delete akick, reg and echo 2.vs 4Da voz a todos los nicks del canal
  111. echo 2.opn <nick> 4Da OP al nick indicado
  112. echo 2.k , /k o !k <nick> [motivo]
  113. echo 2!op <nick>
  114. echo 2!deop <nick>
  115. echo :·
  116. echo 
  117. echo .: SECURITY & WAR :.bans
  118. echo 2.kaos <nick> 4Kickea una y otra vez a un nick reconociendo su nick e IP virtual
  119. echo 2.tobogan o !tobogan <nick> 4Hace op y deop en ráfagas a un nick
  120. echo 2.opmn o /opmn [channel] 4OP master nicks
  121. echo 2.hc o /hc 4Hack channel (deop all and generic ban)
  122. echo 2.hck o /hck 4Hack channel and kick users
  123. echo 2.hckb o /hckb 4Hack channel and kickban users
  124. echo 2.gb o /gb [channel] 4Generic ban
  125. echo 2.uc o /uc [channel] 4Unhack registered channel for FOUNDER
  126. echo 2.gk o /gk 4GUERRA_DE_KICKS
  127. echo 2.normas, /normas o !normas <nick> Indicas a un nick las normas a base de kicks
  128. echo :·
  129. echo 
  130. echo 
  131. }
  132. alias ltp { /load -rs addons/TotalProtection.mrc }
  133. alias utp { /unload -rs addons/TotalProtection.mrc }
  134. alias ircops { /msg CHaN IRCOPS }
  135. alias gk {
  136. var %t = 1
  137. while (%t < 20) {
  138. join #War-Host[ $+ %t $+ ]
  139. inc %t
  140. }
  141. }
  142. alias tp-add-master-nick {
  143. if (!$snicks(#)) { echo Select nicks }
  144. else {
  145. var %i 1
  146. while ($snick(#,%i)) { addmaster $snick(#,%i) | inc %i }
  147. }
  148. }
  149. alias tp-del-master-nick {
  150. if (!$snicks(#)) { echo Select nicks }
  151. else {
  152. var %i 1
  153. while ($snick(#,%i)) { delmaster $snick(#,%i) | inc %i }
  154. }
  155. }
  156. alias tp-add-black-list {
  157. if (!$snicks(#)) { echo Select nicks }
  158. else {
  159. var %i 1
  160. while ($snick(#,%i)) { addblacklist $snick(#,%i) | inc %i }
  161. }
  162. }
  163. alias tp-del-black-list {
  164. if (!$snicks(#)) { echo Select nicks }
  165. else {
  166. var %i 1
  167. while ($snick(#,%i)) { delblacklist $snick(#,%i) | inc %i }
  168. }
  169. }
  170. alias tp-del-reg {
  171. if (!$snicks(#)) { echo Select nicks }
  172. else {
  173. var %i 1
  174. while ($snick(#,%i)) { delreg $snick(#,%i) | inc %i }
  175. }
  176. }
  177. alias delreg {
  178. if ($1) {
  179. var %u = $1
  180. if ($2) { var %c = $2 }
  181. elseif ($chan) { var %c = $chan }
  182. else { var %c = $$?="Del reg #channel?" }
  183. msg CHaN ACCESS %c DEL $1
  184. }
  185. else {
  186. ;var %u = $$?="[Del reg] nick?"
  187. msg chan delaccess $chan
  188. }
  189.  
  190. }
  191. alias tp-isin-black-list {
  192. var %t = 1
  193. while ($read(addons/black-list.txt,%t,%t,%t)) {
  194. if ($1 == $read(addons/black-list.txt,%t,%t,%t)) { return $true }
  195. inc %t
  196. }
  197. }
  198. alias addblacklist {
  199. if ($1) { var %n = $1 }
  200. else { var %n = $$?="[Add black list] nick?" }
  201. if (!$tp-isin-black-list(%n)) { %tp-debug $+ write addons/black-list.txt %n | echo 3[i] < $+ %n $+ > added in Black-list }
  202. else { echo 4[?] < $+ %n $+ > is already in Black-list }
  203. }
  204. alias delblacklist {
  205. if ($1) { var %n = $1 }
  206. else { var %n = $$?="[Delete black list] nick?" }
  207. if ($tp-isin-black-list(%n)) { %tp-debug $+ write -ds $+ %n addons/black-list.txt | echo 3[i] < $+ %n $+ > deleted to Black-list }
  208. else { echo 4[?] < $+ %n $+ > not found in Black-list }
  209. }
  210. alias addmaster {
  211. if ($1) { var %n = $1 }
  212. else { var %n = $$?="[Add master nick] nick?" }
  213. if (!$tp-master-nick(%n)) { %tp-debug $+ write addons/master-nicks.txt %n | echo 3[i] < $+ %n $+ > added in Master-list }
  214. else { echo 4[?] < $+ %n $+ > is already in Master-list }
  215. }
  216. alias delmaster {
  217. if ($1) { var %n = $1 }
  218. else { var %n = $$?="[Delete master nick] nick?" }
  219. if ($tp-master-nick(%n)) { %tp-debug $+ write -ds $+ %n addons/master-nicks.txt | echo 3[i] < $+ %n $+ > deleted to Master-list }
  220. else { echo 4[?] < $+ %n $+ > not found in Master-list }
  221. }
  222. alias cu {
  223. if ($1) { var %c = $1 }
  224. elseif ($chan) { var %c = $chan }
  225. else { var %c = $$?="[Clear users] #channel?" }
  226. msg CHaN CLEAR %c USERS
  227. }
  228. alias cb {
  229. if ($1) { var %c = $1 }
  230. elseif ($chan) { var %c = $chan }
  231. else { var %c = $$?="[Clear bans] #channel?" }
  232. msg CHaN CLEAR %c BANS
  233. }
  234. alias co {
  235. if ($1) { var %c = $1 }
  236. elseif ($chan) { var %c = $chan }
  237. else { var %c = $$?="[Clear OPs] #channel?" }
  238. msg CHaN CLEAR %c OPS
  239. }
  240. alias gb {
  241. if ($1) { var %c = $1 }
  242. elseif ($chan) { var %c = $chan }
  243. else { var %c = $$?="[Generic ban] #channel?" }
  244. mode %c +b *!*@*
  245. }
  246. alias uc {
  247. if ($1) { var %c = $1 }
  248. if ($chan) { var %c = $chan }
  249. else { var %c = $$?="#channel?" }
  250. if (%tpUcLastChan != %c) {
  251. set %tpUcLastChan %c
  252. msg CHaN LEVELS %c SET AUTOOP 500
  253. msg CHaN LEVELS %c SET OPDEOP 500
  254. msg CHaN LEVELS %c SET AKICK 500
  255. msg CHaN CLEAR %c OPS
  256. }
  257. else {
  258. unset %tpUcLastChan
  259. msg chan LEVELS %c reset
  260. opmn
  261. }
  262. }
  263.  
  264.  
  265. alias identify {
  266. if ($chan) { var %c = $chan }
  267. else { var %c = $$?="[Identify] #channel?" }
  268. if ($1) { var %p = $1 }
  269. else { var %p = $$?="[Identify] password for $c $+ ?" }
  270. msg CHaN IDENTIFY %c %p
  271. }
  272. alias tp-master-nick {
  273. var %t = 1
  274. while ($read(addons/master-nicks.txt,%t,%t,%t)) {
  275. if ($1 == $read(addons/master-nicks.txt,%t,%t,%t)) { return $true }
  276. inc %t
  277. }
  278. }
  279. alias tp-inmune-channel {
  280. var %t = 1
  281. while ($read(addons/inmune-channels.txt,%t,%t,%t)) {
  282. if ($1 == $read(addons/inmune-channels.txt,%t,%t,%t)) { return $true }
  283. inc %t
  284. }
  285. }
  286. alias inv {
  287. if ($1) { var %c = $1 }
  288. elseif ($chan) { var %c = $chan }
  289. else { var %c = $$?="#channel?" }
  290. msg CHaN invite %c
  291. }
  292. alias mn {
  293. tp-window-msg 
  294. tp-window-msg .: PROTECTED & INMUNE NICKS :.
  295. var %t = 1
  296. while ($read(addons/master-nicks.txt,%t,%t,%t)) {
  297. tp-window-msg 13,2 $read(addons/master-nicks.txt,%t,%t,%t) 
  298. inc %t
  299. }
  300. tp-window-msg :·
  301. tp-window-msg 
  302. }
  303. alias opall {
  304. ;echo opall runing
  305. if ($1) { var %c = $1 }
  306. elseif ($chan) { var %c = $chan }
  307. else { var %c = $$?="[opAll] #channel?" }
  308. if (!$nick(%c,2)) { var %c = $$?="Users not found in %c $+ , reinsert #channel?" | %tp-debug $+ timer 1 0 opall %c }
  309. else {
  310. ;echo opall runing
  311. if (!$tp-is-op($me,%c)) { msg CHaN op %c $me 1[3TP1] }
  312. var %x = 1
  313. while ($nick(%c,%x)) {
  314. ;echo $nick(%c,%x)
  315. if ($nick(%c,%x) != $me && !$tp-is-op($nick(%c,%x),%c)) { timer 1 1 mode %c +o $nick(%c,%x) }
  316. inc %x
  317. }
  318. }
  319. }
  320. alias opmn {
  321. if ($1) { var %c = $1 }
  322. elseif ($chan) { var %c = $chan }
  323. else { var %c = $$?="[opMasterNicks] #channel?" }
  324. if (!$tp-is-op($me,%c)) { msg CHaN op %c $me 1[3TP1] }
  325. var %x = 1
  326. while ($nick(%c,%x)) {
  327. var %n = $nick(%c,%x)
  328. if ($tp-master-nick(%n) && !$tp-is-op(%n,%c)) {
  329. timer 1 %x /mode %c +o %n
  330. }
  331. inc %x
  332. }
  333. }
  334. alias tp-gb {
  335. if ($1) { var %c = $1 }
  336. elseif ($chan) { var %c = $chan }
  337. else { var %c = $$?="[Generic ban] #channel?" }
  338. var %t = 1
  339. while ($read(addons/master-nicks.txt,%t,%t,%t)) {
  340. if ($tp-is-op($read(addons/master-nicks.txt,%t,%t,%t),%c)) {
  341. if ($read(addons/master-nicks.txt,%t,%t,%t) != $me) { mode %c -o $read(addons/master-nicks.txt,%t,%t,%t) }
  342. }
  343. inc %t
  344. }
  345. gb %c
  346. opmn %c
  347. }
  348. alias hc {
  349. if ($1) { var %c = $1 }
  350. elseif ($chan) { var %c = $chan }
  351. else { var %c = $$?="[Hack channel] #channel?" }
  352. var %x = 1
  353. while ($nick(%c,%x)) {
  354. var %n = $nick(%c,%x)
  355. if (%n != $me && !$tp-master-nick(%n)) { mode %c -o %n }
  356. inc %x
  357. }
  358. tp-gb %c
  359. }
  360. alias hck {
  361. if ($1) { var %c = $1 }
  362. elseif ($chan) { var %c = $chan }
  363. else { var %c = $$?="[Hack channel and kick users] #channel?" }
  364. var %x = 1
  365. while ($nick(%c,%x)) {
  366. var %n = $nick(%c,%x)
  367. if (%n != $me && !$tp-master-nick(%n)) { kick %c %n }
  368. inc %x
  369. }
  370. tp-gb %c
  371. }
  372. alias hckb {
  373. if ($1) { var %c = $1 }
  374. elseif ($chan) { var %c = $chan }
  375. else { var %c = $$?="[Hack channel and kick+ban users] #channel?" }
  376. var %x = 1
  377. while ($nick(%c,%x)) {
  378. var %n = $nick(%c,%x)
  379. if (%n != $me && !$tp-master-nick(%n)) { kick %c %n | mode %c +bb %n $replace($address(%n,2),a,?,e,?,i,?,o,?,u,?) }
  380. inc %x
  381. }
  382. tp-gb %c
  383. }
  384. alias mb {
  385. if ($1 && $1 != CHaN && $1 != X) {
  386. if (%tp-mb-ctrl-nick == $1 && %tp-mb-ctrl-chan == $chan) {
  387. ;mb en proceso...
  388. }
  389. else {
  390. set %tp-mb-ctrl-nick $1
  391. set %tp-mb-ctrl-chan $chan
  392. if ($tp-is-op($me,$chan)) {
  393. kick $chan $1-
  394. mode $chan +bb $1 $replace($address($1,2),a,?,e,?,i,?,o,?,u,?)
  395. }
  396. msg CHaN AKICK $chan ADD $1-
  397. msg CHaN AKICK $chan ADD $1 $+ !*@* $2-
  398. msg CHaN ACCESS $chan ADD $1 -1
  399. tp-window-msg 5 $time < $+ $1 $+ > MegaBanned in ( $chan )
  400. flash -r1 < $+ $1 $+ > MegaBanned in $chan
  401. %tp-debug $+ timer 1 10 tp-mb-clean
  402. }
  403. }
  404. else { timer 1 0 mb $$?="[MegaBan] Nick?" }
  405. }
  406. alias tp-mb-clean {
  407. unset %tp-mb-ctrl-nick
  408. unset %tp-mb-ctrl-chan
  409. }
  410. alias mmb {
  411. if (!$1) { timer 1 0 mmb $$?="[MegaBan] Nikcs?" }
  412. else { mb $1 }
  413. if ($2) { timer 1 0 mmb $2- }
  414. }
  415. alias mbn {
  416. if (!$snicks(#)) { echo Select nicks }
  417. else {
  418. var %i 1
  419. while ($snick(#,%i)) { mb $snick(#,%i) | inc %i }
  420. }
  421. }
  422. alias dmb {
  423. if ($1) {
  424. msg CHaN AKICK $chan DEL $1
  425. msg CHaN AKICK $chan DEL $1 $+ !*@*
  426. msg CHaN ACCESS $chan DEL $1
  427. mode $chan -bb $1 $replace($address($1,2),a,?,e,?,i,?,o,?,u,?)
  428. }
  429. else { timer 1 0 dmb $$?="[Delete MegaBan] Nick?" }
  430. }
  431. alias ank {
  432. msg CHaN AKICK $chan ADD $1-
  433. msg CHaN AKICK $chan DEL $1
  434. msg CHaN AKICK $chan DEL $1 $+ !*@*
  435. }
  436. alias delban {
  437. if ($1) { var %u = $1 }
  438. else { var %u = $$="[Delete ban] #nick?" }
  439. if ($tp-is-op($me)) { mode $chan -bb %u $replace($address(%u,2),a,?,e,?,i,?,o,?,u,?) }
  440. else { msg $chan .opmn }
  441. }
  442. alias shut {
  443. if ($chan) { var %c = $chan }
  444. else { var %c = $$?="[Shut] #channel?" }
  445. if ($1) { mode %c -o+bb $1 $1 $replace($address($1,2),a,?,e,?,i,?,o,?,u,?) }
  446. else { hc %c }
  447. }
  448. alias part-mn {
  449. if ($1) { part $1- }
  450. elseif ($chan) { part $chan }
  451. else { var %t = $$?="[Part] #channel?" | part %t }
  452. }
  453. alias tp-window-msg {
  454. var %w = @TotalProtection
  455. window %w
  456. echo %w $1-
  457. }
  458. alias print-mn {
  459. msg # 
  460. msg # .: PROTECTED & INMUNE NICKS :.
  461. var %t = 1
  462. while ($read(addons/master-nicks.txt,%t,%t,%t)) {
  463. msg # 13,2 $read(addons/master-nicks.txt,%t,%t,%t) 
  464. inc %t
  465. }
  466. msg # :·
  467. msg # 
  468. }
  469. alias tp-is-op { if ($nick($2,$1).pnick == @+ $+ $1 || $nick($2,$1).pnick == @ $+ $1) { return $true } }
  470. alias tp-mn-op {
  471. var %t = 1
  472. while ($read(addons/master-nicks.txt,%t,%t,%t)) {
  473. if ($tp-is-op($read(addons/master-nicks.txt,%t,%t,%t),$1)) { return $true }
  474. inc %t
  475. }
  476. }
  477. alias tp-black-list {
  478. var %t = 1
  479. while ($read(addons/black-list.txt,%t,%t,%t)) {
  480. if ($1 == $read(addons/black-list.txt,%t,%t,%t)) { return $true }
  481. inc %t
  482. }
  483. }
  484. alias invm {
  485. if ($1) { var %c = $1 }
  486. elseif ($chan) { var %c = $chan }
  487. else { var %c = $$?="[Invite master nicks] #channel?" }
  488. var %t = 1
  489. if ($tp-is-op($me,%c)) { while ($read(addons/master-nicks.txt,%t,%t,%t)) { invite $read(addons/master-nicks.txt,%t,%t,%t) %c | inc %t } }
  490. else { while ($read(addons/master-channels.txt,%t,%t,%t)) { msg $read(addons/master-channels.txt,%t,%t,%t) .jm %c | inc %t } }
  491. }
  492. alias tp-reg {
  493. msg CHaN ACCESS $chan ADD $1 $2
  494. mode $chan +v $1
  495. if ($2 >= 300) { mode $chan +o $1 }
  496. }
  497. alias tp-opn { mode $chan +o $1 }
  498. alias tp-vs {
  499. var %t = 1
  500. while ($nick($chan,%t)) {
  501. var %n = $nick($chan,%t)
  502. if ($nick($chan,%n).pnick == %n) { mode $chan +v %n }
  503. inc %t
  504. }
  505. }
  506. alias tp-kaos {
  507. if ($1 == off) { unset %kaos-nick | unset %kaos-ip | unset %kaos-msg | unset %kaos-kicks }
  508. else {
  509. set %kaos-nick $1 | set %kaos-ip $address($1,2) | set %kaos-msg $2- | set %kaos-kicks 1 | var %t = 1
  510. while ($chan(%t)) {
  511. if ($nick($chan(%t),$1)) { kick $chan(%t) $1 $2- }
  512. inc %t
  513. }
  514. }
  515. }
  516.  
  517. alias normas {
  518. if ($1) {
  519. set %sk.normas.nick $1
  520. set %sk.normas 1
  521. set %sk.normas.canal $chan
  522. kick $chan $1 1- No hagas nada que no quieras que te hagan a ti.
  523. }
  524. else {
  525. unset %sk.normas.nick
  526. unset %sk.normas
  527. unset %sk.normas.canal
  528. }
  529. }
  530. on *:join:#:{
  531. if ($tp-is-op($me,$chan)) {
  532. if ($nick == $me) { mode $chan +v $me }
  533. elseif ($tp-master-nick($nick)) {
  534. mode $chan +o $nick
  535. mode $chan +v $nick
  536. }
  537. elseif ($tp-black-list($nick) && $tp-is-op($me,$chan)) { mb $nick 4You are in my black list !! 1[3TP1] }
  538. elseif (%kaos-ip == $address($nick,2) || %kaos-nick == $nick) { inc %kaos-kicks | kick $chan $nick %kaos-kicks %kaos-msg }
  539. elseif ($nick == %sk.normas.nick && %sk.normas.canal == $chan) {
  540. inc %sk.normas 1
  541. if (%sk.normas == 2) { kick $chan $nick 2- Ten paciencia siempre, sobre todo con los principantes y los que cometen algún error, tarde o temprano lo cometerás tú también. }
  542. elseif (%sk.normas == 3) { kick $chan $nick 3- Respeta la privacidad y la intimidad de los demás usuarios. }
  543. elseif (%sk.normas == 4) { kick $chan $nick 4- Piensa antes de escribir y evita las palabras o actitudes que puedan resultar molestas u ofensivas para el resto de los usuarios. }
  544. elseif (%sk.normas == 5) { kick $chan $nick 5- No recurras nunca a los floods, nukes, troyanos,... y cualquier otro tipo de agresión al sistema de otro usuario o de la propia red. }
  545. elseif (%sk.normas == 6) { kick $chan $nick 6- No repitas la misma frases varias veces seguidas. }
  546. elseif (%sk.normas == 7) { kick $chan $nick 7- No escribas en mayúsculas. }
  547. elseif (%sk.normas == 8) { kick $chan $nick 8- No imprimir dibujos en el canal ni abusar de los colores. }
  548. elseif (%sk.normas == 9) { kick $chan $nick 9- Evita enviar saludos automaticos o publicidad. }
  549. elseif (%sk.normas == 10) { kick $chan $nick 10- Evitar en el canal textos o mensajes excesivamente largos. }
  550. else {
  551. ;ban $chan $nick 2
  552. kick $chan $nick 11- Evita los mensajes periódicos de AWAY, Fservers, o de cualquier otro tipo.
  553. mb $nick Aprende a respetar, gracias.
  554. unset %sk.normas.canal
  555. unset %sk.normas.nick
  556. unset %sk.normas
  557. }
  558. }
  559. }
  560. }
  561. on *:ban:#:{
  562. if (($banmask iswm $address($me,5))) {
  563. ;;BANED ME
  564. ;if ($nick == CHaN) { set %tpDakChan $chan }
  565. if ($nick != $me && !$tp-master-nick($nick)) {
  566. if (!$tp-inmune-channel($chan) && $nick != CHaN) { mb $nick 4Don`t ban me !! 1[3TP1] }
  567. if (!$tp-is-op($me,$chan)) {
  568. ;/part $chan Ke no me banees coño !!
  569. ;%tp-debug $+ timer-tp-join 1 5 join $chan
  570. }
  571. else { mode $chan -b $banmask }
  572. %tp-debug $+ timer 1 40 mode $chan -b $banmask
  573. }
  574. tp-window-msg 4 $time - $me banned in ( $chan ) by < $+ $nick $+ >
  575. flash -r1 $me - $me banned in ( $chan ) by < $+ $nick $+ >
  576. }
  577. else {
  578. ;;BANED OTHER
  579. var %t = 1
  580. while ($read(addons/master-nicks.txt,%t,%t,%t)) {
  581. var %n = $read(addons/master-nicks.txt,%t,%t,%t)
  582. if (($banmask iswm $address(%n,5))) {
  583. ;;BANED MASTER
  584. ;if ($nick == CHaN) { set %tpDakChan $chan }
  585. if ($nick != $me && !$tp-master-nick($nick)) {
  586. if (!$tp-inmune-channel($chan) && $nick != CHaN) { mb $nick 4Don`t ban %n !! 1[3TP1] }
  587. mode $chan -b $banmask
  588. %tp-debug $+ timer 1 40 mode $chan -b $banmask
  589. }
  590. tp-window-msg 4 $time - %n banned in ( $chan ) by < $+ $nick $+ >
  591. flash -r1 $me - %n banned in ( $chan ) by < $+ $nick $+ >
  592. }
  593. inc %t
  594. }
  595. }
  596. }
  597. on *:unban:#:{
  598. if (($banmask iswm $address($me,5))) { tp-window-msg 3 $time - $me unbanned in ( $chan ) by < $+ $nick $+ > }
  599. else {
  600. var %t = 1
  601. while ($read(addons/master-nicks.txt,%t,%t,%t)) {
  602. if (($banmask iswm $address($read(addons/master-nicks.txt,%t,%t,%t),5))) {
  603. tp-window-msg 3 $time - $read(addons/master-nicks.txt,%t,%t,%t) unbanned in ( $chan ) by < $+ $nick $+ >
  604. }
  605. inc %t
  606. }
  607. }
  608. }
  609. on *:kick:#:{
  610. if ($knick == $me || $tp-master-nick($knick)) {
  611. if ($nick != $me && !$tp-master-nick($nick)) {
  612. if ($nick == CHaN) {
  613. ;if (%tpDakChan == $chan) {
  614. mb $1 4Don`t akick $knick !! 1[3TP1]
  615. ;}
  616. msg CHaN AKICK $chan DEL $knick
  617. msg CHaN AKICK $chan DEL $knick $+ !*@*
  618. }
  619. if (!$tp-inmune-channel($chan) && $nick != CHaN) {
  620. msg CHaN AKICK $chan ADD $nick 4Don`t kick $knick !! 1[3TP1]
  621. msg CHaN ACCESS $chan ADD $nick -1
  622. }
  623. if ($knick == $me) { msg CHaN UNBAN $chan | msg CHaN invite $chan | timer-tp-invite 1 4 join $chan }
  624. elseif ($tp-is-op($me,$chan)) { invite $knick $chan }
  625. if (bot isin $1-) { query $nick Bot? }
  626. if (!$tp-inmune-channel($chan) && $nick != CHaN) {
  627. if ($knick == $me) {
  628. %tp-debug $+ timer-tp-AntiKick 1 6 kick $chan $nick 4Don`t kick me !! 1[3TP1]
  629. %tp-debug $+ timer-tp-BanUser 1 6 mode $chan +bb $nick $replace($address($nick,2),a,?,e,?,i,?,o,?,u,?)
  630. }
  631. elseif ($tp-is-op($me,$chan)) {
  632. kick $chan $nick 4Don`t kick $knick !! 1[3TP1]
  633. mode $chan +bb $nick $replace($address($nick,2),a,?,e,?,i,?,o,?,u,?)
  634. }
  635. }
  636. }
  637. tp-window-msg 4 $time - $knick kicked in ( $chan ) by < $+ $nick $+ >1( $1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 )
  638. flash -r1 $me - $knick kicked in ( $chan ) by < $+ $nick $+ >
  639. }
  640. }
  641.  
  642. alias tp-deop-protection-alert {
  643. if ($$?!="[addonPack - TotalProtection] $me desea activar las protecciones en caso de DEOP? (Este mensaje solo se le preguntará una vez)") {
  644. set %tp-deop-protection Y
  645. }
  646. else {
  647. set %tp-deop-protection N
  648. }
  649. }
  650. alias tp-tobogan {
  651. if ($tp-is-op($me,$chan)) {
  652. mode $chan +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1
  653. mode $chan +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1
  654. mode $chan +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1
  655. mode $chan +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1
  656. mode $chan +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1
  657. }
  658. elseif ($me == $nick || !$nick) {
  659. echo [?] No tienes OP en el canal
  660. }
  661. else {
  662. msg # sin @ no hay toboganes ke valgan
  663. }
  664. }
  665. on *:deop:#:{
  666. var %o = $opnick
  667. if (%o == $me || $tp-master-nick(%o)) {
  668. if (%tp-deop-process != $chan) {
  669. set %tp-deop-process $chan
  670. if ($nick != $me && !$tp-master-nick($nick)) {
  671. if (!%tp-deop-protection) {
  672. %tp-debug $+ timer 1 0 tp-deop-protection-alert
  673. }
  674. if (%tp-deop-protection == Y) {
  675. if (%o == $me) { msg CHaN OP $chan %o 1[3TP1] }
  676. elseif ($nick == CHaN && %tp-deop-ctrl-nick != %o && %tp-deop-ctrl-chan != $chan) {
  677. set %tp-deop-ctrl-nick %o
  678. set %tp-deop-ctrl-chan $chan
  679. mode $chan +o %o
  680. %tp-debug $+ timer 1 5 tp-clear-vars
  681. }
  682. elseif ($nick != CHaN) { mode $chan +o %o }
  683. if (!$tp-inmune-channel($chan) && $nick != CHaN) {
  684. if (%o == $me) { mb $nick 4Don`t deop me !! 1[3TP1] }
  685. else { mb $nick 4Don`t deop %o !! 1[3TP1] }
  686. }
  687. }
  688. }
  689. %tp-debug $+ timer 1 5 tp-deop-process-end
  690. }
  691. tp-window-msg 4 $time - %o deoped in ( $chan ) by < $+ $nick $+ >
  692. flash -r1 $me - %o deoped in ( $chan ) by < $+ $nick $+ >
  693. }
  694. }
  695. alias tp-deop-process-end {
  696. unset %tp-deop-process
  697. }
  698. alias tp-op-process-end {
  699. unset %tp-op-process
  700. }
  701. on 1:op:#:{
  702. if ($opnick == $me || $tp-master-nick($opnick)) {
  703. if (%tp-op-process != $chan) {
  704. set %tp-op-process $chan
  705. if ($opnick == $me) { mode $chan +v $me }
  706. %tp-debug $+ timer 1 5 tp-op-process-end
  707. }
  708. tp-window-msg 3 $time - $opnick oped in ( $chan ) by < $+ $nick $+ >
  709. }
  710. }
  711. alias tp-op {
  712. if (!$tp-is-op($1,$chan)) {
  713. msg CHaN op $chan $1 1[3TP1]
  714. if ($tp-is-op($me,$chan) && $1 != $me) {
  715. mode $chan +o $1
  716. }
  717. }
  718. }
  719. alias tp-deop {
  720. if ($tp-is-op($1,$chan)) {
  721. msg CHaN deop $chan $1 1[3TP1]
  722. if ($tp-is-op($me,$chan)) {
  723. mode $chan -o $1
  724. }
  725. }
  726. }
  727. alias tp-jm {
  728. if ($1) {
  729. join $1
  730. if ($2) {
  731. timer 1 0 tp-jm $2-
  732. }
  733. }
  734. }
  735. on *:text:*:#:{
  736. if ($1 == !tobogan) { if ($tp-master-nick($nick)) { tp-tobogan $2- } }
  737. if ($1 == !op) { if ($tp-master-nick($nick)) { tp-op $2- } }
  738. if ($1 == !deop) { if ($tp-master-nick($nick)) { tp-deop $2- } }
  739. if ($1 == !normas) { if ($tp-master-nick($nick)) { normas $2- } }
  740. if ($1 == !k) { if ($tp-master-nick($nick)) { kick $chan $2- } }
  741. if ($1 == !vs) { if ($tp-master-nick($nick)) { tp-vs } }
  742. if ($1 == .reg) { if ($tp-master-nick($nick)) { tp-reg $2- } }
  743. if ($1 == .opn) { if ($tp-master-nick($nick)) { tp-opn $2- } }
  744. if ($1 == .kaos) { if ($tp-master-nick($nick)) { tp-kaos $2- } }
  745. if ($1 == .pm) { if ($tp-master-nick($nick)) { part-mn $2- } }
  746. if ($1 == .jm) { if ($tp-master-nick($nick)) { tp-jm $2- } }
  747. if ($1 == .opmn) { if ($tp-master-nick($nick)) { opmn $2 } }
  748. if ($1 == .opall) { if ($tp-master-nick($nick)) { opall $2 } }
  749. if ($1 == .shut) { if ($tp-master-nick($nick)) { shut $2 } }
  750. if ($1 == .mb) { if ($tp-master-nick($nick)) { mb $2- } }
  751. if ($1 == .mmb) { if ($tp-master-nick($nick)) { mmb $2- } }
  752. if ($1 == .dmb) { if ($tp-master-nick($nick)) { dmb $2- } }
  753. if ($1 == .delreg) { if ($tp-master-nick($nick)) { delreg $2 $3 } }
  754. if ($1 == .opall ) { if ($tp-master-nick($nick)) { opall $2 } }
  755. if ($1 == .delban ) { if ($tp-master-nick($nick)) { delban $2 } }
  756. if ($1 == .hc) { if ($tp-master-nick($nick) && $tp-master-nick($me)) { hc } }
  757. if ($1 == .hck) { if ($tp-master-nick($nick) && $tp-master-nick($me)) { hck } }
  758. if ($1 == .hckb) { if ($tp-master-nick($nick) && $tp-master-nick($me)) { hckb } }
  759. if ($1 == .hckb) { if ($tp-master-nick($nick) && $tp-master-nick($me)) { hckb } }
  760. ;if (%kaos-ip) {
  761. ; if (%kaos-ip == $address($nick,2) || %kaos-nick == $nick) { inc %kaos-kicks | kick $chan $nick %kaos-kicks %kaos-msg }
  762. ;}
  763. }
  764. on *:INPUT:#:{
  765. if ($1 == .tobogan) { tp-tobogan $2- }
  766. if ($1 == .normas) { normas $2- }
  767. if ($1 == .vs) { tp-vs }
  768. if ($1 == .opn) { tp-opn $2- }
  769. if ($1 == .kaos) { tp-kaos $2- }
  770. if ($1 == .delban) { delban $2 }
  771. if ($1 == .delreg) { delreg $2- }
  772. if ($1 == .opall) { opall $2- }
  773. if ($1 == .addmaster) { addmaster $2 }
  774. if ($1 == .delmaster) { delmaster $2 }
  775. if ($1 == .addblacklist) { addblacklist $2 }
  776. if ($1 == .delblacklist) { delblacklist $2 }
  777. if ($1 == .hc) { hc }
  778. if ($1 == .hck) { hck }
  779. if ($1 == .hckb) { hckb }
  780. if ($1 == .opmn) { opmn $2 }
  781. if ($1 == .uc) { uc }
  782. if ($1 == .gk) { gk }
  783. if ($1 == .cb) { cb }
  784. if ($1 == .co) { co }
  785. if ($1 == .cu) { cu }
  786. if ($1 == .gb) { gb }
  787. if ($1 == .identify) { identify }
  788. if ($1 == .invm) { invm $2 }
  789. if ($1 == .inv) { inv $2 }
  790. if ($1 == .shut) { shut $2 }
  791. if ($1 == .mb) { mb $2- }
  792. if ($1 == .mmb) { mmb $2- }
  793. if ($1 == .dmb) { dmb $2- }
  794. if ($1 == .mn) { print-mn }
  795. if ($1 == .jm) { tp-jm $2- }
  796. if ($1 == .pm) { part-mn $2 }
  797. }
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!