API tools faq
paste
_MM_IKKE

statscmds.ini

_MM_IKKE
Nov 22nd, 2018
144
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 20.19 KB | None | 0 0
raw download clone embed print report
  1. [aliases]
  2. n0=/addstat {
  3. n1=  ;Syntax: <section> <item> <value>
  4. n2=  ;Usage: adds a certain stat to the channel logs
  5. n3=  if ($1) {
  6. n4=    if ($2) {
  7. n5=      if ($3 != $null) {
  8. n6=        var %i = 1
  9. n7=        var %j = $lines(channels\list.txt)
  10. n8=        while (%i <= %j) {
  11. n9=          writeini channels\ $+ $read(channels\list.txt) $+ .ini $1 $2 $eval($3,2)
  12. n10=          echo -at wrote in $read(channels\list.txt) $+ .ini $1 $2 $eval($3,2)
  13. n11=          inc %i
  14. n12=        }
  15. n13=        writeini channels\default.ini $1 $2 $eval($3,2)
  16. n14=      }
  17. n15=      else {
  18. n16=        echo 4 -at ERROR:1 Usage: /addstat <section> <item> <value>
  19. n17=      }
  20. n18=    }
  21. n19=    else {
  22. n20=      echo 4 -at ERROR:1 Usage: /addstat <section> <item> <value>
  23. n21=    }
  24. n22=  }
  25. n23=  else {
  26. n24=    echo 4 -at ERROR:1 Usage: /addstat <section> <item> <value>
  27. n25=  }
  28. n26=}
  29. n27=/bot_say {
  30. n28=  ;Syntax: <chan> (<delay>)
  31. n29=  ;Usage: Internally used to alternate bot speech. GLOBAL USE!
  32. n30=  if ($me == %bot1) {
  33. n31=    if (%bot_say == %bot1_s) {
  34. n32=      if (%bot2 ison $1) { set %bot_say %bot2_s  }
  35. n33=    }
  36. n34=    elseif (%bot_say == %bot2_s) {
  37. n35=      if (%bot1 ison $1) { set %bot_say %bot1_s  }
  38. n36=    }
  39. n37=  }
  40. n38=  elseif (%bot1 !ison $1 && $me == %bot2) {
  41. n39=    if (%bot_say == %bot1_s) {
  42. n40=      if (%bot2 ison $1) { set %bot_say %bot2_s  }
  43. n41=    }
  44. n42=    elseif (%bot_say == %bot2_s) {
  45. n43=      if (%bot1 ison $1) { set %bot_say %bot1_s  }
  46. n44=    }
  47. n45=  }
  48. n46=  return %bot_say
  49. n47=}
  50. n48=/calctime {
  51. n49=  ;Syntax: <time1> <time2> (HH:MM:SS format)
  52. n50=  ;Type: IDENTIFIER
  53. n51=  ;Usage: returns the amount of time passed between time2 & time1 (time2-time1)
  54. n52=  if ($len($1) = 8 && $mid($1,1,2) isnum 0-23 && $mid($1,4,2) isnum 0-59 && $mid($1,7,2) isnum 0-59) {
  55. n53=    if ($len($2) = 8 && $mid($2,1,2) isnum 0-23 && $mid($2,4,2) isnum 0-59 && $mid($2,7,2) isnum 0-59) {
  56. n54=      var %ct.hour1 = $mid($1,1,2)
  57. n55=      var %ct.minute1 = $mid($1,4,2)
  58. n56=      var %ct.second1 = $mid($1,7,2)
  59. n57=      var %ct.hour2 = $mid($2,1,2)
  60. n58=      var %ct.minute2 = $mid($2,4,2)
  61. n59=      var %ct.second2 = $mid($2,7,2)
  62. n60=
  63. n61=      if (%ct.hour1 > %ct.hour2) { inc %ct.hour2 24 }
  64. n62=      if (%ct.minute1 > %ct.minute2) { inc %ct.minute2 60 }
  65. n63=      if (%ct.second1 > %ct.second2) { inc %ct.second2 60 }
  66. n64=
  67. n65=      return  $+ $calc(%ct.hour2 - %ct.hour1) hours, $calc(%ct.minute2 - %ct.minute1) mins and $calc(%ct.second2 - %ct.second1) secs
  68. n66=
  69. n67=    }
  70. n68=    else {
  71. n69=      echo 4 -at ERROR: Usage: /calctime <time1> <time2>
  72. n70=    }
  73. n71=
  74. n72=  }
  75. n73=  else {
  76. n74=    echo 4 -at ERROR: Usage: /calctime <time1> <time2>
  77. n75=  }
  78. n76=}
  79. n77=/chan_avg {
  80. n78=  ;Syntax: <chan>
  81. n79=  ;Usage: returns average users of the channel
  82. n80=  return $readini(channels\ $+ $1 $+ .ini,n,stats,average)
  83. n81=}
  84. n82=/chan_avgc {
  85. n83=  ;Syntax: <chan>
  86. n84=  ;Usage: returns count of average users of the channel
  87. n85=  return $readini(channels\ $+ $1 $+ .ini,n,stats,averagec)
  88. n86=}
  89. n87=/chan_bans {
  90. n88=  ;Syntax: <chan>
  91. n89=  ;Usage: returns amount of bans of the channel
  92. n90=  return $readini(channels\ $+ $1 $+ .ini,n,stats,bans)
  93. n91=}
  94. n92=/chan_dot {
  95. n93=  ;Syntax: <chan>
  96. n94=  ;Usage: returns asctime of last dot of the channel
  97. n95=  return $readini(channels\ $+ $1 $+ .ini,n,stats,dot)
  98. n96=}
  99. n97=/chan_ignore {
  100. n98=  ;Syntax: <chan>
  101. n99=  ;Usage: returns ignore status of the channel (0/1)
  102. n100=  return $readini(channels\ $+ $1 $+ .ini,n,control,ignore)
  103. n101=}
  104. n102=/chan_joins {
  105. n103=  ;Syntax: <chan>
  106. n104=  ;Usage: returns amount of joins of the channel
  107. n105=  return $readini(channels\ $+ $1 $+ .ini,n,stats,joins)
  108. n106=}
  109. n107=/chan_kicks {
  110. n108=  ;Syntax: <chan>
  111. n109=  ;Usage: returns amount of kicks of the channel
  112. n110=  return $readini(channels\ $+ $1 $+ .ini,n,stats,kicks)
  113. n111=}
  114. n112=/chan_lastcmd {
  115. n113=  ;Syntax: <chan>
  116. n114=  ;Usage: returns asctime of last cmd used in the channel
  117. n115=  return $readini(channels\ $+ $1 $+ .ini,n,stats,lastcmd)
  118. n116=}
  119. n117=/chan_lastmsg {
  120. n118=  ;Syntax: <chan>
  121. n119=  ;Usage: returns asctime of last msg of the channel
  122. n120=  return $readini(channels\ $+ $1 $+ .ini,n,stats,lastmsg)
  123. n121=}
  124. n122=/chan_leaves {
  125. n123=  ;Syntax: <chan>
  126. n124=  ;Usage: returns amount of leaves of the channel
  127. n125=  return $readini(channels\ $+ $1 $+ .ini,n,stats,leaves)
  128. n126=}
  129. n127=/chan_log {
  130. n128=  ;Syntax: <chan>
  131. n129=  ;Usage: returns if channel is being logged
  132. n130=  return $readini(channels\ $+ $1 $+ .ini,n,stats,name)
  133. n131=}
  134. n132=/chan_msgs {
  135. n133=  ;Syntax: <chan>
  136. n134=  ;Usage: returns amount of messages of the channel
  137. n135=  return $readini(channels\ $+ $1 $+ .ini,n,stats,messages)
  138. n136=}
  139. n137=/chan_oldtopic {
  140. n138=  ;Syntax: <chan>
  141. n139=  ;Usage: returns old topic of the channel
  142. n140=  return $readini(channels\ $+ $1 $+ .ini,n,settings,oldtopic)
  143. n141=}
  144. n142=/chan_owner {
  145. n143=  ;Syntax: <chan>
  146. n144=  ;Usage: returns owner of the channel
  147. n145=  return $readini(channels\ $+ $1 $+ .ini,n,stats,owner)
  148. n146=}
  149. n147=/chan_peak {
  150. n148=  ;Syntax: <chan>
  151. n149=  ;Usage: returns peak of the channel
  152. n150=  return $readini(channels\ $+ $1 $+ .ini,n,stats,peak)
  153. n151=}
  154. n152=/chan_peakt {
  155. n153=  ;Syntax: <chan>
  156. n154=  ;Usage: returns peak time of the channel
  157. n155=  return $readini(channels\ $+ $1 $+ .ini,n,stats,peakt)
  158. n156=}
  159. n157=/chan_quotes {
  160. n158=  ;Syntax: <chan>
  161. n159=  ;Usage: returns quote setting of the channel (0/1)
  162. n160=  return $readini(channels\ $+ $1 $+ .ini,n,settings,quotes)
  163. n161=}
  164. n162=/chan_topic {
  165. n163=  ;Syntax: <chan>
  166. n164=  ;Usage: returns topic of the channel
  167. n165=  return $readini(channels\ $+ $1 $+ .ini,n,settings,topic)
  168. n166=}
  169. n167=/chan_warns {
  170. n168=  ;Syntax: <chan>
  171. n169=  ;Usage: returns amount of warns of the channel
  172. n170=  return $readini(channels\ $+ $1 $+ .ini,n,control,warns)
  173. n171=}
  174. n172=/chan_warnt {
  175. n173=  ;Syntax: <chan>
  176. n174=  ;Usage: returns time of last warn of the channel
  177. n175=  return $readini(channels\ $+ $1 $+ .ini,n,control,warnt)
  178. n176=}
  179. n177=/check_owner_online {
  180. n178=  ;Syntax: none
  181. n179=  ;Usage: internally used to check if owner is in his channel AND in #[MM]IKKE
  182. n180=  var %i = 1
  183. n181=  while (%i <= $chan(0)) {
  184. n182=    if ($chan_log($chan(%i)) && $chan_owner($chan(%i)) ison $chan(%i) && $chan_owner($chan(%i)) !ison #[MM]IKKE) {
  185. n183=      warn_chan $chan(%i) Owner ( $+ $chan_owner($chan(%i)) $+ ) not in #[MM]IKKE
  186. n184=    }
  187. n185=    inc %i
  188. n186=  }
  189. n187=}
  190. n188=/check_users_online {
  191. n189=  ;Syntax: none
  192. n190=  ;Usage: internally used to check if there are enough users online in channel
  193. n191=  if ($left($time,2) >= 14) {
  194. n192=    var %i = 1
  195. n193=    while (%i <= $chan(0)) {
  196. n194=      if ($nick($chan(%i),0) < 8 && $chan_log($chan(%i))) {
  197. n195=        warn_chan $chan(%i) Too few users in channel! Required amount: 8 ( $+ $nick($chan(%i),0) online)
  198. n196=      }
  199. n197=      inc %i
  200. n198=    }
  201. n199=  }
  202. n200=}
  203. n201=
  204. n202=/commandlist {
  205. n203=  ;Syntax: <user|hop|op|owner|owner2>
  206. n204=  ;Usage: returns correct command list
  207. n205=  if ($1 == user) {
  208. n206=    return conv, botslap, rape, ping, < |full|user|halfop|op|owner>commands, version, update, suggest, report, info, help, random, quotesamount, knowledge, addadjective, addnoun, (all)bot(s)(full)stats, chan(full)stats, chanusers, subchannels, isbot, learningmode, ikkecmds, rules, cake
  209. n207=  }
  210. n208=  elseif ($1 == user2) {
  211. n209=    return avg, peak, lastmsg, joins, leaves, bans, kicks, msgs, lastcmd, topic, oldtopic, warns, quotes, <en|dis>able (channel owners), chanfile
  212. n210=  }
  213. n211=  elseif ($1 == hop) {
  214. n212=    return botsay, allbotssay
  215. n213=  }
  216. n214=  elseif ($1 == op) {
  217. n215=    return botsay, allbotssay, botsendmsgtochan, allbotssendmsgtochan, botspam, allbotsspam, stfu (#[MM]IKKE only), bothelp
  218. n216=  }
  219. n217=  elseif ($1 == owner) {
  220. n218=    return (allbots)do, bot(un)ban, pmspam, setversion, lines, accept, deny, del<adjective|noun>, unloadbots, rejoin, leave, (allbots)hop, join, changenick, login, <a|del>join, <add|del|short>cmd, clearcmds, (un)load
  221. n219=  }
  222. n220=  elseif ($1 == owner2) {
  223. n221=    return open, ctcpspam, annoy(chan), loadbots, learningmode < |on|off>, trace, reset< |quotes|bots|bot<botid>|dictionary|quotes>, global, (un)ignore, chanset
  224. n222=  }
  225. n223=}
  226. n224=/count_average {
  227. n225=  ;Syntax: none
  228. n226=  ;Usage: counts the average of users in all channels
  229. n227=  var %i = 1
  230. n228=  while (%i <= $chan(0)) {
  231. n229=    var %chan.tmp = $chan(%i)
  232. n230=    if ($chan_log(%chan.tmp)) {
  233. n231=      writeini channels\ $+ %chan.tmp $+ .ini Stats average $calc((($chan_avg(%chan.tmp) * $chan_avgc(%chan.tmp)) + $nick(%chan.tmp,0)) / ( $chan_avgc(%chan.tmp) + 1 ))
  234. n232=      if ($chan_avgc(%chan.tmp) < 200) { inc_avgc %chan.tmp }
  235. n233=    }
  236. n234=    else {
  237. n235=      scon %owner_s window -m @ERROR
  238. n236=      beep
  239. n237=      scon %owner_s aline @ERROR 4ERROR:1 Channel file of %chan.tmp does not exist! (counting average)
  240. n238=
  241. n239=    }
  242. n240=    inc %i
  243. n241=  }
  244. n242=}
  245. n243=/createchanfile {
  246. n244=  ;Syntax: <channel> (opt: <owner>)
  247. n245=  ;Usage: used to create a channel file
  248. n246=  if ($exists(channels\ $+ $1 $+ .ini)) {
  249. n247=    echo 4 -at ERROR:1 Channel file already exists!
  250. n248=  }
  251. n249=  elseif ($1) {
  252. n250=    writeini channels\ $+ $1 $+ .ini Stats name $1
  253. n251=    if ($2) { writeini channels\ $+ $1 $+ .ini Stats owner $2 }
  254. n252=    else { writeini channels\ $+ $1 $+ .ini Stats owner $?="Owner of channel?" }
  255. n253=    writeini channels\ $+ $1 $+ .ini Stats average $nick($1,0)
  256. n254=    writeini channels\ $+ $1 $+ .ini Stats averagec 1
  257. n255=    writeini channels\ $+ $1 $+ .ini Stats peak $nick($1,0)
  258. n256=    writeini channels\ $+ $1 $+ .ini Stats lastmsg $gmt
  259. n257=    writeini channels\ $+ $1 $+ .ini Stats joins 0
  260. n258=    writeini channels\ $+ $1 $+ .ini Stats leaves 0
  261. n259=    writeini channels\ $+ $1 $+ .ini Stats bans 0
  262. n260=    writeini channels\ $+ $1 $+ .ini Stats kicks 0
  263. n261=    writeini channels\ $+ $1 $+ .ini Stats messages 1
  264. n262=    writeini channels\ $+ $1 $+ .ini Stats lastcmd 0
  265. n263=    writeini channels\ $+ $1 $+ .ini Settings quotes 0
  266. n264=    writeini channels\ $+ $1 $+ .ini Settings topic $chan($1).topic
  267. n265=    writeini channels\ $+ $1 $+ .ini Settings oldtopic null
  268. n266=    writeini channels\ $+ $1 $+ .ini Disabled command null
  269. n267=    writeini channels\ $+ $1 $+ .ini Control warns 0
  270. n268=    writeini channels\ $+ $1 $+ .ini Control warnt 0
  271. n269=    writeini channels\ $+ $1 $+ .ini Control ignore 0
  272. n270=    write channels\list.txt $1
  273. n271=    echo -at File created!
  274. n272=  }
  275. n273=  else {
  276. n274=    echo 4 -at ERROR:1 Usage: /createchanfile <channel> (opt: <owner>)
  277. n275=  }
  278. n276=}
  279. n277=/dec_warns {
  280. n278=  ;Syntax: <channel>
  281. n279=  ;Usage: decreases warns of channel
  282. n280=  if ($chan_warns($1) > 0) { writeini channels\ $+ $1 $+ .ini control warns $calc($chan_warns($1) -1) }
  283. n281=}
  284. n282=/dec_warns_month {
  285. n283=  ;Syntax: none
  286. n284=  ;Usage: removes one warning out of all channels at the start of each month
  287. n285=  var %i = 1
  288. n286=  while (%i <= $lines(channels\list.txt)) {
  289. n287=    var %chan.tmp = $read(channels\list.txt,%i)
  290. n288=    if ($chan_warns(%chan.tmp) > 0) {
  291. n289=      dec_warns %chan.tmp
  292. n290=      scon $bot_say(%chan.tmp) msg %chan.tmp 4Note:1 One warn has been removed! Reason: Start of new month. New amount of warns: $chan_warns(%chan.tmp)
  293. n291=    }
  294. n292=    inc %i
  295. n293=  }
  296. n294=  writeini channels\default.ini control warnm $asctime($gmt,mm)
  297. n295=}
  298. n296=/igserver {
  299. n297=  ;Syntax: none
  300. n298=  ;Usage: returns the server you're playing on
  301. n299=  if (%ig == 0) {
  302. n300=    return 4No Server
  303. n301=  }
  304. n302=  elseif (%ig == 1) {
  305. n303=    return Mini-Missions
  306. n304=  }
  307. n305=  elseif (%ig == 2) {
  308. n306=    return The Sumo Server
  309. n307=  }
  310. n308=  elseif (%ig == 3) {
  311. n309=    return New Dawn DD/DM
  312. n310=  }
  313. n311=  elseif (%ig == 4) {
  314. n312=    return New Dawn TDM
  315. n313=  }
  316. n314=  elseif (%ig == 5) {
  317. n315=    return Ultimative Gamers Playground
  318. n316=  }
  319. n317=  elseif (%ig == 6) {
  320. n318=    if (%ig_server) { return %ig_server }
  321. n319=    else { return Undefined server }
  322. n320=  }
  323. n321=  else {
  324. n322=    return Unknown server
  325. n323=  }
  326. n324=}
  327. n325=/inc_avgc {
  328. n326=  ;Syntax: <channel>
  329. n327=  ;Usage: increases count of average users in channel
  330. n328=  writeini channels\ $+ $1 $+ .ini stats averagec $calc($chan_avgc($1) +1)
  331. n329=}
  332. n330=/inc_bans {
  333. n331=  ;Syntax: <channel>
  334. n332=  ;Usage: increases amount of bans in channel
  335. n333=  writeini channels\ $+ $1 $+ .ini stats bans $calc($chan_bans($1) +1)
  336. n334=}
  337. n335=/inc_joins {
  338. n336=  ;Syntax: <channel>
  339. n337=  ;Usage: increases amount of joins in channel
  340. n338=  writeini channels\ $+ $1 $+ .ini stats joins $calc($chan_joins($1) +1)
  341. n339=}
  342. n340=/inc_kicks {
  343. n341=  ;Syntax: <channel>
  344. n342=  ;Usage: increases amount of kicks in channel
  345. n343=  writeini channels\ $+ $1 $+ .ini stats kicks $calc($chan_kicks($1) +1)
  346. n344=}
  347. n345=/inc_leaves {
  348. n346=  ;Syntax: <channel>
  349. n347=  ;Usage: increases amount of leaves in channel
  350. n348=  writeini channels\ $+ $1 $+ .ini stats leaves $calc($chan_leaves($1) +1)
  351. n349=}
  352. n350=/inc_msgs {
  353. n351=  ;Syntax: <channel>
  354. n352=  ;Usage: increases amount of messages in channel
  355. n353=  writeini channels\ $+ $1 $+ .ini stats messages $calc($chan_msgs($1) +1)
  356. n354=}
  357. n355=/inc_warns {
  358. n356=  ;Syntax: <channel>
  359. n357=  ;Usage: increases warns of channel
  360. n358=  writeini channels\ $+ $1 $+ .ini control warns $calc($chan_warns($1) +1)
  361. n359=}
  362. n360=/isowner {
  363. n361=  ;Syntax: <channel> <nick>
  364. n362=  ;Usage: returns 1 if user is owner, 0 if he isn't
  365. n363=  if ($chr(126) isin $nick($1 , $2).pnick) { return 1 }
  366. n364=  else { return 0 }
  367. n365=}
  368. n366=/isprotect {
  369. n367=  ;Syntax: <channel> <nick>
  370. n368=  ;Usage: returns 1 if user is protect or higher, 0 if he isn't
  371. n369=  if ($chr(126) isin $nick($1 , $2).pnick || $chr(38) isin $nick($1 , $2).pnick) { return 1 }
  372. n370=  else { return 0 }
  373. n371=}
  374. n372=
  375. n373=/mystats {
  376. n374=  ;Syntax: none
  377. n375=  ;Usage: returns a list of general stats: status, channels, ...
  378. n376=  set %imownerinchan 0
  379. n377=  set %improtectinchan 0
  380. n378=  set %imopinchan 0
  381. n379=  set %imhopinchan 0
  382. n380=  set %imvoiceinchan 0
  383. n381=  set %imregularinchan 0
  384. n382=  set %controlling 0
  385. n383=  var %i = 1
  386. n384=  while (%i <= $chan(0)) {
  387. n385=    {
  388. n386=      if ($chr(126) isin $nick($chan(%i) , $me).pnick) {
  389. n387=        inc %imownerinchan
  390. n388=        inc %controlling $nick($chan(%i),0)
  391. n389=      }
  392. n390=      elseif ($chr(38) isin $nick($chan(%i) , $me).pnick) {
  393. n391=        inc %improtectinchan
  394. n392=        var %j = 1
  395. n393=        while (%j <= $nick($chan(%i) ,0)) {
  396. n394=          if ($chr(64) isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick) { inc %controlling }
  397. n395=          elseif ($chr(37) isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick) { inc %controlling }
  398. n396=          elseif ($chr(43) isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick) { inc %controlling }
  399. n397=          elseif ($chr(38) !isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick && $chr(126) !isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick) { inc %controlling }
  400. n398=          inc %j
  401. n399=        }
  402. n400=      }
  403. n401=      elseif ($chr(64) isin $nick($chan(%i) , $me).pnick) {
  404. n402=        inc %imopinchan
  405. n403=        var %j = 1
  406. n404=        while (%j <= $nick($chan(%i) ,0)) {
  407. n405=          if ($chr(64) isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick) { inc %controlling }
  408. n406=          elseif ($chr(37) isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick) { inc %controlling }
  409. n407=          elseif ($chr(43) isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick) { inc %controlling }
  410. n408=          elseif ($chr(38) !isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick && $chr(126) !isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick) { inc %controlling }
  411. n409=          inc %j
  412. n410=        }
  413. n411=      }
  414. n412=      elseif ($chr(37) isin $nick($chan(%i) , $me).pnick) {
  415. n413=        inc %imhopinchan
  416. n414=        var %j = 1
  417. n415=        while (%j <= $nick($chan(%i) ,0)) {
  418. n416=          if ($chr(37) isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick) { inc %controlling }
  419. n417=          elseif ($chr(43) isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick) { inc %controlling }
  420. n418=          elseif ($chr(37) !isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick && $chr(64) !isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick && $chr(38) !isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick && $chr(126) !isin $nick($chan(%i) , $nick($chan(%i) ,%j)).pnick) { inc %controlling }
  421. n419=          inc %j
  422. n420=        }
  423. n421=      }
  424. n422=      elseif ($chr(43) isin $nick($chan(%i) , $me).pnick) { inc %imvoiceinchan }
  425. n423=      else { inc %imregularinchan }
  426. n424=    }
  427. n425=    inc %i
  428. n426=  }
  429. n427=  msg $active I'm currently in $chan(0) channels
  430. n428=  msg $active I'm 9owner (~) in9 %imownerinchan channels, 7protect (&) in7 %improtectinchan channels, 4op (@) in4 %imopinchan channels, 2halfop (%) in2 %imhopinchan channels, 6voice (+) in6 %imvoiceinchan channels and 14regular () in14 %imregularinchan channels
  431. n429=  msg $active I'm in charge of7 %controlling nicks
  432. n430=  unset %imvoiceinchan
  433. n431=  unset %imhopinchan
  434. n432=  unset %imopinchan
  435. n433=  unset %imregularinchan
  436. n434=  unset %improtectinchan
  437. n435=  unset %imownerinchan    
  438. n436=  unset %controlling
  439. n437=}
  440. n438=/status.compare {
  441. n439=  ;Syntax: <chan> <nick1> <nick2>
  442. n440=  ;Usage: compares channel status of nick1 and nick2. Returns -1 if nick2 > nick1, 0 if equal, 1 if nick1 > nick2
  443. n441=
  444. n442=  {
  445. n443=    if ($chr(126) isin $nick($1 , $2).pnick) { var %status1 5 }
  446. n444=    elseif ($chr(38) isin $nick($1 , $2).pnick) { var %status1 4 }
  447. n445=    elseif ($chr(64) isin $nick($1 , $2).pnick) { var %status1 3 }
  448. n446=    elseif ($chr(37) isin $nick($1 , $2).pnick) { var %status1 2 }
  449. n447=    elseif ($chr(43) isin $nick($1 , $2).pnick) { var %status1 1 }
  450. n448=    else { var %status1 0 }
  451. n449=  }
  452. n450=
  453. n451=  {
  454. n452=    if ($chr(126) isin $nick($1 , $3).pnick) { var %status2 5 }
  455. n453=    elseif ($chr(38) isin $nick($1 , $3).pnick) { var %status2 4 }
  456. n454=    elseif ($chr(64) isin $nick($1 , $3).pnick) { var %status2 3 }
  457. n455=    elseif ($chr(37) isin $nick($1 , $3).pnick) { var %status2 2 }
  458. n456=    elseif ($chr(43) isin $nick($1 , $3).pnick) { var %status2 1 }
  459. n457=    else { var %status2 0 }
  460. n458=  }
  461. n459=
  462. n460=  {
  463. n461=    if (%status1 > %status2) { return 1 }
  464. n462=    elseif (%status1 == %status2) { return 0 }
  465. n463=    else { return -1 }
  466. n464=  }
  467. n465=}
  468. n466=/upd_peak {
  469. n467=  ;Syntax: <channel>
  470. n468=  ;Usage: increases peak & updates peak time of channel
  471. n469=  writeini channels\ $+ $1 $+ .ini stats peak $nick($chan,0)  
  472. n470=  writeini channels\ $+ $1 $+ .ini stats peakt $gmt
  473. n471=  msg $1 New peak: $chan_peak($chan) $+ !
  474. n472=}
  475. n473=/warn_chan {
  476. n474=  ;Syntax: <channel> <reason>
  477. n475=  ;Usage: Used to warn a channel
  478. n476=  if ($1 != #[MM]IKKE && $1 != #[MM]IKKE.echo && $1 != #AlpinA && $calc($gmt - $chan_warnt($1)) > 86400) {
  479. n477=
  480. n478=    writeini channels\ $+ $1 $+ .ini control warnt $gmt
  481. n479=    inc_warns $1
  482. n480=
  483. n481=    var %bot_say.tmp = $bot_say($chan,2)
  484. n482=
  485. n483=    scon %bot_say.tmp msg #[MM]IKKE 4WARNING:1 Channel $1 got a warning! Reason: $2- ( $+ $chan_warns($1) $+ /5)
  486. n484=    scon %bot_say.tmp msg $1 4WARNING:1 Channel $1 got a warning! Reason: $2- ( $+ $chan_warns($1) $+ /5)
  487. n485=
  488. n486=    scon %owner_s window @Management
  489. n487=    beep
  490. n488=    scon %owner_s aline @Management  Channel $1 got a warning! Reason: $2- ( $+ $chan_warns($1) $+ /5)
  491. n489=
  492. n490=    if ($chan_warns($1) == 5) {
  493. n491=      warn_chan_leave $1
  494. n492=    }
  495. n493=  }
  496. n494=}
  497. n495=/warn_chan_leave {
  498. n496=  ;Syntax: <channel>
  499. n497=  ;Usage: Used to leave a channel when reaching 5/5 warnings
  500. n498=
  501. n499=  writeini channels\ $+ $1 $+ .ini control warns 0
  502. n500=  writeini channels\ $+ $1 $+ .ini control ignore 1
  503. n501=  scon $bot_say($1) msg #[MM]IKKE Left channel $1 after reaching 5/5 warnings.
  504. n502=
  505. n503=  scon %bot1_s bot1delajoin $1
  506. n504=  scon %bot2_s bot2delajoin $1
  507. n505=  ns ajoin del $1
  508. n506=
  509. n507=  scon %bot1_s .leave $1 5/5 warnings
  510. n508=  scon %bot2_s .leave $1 5/5 warnings
  511. n509=
  512. n510=  scon %owner_s window @Management
  513. n511=  scon %owner_s aline @Management  Left channel $1 after reaching 5/5 warnings.
  514. n512=}
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!