API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 8th, 2017
82
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.82 KB | None | 0 0
raw download clone embed print report
  1. ON *:START: {
  2. If ( $scon(0) == 0 ) { halt }
  3. .server $server(1)
  4. }
  5.  
  6. ON *:CONNECT: {
  7. .var %CurrentChan $scon(0)
  8. .var %ServerDesc $server(%CurrentChan).desc
  9. .set % $+ $scon(%CurrentChan) %ServerDesc
  10. .nick %User.Nick
  11. }
  12.  
  13. ON *:NOTICE:*:*: {
  14. If ( $nick == NickServ ) {
  15. .var %ChangeNick This nickname is registered and protected.
  16. .var %Login Password accepted - you are now recognized.
  17. If ( %ChangeNick isin $1- ) {
  18. .nickserv identify %User.Pass
  19. .halt
  20. }
  21. If ( %Login isin $1- ) {
  22. .set %ChanList $eval(% $+ $eval(% $+ $scid($cid),2) $+ .Channels,2)
  23. .var %I 1
  24. .tokenize 32 [ %ChanList ]
  25. While ( [ $ $+ [ %I ] ] != $NULL ) {
  26. .join [ $ $+ [ %I ] ]
  27. .inc %I
  28. }
  29. If ( $scon(0) < $server(0) ) {
  30. .server -m $server($calc($scon(0) + 1))
  31. }
  32. .halt
  33. }
  34. }
  35. }
  36.  
  37. ON *:INPUT:*: {
  38. If ( $1 == .protect ) {
  39. .var %Nick $Me
  40. If ( $2 != $Null ) {
  41. .var %Nick $2
  42. }
  43. .mode $chan +eeII $Address( %Nick , 4 ) %Nick $Address( %Nick , 4 ) %Nick
  44. .halt
  45. }
  46. If ( $1 == .m ) {
  47. If ( $Chan == $Null ) {
  48. .mode $($$2-,2)
  49. }
  50. Else {
  51. .mode $Chan $($$2-,2)
  52. }
  53. halt
  54. }
  55. If ( $1 == .qop ) {
  56. .chanserv qop $chan $$2 $3
  57. .halt
  58. }
  59. If ( $1 == .sop ) {
  60. .chanserv sop $chan $$2 $3
  61. If ( $$2 == add ) {
  62. .chanserv protect $chan $$3
  63. .chanserv op $chan $$3
  64. }
  65. If ( $$2 == del ) {
  66. .chanserv deprotect $chan $$3
  67. .chanserv deop $chan $$3
  68. }
  69. .halt
  70. }
  71. If ( $1 == .aop ) {
  72. .chanserv aop $chan $$2 $3
  73. If ( $$2 == add ) {
  74. .chanserv op $chan $$3
  75. }
  76. If ( $$2 == del ) {
  77. .chanserv deop $chan $$3
  78. }
  79. .halt
  80. }
  81. If ( $1 == .hop ) {
  82. .chanserv hop $chan $$2 $3
  83. If ( $$2 == add ) {
  84. .chanserv halfop $chan $$3
  85. }
  86. If ( $$2 == del ) {
  87. .chanserv dehalfop $chan $$3
  88. }
  89. .halt
  90. }
  91. If ( $1 == .vop ) {
  92. .chanserv vop $chan $$2 $3
  93. If ( $$2 == add ) {
  94. .chanserv voice $chan $$3
  95. }
  96. If ( $$2 == del ) {
  97. .chanserv devoice $chan $$3
  98. }
  99. .halt
  100. }
  101. If ( $1 == .v ) {
  102. .var %I 2
  103. .var %Action +v
  104. If ( $$2 == - ) {
  105. .var %I 3
  106. .var %Action -v
  107. }
  108. While ( %I <= $0 ) {
  109. .mode $chan [ %Action ] [ $ $+ [ %I ] ]
  110. .inc %I
  111. }
  112. .halt
  113. }
  114. If ( $1 == .h ) {
  115. .var %I 2
  116. .var %Action +h
  117. If ( $$2 == - ) {
  118. .var %I 3
  119. .var %Action -h
  120. }
  121. While ( %I <= $0 ) {
  122. .mode $chan [ %Action ] [ $ $+ [ %I ] ]
  123. .inc %I
  124. }
  125. .halt
  126. }
  127. If ( $1 == .o ) {
  128. .var %I 2
  129. .var %Action +o
  130. If ( $$2 == - ) {
  131. .var %I 3
  132. .var %Action -o
  133. }
  134. While ( %I <= $0 ) {
  135. .mode $chan [ %Action ] [ $ $+ [ %I ] ]
  136. .inc %I
  137. }
  138. .halt
  139. }
  140. If ( $1 == .a ) {
  141. .var %I 2
  142. .var %Action +a
  143. If ( $$2 == - ) {
  144. .var %I 3
  145. .var %Action -a
  146. }
  147. While ( %I <= $0 ) {
  148. .mode $chan [ %Action ] [ $ $+ [ %I ] ]
  149. .inc %I
  150. }
  151. .halt
  152. }
  153. If ( $1 == .q ) {
  154. .var %I 2
  155. .var %Action +q
  156. If ( $$2 == - ) {
  157. .var %I 3
  158. .var %Action -q
  159. }
  160. While ( %I <= $0 ) {
  161. .mode $chan [ %Action ] [ $ $+ [ %I ] ]
  162. .inc %I
  163. }
  164. .halt
  165. }
  166. If ( $1 == .k ) {
  167. If ( %KickCounter == $Null ) {
  168. .set %KickCounter 1
  169. }
  170. .kick $chan $$2 $3- $+ (Kick Count: $+ %KickCounter $+ )
  171. .inc %KickCounter
  172. .halt
  173. }
  174. If ( $1 == .b ) {
  175. .var %I 2
  176. If ( $3 != $Null ) {
  177. .var %I $3
  178. }
  179. .mode $chan +b $address($$2,%I)
  180. .halt
  181. }
  182. If ( $1 == .db ) {
  183. .var %I 1
  184. .var %J $Ibl($Chan,0)
  185. .var %Address $Address($$2,5)
  186. If ( %Address == $Null ) {
  187. .halt
  188. }
  189. While ( %I <= %J ) {
  190. If ( $IBl($Chan,%I) iswm %Address ) {
  191. .mode $Chan -b $IBL($Chan,%I)
  192. }
  193. .inc %I
  194. }
  195. .halt
  196. }
  197. If ( $1 == .kb ) {
  198. .var %I 4
  199. If ( $4 != $Null ) {
  200. .var %I $4
  201. }
  202. .kick $chan $$2 $3- $+ (Kick Count: $+ %KickCounter $+ )
  203. .mode $chan +b $Address($$2,2)
  204. .inc %KickCounter
  205. .halt
  206. }
  207. If ( $1 == .mute ) {
  208. .mode $chan -qaohv+b $$2 $$2 $$2 $$2 $$2 $address($$2,4)
  209. .halt
  210. }
  211. If ( $1 == .i ) {
  212. .invite $$2 $chan
  213. .cs invite $chan $$2
  214. .halt
  215. }
  216. If ( $1 == .limit ) {
  217. .timer 0 $$2 /mode $chan +l $!calc($nick($chan,0) + $$3),1)
  218. .halt
  219. }
  220. If ( $$1 == .ownchan ) {
  221. .mode $chan +QWERTYUIOPASDFGHJKLZXCVBNMqwertyuioasdfghjklzxcvbnm
  222. .mode $chan +l 1
  223. .mode $chan +L #gtfo
  224. .mode $chan +k $rand(1293812983,298291829839)
  225. .mode $chan +b *!*@*
  226. .cs clear $chan users
  227. .cs akick $chan add *!*@*
  228. .halt
  229. }
  230. }
  231.  
  232. alias F5 {
  233. .var %Answer $?!="Are you sure you want to kick %LastNick. [ $+ [ $Chan ] ] $+ ?"
  234. If ( %Answer == $true ) {
  235. .kick $chan %LastNick. [ $+ [ $Chan ] ] Requested
  236. .inc %KickCounter
  237. }
  238. }
  239.  
  240. alias F6 {
  241. .var %Answer $?!="Are you sure you want to ban %LastNick. [ $+ [ $Chan ] ] $+ ?"
  242. If ( %Answer == $true ) {
  243. .mode $chan +b $Address(%LastNick. [ $+ [ $Chan ] ],2)
  244. }
  245. }
  246.  
  247. alias F7 {
  248. .var %Answer $?!="Are you sure you want to kickban %LastNick. [ $+ [ $Chan ] ] $+ ?"
  249. If ( %Answer == $true ) {
  250. .kick $chan %LastNick Requested. [ $+ [ $Chan ] ]
  251. .mode $chan +b $Address(%LastNick. [ $+ [ $Chan ] ],2)
  252. .inc %KickCounter
  253. }
  254. }
  255.  
  256. alias F11 {
  257. .var %Answer $?!="Are you sure you want to ban %LastKick. [ $+ [ $Chan ] ] $+ ?"
  258. If ( %Answer == $true ) {
  259. .mode $Chan +b %LastKickAddress. [ $+ [ $Chan ] ]
  260. }
  261. }
  262.  
  263. alias F12 {
  264. .var %Answer $?!="Are you sure you want to invite %LastKick. [ $+ [ $Chan ] ] $+ ?"
  265. If ( %Answer == $true ) {
  266. .invite %LastKick. [ $+ [ $Chan ] ] $Chan
  267. }
  268. }
  269.  
  270. ON *:NICK: {
  271. If ( $nick == %LastNick. [ $+ [ $Chan ] ] ) {
  272. .set %LastNick. [ $+ [ $Chan ] ] $newnick
  273. }
  274. }
  275.  
  276. ON *:JOIN:*: {
  277. echo 3 -t $chan * Address( $+ $nick $+ ): $address($nick,5)
  278. echo 3 -t $chan * Options( $+ $nick $+ ): Please press F5 - Kick or F6 - Ban or F7 - KickBan
  279. set %LastNick. [ $+ [ $Chan ] ] $nick
  280. If ( $nick == $me ) {
  281. who $chan
  282. .mode $chan +bIe
  283. }
  284. }
  285.  
  286. #ChannelUnban off
  287. RAW 474:*: {
  288. .cs unban $2 $me
  289. .cs akick $2 clear
  290. .cs invite $2 $me
  291. .cs akick $2 clear
  292. .join $2
  293. }
  294. #ChannelUnban End
  295.  
  296. ON *:NICK: {
  297. If ( $newnick isin %User.Nicks ) {
  298. ns ghost $newnick %User.Pass
  299. }
  300. }
  301.  
  302.  
  303. ON *:KICK:*: {
  304. echo 3 -t $chan * Address( $+ $knick $+ ): $Address($kNick,5)
  305. echo 3 -t $chan * Options( $+ $knick $+ ): Please press F11 - Ban or F12 - Invite
  306. .set %LastKick. [ $+ [ $Chan ] ] $Knick
  307. .set %LastKickAddress. [ $+ [ $Chan ] ] $Address($kNick,2)
  308. }
  309.  
  310. alias FuckOff {
  311. mode $chan +e
  312. mode $chan +I
  313. cs vop $chan add $$1
  314. cs akick $chan add $$1 $$2-
  315. var %I 1
  316. var %UAddr $address($$1,5)
  317. var %Max $iel($chan,0)
  318. While ( %I <= %Max ) {
  319. var %CurMask $iel( [ $chan ] , [ %I ] )
  320. If ( %CurMask iswm %UAddr ) {
  321. mode $chan -e %CurMask
  322. }
  323. inc %I
  324. }
  325. var %I 1
  326. var %Max $iil($chan,0)
  327. While ( %I <= %Max ) {
  328. var %CurMask $iil( [ $chan ] , [ %I ] )
  329. If ( %CurMask iswm %UAddr ) {
  330. mode $chan -I %CurMask
  331. }
  332. inc %I
  333. }
  334. var %Nick $$1
  335. cs ban $chan $$1
  336. mode $chan +b $$1
  337. mode $chan +bn $address($$1,3)
  338. mode $chan +b $Address($$1,4)
  339. mode $chan +b $Address($$1,2)
  340. tokenize 64 $address($$1,3)
  341. mode $chan +b $1 $+ @*
  342. cs akick $chan add %Nick $$2-
  343. cs akick $chan enforce
  344. /timer 0 2 /cs akick $chan add %Nick $$2-
  345. mode $chan -Q
  346. kick $chan $$1 $$2-
  347. }
  348.  
  349. alias aname {
  350. .nick $me $+ $$1
  351. .nickserv group %User.Nick %User.Pass
  352. }
  353.  
  354. alias name {
  355. .nick %User.Nick
  356. }
  357.  
  358. alias up {
  359. .cs voice $chan $me
  360. .cs halfop $chan $me
  361. .cs op $chan $me
  362. .cs protect $chan $me
  363. }
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!