API tools faq
paste
_MM_IKKE

accounts.ini

_MM_IKKE
Nov 22nd, 2018
169
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 24.73 KB | None | 0 0
raw download clone embed print report
  1. [script]
  2. n0=on *:TEXT:!createaccount:#[MM]IKKE: {
  3. n1=  if ($me == %bot4) {
  4. n2=    rpglog $nick $1-
  5. n3=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  6. n4=      createaccount $nick
  7. n5=      msg $chan 2Successfully created account!
  8. n6=    }
  9. n7=    else { .notice $nick 4ERROR:2 You already have an account! }
  10. n8=  }
  11. n9=}
  12. n10=on *:TEXT:!changecurrentweapon*:#[MM]IKKE: {
  13. n11=  if ($me == %bot4 && $1 == !changecurrentweapon) {
  14. n12=    rpglog $nick $1-
  15. n13=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  16. n14=      createaccount $nick
  17. n15=    }
  18. n16=    alive $nick
  19. n17=    if ($2 != $null) {
  20. n18=      var %i = 9
  21. n19=      while (%i <= 17) {
  22. n20=        if ($2- == $read(Stats\ $+ $nick $+ .txt,%i)) {
  23. n21=          changecurrentweapon $nick $2-
  24. n22=          msg $chan 2Changed current weapon to:4 $read(Stats\ $+ $nick $+ .txt,18) 1( $+ $read(Stats\ $+ $nick $+ .txt,19) $+ )
  25. n23=          halt
  26. n24=        }
  27. n25=        inc %i
  28. n26=      }
  29. n27=      .notice $nick 4ERROR:2 You do not have "4 $+ $2- $+ 2". Use !shop
  30. n28=    }
  31. n29=    else { .notice $nick 4ERROR:2 Usage: !chancecurrentweapon <weapon> }
  32. n30=  }
  33. n31=}
  34. n32=on *:TEXT:!ccw*:#[MM]IKKE: {
  35. n33=  if ($me == %bot4 && $1 == !ccw) {
  36. n34=    rpglog $nick $1-
  37. n35=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  38. n36=      createaccount $nick
  39. n37=    }
  40. n38=    alive $nick
  41. n39=    if ($2 != $null) {
  42. n40=      var %i = 9
  43. n41=      while (%i <= 17) {
  44. n42=        if ($2- == $read(Stats\ $+ $nick $+ .txt,%i)) {
  45. n43=          changecurrentweapon $nick $2-
  46. n44=          msg $chan 2Changed current weapon to:4 $read(Stats\ $+ $nick $+ .txt,18) 1( $+ $read(Stats\ $+ $nick $+ .txt,19) $+ )
  47. n45=          halt
  48. n46=        }
  49. n47=        inc %i
  50. n48=      }
  51. n49=      .notice $nick 4ERROR:2 You do not have "4 $+ $2- $+ 2". Use !shop
  52. n50=    }
  53. n51=    else { .notice $nick 4ERROR:2 Usage: !ccw <weapon> }
  54. n52=  }
  55. n53=}
  56. n54=on *:TEXT:!delstats:#[MM]IKKE: {
  57. n55=  if ($me == %bot4) {
  58. n56=    rpglog $nick $1-
  59. n57=    if ($exists(Stats\ $+ $nick $+ .txt)) {
  60. n58=      .remove -b Stats\ $+ $nick $+ .txt
  61. n59=      if ($nick == $read(Stats\user list.txt,w,* $+ $nick $+ *)) {
  62. n60=        write -dl $+ $readn "Stats\user list.txt"
  63. n61=      }
  64. n62=      msg $chan 2File moved to recycle bin.
  65. n63=    }
  66. n64=    else { .notice $nick 4ERROR:2 You do not have an account to delete }
  67. n65=  }
  68. n66=}
  69. n67=on *:TEXT:!delstats*:#[MM]IKKE: {
  70. n68=  if ($me == %bot4 && $nick == %owner && $1 == !delstats) {
  71. n69=    rpglog $nick $1-
  72. n70=    if ($2 ison $chan) {
  73. n71=      if ($exists(Stats\ $+ $2 $+ .txt)) {
  74. n72=        .remove Stats\ $+ $2 $+ .txt
  75. n73=        if ($2 == $read(Stats\user list.txt,w,* $+ $2 $+ *)) {
  76. n74=          write -dl $+ $readn "Stats\user list.txt"
  77. n75=        }
  78. n76=        msg $chan 2File permanently removed.
  79. n77=      }
  80. n78=      else { .notice $nick 4ERROR: $2 2does not have an account }
  81. n79=    }
  82. n80=    elseif ($2 == $null) { .notice $nick 4ERROR:2 Usage: !delstats <nick> }
  83. n81=    else { .notice $nick 4ERROR: $2 2isn't in the channel }
  84. n82=  }
  85. n83=  elseif ($me == %bot4) {
  86. n84=    rpglog $nick $1-
  87. n85=    .notice $nick 4ERROR:2 You are not allowed to use this command
  88. n86=  }
  89. n87=}
  90. n88=on *:TEXT:!resetstats:#[MM]IKKE: {
  91. n89=  if ($me == %bot4) {
  92. n90=    rpglog $nick $1-
  93. n91=    if ($exists(Stats\ $+ $nick $+ .txt)) {
  94. n92=      .remove -b Stats\ $+ $nick $+ .txt
  95. n93=      createaccount $nick
  96. n94=      msg $chan 2You successfully reset you stats!
  97. n95=    }
  98. n96=    else {
  99. n97=      createaccount $nick
  100. n98=      .notice $nick 4ERROR:2 You do not have an account to delete, created account now
  101. n99=    }
  102. n100=  }
  103. n101=}
  104. n102=on *:TEXT:!resetstats*:#[MM]IKKE: {
  105. n103=  if ($me == %bot4 && $nick == %owner && $1 == !resetstats) {
  106. n104=    rpglog $nick $1-
  107. n105=    if ($2 ison $chan) {
  108. n106=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  109. n107=        .notice $nick 4ERROR:2 Bots don't have accounts
  110. n108=      }
  111. n109=      else {
  112. n110=        if ($exists(Stats\ $+ $2 $+ .txt)) {
  113. n111=          .remove Stats\ $+ $2 $+ .txt
  114. n112=          createaccount $2
  115. n113=          msg $chan 2Successfully reset "4 $+ $2 $+ 2"'s stats!
  116. n114=        }
  117. n115=        else {
  118. n116=          createaccount $nick
  119. n117=          .notice $nick 4ERROR: $2 2does not have an account to delete, created account now
  120. n118=        }
  121. n119=      }
  122. n120=    }
  123. n121=    elseif ($2 == $null) { .notice $nick 4ERROR:2 Usage: !resetstats <nick> }
  124. n122=    else {
  125. n123=      .notice $nick 4ERROR: $2 2isn't in the channel
  126. n124=    }
  127. n125=  }
  128. n126=  elseif ($me == %bot4) {
  129. n127=    rpglog $nick $1-
  130. n128=    .notice $nick 4ERROR:2 You are not allowed to use this command
  131. n129=  }
  132. n130=}
  133. n131=on *:TEXT:!stats*:#[MM]IKKE: {
  134. n132=  if ($me == %bot4 && $1 == !stats) {
  135. n133=    rpglog $nick $1-
  136. n134=    if ($2 && $2 ison $chan) {
  137. n135=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  138. n136=        .notice $nick 4ERROR:2 Bots don't have accounts
  139. n137=      }
  140. n138=      else {
  141. n139=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  142. n140=          createaccount $2
  143. n141=        }
  144. n142=        msg $chan 2Stats for9 $2 $+ 2:
  145. n143=        msg $chan 2Correct answers:4 $read(Stats\ $+ $2 $+ .txt, 2) 1|2 Cookies:4 $read(Stats\ $+ $2 $+ .txt, 3) 1|2 Cash:4 $read(Stats\ $+ $2 $+ .txt, 4)
  146. n144=        msg $chan 2Kills/Deaths:4 $read(Stats\ $+ $2 $+ .txt, 5) $+ / $+ $read(Stats\ $+ $2 $+ .txt, 6) 1(ratio:7 $round($calc($read(Stats\ $+ $2 $+ .txt, 5) / $read(Stats\ $+ $2 $+ .txt, 6)),2) $+ 1) |2 Health:4 $read(Stats\ $+ $2 $+ .txt, 7) 1|2 Armour:4 $read(Stats\ $+ $2 $+ .txt, 8)
  147. n145=        msg $chan 2Current weapon:4 $read(Stats\ $+ $2 $+ .txt, 18) 1|2 Rank:4 $read(Stats\ $+ $2 $+ .txt, 26) 1( $+ $read(Stats\ $+ $2 $+ .txt, 27) $+ )
  148. n146=      }
  149. n147=    }
  150. n148=    elseif ($2 == $null) {
  151. n149=      if (!$exists(Stats\ $+ $nick $+ .txt)) {
  152. n150=        createaccount $nick
  153. n151=      }
  154. n152=      msg $chan 2Stats for9 $nick $+ 2:
  155. n153=      msg $chan 2Correct answers:4 $read(Stats\ $+ $nick $+ .txt, 2) 1|2 Cookies:4 $read(Stats\ $+ $nick $+ .txt, 3) 1|2 Cash:4 $read(Stats\ $+ $nick $+ .txt, 4)
  156. n154=      msg $chan 2Kills/Deaths:4 $read(Stats\ $+ $nick $+ .txt, 5) $+ / $+ $read(Stats\ $+ $nick $+ .txt, 6) 1(ratio:7 $round($calc($read(Stats\ $+ $nick $+ .txt, 5) / $read(Stats\ $+ $nick $+ .txt, 6)),2) $+ 1) |2 Health:4 $read(Stats\ $+ $nick $+ .txt, 7) 1|2 Armour:4 $read(Stats\ $+ $nick $+ .txt, 8)
  157. n155=      msg $chan 2Current weapon:4 $read(Stats\ $+ $nick $+ .txt, 18) 1|2 Rank:4 $read(Stats\ $+ $nick $+ .txt, 26) 1( $+ $read(Stats\ $+ $nick $+ .txt, 27) $+ )
  158. n156=    }
  159. n157=    else { .notice $nick 4ERROR: $2 2isn't in the channel }
  160. n158=  }
  161. n159=}
  162. n160=on *:TEXT:!mystats:#[MM]IKKE: {
  163. n161=  if ($me == %bot4) {
  164. n162=    rpglog $nick $1-
  165. n163=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  166. n164=      createaccount $nick
  167. n165=    }
  168. n166=    msg $chan 2Stats for9 $nick $+ 2:
  169. n167=    msg $chan 2Correct answers:4 $read(Stats\ $+ $nick $+ .txt, 2) 1|2 Cookies:4 $read(Stats\ $+ $nick $+ .txt, 3) 1|2 Cash:4 $read(Stats\ $+ $nick $+ .txt, 4)
  170. n168=    msg $chan 2Kills/Deaths:4 $read(Stats\ $+ $nick $+ .txt, 5) $+ / $+ $read(Stats\ $+ $nick $+ .txt, 6) 1(ratio:7 $round($calc($read(Stats\ $+ $nick $+ .txt, 5) / $read(Stats\ $+ $nick $+ .txt, 6)),2) $+ 1) |2 Health:4 $read(Stats\ $+ $nick $+ .txt, 7) 1|2 Armour:4 $read(Stats\ $+ $nick $+ .txt, 8)
  171. n169=    msg $chan 2Current weapon:4 $read(Stats\ $+ $nick $+ .txt, 18) 1|2 Rank:4 $read(Stats\ $+ $nick $+ .txt, 26) 1( $+ $read(Stats\ $+ $nick $+ .txt, 27) $+ )
  172. n170=  }
  173. n171=}
  174. n172=on *:TEXT:!cookies*:#[MM]IKKE: {
  175. n173=  if ($me == %bot4 && $1 == !cookies) {
  176. n174=    rpglog $nick $1-
  177. n175=    if ($2 ison $chan) {
  178. n176=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  179. n177=        .notice $nick 4ERROR:2 Bots don't have accounts
  180. n178=      }
  181. n179=      else {
  182. n180=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  183. n181=          createaccount $2
  184. n182=        }
  185. n183=        msg $chan 4 $+ $2 2has got7 $read(Stats\ $+ $2 $+ .txt, 3) 2cookies.
  186. n184=      }
  187. n185=    }
  188. n186=    elseif ($2 == $null) {
  189. n187=      if (!$exists(Stats\ $+ $nick $+ .txt)) {
  190. n188=        createaccount $nick
  191. n189=      }
  192. n190=      msg $chan 2You have got7 $read(Stats\ $+ $nick $+ .txt, 3) 2cookies.
  193. n191=    }
  194. n192=    else { .notice $nick 4ERROR: $2 2isn't in the channel }
  195. n193=  }
  196. n194=}
  197. n195=on *:TEXT:!mycookies:#[MM]IKKE: {
  198. n196=  if ($me == %bot4) {
  199. n197=    rpglog $nick $1-
  200. n198=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  201. n199=      createaccount $nick
  202. n200=    }
  203. n201=    msg $chan 2You have got7 $read(Stats\ $+ $nick $+ .txt, 3) 2cookies.
  204. n202=  }
  205. n203=}
  206. n204=on *:TEXT:!cash*:#[MM]IKKE: {
  207. n205=  if ($me == %bot4 && $1 == !cash) {
  208. n206=    rpglog $nick $1-
  209. n207=    if ($2 ison $chan) {
  210. n208=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  211. n209=        .notice $nick 4ERROR:2 Bots don't have accounts
  212. n210=      }
  213. n211=      else {
  214. n212=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  215. n213=          createaccount $2
  216. n214=        }
  217. n215=        msg $chan 4 $+ $2 2has got7 $read(Stats\ $+ $2 $+ .txt, 4) 2cash.
  218. n216=      }
  219. n217=    }
  220. n218=    elseif ($2 == $null) {
  221. n219=      if (!$exists(Stats\ $+ $nick $+ .txt)) {
  222. n220=        createaccount $nick
  223. n221=      }
  224. n222=      msg $chan 2You have got7 $read(Stats\ $+ $nick $+ .txt, 4) 2cash.
  225. n223=    }
  226. n224=    else { .notice $nick 4ERROR: $2 2isn't in the channel }
  227. n225=  }
  228. n226=}
  229. n227=on *:TEXT:!mycash:#[MM]IKKE: {
  230. n228=  if ($me == %bot4) {
  231. n229=    rpglog $nick $1-
  232. n230=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  233. n231=      createaccount $nick
  234. n232=    }
  235. n233=    msg $chan 2You have got7 $read(Stats\ $+ $nick $+ .txt, 4) 2cash.
  236. n234=  }
  237. n235=}
  238. n236=on *:TEXT:!bank*:#[MM]IKKE: {
  239. n237=  if ($me == %bot4 && $1 == !bank) {
  240. n238=    rpglog $nick $1-
  241. n239=    if ($2 ison $chan) {
  242. n240=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  243. n241=        .notice $nick 4ERROR:2 Bots don't have accounts
  244. n242=      }
  245. n243=      else {
  246. n244=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  247. n245=          createaccount $2
  248. n246=        }
  249. n247=        msg $chan 4 $+ $2 2has got7 $read(Stats\ $+ $2 $+ .txt, 4) 2cash.
  250. n248=      }
  251. n249=    }
  252. n250=    elseif ($2 == $null) {
  253. n251=      if (!$exists(Stats\ $+ $nick $+ .txt)) {
  254. n252=        createaccount $nick
  255. n253=      }
  256. n254=      msg $chan 2You have got7 $read(Stats\ $+ $nick $+ .txt, 4) 2cash.
  257. n255=    }
  258. n256=    else { .notice $nick 4ERROR: $2 2isn't in the channel }
  259. n257=  }
  260. n258=}
  261. n259=on *:TEXT:!mybank:#[MM]IKKE: {
  262. n260=  if ($me == %bot4) {
  263. n261=    rpglog $nick $1-
  264. n262=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  265. n263=      createaccount $nick
  266. n264=    }
  267. n265=    msg $chan 2You have got7 $read(Stats\ $+ $nick $+ .txt, 4) 2cash.
  268. n266=  }
  269. n267=}
  270. n268=on *:TEXT:!kills*:#[MM]IKKE: {
  271. n269=  if ($me == %bot4 && $1 == !kills) {
  272. n270=    rpglog $nick $1-
  273. n271=    if ($2 ison $chan) {
  274. n272=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  275. n273=        .notice $nick 4ERROR:2 Bots don't have accounts
  276. n274=      }
  277. n275=      else {
  278. n276=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  279. n277=          createaccount $2
  280. n278=        }
  281. n279=        msg $chan 4 $+ $2 2has got7 $read(Stats\ $+ $2 $+ .txt, 5) 2kills.
  282. n280=      }
  283. n281=    }
  284. n282=    elseif ($2 == $null) {
  285. n283=      if (!$exists(Stats\ $+ $nick $+ .txt)) {
  286. n284=        createaccount $nick
  287. n285=      }
  288. n286=      msg $chan 2You have got7 $read(Stats\ $+ $nick $+ .txt, 5) 2kills.
  289. n287=
  290. n288=    }
  291. n289=    else { .notice $nick 4ERROR: $2 2isn't in the channel }
  292. n290=  }
  293. n291=}
  294. n292=on *:TEXT:!mykills:#[MM]IKKE: {
  295. n293=  if ($me == %bot4) {
  296. n294=    rpglog $nick $1-
  297. n295=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  298. n296=      createaccount $nick
  299. n297=    }
  300. n298=    msg $chan 2You have got7 $read(Stats\ $+ $nick $+ .txt, 5) 2kills.
  301. n299=  }
  302. n300=}
  303. n301=on *:TEXT:!deaths*:#[MM]IKKE: {
  304. n302=  if ($me == %bot4 && $1 == !deaths) {
  305. n303=    rpglog $nick $1-
  306. n304=    if ($2 ison $chan) {
  307. n305=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  308. n306=        .notice $nick 4ERROR:2 Bots don't have accounts
  309. n307=      }
  310. n308=      else {
  311. n309=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  312. n310=          createaccount $2
  313. n311=        }
  314. n312=        msg $chan 4 $+ $2 2has got7 $read(Stats\ $+ $2 $+ .txt, 6) 2deaths.
  315. n313=      }
  316. n314=    }
  317. n315=    elseif ($2 == $null) {
  318. n316=      if (!$exists(Stats\ $+ $nick $+ .txt)) {
  319. n317=        createaccount $nick
  320. n318=      }
  321. n319=      msg $chan 2You have got7 $read(Stats\ $+ $nick $+ .txt, 6) 2deaths.
  322. n320=    }
  323. n321=    else { .notice $nick 4ERROR: $2 2isn't in the channel }
  324. n322=  }
  325. n323=}
  326. n324=on *:TEXT:!mydeaths:#[MM]IKKE: {
  327. n325=  if ($me == %bot4) {
  328. n326=    rpglog $nick $1-
  329. n327=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  330. n328=      createaccount $nick
  331. n329=    }
  332. n330=    msg $chan 2You have got7 $read(Stats\ $+ $nick $+ .txt, 6) 2deaths.
  333. n331=  }
  334. n332=}
  335. n333=on *:TEXT:!ratio*:#[MM]IKKE: {
  336. n334=  if ($me == %bot4 && $1 == !ratio) {
  337. n335=    rpglog $nick $1-
  338. n336=    if ($2 ison $chan) {
  339. n337=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  340. n338=        .notice $nick 4ERROR:2 Bots don't have accounts
  341. n339=      }
  342. n340=      else {
  343. n341=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  344. n342=          createaccount $2
  345. n343=        }
  346. n344=        msg $chan 4 $+ $2 2has got ratio7 $round($calc($read(Stats\ $+ $2 $+ .txt, 5) / $read(Stats\ $+ $2 $+ .txt, 6)),2) 1( $+ $read(Stats\ $+ $2 $+ .txt, 5) $+ / $+ $read(Stats\ $+ $2 $+ .txt, 6) $+ )
  347. n345=      }
  348. n346=    }
  349. n347=    elseif ($2 == $null) {
  350. n348=      if (!$exists(Stats\ $+ $nick $+ .txt)) {
  351. n349=        createaccount $nick
  352. n350=      }
  353. n351=      msg $chan 2You have got ratio7 $round($calc($read(Stats\ $+ $nick $+ .txt, 5) / $read(Stats\ $+ $nick $+ .txt, 6)),2) 1( $+ $read(Stats\ $+ $nick $+ .txt, 5) $+ / $+ $read(Stats\ $+ $nick $+ .txt, 6) $+ )
  354. n352=
  355. n353=    }
  356. n354=    else { .notice $nick 4ERROR: $2 2isn't in the channel }
  357. n355=  }
  358. n356=}
  359. n357=on *:TEXT:!myratio:#[MM]IKKE: {
  360. n358=  if ($me == %bot4) {
  361. n359=    rpglog $nick $1-
  362. n360=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  363. n361=      createaccount $nick
  364. n362=    }
  365. n363=    msg $chan 2You have got ratio7 $round($calc($read(Stats\ $+ $nick $+ .txt, 5) / $read(Stats\ $+ $nick $+ .txt, 6)),2) 1( $+ $read(Stats\ $+ $nick $+ .txt, 5) $+ / $+ $read(Stats\ $+ $nick $+ .txt, 6) $+ )
  366. n364=  }
  367. n365=}
  368. n366=on *:TEXT:!health*:#[MM]IKKE: {
  369. n367=  if ($me == %bot4 && $1 == !health) {
  370. n368=    rpglog $nick $1-
  371. n369=    if ($2 ison $chan) {
  372. n370=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  373. n371=        .notice $nick 4ERROR:2 Bots don't have accounts
  374. n372=      }
  375. n373=      else {
  376. n374=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  377. n375=          createaccount $2
  378. n376=        }
  379. n377=        if ($read(Stats\ $+ $2 $+ .txt, 8) > 0) { msg $chan 4 $+ $2 $+ 2's health is7 $read(Stats\ $+ $2 $+ .txt, 7) 2and his armour is7 $read(Stats\ $+ $2 $+ .txt, 8) }
  380. n378=        if ($read(Stats\ $+ $2 $+ .txt, 8) == 0) { msg $chan 4 $+ $2 $+ 2's health is7 $read(Stats\ $+ $2 $+ .txt, 7) 2and he does not have armour }
  381. n379=      }
  382. n380=    }
  383. n381=    elseif ($2 == $null) {
  384. n382=      if (!$exists(Stats\ $+ $nick $+ .txt)) {
  385. n383=        createaccount $nick
  386. n384=      }
  387. n385=      if ($read(Stats\ $+ $nick $+ .txt, 8) > 0) { msg $chan 2Your health is7 $read(Stats\ $+ $nick $+ .txt, 7) 2and your armour is7 $read(Stats\ $+ $nick $+ .txt, 8) }
  388. n386=      if ($read(Stats\ $+ $nick $+ .txt, 8) == 0) { msg $chan 2Your health is7 $read(Stats\ $+ $nick $+ .txt, 7) 2and you do not have armour }
  389. n387=    }
  390. n388=    else { .notice $nick 4ERROR: $2 2isn't in the channel }
  391. n389=  }
  392. n390=}
  393. n391=on *:TEXT:!myhealth:#[MM]IKKE: {
  394. n392=  if ($me == %bot4) {
  395. n393=    rpglog $nick $1-
  396. n394=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  397. n395=      createaccount $nick
  398. n396=    }
  399. n397=    if ($read(Stats\ $+ $nick $+ .txt, 8) > 0) { msg $chan 2Your health is7 $read(Stats\ $+ $nick $+ .txt, 7) 2and your armour is7 $read(Stats\ $+ $nick $+ .txt, 8) }
  400. n398=    if ($read(Stats\ $+ $nick $+ .txt, 8) == 0) { msg $chan 2Your health is7 $read(Stats\ $+ $nick $+ .txt, 7) 2and you do not have armour }
  401. n399=  }
  402. n400=}
  403. n401=on *:TEXT:!weapons*:#[MM]IKKE: {
  404. n402=  if ($me == %bot4 && $1 == !weapons) {
  405. n403=    rpglog $nick $1-
  406. n404=    if ($2 ison $chan) {
  407. n405=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  408. n406=        .notice $nick 4ERROR:2 Bots don't have accounts
  409. n407=      }
  410. n408=      else {
  411. n409=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  412. n410=          createaccount $2
  413. n411=        }
  414. n412=        var %i = 9
  415. n413=        set %weapons $null
  416. n414=        while (%i <= 17) {
  417. n415=          if ($read(Stats\ $+ $2 $+ .txt, %i)) { set %weapons %weapons $+ , $read(Stats\ $+ $2 $+ .txt, %i) }
  418. n416=          inc %i
  419. n417=        }
  420. n418=        set %weapons $right(%weapons, $calc($len(%weapons) - 2)) $+ .
  421. n419=        msg $chan 4 $+ $2 $+ 2's weapons are:6 $replace(%weapons, $read(Stats\ $+ $2 $+ .txt, 18), 0 $+ $chr(44) $+ 6 $+ $read(Stats\ $+ $2 $+ .txt, 18) $+ 6 $+ $chr(44) $+ 0)
  422. n420=        unset %weapons
  423. n421=      }
  424. n422=    }
  425. n423=    elseif ($2 == $null) {
  426. n424=      if (!$exists(Stats\ $+ $nick $+ .txt)) {
  427. n425=        createaccount $nick
  428. n426=      }
  429. n427=      var %i = 9
  430. n428=      set %weapons $null
  431. n429=      while (%i <= 17) {
  432. n430=        if ($read(Stats\ $+ $nick $+ .txt, %i)) { set %weapons %weapons $+ , $read(Stats\ $+ $nick $+ .txt, %i) }
  433. n431=        inc %i
  434. n432=      }
  435. n433=      set %weapons $right(%weapons, $calc($len(%weapons) - 2)) $+ .
  436. n434=      msg $chan 2Your weapons are:6 $replace(%weapons, $read(Stats\ $+ $nick $+ .txt, 18), 0 $+ $chr(44) $+ 6 $+ $read(Stats\ $+ $nick $+ .txt, 18) $+ 6 $+ $chr(44) $+ 0)
  437. n435=      unset %weapons
  438. n436=    }
  439. n437=    else { .notice $nick 4ERROR: $2 2isn't in the channel }
  440. n438=  }
  441. n439=}
  442. n440=on *:TEXT:!myweapons:#[MM]IKKE: {
  443. n441=  if ($me == %bot4) {
  444. n442=    rpglog $nick $1-
  445. n443=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  446. n444=      createaccount $nick
  447. n445=    }
  448. n446=    var %i = 9
  449. n447=    set %weapons $null
  450. n448=    while (%i <= 17) {
  451. n449=      if ($read(Stats\ $+ $nick $+ .txt, %i)) { set %weapons %weapons $+ , $read(Stats\ $+ $nick $+ .txt, %i) }
  452. n450=      inc %i
  453. n451=    }
  454. n452=    set %weapons $right(%weapons, $calc($len(%weapons) - 2)) $+ .
  455. n453=    msg $chan 2Your weapons are:6 $replace(%weapons, $read(Stats\ $+ $nick $+ .txt, 18), 0 $+ $chr(44) $+ 6 $+ $read(Stats\ $+ $nick $+ .txt, 18) $+ 6 $+ $chr(44) $+ 0)
  456. n454=    unset %weapons
  457. n455=  }
  458. n456=}
  459. n457=on *:TEXT:!weapon*:#[MM]IKKE: {
  460. n458=  if ($me == %bot4 && $1 == !weapon) {
  461. n459=    rpglog $nick $1-
  462. n460=    if ($2 ison $chan) {
  463. n461=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  464. n462=        .notice $nick 4ERROR:2 Bots don't have accounts
  465. n463=      }
  466. n464=      else {
  467. n465=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  468. n466=          createaccount $2
  469. n467=        }
  470. n468=        msg $chan 4 $+ $2 $+ 2's current weapon is:6 $read(Stats\ $+ $2 $+ .txt, 18) 1( $+ $read(Stats\ $+ $2 $+ .txt, 19) $+ )
  471. n469=      }
  472. n470=    }
  473. n471=    elseif ($2 == $null) {
  474. n472=      if (!$exists(Stats\ $+ $nick $+ .txt)) {
  475. n473=        createaccount $nick
  476. n474=      }
  477. n475=      msg $chan 2Your current weapon is:6 $read(Stats\ $+ $nick $+ .txt, 18) 1( $+ $read(Stats\ $+ $nick $+ .txt, 19) $+ )
  478. n476=    }
  479. n477=    else { .notice $nick 4ERROR: $2 2isn't in the channel }
  480. n478=  }
  481. n479=}
  482. n480=on *:TEXT:!myweapon:#[MM]IKKE: {
  483. n481=  if ($me == %bot4) {
  484. n482=    rpglog $nick $1-
  485. n483=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  486. n484=      createaccount $nick
  487. n485=    }
  488. n486=    msg $chan 2Your current weapon is:6 $read(Stats\ $+ $nick $+ .txt, 18) 1( $+ $read(Stats\ $+ $nick $+ .txt, 19) $+ )
  489. n487=  }
  490. n488=}
  491. n489=on *:TEXT:!car*:#[MM]IKKE: {
  492. n490=  if ($me == %bot4 && $1 == !car) {
  493. n491=    rpglog $nick $1-
  494. n492=    if ($2 ison $chan) {
  495. n493=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  496. n494=        .notice $nick 4ERROR:2 Bots don't have accounts
  497. n495=      }
  498. n496=      else {
  499. n497=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  500. n498=          createaccount $2
  501. n499=        }
  502. n500=        if ($read(Stats\ $+ $2 $+ .txt, 20) != on foot) { msg $chan 4 $+ $2 $+ 2's car is:5 $read(Stats\ $+ $2 $+ .txt, 20) 1( $+ $read(Stats\ $+ $2 $+ .txt, 21) $+ ) }
  503. n501=        elseif ($read(Stats\ $+ $2 $+ .txt, 20) == on foot) { msg $chan 4 $+ $2 2does not have a car }
  504. n502=      }
  505. n503=    }
  506. n504=    elseif ($2 == $null) {
  507. n505=      if (!$exists(Stats\ $+ $nick $+ .txt)) {
  508. n506=        createaccount $nick
  509. n507=      }
  510. n508=      if ($read(Stats\ $+ $nick $+ .txt, 20) != on foot) { msg $chan 2Your car is:5 $read(Stats\ $+ $nick $+ .txt, 20) 1( $+ $read(Stats\ $+ $nick $+ .txt, 21) $+ ) }
  511. n509=      elseif ($read(Stats\ $+ $nick $+ .txt, 20) == on foot) { msg $chan 2You do not have a car }
  512. n510=    }
  513. n511=    else { .notice $nick 4ERROR:1 $2 isn't in the channel }
  514. n512=  }
  515. n513=}
  516. n514=on *:TEXT:!mycar:#[MM]IKKE: {
  517. n515=  if ($me == %bot4) {
  518. n516=    rpglog $nick $1-
  519. n517=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  520. n518=      createaccount $nick
  521. n519=    }
  522. n520=    if ($read(Stats\ $+ $nick $+ .txt, 20) != on foot) { msg $chan 2Your car is:5 $read(Stats\ $+ $nick $+ .txt, 20) 1( $+ $read(Stats\ $+ $nick $+ .txt, 21) $+ ) }
  523. n521=    elseif ($read(Stats\ $+ $nick $+ .txt, 20) == on foot) { msg $chan 2You do not have a car }
  524. n522=  }
  525. n523=}
  526. n524=on *:TEXT:!rank*:#[MM]IKKE: {
  527. n525=  if ($me == %bot4 && $1 == !rank) {
  528. n526=    rpglog $nick $1-
  529. n527=    if ($2 ison $chan) {
  530. n528=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  531. n529=        .notice $nick 4ERROR:2 Bots don't have accounts
  532. n530=      }
  533. n531=      else {
  534. n532=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  535. n533=          createaccount $2
  536. n534=        }
  537. n535=        msg $chan 4 $+ $2 $+ 2's rank is:11 $read(Stats\ $+ $2 $+ .txt, 26) 1( $+ $read(Stats\ $+ $2 $+ .txt, 27) $+ )
  538. n536=      }
  539. n537=    }
  540. n538=    elseif ($2 == $null) {
  541. n539=      if (!$exists(Stats\ $+ $nick $+ .txt)) {
  542. n540=        createaccount $nick
  543. n541=      }
  544. n542=      msg $chan 2Your rank is:11 $read(Stats\ $+ $nick $+ .txt, 26) 1( $+ $read(Stats\ $+ $nick $+ .txt, 27) $+ )
  545. n543=    }
  546. n544=    else { .notice $nick 4ERROR: $2 2isn't in the channel }
  547. n545=  }
  548. n546=}
  549. n547=on *:TEXT:!myrank:#[MM]IKKE: {
  550. n548=  if ($me == %bot4) {
  551. n549=    rpglog $nick $1-
  552. n550=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  553. n551=      createaccount $nick
  554. n552=    }
  555. n553=    msg $chan 2Your rank is:11 $read(Stats\ $+ $nick $+ .txt, 26) 1( $+ $read(Stats\ $+ $nick $+ .txt, 27) $+ )
  556. n554=  }
  557. n555=}
  558. n556=on *:TEXT:!loc*:#[MM]IKKE: {
  559. n557=  if ($me == %bot4 && ($1 == !loc || $1 == !location)) {
  560. n558=    rpglog $nick $1-
  561. n559=    if ($2 ison $chan) {
  562. n560=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  563. n561=        .notice $nick 4ERROR:2 Bots don't have accounts
  564. n562=      }
  565. n563=      else {
  566. n564=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  567. n565=          createaccount $2
  568. n566=        }
  569. n567=        msg $chan 4 $+ $2 $+ 2's current location is:8 $read(Stats\ $+ $2 $+ .txt, 29) 1( $+ $read(Stats\ $+ $2 $+ .txt, 28) $+ )
  570. n568=      }
  571. n569=    }
  572. n570=    elseif ($2 == $null) { if (!$exists(Stats\ $+ $nick $+ .txt)) {
  573. n571=        createaccount $nick
  574. n572=      }
  575. n573=      msg $chan 2Your current location is:8 $read(Stats\ $+ $nick $+ .txt, 29) 1( $+ $read(Stats\ $+ $nick $+ .txt, 28) $+ )
  576. n574=    }
  577. n575=    else { .notice $nick 4ERROR: $2 2isn't in the channel }
  578. n576=  }
  579. n577=}
  580. n578=on *:TEXT:!myloc:#[MM]IKKE: {
  581. n579=  if ($me == %bot4) {
  582. n580=    rpglog $nick $1-
  583. n581=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  584. n582=      createaccount $nick
  585. n583=    }
  586. n584=    msg $chan 2Your current location is:8 $read(Stats\ $+ $nick $+ .txt, 29) 1( $+ $read(Stats\ $+ $nick $+ .txt, 28) $+ )
  587. n585=  }
  588. n586=}
  589. n587=on *:TEXT:!mylocation:#[MM]IKKE: {
  590. n588=  if ($me == %bot4) {
  591. n589=    rpglog $nick $1-
  592. n590=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  593. n591=      createaccount $nick
  594. n592=    }
  595. n593=    msg $chan 2Your current location is:8 $read(Stats\ $+ $nick $+ .txt, 29) 1( $+ $read(Stats\ $+ $nick $+ .txt, 28) $+ )
  596. n594=  }
  597. n595=}
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!