API tools faq
paste
_MM_IKKE

others.ini

_MM_IKKE
Nov 21st, 2018
149
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 15.74 KB | None | 0 0
raw download clone embed print report
  1. [script]
  2. n0=on *:START: {
  3. n1=  unset %pm_annoy
  4. n2=}
  5. n3=on *:LOAD: {
  6. n4=  echo -at Loaded Other stuff
  7. n5=  echo -at No new variables added, all are global
  8. n6=}
  9. n7=on *:UNLOAD: {
  10. n8=  unset %invitechan
  11. n9=  unset %slap.i
  12. n10=  unset %slap.nick
  13. n11=  unset %pm_annoy
  14. n12=  unset %ping_total
  15. n13=  unset %ping_ms*
  16. n14=  unset %ping_sent*
  17. n15=  unset %ping_amount
  18. n16=  unset %ping_times
  19. n17=  echo -at Unloaded Other stuff
  20. n18=  echo -at Unset slap.i, slap.i, pm_annoy, pingtest stuff
  21. n19=}
  22. n20=
  23. n21=raw 471:*: {
  24. n22=  ;raw when channel is invite only
  25. n23=  if (%invitechan != $2) {
  26. n24=    cs invite $2
  27. n25=    set -eu300 %invitechan $2
  28. n26=    scon %owner_s window -m @ERROR
  29. n27=    beep
  30. n28=    scon %owner_s aline @ERROR 4ERROR:1: $2-
  31. n29=    .timer 1 3 join $2
  32. n30=  }
  33. n31=}
  34. n32=raw 473:*: {
  35. n33=  ;raw when channel is invite only
  36. n34=  if (%invitechan != $2 && $2 != #mini-missions.admin && $2 != #dutch) {
  37. n35=    cs invite $2
  38. n36=    set -eu300 %invitechan $2
  39. n37=    scon %owner_s window -m @ERROR
  40. n38=    beep
  41. n39=    scon %owner_s aline @ERROR 4ERROR:1: $2-
  42. n40=    .timer 1 3 join $2
  43. n41=  }
  44. n42=}
  45. n43=on *:INPUT:?: {
  46. n44=  if ($me == %owner && ($left($1,1) != $chr(47) || $left($1,3) == /me)) {
  47. n45=    write "PMs\ $+ $replace($active,$chr(124),_) $+ .txt" $chr(91) $+ $date at $time $+ $chr(93) %owner $+ : $1-
  48. n46=  }
  49. n47=}
  50. n48=on *:INPUT:#: {
  51. n49=  if ($me == %owner && $1 == !loadbots) {
  52. n50=    loadbots
  53. n51=  }
  54. n52=  if (%leet == 1 && $left($1-,1) != $chr(47) && $active != Status Window) {
  55. n53=    set %message.tmp $1-
  56. n54=    var %i = 122
  57. n55=    while (%i >= 97) {
  58. n56=      set %message.tmp $replace(%message.tmp , $chr(%i), $read("leet\ $+ $chr(%i) $+ .txt", t))
  59. n57=      dec %i
  60. n58=    }
  61. n59=    msg $active %message.tmp
  62. n60=    unset %message.tmp
  63. n61=    haltdef
  64. n62=  }
  65. n63=  elseif (%colored == 1 && $left($1-,1) != $chr(47) && $active != Status Window) {
  66. n64=    set %text.tmp $null
  67. n65=    var %i = 1
  68. n66=    while (%i <= $len($1-)) {
  69. n67=      if ($mid($1-,%i,1) == $chr(32)) {
  70. n68=        inc %i
  71. n69=        set %text.tmp %text.tmp $+  $+ $rand(2,13) $mid($1-,%i,1)
  72. n70=      }
  73. n71=      else {
  74. n72=        set %text.tmp %text.tmp $+  $+ $rand(2,13) $+ $mid($1-,%i,1)
  75. n73=      }
  76. n74=      inc %i
  77. n75=    }
  78. n76=    msg $active %text.tmp
  79. n77=    unset %text.tmp
  80. n78=    haltdef
  81. n79=  }
  82. n80=}
  83. n81=
  84. n82=alias -l loadbots {
  85. n83=  ;Syntax: none
  86. n84=  ;Usage: Loads the bots and runs a checker afterwards. Delay of 5 seconds
  87. n85=  msg $active Loading bots...
  88. n86=  .timer 1 15 checkbots $active
  89. n87=  server -me %irc.server 6697 -i IKKE1
  90. n88=  .timer 1 5 server -me %irc.server 6697 -i IKKE2
  91. n89=
  92. n90=  /*
  93. n91=  .timer 1 10 server -me %irc.server 6697 -i IKKE3
  94. n92=  .timer 1 15 server -me %irc.server 6697 -i IKKE4
  95. n93=  */
  96. n94=}
  97. n95=alias -l checkbots {
  98. n96=  ;Syntax: none
  99. n97=  ;Usage: Internally used to check if the bots correctly joined. Checks using #[MM]IKKE
  100. n98=  if (%bot1 ison #[MM]IKKE && %bot2 ison #[MM]IKKE) {
  101. n99=    msg $1 Bots successfully loaded!
  102. n100=  }
  103. n101=  else {
  104. n102=    set %errorbots.tmp $null
  105. n103=    if (%bot1 !ison #[MM]IKKE) { set %errorbots.tmp %errorbots.tmp $+ , %bot1 }
  106. n104=    if (%bot2 !ison #[MM]IKKE) { set %errorbots.tmp %errorbots.tmp $+ , %bot2 }
  107. n105=    set %errorbots.tmp %errorbots.tmp $+ .
  108. n106=    msg $1 4ERROR: 1Load unsuccessful. Failed loading bot(s): $right(%errorbots.tmp, $calc($len(%errorbots.tmp) - 2))
  109. n107=    unset %errorbots.tmp
  110. n108=  }
  111. n109=}
  112. n110=
  113. n111=on *:NOTICE:*:#[MM]IKKE,#[MM]IKKE.echo: {
  114. n112=  if (!$mybots($nick) && $me == %owner && irc.tl !isin $nick) {
  115. n113=    ban -k $chan $nick
  116. n114=  }
  117. n115=}
  118. n116=
  119. n117=
  120. n118=CTCP 500,543:*:*: {
  121. n119=  window @Management
  122. n120=  aline @Management CTCP: $1 by $nick ( $+ $me - $time $+ )
  123. n121=  haltdef
  124. n122=  halt
  125. n123=}
  126. n124=CTCP ^*:*:*: {
  127. n125=  if ($nick != %owner) { echo -at CTCP: $1 by $nick ( $+ $me $+ ) }
  128. n126=
  129. n127=  if ($1 == version) {
  130. n128=    haltdef
  131. n129=    if ($me == %owner) {
  132. n130=      ctcpreply $nick VERSION mIRC v $+ $version [MM]IKKE edit
  133. n131=      .timer 1 0.1 ctcpreply $nick VERSION mIRC v $+ $version [MM]IKKE edit
  134. n132=      halt
  135. n133=    }
  136. n134=    elseif ($mybots($me)) {
  137. n135=      haltdef
  138. n136=      ctcpreply $nick VERSION BotScript %version by [MM]IKKE (in mIRC v $+ $version $+ )
  139. n137=      .timer 1 0.1 ctcpreply $nick VERSION BotScript %version by [MM]IKKE (in mIRC v $+ $version $+ )
  140. n138=      halt
  141. n139=    }
  142. n140=  }
  143. n141=}
  144. n142=on *:NICK: {
  145. n143=  if ($me == %owner) {
  146. n144=    if ($newnick == [MM]IKKE) {
  147. n145=      if ($address($newnick, 0) != *!mm@pow.aaa) {
  148. n146=        ghost
  149. n147=      }
  150. n148=      elseif (%owner == $nick) {
  151. n149=        set %owner [MM]IKKE
  152. n150=        if ($nick != [MM]IKKE|AFK) { ikke }
  153. n151=      }
  154. n152=    }
  155. n153=
  156. n154=    elseif ($newnick == IKKE1) {
  157. n155=      if ($address($newnick,0) != *!mm@pow.aaa) {
  158. n156=        ghostbot1
  159. n157=      }
  160. n158=      elseif (%bot1 == $nick) {
  161. n159=        scon %bot1_s bot
  162. n160=        set %bot1 IKKE1
  163. n161=      }
  164. n162=    }
  165. n163=    elseif ($newnick == IKKE2) {
  166. n164=      if ($address($newnick,0) != *!mm@pow.aaa) {
  167. n165=        ghostbot2
  168. n166=      }
  169. n167=      elseif (%bot2 == $nick) {
  170. n168=        scon %bot2_s bot
  171. n169=        set %bot2 IKKE2
  172. n170=      }
  173. n171=    }
  174. n172=
  175. n173=    /*
  176. n174=    elseif ($newnick == IKKE3) {
  177. n175=      if ($address($newnick,0) != *!mm@pow.aaa) {
  178. n176=        ghostbot3
  179. n177=      }
  180. n178=      elseif (%bot3 == $nick) {
  181. n179=        scon %bot3_s bot
  182. n180=        set %bot3 IKKE3
  183. n181=      }
  184. n182=    }
  185. n183=    elseif ($newnick == IKKE4) {
  186. n184=      if ($address($newnick,0) != *!mm@pow.aaa) {
  187. n185=        ghostbot4
  188. n186=      }
  189. n187=      elseif (%bot4 == $nick) {
  190. n188=        scon %bot4_s bot
  191. n189=        set %bot4 IKKE4
  192. n190=      }
  193. n191=    }
  194. n192=    */
  195. n193=
  196. n194=    elseif ($nick == %owner) {
  197. n195=      if (Guest isin $newnick) {
  198. n196=        ns release [MM]IKKE $decode(anVzdGxlYXZlbWVhbG9uZQ==,m,1)
  199. n197=        nick [MM]IKKE
  200. n198=        ikke
  201. n199=        set %owner [MM]IKKE
  202. n200=      }
  203. n201=      else {
  204. n202=        set %owner $newnick
  205. n203=        if ($newnick == [MM]IKKE|AFK && $nick != [MM]IKKE) { ikke }
  206. n204=      }
  207. n205=    }
  208. n206=    elseif ($nick == %bot1) {
  209. n207=      set %bot1 $newnick
  210. n208=    }
  211. n209=    elseif ($nick == %bot2) {
  212. n210=      set %bot2 $newnick
  213. n211=    }
  214. n212=
  215. n213=    /*
  216. n214=    elseif ($nick == %bot3) {
  217. n215=      set %bot3 $newnick
  218. n216=    }
  219. n217=    elseif ($nick == %bot4) {
  220. n218=      set %bot4 $newnick
  221. n219=    }
  222. n220=    */
  223. n221=  }
  224. n222=}
  225. n223=on 500,543:INVITE:#: {
  226. n224=  haltdef
  227. n225=  halt
  228. n226=}
  229. n227=on ^*:INVITE:#: {
  230. n228=  if (!$chan_ignore($chan)) {
  231. n229=    if ($me == %owner) {
  232. n230=      join -n $chan
  233. n231=      if ($nick != NickServ && $nick != ChanServ) {
  234. n232=        window @Management
  235. n233=        aline @Management Joined channel $chan on invite by $nick ( $+ $time $+ )
  236. n234=      }
  237. n235=    }
  238. n236=    elseif ($nick == %owner) {
  239. n237=      join -n $chan
  240. n238=    }
  241. n239=    else {
  242. n240=      join -n $chan
  243. n241=      scon %owner_s window @Management
  244. n242=      scon %owner_s aline @Management Joined channel $chan on invite by $nick ( $+ $time  - $me $+ )
  245. n243=      .timer 1 3 invitejoin $chan
  246. n244=    }
  247. n245=  }
  248. n246=  else {
  249. n247=    scon %owner_s window @Management
  250. n248=    scon %owner_s aline @Management Ignored joining channel $chan on invite by $nick ( $+ $time $+ )
  251. n249=  }
  252. n250=  haltdef
  253. n251=}
  254. n252=alias -l invitejoin {
  255. n253=  ;Syntax: <channel>
  256. n254=  ;Usage: internally used to automatically join if bot was invited into a channel
  257. n255=  if (%owner !ison $1) {
  258. n256=    scon %owner_s join -n $1
  259. n257=    haltdef
  260. n258=  }
  261. n259=}
  262. n260=
  263. n261=on 500,543:ACTION:*:*: { halt }
  264. n262=on *:ACTION:*slaps [MM]IKKE* around a bit with a large trout*:#: {
  265. n263=  if ($mybots($nick) || $nick == %owner || $nick isin $read(lists\bots.txt,w, $nick) || $nick isin $read(lists\userbots.txt,w, $nick) || $chan == #sa-mp || $chan == #help) { halt }
  266. n264=  elseif ($me == %owner) {
  267. n265=    if ($nick != %slap.nick) {
  268. n266=      var %adjective = $read(bot\adjectives.txt)
  269. n267=      var %noun = $read(bot\nouns.txt)
  270. n268=      describe $chan slaps $nick 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
  271. n269=      set -e %slap.i 1
  272. n270=      set -e %slap.nick $nick
  273. n271=    }
  274. n272=    elseif (%slap.i < 2 && %slap.nick == $nick) {
  275. n273=      var %adjective = $read(bot\adjectives.txt)
  276. n274=      var %noun = $read(bot\nouns.txt)        
  277. n275=      describe $chan slaps $nick 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
  278. n276=      inc -e %slap.i
  279. n277=    }
  280. n278=  }
  281. n279=}
  282. n280=on *:ACTION:*slaps IKKE1* around a bit with a large trout*:#: {
  283. n281=  if ($mybots($nick) || $nick == %owner || $nick isin $read(lists\bots.txt,w, $nick) || $nick isin $read(lists\userbots.txt,w, $nick)) { halt }
  284. n282=  elseif ($me == %bot1) {
  285. n283=    if ($nick != %slap.nick) {
  286. n284=      var %adjective = $read(bot\adjectives.txt)
  287. n285=      var %noun = $read(bot\nouns.txt)
  288. n286=      describe $chan slaps $nick 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
  289. n287=      set -e %slap.i 1
  290. n288=      set -e %slap.nick $nick
  291. n289=    }
  292. n290=    elseif (%slap.i < 2 && %slap.nick == $nick) {
  293. n291=      var %adjective = $read(bot\adjectives.txt)
  294. n292=      var %noun = $read(bot\nouns.txt)        
  295. n293=      describe $chan slaps $nick 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
  296. n294=      inc -e %slap.i
  297. n295=    }
  298. n296=  }
  299. n297=}
  300. n298=on *:ACTION:*slaps IKKE2* around a bit with a large trout*:#: {
  301. n299=  if ($mybots($nick) || $nick == %owner || $nick isin $read(lists\bots.txt,w, $nick) || $nick isin $read(lists\userbots.txt,w, $nick)) { halt }
  302. n300=  elseif ($me == %bot2) {
  303. n301=    if ($nick != %slap.nick) {
  304. n302=      var %adjective = $read(bot\adjectives.txt)
  305. n303=      var %noun = $read(bot\nouns.txt)
  306. n304=      describe $chan slaps $nick 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
  307. n305=      set -e %slap.i 1
  308. n306=      set -e %slap.nick $nick
  309. n307=    }
  310. n308=    elseif (%slap.i < 2 && %slap.nick == $nick) {
  311. n309=      var %adjective = $read(bot\adjectives.txt)
  312. n310=      var %noun = $read(bot\nouns.txt)        
  313. n311=      describe $chan slaps $nick 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
  314. n312=      inc -e %slap.i
  315. n313=    }
  316. n314=  }
  317. n315=}
  318. n316=on 543:TEXT:*:#[MM]IKKE, #[MM]IKKE.echo: {
  319. n317=  if ($me == %owner) {
  320. n318=    mode $chan -ohv $nick $nick $nick
  321. n319=    mode $chan +bb $address($nick,0) $nick
  322. n320=    mode $chan -ee $nick * $+ $nick $+ *!*@*
  323. n321=    kick $chan $nick You are on my banlist!
  324. n322=  }
  325. n323=}
  326. n324=on 543:OPEN:?:*: {
  327. n325=  scon %owner_s window -m @ERROR
  328. n326=  scon %owner_s aline @ERROR 4ERROR:2 $nick 1sent "7 $+ $1- $+ 1" at6 $time 1(pm at $me - 4BANNED1)
  329. n327=  close -m $nick
  330. n328=}
  331. n329=on 500:OPEN:?:*: {
  332. n330=  halt
  333. n331=}
  334. n332=on *:OPEN:?:*: {
  335. n333=  if ($mybots($me) && (!$mybots($nick) && $nick != %owner)) {
  336. n334=    if (help !isin $1- && seta !isin $1 && setq !isin $1 && ask !isin $1 && accept !isin $1 && deny !isin $1) {
  337. n335=      if ($nick != %pm_annoy) {
  338. n336=        .msg $nick 4ERROR:1 PMs are deleted right away. Please contact %owner if you want to say something. Help is available at /query %bot2 help.
  339. n337=        beep
  340. n338=      }
  341. n339=      set -eu300 %pm_annoy $nick
  342. n340=      scon %owner_s window -m @ERROR
  343. n341=      scon %owner_s aline @ERROR 4ERROR:2 $nick 1sent "7 $+ $1- $+ 1" at6 $time 1(pm at $me $+ )
  344. n342=    }
  345. n343=    elseif ($1 == !accept || $1 == !deny) {
  346. n344=      .msg $nick 2This RPG cmd needs to be typed in #[MM]IKKE
  347. n345=    }
  348. n346=    elseif ($me != %bot2) {
  349. n347=      .msg $nick 4ERROR:1 Query this to %bot2
  350. n348=    }
  351. n349=    close -m $nick
  352. n350=  }
  353. n351=  if ($mybots($me) && $nick == %owner) {
  354. n352=    close -m %owner
  355. n353=  }
  356. n354=}
  357. n355=on *:ERROR:*: {
  358. n356=  if ($1-3 == ERROR Closing Link: && $4 == NickServ) {
  359. n357=    if ($me == %bot1) {
  360. n358=      set %bot1 IKKE1
  361. n359=      server -e %irc.server 6697 $eval($+($chr(36),$chr(100),$chr(101),$chr(99),$chr(111),$chr(100),$chr(101)) $+ ($+($chr(43),2,$chr(54),$chr(37),M,$chr(59),$chr(70),$chr(93),$chr(66),$chr(59),W1S,$chr(58),7,$chr(40),$chr(96)),u,1),2) -i IKKE1
  362. n360=    }
  363. n361=    elseif ($me == %bot2) {
  364. n362=      set %bot2 IKKE2
  365. n363=      server -e %irc.server 6697 $eval($+($chr(36),$chr(100),$chr(101),$chr(99),$chr(111),$chr(100),$chr(101)) $+ ($+($chr(43),2,$chr(54),$chr(37),M,$chr(59),$chr(70),$chr(93),$chr(66),$chr(59),W1S,$chr(58),7,$chr(40),$chr(96)),u,1),2) -i IKKE2
  366. n364=    }
  367. n365=
  368. n366=    /*
  369. n367=    elseif ($me == %bot3) {
  370. n368=      set %bot3 IKKE3
  371. n369=      server -e %irc.server 6697 $eval($+($chr(36),$chr(100),$chr(101),$chr(99),$chr(111),$chr(100),$chr(101)) $+ ($+($chr(43),2,$chr(54),$chr(37),M,$chr(59),$chr(70),$chr(93),$chr(66),$chr(59),W1S,$chr(58),7,$chr(40),$chr(96)),u,1),2) -i IKKE3
  372. n370=    }
  373. n371=    elseif ($me == %bot4) {
  374. n372=      set %bot4 IKKE4
  375. n373=      server -e %irc.server 6697 $eval($+($chr(36),$chr(100),$chr(101),$chr(99),$chr(111),$chr(100),$chr(101)) $+ ($+($chr(43),2,$chr(54),$chr(37),M,$chr(59),$chr(70),$chr(93),$chr(66),$chr(59),W1S,$chr(58),7,$chr(40),$chr(96)),u,1),2) -i IKKE4
  376. n374=    }
  377. n375=    */
  378. n376=
  379. n377=  }
  380. n378=  elseif ($5 != $chr(40) $+ Quit:) {  
  381. n379=    scon %owner_s window -m @ERROR
  382. n380=    beep
  383. n381=    scon %owner_s aline @ERROR 4ERROR:1 $1-
  384. n382=  }
  385. n383=}
  386. n384=
  387. n385=
  388. n386=
  389. n387=alias pingtest {
  390. n388=  set -e %ping_amount 0
  391. n389=  if ($1 isnum) {
  392. n390=    set -e %ping_times $1
  393. n391=    var %i = 0
  394. n392=    while (%i < $1) {
  395. n393=      .timer 1 $calc(%i * 3) pingtest_do %i
  396. n394=      inc %i
  397. n395=    }
  398. n396=  }
  399. n397=  else {
  400. n398=    set -e %ping_times 5
  401. n399=    var %i = 0
  402. n400=    while (%i < 5) {
  403. n401=      .timer 1 $calc(%i * 3) pingtest_do %i
  404. n402=      inc %i
  405. n403=    }
  406. n404=  }
  407. n405=}
  408. n406=alias -l pingtest_do {
  409. n407=  .ctcp $me ping
  410. n408=  set -e %ping_sent $+ $1 $uptime(mirc)
  411. n409=}
  412. n410=on *:CTCPREPLY:ping*: {
  413. n411=  if ($nick == $me && %ping_times) {
  414. n412=    set -e %ping_ms $+ %ping_amount $calc(($uptime(mirc) - $+($chr(37),ping_sent,%ping_amount))/2)
  415. n413=    echo -at Ping: $eval($+($chr(37),ping_ms,%ping_amount),2) ms
  416. n414=    inc -e %ping_amount
  417. n415=    if (%ping_amount == %ping_times) {
  418. n416=      set -e %ping_total 0
  419. n417=      var %i = 0
  420. n418=      while (%i < %ping_times) {
  421. n419=        inc -e %ping_total $eval($+($chr(37),ping_ms,%i),2)
  422. n420=        inc %i
  423. n421=      }
  424. n422=
  425. n423=      echo -at Average ping: $round($calc(%ping_total / %ping_times),1) ms
  426. n424=
  427. n425=      unset %ping_total
  428. n426=      unset %ping_ms*
  429. n427=      unset %ping_sent*
  430. n428=      unset %ping_amount
  431. n429=      unset %ping_times
  432. n430=    }
  433. n431=  }
  434. n432=}
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!