API tools faq
paste
Advertisement
_MM_IKKE

reply.ini

_MM_IKKE
Nov 22nd, 2018
254
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 11.18 KB | None | 0 0
raw download clone embed print report
  1. [script]
  2. n0=on *:JOIN:#mini-missions: {
  3. n1=  ;noop $tip(User Joining, New User in $chan $+ :, $nick, 10, $mircexe, 11, window -ra $safe2($chan))
  4. n2=  ;beep 2 1
  5. n3=}
  6. n4=alias -l safe2 {
  7. n5=  bset -tc &a 1 $1 | return $!regsubex(safe, $bvar(&a,1-) ,/(\d+)(?: |$)/g,$chr(\1))
  8. n6=}
  9. n7=
  10. n8=on 500,543:TEXT:*:#: { halt }
  11. n9=on 500,543:ACTION:*:#: { halt }
  12. n10=on *:LOAD: {
  13. n11=  echo -at Loaded reply script
  14. n12=  echo -at No new variables added, all are global
  15. n13=}
  16. n14=on *:UNLOAD: {
  17. n15=  echo -at Unloaded reply script
  18. n16=  echo -at No variables unset, all are global
  19. n17=}
  20. n18=on *:ACTION:*:#: {
  21. n19=  if ($me == %owner && !$mybots($nick) && $nick !isin $read(lists\bots.txt,w, $nick) && $nick !isin $read(lists\userbots.txt,w, $nick)) {
  22. n20=    quote $1-
  23. n21=  }
  24. n22=  reply $chan $nick $1-
  25. n23=
  26. n24=  if (%knownwordsmode == 1) {
  27. n25=    if ($me == %owner) {
  28. n26=      learn $remove($strip($1-),$chr(44),$chr(46),$chr(63),$chr(34),$chr(39))
  29. n27=    }
  30. n28=    elseif ($nick == %owner && $me == %bot1) {
  31. n29=      learn $remove($strip($1-),$chr(44),$chr(46),$chr(63),$chr(34),$chr(39))
  32. n30=    }
  33. n31=    elseif ($nick == %owner && %bot1 !ison $1 && $me == %bot2) {
  34. n32=      learn $remove($strip($1-),$chr(44),$chr(46),$chr(63),$chr(34),$chr(39))
  35. n33=    }
  36. n34=  }
  37. n35=}
  38. n36=on ^*:NOTICE:*invited*into the channel*:#: {
  39. n37=  haltdef
  40. n38=}
  41. n39=on *:NOTICE:*:#: {
  42. n40=  reply $chan $nick $1-
  43. n41=  if (%knownwordsmode == 1) {
  44. n42=    if ($me == %owner) {
  45. n43=      learn $remove($strip($1-),$chr(44),$chr(46),$chr(63),$chr(34),$chr(39))
  46. n44=    }
  47. n45=    elseif ($nick == %owner && $me == %bot1) {
  48. n46=      learn $remove($strip($1-),$chr(44),$chr(46),$chr(63),$chr(34),$chr(39))
  49. n47=    }
  50. n48=    elseif ($nick == %owner && %bot1 !ison $1 && $me == %bot2) {
  51. n49=      learn $remove($strip($1-),$chr(44),$chr(46),$chr(63),$chr(34),$chr(39))
  52. n50=    }
  53. n51=  }
  54. n52=  if ($me == %owner && $nick != NickServ && $nick != ChanServ && $nick != Global && $nick != HostServ && $nick != MemoServ && !$mybots($nick) && $nick != BotServ && irc.tl !isin $nick) {
  55. n53=    echo -st $nick noticed you in $chan
  56. n54=  }
  57. n55=}
  58. n56=on *:NOTICE:*:?: {
  59. n57=  if ($mybots($me) && $nick != NickServ && $nick != ChanServ && $nick != Global && $nick != HostServ && $me != %owner) {
  60. n58=    scon %owner_s window -m @ERROR
  61. n59=    beep
  62. n60=    scon %owner_s aline @ERROR 4ERROR:2 $nick sent "7 $+ $1- $+ " at6 $time (notice at $me $+ )
  63. n61=  }
  64. n62=  elseif ($me == %owner && $nick != NickServ && $nick != ChanServ && $nick != Global && $nick != HostServ && $nick != MemoServ && !$mybots($nick) && $nick != BotServ) {
  65. n63=    echo -st $nick noticed you
  66. n64=  }
  67. n65=}
  68. n66=on *:TEXT:*:#: {
  69. n67=  reply $chan $nick $1-
  70. n68=
  71. n69=  if (%knownwordsmode == 1) {
  72. n70=    if ($me == %owner) {
  73. n71=      if ($MMBots($nick) && $5-6 != has killed) {
  74. n72=        learn $remove($strip($1-),$chr(44),$chr(46),$chr(63),$chr(34),$chr(39))
  75. n73=      }
  76. n74=      elseif (!$MMBots($nick)) {
  77. n75=        learn $remove($strip($1-),$chr(44),$chr(46),$chr(63),$chr(34),$chr(39))
  78. n76=      }
  79. n77=    }
  80. n78=    elseif ($nick == %owner && $me == %bot1) {
  81. n79=      learn $remove($strip($1-),$chr(44),$chr(46),$chr(63),$chr(34),$chr(39))
  82. n80=    }
  83. n81=    elseif ($nick == %owner && %bot1 !ison $1 && $me == %bot2) {
  84. n82=      learn $remove($strip($1-),$chr(44),$chr(46),$chr(63),$chr(34),$chr(39))
  85. n83=    }
  86. n84=  }
  87. n85=  if ($nick == [MM]IKKE && %owner != [MM]IKKE) { ghost }
  88. n86=  if ($nick == IKKE1 && %bot1 != IKKE1) { ghostbot1 }
  89. n87=  if ($nick == IKKE2 && %bot2 != IKKE2) { ghostbot2 }
  90. n88=
  91. n89=
  92. n90=  /*
  93. n91=  if ($nick == IKKE3 && %bot3 != IKKE3) { ghostbot3 }
  94. n92=  if ($nick == IKKE4 && %bot4 != IKKE4) { ghostbot4 }
  95. n93=  */
  96. n94=  if ($me == %owner && !$mybots($nick) && $nick !isin $read(lists\bots.txt,w, $nick) && $nick !isin $read(lists\userbots.txt,w, $nick) && $left($1,1) != $chr(33)) {
  97. n95=    quote $1-
  98. n96=  }
  99. n97=}
  100. n98=on *:TEXT:*:?: {
  101. n99=  if ($me == %owner && !$mybots($nick)) {
  102. n100=    write "PMs\ $+ $replace($nick,$chr(124),_) $+ .txt" $chr(91) $+ $date at $time $+ $chr(93) $nick $+ : $1-
  103. n101=  }
  104. n102=  reply PM $nick $1-
  105. n103=  if (%knownwordsmode == 1) {
  106. n104=    if ($me == %owner) {
  107. n105=      if ($MMBots($nick) && $5-6 != has killed) {
  108. n106=        learn $remove($strip($1-),$chr(44),$chr(46),$chr(63),$chr(34),$chr(39))
  109. n107=      }
  110. n108=      elseif (!$MMBots($nick)) {
  111. n109=        learn $remove($strip($1-),$chr(44),$chr(46),$chr(63),$chr(34),$chr(39))
  112. n110=      }
  113. n111=    }
  114. n112=    elseif ($nick == %owner && $me == %bot1) { learn $remove($strip($1-),$chr(44),$chr(46),$chr(63),$chr(34),$chr(39)) }
  115. n113=    elseif ($nick == %owner && %bot1 !ison $1 && $me == %bot2) { learn $remove($strip($1-),$chr(44),$chr(46),$chr(63),$chr(34),$chr(39)) }
  116. n114=  }
  117. n115=}
  118. n116=on *:ACTION:*:?: {
  119. n117=  if ($me == %owner && !$mybots($nick)) {
  120. n118=    write "PMs\ $+ $replace($nick,$chr(124),_) $+ .txt" $chr(91) $+ $date at $time $+ $chr(93) $nick $+ : $1-
  121. n119=  }
  122. n120=}
  123. n121=
  124. n122=
  125. n123=alias -l quote {
  126. n124=  ;Syntax: <text>
  127. n125=  ;Usage: Internally used to add a quote to the random quotes engine
  128. n126=  write quotes\quotes $+ %quotefile $+ .txt $1-
  129. n127=  inc %quotesamount
  130. n128=  if ($calc(%quotesamount / 1000) == $round($calc(%quotesamount / 1000) , 0)) { inc %quotefile }
  131. n129=}
  132. n130=
  133. n131=
  134. n132=alias -l reply {
  135. n133=  ;Syntax: <channel|PM> <nick> <text>
  136. n134=  ;Usage: Internally used by the command echo engine to define whether it's a command or not. If so, send it to the echo channel
  137. n135=
  138. n136=  if ($me == %bot1 && $chan_log($1)) {
  139. n137=    inc_msgs $1
  140. n138=    writeini channels\ $+ $1 $+ .ini stats lastmsg $gmt
  141. n139=  }
  142. n140=  elseif ($2 == %bot1 && $me == %bot2 && $chan_log($1)) {
  143. n141=    inc_msgs $1
  144. n142=    writeini channels\ $+ $1 $+ .ini stats lastmsg $gmt
  145. n143=  }
  146. n144=
  147. n145=  if ($1 != PM && $3 != ! && !$mybots($2) && ($3 == $read(lists\cmdlist.txt,w,$3 $+ *) || $3-4 == $read(lists\cmdlist.txt,w,$3 $+ *) || $3-5 == $read(lists\cmdlist.txt,w,$3 $+ *))) {
  148. n146=    if ($me == %bot1 && $chan_log($1)) {
  149. n147=      writeini channels\ $+ $1 $+ .ini stats lastcmd $gmt
  150. n148=    }
  151. n149=
  152. n150=    set -n %command.echo $3-
  153. n151=    if ($me == %bot1) {
  154. n152=      {
  155. n153=        if ($chr(126) isin $nick($1 , $2).pnick) {
  156. n154=          scon %logbot msg #[MM]IKKE.echo at6 $1 1<4~9 $+ $2 $+ 1> $eval(%command.echo,0)
  157. n155=        }
  158. n156=        elseif ($chr(38) isin $nick($1 , $2).pnick) {
  159. n157=          scon %logbot msg #[MM]IKKE.echo at6 $1 1<4&9 $+ $2 $+ 1> $eval(%command.echo,0)
  160. n158=        }
  161. n159=        elseif ($chr(64) isin $nick($1 , $2).pnick) {
  162. n160=          scon %logbot msg #[MM]IKKE.echo at6 $1 1<4@9 $+ $2 $+ 1> $eval(%command.echo,0)
  163. n161=        }
  164. n162=        elseif ($chr(37) isin $nick($1 , $2).pnick) {
  165. n163=          scon %logbot msg #[MM]IKKE.echo at6 $1 1<4 $+ $chr(37) $+ 9 $+ $2 $+ 1> $eval(%command.echo,0)
  166. n164=        }
  167. n165=        elseif ($chr(43) isin $nick($1 , $2).pnick) {  
  168. n166=          scon %logbot msg #[MM]IKKE.echo at6 $1 1<4+9 $+ $2 $+ 1> $eval(%command.echo,0)
  169. n167=        }
  170. n168=        else {            
  171. n169=          scon %logbot msg #[MM]IKKE.echo at6 $1 1<49 $+ $2 $+ 1> $eval(%command.echo,0)
  172. n170=        }
  173. n171=      }
  174. n172=      {
  175. n173=        if (%logbot == %bot1_s) {
  176. n174=          if (%bot2 ison #[MM]IKKE.echo) { set %logbot %bot2_s }
  177. n175=        }
  178. n176=        elseif (%logbot == %bot2_s) {
  179. n177=          if (%bot1 ison #[MM]IKKE.echo) { set %logbot %bot1_s }
  180. n178=        }
  181. n179=        else { .notice %owner 4ERROR:2 Error changing logging bot }
  182. n180=      }
  183. n181=    }
  184. n182=    elseif (%bot1 !ison $1 && $me == %bot2) {
  185. n183=      {
  186. n184=        if ($chr(126) isin $nick($1 , $2).pnick) {
  187. n185=          scon %logbot msg #[MM]IKKE.echo at6 $1 1<4~9 $+ $2 $+ 1> $eval(%command.echo,0)
  188. n186=        }
  189. n187=        elseif ($chr(38) isin $nick($1 , $2).pnick) {
  190. n188=          scon %logbot msg #[MM]IKKE.echo at6 $1 1<4&9 $+ $2 $+ 1> $eval(%command.echo,0)
  191. n189=        }
  192. n190=        elseif ($chr(64) isin $nick($1 , $2).pnick) {
  193. n191=          scon %logbot msg #[MM]IKKE.echo at6 $1 1<4@9 $+ $2 $+ 1> $eval(%command.echo,0)
  194. n192=        }
  195. n193=        elseif ($chr(37) isin $nick($1 , $2).pnick) {
  196. n194=          scon %logbot msg #[MM]IKKE.echo at6 $1 1<4 $+ $chr(37) $+ 9 $+ $2 $+ 1> $eval(%command.echo,0)
  197. n195=        }
  198. n196=        elseif ($chr(43) isin $nick($1 , $2).pnick) {  
  199. n197=          scon %logbot msg #[MM]IKKE.echo at6 $1 1<4+9 $+ $2 $+ 1> $eval(%command.echo,0)
  200. n198=        }
  201. n199=        else {            
  202. n200=          scon %logbot msg #[MM]IKKE.echo at6 $1 1<49 $+ $2 $+ 1> $eval(%command.echo,0)
  203. n201=        }
  204. n202=      }
  205. n203=      {
  206. n204=        if (%logbot == %bot1_s) {
  207. n205=          if (%bot2 ison #[MM]IKKE.echo) { set %logbot %bot2_s }
  208. n206=        }
  209. n207=        elseif (%logbot == %bot2_s) {
  210. n208=          if (%bot1 ison #[MM]IKKE.echo) { set %logbot %bot1_s }
  211. n209=        }
  212. n210=
  213. n211=        else { .notice %owner 4ERROR:2 Error changing logging bot }
  214. n212=      }
  215. n213=    }
  216. n214=    unset %command.echo
  217. n215=  }
  218. n216=}
  219. n217=
  220. n218=alias -l learn {
  221. n219=  ;Syntax: <text>
  222. n220=  ;Usage: Internally used to learn words (if enabled). Loops through each single word (until it doesn't exist anymore), checks for signs and then saves when not known already
  223. n221=  var %i = 1
  224. n222=  while ([ $chr(36) $+ [ %i ]  ]) {
  225. n223=    var %j = 1
  226. n224=    var %len = $len([ $chr(36) $+ [ %i ]  ])
  227. n225=    var %word = $lower([ $chr(36) $+ [ %i ]  ])
  228. n226=    while (%j <= %len && $asc($mid(%word,%j,1)) isnum 97-122) {
  229. n227=      if (%j == %len) {
  230. n228=        learnword2 [ $chr(36) $+ [ %i ]  ]
  231. n229=      }
  232. n230=      inc %j
  233. n231=    }
  234. n232=
  235. n233=    inc %i
  236. n234=  }
  237. n235=  inc %scannedwords %i
  238. n236=
  239. n237=  halt
  240. n238=  :error
  241. n239=  scon %owner_s window @ERROR
  242. n240=  beep  
  243. n241=  scon %owner_s aline @ERROR 4ERROR:1 Error learning "2 $+ $3- $+ 1". Error message:4 $error
  244. n242=}
  245. n243=alias -l learnword {
  246. n244=  ;Syntax: <file> <word>
  247. n245=  ;Usage: Internally used by the learning engine to add a word to the appropriate file. Also updates the general knowledge file and the other associated variables
  248. n246=  if ($2 != $read("Dictionary\ $+ $1 $+ .txt",nw,$2)) {
  249. n247=    write "Dictionary\ $+ $1 $+ .txt" $2
  250. n248=    write Dictionary\Words $+ %knownwordsfile $+ .txt $2
  251. n249=    inc %knownwordsamount
  252. n250=    if ($calc(%knownwordsamount / 1000) == $round($calc(%knownwordsamount / 1000) , 0)) { inc %knownwordsfile }
  253. n251=  }
  254. n252=}
  255. n253=alias -l learnword2 {
  256. n254=  ;Syntax: <word>
  257. n255=  ;Usage: Internally used by the learning engine to define in which file the word should be stored
  258. n256=
  259. n257=  ;If the length is smaller than 3
  260. n258=  if ($len($1) < 3) {
  261. n259=    learnword Small $1
  262. n260=  }
  263. n261=
  264. n262=  ;Check for normal words
  265. n263=
  266. n264=  elseif ($exists("Dictionary\ $+ $left($1,3) $+ .txt")) {
  267. n265=    ;disables sites and UGP guests
  268. n266=    if (http != $left($1,4) && $mid($1,9,6) != _Guest) {
  269. n267=      learnword $left($1,3) $1
  270. n268=    }
  271. n269=  }
  272. n270=
  273. n271=  ;all other words
  274. n272=  else {
  275. n273=    learnword Others $1
  276. n274=  }
  277. n275=}
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!