API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 1st, 2017
94
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.99 KB | None | 0 0
raw download clone embed print report
  1. on *:connect: {
  2. .enable #servicescheck
  3. .timer 1 1 .who Nickserv
  4. .timer 1 2 .who Chanserv
  5. .timer 1 3 .who Memoserv
  6. .timer 1 4 .who Operserv
  7. .timer 1 20 .disable #servicescheck
  8. }
  9. on *:disconnect: {
  10. if ( $var($($+(%,$network,*)),0) > 0 ) unset $($+(%,$network,*))
  11. }
  12. #servicescheck off
  13. raw 352:*: {
  14. if ( nickserv isin $1- ) && ( service isin $1- ) set $($+(%,$network,.nickserv)) 1
  15. if ( chanserv isin $1- ) && ( service isin $1- ) set $($+(%,$network,.chanserv)) 1
  16. if ( memoserv isin $1- ) && ( service isin $1- ) set $($+(%,$network,.memoserv)) 1
  17. if ( operserv isin $1- ) && ( service isin $1- ) set $($+(%,$network,.operserv)) 1
  18. halt
  19. }
  20. raw 315:*: halt
  21. #servicescheck end
  22. alias cankick { if ( $hop ) || ( $op ) || ( $sop ) || ( $owner ) { return $true } }
  23. alias canban { if ( b isincs $chanmodes ) && ( $hop ) || ( $op ) || ( $sop ) || ( $owner ) { return $true } }
  24. alias canexcept { if ( e isincs $chanmodes ) && ( $hop ) || ( $op ) || ( $sop ) || ( $owner ) { return $true } }
  25. alias voice { if ( + isincs $prefix ) && ( $nick(#,$me,vho&q!~) ) || ( A isincs $usermode ) || ( O isincs $usermode ) { return $true } }
  26. alias hop { if ( % isincs $prefix ) && ( $nick(#,$me,ho&q!~) ) || ( A isincs $usermode ) || ( O isincs $usermode ) { return $true } }
  27. alias op { if ( @ isincs $prefix ) && ( $nick(#,$me,o&q!~) ) || ( A isincs $usermode ) || ( O isincs $usermode ) { return $true } }
  28. alias sop { if ( & isincs $prefix ) && ( $nick(#,$me,&q~!) ) || ( A isincs $usermode ) || ( O isincs $usermode ) { return $true } }
  29. alias owner { if ( ~ isincs $prefix ) || ( ! isincs $prefix ) && ( $nick(#,$me,q!~) ) || ( A isincs $usermode ) || ( O isincs $usermode ) { return $true } }
  30. alias ircop { if ( A isincs $usermode ) || ( o isincs $usermode ) { return $true } }
  31. alias operserv { if ( $ircop ) && ( $($+(%,$network,.operserv),2) == 1 ) { return $true } }
  32. alias services { if ( $($+(%,$network,.nickserv),2) == 1 ) || ( $($+(%,$network,.chanserv),2) == 1 ) || ( $($+(%,$network,.memoserv),2) == 1 ) || ( $($+(%,$network,.operserv),2) == 1 ) { return $true } }
  33. alias modechange {
  34. var %x 1
  35. var %z 1
  36. set %nicks $snicks
  37. if ( $snick(#,0) >= %x) {
  38. while ( %x <= $snick(#,0) ) {
  39. while ( %z <= $modespl ) {
  40. if ( %nicksmode == $null ) {
  41. set %nicksmode $gettok(%nicks,1,44)
  42. set %nicks $deltok(%nicks,1,44)
  43. }
  44. else {
  45. set %nicksmode $($+(%nicksmode,$chr(32),$gettok(%nicks,1,44)))
  46. set %nicks $deltok(%nicks,1,44)
  47. }
  48. inc %z
  49. }
  50. var %z 1
  51. mode # $($+($1,$str($2,$modespl))) %nicksmode
  52. unset %nicksmode
  53. inc %x
  54. }
  55. unset %nicks
  56. }
  57. }
  58. menu nicklist {
  59. Info
  60. .Whois:whois $$1
  61. .Version:ctcp $$1 version
  62. .Info:uwho $1
  63. .DNS:Dns $1
  64. -
  65. DCC
  66. .Send:/dcc send $$1
  67. .Chat:/dcc chat $$1
  68. Invite:/invite $1 $$?="Channel:"
  69. Ignore
  70. .Ignore:ignore $$1 1
  71. .Unignore:ignore -r $$1 1
  72. -
  73. ;;
  74. ;;;;Channel Controls
  75. ;;
  76. $iif( $cankick , Channel Control )
  77. .ChanModes
  78. ..$iif( $cankick , Kicks )
  79. ...Kick:kick # $1
  80. ...Kick Reason:kick # $1 $$?="Enter Reason:"
  81. ..$iif( $canban , Bans )
  82. ...$iif( b isincs $chanmodes , Ban $1 ):ban # $1
  83. ...$iif( b isincs $chanmodes , Kick/Ban $1 ):ban -k # $1
  84. ..$iif( $canexcept , Exceptions )
  85. ...$iif( e isincs $chanmodes , Exempt Nick ):mode # +e $1
  86. ...$iif( e isincs $chanmodes , UnExempt Nick ):mode # -e $1
  87. ;;
  88. ;;;;User Controls
  89. ;;
  90. .UserModes
  91. ..$iif( $voice , Voice )
  92. ...Voice:modechange + v
  93. ...Devoice:modechange - v
  94. ..$iif( $hop , Half Op )
  95. ...Half Op:modechange + h
  96. ...DeHalf Op:modechange - h
  97. ..$iif( $op , Op )
  98. ...Op:modechange + o
  99. ...Deop:modechange - o
  100. ..$iif( $sop , Sop )
  101. ...Sop:modechange + a
  102. ...DeSop:modechange - a
  103. ..$iif( $owner , Owner )
  104. ...Owner:modechange + q
  105. ...DeOwner:modechange - q
  106. -
  107. $iif( $ircop , Ircop Controls)
  108. .Chghost $1:chghost $1 $$?="New Host"
  109. .Sajoin $1:sajoin $1 $$?="Channel:"
  110. .Sapart $1:sapart $1 #
  111. .GLine $1:gline $1 $?="Time format 1s 1m 1h 1d :" $$?="Reason for GLine:"
  112. }
  113. Menu Channel {
  114. Channel Info:/channel
  115. Topic:/topic #
  116. -
  117. ;;
  118. ;;;;Channel Modes
  119. ;;
  120. $iif( $me isop # , Chanmodes )
  121. .$iif( k isincs $chanmodes , Channel Key ):mode # +k $$?="Enter Key"
  122. .$iif( l isincs $chanmodes , Channel Limits )
  123. ..$iif( l isincs $chanmodes , Channel Limit ):mode # $iif( l isincs $chan(#).mode , -l , +l $$?="Enter Limit" )
  124. ..$iif( L isincs $chanmodes , Channel Limit Redirect ):mode # $iif( L isincs $chan(#).mode +L , -L , +L $$?="Enter Channel to Redirect Users to if Limit is met." )
  125. .$iif( f isincs $chanmodes , Flood Protect )
  126. ..$iif( f isincs $chanmodes , Kick/Ban ):mode # $iif( f isincs $chan(#).mode , -f , +f $($+(*,$$?="Enter Parameters as Lines:Secs")) )
  127. ..$iif( f isincs $chanmodes , Kick ):mode # $iif( f isincs $chan(#).mode , -f , +f $$?="Enter Parameters as Lines:Secs" )
  128. .Restrict /List
  129. ..$iif( p isincs $chanmodes , Private ):mode # $iif( p isincs $chan(#).mode , -p , +p )
  130. ..$iif( s isincs $chanmodes , Secret ):mode # $iif( s isincs $chan(#).mode , -s , +s )
  131. ..$iif( u isincs $chanmodes , Auditorium ):mode # $iif( u isincs $chan(#).mode , -u , +u )
  132. .Restrict Users
  133. ..$iif( t isincs $chanmodes , Only Ops Set Topic ):mode # $iif( t isincs $chan(#).mode , -t , +t )
  134. ..$iif( i isincs $chanmodes , Make channel Invite Only ):mode # $iif( i isincs $chan(#).mode , -i , +i )
  135. ..$iif( K isincs $chanmodes , Disable Knocks ):mode # $iif( iK isincs $chan(#).mode , -K , +iK )
  136. ..$iif( V isincs $chanmodes , Disable Invites ):mode # $iif( I isincs $chan(#).mode , -I , +I )
  137. ..$iif( R isincs $chanmodes , Only Registered Nicks May Join ):mode # $iif( R isincs $chan(#).mode , -R , +R )
  138. ..$iif( z isincs $chanmodes , Only allow SSL clients ):mode # $iif( z isincs $chan(#).mode , -z , +z )
  139. ..$iif( O isincs $chanmodes , Only IrcOps May Join ):mode # $iif( O isincs $chan(#).mode , -O , +O )
  140. ..$iif( A isincs $chanmodes , Only Server Admins May Join ):mode # $iif( A isincs $chan(#).mode , -A , +A )
  141. ..$iif( Q isincs $chanmodes , Only U:lines May Kick Users ):mode # $iif( Q isincs $chan(#).mode , -Q , +Q )
  142. ..$iif( N isincs $chanmodes , Disable Nick Changes in # ):mode # $iif( N isincs $chan(#).mode , -N , +N )
  143. .Restrict Text
  144. ..$iif( m isincs $chanmodes , Make channel Moderated ):mode # $iif( m isincs $chan(#).mode , -m , +m )
  145. ..$iif( n isincs $chanmodes , Prevent External Msgs ):mode # $iif( n isincs $chan(#).mode , -n , +n )
  146. ..$iif( R isincs $chanmodes , Only Registered Nicks can Talk ):mode # $iif( R isincs $chan(#).mode , -R , +R )
  147. ..$iif( T isincs $chanmodes , Disable Channel Noticies ):mode # $iif( T isincs $chan(#).mode , -T , +T )
  148. ..$iif( G isincs $chanmodes , Enable Channel Badwords List ):mode # $iif( G isincs $chan(#).mode , -G , +G )
  149. ..$iif( C isincs $chanmodes , Disable Ctcps In # ):mode # $iif( C isincs $chan(#).mode , -C , +C )
  150. ..$iif( c isincs $chanmodes , Strip Ansi Colors from # ):mode # $iif( c isincs $chan(#).mode , -c , +c )
  151. ..$iif( S isincs $chanmodes , Strip All Colors on # ):mode # $iif( S isincs $chan(#).mode , -S , +S )
  152. ;;
  153. ;;;;IrcOp Controls
  154. ;;
  155. $iif( $ircop , Ircop Controls)
  156. .Add Spamfilter:spamfilter add cpnN gline 0 $$?="Spam Reason: Use Underscores for spaces." $$?="Spam Text"
  157. .Kill $1:Kill $1 $$?="Reason for Kill:"
  158. .Dcc Deny:dccdeny $$?="Filename" $$?="Reason"
  159. .$iif( $Operserv , Operserv )
  160. ..Svs Nick:{
  161. .msg operserv set superadmin on
  162. .msg operserv svsnick $$?="Enter Nick" $$?="Enter New Nick"
  163. .msg operserv set superadmin off
  164. }
  165. ..Global Msg:.msg operserv global $$?="Enter Your Message:"
  166. ..Kill Clones:.msg operserv killclones $$?="Enter Nick:"
  167. ..Session Exceptions:.msg operserv exception add $$?="Enter Host: Portion after @" $$?="Enter # of Sessions:" $$?="Enter Reason:"
  168. ..User Modes:{
  169. .msg operserv set superadmin on
  170. .msg operserv umode $$?="Enter Nick:" $$?="Enter Modes: +i -i"
  171. .msg operserv set superadmin off
  172. }
  173. ..Channel Control
  174. ...Channel Modes:.msg operserv mode $$?="Enter Channel:" $$?="Enter Modes: ie +m -m"
  175. ...Channel Kick:.msg operserv kick $$?="Enter Channel:" $$?="Enter User:" $?="Enter Reason:"
  176. ...Clear Modes:.msg operserv clearmodes $$?="Enter Channel:" $?="If You want to clear Ops and voices, enter ALL"
  177. ..AKill List
  178. ...AKill Add:.msg operserv akill add 30d $$?="Enter User@host or IP" $?="Reason:"
  179. ...Akill Del:.msg operserv akill del $$?="Enter Mask:"
  180. ..SQline List
  181. ...SQline Add:.msg operserv sqline add $$?="Enter Nick Or Channel:"
  182. ...SQline Del:.msg operserv sqline del $$?="Enter Nick Or Channel:"
  183. ..News
  184. ...Logon News:.msg operserv logonnews add $$?="Enter Logon Msg: Only the most recent 3 items will be sent."
  185. ...Random News:.msg operserv randomnews add $$?="Enter Random Entry Msg:"
  186. ...Oper News:.msg operserv opernews add $$?="Enter Oper News: Only the most recent 3 items will be sent."
  187. ..Chankill (Akills all users on Chan):.msg operserv chankill $$?="Enter Channel" $$?="Enter Reason"
  188. }
  189. menu channel,nicklist {
  190. $iif( $services , Services )
  191. ;;
  192. ;;;;Nickserv
  193. ;;
  194. .$iif( $($+(%,$network,.nickserv),2) == 1 , Nickserv )
  195. ..Register Nick:.msg nickserv register $$?="Enter Password:" $$?="Enter Email:"
  196. ..Group:.msg nickserv group $$?="Enter Nick to Group With:" $$?="Enter Password of Target:"
  197. ..Identify:.msg nickserv identify $$?="Enter Your Pass:"
  198. ..Access (Auto-Identify from this host):.msg nickserv access add $$?="Enter Host: who@where"
  199. ..Ghost Nick:.msg nickserv ghost $$?="Enter Nick:" $$?="Enter Pass:"
  200. ;;
  201. ;;;;Chanserv
  202. ;;
  203. .$iif( $($+(%,$network,.chanserv),2) == 1 , Chanserv )
  204. ..Register:.msg chanserv register $$?="Enter Channel:" $$?="Enter Password" $$?="Enter Description"
  205. ..Identify:.msg chanserv identify $$?="Enter Channel:" $$?="Enter Password"
  206. ..Users
  207. ...Add AOp:.msg chanserv aop $$?="Enter Channel" add $$?="Nick"
  208. ...Add SOp:.msg chanserv sop $$?="Enter Channel" add $$?="Nick"
  209. ...Akick
  210. ....Akick Add:.msg chanserv akick $$?="Enter Channel:" add $$?="Enter Nick or Mask"
  211. ....Akick Stick:.msg chanserv akick $$?="Enter Channel:" stick $$?="Enter Nick or Mask
  212. ...Ban:.msg chanserv ban $$?="Enter Channel:" $$?="Enter Nick:" $?="Enter Reason:"
  213. ...Protect:.msg chanserv $$?="Enter Channel:" $$?="Enter Nick:"
  214. ..Clear
  215. ...Modes:.msg chanserv clear $$?="Enter Channel:" modes
  216. ...Bans:.msg chanserv clear $$?="Enter Channel:" bans
  217. ...Excepts:.msg chanserv clear $$?="Enter Channel:" excepts
  218. ...Ops:.msg chanserv clear $$?="Enter Channel:" ops
  219. ...Hops:.msg chanserv clear $$?="Enter Channel:" hops
  220. ...Voices:.msg chanserv clear $$?="Enter Channel:" voices
  221. ...Users:.msg chanserv clear $$?="Enter Channel:" users
  222. ..Unban:.msg chanserv unban $$?="Enter Channel:"
  223. ;;
  224. ;;;;MemoServ
  225. ;;
  226. .$iif( $($+(%,$network,.memoserv),2) == 1 , Memoserv )
  227. ..Send Memo:.msg memoserv send $$?="Enter Nick or Channel:" $$?="Enter Memo:"
  228. ..Read New Memos:.msg memoserv read New
  229. ..Delete All Memos:.msg memoserv del all
  230. }
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!