API tools faq
paste
Advertisement
kyroskoh

NK0005.tcl (Public Commands Not Requiring Ops)

kyroskoh
Mar 22nd, 2011
174
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 23.08 KB | None | 0 0
raw download clone embed print report
  1. ##### Script Name : Public Commands Requiring Ops
  2. ##### Script Version : NK0005.0.tcl
  3. ##### Edited & Bug Fixed By : Kyros Koh (i.am@kyroskoh.com)
  4.  
  5. ##### Pre-Loaded Settings #####
  6.  
  7. putlog "NK0005.tcl Loaded. Functions Enabled..."
  8.  
  9. ###################################### Edit Below #########################################
  10. ##### Bind Command (Edit Only The Flags Below. Format: global|channel) #####
  11. ##### Comment Out Commands That You Do Not Want To Use #####
  12. ##### You Can Change The Command Name #####
  13.  
  14. bind pub n|n !opme NK0005-pub:!opme
  15. bind pub n|n !deopme NK0005-pub:!deopme
  16. bind pub n|n !voiceme NK0005-pub:!voiceme
  17. bind pub n|n !devoiceme NK0005-pub:!devoiceme
  18. bind pub n|n !ovme NK0005-pub:!ovme
  19.  
  20. bind pub n|n !deovme NK0005-pub:!deovme
  21. bind pub n|n !op NK0005-pub:!op
  22. bind pub n|n !deop NK0005-pub:!deop
  23. bind pub n|n !voice NK0005-pub:!voice
  24. bind pub n|n !devoice NK0005-pub:!devoice
  25.  
  26. bind pub n|n !ov NK0005-pub:!ov
  27. bind pub n|n !deov NK0005-pub:!deov
  28. bind pub n|n !ban NK0005-pub:!ban
  29. bind pub n|n !unban NK0005-pub:!unban
  30. bind pub n|n !kick NK0005-pub:!kick
  31.  
  32. bind pub n|n !kickban NK0005-pub:!kickban
  33. bind pub n|n !topic NK0005-pub:!topic
  34. bind pub n|n !clearops NK0005-pub:!clearops
  35. bind pub n|n !clearvoice NK0005-pub:!clearvoice
  36. bind pub n|n !clearbans NK0005-pub:!clearbans
  37.  
  38. bind pub n|n !clear NK0005-pub:!clear
  39. bind pub n|n !mode NK0005-pub:!mode
  40. bind pub n|n !invite NK0005-pub:!invite
  41. bind pub n|n !kickr NK0005-pub:!kickr
  42.  
  43. ##### You Can Change The Command Name #####
  44. ##### Comment Out Commands That You Do Not Want To Use #####
  45. ##### Bind Command (Edit Only The Flags Above. Format: global|channel) #####
  46. ###################################### Edit Above #########################################
  47.  
  48. ##### Opme Command #####
  49.  
  50.  
  51. proc NK0005-pub:!opme { nickname userhost handle channel text } {
  52. global botnick
  53. if { [llength $text] != 0 } {
  54. putquick "NOTICE $nickname : Syntax : !opme"
  55. } else {
  56. if { [botisop $channel] == 1 } {
  57. if { [isop $nickname $channel] == 1 } {
  58. putquick "NOTICE $nickname : You Are Already Opped On $channel"
  59. } else {
  60. putquick "MODE $channel +o $nickname"
  61. putquick "NOTICE $nickname : Opping You On $channel"
  62. }
  63. } else {
  64. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  65. }
  66. }
  67. }
  68.  
  69. ##### Deopme Command #####
  70.  
  71.  
  72. proc NK0005-pub:!deopme { nickname userhost handle channel text } {
  73. global botnick
  74. if { [llength $text] != 0 } {
  75. putquick "NOTICE $nickname : Syntax : !deopme"
  76. } else {
  77. if { [botisop $channel] == 1 } {
  78. if { [isop $nickname $channel] == 0 } {
  79. putquick "NOTICE $nickname : You Are Not Opped On $channel"
  80. } else {
  81. putquick "MODE $channel -o $nickname"
  82. putquick "NOTICE $nickname : Deopping You On $channel"
  83. }
  84. } else {
  85. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  86. }
  87. }
  88. }
  89.  
  90. ##### Voiceme Command #####
  91.  
  92.  
  93. proc NK0005-pub:!voiceme { nickname userhost handle channel text } {
  94. global botnick
  95. if { [llength $text] != 0 } {
  96. putquick "NOTICE $nickname : Syntax : !voiceme"
  97. } else {
  98. if { [botisop $channel] == 1 } {
  99. if { [isvoice $nickname $channel] == 1 } {
  100. putquick "NOTICE $nickname : You Are Already Voiced On $channel"
  101. } else {
  102. putquick "MODE $channel +v $nickname"
  103. putquick "NOTICE $nickname : Voicing You On $channel"
  104. }
  105. } else {
  106. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  107. }
  108. }
  109. }
  110.  
  111. ##### Devoiceme Command #####
  112.  
  113.  
  114. proc NK0005-pub:!devoiceme { nickname userhost handle channel text } {
  115. global botnick
  116. if { [llength $text] != 0 } {
  117. putquick "NOTICE $nickname : Syntax : !devoiceme"
  118. } else {
  119. if { [botisop $channel] == 1 } {
  120. if { [isvoice $nickname $channel] == 0 } {
  121. putquick "NOTICE $nickname : You Are Not Voiced On $channel"
  122. } else {
  123. putquick "MODE $channel -v $nickname"
  124. putquick "NOTICE $nickname : Devoicing You On $channel"
  125. }
  126. } else {
  127. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  128. }
  129. }
  130. }
  131.  
  132. ##### Op/Voice Me Command #####
  133.  
  134.  
  135. proc NK0005-pub:!ovme { nickname userhost handle channel text } {
  136. global botnick
  137. if { [llength $text] != 0 } {
  138. putquick "NOTICE $nickname : Syntax : !ovme"
  139. } else {
  140. if { [botisop $channel] == 1 } {
  141. if { [isop $nickname $channel] == 1 && [isvoice $nickname $channel] == 1 } {
  142. putquick "NOTICE $nickname : You Are Already Opped And Voiced On $channel"
  143. } elseif {
  144. if { [isop $nickname $channel] == 0 && [isvoice $nickname $channel] == 0 } {
  145. putquick "MODE $channel +ov $nickname $nickname"
  146. putquick "NOTICE $nickname : Opping And Voicing You On $channel"
  147. return
  148. }
  149. if { [isop $nickname $channel] == 0 } {
  150. putquick "MODE $channel +o $nickname"
  151. putquick "NOTICE $nickname : Opping You On $channel"
  152. }
  153. if { [isvoice $nickname $channel] == 0 } {
  154. putquick "MODE $channel +v $nickname"
  155. putquick "NOTICE $nickname : Voicing You On $channel"
  156. }
  157. }
  158. } else {
  159. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  160. }
  161. }
  162. }
  163.  
  164. ##### Deop/Devoice Me Command #####
  165.  
  166.  
  167. proc NK0005-pub:!deovme { nickname userhost handle channel text } {
  168. global botnick
  169. if { [llength $text] != 0 } {
  170. putquick "NOTICE $nickname : Syntax : !deovme"
  171. } else {
  172. if { [botisop $channel] == 1 } {
  173. if { [isop $nickname $channel] == 0 && [isvoice $nickname $channel] == 0 } {
  174. putquick "NOTICE $nickname : You Are Not Opped Or Voiced On $channel"
  175. } elseif {
  176. if { [isop $nickname $channel] == 1 && [isvoice $nickname $channel] == 1 } {
  177. putquick "MODE $channel -ov $nickname $nickname"
  178. putquick "NOTICE $nickname : Deopping And Devoicing You On $channel"
  179. return
  180. }
  181. if { [isop $nickname $channel] == 1 } {
  182. putquick "MODE $channel -o $nickname"
  183. putquick "NOTICE $nickname : Deopping You On $channel"
  184. }
  185. if { [isvoice $nickname $channel] == 1 } {
  186. putquick "MODE $channel -v $nickname"
  187. putquick "NOTICE $nickname : Devoicing You On $channel"
  188. }
  189. }
  190. } else {
  191. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  192. }
  193. }
  194. }
  195.  
  196. ##### Op Command #####
  197.  
  198.  
  199. proc NK0005-pub:!op { nickname userhost handle channel text } {
  200. global botnick
  201. set NK0005-pub:!op-nicks ""
  202. if { [llength $text] == 0 } {
  203. putquick "NOTICE $nickname : Syntax : !op <nickname1> \[nickname2\]..."
  204. } else {
  205. if { [botisop $channel] == 1 } {
  206. for { set i 0 } { $i < [llength $text] } { incr i } {
  207. if { [isop [lindex $text $i] $channel] == 0 } {
  208. pushmode $channel +o [lindex $text $i]
  209. set NK0005-pub:!op-nicks "${NK0005-pub:!op-nicks} [lindex $text $i]"
  210. }
  211. }
  212. putquick "NOTICE $nickname : Opping ([llength ${NK0005-pub:!op-nicks}]) ${NK0005-pub:!op-nicks} On $channel"
  213. } else {
  214. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  215. }
  216. }
  217. }
  218.  
  219. ##### Deop Command #####
  220.  
  221.  
  222. proc NK0005-pub:!deop { nickname userhost handle channel text } {
  223. global botnick
  224. set NK0005-pub:!deop-nicks ""
  225. if { [llength $text] == 0 } {
  226. putquick "NOTICE $nickname : Syntax : !deop <nickname1> \[nickname2\]..."
  227. } else {
  228. if { [botisop $channel] == 1 } {
  229. for { set i 0 } { $i < [llength $text] } { incr i } {
  230. if { [isbotnick [lindex $text $i]] == 0 } {
  231. if { [isop [lindex $text $i] $channel] == 1 } {
  232. pushmode $channel -o [lindex $text $i]
  233. set NK0005-pub:!deop-nicks "${NK0005-pub:!deop-nicks} [lindex $text $i]"
  234. }
  235. }
  236. }
  237. putquick "NOTICE $nickname : Deopping ([llength ${NK0005-pub:!deop-nicks}]) ${NK0005-pub:!deop-nicks} On $channel"
  238. } else {
  239. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  240. }
  241. }
  242. }
  243.  
  244. ##### Voice Command #####
  245.  
  246.  
  247. proc NK0005-pub:!voice { nickname userhost handle channel text } {
  248. global botnick
  249. set NK0005-pub:!voice-nicks ""
  250. if { [llength $text] == 0 } {
  251. putquick "NOTICE $nickname : Syntax : !voice <nickname1> \[nickname2\]..."
  252. } else {
  253. if { [botisop $channel] == 1 } {
  254. for { set i 0 } { $i < [llength $text] } { incr i } {
  255. if { [isvoice [lindex $text $i] $channel] == 0 } {
  256. pushmode $channel +v [lindex $text $i]
  257. set NK0005-pub:!voice-nicks "${NK0005-pub:!voice-nicks} [lindex $text $i]"
  258. }
  259. }
  260. putquick "NOTICE $nickname : Voicing ([llength ${NK0005-pub:!voice-nicks}]) ${NK0005-pub:!voice-nicks} On $channel"
  261. } else {
  262. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  263. }
  264. }
  265. }
  266.  
  267. ##### Devoice Command #####
  268.  
  269.  
  270. proc NK0005-pub:!devoice { nickname userhost handle channel text } {
  271. global botnick
  272. set NK0005-pub:!devoice-nicks ""
  273. if { [llength $text] == 0 } {
  274. putquick "NOTICE $nickname : Syntax : !devoice <nickname1> \[nickname2\]..."
  275. } else {
  276. if { [botisop $channel] == 1 } {
  277. for { set i 0 } { $i < [llength $text] } { incr i } {
  278. if { [isbotnick [lindex $text $i]] == 0 } {
  279. if { [isvoice [lindex $text $i] $channel] == 1 } {
  280. pushmode $channel -v [lindex $text $i]
  281. set NK0005-pub:!devoice-nicks "${NK0005-pub:!devoice-nicks} [lindex $text $i]"
  282. }
  283. }
  284. }
  285. putquick "NOTICE $nickname : Devoicing ([llength ${NK0005-pub:!devoice-nicks}]) ${NK0005-pub:!devoice-nicks} On $channel"
  286. } else {
  287. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  288. }
  289. }
  290. }
  291.  
  292. ##### Op/Voice Command #####
  293.  
  294.  
  295. proc NK0005-pub:!ov { nickname userhost handle channel text } {
  296. global botnick
  297. set NK0005-pub:!ov-ops ""
  298. set NK0005-pub:!ov-voices ""
  299. if { [llength $text] == 0 } {
  300. putquick "NOTICE $nickname : Syntax : !ov <nickname1> \[nickname2\]..."
  301. } else {
  302. if { [botisop $channel] == 1 } {
  303. for { set i 0 } { $i < [llength $text] } { incr i } {
  304. if { [isop [lindex $text $i] $channel] == 0 } {
  305. pushmode $channel +o [lindex $text $i]
  306. set NK0005-pub:!ov-ops "${NK0005-pub:!ov-ops} [lindex $text $i]"
  307. }
  308. if { [isvoice [lindex $text $i] $channel] == 0 } {
  309. pushmode $channel +v [lindex $text $i]
  310. set NK0005-pub:!ov-voices "${NK0005-pub:!ov-voices} [lindex $text $i]"
  311. }
  312. }
  313. putquick "NOTICE $nickname : Opping ([llength ${NK0005-pub:!ov-ops}]) ${NK0005-pub:!ov-ops} On $channel"
  314. putquick "NOTICE $nickname : Voicing ([llength ${NK0005-pub:!ov-voices}]) ${NK0005-pub:!ov-voices} On $channel"
  315. } else {
  316. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  317. }
  318. }
  319. }
  320.  
  321. ##### Deop/Devoice Command #####
  322.  
  323.  
  324. proc NK0005-pub:!deov { nickname userhost handle channel text } {
  325. global botnick
  326. set NK0005-pub:!deov-ops ""
  327. set NK0005-pub:!deov-voices ""
  328. if { [llength $text] == 0 } {
  329. putquick "NOTICE $nickname : Syntax : !deov <nickname1> \[nickname2\]..."
  330. } else {
  331. if { [botisop $channel] == 1 } {
  332. for { set i 0 } { $i < [llength $text] } { incr i } {
  333. if { [isbotnick [lindex $text $i]] == 0 } {
  334. if { [isop [lindex $text $i] $channel] == 1 } {
  335. pushmode $channel -o [lindex $text $i]
  336. set NK0005-pub:!deov-ops "${NK0005-pub:!deov-ops} [lindex $text $i]"
  337. }
  338. if { [isvoice [lindex $text $i] $channel] == 1 } {
  339. pushmode $channel -v [lindex $text $i]
  340. set NK0005-pub:!deov-voices "${NK0005-pub:!deov-voices} [lindex $text $i]"
  341. }
  342. }
  343. }
  344. putquick "NOTICE $nickname : Deopping ([llength ${NK0005-pub:!deov-ops}]) ${NK0005-pub:!deov-ops} On $channel"
  345. putquick "NOTICE $nickname : Devoicing ([llength ${NK0005-pub:!deov-voices}]) ${NK0005-pub:!deov-voices} On $channel"
  346. } else {
  347. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  348. }
  349. }
  350. }
  351.  
  352. ##### Ban Command #####
  353.  
  354.  
  355. proc NK0005-pub:!ban { nickname userhost handle channel text } {
  356. global botnick
  357. set NK0005-pub:!ban-addresses ""
  358. if { [llength $text] == 0 } {
  359. putquick "NOTICE $nickname : Syntax : !ban <nickname1/address1> \[nickname2/address2\]..."
  360. } else {
  361. if { [botisop $channel] == 1 } {
  362. for { set i 0 } { $i < [llength $text] } { incr i } {
  363. if { [string match -nocase "*!*" [lindex $text $i]] == 0 } {
  364. if { [isbotnick [lindex $text $i]] == 0 && [ischanban [maskhost [getchanhost [lindex $text $i]]] $channel] == 0 } {
  365. pushmode $channel +b [maskhost [getchanhost [lindex $text $i]]]
  366. set NK0005-pub:!ban-addresses "${NK0005-pub:!ban-addresses} [maskhost [getchanhost [lindex $text $i]]]"
  367. }
  368. } else {
  369. if { [string match -nocase "[lindex $text $i]" $botnick*!*[getchanhost $botnick]] == 0 && [ischanban [lindex $text $i] $channel] == 0 } {
  370. pushmode $channel +b [lindex $text $i]
  371. set NK0005-pub:!ban-addresses "${NK0005-pub:!ban-addresses} [lindex $text $i]"
  372. }
  373. }
  374. }
  375. putquick "NOTICE $nickname : Banning ([llength ${NK0005-pub:!ban-addresses}]) ${NK0005-pub:!ban-addresses} On $channel"
  376. } else {
  377. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  378. }
  379. }
  380. }
  381.  
  382. ##### Unban Command #####
  383.  
  384.  
  385. proc NK0005-pub:!unban { nickname userhost handle channel text } {
  386. global botnick
  387. set NK0005-pub:!unban-addresses ""
  388. if { [llength $text] == 0 } {
  389. putquick "NOTICE $nickname : Syntax : !unban <nickname1/address1> \[nickname2/address2\]..."
  390. } else {
  391. if { [botisop $channel] == 1 } {
  392. for { set i 0 } { $i < [llength $text] } { incr i } {
  393. if { [string match -nocase "*!*" [lindex $text $i]] == 0 } {
  394. if { [ischanban [maskhost [getchanhost [lindex $text $i]]] $channel] == 1 } {
  395. pushmode $channel -b [maskhost [getchanhost [lindex $text $i]]]
  396. set NK0005-pub:!unban-addresses "${NK0005-pub:!unban-addresses} [maskhost [getchanhost [lindex $text $i]]]"
  397. }
  398. } else {
  399. if { [ischanban [lindex $text $i] $channel] == 1 } {
  400. pushmode $channel -b [lindex $text $i]
  401. set NK0005-pub:!unban-addresses "${NK0005-pub:!unban-addresses} [lindex $text $i]"
  402. }
  403. }
  404. }
  405. putquick "NOTICE $nickname : Unbanning ([llength ${NK0005-pub:!unban-addresses}]) ${NK0005-pub:!unban-addresses} From $channel"
  406. } else {
  407. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  408. }
  409. }
  410. }
  411.  
  412. ##### Kick Command #####
  413.  
  414.  
  415. proc NK0005-pub:!kick { nickname userhost handle channel text } {
  416. global botnick
  417. set NK0005-pub:!kick-nicks ""
  418. if { [llength $text] == 0 } {
  419. putquick "NOTICE $nickname : Syntax : !kick <nickname1> \[nickname2\]..."
  420. } else {
  421. if { [botisop $channel] == 1 } {
  422. for { set i 0 } { $i < [llength $text] } { incr i } {
  423. if { [onchan [lindex $text $i] $channel] == 1 && [isbotnick [lindex $text $i]] == 0 } {
  424. putquick "KICK $channel [lindex $text $i]"
  425. set NK0005-pub:!kick-nicks "${NK0005-pub:!kick-nicks} [lindex $text $i]"
  426. }
  427. }
  428. putquick "NOTICE $nickname : Kicking ([llength ${NK0005-pub:!kick-nicks}]) ${NK0005-pub:!kick-nicks} From $channel"
  429. } else {
  430. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  431. }
  432. }
  433. }
  434.  
  435. ##### Kick Ban Command #####
  436.  
  437.  
  438. proc NK0005-pub:!kickban { nickname userhost handle channel text } {
  439. global botnick
  440. if { [llength $text] == 0 } {
  441. putquick "NOTICE $nickname : Syntax : !kickban <nickname> \[reason\]"
  442. } else {
  443. if { [botisop $channel] == 1 } {
  444. if { [onchan [lindex $text 0] $channel] == 1 } {
  445. putkick $channel [lindex $text 0] [lrange $text 1 end]
  446. if { [ischanban [maskhost [getchanhost [lindex $text 0]]] $channel] == 0 } {
  447. pushmode $channel +b [maskhost [getchanhost [lindex $text 0]]]
  448. putquick "NOTICE $nickname : Kicking And Banning [lindex $text 0] With Address : [maskhost [getchanhost [lindex $text 0]]] From $channel"
  449. } else {
  450. putquick "NOTICE $nickname : Kicking [lindex $text 0] From $channel"
  451. }
  452. } else {
  453. putquick "NOTICE $nickname : [lindex $text 0] Is Not On $channel"
  454. }
  455. } else {
  456. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  457. }
  458. }
  459. }
  460.  
  461. ##### Topic Command #####
  462.  
  463.  
  464. proc NK0005-pub:!topic { nickname userhost handle channel text } {
  465. global botnick
  466. if { [llength $text] == 0 } {
  467. putquick "NOTICE $nickname : Syntax : !topic <topic>"
  468. } else {
  469. if { [botisop $channel] == 1 || [string match "*t*" [lindex [getchanmode $channel] 0]] == 0 } {
  470. putquick "TOPIC $channel $text"
  471. putquick "NOTICE $nickname : Changing Topic Of $channel To : $text"
  472. } else {
  473. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel And $channel Is In +t Mode"
  474. }
  475. }
  476. }
  477.  
  478. ##### Clear Ops Command #####
  479.  
  480.  
  481. proc NK0005-pub:!clearops { nickname userhost handle channel text } {
  482. global botnick
  483. if { [llength $text] != 0 } {
  484. putquick "NOTICE $nickname : Syntax : !clearops"
  485. } else {
  486. if { [botisop $channel] == 1 } {
  487. putquick "NOTICE $nickname : Clearing Ops For $channel"
  488. for { set i 0 } { $i < [llength [chanlist $channel]] } { incr i } {
  489. if { [isop [lindex [chanlist $channel] $i] $channel] == 1 } {
  490. if { [nick2hand [lindex [chanlist $channel] $i]] == "*" || ([isbotnick [lindex [chanlist $channel] $i]] == 0 && [string match -nocase "*[nick2hand [lindex [chanlist $channel] $i]]*" [bots]] == 0 && [matchattr [nick2hand [lindex [chanlist $channel] $i]] n] == 0) } {
  491. pushmode $channel -o [lindex [chanlist $channel] $i]
  492. }
  493. }
  494. }
  495. } else {
  496. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  497. }
  498. }
  499. }
  500.  
  501. ##### Clear Voice Command #####
  502.  
  503.  
  504. proc NK0005-pub:!clearvoice { nickname userhost handle channel text } {
  505. global botnick
  506. if { [llength $text] != 0 } {
  507. putquick "NOTICE $nickname : Syntax : !clearvoice"
  508. } else {
  509. if { [botisop $channel] == 1 } {
  510. putquick "NOTICE $nickname : Clearing Voice For $channel"
  511. for { set i 0 } { $i < [llength [chanlist $channel]] } { incr i } {
  512. if { [isop [lindex [chanlist $channel] $i] $channel] == 1 } {
  513. if { [nick2hand [lindex [chanlist $channel] $i]] == "*" || ([isbotnick [lindex [chanlist $channel] $i]] == 0 && [string match -nocase "*[nick2hand [lindex [chanlist $channel] $i]]*" [bots]] == 0 && [matchattr [nick2hand [lindex [chanlist $channel] $i]] n] == 0) } {
  514. pushmode $channel -v [lindex [chanlist $channel] $i]
  515. }
  516. }
  517. }
  518. } else {
  519. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  520. }
  521. }
  522. }
  523.  
  524. ##### Clear Bans Command #####
  525.  
  526.  
  527. proc NK0005-pub:!clearbans { nickname userhost handle channel text } {
  528. global botnick
  529. if { [llength $text] != 0 } {
  530. putquick "NOTICE $nickname : Syntax : !clearbans"
  531. } else {
  532. if { [botisop $channel] == 1 } {
  533. putquick "NOTICE $nickname : Clearing Bans For $channel"
  534. for { set i 0 } { $i < [llength [chanbans $channel]] } { incr i } {
  535. pushmode $channel -b [lindex [lindex [chanbans $channel] $i] 0]
  536. }
  537. } else {
  538. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  539. }
  540. }
  541. }
  542.  
  543. ##### Clear Command #####
  544.  
  545.  
  546. proc NK0005-pub:!clear { nickname userhost handle channel text } {
  547. global botnick
  548. if { [llength $text] > 1 || ([string match -nocase "TAKEOVER" [lindex $text 0]] == 0 && [llength $text] == 1) } {
  549. putquick "NOTICE $nickname : Syntax : !clear \[TAKEOVER\]"
  550. } else {
  551. if { [botisop $channel] == 1 } {
  552. putquick "NOTICE $nickname : Clearing Channel...$channel"
  553. NK0005-pub:!clearops $nickname $userhost $handle $channel
  554. NK0005-pub:!clearvoice $nickname $userhost $handle $channel
  555. NK0005-pub:!clearbans $nickname $userhost $handle $channel
  556. if { [string match -nocase "TAKEOVER" [lindex $text 0]] == 1 } {
  557. putquick "MODE $channel +bntimslk *!*@* 1 [rand 99999]"
  558. for { set i 0 } { $i < [llength [chanlist $channel]] } { incr i } {
  559. if { [lindex [chanlist $channel] $i] != "$nickname" && [isbotnick [lindex [chanlist $channel] $i]] == 0 } {
  560. putkick $channel [lindex [chanlist $channel] $i]
  561. }
  562. }
  563. }
  564. } else {
  565. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  566. }
  567. }
  568. }
  569.  
  570. ##### Mode Command #####
  571.  
  572.  
  573. proc NK0005-pub:!mode { nickname userhost handle channel text } {
  574. global botnick
  575. if { [llength $text] == 0 } {
  576. putquick "NOTICE $nickname : Syntax : !mode <modes> \[parameters\]"
  577. } else {
  578. if { [botisop $channel] == 1 } {
  579. putquick "MODE $channel [lindex $text 0] [lrange $text 1 end]"
  580. putquick "NOTICE $nickname : Attempting To Change Modes To : $text"
  581. } else {
  582. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  583. }
  584. }
  585. }
  586.  
  587. ##### Invite User #####
  588.  
  589.  
  590. proc NK0005-pub:!invite { nickname userhost handle channel text } {
  591. global botnick
  592. set NK0005-pub:!invite-nicks ""
  593. if { [llength $text] == 0 } {
  594. putquick "NOTICE $nickname : Syntax : !invite <nickname1> \[nickname2\]..."
  595. } else {
  596. if { [botisop $channel] == 1 } {
  597. for { set i 0 } { $i < [llength $text] } { incr i } {
  598. if { [onchan [lindex $text $i] $channel] == 0 } {
  599. putquick "INVITE [lindex $text $i] $channel"
  600. set NK0005-pub:!invite-nicks "${NK0005-pub:!invite-nicks} [lindex $text $i]"
  601. }
  602. }
  603. putquick "NOTICE $nickname : Inviting ([llength ${NK0005-pub:!invite-nicks}]) ${NK0005-pub:!invite-nicks} To $channel"
  604. } else {
  605. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  606. }
  607. }
  608. }
  609.  
  610. ##### Kick With Reason Command #####
  611.  
  612.  
  613. proc NK0005-pub:!kickr { nickname userhost handle channel text } {
  614. global botnick
  615. if { [llength $text] == 0 } {
  616. putquick "NOTICE $nickname : Syntax : !kickr <nickname> \[reason\]..."
  617. } else {
  618. if { [botisop $channel] == 1 } {
  619. if { [onchan [lindex $text 0] $channel] == 1 } {
  620. if { [isbotnick [lindex $text 0]] == 0 } {
  621. putkick $channel [lindex $text 0] [lrange $text 1 end]
  622. putquick "NOTICE $nickname : Kicking [lindex $text 0] From $channel With Reason : [lrange $text 1 end]"
  623. } else {
  624. putquick "NOTICE $nickname : I Will Not Kick Myself"
  625. }
  626. } else {
  627. putquick "NOTICE $nickname : [lindex $text 0] Is Not On $channel"
  628. }
  629. } else {
  630. putquick "NOTICE $nickname : Sorry, But I ($botnick) Am Not Opped On $channel"
  631. }
  632. }
  633. }
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!