API tools faq
paste
Guest User

Untitled

a guest
May 4th, 2017
71
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 24.59 KB | None | 0 0
raw download clone embed print report
  1. ************ BY ********* NICHOLAS ******** MRBLUE ****** #BOTSOURCE **********
  2. B*************ALL SCRIPTS AND BOTS ON SAME DIR!**************B
  3. O************************************************************O
  4. T*************#*********E***********#*********E**************T
  5. S***************B******C*************B*******C***************S
  6. O****************O****R***************O*****R****************O
  7. U*****************T**O*****************T**O******************U
  8. R******************S********************S********************R
  9. C************************************************************C
  10. E************************************************************E
  11.  
  12.  
  13. ### ### B B B B O O O O O O T T T T T T T T T T S S S S S S O O O O O O U U R R R R R C C C C C E E E E E E
  14. ### ### B B O O T T S O O U U R R C C E
  15. ################B B O O T T S O O U U R R C E
  16. ################B B O O T T S O O U U R R C E
  17. ### ### B B B B O O T T S O O U U R R C E
  18. ### ### B B O O T T S S S S O O U U R R R R R C E E E E E
  19. ### ### B B O O T T S O O U U R R C E
  20. ################B B O O T T S O O U U R R C E
  21. ################B B O O T T S O O U U R R C E
  22. ### ### B B O O T T S O O U U R R C C E
  23. ### ### B B B B O O O O O O T T S S S S S S O O O O O O U U U U U U R R C C C C C E E E E E E
  24.  
  25.  
  26.  
  27.  
  28. [BSBots.mrc]
  29. on *:TEXT:*:#:{
  30. var %trigger = $readini(db. $+ $chan $+ .ini,Trigger,Trigger)
  31. if ($left($1,1) == %trigger) {
  32. if ($readini(db/ $+ $chan $+ .ini,n,Command,$right($1,-1)) != $null) {
  33. notice $nick $v1
  34. }
  35. }
  36. }
  37.  
  38. on *:text:*:#: {
  39. var %trigger = $readini(db. $+ $chan $+ .ini,Trigger,Trigger)
  40. if ($1 == %trigger $+ Bind) {
  41. writeini $qt($+(db/,$chan,.ini)) Command $2-
  42. //notice $nick Binded $readini(db/ $+ $chan $+ .ini,n,Trigger,1) $+ $2-
  43. }
  44. }
  45.  
  46.  
  47. on *:text:*:#: {
  48. var %trigger = $readini(db. $+ $chan $+ .ini,Trigger,Trigger)
  49. if ($1 == %trigger $+ unbind) {
  50. /remini $+(db/,$chan,.ini) Commands $2
  51. /notice $nick Unbinded $2
  52. }
  53. }
  54.  
  55. on *:text:*:#: {
  56. var %trigger = $readini(db. $+ $chan $+ .ini,Trigger,Trigger)
  57. if ($1 == %trigger $+ Trigger) {
  58. //remini $+(db/,$chan,.ini) Trigger
  59. //write $+(db/,$chan,.ini) Trigger Trigger $2
  60. //notice $nick Trigger set to $readini(db. $+ $chan $+ .ini,Trigger,Trigger)
  61. }
  62. }
  63. [BSBots2.mrc]
  64. on *:join:#: {
  65. if (!$readini(db/ $+ $chan $+ .ini,n,Greeting,Greeting) {
  66. halt
  67. }
  68. else {
  69. /notice $nick $readini(db/ $+ $chan $+ .ini,n,Greeting,Greeting)
  70. }
  71. }
  72. [Apps.mrc]
  73. on *:TEXT:.dnr*:%botchan: {
  74. if ($godstatus($nick) == 1) {
  75. if ($me == %hub) {
  76. if ($2 == list) {
  77. var %i = 1
  78. while (%i <= $ini(db\dnr.ini,dnr, 0)) {
  79. .var %commands = %commands $ini(db\dnr.ini,dnr, %i)
  80. inc %i
  81. }
  82. bc Channels in DNR list: %commands
  83. halt
  84. }
  85. if ($2 == $null) {
  86. bc Error: Command (dnr) requires more parameters. (channel) and (reason)
  87. halt
  88. }
  89. if ($readini(db\dnr.db,dnr, $+ $2 $+ ) == 1) {
  90. bc $nick Sorry but channel ( $+ $2 $+ ) is already in the DNR list; REASON: ( $+ $parse.from.ini($readini(C:\bots\db\dnr.db,dnr, $+ $2 $+ reason)) $+ ) - USER: ( $+ $parse.from.ini($readini(C:\bots\db\dnr.db,dnr, $+ $2 $+ user)) $+ ) - DATE & TIME: ( $+ $parse.from.ini($readini(C:\bots\db\dnr.db,dnr, $+ $2 $+ time)) $+ )
  91. halt
  92. }
  93. else {
  94. writeini db\dnr.ini dnr $2 1
  95. writeini db\dnr.ini user $2 $nick
  96. writeini db\dnr.ini reason $2 $3-
  97. writeini db\dnr.ini time $2 $date(dddd mmmm dd $+ $chr(44) yyyy) @ $asctime(hh:nn:ss TT zzz)
  98. bc New DNR, Channel ( $+ $2 $+ ), Reason ( $+ $3- $+ ), Date & Time ( $+ $date(dddd mmmm dd $+ $chr(44) yyyy) @ $asctime(hh:nn:ss TT zzz) $+ )
  99. halt
  100. }
  101. }
  102. }
  103. }
  104. on *:TEXT:.apply*:%botchan:{
  105. if ($me == %appbot) {
  106. if (%getabot. [ $+ [ $nick ] $+ [ $chan ] ]) {
  107. .msg $chan  $+ $nick $+ , Please wait another 45 seconds before requesting again ...
  108. halt
  109. }
  110. if ($2 == $null) {
  111. bc To get a bot type ".apply #channel" insert your channel name where you see #channel.
  112. halt
  113. }
  114. set -u44 %0getabot. [ $+ [ $nick ] $+ [ $chan ] ] 1
  115. if ($readini(db\dnr.ini,dnr, $+ $2 $+ ) == 1) {
  116. .msg $chan $nick $+ ,Sorry but channel ( $+ $2 $+ ) is in the DNR list; REASON: ( $+ $parse.from.ini($readini(db\dnr.ini,reason, $+ $2 $+ )) $+ ) - USER: ( $+ $parse.from.ini($readini(db\dnr.ini,user, $+ $2 $+ )) $+ ) - TIME & DATE: ( $+ $parse.from.ini($readini(db\dnr.ini,time, $+ $2 $+ )) $+ )
  117. halt
  118. }
  119. if ($readini(db\reg.ini,reg, $+ $2 $+ ) == 1) {
  120. .msg $chan $nick $+ ,Sorry but channel ( $+ $2 $+ ) is in the already REGISTERED list; REGISTERED USER: ( $+ $parse.from.ini($readini(db\ $+ $2 $+ .ini,chaninfo,owner)) $+ ) - REGISTERED DATE & TIME: ( $+ $parse.from.ini($readini(db\ $+ $2 $+ .ini,chaninfo,Registered)) $+ ) If you feel that this is an error, please contact a BotSource's Staff Member. ]
  121. halt
  122. }
  123. if ($2 == %botchan*) {
  124. .msg $chan [ $nick $+ ,Please don't try to register a BS to the main channel the hub is not that stuipd ]
  125. .mode $chan +b-vo $address($nick,2) $nick $nick
  126. halt
  127. .kick $chan $nick (SECURITY COMPRIMISED)
  128. }
  129. if (*#X-Bots* iswm $2) {
  130. .msg $chan [ $nick $+ , Please don't try to register X-Bots, the hub is not that stuipd ]
  131. .mode $chan +b-vo $address($nick,2) $nick $nick
  132. halt
  133. .kick $chan $nick (SECURITY COMPRIMISED)
  134. }
  135. if (*#Bots* iswm $2) {
  136. .msg $chan [ $nick $+ ,Please don't try to register Bots, the hub is not that stuipd ]
  137. .mode $chan +b-vo $address($nick,2) $nick $nick
  138. halt
  139. .kick $chan $nick (SECURITY COMPRIMISED)
  140. }
  141. if (*#clanBots* iswm $2) {
  142. .msg $chan ,1[ $nick $+ , Please don't try to register ClanBots, the hub is not that stuipd ]
  143. .mode $chan +b-vo $address($nick,2) $nick $nick
  144. halt
  145. .kick $chan $nick (SECURITY COMPRIMISED)
  146. }
  147. if (*bot* iswm $2) {
  148. .msg $chan ,1[ $nick $+ , Sorry but that channel has the word (BOT) in it; any channel with that word will NOT be registered. If you feel that this is an error, please talk to an BotSource Staff. ]
  149. halt
  150. }
  151. if (*b0t* iswm $2) {
  152. .msg $chan ,1[ $nick $+ , Sorry but that channel has the word (B0T) in it; any channel with that word will NOT be registered. If you feel that this is an error, please talk to an BotSource Staff. ]
  153. halt
  154. }
  155. if (*fuck* iswm $2) {
  156. .msg $chan ,1[ $nick $+ , Sorry but that channel has the word (FUCK) in it; any channel with that word will NOT be registered. ]
  157. halt
  158. }
  159. if (*kkk* iswm $2) {
  160. .msg $chan ,1[ $nick $+ , Sorry but that channel has the word (KKK) in it; any channel with that word will NOT be registered. ]
  161. halt
  162. }
  163. if (*xxx* iswm $2) {
  164. .msg $chan ,1[ $nick $+ , Sorry but that channel has the word (XXX) in it; any channel with that word will NOT be registered. ]
  165. halt
  166. }
  167. if (*porn* iswm $2) {
  168. .msg $chan ,1[ $nick $+ , Sorry but that channel has the word (PORN) in it; any channel with that word will NOT be registered. ]
  169. halt
  170. }
  171. if (*xdcc* iswm $2) {
  172. .msg $chan ,1[ $nick $+ , Sorry but that channel has the word (PORN) in it; any channel with that word will NOT be registered. ]
  173. halt
  174. }
  175. if (*teen* iswm $2) {
  176. .msg $chan ,1[ $nick $+ , Sorry but that channel has the word (TEEN) in it; any channel with that word will NOT be registered. ]
  177. halt
  178. }
  179. if (*,* iswm $2) {
  180. .msg $chan ,1[ $nick $+ , Sorry but that channel has (*,*) in it; any channel with that name will NOT be registered. If you fell that this is an error, please contact to an BotSource Staff. ]
  181. .mode $chan +b-vo $address($nick,2) $nick $nick
  182. halt
  183. ;.kick %botchan $nick ,1(SECURITY COMPRIMISED)
  184. }
  185. elseif (%zzapllly == 1) {
  186. bc Sorry but I can only handle one user at a time please allow 30 seconds for the first user to be helped. Currently helping %nick.ask with %channel
  187. }
  188. elseif ((%BS-01 == 15) && (%BS-02 == 15) && (%BS-03 == 15) && (%BS-04 == 15) && (%BS-05 == 15)) {
  189. .msg %botchan ,1[ $nick $+ , Sorry but at this time all bots are FULL or UNAVAILABLE. ]
  190. halt
  191. }
  192. else {
  193. .set %botnick.apply 1
  194. .unset %nick.lvl
  195. .unset %noticeset
  196. .unset %channel
  197. .unset %nick.ask
  198. .unset %channel.idler
  199. .msg %botchan Checking requirements... this could take up to 40 seconds. To view the list of requirements or type .req in this channel.
  200. .timer $+ $nick 1 1.75 join $2
  201. .set %channel $2
  202. .set %nick.ask $nick
  203. .timera 1 1.5 chanserv a %channel %nick.ask
  204. .timer100 1 4 $!timerz
  205. .set -u19 %zzapllly 1
  206. }
  207. }
  208. }
  209. on *:TEXT:.slots:%botchan: {
  210. if ($me == %hub) {
  211. msg $chan There are $calc(75 - %BS-01 - %BS-02 - %BS-03 - %BS-04 - %BS-05) channel slots available. Current channel load is $calc(%BS-01 + %BS-02 + %BS-03 + %BS-04 + %BS-05) out of 75 total channel slots.
  212. msg $chan (BS-01 Slots $calc(15 - %BS-01) $+ ) - (BS-02 Slots $calc(15 - %BS-02) $+ ) - (BS-03 Slots $calc(15 - %BS-03) $+ ) - (BS-04 Slots $calc(15 - %BS-04) $+ ) - (BS-05 Slots $calc(15 - %BS-05) $+ )
  213. }
  214. }
  215. on *:NOTICE:*:?: {
  216. if ($nick == ChanServ) {
  217. if ($4 == access) {
  218. set %nick.lvl $strip($5,b)
  219. set %noticeset 1
  220. echo -a $1-
  221. echo -a $4
  222. }
  223. if ($4 == been) {
  224. set %nick.lvl $5
  225. set %noticeset 1
  226. echo -a $1-
  227. echo -a $4
  228. }
  229. }
  230. }
  231. alias timerz {
  232. var %i = 1
  233. while (%i <= $nick(%channel,0)) {
  234. if (*bot* iswm $opnick(%channel,%i)) { inc %botnick.apply 1 }
  235. inc %i
  236. }
  237. if (%nick.lvl == to) {
  238. .msg %botchan [ %nick.ask $+ , Sorry but your not on the user list in ( $+ %channel $+ ), or there is a net split occuring. ]
  239. part %channel 1
  240. halt
  241. }
  242. if (%nick.lvl == registered) {
  243. .msg %botchan [ %nick.ask $+ , Sorry but your ( $+ %channel $+ ), is not registered with ChanServ. ]
  244. part %channel 1
  245. halt
  246. }
  247. if (%nick.lvl == with) {
  248. .msg %botchan [ %nick.ask $+ , Sorry but you need to authenticate with AuthServ. ]
  249. part %channel 1
  250. halt
  251. }
  252. if (%nick.lvl < 399) {
  253. .msg %botchan [ %nick.ask $+ , Sorry but your user level in ( $+ %channel $+ ) is ( %nick.lvl ), You need 400 or there is a net split occuring. ]
  254. part %channel [ Requirements Failed for %botchan - This was requested by %nick.ask ]
  255. halt
  256. }
  257. if (!%nick.lvl) {
  258. .msg %botchan [ %nick.ask $+ , Sorry but ChanServ didn't responed to me when I asked for your user level; There may be a net split occuring ]
  259. part %channel [ Error ChanServ didn't responed ]
  260. halt
  261. }
  262. elseif (%botnick.apply <= 1) {
  263. set %channel.idler $nick(%channel,0)
  264. timer200 1 7.5 part %channel ,1[ Requirements checked for %botchan - This was requested by %nick.ask ]
  265. timer300 1 5 $!channel
  266. unset %nick.lvl
  267. }
  268. else {
  269. .msg %botchan [ %nick.ask $+ , Sorry but your ( $+ %channel $+ ), already have an other *Bots* ]
  270. part %channel This channel %channel already have an other *Bots*
  271. set botnick.apply 0
  272. unset %nick.lvl
  273. }
  274. }
  275. alias channel {
  276. if (%channel.idler < 5) {
  277. .msg %botchan [ %nick.ask $+ , Sorry but your ( $+ %channel $+ ), has not met the minimum user limit (5 users currently in channel, ChanServ and myself do NOT count) ]
  278. unset %nick.lvl
  279. }
  280. elseif (%channel.idler >= 5) {
  281. $eval($botapply)
  282. unset %nick.lvl
  283. }
  284. }
  285. alias Botapply {
  286. if ((%GameBot-01 <= %GameBot-02) && (%GameBot-01 <= %GameBot-03) && (%GameBot-01 != 15) && (%GameBot-01 <= %GameBot-05) && (%GameBot-01 <= %GameBot-04)) {
  287. msg %botchan [ %nick.ask $+ , BS-01 is being dispatched to your channel ( $+ %channel $+ ). Please do NOT use the any of the commands for your channel until you have coownered the bot and set the initial password with it in PM like it asks. ]
  288. msg BS-01 .join %channel
  289. writeini db\reg.ini reg %channel 1
  290. .msg %nick.ask BS-01 has been dispatched to your channel; Your already authed so you will have no problem working with your bot. Please for more info type @commands in your channel. Also please !addco BS-01
  291. set %me BS-01
  292. chan.add %channel
  293. writeini "db/ $+ %channel $+ .ini" chaninfo Registrar %nick.ask
  294. writeini "db/ $+ %channel $+ .ini" chaninfo Registered $asctime
  295. writeini "db/ $+ %channel $+ .ini" Access $address(%nick.ask,2) 40
  296. writeini "db/ $+ %channel $+ .ini" chaninfo owner %nick.ask
  297. writeini "db/ $+ %channel $+ .ini" chaninfo Setters Masters
  298. writeini "db/ $+ %channel $+ .ini" chaninfo Modes None
  299. writeini "db/ $+ %channel $+ .ini" chaninfo Toys 2
  300. writeini "db/ $+ %channel $+ .ini" chaninfo Dynlimit Disabled
  301. writeini "db/ $+ %channel $+ .ini" chaninfo Voice Disabled
  302. writeini "db/ $+ %channel $+ .ini" chaninfo SpamProtect Disabled
  303. writeini "db/ $+ %channel $+ .ini" chaninfo SpamPunish kick
  304. writeini "db/ $+ %channel $+ .ini" chaninfo Protect 2
  305. writeini "db/ $+ %channel $+ .ini" chaninfo DefaultTopic None
  306. writeini "db/ $+ %channel $+ .ini" chaninfo EnfTopic 0
  307. writeini "db/ $+ %channel $+ .ini" chaninfo Greeting None
  308. writeini "db/ $+ %channel $+ .ini" chaninfo UserGreeting None
  309. writeini "db/ $+ %channel $+ .ini" chaninfo NoDelete Disabled
  310. writeini "db/ $+ %channel $+ .ini" Trigger Trigger @
  311. writeini "db/ $+ %channel $+ .ini" chaninfo Bot BS-01
  312. writeini $qt($+(db/,%channel,.ini)) Command Commands Not setup; type @Bind
  313. inc %BS-01
  314. }
  315. elseif ((%BS-02 <= %BS-01) && (%BS-02 <= %BS-03) && (%BS-02 <= %BS-04) && (%BS-02 <= %BS-05) && (%BS-02 != 15)) {
  316. msg %botchan  %nick.ask $+ , BS-02 is being dispatched to your channel ( $+ %channel $+ ). Please do NOT use the any of the commands for your channel until you have coownered the bot and set the initial password with it in PM like it asks. ]
  317. msg BS-02 .15&2^#5!7^4join %channel
  318. writeini db\reg.ini reg %channel 1
  319. .msg %nick.ask BS-02 has been dispatched to your channel; Your already authed so you will have no problem working with your bot. Please for more info type @commands in your channel. Also please !addco BS-02
  320. set %me BS-02
  321. chan.add %channel
  322. writeini "db/ $+ %channel $+ .ini" chaninfo Registrar %nick.ask
  323. writeini "db/ $+ %channel $+ .ini" chaninfo Registered $asctime
  324. writeini "db/ $+ %channel $+ .ini" Access $address(%nick.ask,2) 40
  325. writeini "db/ $+ %channel $+ .ini" chaninfo owner %nick.ask
  326. writeini "db/ $+ %channel $+ .ini" chaninfo Setters Masters
  327. writeini "db/ $+ %channel $+ .ini" chaninfo Modes None
  328. writeini "db/ $+ %channel $+ .ini" chaninfo Toys 2
  329. writeini "db/ $+ %channel $+ .ini" chaninfo Dynlimit Disabled
  330. writeini "db/ $+ %channel $+ .ini" chaninfo Voice Disabled
  331. writeini "db/ $+ %channel $+ .ini" chaninfo SpamProtect Disabled
  332. writeini "db/ $+ %channel $+ .ini" chaninfo SpamPunish kick
  333. writeini "db/ $+ %channel $+ .ini" chaninfo Protect 2
  334. writeini "db/ $+ %channel $+ .ini" chaninfo DefaultTopic None
  335. writeini "db/ $+ %channel $+ .ini" chaninfo EnfTopic 0
  336. writeini "db/ $+ %channel $+ .ini" chaninfo Greeting None
  337. writeini "db/ $+ %channel $+ .ini" chaninfo UserGreeting None
  338. writeini "db/ $+ %channel $+ .ini" chaninfo NoDelete Disabled
  339. writeini "db/ $+ %channel $+ .ini" Trigger Trigger @
  340. writeini "db/ $+ %channel $+ .ini" chaninfo Bot BS-02
  341. writeini $qt($+(db/,%channel,.ini)) Command Commands Not setup; type @Bind
  342. inc %BS-02
  343. }
  344. elseif ((%BS-03 <= %BS-01) && (%BS-03 <= %BS-02) && (%BS-03 <= %BS-04) && (%BS-03 <= %BS-05) && (%BS-03 != 15)) {
  345. msg %botchan  %nick.ask $+ , BS-03 is being dispatched to your channel ( $+ %channel $+ ). Please do NOT use the any of the commands for your channel until you have coownered the bot and set the initial password with it in PM like it asks. ]
  346. msg BS-03 .join %channel
  347. writeini db\reg.ini reg %channel 1
  348. .msg %nick.ask BS-03 has been dispatched to your channel; Your already authed so you will have no problem working with your bot. Please for more info type @commands in your channel. Also please !addco BS-03
  349. set %me BS-03
  350. chan.add %channel
  351. writeini "db/ $+ %channel $+ .ini" chaninfo Registrar %nick.ask
  352. writeini "db/ $+ %channel $+ .ini" chaninfo Registered $asctime
  353. writeini "db/ $+ %channel $+ .ini" Access $address(%nick.ask,2) 40
  354. writeini "db/ $+ %channel $+ .ini" chaninfo owner %nick.ask
  355. writeini "db/ $+ %channel $+ .ini" chaninfo Setters Masters
  356. writeini "db/ $+ %channel $+ .ini" chaninfo Modes None
  357. writeini "db/ $+ %channel $+ .ini" chaninfo Toys 2
  358. writeini "db/ $+ %channel $+ .ini" chaninfo Dynlimit Disabled
  359. writeini "db/ $+ %channel $+ .ini" chaninfo Voice Disabled
  360. writeini "db/ $+ %channel $+ .ini" chaninfo SpamProtect Disabled
  361. writeini "db/ $+ %channel $+ .ini" chaninfo SpamPunish kick
  362. writeini "db/ $+ %channel $+ .ini" chaninfo Protect 2
  363. writeini "db/ $+ %channel $+ .ini" chaninfo DefaultTopic None
  364. writeini "db/ $+ %channel $+ .ini" chaninfo EnfTopic 0
  365. writeini "db/ $+ %channel $+ .ini" chaninfo Greeting None
  366. writeini "db/ $+ %channel $+ .ini" chaninfo UserGreeting None
  367. writeini "db/ $+ %channel $+ .ini" chaninfo NoDelete Disabled
  368. writeini "db/ $+ %channel $+ .ini" Trigger Trigger @
  369. writeini "db/ $+ %channel $+ .ini" chaninfo Bot BS-03
  370. writeini $qt($+(db/,%channel,.ini)) Command Commands Not setup; type @Bind
  371. inc %BS-03
  372. }
  373. elseif ((%BS-04 <= %BS-01) && (%BS-04 <= %BS-03) && (%BS-04 <= %BS-02) && (%BS-04 <= %BS-05) && (%BS-04 != 15)) {
  374. msg %botchan  %nick.ask $+ , BS-04 is being dispatched to your channel ( $+ %channel $+ ). Please do NOT use the any of the commands for your channel until you have coownered the bot and set the initial password with it in PM like it asks. ]
  375. msg BS-04 .join %channel
  376. writeini db\reg.ini reg %channel 1
  377. .msg %nick.ask BS-04 has been dispatched to your channel; Your already authed so you will have no problem working with your bot. Please for more info type @commands in your channel. Also please !addco BS-04
  378. set %me BS-04
  379. chan.add %channel
  380. writeini "db/ $+ %channel $+ .ini" chaninfo Registrar %nick.ask
  381. writeini "db/ $+ %channel $+ .ini" chaninfo Registered $asctime
  382. writeini "db/ $+ %channel $+ .ini" Access $address(%nick.ask,2) 40
  383. writeini "db/ $+ %channel $+ .ini" chaninfo owner %nick.ask
  384. writeini "db/ $+ %channel $+ .ini" chaninfo Setters Masters
  385. writeini "db/ $+ %channel $+ .ini" chaninfo Modes None
  386. writeini "db/ $+ %channel $+ .ini" chaninfo Toys 2
  387. writeini "db/ $+ %channel $+ .ini" chaninfo Dynlimit Disabled
  388. writeini "db/ $+ %channel $+ .ini" chaninfo Voice Disabled
  389. writeini "db/ $+ %channel $+ .ini" chaninfo SpamProtect Disabled
  390. writeini "db/ $+ %channel $+ .ini" chaninfo SpamPunish kick
  391. writeini "db/ $+ %channel $+ .ini" chaninfo Protect 2
  392. writeini "db/ $+ %channel $+ .ini" chaninfo DefaultTopic None
  393. writeini "db/ $+ %channel $+ .ini" chaninfo EnfTopic 0
  394. writeini "db/ $+ %channel $+ .ini" chaninfo Greeting None
  395. writeini "db/ $+ %channel $+ .ini" chaninfo UserGreeting None
  396. writeini "db/ $+ %channel $+ .ini" chaninfo NoDelete Disabled
  397. writeini "db/ $+ %channel $+ .ini" Trigger Trigger @
  398. writeini "db/ $+ %channel $+ .ini" chaninfo Bot BS-04
  399. writeini $qt($+(db/,%channel,.ini)) Command Commands Not setup; type @Bind
  400. inc %BS-04
  401. }
  402. elseif ((%BS-02 <= %BS-01) && (%BS-05 <= %BS-03) && (%BS-05 <= %BS-04) && (%BS-05 <= %BS-02) && (%BS-05 != 15)) {
  403. msg %botchan  %nick.ask $+ , BS-05 is being dispatched to your channel ( $+ %channel $+ ). Please do NOT use the any of the commands for your channel until you have coownered the bot and set the initial password with it in PM like it asks. ]
  404. msg BS-05 .join %channel
  405. writeini db\reg.ini reg %channel 1
  406. .msg %nick.ask BS-05 has been dispatched to your channel; Your already authed so you will have no problem working with your bot. Please for more info type @commands in your channel. Also please !addco BS-05
  407. set %me BS-05
  408. chan.add %channel
  409. writeini "db/ $+ %channel $+ .ini" chaninfo Registrar %nick.ask
  410. writeini "db/ $+ %channel $+ .ini" chaninfo Registered $asctime
  411. writeini "db/ $+ %channel $+ .ini" Access $address(%nick.ask,2) 40
  412. writeini "db/ $+ %channel $+ .ini" chaninfo owner %nick.ask
  413. writeini "db/ $+ %channel $+ .ini" chaninfo Setters Masters
  414. writeini "db/ $+ %channel $+ .ini" chaninfo Modes None
  415. writeini "db/ $+ %channel $+ .ini" chaninfo Toys 2
  416. writeini "db/ $+ %channel $+ .ini" chaninfo Dynlimit Disabled
  417. writeini "db/ $+ %channel $+ .ini" chaninfo Voice Disabled
  418. writeini "db/ $+ %channel $+ .ini" chaninfo SpamProtect Disabled
  419. writeini "db/ $+ %channel $+ .ini" chaninfo SpamPunish kick
  420. writeini "db/ $+ %channel $+ .ini" chaninfo Protect 2
  421. writeini "db/ $+ %channel $+ .ini" chaninfo DefaultTopic None
  422. writeini "db/ $+ %channel $+ .ini" chaninfo EnfTopic 0
  423. writeini "db/ $+ %channel $+ .ini" chaninfo Greeting None
  424. writeini "db/ $+ %channel $+ .ini" chaninfo UserGreeting None
  425. writeini "db/ $+ %channel $+ .ini" chaninfo NoDelete Disabled
  426. writeini "db/ $+ %channel $+ .ini" Trigger Trigger @
  427. writeini "db/ $+ %channel $+ .ini" chaninfo Bot BS-05
  428. writeini $qt($+(db/,%channel,.ini)) Command Commands Not setup; type @Bind
  429. inc %BS-05
  430. }
  431. }
  432. [ChanAdd.mrc]
  433. alias chan.add {
  434. /set %chan.add $2
  435. //writeini "db/Channels.ini" Channels $2 /autojoin $2 $me
  436. //msg %botchan Added $2 to my auto join list.
  437. //saychans $me
  438. }
  439.  
  440. alias saychans {
  441. if ($2 == $me) {
  442. msg %botchan I am in $chan(0) Channels.
  443. set %i 1
  444. unset %idlerscript.chans
  445. while ( %i <= $chan(0) ) {
  446. set %idlerscript.chans %idlerscript.chans $+ $chan(%i) $chr(32)
  447. inc %i
  448. }
  449. msg %botchan Channels: %idlerscript.chans
  450. }
  451. }
  452.  
  453. alias autojoin {
  454. if ($me == $2) {
  455. /join $3
  456. }
  457. else {
  458. halt
  459. }
  460. }
  461. [Remove.mrc]
  462. on 500:text:.Remove *:%botchan: {
  463. if ($me isin $2) {
  464. /part $2 This channel was removed by $nick $+ .
  465. //remini db/ $+ $2 $+ .ini
  466. //remini db/Channels.ini Channels $2
  467. /notice $nick I have parted and removed db/ $+ $2 $+ .ini
  468. //dec % $+ $me 1
  469. }
  470. else {
  471. halt
  472. }
  473. }
  474. [Reconnect.mrc]
  475. on *:load: {
  476. /timerSetLastChans Off
  477. /timerSetLastChans 0 400 /set %lastchans $chan(1) $+ , $+ $chan(2) $+ , $+ $chan(3) $+ , $+ $chan(4) $+ , $+ $chan(5) $+ , $+ $chan(6) $+ , $+ $chan(7) $+ , $+ $chan(8) $+ , $+ $chan(9) $+ , $+ $chan(10) $+ , $+ $chan(11) $+ , $+ $chan(12) $+ , $+ $chan(13) $+ , $+ $chan(14) $+ , $+ $chan(15) $+ , $+ $chan(16) $+ , $+ $chan(17) $+ , $+ $chan(18) $+ , $+ $chan(19) $+ , $+ $chan(20)
  478. }
  479.  
  480. on *:disconnect: {
  481. /server irc.us.gamesurge.net
  482. /load -rs dontload.mrc
  483. /timer1 1 5 /unload -rs dontload.mrc
  484. }
  485.  
  486.  
  487. [DONTLOAD.mrc]
  488. on *:load: {
  489. if ($me == %apps) {
  490. halt
  491. }
  492. if ($me == %hub) {
  493. halt
  494. }
  495. else {
  496. //join %lastchans
  497. }
  498. }
  499. [Stats.mrc]
  500. on *:text:.stats:%botchan: {
  501. if ($nick isop #) {
  502. if ($2 == $me) {
  503. msg $nick I am in $chan(0) Channels.
  504. set %i 1
  505. unset %idlerscript.chans
  506. while ( %i <= $chan(0) ) {
  507. set %idlerscript.chans %idlerscript.chans $+ $chan(%i) $chr(32)
  508. inc %i
  509. }
  510. msg $nick Channels: %idlerscript.chans
  511. }
  512. }
  513. }
Add Comment
Please, Sign In to add comment
Public Pastes
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!