API tools faq
paste
Advertisement
_MM_IKKE

botcmds.ini

_MM_IKKE
Nov 21st, 2018
147
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 31.03 KB | None | 0 0
raw download clone embed print report
  1. [script]
  2. n0=on 500,543:TEXT:*:#: { halt }
  3. n1=on *:START: {
  4. n2=  set %getping 0
  5. n3=}
  6. n4=on *:LOAD: {
  7. n5=  set %getping 0
  8. n6=  echo -at Loaded commands which trigger one bot
  9. n7=  echo -at Set getping to 0, default
  10. n8=}
  11. n9=on *:UNLOAD: {
  12. n10=  unset %getping
  13. n11=  echo -at Unloaded commands which trigger one bot
  14. n12=  echo -at Unset getping
  15. n13=}
  16. n14=
  17. n15=on *:TEXT:!do*:#:{
  18. n16=  if ($nick == %owner && $1 == !do) {
  19. n17=    if ($me == $2) {
  20. n18=      if ($3 == $null) { msg $chan 4ERROR:1 Usage: !do <botnick> <commands> }
  21. n19=      else {
  22. n20=        $eval($3-,2)
  23. n21=      }  
  24. n22=    }
  25. n23=    elseif (!$mybots($2) && $me == %bot1) { msg $chan 4ERROR:1 Usage: !do <botnick> <commands> }
  26. n24=  }
  27. n25=  elseif ($me == $2 && $me != %owner && $1 == !do) { msg $chan 4ERROR:1 You are not authorized to use this command }
  28. n26=  elseif ($2 == $null && $me == %bot1 && $1 == !do) { scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command }
  29. n27=}
  30. n28=on *:TEXT:!botban*:#[MM]IKKE, #[MM]IKKE.echo: {
  31. n29=  if ($me == %bot1 && $nick == %owner && $1 == !botban) {
  32. n30=    if (!$2) { scon $bot_say($chan) msg $chan 4ERROR:1 !botban <nick> }
  33. n31=    else {
  34. n32=      msg $chan You have been banned on all my channels and from all bot commands
  35. n33=      mode $chan -ohv $2 $2 $2  
  36. n34=      mode $chan +bb $address($2,0) $2
  37. n35=      mode $chan -ee $2 * $+ $2 $+ *!*@*
  38. n36=      cs access #[MM]IKKE del $2
  39. n37=      kick $chan $2-
  40. n38=      cs akick #[MM]IKKE add $2-
  41. n39=      cs akick #[MM]IKKE.echo add $2-
  42. n40=      .auser 543 $address($2,4)
  43. n41=      .auser 543 $2 $+ !*@*
  44. n42=    }
  45. n43=  }
  46. n44=  elseif ($me == %bot1 && $isowner($chan,$nick) && $1 == !botban) {
  47. n45=    if (!$2) { scon $bot_say($chan) msg $chan 4ERROR:1 !botban <nick> }
  48. n46=    elseif ($chr(126) !isin $nick($chan , $2).pnick) {
  49. n47=      msg $chan You have been banned on all my channels and from all bot commands
  50. n48=      mode $chan -ohv $2 $2 $2  
  51. n49=      mode $chan +bb $address($2,0) $2
  52. n50=      mode $chan -ee $2 * $+ $2 $+ *!*@*
  53. n51=      cs access #[MM]IKKE del $2
  54. n52=      kick $chan $2-
  55. n53=      cs akick #[MM]IKKE add $2-
  56. n54=      cs akick #[MM]IKKE.echo add $2-
  57. n55=      .auser 543 $address($2,4)
  58. n56=      .auser 543 $2 $+ !*@*
  59. n57=      scon %owner_s window -m @Management
  60. n58=      beep
  61. n59=      scon %owner_s aline @Management 4Botban:2 $nick 1banned $2 at2 $time
  62. n60=    }
  63. n61=    else {
  64. n62=      scon $bot_say($chan) msg $chan 4ERROR:1 You cannot ban other channel owners!
  65. n63=    }
  66. n64=  }
  67. n65=  elseif ($me == %bot1 && $nick == %owner && $1 == !botban) {
  68. n66=    scon $bot_say($chan) msg $chan 4ERROR:1 I do not have the required status
  69. n67=  }
  70. n68=  elseif ($me == %bot1 && $1 == !botban) {
  71. n69=    scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command
  72. n70=  }
  73. n71=}
  74. n72=on *:TEXT:!botunban*:#: {
  75. n73=  if ($me == %bot1 && $nick == %owner && $me isop $chan && $1 == !botunban) {
  76. n74=    if (!$2) { scon $bot_say($chan) msg $chan 4ERROR:1 !botunban <nick> }
  77. n75=    elseif ($level($address($2,5)) == 543) {
  78. n76=      mode $chan -bbb $address($2,0) $2 $address($2,2)
  79. n77=      cs akick #[MM]IKKE.echo del $2-
  80. n78=      .ruser 543 $address($2,4)
  81. n79=      .ruser 543 $2 $+ !*@*
  82. n80=      msg $chan Unbanned:9 $2
  83. n81=    }
  84. n82=    else { scon $bot_say($chan) msg $chan 4ERROR:1 $2 isn't on the ban list }
  85. n83=  }
  86. n84=  elseif ($me == %bot1 && $nick == %owner && $1 == !botunban) {
  87. n85=    scon $bot_say($chan) msg $chan 4ERROR:1 I do not have the required status
  88. n86=  }
  89. n87=  elseif ($me == %bot1 && $1 == !botunban) {
  90. n88=    scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command
  91. n89=  }
  92. n90=}
  93. n91=on *:TEXT:!ignore *:#: {
  94. n92=  if ($me == %bot1) {
  95. n93=    if ($nick == %owner) {
  96. n94=      .auser 500 $address($2,4)
  97. n95=      .auser 500 $2 $+ !*@*
  98. n96=      scon $bot_say($chan) msg $chan Ignoring " $+ $2 $+ " from now on
  99. n97=    }
  100. n98=    else {
  101. n99=      scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command
  102. n100=    }
  103. n101=  }
  104. n102=}
  105. n103=on *:TEXT:!unignore*:#: {
  106. n104=  if ($me == %bot1 && $nick == %owner && $1 == !unignore) {
  107. n105=    if (!$2) { scon $bot_say($chan) msg $chan 4ERROR:1 !unignore <nick> }
  108. n106=    elseif ($level($address($2,5)) == 500) {
  109. n107=      .ruser 500 $address($2,4)
  110. n108=      .ruser 500 $2 $+ !*@*
  111. n109=      msg $chan Stopped ignoring:9 $2
  112. n110=    }
  113. n111=    else { scon $bot_say($chan) msg $chan 4ERROR:1 $2 isn't on the ignore list }
  114. n112=  }
  115. n113=  elseif ($me == %bot1 && $1 == !unignore) {
  116. n114=    scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command
  117. n115=  }
  118. n116=}
  119. n117=on *:TEXT:!stfu*:#[MM]IKKE: {
  120. n118=  if ($1 == !stfu && $me == %bot1 && $2 isnum) {
  121. n119=    if ($2 <= 120 && $2 >= 1) {
  122. n120=      if ($isowner($chan,$3)) {
  123. n121=        scon $bot_say($chan) ban -u60 $chan * $+ $nick $+ *!*@*
  124. n122=        scon $bot_say($chan) msg $chan Do not remove this ban or it'll be permanently
  125. n123=        if ($isprotect($chan,$3)) {
  126. n124=          scon $bot_say($chan) mode $chan -vhao $nick $nick $nick $nick
  127. n125=          scon $bot_say($chan) msg $chan trying to bust $3 $+ ? eat this, 60secs mute :D
  128. n126=          scon $bot_say($chan) .msg $3 $nick tried to stfu you :O at $time
  129. n127=          scon $bot_say($chan) .timer 1 30 msg $chan You should be demoted, $nick :O maybe you will :-) oh btw, 30secs left :D
  130. n128=          scon $bot_say($chan) .timer 1 60 mode $chan +vao $nick $nick $nick
  131. n129=        }
  132. n130=        else {    
  133. n131=          scon $bot_say($chan) mode $chan -vhao $nick $nick $nick $nick
  134. n132=          scon $bot_say($chan) msg $chan trying to bust $3 $+ ? eat this, 60secs mute :D
  135. n133=          scon $bot_say($chan) .msg $3 $nick tried to stfu you :O at $time
  136. n134=          scon $bot_say($chan) .timer 1 30 msg $chan You should be demoted, $nick :O maybe you will :-) oh btw, 30secs left :D
  137. n135=          scon $bot_say($chan) .timer 1 60 mode $chan +vo $nick $nick
  138. n136=        }
  139. n137=      }
  140. n138=      elseif ($isprotect($chan,$3) && !$isowner($chan,$nick)) {
  141. n139=        scon $bot_say($chan) ban -u30 $chan * $+ $nick $+ *!*@*
  142. n140=        scon $bot_say($chan) msg $chan Do not remove this ban or it'll be permanently
  143. n141=        if ($isprotect($chan,$nick)) {
  144. n142=          scon $bot_say($chan) mode $chan -vhao $nick $nick $nick $nick
  145. n143=          scon $bot_say($chan) msg $chan trying to bust $3 $+ ? eat this, 30secs mute :D
  146. n144=          scon $bot_say($chan) .notice $3 $nick tried to stfu you :O at $time
  147. n145=          scon $bot_say($chan) .timer 1 15 msg $chan You should be demoted, $nick :O maybe you will :-) oh btw, 15secs left :D
  148. n146=          scon $bot_say($chan) .timer 1 30 mode $chan +vao $nick $nick $nick
  149. n147=        }
  150. n148=        else {    
  151. n149=          scon $bot_say($chan) mode $chan -vhao $nick $nick $nick $nick
  152. n150=          scon $bot_say($chan) msg $chan trying to bust $3 $+ ? eat this, 30secs mute :D
  153. n151=          scon $bot_say($chan) .notice $3 $nick tried to stfu you :O at $time
  154. n152=          scon $bot_say($chan) .timer 1 15 msg $chan You should be demoted, $nick :O maybe you will :-) oh btw, 15secs left :D
  155. n153=          scon $bot_say($chan) .timer 1 30 mode $chan +vo $nick $nick
  156. n154=        }
  157. n155=      }
  158. n156=      elseif ($mybots($2) || $3 isin $read(lists\bots.txt,w, $3)) { scon $bot_say($chan) msg $chan 4ERROR:1 Invalid nickname }
  159. n157=      elseif ($3 == $null) { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !stfu <amount of time> <nick> }
  160. n158=      else {
  161. n159=        if ($3 ison $chan) {
  162. n160=          scon $bot_say($chan) ban -u $+ $2 $chan * $+ $3 $+ *!*@*
  163. n161=          scon $bot_say($chan) msg $chan Do not remove this ban or it'll be permanently
  164. n162=          if ($isprotect($chan,$nick)) {
  165. n163=            scon $bot_say($chan) mode $chan -vhao $3 $3 $3 $3
  166. n164=            scon $bot_say($chan) .timer 1 $2 mode $chan +vao $3 $3 $3
  167. n165=          }
  168. n166=          elseif ($3 isop $chan) {
  169. n167=            scon $bot_say($chan) mode $chan -vhao $3 $3 $3 $3
  170. n168=            scon $bot_say($chan) .timer 1 $2 mode $chan +vo $3 $3
  171. n169=          }
  172. n170=          elseif ($3 ishop $chan) {
  173. n171=            scon $bot_say($chan) mode $chan -vh $3 $3
  174. n172=            scon $bot_say($chan) .timer 1 $2 mode $chan +vh $3 $3
  175. n173=          }
  176. n174=          elseif ($3 ison $chan) {
  177. n175=            scon $bot_say($chan) mode $chan -v $3
  178. n176=            scon $bot_say($chan) .timer 1 $2 mode $chan +v $3
  179. n177=          }
  180. n178=        }
  181. n179=        else { scon $bot_say($chan) msg $chan 4ERROR:1 $3 isn't on the channel right now }
  182. n180=      }
  183. n181=    }
  184. n182=    else { scon $bot_say($chan) msg $chan 4ERROR:1 $2 is not a legit amount of time <1-120> }
  185. n183=  }
  186. n184=  elseif ($me == %bot1 && $1 == !stfu) {
  187. n185=    scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !stfu <time> <nick>
  188. n186=  }
  189. n187=}
  190. n188=on *:TEXT:!botslap*:#: {
  191. n189=  if ($nick == %owner && $1 == !botslap) {
  192. n190=    if ($2) {
  193. n191=      describe $chan slaps $nick($chan,$nick($chan,$2)) around a bit with a large trout 9[ $+ %slaps slaps $+ ]
  194. n192=      inc %slaps
  195. n193=    }
  196. n194=    elseif ($me == %bot1) {
  197. n195=      scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !botslap <nick>
  198. n196=    }
  199. n197=  }
  200. n198=  elseif ($1 == !botslap) {
  201. n199=    if ($me == %bot1) {
  202. n200=      if ($2 ison $chan ) {
  203. n201=        if ($nick == $2) {
  204. n202=          scon $bot_say($chan) describe $chan doesn't slap $nick around a bit with a large trout 9[ $+ %slaps slaps $+ ]
  205. n203=          inc %slaps
  206. n204=        }
  207. n205=        elseif ($2 == IKKE) {
  208. n206=          scon $bot_say($chan) describe $chan slaps $nick around a bit with a large trout 9[ $+ %slaps slaps $+ ] 4[ERROR]
  209. n207=          inc %slaps
  210. n208=        }
  211. n209=        elseif ($2 == %owner) {
  212. n210=          scon $bot_say($chan) describe $chan slaps $nick around a bit with a large trout 9[ $+ %slaps slaps $+ ] 4[ERROR]
  213. n211=          inc %slaps
  214. n212=        }
  215. n213=        elseif ($2 == %bot1) {
  216. n214=          scon $bot_say($chan) msg $chan I don't slap myself, I'm not 0,1EMO
  217. n215=        }
  218. n216=        elseif ($mybots(2)) {
  219. n217=          scon $bot_say($chan) msg $chan I don't slap my friends
  220. n218=        }
  221. n219=        else {
  222. n220=          scon $bot_say($chan) describe $chan slaps $nick($chan,$nick($chan,$2)) around a bit with a large trout 9[ $+ %slaps slaps $+ ]
  223. n221=          inc %slaps
  224. n222=        }
  225. n223=      }
  226. n224=      elseif ($2 == $null) {
  227. n225=        scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !botslap <nick>
  228. n226=      }
  229. n227=      else {
  230. n228=        scon $bot_say($chan) msg $chan 4ERROR:1 $2 is not in the channel
  231. n229=      }
  232. n230=    }
  233. n231=  }
  234. n232=}
  235. n233=on *:TEXT:!rape*:#: {
  236. n234=  if ($me == %bot1 && $1 == !rape) {
  237. n235=    if ($2 ison $chan) {
  238. n236=      if ($nick == $2) {
  239. n237=        scon $bot_say($chan) msg $chan 4ERROR:1 Go rape yourself with a dildo
  240. n238=      }
  241. n239=      elseif ($2 == %owner) {
  242. n240=        scon $bot_say($chan) msg $chan 4ERROR:1 An error has occured. Go rape someone else
  243. n241=      }    
  244. n242=      elseif ($mybots($2)) {
  245. n243=        scon $bot_say($chan) describe $chan can't rape his friends 4[ERROR]
  246. n244=      }
  247. n245=      else {
  248. n246=        var %adjective = $read(bot\adjectives.txt)
  249. n247=        var %noun = $read(bot\nouns.txt)
  250. n248=        scon $bot_say($chan) describe $chan rapes $nick($chan,$nick($chan,$2)) with $iif(($left(%adjective,1) == a || $left(%adjective,1) == e || $left(%adjective,1) == u || $left(%adjective,1) == i || $left(%adjective,1) == o) && $left(%adjective,2) != eu,an,a) %adjective %noun    
  251. n249=      }
  252. n250=    }
  253. n251=    elseif ($2 == $null) { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !rape <nick> }
  254. n252=    else { scon $bot_say($chan) msg $chan 4ERROR:1 $2 isn't a legit victim }
  255. n253=  }
  256. n254=}
  257. n255=on *:TEXT:!cake*:#: {
  258. n256=  if ($me == %bot1 && $1 == !cake) {
  259. n257=    if ($2 ison $chan) {
  260. n258=      if ($nick == $2) {
  261. n259=        scon $bot_say($chan) msg $chan 4ERROR:1 Oh you greedy basterd!
  262. n260=      }
  263. n261=      elseif ($2 == $me) {
  264. n262=        scon $bot_say($chan) msg $chan 4ERROR:1 WE HAZ ALL TEH CAKEZ ALREADY
  265. n263=      }    
  266. n264=      else {
  267. n265=        var %adjective = $read(bot\adjectives.txt)
  268. n266=        var %noun = $read(bot\nouns.txt)
  269. n267=        scon $bot_say($chan) describe $chan gives a cake to $nick($chan,$nick($chan,$2)) $+ . Tastes like $iif(($left(%adjective,1) == a || $left(%adjective,1) == e || $left(%adjective,1) == u || $left(%adjective,1) == i || $left(%adjective,1) == o) && $left(%adjective,2) != eu,an,a) %adjective %noun $+ !
  270. n268=      }
  271. n269=    }
  272. n270=    elseif ($2 == $null) { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !cake <nick> }
  273. n271=    else { scon $bot_say($chan) msg $chan 4ERROR:1 $2 isn't on the channel }
  274. n272=  }
  275. n273=}
  276. n274=on *:TEXT:!ping*:#: {
  277. n275=  if ($me == %bot1 && $1 == !ping) {
  278. n276=    if ($2 ison $chan) { scon $bot_say($chan) msg $chan 4ERROR:1 Invalid usage of the command }
  279. n277=    elseif (%getping == 0) {
  280. n278=      if ($left($2, 1) == - || $left($2,1) == $chr(47)) {
  281. n279=        scon $bot_say($chan) msg $chan 4ERROR:1 Do not specify any parameters. Doing this repeatedly will get you banned from ALL commands.
  282. n280=        scon %owner_s window -m @Management
  283. n281=        beep
  284. n282=        scon %owner_s aline @Management 4Abuse: $nick 1tried to abuse !ping in4 $chan 1at4 $time $+ 1. Full message:4 $1-
  285. n283=      }
  286. n284=      elseif ($2 == $null) { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !ping <IP|website> }
  287. n285=      else {
  288. n286=        set %getping 1
  289. n287=        if (.gov isin $2 || .de isin $2 || .us isin $2 || .ch isin $2 || .tk isin $2 || .org isin $2 || .com isin $2 || .bz isin $2 || .be isin $2 || .nl isin $2 || .net isin $2 || .co isin $2) {
  290. n288=          scon $bot_say($chan) msg $chan Pinging website $2 $+ ...
  291. n289=        }
  292. n290=        elseif ($right($2 , 1) isnum) { scon $bot_say($chan) msg $chan Pinging IP $2 $+ ... }
  293. n291=        elseif ($2 == localhost) { scon $bot_say($chan) msg $chan Pinging myself... }
  294. n292=        else {
  295. n293=          scon $bot_say($chan) msg $chan 4ERROR:1 Invalid format
  296. n294=          set %getping 0
  297. n295=          halt
  298. n296=        }
  299. n297=        run -n cmd.exe /c ping $2 > ping.txt
  300. n298=        scon $bot_say($chan,15) .timer 1 10 getping $chan
  301. n299=      }
  302. n300=    }
  303. n301=    else {
  304. n302=      scon $bot_say($chan) msg $chan 4ERROR:1 Already pinging another IP.
  305. n303=    }
  306. n304=  }
  307. n305=}
  308. n306=alias -l getping {
  309. n307=  ;Syntax: <channel>
  310. n308=  ;Usage: Reads from the ping file and sends the readed data (translated) to the specified channel
  311. n309=  if ($read(ping.txt, n, 3) == Time-out bij opdracht.) {
  312. n310=    msg $1 4ERROR: Data Packets Lost (IP might be firewalled)
  313. n311=    .timer 1 18 .remove ping.txt
  314. n312=    .timer 1 19 set %getping 0
  315. n313=  }
  316. n314=  elseif (Controleer de naam en probeer het opnieuw. isin $read(ping.txt, n, 2)) {
  317. n315=    msg $1 4ERROR: Hostname does not exist
  318. n316=    .timer 1 1 .remove ping.txt
  319. n317=    .timer 1 2 set %getping 0
  320. n318=  }
  321. n319=  elseif (De doelhost is niet bereikbaar isin $read(ping.txt, n, 3)) {
  322. n320=    msg $1 4ERROR: Could not retrieve host
  323. n321=    .timer 1 10 .remove ping.txt
  324. n322=    .timer 1 11 set %getping 0
  325. n323=  }
  326. n324=  else {
  327. n325=    msg $1 $replace($read(ping.txt, n, 8), ping-statistieken voor, Ping statistics for)  
  328. n326=    msg $1 $replace($read(ping.txt, n, 9), pakketten, Packets, verzonden, Sent, ontvangen, Recieved, verloren, Lost)
  329. n327=    .timer 1 1 msg $1 $replace($read(ping.txt, n, 13), gemiddelde, Average)
  330. n328=    .timer 1 2 .remove ping.txt
  331. n329=    .timer 1 3 set %getping 0
  332. n330=  }
  333. n331=}
  334. n332=
  335. n333=
  336. n334=on *:TEXT:!botsay*:#: {
  337. n335=  if ($me == $2 && $me != %owner && $1 == !botsay) {
  338. n336=    if ($nick == %owner) {
  339. n337=      if ($3 != $null) {
  340. n338=        msg $chan $3-
  341. n339=      }
  342. n340=      else { msg $chan 4ERROR:1 Usage: !botsay <botnick> <message> }
  343. n341=    }
  344. n342=    elseif ($nick ishop $chan || $nick isop $chan) {
  345. n343=      if ($3 != $null) {
  346. n344=        check $chan $3-
  347. n345=        msg $chan $3-
  348. n346=      }
  349. n347=      else { msg $chan 4ERROR:1 Usage: !botsay <botnick> <message> }
  350. n348=    }
  351. n349=    else {
  352. n350=      msg $chan 4ERROR:1 You are not authorized to use this command
  353. n351=    }
  354. n352=  }
  355. n353=  elseif (!$mybots($2) && $me == %bot1 && $1 == !botsay) {
  356. n354=    if ($2 == $null) { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !botsay <botnick> <message> }
  357. n355=    else { scon $bot_say($chan) msg $chan 4ERROR:1 $2 is not a bot }
  358. n356=  }
  359. n357=}
  360. n358=on *:TEXT:!botsendmsgtochan*:#: {
  361. n359=  if ($me == $3 && $me != %owner && $1 == !botsendmsgtochan) {
  362. n360=    if ($nick isop $chan || $nick == %owner) {
  363. n361=      if ($4 != $null) {
  364. n362=        check $chan $4-
  365. n363=        if ($2 == #sa-mp || $2 == #help || $2 == #operhelp) {
  366. n364=          msg $chan ERROR:1 Trying to send a message to a blacklisted channel. Reported to my owner. Abuse will result in a demotion.
  367. n365=        }
  368. n366=        elseif ($me ison $2) {
  369. n367=          if ($isowner(#[MM]IKKE,$nick)) {
  370. n368=            msg $2 $4-
  371. n369=          }
  372. n370=          else {
  373. n371=            msg $2 $4- --- message sent from 4 $+ $chan 1by 2 $+ $nick
  374. n372=          }
  375. n373=        }
  376. n374=        elseif ($me ison $chr(35) $+ $2) {
  377. n375=          if ($isowner(#[MM]IKKE,$nick)) {
  378. n376=            msg $chr(35) $+ $2 $4-
  379. n377=          }
  380. n378=          else {
  381. n379=            msg $chr(35) $+ $2 $4- --- message sent from 4 $+ $chan 1by 2 $+ $nick
  382. n380=          }
  383. n381=        }
  384. n382=        elseif ($left($2,1) == $chr(35)) {
  385. n383=          .join -n $2
  386. n384=          .timer 1 2 msg $2 $4-
  387. n385=          if ($isowner(#[MM]IKKE,$nick)) {
  388. n386=            .timer 1 4 leave $2 plz
  389. n387=          }
  390. n388=          else {
  391. n389=            .timer 1 4 leave $2 Message sent from 4 $+ $chan 1by 2 $+ $nick
  392. n390=          }
  393. n391=
  394. n392=        }
  395. n393=        else {
  396. n394=          .join -n $chr(35) $+ $2
  397. n395=          .timer 1 2 msg $chr(35) $+ $2 $4-
  398. n396=          if ($isowner(#[MM]IKKE,$nick)) {
  399. n397=            .timer 1 4 leave $chr(35) $+ $2 plz
  400. n398=          }
  401. n399=          else {
  402. n400=            .timer 1 4 leave $chr(35) $+ $2 Message sent from 4 $+ $chan 1by 2 $+ $nick
  403. n401=          }
  404. n402=
  405. n403=
  406. n404=        }
  407. n405=      }
  408. n406=      else { msg $chan 4ERROR:1 Usage: !botsendmsgtochan <channel> <botnick> <message> }
  409. n407=    }
  410. n408=    else {
  411. n409=      msg $chan 4ERROR:1 You are not authorized to use this command
  412. n410=    }
  413. n411=  }
  414. n412=  elseif (!$mybots($3) && $me == %bot1 && $1 == !botsendmsgtochan) {
  415. n413=    if ($2 == $null) { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !botsendmsgtochan <channel> <botnick> <message> }
  416. n414=    elseif ($3 == $null) { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !botsendmsgtochan <channel> <botnick> <message> }
  417. n415=    else { scon $bot_say($chan) msg $chan 4ERROR:1 $3 is not a bot }
  418. n416=  }
  419. n417=}
  420. n418=on *:TEXT:!botspam*:#: {
  421. n419=  if ($me == $2 && $me != %owner && $1 == !botspam) {
  422. n420=    if ($nick isop $chan || $nick == %owner) {
  423. n421=      if ($3 <= 20 && $3 >= 1 && $4 != $null) {
  424. n422=        check $chan $4-
  425. n423=        if ($2 > 15) {
  426. n424=          var %i = 1
  427. n425=          while (%i <= $3 ) {
  428. n426=            .timer 1 %i msg $chan $4-
  429. n427=            inc %i
  430. n428=          }
  431. n429=        }
  432. n430=        else { .timer $3 0.1 msg $chan $4- }
  433. n431=      }
  434. n432=      elseif ($3 == $null || $3 !isnum) { msg $chan 4ERROR:1 Usage: !botspam <botnick> <amount> <message> }
  435. n433=      elseif ($4 == $null) { msg $chan 4ERROR:1 Usage: !botspam <botnick> <amount> <message> }
  436. n434=      elseif ($3 isnum) { msg $chan 4ERROR:1 Invalid amount <1-20> | .timer 1 2 msg $chan Abusing will result in a demotion }
  437. n435=    }
  438. n436=    else {
  439. n437=      msg $chan 4ERROR:1 You are not authorized to use this command
  440. n438=    }
  441. n439=  }
  442. n440=  elseif (!$mybots($2) && $me == %bot1 && $1 == !botspam) {
  443. n441=    if ($2 == $null || $2 isnum) { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !botspam <botnick> <amount> <message> }
  444. n442=    else { scon $bot_say($chan) msg $chan 4ERROR:1 $2 is not a bot }
  445. n443=  }
  446. n444=}
  447.  
  448. [aliases]
  449. n0=/addajoin {
  450. n1=  ;Syntax: <channel>
  451. n2=  ;Usage: Adds the specified channel to the main ajoin list file
  452. n3=  if ($1 isin $read(lists\ajoinlist.txt,w,$1)) {
  453. n4=    echo 4 -at ERROR:1 Channel is already in ajoin list!
  454. n5=  }
  455. n6=  else {
  456. n7=    write lists\ajoinlist.txt $1
  457. n8=    echo 2 -at Channel " $+ $1 $+ " added to ajoin list
  458. n9=    ns ajoin add $1
  459. n10=  }
  460. n11=}
  461. n12=/ajoin {
  462. n13=  ;Syntax: none
  463. n14=  ;Usage: joins all ajoin channels in the main ajoin list
  464. n15=  if ($chan(0) >= 10) {
  465. n16=    var %i = 1
  466. n17=    while (%i <= $lines(lists\ajoinlist.txt)) {
  467. n18=      if ($me !ison $read(lists\ajoinlist.txt, %i)) { join -n $read(lists\ajoinlist.txt, %i) }
  468. n19=      inc %i
  469. n20=    }
  470. n21=  }
  471. n22=  else {
  472. n23=    .timer 1 5 ajoin
  473. n24=  }
  474. n25=}
  475. n26=/ajoinlist {
  476. n27=  ;Syntax: none
  477. n28=  ;Usage: Adds entire ajoin list again
  478. n29=  var %i = 1
  479. n30=  while (%i <= $chan(0)) {
  480. n31=    ;.timer 1 $calc(2* (%i -1)) ns ajoin add $chan(%i)
  481. n32=    inc %i
  482. n33=  }
  483. n34=}
  484. n35=/bot1addajoin {
  485. n36=  ;Syntax: <channel>
  486. n37=  ;Usage: Adds the channel to the personal ajoin list of the bot
  487. n38=  if ($1 isin $read(lists\bot1ajoinlist.txt,w,$1)) {
  488. n39=    msg $1 4ERROR:1 Channel is already in ajoin list
  489. n40=  }
  490. n41=  else {
  491. n42=    write lists\bot1ajoinlist.txt $1
  492. n43=    msg $1 Added " $+ $1 $+ " to the ajoin list
  493. n44=    ns ajoin add $1
  494. n45=  }
  495. n46=}
  496. n47=/bot1ajoin {
  497. n48=  ;Syntax: none
  498. n49=  ;Usage: joins all ajoin channels in the personal ajoin list of the bot
  499. n50=  var %i = 1
  500. n51=  while (%i <= $lines(lists\bot1ajoinlist.txt)) {
  501. n52=    if ($me !ison $read(lists\bot1ajoinlist.txt, %i)) { join -n $read(lists\bot1ajoinlist.txt, %i) }
  502. n53=    inc %i
  503. n54=  }
  504. n55=}
  505. n56=/bot1delajoin {
  506. n57=  ;Syntax: <channel>
  507. n58=  ;Usage: deletes a channel out of the personal ajoin list of the bot
  508. n59=  if ($1 isin $read(lists\bot1ajoinlist.txt,w,$1)) {
  509. n60=    write -dl $+ $readn lists\bot1ajoinlist.txt
  510. n61=    msg $1 Channel " $+ $1 $+ " deleted out of ajoin list
  511. n62=    ns ajoin del $1
  512. n63=  }
  513. n64=  else {
  514. n65=    msg $1 4ERROR:1 Channel is not in the ajoin list
  515. n66=  }
  516. n67=}
  517. n68=/bot2addajoin {
  518. n69=  ;Syntax: <channel>
  519. n70=  ;Usage: Adds the channel to the personal ajoin list of the bot
  520. n71=  if ($1 isin $read(lists\bot2ajoinlist.txt,w,$1)) {
  521. n72=    msg $1 4ERROR:1 Channel is already in ajoin list
  522. n73=  }
  523. n74=  else {
  524. n75=    write lists\bot2ajoinlist.txt $1
  525. n76=    msg $1 Added " $+ $1 $+ " to the ajoin list
  526. n77=  }
  527. n78=}
  528. n79=/bot2ajoin {
  529. n80=  ;Syntax: none
  530. n81=  ;Usage: joins all ajoin channels in the personal ajoin list of the bot
  531. n82=  var %i = 1
  532. n83=  while (%i <= $lines(lists\bot2ajoinlist.txt)) {
  533. n84=    if ($me !ison $read(lists\bot2ajoinlist.txt, %i)) { join -n $read(lists\bot2ajoinlist.txt, %i) }
  534. n85=    inc %i
  535. n86=  }
  536. n87=}
  537. n88=/bot2delajoin {
  538. n89=  ;Syntax: <channel>
  539. n90=  ;Usage: deletes a channel out of the personal ajoin list of the bot
  540. n91=  if ($1 isin $read(lists\bot2ajoinlist.txt,w,$1)) {
  541. n92=    write -dl $+ $readn lists\bot2ajoinlist.txt
  542. n93=    msg $1 Channel " $+ $1 $+ " deleted out of ajoin list
  543. n94=  }
  544. n95=  else {
  545. n96=    msg $1 4ERROR:1 Channel is not in the ajoin list
  546. n97=    ns ajoin del $1
  547. n98=  }
  548. n99=}
  549. n100=/botsaddajoin {
  550. n101=  ;Syntax: <channel>
  551. n102=  ;Usage: Adds the specified channel to each bot's personal ajoin list
  552. n103=  if ($me == %bot1) { bot1addajoin $1 }
  553. n104=  elseif ($me == %bot2) { bot2addajoin $1 }
  554. n105=
  555. n106=  /*
  556. n107=  elseif ($me == %bot3) { bot3addajoin $1 }
  557. n108=  elseif ($me == %bot4) { bot4addajoin $1 }
  558. n109=  */
  559. n110=
  560. n111=}
  561. n112=/botsajoin {
  562. n113=  ;Syntax: none
  563. n114=  ;Usage: logs all bots in and joins all channels specified in all bot's personal ajoin lists. Needs to be triggered by each bot.
  564. n115=  if ($chan(0) >= 10) {
  565. n116=    if ($me == %bot1) { bot1ajoin }
  566. n117=    elseif ($me == %bot2) { bot2ajoin }
  567. n118=
  568. n119=    /*
  569. n120=    elseif ($me == %bot3) { bot3ajoin }
  570. n121=    elseif ($me == %bot4) { bot4ajoin }
  571. n122=    */
  572. n123=  }
  573. n124=  else {
  574. n125=    .timer 1 5 botsajoin
  575. n126=  }
  576. n127=}
  577. n128=/botsajoinlist {
  578. n129=  ;Syntax: none
  579. n130=  ;Usage: Adds the ajoin list of the bots
  580. n131=  var %i = 1
  581. n132=  while (%i <= $chan(0)) {
  582. n133=    .timer 1 $calc(2* (%i -1)) ns ajoin add $chan(%i)
  583. n134=    inc %i
  584. n135=  }
  585. n136=}
  586. n137=/botsdelajoin {
  587. n138=  ;Syntax: <channel>
  588. n139=  ;Usage: Deletes a channel out of each bot's personal ajoin list
  589. n140=  if ($me == %bot1) { bot1delajoin $1 }
  590. n141=  elseif ($me == %bot2) { bot2delajoin $1 }
  591. n142=
  592. n143=  /*
  593. n144=  elseif ($me == %bot3) { bot3delajoin $1 }
  594. n145=  elseif ($me == %bot4) { bot4delajoin $1 }
  595. n146=  */
  596. n147=
  597. n148=}
  598. n149=/check {
  599. n150=  ;Syntax: <chan> <text>
  600. n151=  ;Usage: Internally used to check if someone is attempting to find a security breach.
  601. n152=  if ($left($2,1) == !) {
  602. n153=    msg $1 4ERROR:1 This sentence contains illegal characters!
  603. n154=    .msg %owner 4WARNING:1 $time $1-
  604. n155=    halt
  605. n156=  }
  606. n157=  elseif ($chr(35) isin $2-) {
  607. n158=    msg $1 4ERROR:1 This sentence contains illegal characters!
  608. n159=    .msg %owner 4WARNING:1 $time $1-
  609. n160=    halt
  610. n161=  }
  611. n162=}
  612. n163=/delajoin {
  613. n164=  ;Syntax: <channel>
  614. n165=  ;Usage: Deletes a channel out of the main ajoin list
  615. n166=  if ($1 isin $read(lists\ajoinlist.txt,w,$1)) {
  616. n167=    write -dl $+ $readn lists\ajoinlist.txt
  617. n168=    echo 2 -at Channel " $+ $1 $+ " deleted out of ajoin list
  618. n169=    ns ajoin del $1
  619. n170=  }
  620. n171=  else {
  621. n172=    echo 4 -at ERROR: Channel is not in ajoin list!
  622. n173=  }
  623. n174=}
  624. n175=/ghost {
  625. n176=  ;Syntax: none
  626. n177=  ;Usage: Ghosts "[MM]IKKE"
  627. n178=  ns ghost [MM]IKKE <redacted>
  628. n179=}
  629. n180=/ghostbot1 {
  630. n181=  ;Syntax: none
  631. n182=  ;Usage: Ghosts the specified bot
  632. n183=  ns ghost IKKE1 <redacted>
  633. n184=}
  634. n185=/ghostbot2 {
  635. n186=  ;Syntax: none
  636. n187=  ;Usage: Ghosts the specified bot
  637. n188=  ns ghost IKKE2 <redacted>
  638. n189=}
  639. n190=/jSBots {
  640. n191=  ;Syntax: <nick>
  641. n192=  ;Usage: returns 1 if it's a jS bot, 0 if not
  642. n193=  if ($1 == SumoA) { return 1 }
  643. n194=  elseif ($1 == SumoB) { return 1 }
  644. n195=  elseif ($1 == SumoC) { return 1 }
  645. n196=  elseif ($1 == SumoD) { return 1 }
  646. n197=  elseif ($1 == SumoE) { return 1 }
  647. n198=  else { return 0 }
  648. n199=}
  649. n200=/MMBots {
  650. n201=  ;Syntax: <nick>
  651. n202=  ;Usage: returns 1 if it's a MM bot, 0 if not
  652. n203=  if ($1 == MM1) { return 1 }
  653. n204=  elseif ($1 == MM2) { return 1 }
  654. n205=  elseif ($1 == MM3) { return 1 }
  655. n206=  elseif ($1 == MM4) { return 1 }
  656. n207=  elseif ($1 == MM5) { return 1 }
  657. n208=  elseif ($1 == MM6) { return 1 }
  658. n209=  elseif ($1 == MM7) { return 1 }
  659. n210=  elseif ($1 == MM8) { return 1 }
  660. n211=  elseif ($1 == MM9) { return 1 }
  661. n212=  elseif ($1 == MM10) { return 1 }  
  662. n213=  elseif ($1 == Koala) { return 1 }
  663. n214=  else { return 0 }
  664. n215=}
  665. n216=/mybots {
  666. n217=  ;Syntax: <nick>
  667. n218=  ;Usage: returns 1 if it's my bot, 0 if not
  668. n219=  if ($1 == %bot1) { return 1 }
  669. n220=  elseif ($1 == %bot2) { return 1 }
  670. n221=
  671. n222=  /*
  672. n223=  elseif ($1 == %bot3) { return 1 }
  673. n224=  elseif ($1 == %bot4) { return 1 }
  674. n225=  */
  675. n226=
  676. n227=  else { return 0 }
  677. n228=}
  678. n229=/NDBots {
  679. n230=  ;Syntax: <nick>
  680. n231=  ;Usage: returns 1 if it's a ND bot, 0 if not
  681. n232=  if ($1 == NDBot1) { return 1 }
  682. n233=  elseif ($1 == NDBot2) { return 1 }
  683. n234=  elseif ($1 == NDBot3) { return 1 }
  684. n235=  elseif ($1 == NDBot4) { return 1 }
  685. n236=  else { return 0 }
  686. n237=}
  687. n238=/random {
  688. n239=  ;Syntax(1): <number1> <number2> <opt: text>
  689. n240=  ;Usage(1): Will <number1> times send a random text with length <number2> to the active window. You can specify a text to start the message with (useful for server echo's)
  690. n241=  ;Syntax(2): <nick>
  691. n242=  ;Usage(2): Will do a slap on the specified nickname using randomly chosen adjectives and nouns in the active window
  692. n243=  ;Syntax(3): none
  693. n244=  ;Usage(3): Will send a random message out of the random messages file (NOT the quotes file) to the active window
  694. n245=  if ($1 isnum && $2 isnum) {
  695. n246=    var %l = $1
  696. n247=    var %m = 1
  697. n248=    while (%m <= %l) {
  698. n249=      set %crashmsg $null
  699. n250=      var %i = $2
  700. n251=      var %j = 1
  701. n252=      while (%j <= %i)  {
  702. n253=        set %crashmsg %crashmsg $+ $chr($rand(1,2147483646))
  703. n254=        inc %j
  704. n255=      }
  705. n256=      if (!$3) { .timer 1 $calc(%m -1) msg $active %crashmsg }
  706. n257=      else { .timer 1 $calc(%m -1) msg $active $3- %crashmsg }
  707. n258=      unset %crashmsg
  708. n259=      inc %m
  709. n260=    }
  710. n261=  }
  711. n262=  elseif ($2) {
  712. n263=    echo 4 -at ERROR:1 Usage: /random <amount of messages> <amount of signs> (optional: <message in front>)
  713. n264=  }
  714. n265=  elseif ($1) {
  715. n266=    if ($1 ison $active) {
  716. n267=      var %adjective = $read(bot\adjectives.txt)
  717. n268=      var %noun = $read(bot\nouns.txt)
  718. n269=      describe $active slaps $1 around a bit with $iif(($left(%adjective,1) == a || $left(%adjective,1) == e || $left(%adjective,1) == u || $left(%adjective,1) == i || $left(%adjective,1) == o) && $left(%adjective,2) != eu,an,a) %adjective %noun    
  719. n270=    }
  720. n271=    elseif ($1 == help) {
  721. n272=      echo -a Syntax(1): <number1> <number2> <opt: text>
  722. n273=      echo -a Will <number1> times send a random text with length <number2> to the active window. You can specify a text to start the message with (useful for server echo's)
  723. n274=      echo -a Syntax(2): <nick>
  724. n275=      echo -a Usage(2): Will do a slap on the specified nickname using randomly chosen adjectives and nouns in the active window
  725. n276=      echo -a Syntax(3): none
  726. n277=      echo -a Usage(3): Will send a random message out of the random messages file (NOT the quotes file) to the active window
  727. n278=
  728. n279=    }
  729. n280=    else {
  730. n281=      echo 4 -at ERROR:1 Usage: /random <amount of messages> <amount of signs> (optional: <message in front> $chr(124) /random <nick>
  731. n282=    }
  732. n283=  }
  733. n284=  else {
  734. n285=    var %i = $rand(1,5)
  735. n286=    if (%i <= 4) { msg $active $replace($read(bot\randommessages.txt), <nick>, Nicky) }
  736. n287=    else { describe $active $replace($read(bot\randomactions.txt), <nick>, Nicky) }
  737. n288=  }
  738. n289=}
  739. n290=/slap {
  740. n291=  ;Syntax: <nick>
  741. n292=  ;Usage: Slaps a nickname in the active window and increases the slap counter
  742. n293=  describe $active slaps $$1 around a bit with a large trout 9[ $+ %slaps slaps $+ ]
  743. n294=  inc %slaps
  744. n295=}
  745. n296=/UGPBots {
  746. n297=  ;Syntax: <nick>
  747. n298=  ;Usage: returns 1 if it's a jS bot, 0 if not
  748. n299=  if ($1 == Pecky) { return 1 }
  749. n300=  elseif ($1 == Packy) { return 1 }
  750. n301=  elseif ($1 == Pucky) { return 1 }
  751. n302=  elseif ($1 == Pocky) { return 1 }
  752. n303=  else { return 0 }
  753. n304=}
  754. n305=
  755. n306=/users {
  756. n307=  ;Syntax: none
  757. n308=  ;Usage: Will show in echo how much users are in the current channel
  758. n309=  echo -at $nick($chan,0) users in $chan
  759. n310=}
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!