_MM_IKKE

othercmds.ini

Nov 21st, 2018
167
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 43.71 KB | None | 0 0
  1. [script]
  2. n0=on 500,543:TEXT:*:#: { halt }
  3. n1=on *:LOAD: {
  4. n2=  set %peak 0
  5. n3=  echo -at Loaded Other commands
  6. n4=  echo -at Set peak  to default - getversion, suggestion, suggest, alert.i, alert.nick is local
  7. n5=}
  8. n6=on *:UNLOAD: {
  9. n7=  unset %peak
  10. n8=  unset %getversion
  11. n9=  unset %suggestion
  12. n10=  unset %suggested
  13. n11=  unset %alert.i
  14. n12=  unset %alert.nick
  15. n13=  echo -at Unloaded Other commands
  16. n14=  echo -at Unset getversion, suggestion, suggested, peak, alert.i, alert.nick
  17. n15=}
  18. n16=on *:TEXT:!svn:#: {
  19. n17=  if ($me == %bot1) {
  20. n18=    scon $bot_say($chan) msg $chan SVN log: http://pastebin.com/PND34bBS
  21. n19=  }
  22. n20=}
  23. n21=on *:TEXT:!ircservers:#: {
  24. n22=  if ($me == %bot1) {
  25. n23=    scon $bot_say($chan) msg $chan Current IRC servers on irc.tl: exnet.fr.irc.tl, gamerx.nl.irc.tl, foco.nl.irc.tl, foco2.us.irc.tl & foco.lu.irc.tl (Bots connected to $server $+ )
  26. n24=  }
  27. n25=}
  28. n26=on *:TEXT:!isbot*:#: {
  29. n27=  if ($me == %bot1 && $1 == !isbot) {
  30. n28=    if ($2) {
  31. n29=      if ($2 isin $read(lists\userbots.txt, w, $2)) {
  32. n30=        scon $bot_say($chan) msg $chan I currently know " $+ $2 $+ " as a user bot
  33. n31=      }
  34. n32=      elseif ($2 isin $read(lists\bots.txt, w, $2)) {
  35. n33=        scon $bot_say($chan) msg $chan I currently know " $+ $2 $+ " as a regular bot
  36. n34=      }
  37. n35=      else {
  38. n36=        scon $bot_say($chan) msg $chan " $+ $2 $+ " is currently not acknowledged as a bot
  39. n37=      }
  40. n38=    }
  41. n39=    else {
  42. n40=      scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !isbot <nick>
  43. n41=    }
  44. n42=  }
  45. n43=}
  46. n44=on *:TEXT:!version*:#: {
  47. n45=  if ($me == %bot1 && $1 == !version) {
  48. n46=    if ($2) {
  49. n47=      if ($2 == %owner || $2 == [MM]IKKE) { scon $bot_say($chan) msg $chan My owners IRC version is: mIRC v $+ $version [MM]IKKE edit }
  50. n48=      elseif ($mybots($2)) { scon $bot_say($chan) msg $chan IRC version of bot $2 is: BotScript %version by [MM]IKKE (in mIRC v $+ $version $+ ) }
  51. n49=      elseif ($2 !ison $chan) { scon $bot_say($chan) msg $chan 4ERROR:1 $2 is not in the channel }
  52. n50=      elseif (%getversion) { scon $bot_say($chan) msg $chan 4ERROR:1 Already getting version for someone else... }
  53. n51=      else {
  54. n52=        set -e %getversion 1, $+ $chan $+ , $+ $2
  55. n53=        scon $bot_say($chan) ctcp $2 version
  56. n54=        .timer 1 5 unset %getversion
  57. n55=      }
  58. n56=    }
  59. n57=    else {
  60. n58=      scon $bot_say($chan) msg $chan My IRC version is: BotScript %version by [MM]IKKE (in mIRC v $+ $version $+ )
  61. n59=    }
  62. n60=  }
  63. n61=}
  64. n62=on *:CTCPREPLY:version*: {
  65. n63=  if ($gettok(%getversion,1,44) == 1 && $gettok(%getversion,3,44) == $nick) {
  66. n64=    scon $bot_say($gettok(%getversion,2,44)) msg $gettok(%getversion,2,44) $nick $+ 's IRC version is: $2-
  67. n65=  }
  68. n66=}
  69. n67=
  70. n68=on *:TEXT:!subchannels:#: {
  71. n69=  if ($me == %bot1) {
  72. n70=    scon $bot_say($chan) msg $chan Current channels:4 #[MM]IKKE 6(Main)1 and4 #[MM]IKKE.echo1.
  73. n71=  }
  74. n72=}
  75. n73=on *:TEXT:!setversion*:#: {
  76. n74=  if ($me == %bot1 && $1 == !setversion && $nick == %owner) {
  77. n75=    if ($2) {
  78. n76=      if ($left($2,1) == v) {
  79. n77=        scon $bot_say($chan) msg $chan Changing version ID from %version to $2 $+ ...
  80. n78=        set %version $2
  81. n79=      }
  82. n80=      else {
  83. n81=        scon $bot_say($chan) msg $chan Changing version ID from %version to v $+ $2 $+ ...
  84. n82=        set %version v $+ $2
  85. n83=      }
  86. n84=      scon $bot_say($chan) .timer 1 1 msg $chan My IRC version changed to: BotScript %version by [MM]IKKE (in mIRC v $+ $version $+ )
  87. n85=    }
  88. n86=    else { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !setversion <version> }
  89. n87=  }
  90. n88=  elseif ($me == %bot1 && $1 == !setversion) { scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command }
  91. n89=}
  92. n90=on *:TEXT:!lines*:#: {
  93. n91=  if ($me == %bot1 && $1 == !lines && $nick == %owner) {
  94. n92=    if ($2) {
  95. n93=      if ($2-3 == all scripts || $2 == total) {
  96. n94=        var %i = 1
  97. n95=        var %lines = 0
  98. n96=        var %scripts = $lines(bot\scriptlist.txt)
  99. n97=        while (%i <= %scripts) {
  100. n98=          inc %lines $lines(scripts\ $+ $read(bot\scriptlist.txt,%i))
  101. n99=          inc %i
  102. n100=        }
  103. n101=        scon $bot_say($chan) msg $chan Lines total scripts: %lines
  104. n102=      }
  105. n103=      elseif ($2-3 == core script) {
  106. n104=        var %i = 1
  107. n105=        var %lines = 0
  108. n106=        var %scripts = $lines(bot\scriptlist.txt)
  109. n107=        while (%i <= %scripts) {
  110. n108=          if (Core Script isin $read(bot\scriptlist.txt,%i) && Jobs\ !isin $read(bot\scriptlist.txt,%i) && Missions\ !isin $read(bot\scriptlist.txt,%i)) {
  111. n109=            inc %lines $lines(scripts\ $+ $read(bot\scriptlist.txt,%i))
  112. n110=          }
  113. n111=          inc %i
  114. n112=        }
  115. n113=        scon $bot_say($chan) msg $chan Lines core script: %lines
  116. n114=      }
  117. n115=      elseif ($2-3 == unused scripts || $2 == unused) {
  118. n116=        var %i = 1
  119. n117=        var %lines = 0
  120. n118=        var %scripts = $lines(bot\scriptlist.txt)
  121. n119=        while (%i <= %scripts) {
  122. n120=          if (Unused isin $read(bot\scriptlist.txt,%i)) {
  123. n121=            inc %lines $lines(scripts\ $+ $read(bot\scriptlist.txt,%i))
  124. n122=          }
  125. n123=          inc %i
  126. n124=        }
  127. n125=        scon $bot_say($chan) msg $chan Lines unused scripts: %lines
  128. n126=      }
  129. n127=      elseif ($2 == MM) {
  130. n128=        var %i = 1
  131. n129=        var %lines = 0
  132. n130=        var %scripts = $lines(bot\scriptlist.txt)
  133. n131=        while (%i <= %scripts) {
  134. n132=          if (MM-FTW isin $read(bot\scriptlist.txt,%i)) {
  135. n133=            inc %lines $lines(scripts\ $+ $read(bot\scriptlist.txt,%i))
  136. n134=          }
  137. n135=          inc %i
  138. n136=        }
  139. n137=        scon $bot_say($chan) msg $chan Lines MM scripts: %lines
  140. n138=      }
  141. n139=      elseif ($2 == MM_old) {
  142. n140=        var %i = 1
  143. n141=        var %lines = 0
  144. n142=        var %scripts = $lines(bot\scriptlist.txt)
  145. n143=        while (%i <= %scripts) {
  146. n144=          if (MM_OLD isin $read(bot\scriptlist.txt,%i)) {
  147. n145=            inc %lines $lines(scripts\ $+ $read(bot\scriptlist.txt,%i))
  148. n146=          }
  149. n147=          inc %i
  150. n148=        }
  151. n149=        scon $bot_say($chan) msg $chan Lines MM_OLD scripts: %lines
  152. n150=      }
  153. n151=      elseif ($2-4 == scripts in use) {
  154. n152=        var %i = 1
  155. n153=        var %lines = 0
  156. n154=        var %scripts = $lines(bot\scriptlist.txt)
  157. n155=        while (%i <= %scripts) {
  158. n156=          if ($chr(92) !isin $read(bot\scriptlist.txt,%i)) {
  159. n157=            inc %lines $lines(scripts\ $+ $read(bot\scriptlist.txt,%i))
  160. n158=          }
  161. n159=          inc %i
  162. n160=        }
  163. n161=        scon $bot_say($chan) msg $chan Lines scripts in use: %lines
  164. n162=      }
  165. n163=      elseif ($2 == jobs) {
  166. n164=        var %i = 1
  167. n165=        var %lines = 0
  168. n166=        var %scripts = $lines(bot\scriptlist.txt)
  169. n167=        while (%i <= %scripts) {
  170. n168=          if (Core Script\Jobs isin $read(bot\scriptlist.txt,%i)) {
  171. n169=            inc %lines $lines(scripts\ $+ $read(bot\scriptlist.txt,%i))
  172. n170=          }
  173. n171=          inc %i
  174. n172=        }
  175. n173=        scon $bot_say($chan) msg $chan Lines job scripts: %lines
  176. n174=
  177. n175=      }
  178. n176=      elseif ($2 == missions) {
  179. n177=        var %i = 1
  180. n178=        var %lines = 0
  181. n179=        var %scripts = $lines(bot\scriptlist.txt)
  182. n180=        while (%i <= %scripts) {
  183. n181=          if (Core Script\Missions isin $read(bot\scriptlist.txt,%i)) {
  184. n182=            inc %lines $lines(scripts\ $+ $read(bot\scriptlist.txt,%i))
  185. n183=          }
  186. n184=          inc %i
  187. n185=        }
  188. n186=        scon $bot_say($chan) msg $chan Lines mission scripts: %lines
  189. n187=      }
  190. n188=      elseif ($2 == RPG) {
  191. n189=        var %i = 1
  192. n190=        var %lines = 0
  193. n191=        var %scripts = $lines(bot\scriptlist.txt)
  194. n192=        while (%i <= %scripts) {
  195. n193=          if (Core Script isin $read(bot\scriptlist.txt,%i)) {
  196. n194=            inc %lines $lines(scripts\ $+ $read(bot\scriptlist.txt,%i))
  197. n195=          }
  198. n196=          inc %i
  199. n197=        }
  200. n198=        scon $bot_say($chan) msg $chan Lines RPG scripts: %lines
  201. n199=      }
  202. n200=      else {
  203. n201=        if ($exists($2-)) {
  204. n202=          scon $bot_say($chan) msg $chan $2- contains $lines($2-) lines
  205. n203=        }
  206. n204=        elseif ($exists(bot\ $+ $2- )) {
  207. n205=          scon $bot_say($chan) msg $chan Text file: $2- contains $lines(bot\ $+ $2- ) lines
  208. n206=        }
  209. n207=        elseif ($exists(lists\ $+ $2- )) {
  210. n208=          scon $bot_say($chan) msg $chan Text file: $2- contains $lines(lists\ $+ $2- ) lines
  211. n209=        }
  212. n210=        elseif ($exists(PMs\ $+ $2- )) {
  213. n211=          scon $bot_say($chan) msg $chan Text file: $2- contains $lines(PMs\ $+ $2- ) lines
  214. n212=        }
  215. n213=        elseif ($exists(scripts\ $+ $2- )) {
  216. n214=          scon $bot_say($chan) msg $chan Script: $2- contains $lines(scripts\ $+ $2- ) lines
  217. n215=        }
  218. n216=        elseif ($exists(scripts\MM_OLD\ $+ $2- )) {
  219. n217=          scon $bot_say($chan) msg $chan Script: $2- contains $lines(scripts\MM_old\ $+ $2- ) lines
  220. n218=        }
  221. n219=        elseif ($exists(scripts\MM-FTW\ $+ $2- )) {
  222. n220=          scon $bot_say($chan) msg $chan Script: $2- contains $lines(scripts\MM-FTW\ $+ $2- ) lines
  223. n221=        }
  224. n222=        elseif ($exists(scripts\Unused\ $+ $2- )) {
  225. n223=          scon $bot_say($chan) msg $chan Script: $2- contains $lines(scripts\Unused\ $+ $2- ) lines
  226. n224=        }
  227. n225=        elseif ($exists(scripts\Core Script\ $+ $2- )) {
  228. n226=          scon $bot_say($chan) msg $chan Script: $2- contains $lines(scripts\Core Script\ $+ $2- ) lines
  229. n227=        }
  230. n228=        elseif ($exists(scripts\Core Script\jobs\ $+ $2- )) {
  231. n229=          scon $bot_say($chan) msg $chan Script: $2- contains $lines(scripts\jobs\ $+ $2- ) lines
  232. n230=        }
  233. n231=        elseif ($exists(scripts\Core Script\Missions\ $+ $2- )) {
  234. n232=          scon $bot_say($chan) msg $chan Script: $2- contains $lines(scripts\Missions\ $+ $2- ) lines
  235. n233=        }
  236. n234=        elseif ($exists(Stats\ $+ $2- )) {
  237. n235=          scon $bot_say($chan) msg $chan Text file: $2- contains $lines(Stats\ $+ $2- ) lines
  238. n236=        }
  239. n237=        else { scon $bot_say($chan) msg $chan 4ERROR: File $2- does not exist (maybe search other directories?) }
  240. n238=      }
  241. n239=    }
  242. n240=    else { scon $bot_say($chan) msg $chan 4ERROR: Usage: !lines <filename|RPG|core script|unused|MM_old|scripts in use|all scripts|jobs|missions> }
  243. n241=  }
  244. n242=  elseif ($1 == !lines && $me == %bot1) { scon $bot_say($chan) msg $chan 4ERROR: You are not authorized to use this command }
  245. n243=
  246. n244=}
  247. n245=on *:TEXT:!update:#: {
  248. n246=  if ($me == %bot1) {
  249. n247=    scon $bot_say($chan) msg $chan Update list can be found here: http://pastebin.com/PND34bBS
  250. n248=  }
  251. n249=}
  252. n250=on *:TEXT:!sugg*:#: {
  253. n251=  if ($me == %bot1 && ($1 == !sugg || $1 == !suggest || $1 == !suggestion)) {
  254. n252=    if ($2 != $null) {
  255. n253=      if (%suggested == $null) {
  256. n254=        scon $bot_say($chan) .notice $nick Suggestion has been sent!
  257. n255=        scon $bot_say($chan) .msg %owner New suggestion from $nick $+ $chr(58) $2-
  258. n256=        set -e %suggested $nick
  259. n257=        set -e %suggestion $2-
  260. n258=      }
  261. n259=      else { scon $bot_say($chan) msg $chan 4ERROR:1 There's already another suggestion in the query }
  262. n260=    }
  263. n261=    else { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: $1 <suggestion> }
  264. n262=  }
  265. n263=}
  266. n264=on *:TEXT:!suggestion:?: {
  267. n265=  if ($mybots($me) && $nick == %owner) {
  268. n266=    if (%suggested) {
  269. n267=      .msg %owner Suggestion: %suggestion (by2 %suggested $+ 1)
  270. n268=    }
  271. n269=    else {
  272. n270=      .msg %owner There is no suggestion in query
  273. n271=    }
  274. n272=  }
  275. n273=}
  276. n274=on *:TEXT:!accept*:?: {
  277. n275=  if ($mybots($me) && $nick == %owner && $1 == !accept) {
  278. n276=    if (%suggested) {
  279. n277=      if ($2 == $null) {
  280. n278=        .msg %suggested Your suggestion ( $+ %suggestion $+ ) has been accepted by $nick at $fulldate
  281. n279=        .msg $nick Accept message has been sent to %suggested
  282. n280=      }
  283. n281=      else {
  284. n282=        .msg %suggested Your suggestion ( $+ %suggestion $+ ) has been accepted by $nick at $fulldate (Note: $2- $+ )
  285. n283=        .msg $nick Accept message has been sent to %suggested (Note: $2- $+ )
  286. n284=      }
  287. n285=      if (Add adjective isin %suggestion) {
  288. n286=        write bot\adjectives.txt $remove(%suggestion, add adjective )
  289. n287=        var %adj = $remove(%suggestion, add adjective )
  290. n288=        .msg $nick Added adjective " $+ $right(%adj,$calc($len(%adj)-1)) $+ "
  291. n289=        inc %amadj
  292. n290=      }
  293. n291=      if (Add noun isin %suggestion) {
  294. n292=        write bot\nouns.txt $remove(%suggestion, add noun )
  295. n293=        var %noun = $remove(%suggestion, add noun )
  296. n294=        .msg $nick Added noun " $+ $right(%noun,$calc($len(%noun)-1)) $+ "
  297. n295=        inc %amnou
  298. n296=      }
  299. n297=      unset %suggested
  300. n298=      unset %suggestion
  301. n299=    }
  302. n300=    else {
  303. n301=      .msg %owner 4ERROR:1 There is no suggestion in query
  304. n302=    }
  305. n303=  }
  306. n304=}
  307. n305=on *:TEXT:!deny*:?: {
  308. n306=  if ($mybots($me) && $nick == %owner && $1 == !deny) {
  309. n307=    if (%suggested) {
  310. n308=      if ($2 == $null) {
  311. n309=        .msg %suggested Your suggestion ( $+ %suggestion $+ ) has been denied by $nick at $fulldate
  312. n310=        .msg $nick Denial message has been sent to %suggested
  313. n311=      }
  314. n312=      else {
  315. n313=        .msg %suggested Your suggestion ( $+ %suggestion $+ ) has been denied by $nick at $fulldate (Reason: $2- $+ )
  316. n314=        .msg $nick Denial message has been sent to %suggested (Reason: $2- $+ )
  317. n315=      }
  318. n316=      unset %suggested
  319. n317=      unset %suggestion
  320. n318=    }
  321. n319=    else {
  322. n320=      .msg %owner 4ERROR:1 There is no suggestion made...
  323. n321=    }
  324. n322=  }
  325. n323=}
  326. n324=on *:TEXT:!report*:#: {
  327. n325=  if ($me == %bot1 && $1 == !report && $chan != #mini-missions) {
  328. n326=    if ($2 != $null) {
  329. n327=      scon $bot_say($chan) .notice $nick Report has been sent!
  330. n328=      scon $bot_say($chan) .msg %owner Report from $nick $+ : $2-
  331. n329=    }
  332. n330=    else { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !report <report> }
  333. n331=  }
  334. n332=}
  335. n333=on *:TEXT:!info:#: {
  336. n334=  if ($me == %bot1) {
  337. n335=    scon $bot_say($chan) .notice $nick 1Usage: !info <message>. It contains info about some general IRC terms, GTA SA terms and some info about the history of the MM tag. Check out !info MMhistory, this will tell you the full story about MM, but it's a very long text.
  338. n336=  }
  339. n337=}
  340. n338=on *:TEXT:!info*:#: {
  341. n339=  if ($me == %bot1 && $1 == !info) {
  342. n340=    if ($2 == $null) { scon $bot_say($chan) .notice $nick 4ERROR:1 Usage: !info <message> }
  343. n341=    elseif ($2 == random) { scon $bot_say($chan) .notice $nick 2The bots are set to store any non-bot message (!quotesamount to return the amount of quotes). I also made a script which makes them randomly send messages. Each bot sends 1 message per 4 to 8 minutes in a random channel (I can blacklist channels on request). People often react to it, which makes it funny. }
  344. n342=    elseif ($2 == version4) { scon $bot_say($chan) .notice $nick 2This will include a huge update and reset of the RPG. Current features: Made ready to run on ANY computer (finished), other accounts system, 2 missions (robbery & ???), new taxi and drugdeal system, duel bots and some GTA related things. Release date: 4CANCELED. }
  345. n343=    elseif ($2 == taxi) { scon $bot_say($chan) .notice $nick 2You get 100 cash for each minutes you drive around. It works with a floor function, which means 59secs = 0minutes. }
  346. n344=    elseif ($2 == drugdeal) { scon $bot_say($chan) .notice $nick 2You're cash for dealing drugs is calculated as following: each minute you deal, you get 6 options: getting 500/200/100/25/10 cash, or losing all cash you earned. }
  347. n345=    elseif ($2 == races) { scon $bot_say($chan) .notice $nick 2The winner of the race is calculated via reaction time. If you reply fast, you get less reaction time than another user replying more slow, so you are "faster" than him/her. In the end, all times are summed up. The player with the less reaction time wins. }
  348. n346=    elseif ($2 == skillpoints) { scon $bot_say($chan) .notice $nick 2In the RPG, 80% of the kills are via skillpoints. It works like this: a minigun has 200k skills points, fists 50. This means you have a chance of $calc(50*100/(50+200000)) $+ $chr(37) to win with fists (50/(50+200000)) }
  349. n347=    elseif ($2 == RPG) { scon $bot_say($chan) .notice $nick 2I have made a little RPG, based on San Andreas. I worked hard on it, to increase my scripting skills, but I guess it turned out to be fun too. The objective of the game is just to have fun, you can keep on playing endlessly. I hope you'll enjoy it. 4CANCELED PROJECT DUE TO NO INTEREST. }
  350. n348=    elseif ($2 == accounts) { scon $bot_say($chan) .notice $nick 1I am currently making a little role-play game, based on SA. The core script hasn't been finished yet, and I still need to add some features. See !update. The RPG is part of my new bot version, v3.0.0 (disabled) }
  351. n349=    elseif ($2-3 == core script) { scon $bot_say($chan) .notice $nick 1A core script is a script which contains basic commands. For example, decreasing health in GTA is a part of the core script. Missions and/or objects are not elements of a core script. }
  352. n350=    elseif ($2 == MMChat) { scon $bot_say($chan) .notice $nick 1This update includes all admin commands (slap/mute/getip/kick for mods and jail/explode/ban/banip/remove/clear/weather/time for admins). If you have the required level, you can use them in this channel, a tag will be added. If you do not have the required, nothing will happen (besides if you use !time - this is an old command). If something else is missing, it should give you an error. If not, please use !report. Enjoy your time at #[MM]IKKE. This command has currently been disabled (Reason: MM is down). }
  353. n351=    elseif ($2 == learningmode) { scon $bot_say($chan) .notice $nick 1This update is about the knowledge of the bots. If learningmode is turned on, the bot will scan each single word that is being said in the channels. If the bot already knows the word, it'll scan the next word. If it doesn't, it will add the word to its dictionary. Use !dictionary to know how much words the bot knows. }
  354. n352=    elseif ($2 == Botids) { scon $bot_say($chan) .notice $nick 1The botids are used to have a better synchronisation. IKKE1 is id 1, IKKE2 is id 2 etc. Also check out !info vars. }
  355. n353=    elseif ($2 == crashmode) { scon $bot_say($chan) .notice $nick 1Crash mode is a special }
  356. n354=    elseif ($2 == vars || $2 == variables) { scon $bot_say($chan) .notice $nick 1Vars or variables are used to assign values to a specified pattern. Some vars are preset, like $ip returns your ip (try //echo $ip). You can also manually assign values to an own variable. For example, in my scipts I use variable "%owner", which has the value "[MM]IKKE". This makes it easy for me to make commands. }
  357. n355=    elseif ($2 == SoMM || $2-4 == Son of Minimissions  || $2-4 == Son of Mini-missions || $2-5 == Son of Mini Missions) { scon $bot_say($chan) .notice $nick 1SoMM - Son of Mini-Missions - is a server made by Redirect_Left. As MID gave his permission, it really is the official follow-up of Mini-Missions. Other commands: !info <MID|MM>. For a full history (long text!), type !info MMhistory. }
  358. n356=    elseif ($2 == MM || $2 == Mini-missions || $2 == minimissions || $2-3 == Mini Missions) { scon $bot_say($chan) .notice $nick 1MM - Mini-missions used to be a GTA SA:MP server. It was founded by MID and NIR, and it was unique because it was the first server which contained team death-matches. It had 3 seasons, and closed for an unknown reason in middle August 2010. }
  359. n357=    elseif ($2 == mod || $2 == moderator || $2 == mods || $2 == moderators) { scon $bot_say($chan) .notice $nick 1Moderators - or level 1 admins - are people who have to lead the game. They should keep an eye on the game, and catch any rulebreakers. The difference between mods and admins is that mods cannot use some commands, like ban, explode, akill or jail. Mods might also mean Modifications, changes you add to your game. }
  360. n358=    elseif ($2 == admin || $2 == admins || $2 == administrator || $2 == administrators) { scon $bot_say($chan) .notice $nick 1Administrators - or level 2 admins - are people who have to lead the game. They should keep an eye on the game, and catch any rulebreakers. Admins can use most of the commands, except the server control commands. }
  361. n359=    elseif ($2 == RCON) { scon $bot_say($chan) .notice $nick 1RCON or Remote Control is the entrance for server owners. They can edit their server via this mode. You need an RCON password to access this mode. }
  362. n360=    elseif ($2 == IRC) { scon $bot_say($chan) .notice $nick 1IRC - Internet Relay Chat - is a program to chat with people. You are actually using IRC right now. There are several providers of programs to connect to IRC, like mIRC, PJIRC or Java. }
  363. n361=    elseif ($2 == mIRC) { scon $bot_say($chan) .notice $nick 1mIRC is an IRC program, which allows you to script in it. For example, this command has been made in mIRC. }
  364. n362=    elseif ($2 == MID) { .notice $nick 1MID, earlier "Midnight", is the mysterious owner of MM. We do not know much about him, but we do know that he's from Lithuania. He used to own MM, but suddenly disappeared at the end of July 2010. }
  365. n363=    elseif ($2 == Redirect_Left || $2 == RDL) { scon $bot_say($chan) .notice $nick 1Redirect_Left (RDL) is the current british owner of SoMM. He used to have his own server group, jServers, but that closed because of money problems. After being offline for some months, he decided re-opening some servers, including SoMM and Sumo. }
  366. n364=    elseif ($2 == NIR) { scon $bot_say($chan) .notice $nick 1I don't know much about NIR, as I have never spoken to him. But I do know that it was a friend of MID, and that they owned Mini-Missions in the first days. }
  367. n365=    elseif ($2 == Andre || $2 == Andre9977) { scon $bot_say($chan) .notice $nick 1Andre9977 used to be a friend of MID, and co-owned MM in the early first season. But he tried to take over the server, and MID didn't want him to. That caused Andre to release the MM script and the MySQL Database. Since then, MID didn't trust much people. Andre is now a famous south-american hacker. }
  368. n366=    elseif ($2 == Trent_Edwards) { scon $bot_say($chan) .notice $nick 1Trent_Edwards was an MM player in the first season. He was an admin of the highest level, together with Smokedout. But on the forums, he started having a bad attitude, and eventually he left the server. He hopped in once in MM Season2, showing us the real identity of [Famous]Kate. }
  369. n367=    elseif ($2 == [Famous]Kate) { scon $bot_say($chan) .notice $nick 1[Famous]Kate was an MM player in the second season of MM. "She" got moderator very fast, and started ass-licking the admins. "She" acted like being drunk, and once posted topless pictures on the forums. Eventually it turned out "She" was a he, who lived in Gent (BE) and who already fooled around a lot of players in GTA. }
  370. n368=    elseif ($2 == Molly) { scon $bot_say($chan) .notice $nick 1Molly is a famous british player of MM. She used to be a member of the first admin team of MM, and she was also an inactive admin in Season2. She was known to post random topics in the forums, and having much interests in other languages. Almost everybody loves her, but she quit playing GTA SA since the release of GTA IV. }
  371. n369=    elseif (Smoke isin $2-) { scon $bot_say($chan) .notice $nick 1Smokedout (~other nicks) was one of the first players of MM. He's from America. In every single Season of MM, he used to be a head admin. He is known to be very friendly, and has a lot of intrests in cars and birds. I like to call him uncle Smoke, because he has always been around. }
  372. n370=    elseif ($2 == Murphy) { scon $bot_say($chan) .notice $nick 1Murphy was an old, german MM admin. He used to be an admin in Season 1 and 2. But at the end of Season 2, he was mad at MID because MID didn't update the server. Afterwards, he left SA:MP and started playing GTA IV. }
  373. n371=    elseif ($2 == Magnesium || $2 == Remi || $2 == Cesar || $2 == Rashon || Dokaz isin $2- || Dok4z isin $2- || $2 == Vince[BE]) { scon $bot_say($chan) .notice $nick 1 $+ $2 is also one of the first season admins. The golden admin team. }
  374. n372=    elseif ($2 == DJLOBO) { scon $bot_say($chan) .notice $nick 1Not much people remember this, but DJLobo was a Portuguese, regular first season player. After MM closed, he started up his own server. Then lots of troubles came over him, and eventually he got a ban on SA:MP. Nowadays he has a server on MTA. In real life, he's a DJ and he even has an own Label. }
  375. n373=    elseif ($2 == Zee) { scon $bot_say($chan) .notice $nick 1Zee is an old school, egyptian player of MM. In Season 2, he used to be an admin. In Season 3, he was quite inactive, and he still is. He is known as a partyking. }
  376. n374=    elseif ($2 == Heerlenking) { scon $bot_say($chan) .notice $nick 1Heerlenking is one of the eldest MM players I know. But he left MM after the first season of MM. Nowadays he's busy scripting SM:MP (Super Mario:MultiPlayer) }
  377. n375=    elseif (andro isin $2-) { scon $bot_say($chan) .notice $nick 1Andromeda, an old, finnish MM player, is also known as Phoenix or Nova. She doesn't say much, but she's a very lovely girl. She has always been an admin in MM since I played there. Her [TF] tag comes from The Fake, an old SA:MP server. }
  378. n376=    elseif (Razor isin $2-) { scon $bot_say($chan) .notice $nick 1Razor is a german MM player. He has been around since Season 1, and even helped admining in Season 2. He's a Borussia Mönchengladbach Ultra. }
  379. n377=    elseif (Fanto isin $2-) { scon $bot_say($chan) .notice $nick 1Fantomas is a greek MM player, since Season 1. He admined in Season 2 and 3. His first tag was [LSD], now it's [LSR]. }
  380. n378=    elseif ($2 == brett7) { scon $bot_say($chan) .notice $nick 1brett7 is one of the players I first met on MM. He was just a regular player, but after Season 1, he tried making a server. It didn't last long. He quit SA:MP after having troubles with MID. }
  381. n379=    elseif ($2 == H3iizer) { scon $bot_say($chan) .notice $nick 1This south-american player is already gone for a while. He played in MM in Season 1, but since he couldn't join SA:MP because of a south-american range-ban, he quit SA:MP. He used to be in the [LAK] clan. }
  382. n380=    elseif ($2 == Saving) { scon $bot_say($chan) .notice $nick 1Saving is an old MM player, who was very good at making videos. Sadly enough, he left MM after Season 2. }
  383. n381=    elseif ($2 == Infinity) { scon $bot_say($chan) .notice $nick 1Infinity is RDL's running dog. He does all the boring stuff, like converting scripts etc. He's dutch. }
  384. n382=    elseif (Shen isin $2-) { scon $bot_say($chan) .notice $nick 1Shen_Lande was one of the MM players I first met. He was excessively playing MM, but quit SA:MP when GTA IV got released. He had an own server for some months. }
  385. n383=    elseif (IKKE isin $2-) { scon $bot_say($chan) .notice $nick 4ERROR:1 Top Secret Information (Deleted by CIA) }
  386. n384=    elseif ($2 == MMhistory) {
  387. n385=      var %bot_say.tmp $bot_say($chan,22)
  388. n386=      scon %bot_say.tmp .notice $nick 1MM started somewhere in 2007. It was the first SA:MP server which contained Team Death-Matches (Missions). In the early times, it was owned by MID and NIR. It only had 32 player slots. I don't know much about this period, because I wasn't there. I do know that NIR left MM and that another admin, Andre3399 came. He used to be a good guy, but then he suddenly tried to take over MM and when he failed, he sold the scripts of the server.
  389. n387=      scon %bot_say.tmp .timer 1 2 .notice $nick 1Since then, MID didn't trust anybody. Trent_Edwards and Smokedout became head admins, and the server upgraded to 50 players. The Golden Admin Team was born. But in September 2008, the server got DDoS'ed. This is the time when I joined. I liked the name of the server, so I joined. Because of the DDoS, it took 10mins to connect and only 20 players could come IG.
  390. n388=      scon %bot_say.tmp .timer 1 4 .notice $nick 1After those problems were solved, I became a regular member on the server. Everything went fine, but we didn't see MID a lot at that time. In January 2009, MID got blackmailed by some hackers, who wanted money. Although they did get caught by the police, the server closed because of DDoS problems. At this time, a lot of regular MM players tried making other missions related servers, but none of them was as successfull as the first one.
  391. n389=      scon %bot_say.tmp .timer 1 6 .notice $nick 1Some months later, MID suddenly joined IRC and said that he would open a second Season of MM. I am still proud that I've helped him testing the server. Yes, I was an alpha-tester, among with Murphy, Adstar82 and MID. This is the period in which MID was the most online since I joined MM. We finished MM Season 2 and it became a big success.
  392. n390=      scon %bot_say.tmp .timer 1 8 .notice $nick 1These successfull days caused MID to even open a second server with 75 player slots! The second server was half-filled, but the first one was 24/7 full. MID used to be online then, under the name AdminAlbert. Later on that season, he suddenly disappeared. Because the server didn't update anymore, the second server closed and we had less players. After a lot of raging admins and mods and after the release of SA:MP v0.3a, MID decided to close the server.
  393. n391=      scon %bot_say.tmp .timer 1 10 .notice $nick 1This is where Redirect_Left shows up. A lot of players wanted to make a Missions related server, but he was the only one with permission of MID. So he made SoMM. This was a very successfull server, and it updated a lot. But after some months, MID appeared again, and because of the deal they made, SoMM had to close. MM Season3 started...
  394. n392=      scon %bot_say.tmp .timer 1 12 .notice $nick 1Again, MID wasn't around, and there weren't even any new features on the server. Nothing was new, it was still the Season2 scipt. We tried being angry at MID, but he was never there. He seldom joined under nick VanceX. He hasn't been seen around since end of July 2010. That week, the domain "mini-missions.com" expired, so we didn't have a site to go on, unless we went directly via FFSNetwork.
  395. n393=      scon %bot_say.tmp .timer 1 14 .notice $nick 1In the beginning of August 2010, the server disappeared from the hosted list, which means MID didn't pay the required 10 EUR. Later that month the server suddenly disappeared, we still don't know what exactly happened, but we all think that it closed because MID didn't pay for it. FFSNetwork doesn't want to give use any more information.
  396. n394=      scon %bot_say.tmp .timer 1 16 .notice $nick 1RDL remembered the deal he made with MID, so he again joined IRC, and told us he might re-open SoMM. But he came in money problems, so he couldn't host the server anymore. He also did not have too much time to spend on the server. That's why he gave the ownership to Infinity, his mate. At the moment, Infinity is trying to set up the server like it used to be.
  397. n395=      scon %bot_say.tmp .timer 1 18 .notice $nick 1Didn't bother writing more, MM v5 by FuTuRe is now up.
  398. n396=    }
  399. n397=    else { scon $bot_say($chan) .notice $nick 4ERROR:1 " $+ $2- $+ " is not in the list }
  400. n398=  }
  401. n399=}
  402. n400=on *:TEXT:!uptime:#: {
  403. n401=  if ($me == %bot1 && $chan != #mini-missions) {
  404. n402=    scon $bot_say($chan) msg $chan Current uptime is: $uptime(mirc,1)
  405. n403=  }
  406. n404=}
  407. n405=on *:TEXT:!uptime*:#: {
  408. n406=  if ($me == $2 && $1 == !uptime) {
  409. n407=    msg $chan Current uptime is: $uptime(server,1)
  410. n408=  }
  411. n409=  elseif (!$mybots($2) && $2 != %owner && ($2 == mirc || $2 == system) && $me == %bot1 && $1 == !uptime) {
  412. n410=    scon $bot_say($chan) msg $chan Current uptime of $2 is: $uptime($2,2)
  413. n411=  }
  414. n412=  elseif ($2 == $null && $me == %bot1 && $1 == !uptime) {
  415. n413=    scon $bot_say($chan) msg $chan Current uptime is: $uptime(mirc,1)
  416. n414=  }
  417. n415=  elseif ($1 == !uptime) {
  418. n416=    if ($me == %bot1 && !$mybots($2)) {
  419. n417=      scon $bot_say($chan) msg $chan 4ERROR: 1Incorrect usage of the command, use !uptime < $+ %bot1 $+ / $+ %bot2 $+ / $+ %owner $+ /mirc/system>  
  420. n418=    }
  421. n419=  }
  422. n420=}
  423. n421=on *:TEXT:*[MM]IKKE*:#: {
  424. n422=  if ($strip($1) == [MM]IKKE && $2 == $null && $me == %owner && $nick !isin $read(lists\bots.txt,w, $nick) && $nick !isin $read(lists\userbots.txt,w, $nick) && $chan != #sa-mp && $chan != #help) {
  425. n423=    if ($nick != %alert.nick) {
  426. n424=      msg $chan $nick
  427. n425=      set -e %alert.i 1
  428. n426=      set -e %alert.nick $nick
  429. n427=    }
  430. n428=    elseif (%alert.i < 2 && %alert.nick == $nick) {
  431. n429=      msg $chan $nick
  432. n430=      inc -e %alert.i
  433. n431=    }
  434. n432=  }
  435. n433=}
  436. n434=
  437. n435=on *:TEXT:*.:#[MM]IKKE: {
  438. n436=  if ($me == %bot1 && $nick !isin $read(lists\userbots.txt, w, $nick) && $nick !isin $read(lists\bots.txt, w, $nick) && !$mybots($nick) && $calc($gmt - $chan_dot($chan)) >= 60) {
  439. n437=    writeini channels\ $+ $chan $+ .ini stats dot $gmt
  440. n438=    var %i = 1
  441. n439=    while ([ $chr(36) $+ [ %i ]  ]) {
  442. n440=      inc %i
  443. n441=    }
  444. n442=    dec %i
  445. n443=    var %j = $len([ $chr(36) $+ [ %i ]  ])
  446. n444=    var %k = 0
  447. n445=
  448. n446=    while (%j >= 1 && $mid([ $chr(36) $+ [ %i ]  ], %j, 1) == .) {
  449. n447=      inc %k
  450. n448=      dec %j
  451. n449=    }
  452. n450=
  453. n451=    var %l = $rand(1,4)
  454. n452=    if (%l = 1) {
  455. n453=      if (%k <= 50) { scon $bot_say($chan) msg $chan $str(DOT $+ $chr(32), %k) }
  456. n454=      else { scon $bot_say($chan) msg $chan DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT... }
  457. n455=    }
  458. n456=    elseif (%l = 2) {
  459. n457=      if (%k <= 50) {
  460. n458=        if ($calc(%k /3) == $round($calc(%k /3),0)) { scon $bot_say($chan) msg $chan $str(DOT DOT DOT $+ $chr(32), $calc(%k /3)) }
  461. n459=        elseif ($calc((%k - 1) /3) == $round($calc(%k /3),0)) { scon $bot_say($chan) msg $chan $str(DOT DOT DOT $+ $chr(32), $round($calc(%k /3),0)) DOT }
  462. n460=        elseif ($calc((%k + 1) /3) == $round($calc(%k /3),0)) { scon $bot_say($chan) msg $chan $str(DOT DOT DOT $+ $chr(32), $round($calc((%k -1) /3),0)) DOT DOT }
  463. n461=      }
  464. n462=      else { scon $bot_say($chan) msg $chan DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT DOT... }
  465. n463=    }
  466. n464=    elseif (%l = 3) {
  467. n465=      if (%k <= 50) {
  468. n466=        var %m = 1
  469. n467=        set %tempmsg $null
  470. n468=        while (%m <= %k) {
  471. n469=          set %tempmsg %tempmsg  $+ $rand(2,13) $+ DOT
  472. n470=          inc %m
  473. n471=        }
  474. n472=        scon $bot_say($chan) msg $chan %tempmsg
  475. n473=        unset %tempmsg
  476. n474=      }
  477. n475=      else { scon $bot_say($chan) msg $chan  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT  $+ $rand(2,13) $+ DOT $+ 1,0...  }    
  478. n476=    }
  479. n477=    elseif (%l = 4) {
  480. n478=      if (%k <= 50) {
  481. n479=        var %m = 1
  482. n480=        set %tempmsg $null
  483. n481=        while (%m <= %k) {
  484. n482=          set %tempmsg %tempmsg  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT $+ 1,0
  485. n483=          inc %m
  486. n484=        }
  487. n485=        scon $bot_say($chan) msg $chan %tempmsg
  488. n486=        unset %tempmsg
  489. n487=      }
  490. n488=    else { scon $bot_say($chan) msg $chan  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0  $+ $rand(2,13) $+ , $+ $rand(2,13) $+ DOT1,0 $+ 1,0...  }     }
  491. n489=  }
  492. n490=}
  493. n491=on *:TEXT:*IKKE1*:#: {
  494. n492=  if ($me == %bot1 && $chr(63) isin $1- && $nick !isin $read(lists\userbots.txt, w, $nick) && $nick !isin $read(lists\bots.txt, w, $nick)) {
  495. n493=    if (why isin $1-2) {
  496. n494=      var %i = $rand(1,3)
  497. n495=      if (%i <= 2) {
  498. n496=        msg $chan  $+ $nick $+ : $read(bot\8ballwhy.txt)
  499. n497=      }
  500. n498=      else {
  501. n499=        var %adjective = $read(bot\adjectives.txt)
  502. n500=        var %noun = $read(bot\nouns.txt)
  503. n501=        msg $chan  $+ $nick $+ : Because of $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    
  504. n502=      }
  505. n503=    }
  506. n504=    elseif (what isin $1-2) {
  507. n505=      var %i = $rand(1,3)
  508. n506=      if (%i <= 2) {
  509. n507=        msg $chan  $+ $nick $+ : $read(bot\8ballwhat.txt)
  510. n508=      }
  511. n509=      else {
  512. n510=        var %adjective = $read(bot\adjectives.txt)
  513. n511=        var %noun = $read(bot\nouns.txt)
  514. n512=        msg $chan  $+ $nick $+ : That is $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    
  515. n513=      }
  516. n514=
  517. n515=    }
  518. n516=    elseif (how isin $1-2) {
  519. n517=      var %i = $rand(1,3)
  520. n518=      if (%i <= 2) {
  521. n519=        msg $chan  $+ $nick $+ : $read(bot\8ballhow.txt)
  522. n520=      }
  523. n521=      else {
  524. n522=        var %adjective = $read(bot\adjectives.txt)
  525. n523=        var %noun = $read(bot\nouns.txt)
  526. n524=        msg $chan  $+ $nick $+ : Using a $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    
  527. n525=      }
  528. n526=    }
  529. n527=    elseif (when isin $1-2) {
  530. n528=      var %i = $rand(1,10)
  531. n529=      if (%i <= 8) {
  532. n530=        msg $chan  $+ $nick $+ : $read(bot\8ballwhen.txt)
  533. n531=      }
  534. n532=      elseif (%i == 9) {
  535. n533=        msg $chan  $+ $nick $+ : At $asctime($rand(0,$ctime),d mmmm yyyy)
  536. n534=      }
  537. n535=      else {
  538. n536=        msg $chan  $+ $nick $+ : At $+($rand(0,23),:,$rand(0,59),$chr(44)) obviously
  539. n537=      }
  540. n538=    }
  541. n539=    else {
  542. n540=      msg $chan  $+ $nick $+ : $read(bot\8ball.txt)
  543. n541=    }
  544. n542=  }
  545. n543=}
  546. n544=on *:TEXT:*IKKE2*:#: {
  547. n545=  if ($me == %bot2 && $chr(63) isin $1- && $nick !isin $read(lists\userbots.txt, w, $nick) && $nick !isin $read(lists\bots.txt, w, $nick)) {
  548. n546=    if (why isin $1-2) {
  549. n547=      var %i = $rand(1,3)
  550. n548=      if (%i <= 2) {
  551. n549=        msg $chan  $+ $nick $+ : $read(bot\8ballwhy.txt)
  552. n550=      }
  553. n551=      else {
  554. n552=        var %adjective = $read(bot\adjectives.txt)
  555. n553=        var %noun = $read(bot\nouns.txt)
  556. n554=        msg $chan  $+ $nick $+ : Because of $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    
  557. n555=      }
  558. n556=    }
  559. n557=    elseif (what isin $1-2) {
  560. n558=      var %i = $rand(1,3)
  561. n559=      if (%i <= 2) {
  562. n560=        msg $chan  $+ $nick $+ : $read(bot\8ballwhat.txt)
  563. n561=      }
  564. n562=      else {
  565. n563=        var %adjective = $read(bot\adjectives.txt)
  566. n564=        var %noun = $read(bot\nouns.txt)
  567. n565=        msg $chan  $+ $nick $+ : That is $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    
  568. n566=      }
  569. n567=
  570. n568=    }
  571. n569=    elseif (how isin $1-2) {
  572. n570=      var %i = $rand(1,3)
  573. n571=      if (%i <= 2) {
  574. n572=        msg $chan  $+ $nick $+ : $read(bot\8ballhow.txt)
  575. n573=      }
  576. n574=      else {
  577. n575=        var %adjective = $read(bot\adjectives.txt)
  578. n576=        var %noun = $read(bot\nouns.txt)
  579. n577=        msg $chan  $+ $nick $+ : Using a $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    
  580. n578=      }
  581. n579=
  582. n580=    }
  583. n581=    elseif (when isin $1-2) {
  584. n582=      var %i = $rand(1,10)
  585. n583=      if (%i <= 8) {
  586. n584=        msg $chan  $+ $nick $+ : $read(bot\8ballwhen.txt)
  587. n585=      }
  588. n586=      elseif (%i == 9) {
  589. n587=        msg $chan  $+ $nick $+ : At $asctime($rand(0,$ctime),d mmmm yyyy)
  590. n588=      }
  591. n589=      else {
  592. n590=        msg $chan  $+ $nick $+ : At $+($rand(0,23),:,$rand(0,59),$chr(44)) obviously
  593. n591=      }
  594. n592=    }
  595. n593=    else {
  596. n594=      msg $chan  $+ $nick $+ : $read(bot\8ball.txt)
  597. n595=    }
  598. n596=  }
  599. n597=}
Add Comment
Please, Sign In to add comment