API tools faq
paste
_MM_IKKE

corecmds.ini

_MM_IKKE
Nov 22nd, 2018
150
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 52.81 KB | None | 0 0
raw download clone embed print report
  1. [aliases]
  2. n0=/alive {
  3. n1=  if ($read(Stats\ $+ $1 $+ .txt, 7) <= 0) {
  4. n2=    if ($1 !isin $read(Stats\Administrator list.txt, w, $1)) {
  5. n3=      .notice $1 4ERROR:2 You are dead. Please wait for an admin to revive you
  6. n4=      if ($1 !isin $read(Stats\Death list.txt,w,$1)) {
  7. n5=        write "Stats\Death list.txt" $1
  8. n6=      }
  9. n7=      halt
  10. n8=    }
  11. n9=    else {
  12. n10=      write -l7 Stats\ $+ $1 $+ .txt 100
  13. n11=      write -l8 Stats\ $+ $1 $+ .txt 100
  14. n12=      .notice $1 2You're an Administrator, you have been revived automatically
  15. n13=    }
  16. n14=  }
  17. n15=  if ($1 isin $read(Stats\Death list.txt,w,$1)) {
  18. n16=    write -dl $+ $readn "Stats\Death list.txt"
  19. n17=  }
  20. n18=}
  21. n19=/calculateratio {
  22. n20=  var %ratioplayer = $calc($read(Stats\ $+ $1 $+ .txt, 5) / $read(Stats\ $+ $1 $+ .txt, 6))
  23. n21=  var %ratiorank1 = $calc($read(Stats\ $+ $readini(Stats\RPG ranks.ini,ratio,rank1) $+ .txt, 5) / $read(Stats\ $+ $readini(Stats\RPG ranks.ini,ratio,rank1) $+ .txt, 6))
  24. n22=  var %ratiorank2 = $calc($read(Stats\ $+ $readini(Stats\RPG ranks.ini,ratio,rank2) $+ .txt, 5) / $read(Stats\ $+ $readini(Stats\RPG ranks.ini,ratio,rank2) $+ .txt, 6))
  25. n23=  var %ratiorank3 = $calc($read(Stats\ $+ $readini(Stats\RPG ranks.ini,ratio,rank3) $+ .txt, 5) / $read(Stats\ $+ $readini(Stats\RPG ranks.ini,ratio,rank3) $+ .txt, 6))
  26. n24=  var %ratiorank4 = $calc($read(Stats\ $+ $readini(Stats\RPG ranks.ini,ratio,rank4) $+ .txt, 5) / $read(Stats\ $+ $readini(Stats\RPG ranks.ini,ratio,rank4) $+ .txt, 6))
  27. n25=  var %ratiorank5 = $calc($read(Stats\ $+ $readini(Stats\RPG ranks.ini,ratio,rank5) $+ .txt, 5) / $read(Stats\ $+ $readini(Stats\RPG ranks.ini,ratio,rank5) $+ .txt, 6))
  28. n26=  if (%ratioplayer >= %ratiorank1) {
  29. n27=    if ($1 != $readini(Stats\RPG ranks.ini,ratio,rank1)) {
  30. n28=      if ($1 == $readini(Stats\RPG ranks.ini,ratio,rank2)) {
  31. n29=        writeini "Stats\RPG ranks.ini" ratio rank2 $readini(Stats\RPG ranks.ini,ratio,rank1)
  32. n30=        writeini "Stats\RPG ranks.ini" ratio rank1 $1
  33. n31=      }
  34. n32=      elseif ($1 == $readini(Stats\RPG ranks.ini,ratio,rank3)) {
  35. n33=        writeini "Stats\RPG ranks.ini" ratio rank3 $readini(Stats\RPG ranks.ini,ratio,rank2)
  36. n34=        writeini "Stats\RPG ranks.ini" ratio rank2 $readini(Stats\RPG ranks.ini,ratio,rank1)
  37. n35=        writeini "Stats\RPG ranks.ini" ratio rank1 $1
  38. n36=      }
  39. n37=      elseif ($1 == $readini(Stats\RPG ranks.ini,ratio,rank4)) {
  40. n38=        writeini "Stats\RPG ranks.ini" ratio rank4 $readini(Stats\RPG ranks.ini,ratio,rank3)
  41. n39=        writeini "Stats\RPG ranks.ini" ratio rank3 $readini(Stats\RPG ranks.ini,ratio,rank2)
  42. n40=        writeini "Stats\RPG ranks.ini" ratio rank2 $readini(Stats\RPG ranks.ini,ratio,rank1)
  43. n41=        writeini "Stats\RPG ranks.ini" ratio rank1 $1
  44. n42=      }
  45. n43=      else {
  46. n44=        writeini "Stats\RPG ranks.ini" ratio rank5 $readini(Stats\RPG ranks.ini,ratio,rank4)
  47. n45=        writeini "Stats\RPG ranks.ini" ratio rank4 $readini(Stats\RPG ranks.ini,ratio,rank3)
  48. n46=        writeini "Stats\RPG ranks.ini" ratio rank3 $readini(Stats\RPG ranks.ini,ratio,rank2)
  49. n47=        writeini "Stats\RPG ranks.ini" ratio rank2 $readini(Stats\RPG ranks.ini,ratio,rank1)
  50. n48=        writeini "Stats\RPG ranks.ini" ratio rank1 $1
  51. n49=      }
  52. n50=    }
  53. n51=  }
  54. n52=  elseif (%ratioplayer >= %ratiorank2) {
  55. n53=    if ($1 != $readini(Stats\RPG ranks.ini,ratio,rank2)) {
  56. n54=      if ($1 == $readini(Stats\RPG ranks.ini,ratio,rank3)) {
  57. n55=        writeini "Stats\RPG ranks.ini" ratio rank3 $readini(Stats\RPG ranks.ini,ratio,rank2)
  58. n56=        writeini "Stats\RPG ranks.ini" ratio rank2 $1
  59. n57=      }
  60. n58=      elseif ($1 == $readini(Stats\RPG ranks.ini,ratio,rank4)) {
  61. n59=        writeini "Stats\RPG ranks.ini" ratio rank4 $readini(Stats\RPG ranks.ini,ratio,rank3)
  62. n60=        writeini "Stats\RPG ranks.ini" ratio rank3 $readini(Stats\RPG ranks.ini,ratio,rank2)
  63. n61=        writeini "Stats\RPG ranks.ini" ratio rank2 $1
  64. n62=      }
  65. n63=      else {
  66. n64=        writeini "Stats\RPG ranks.ini" ratio rank5 $readini(Stats\RPG ranks.ini,ratio,rank4)
  67. n65=        writeini "Stats\RPG ranks.ini" ratio rank4 $readini(Stats\RPG ranks.ini,ratio,rank3)
  68. n66=        writeini "Stats\RPG ranks.ini" ratio rank3 $readini(Stats\RPG ranks.ini,ratio,rank2)
  69. n67=        writeini "Stats\RPG ranks.ini" ratio rank2 $1
  70. n68=      }
  71. n69=    }
  72. n70=  }
  73. n71=  elseif (%ratioplayer >= %ratiorank3) {
  74. n72=    if ($1 != $readini(Stats\RPG ranks.ini,ratio,rank3)) {
  75. n73=      if ($1 == $readini(Stats\RPG ranks.ini,ratio,rank4)) {
  76. n74=        writeini "Stats\RPG ranks.ini" ratio rank4 $readini(Stats\RPG ranks.ini,ratio,rank3)
  77. n75=        writeini "Stats\RPG ranks.ini" ratio rank3 $1
  78. n76=      }
  79. n77=      else {
  80. n78=        writeini "Stats\RPG ranks.ini" ratio rank5 $readini(Stats\RPG ranks.ini,ratio,rank4)
  81. n79=        writeini "Stats\RPG ranks.ini" ratio rank4 $readini(Stats\RPG ranks.ini,ratio,rank3)
  82. n80=        writeini "Stats\RPG ranks.ini" ratio rank3 $1
  83. n81=      }
  84. n82=    }
  85. n83=  }
  86. n84=  elseif (%ratioplayer >= %ratiorank4) {
  87. n85=    if ($1 != $readini(Stats\RPG ranks.ini,ratio,rank4)) {
  88. n86=      writeini "Stats\RPG ranks.ini" ratio rank5 $readini(Stats\RPG ranks.ini,ratio,rank4)
  89. n87=      writeini "Stats\RPG ranks.ini" ratio rank4 $1
  90. n88=    }
  91. n89=  }
  92. n90=  elseif (%ratioplayer >=  %ratiorank5) {
  93. n91=    if ($1 != $readini(Stats\RPG ranks.ini,ratio,rank5)) {
  94. n92=      writeini "Stats\RPG ranks.ini" ratio rank5 $1
  95. n93=    }
  96. n94=  }
  97. n95=}
  98. n96=/changecurrentweapon {
  99. n97=  if (%duel == 0 || %duel == 2) {
  100. n98=    if ($2 == Fists) {
  101. n99=      write -l19 Stats\ $+ $1 $+ .txt 50
  102. n100=      write -l18 Stats\ $+ $1 $+ .txt Fists
  103. n101=      write -l9 Stats\ $+ $1 $+ .txt Fists
  104. n102=    }
  105. n103=    elseif ($2-3 == Brass Knuckles) {
  106. n104=      write -l19 Stats\ $+ $1 $+ .txt 200
  107. n105=      write -l18 Stats\ $+ $1 $+ .txt Brass Knuckles
  108. n106=      write -l9 Stats\ $+ $1 $+ .txt Brass Knuckles
  109. n107=    }
  110. n108=    elseif ($2 == Knife) {
  111. n109=      write -l19 Stats\ $+ $1 $+ .txt 200
  112. n110=      write -l18 Stats\ $+ $1 $+ .txt Knife
  113. n111=      write -l10 Stats\ $+ $1 $+ .txt Knife
  114. n112=    }
  115. n113=    elseif ($2 == Shovel) {
  116. n114=      write -l19 Stats\ $+ $1 $+ .txt 200
  117. n115=      write -l18 Stats\ $+ $1 $+ .txt Shovel
  118. n116=      write -l10 Stats\ $+ $1 $+ .txt Shovel
  119. n117=    }
  120. n118=    elseif ($2-3 == Baseball Bat) {
  121. n119=      write -l19 Stats\ $+ $1 $+ .txt 300
  122. n120=      write -l18 Stats\ $+ $1 $+ .txt Baseball Bat
  123. n121=      write -l10 Stats\ $+ $1 $+ .txt Baseball Bat
  124. n122=    }
  125. n123=    elseif ($2 == Chainsaw) {
  126. n124=      write -l19 Stats\ $+ $1 $+ .txt 300
  127. n125=      write -l18 Stats\ $+ $1 $+ .txt Chainsaw
  128. n126=      write -l10 Stats\ $+ $1 $+ .txt Chainsaw
  129. n127=    }
  130. n128=    elseif ($2-3 == Golf Club) {
  131. n129=      write -l19 Stats\ $+ $1 $+ .txt 300
  132. n130=      write -l18 Stats\ $+ $1 $+ .txt Golf Club
  133. n131=      write -l10 Stats\ $+ $1 $+ .txt Golf Club
  134. n132=    }
  135. n133=    elseif ($2 == Katana) {
  136. n134=      write -l19 Stats\ $+ $1 $+ .txt 300
  137. n135=      write -l18 Stats\ $+ $1 $+ .txt Katana
  138. n136=      write -l10 Stats\ $+ $1 $+ .txt Katana
  139. n137=    }
  140. n138=    elseif ($2-3 == Night Stick) {
  141. n139=      write -l19 Stats\ $+ $1 $+ .txt 300
  142. n140=      write -l18 Stats\ $+ $1 $+ .txt Night Stick
  143. n141=      write -l10 Stats\ $+ $1 $+ .txt Night Stick
  144. n142=    }
  145. n143=    elseif ($2-3 == Pool Cue) {
  146. n144=      write -l19 Stats\ $+ $1 $+ .txt 300
  147. n145=      write -l18 Stats\ $+ $1 $+ .txt Pool Cue
  148. n146=      write -l10 Stats\ $+ $1 $+ .txt Pool Cue
  149. n147=    }
  150. n148=    elseif ($2 == Cane) {
  151. n149=      write -l19 Stats\ $+ $1 $+ .txt 300
  152. n150=      write -l18 Stats\ $+ $1 $+ .txt Cane
  153. n151=      write -l10 Stats\ $+ $1 $+ .txt Cane
  154. n152=    }
  155. n153=    elseif ($2 == Pistol) {
  156. n154=      write -l19 Stats\ $+ $1 $+ .txt 1000
  157. n155=      write -l18 Stats\ $+ $1 $+ .txt Pistol
  158. n156=      write -l11 Stats\ $+ $1 $+ .txt Pistol
  159. n157=    }
  160. n158=    elseif ($2-3 == Silenced Pistol) {
  161. n159=      write -l19 Stats\ $+ $1 $+ .txt 1000
  162. n160=      write -l18 Stats\ $+ $1 $+ .txt Silenced Pistol
  163. n161=      write -l11 Stats\ $+ $1 $+ .txt Silenced Pistol
  164. n162=    }
  165. n163=    elseif ($2 == Tec-9) {
  166. n164=      write -l19 Stats\ $+ $1 $+ .txt 1500
  167. n165=      write -l18 Stats\ $+ $1 $+ .txt Tec-9
  168. n166=      write -l13 Stats\ $+ $1 $+ .txt Tec-9
  169. n167=    }
  170. n168=    elseif ($2-3 == Micro SMG) {
  171. n169=      write -l19 Stats\ $+ $1 $+ .txt 1500
  172. n170=      write -l18 Stats\ $+ $1 $+ .txt Micro SMG
  173. n171=      write -l13 Stats\ $+ $1 $+ .txt Micro SMG
  174. n172=    }
  175. n173=    elseif ($2 == Shotgun) {
  176. n174=      write -l19 Stats\ $+ $1 $+ .txt 2000
  177. n175=      write -l18 Stats\ $+ $1 $+ .txt Shotgun
  178. n176=      write -l12 Stats\ $+ $1 $+ .txt Shotgun
  179. n177=    }
  180. n178=    elseif ($2 == SMG) {
  181. n179=      write -l19 Stats\ $+ $1 $+ .txt 2000
  182. n180=      write -l18 Stats\ $+ $1 $+ .txt SMG
  183. n181=      write -l13 Stats\ $+ $1 $+ .txt SMG
  184. n182=    }
  185. n183=    elseif ($2 == Rifle) {
  186. n184=      write -l19 Stats\ $+ $1 $+ .txt 2000
  187. n185=      write -l18 Stats\ $+ $1 $+ .txt Rifle
  188. n186=      write -l15 Stats\ $+ $1 $+ .txt Rifle
  189. n187=    }
  190. n188=    elseif ($2-3 == Desert Eagle) {
  191. n189=      write -l19 Stats\ $+ $1 $+ .txt 3000
  192. n190=      write -l18 Stats\ $+ $1 $+ .txt Desert Eagle
  193. n191=      write -l11 Stats\ $+ $1 $+ .txt Desert Eagle
  194. n192=    }
  195. n193=    elseif ($2-3 == Sawn-Off Shotgun) {
  196. n194=      write -l19 Stats\ $+ $1 $+ .txt 3000
  197. n195=      write -l18 Stats\ $+ $1 $+ .txt Sawn-Off Shotgun
  198. n196=      write -l12 Stats\ $+ $1 $+ .txt Sawn-Off Shotgun
  199. n197=    }
  200. n198=    elseif ($2 == Sniper) {
  201. n199=      write -l19 Stats\ $+ $1 $+ .txt 3000
  202. n200=      write -l18 Stats\ $+ $1 $+ .txt Sniper
  203. n201=      write -l15 Stats\ $+ $1 $+ .txt Sniper
  204. n202=    }
  205. n203=    elseif ($2-3 == Combat Shotgun) {
  206. n204=      write -l19 Stats\ $+ $1 $+ .txt 4000
  207. n205=      write -l18 Stats\ $+ $1 $+ .txt Combat Shotgun
  208. n206=      write -l12 Stats\ $+ $1 $+ .txt Combat Shotgun
  209. n207=    }
  210. n208=    elseif ($2 == AK-47) {
  211. n209=      write -l19 Stats\ $+ $1 $+ .txt 5000
  212. n210=      write -l18 Stats\ $+ $1 $+ .txt AK-47
  213. n211=      write -l14 Stats\ $+ $1 $+ .txt AK-47
  214. n212=    }
  215. n213=    elseif ($2 == Flamethrower) {
  216. n214=      write -l19 Stats\ $+ $1 $+ .txt 5000
  217. n215=      write -l18 Stats\ $+ $1 $+ .txt Flamethrower
  218. n216=      write -l16 Stats\ $+ $1 $+ .txt Flamethrower
  219. n217=    }
  220. n218=    elseif ($2 == Molotovs) {
  221. n219=      write -l19 Stats\ $+ $1 $+ .txt 5000
  222. n220=      write -l18 Stats\ $+ $1 $+ .txt Molotovs
  223. n221=      write -l17 Stats\ $+ $1 $+ .txt Molotovs
  224. n222=    }
  225. n223=    elseif ($2 == M4) {
  226. n224=      write -l19 Stats\ $+ $1 $+ .txt 5500
  227. n225=      write -l18 Stats\ $+ $1 $+ .txt M4
  228. n226=      write -l14 Stats\ $+ $1 $+ .txt M4
  229. n227=    }
  230. n228=    elseif ($2 == Satchels) {
  231. n229=      write -l19 Stats\ $+ $1 $+ .txt 10000
  232. n230=      write -l18 Stats\ $+ $1 $+ .txt Satchels
  233. n231=      write -l17 Stats\ $+ $1 $+ .txt Satchels
  234. n232=    }
  235. n233=    elseif ($2 == Grenades) {
  236. n234=      write -l19 Stats\ $+ $1 $+ .txt 15000
  237. n235=      write -l18 Stats\ $+ $1 $+ .txt Grenades
  238. n236=      write -l17 Stats\ $+ $1 $+ .txt Grenades
  239. n237=    }
  240. n238=    elseif ($2-3 == Rocket Launcher) {
  241. n239=      write -l19 Stats\ $+ $1 $+ .txt 30000
  242. n240=      write -l18 Stats\ $+ $1 $+ .txt Rocket Launcher
  243. n241=      write -l16 Stats\ $+ $1 $+ .txt Rocket Launcher
  244. n242=    }
  245. n243=    elseif ($2 == Minigun) {
  246. n244=      write -l19 Stats\ $+ $1 $+ .txt 200000
  247. n245=      write -l18 Stats\ $+ $1 $+ .txt Minigun
  248. n246=      write -l16 Stats\ $+ $1 $+ .txt Minigun
  249. n247=    }
  250. n248=    else {
  251. n249=      .msg %owner 4ERROR:2 Trying to change "6Current Weapon2" of "4 $+ $1 $+ 2": 6Unknown Weapon " $+ $2- $+ "
  252. n250=      .notice $1 4ERROR:2 Something went wrong... Bug has been reported to %owner [CHANGING WEAPONS]
  253. n251=      halt
  254. n252=    }
  255. n253=  }
  256. n254=  elseif (%duel == 1) {
  257. n255=    .notice $1 4ERROR:2 You can't change weapons while loading duel...
  258. n256=  }
  259. n257=  else {
  260. n258=    msg #[MM]IKKE 4ERROR:2 Something terribly went wrong... [DUEL + !ccw]
  261. n259=  }
  262. n260=}
  263. n261=/changerank {
  264. n262=  if ($2 !isin $read(Stats\ $+ $1 $+ .txt,26)) {
  265. n263=    write -l26 Stats\ $+ $1 $+ .txt $2-
  266. n264=    if ($1 ison #[MM]IKKE) { .notice $1 2Congratulations! Your rank increased, you are now:11 $read(Stats\ $+ $1 $+ .txt, 26) }
  267. n265=  }
  268. n266=}
  269. n267=/changeranknick {
  270. n268=  {
  271. n269=    if ($1 == $readini(Stats\RPG ranks.ini,rank,rank1)) {
  272. n270=      writeini "Stats\RPG ranks.ini" rank rank1 $2
  273. n271=    }
  274. n272=    elseif ($1 == $readini(Stats\RPG ranks.ini,rank,rank2)) {
  275. n273=      writeini "Stats\RPG ranks.ini" rank rank2 $2
  276. n274=    }
  277. n275=    elseif ($1 == $readini(Stats\RPG ranks.ini,rank,rank3)) {
  278. n276=      writeini "Stats\RPG ranks.ini" rank rank3 $2
  279. n277=    }
  280. n278=    elseif ($1 == $readini(Stats\RPG ranks.ini,rank,rank4)) {
  281. n279=      writeini "Stats\RPG ranks.ini" rank rank4 $2
  282. n280=    }
  283. n281=    elseif ($1 == $readini(Stats\RPG ranks.ini,rank,rank5)) {
  284. n282=      writeini "Stats\RPG ranks.ini" rank rank5 $2
  285. n283=    }
  286. n284=  }
  287. n285=  {
  288. n286=    if ($1 == $readini(Stats\RPG ranks.ini,cash,rank1)) {
  289. n287=      writeini "Stats\RPG ranks.ini" cash rank1 $2
  290. n288=    }
  291. n289=    elseif ($1 == $readini(Stats\RPG ranks.ini,cash,rank2)) {
  292. n290=      writeini "Stats\RPG ranks.ini" cash rank2 $2
  293. n291=    }
  294. n292=    elseif ($1 == $readini(Stats\RPG ranks.ini,cash,rank3)) {
  295. n293=      writeini "Stats\RPG ranks.ini" cash rank3 $2
  296. n294=    }
  297. n295=    elseif ($1 == $readini(Stats\RPG ranks.ini,cash,rank4)) {
  298. n296=      writeini "Stats\RPG ranks.ini" cash rank4 $2
  299. n297=    }
  300. n298=    elseif ($1 == $readini(Stats\RPG ranks.ini,cash,rank5)) {
  301. n299=      writeini "Stats\RPG ranks.ini" cash rank5 $2
  302. n300=    }
  303. n301=  }
  304. n302=  {
  305. n303=    if ($1 == $readini(Stats\RPG ranks.ini,cookies,rank1)) {
  306. n304=      writeini "Stats\RPG ranks.ini" cookies rank1 $2
  307. n305=    }
  308. n306=    elseif ($1 == $readini(Stats\RPG ranks.ini,cookies,rank2)) {
  309. n307=      writeini "Stats\RPG ranks.ini" cookies rank2 $2
  310. n308=    }
  311. n309=    elseif ($1 == $readini(Stats\RPG ranks.ini,cookies,rank3)) {
  312. n310=      writeini "Stats\RPG ranks.ini" cookies rank3 $2
  313. n311=    }
  314. n312=    elseif ($1 == $readini(Stats\RPG ranks.ini,cookies,rank4)) {
  315. n313=      writeini "Stats\RPG ranks.ini" cookies rank4 $2
  316. n314=    }
  317. n315=    elseif ($1 == $readini(Stats\RPG ranks.ini,cookies,rank5)) {
  318. n316=      writeini "Stats\RPG ranks.ini" cookies rank5 $2
  319. n317=    }
  320. n318=  }
  321. n319=  {
  322. n320=    if ($1 == $readini(Stats\RPG ranks.ini,kills,rank1)) {
  323. n321=      writeini "Stats\RPG ranks.ini" kills rank1 $2
  324. n322=    }
  325. n323=    elseif ($1 == $readini(Stats\RPG ranks.ini,kills,rank2)) {
  326. n324=      writeini "Stats\RPG ranks.ini" kills rank2 $2
  327. n325=    }
  328. n326=    elseif ($1 == $readini(Stats\RPG ranks.ini,kills,rank3)) {
  329. n327=      writeini "Stats\RPG ranks.ini" kills rank3 $2
  330. n328=    }
  331. n329=    elseif ($1 == $readini(Stats\RPG ranks.ini,kills,rank4)) {
  332. n330=      writeini "Stats\RPG ranks.ini" kills rank4 $2
  333. n331=    }
  334. n332=    elseif ($1 == $readini(Stats\RPG ranks.ini,kills,rank5)) {
  335. n333=      writeini "Stats\RPG ranks.ini" kills rank5 $2
  336. n334=    }
  337. n335=  }
  338. n336=  {
  339. n337=    if ($1 == $readini(Stats\RPG ranks.ini,deaths,rank1)) {
  340. n338=      writeini "Stats\RPG ranks.ini" deaths rank1 $2
  341. n339=    }
  342. n340=    elseif ($1 == $readini(Stats\RPG ranks.ini,deaths,rank2)) {
  343. n341=      writeini "Stats\RPG ranks.ini" deaths rank2 $2
  344. n342=    }
  345. n343=    elseif ($1 == $readini(Stats\RPG ranks.ini,deaths,rank3)) {
  346. n344=      writeini "Stats\RPG ranks.ini" deaths rank3 $2
  347. n345=    }
  348. n346=    elseif ($1 == $readini(Stats\RPG ranks.ini,deaths,rank4)) {
  349. n347=      writeini "Stats\RPG ranks.ini" deaths rank4 $2
  350. n348=    }
  351. n349=    elseif ($1 == $readini(Stats\RPG ranks.ini,deaths,rank5)) {
  352. n350=      writeini "Stats\RPG ranks.ini" deaths rank5 $2
  353. n351=    }
  354. n352=  }
  355. n353=  {
  356. n354=    if ($1 == $readini(Stats\RPG ranks.ini,ratio,rank1)) {
  357. n355=      writeini "Stats\RPG ranks.ini" ratio rank1 $2
  358. n356=    }
  359. n357=    elseif ($1 == $readini(Stats\RPG ranks.ini,ratio,rank2)) {
  360. n358=      writeini "Stats\RPG ranks.ini" ratio rank2 $2
  361. n359=    }
  362. n360=    elseif ($1 == $readini(Stats\RPG ranks.ini,ratio,rank3)) {
  363. n361=      writeini "Stats\RPG ranks.ini" ratio rank3 $2
  364. n362=    }
  365. n363=    elseif ($1 == $readini(Stats\RPG ranks.ini,ratio,rank4)) {
  366. n364=      writeini "Stats\RPG ranks.ini" ratio rank4 $2
  367. n365=    }
  368. n366=    elseif ($1 == $readini(Stats\RPG ranks.ini,ratio,rank5)) {
  369. n367=      writeini "Stats\RPG ranks.ini" ratio rank5 $2
  370. n368=    }
  371. n369=  }
  372. n370=}
  373. n371=/checkcookie {
  374. n372=  if ($calc($read(Stats\ $+ $1 $+ .txt, 3) - $2 ) < 0) {
  375. n373=    .notice $1 4ERROR:2 You do not have enough cookies ( $+ $abs($calc($read(Stats\ $+ $1 $+ .txt, 3) - $2 )) cash needed)
  376. n374=    halt
  377. n375=  }
  378. n376=}
  379. n377=/checkmoney {
  380. n378=  if ($calc($read(Stats\ $+ $1 $+ .txt, 4) - $2 ) < 0) {
  381. n379=    .notice $1 4ERROR:2 You do not have enough money ( $+ $abs($calc($read(Stats\ $+ $1 $+ .txt, 4) - $2 )) cash needed)
  382. n380=    halt
  383. n381=  }
  384. n382=}
  385. n383=/checkrank {
  386. n384=  if ($calc($read(Stats\ $+ $1 $+ .txt, 27) - $2 ) < 0) {
  387. n385=    .notice $1 4ERROR:2 Your rank isn't high enough ( $+ $abs($calc($read(Stats\ $+ $1 $+ .txt, 27) - $2 )) skillpoints needed)
  388. n386=    halt
  389. n387=  }
  390. n388=}
  391. n389=/cookie {
  392. n390=  write -l3 Stats\ $+ $1 $+ .txt $calc($read(Stats\ $+ $1 $+ .txt, 3) + 1)
  393. n391=  increaserank $1 2
  394. n392=  {
  395. n393=    if ($read(Stats\ $+ $1 $+ .txt, 3) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,cookies,rank1) $+ .txt, 3)) {
  396. n394=      if ($1 != $readini(Stats\RPG ranks.ini,cookies,rank1)) {
  397. n395=        if ($1 == $readini(Stats\RPG ranks.ini,cookies,rank2)) {
  398. n396=          writeini "Stats\RPG ranks.ini" cookies rank2 $readini(Stats\RPG ranks.ini,cookies,rank1)
  399. n397=          writeini "Stats\RPG ranks.ini" cookies rank1 $1
  400. n398=        }
  401. n399=        elseif ($1 == $readini(Stats\RPG ranks.ini,cookies,rank3)) {
  402. n400=          writeini "Stats\RPG ranks.ini" cookies rank3 $readini(Stats\RPG ranks.ini,cookies,rank2)
  403. n401=          writeini "Stats\RPG ranks.ini" cookies rank2 $readini(Stats\RPG ranks.ini,cookies,rank1)
  404. n402=          writeini "Stats\RPG ranks.ini" cookies rank1 $1
  405. n403=        }
  406. n404=        elseif ($1 == $readini(Stats\RPG ranks.ini,cookies,rank3)) {
  407. n405=          writeini "Stats\RPG ranks.ini" cookies rank4 $readini(Stats\RPG ranks.ini,cookies,rank3)
  408. n406=          writeini "Stats\RPG ranks.ini" cookies rank3 $readini(Stats\RPG ranks.ini,cookies,rank2)
  409. n407=          writeini "Stats\RPG ranks.ini" cookies rank2 $readini(Stats\RPG ranks.ini,cookies,rank1)
  410. n408=          writeini "Stats\RPG ranks.ini" cookies rank1 $1
  411. n409=        }
  412. n410=        else {
  413. n411=          writeini "Stats\RPG ranks.ini" cookies rank5 $readini(Stats\RPG ranks.ini,cookies,rank4)
  414. n412=          writeini "Stats\RPG ranks.ini" cookies rank4 $readini(Stats\RPG ranks.ini,cookies,rank3)
  415. n413=          writeini "Stats\RPG ranks.ini" cookies rank3 $readini(Stats\RPG ranks.ini,cookies,rank2)
  416. n414=          writeini "Stats\RPG ranks.ini" cookies rank2 $readini(Stats\RPG ranks.ini,cookies,rank1)
  417. n415=          writeini "Stats\RPG ranks.ini" cookies rank1 $1
  418. n416=        }
  419. n417=      }
  420. n418=    }
  421. n419=    elseif ($read(Stats\ $+ $1 $+ .txt, 3) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,cookies,rank2) $+ .txt, 3)) {
  422. n420=      if ($1 != $readini(Stats\RPG ranks.ini,cookies,rank2)) {
  423. n421=        if ($1 == $readini(Stats\RPG ranks.ini,cookies,rank3)) {
  424. n422=          writeini "Stats\RPG ranks.ini" cookies rank3 $readini(Stats\RPG ranks.ini,cookies,rank2)
  425. n423=          writeini "Stats\RPG ranks.ini" cookies rank2 $1
  426. n424=        }
  427. n425=        elseif ($1 == $readini(Stats\RPG ranks.ini,cookies,rank3)) {
  428. n426=          writeini "Stats\RPG ranks.ini" cookies rank4 $readini(Stats\RPG ranks.ini,cookies,rank3)
  429. n427=          writeini "Stats\RPG ranks.ini" cookies rank3 $readini(Stats\RPG ranks.ini,cookies,rank2)
  430. n428=          writeini "Stats\RPG ranks.ini" cookies rank2 $1
  431. n429=        }
  432. n430=        else {
  433. n431=          writeini "Stats\RPG ranks.ini" cookies rank5 $readini(Stats\RPG ranks.ini,cookies,rank4)
  434. n432=          writeini "Stats\RPG ranks.ini" cookies rank4 $readini(Stats\RPG ranks.ini,cookies,rank3)
  435. n433=          writeini "Stats\RPG ranks.ini" cookies rank3 $readini(Stats\RPG ranks.ini,cookies,rank2)
  436. n434=          writeini "Stats\RPG ranks.ini" cookies rank2 $1
  437. n435=        }
  438. n436=      }
  439. n437=    }
  440. n438=    elseif ($read(Stats\ $+ $1 $+ .txt, 3) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,cookies,rank3) $+ .txt, 3)) {
  441. n439=      if ($1 != $readini(Stats\RPG ranks.ini,cookies,rank3)) {
  442. n440=        if ($1 == $readini(Stats\RPG ranks.ini,cookies,rank3)) {
  443. n441=          writeini "Stats\RPG ranks.ini" cookies rank4 $readini(Stats\RPG ranks.ini,cookies,rank3)
  444. n442=          writeini "Stats\RPG ranks.ini" cookies rank3 $1
  445. n443=        }
  446. n444=        else {
  447. n445=          writeini "Stats\RPG ranks.ini" cookies rank5 $readini(Stats\RPG ranks.ini,cookies,rank4)
  448. n446=          writeini "Stats\RPG ranks.ini" cookies rank4 $readini(Stats\RPG ranks.ini,cookies,rank3)
  449. n447=          writeini "Stats\RPG ranks.ini" cookies rank3 $1
  450. n448=        }
  451. n449=      }
  452. n450=    }
  453. n451=    elseif ($read(Stats\ $+ $1 $+ .txt, 3) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,cookies,rank3) $+ .txt, 3)) {
  454. n452=      if ($1 != $readini(Stats\RPG ranks.ini,cookies,rank3)) {
  455. n453=        writeini "Stats\RPG ranks.ini" cookies rank5 $readini(Stats\RPG ranks.ini,cookies,rank3)
  456. n454=        writeini "Stats\RPG ranks.ini" cookies rank4 $1
  457. n455=      }
  458. n456=    }
  459. n457=    elseif ($read(Stats\ $+ $1 $+ .txt, 3) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,cookies,rank3) $+ .txt, 3)) {
  460. n458=      if ($1 != $readini(Stats\RPG ranks.ini,cookies,rank3)) {
  461. n459=        writeini "Stats\RPG ranks.ini" cookies rank5 $1
  462. n460=      }
  463. n461=    }
  464. n462=  }
  465. n463=}
  466. n464=/createaccount {
  467. n465=  if (%rpggame == 0) {
  468. n466=    .notice $1 4ERROR:2 RPG is currently not enabled
  469. n467=    halt
  470. n468=  }
  471. n469=  elseif (%rpggame == 1) {
  472. n470=    if ($1 isin %mybots) { halt }
  473. n471=    elseif ($exists(Stats\ $+ $1 $+ [KICKED].txt)) {
  474. n472=      msg #[MM]IKKE 4ERROR:2 "4 $+ $1 $+ 2" is kicked out of the RPG. Please be patient.
  475. n473=      halt
  476. n474=    }
  477. n475=    elseif ($1 isin $read(Stats\Ban list.txt, w, $1)) {
  478. n476=      .notice $1 4ERROR:2 You are banned/kicked from this game. Want an unban? Query an admin (!admins) and ask it politely. DO NOT SPAM!
  479. n477=      halt
  480. n478=    }
  481. n479=    elseif ($1 isin $read(bots.txt,w,$1) || $1 isin $read(userbots.txt,w,$1)) {
  482. n480=      .notice $1 4ERROR:2 You are currently acknowledged as a bot. You can not create an account.
  483. n481=      halt
  484. n482=    }
  485. n483=    elseif (| !isin $1 && $left($1,1) !isnum && BUSY !isin $1 && homework !isin $1 && AFK !isin $1 && AWAY !isin $1 && Ingame !isin $1 && BNC !isin $1 && Guest !isin $1 && $chr(96) !isin $1) {
  486. n484=      if ($1 !isin $read(Stats\User list.txt, w, $1)) {
  487. n485=        write "Stats\User list.txt" $1  
  488. n486=      }
  489. n487=      write Stats\ $+ $1 $+ .txt Statistics
  490. n488=      write Stats\ $+ $1 $+ .txt 0
  491. n489=      write Stats\ $+ $1 $+ .txt 2
  492. n490=      write Stats\ $+ $1 $+ .txt 5000
  493. n491=      write Stats\ $+ $1 $+ .txt 0
  494. n492=      write Stats\ $+ $1 $+ .txt 0
  495. n493=      write Stats\ $+ $1 $+ .txt 100
  496. n494=      write Stats\ $+ $1 $+ .txt 0
  497. n495=      write Stats\ $+ $1 $+ .txt Fists
  498. n496=      write Stats\ $+ $1 $+ .txt $crlf
  499. n497=      write Stats\ $+ $1 $+ .txt $crlf
  500. n498=      write Stats\ $+ $1 $+ .txt $crlf
  501. n499=      write Stats\ $+ $1 $+ .txt $crlf
  502. n500=      write Stats\ $+ $1 $+ .txt $crlf
  503. n501=      write Stats\ $+ $1 $+ .txt $crlf
  504. n502=      write Stats\ $+ $1 $+ .txt $crlf
  505. n503=      write Stats\ $+ $1 $+ .txt $crlf
  506. n504=      write Stats\ $+ $1 $+ .txt Fists
  507. n505=      write Stats\ $+ $1 $+ .txt 50
  508. n506=      write Stats\ $+ $1 $+ .txt On foot
  509. n507=      write Stats\ $+ $1 $+ .txt 0
  510. n508=      write Stats\ $+ $1 $+ .txt No girlfriends
  511. n509=      write Stats\ $+ $1 $+ .txt No house
  512. n510=      write Stats\ $+ $1 $+ .txt No clan
  513. n511=      write Stats\ $+ $1 $+ .txt No clan
  514. n512=      write Stats\ $+ $1 $+ .txt Newbie
  515. n513=      write Stats\ $+ $1 $+ .txt 0
  516. n514=      write Stats\ $+ $1 $+ .txt Los Santos
  517. n515=      write Stats\ $+ $1 $+ .txt Grove Street
  518. n516=      .notice $1 2An account has been created for you. Useful commands: !introduction, !help, !about, !info RPG, !rpgcommands. Please be aware that any user can create an account for someone else. Do not spam commands, behave well, and enjoy the game!
  519. n517=    }
  520. n518=    elseif (AFK isin $1) {
  521. n519=      .notice $1 4ERROR:2 Unable to create account (detected "AFK")
  522. n520=      halt
  523. n521=    }
  524. n522=    elseif (BUSY isin $1) {
  525. n523=      .notice $1 4ERROR:2 Unable to create account (detected "BUSY")
  526. n524=      halt
  527. n525=    }
  528. n526=    elseif (homework isin $1) {
  529. n527=      .notice $1 4ERROR:2 Unable to create account (detected "homework")
  530. n528=      halt
  531. n529=    }
  532. n530=    elseif (AWAY isin $1) {
  533. n531=      .notice $1 4ERROR:2 Unable to create account (detected "AWAY")
  534. n532=      halt
  535. n533=    }
  536. n534=    elseif (Ingame isin $1) {
  537. n535=      .notice $1 4ERROR:2 Unable to create account (detected "INGAME")
  538. n536=      halt
  539. n537=    }
  540. n538=    elseif ($chr(96) isin $1) {
  541. n539=      .notice $1 4ERROR:2 Unable to create account (illegal signs: "`")
  542. n540=      halt
  543. n541=    }
  544. n542=    elseif (BNC isin $1) {
  545. n543=      .notice $1 4ERROR:2 Unable to create account (detected "BNC")
  546. n544=      halt
  547. n545=    }
  548. n546=    elseif (Guest isin $1) {
  549. n547=      .notice $1 4ERROR:2 Unable to create account (detected "Guest")
  550. n548=      halt
  551. n549=    }
  552. n550=    elseif (| isin $1) {
  553. n551=      .notice $1 4ERROR:2 Unable to create account (illegal signs: "|")
  554. n552=      halt
  555. n553=    }
  556. n554=    elseif ($left($1,1) !isnum) {
  557. n555=      .notice $1 4ERROR:2 Unable to create account (illegal signs: nick starting with number)
  558. n556=      halt
  559. n557=    }
  560. n558=    else {
  561. n559=      .notice $1 4ERROR:2 Something terribly went wrong... [CREATING ACCOUNT]
  562. n560=      halt
  563. n561=    }
  564. n562=  }
  565. n563=  else {
  566. n564=    .msg %owner 4ERROR:2 Unable to create account for "4 $+ $1 $+ 2" (unknown RPG status)
  567. n565=    .notice $1 4ERROR:2 Something went wrong... Bug has been reported to %owner [RPG STATUS]
  568. n566=    halt
  569. n567=  }
  570. n568=}
  571. n569=/decreasecash  {
  572. n570=  write -l4 Stats\ $+ $1 $+ .txt $calc($read(Stats\ $+ $1 $+ .txt, 4) - $2 )
  573. n571=}
  574. n572=/decreasehealth {
  575. n573=  if ($read(Stats\ $+ $1 $+ .txt, 8) == 0) {
  576. n574=    if ($calc($read(Stats\ $+ $1 $+ .txt, 7) - $2 ) > 0) {
  577. n575=      write -l7 Stats\ $+ $1 $+ .txt $calc($read(Stats\ $+ $1 $+ .txt, 7) - $2 )
  578. n576=    }
  579. n577=    elseif ($calc($read(Stats\ $+ $1 $+ .txt, 7) - $2 ) <= 0) {
  580. n578=      if ($1 !isin $read(Stats\Administrator list.txt, w, $1)) {
  581. n579=        write -l7 Stats\ $+ $1 $+ .txt 0
  582. n580=        if ($1 !isin $read(Stats\Death list.txt,w,$1)) {
  583. n581=          write "Stats\Death list.txt" $1
  584. n582=        }
  585. n583=      }
  586. n584=      else {
  587. n585=        write -l7 Stats\ $+ $1 $+ .txt 0
  588. n586=        write -l8 Stats\ $+ $1 $+ .txt 0
  589. n587=        .timer 1 3 write -l7 Stats\ $+ $1 $+ .txt 100
  590. n588=        .timer 1 3 write -l8 Stats\ $+ $1 $+ .txt 100
  591. n589=        .timer 1 3 .notice $1 2You're an Administrator, you have been revived automatically
  592. n590=      }
  593. n591=    }
  594. n592=  }
  595. n593=  elseif ($calc($read(Stats\ $+ $1 $+ .txt, 8) - $2 ) >= 0) {
  596. n594=    write -l8 Stats\ $+ $1 $+ .txt $calc($read(Stats\ $+ $1 $+ .txt, 8) - $2 )
  597. n595=  }
  598. n596=  else {
  599. n597=    if ($calc($read(Stats\ $+ $1 $+ .txt, 7) - ($2 - $read(Stats\ $+ $1 $+ .txt, 8))) > 0) {
  600. n598=      write -l7 Stats\ $+ $1 $+ .txt $calc($read(Stats\ $+ $1 $+ .txt, 7) - ($2 - $read(Stats\ $+ $1 $+ .txt, 8)))
  601. n599=      write -l8 Stats\ $+ $1 $+ .txt 0
  602. n600=    }
  603. n601=    elseif ($calc($read(Stats\ $+ $1 $+ .txt, 7) - ($2 - $read(Stats\ $+ $1 $+ .txt, 8))) <= 0) {
  604. n602=      if ($1 !isin $read(Stats\Administrator list.txt, w, $1)) {
  605. n603=        write -l7 Stats\ $+ $1 $+ .txt 0
  606. n604=        write -l8 Stats\ $+ $1 $+ .txt 0
  607. n605=        if ($1 !isin $read(Stats\Death list.txt,w,$1)) {
  608. n606=          write "Stats\Death list.txt" $1
  609. n607=        }
  610. n608=      }
  611. n609=      else {
  612. n610=        write -l7 Stats\ $+ $1 $+ .txt 0
  613. n611=        write -l8 Stats\ $+ $1 $+ .txt 0
  614. n612=        .timer 1 3 write -l7 Stats\ $+ $1 $+ .txt 100
  615. n613=        .timer 1 3 write -l8 Stats\ $+ $1 $+ .txt 100
  616. n614=        .timer 1 3 .notice $1 2You're an Administrator, you have been revived automatically
  617. n615=      }
  618. n616=    }
  619. n617=  }
  620. n618=}
  621. n619=/getcookie {
  622. n620=  write -l3 Stats\ $+ $1 $+ .txt $calc($read(Stats\ $+ $1 $+ .txt, 3) - 1)
  623. n621=}
  624. n622=/increasecash {
  625. n623=  if ($2 >= 0) {
  626. n624=    write -l4 Stats\ $+ $1 $+ .txt $calc($read(Stats\ $+ $1 $+ .txt, 4) + $2 )
  627. n625=    {
  628. n626=      if ($read(Stats\ $+ $1 $+ .txt, 4) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,cash,rank1) $+ .txt, 4)) {
  629. n627=        if ($1 != $readini(Stats\RPG ranks.ini,cash,rank1)) {
  630. n628=          if ($1 == $readini(Stats\RPG ranks.ini,cash,rank2)) {
  631. n629=            writeini "Stats\RPG ranks.ini" cash rank2 $readini(Stats\RPG ranks.ini,cash,rank1)
  632. n630=            writeini "Stats\RPG ranks.ini" cash rank1 $1
  633. n631=          }
  634. n632=          elseif ($1 == $readini(Stats\RPG ranks.ini,cash,rank3)) {
  635. n633=            writeini "Stats\RPG ranks.ini" cash rank3 $readini(Stats\RPG ranks.ini,cash,rank2)
  636. n634=            writeini "Stats\RPG ranks.ini" cash rank2 $readini(Stats\RPG ranks.ini,cash,rank1)
  637. n635=            writeini "Stats\RPG ranks.ini" cash rank1 $1
  638. n636=          }
  639. n637=          elseif ($1 == $readini(Stats\RPG ranks.ini,cash,rank4)) {
  640. n638=            writeini "Stats\RPG ranks.ini" cash rank4 $readini(Stats\RPG ranks.ini,cash,rank3)
  641. n639=            writeini "Stats\RPG ranks.ini" cash rank3 $readini(Stats\RPG ranks.ini,cash,rank2)
  642. n640=            writeini "Stats\RPG ranks.ini" cash rank2 $readini(Stats\RPG ranks.ini,cash,rank1)
  643. n641=            writeini "Stats\RPG ranks.ini" cash rank1 $1
  644. n642=          }
  645. n643=          else {
  646. n644=            writeini "Stats\RPG ranks.ini" cash rank5 $readini(Stats\RPG ranks.ini,cash,rank4)
  647. n645=            writeini "Stats\RPG ranks.ini" cash rank4 $readini(Stats\RPG ranks.ini,cash,rank3)
  648. n646=            writeini "Stats\RPG ranks.ini" cash rank3 $readini(Stats\RPG ranks.ini,cash,rank2)
  649. n647=            writeini "Stats\RPG ranks.ini" cash rank2 $readini(Stats\RPG ranks.ini,cash,rank1)
  650. n648=            writeini "Stats\RPG ranks.ini" cash rank1 $1
  651. n649=          }
  652. n650=        }
  653. n651=      }
  654. n652=      elseif ($read(Stats\ $+ $1 $+ .txt, 4) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,cash,rank2) $+ .txt, 4)) {
  655. n653=        if ($1 != $readini(Stats\RPG ranks.ini,cash,rank2)) {
  656. n654=          if ($1 == $readini(Stats\RPG ranks.ini,cash,rank3)) {
  657. n655=            writeini "Stats\RPG ranks.ini" cash rank3 $readini(Stats\RPG ranks.ini,cash,rank2)
  658. n656=            writeini "Stats\RPG ranks.ini" cash rank2 $1
  659. n657=          }
  660. n658=          elseif ($1 == $readini(Stats\RPG ranks.ini,cash,rank4)) {
  661. n659=            writeini "Stats\RPG ranks.ini" cash rank4 $readini(Stats\RPG ranks.ini,cash,rank3)
  662. n660=            writeini "Stats\RPG ranks.ini" cash rank3 $readini(Stats\RPG ranks.ini,cash,rank2)
  663. n661=            writeini "Stats\RPG ranks.ini" cash rank2 $1
  664. n662=          }
  665. n663=          else {
  666. n664=            writeini "Stats\RPG ranks.ini" cash rank5 $readini(Stats\RPG ranks.ini,cash,rank4)
  667. n665=            writeini "Stats\RPG ranks.ini" cash rank4 $readini(Stats\RPG ranks.ini,cash,rank3)
  668. n666=            writeini "Stats\RPG ranks.ini" cash rank3 $readini(Stats\RPG ranks.ini,cash,rank2)
  669. n667=            writeini "Stats\RPG ranks.ini" cash rank2 $1
  670. n668=          }
  671. n669=        }
  672. n670=      }
  673. n671=      elseif ($read(Stats\ $+ $1 $+ .txt, 4) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,cash,rank3) $+ .txt, 4)) {
  674. n672=        if ($1 != $readini(Stats\RPG ranks.ini,cash,rank3)) {
  675. n673=          if ($1 == $readini(Stats\RPG ranks.ini,cash,rank4)) {
  676. n674=            writeini "Stats\RPG ranks.ini" cash rank4 $readini(Stats\RPG ranks.ini,cash,rank3)
  677. n675=            writeini "Stats\RPG ranks.ini" cash rank3 $1
  678. n676=          }
  679. n677=          else {
  680. n678=            writeini "Stats\RPG ranks.ini" cash rank5 $readini(Stats\RPG ranks.ini,cash,rank4)
  681. n679=            writeini "Stats\RPG ranks.ini" cash rank4 $readini(Stats\RPG ranks.ini,cash,rank3)
  682. n680=            writeini "Stats\RPG ranks.ini" cash rank3 $1
  683. n681=          }
  684. n682=        }
  685. n683=      }
  686. n684=      elseif ($read(Stats\ $+ $1 $+ .txt, 4) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,cash,rank4) $+ .txt, 4)) {
  687. n685=        if ($1 != $readini(Stats\RPG ranks.ini,cash,rank4)) {
  688. n686=          writeini "Stats\RPG ranks.ini" cash rank5 $readini(Stats\RPG ranks.ini,cash,rank4)
  689. n687=          writeini "Stats\RPG ranks.ini" cash rank4 $1
  690. n688=        }
  691. n689=      }
  692. n690=      elseif ($read(Stats\ $+ $1 $+ .txt, 4) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,cash,rank4) $+ .txt, 4)) {
  693. n691=        if ($1 != $readini(Stats\RPG ranks.ini,cash,rank4)) {
  694. n692=          writeini "Stats\RPG ranks.ini" cash rank5 $1
  695. n693=        }
  696. n694=      }
  697. n695=    }
  698. n696=  }
  699. n697=  else { .notice $1 4ERROR:2 Something terribly went wrong... [Negative cash amount] }
  700. n698=}
  701. n699=/increasedeath {
  702. n700=  write -l6 Stats\ $+ $1 $+ .txt $calc($read(Stats\ $+ $1 $+ .txt, 6) + 1 )
  703. n701=  {
  704. n702=    if ($calc($read(Stats\ $+ $1 $+ .txt, 4) - 5000 ) >= 0) {
  705. n703=      decreasecash $1 500
  706. n704=    }
  707. n705=    else {
  708. n706=      write -l4 Stats\ $+ $1 $+ .txt 0
  709. n707=    }
  710. n708=  }
  711. n709=  {
  712. n710=    if ($read(Stats\ $+ $1 $+ .txt, 6) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,deaths,rank1) $+ .txt, 6)) {
  713. n711=      if ($1 != $readini(Stats\RPG ranks.ini,deaths,rank1)) {
  714. n712=        if ($1 == $readini(Stats\RPG ranks.ini,deaths,rank2)) {
  715. n713=          writeini "Stats\RPG ranks.ini" deaths rank2 $readini(Stats\RPG ranks.ini,deaths,rank1)
  716. n714=          writeini "Stats\RPG ranks.ini" deaths rank1 $1
  717. n715=        }
  718. n716=        elseif ($1 == $readini(Stats\RPG ranks.ini,deaths,rank3)) {
  719. n717=          writeini "Stats\RPG ranks.ini" deaths rank3 $readini(Stats\RPG ranks.ini,deaths,rank2)
  720. n718=          writeini "Stats\RPG ranks.ini" deaths rank2 $readini(Stats\RPG ranks.ini,deaths,rank1)
  721. n719=          writeini "Stats\RPG ranks.ini" deaths rank1 $1
  722. n720=        }
  723. n721=        elseif ($1 == $readini(Stats\RPG ranks.ini,deaths,rank4)) {
  724. n722=          writeini "Stats\RPG ranks.ini" deaths rank4 $readini(Stats\RPG ranks.ini,deaths,rank3)
  725. n723=          writeini "Stats\RPG ranks.ini" deaths rank3 $readini(Stats\RPG ranks.ini,deaths,rank2)
  726. n724=          writeini "Stats\RPG ranks.ini" deaths rank2 $readini(Stats\RPG ranks.ini,deaths,rank1)
  727. n725=          writeini "Stats\RPG ranks.ini" deaths rank1 $1
  728. n726=        }
  729. n727=        else {
  730. n728=          writeini "Stats\RPG ranks.ini" deaths rank5 $readini(Stats\RPG ranks.ini,deaths,rank4)
  731. n729=          writeini "Stats\RPG ranks.ini" deaths rank4 $readini(Stats\RPG ranks.ini,deaths,rank3)
  732. n730=          writeini "Stats\RPG ranks.ini" deaths rank3 $readini(Stats\RPG ranks.ini,deaths,rank2)
  733. n731=          writeini "Stats\RPG ranks.ini" deaths rank2 $readini(Stats\RPG ranks.ini,deaths,rank1)
  734. n732=          writeini "Stats\RPG ranks.ini" deaths rank1 $1
  735. n733=        }
  736. n734=      }
  737. n735=    }
  738. n736=    elseif ($read(Stats\ $+ $1 $+ .txt, 6) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,deaths,rank2) $+ .txt, 6)) {
  739. n737=      if ($1 != $readini(Stats\RPG ranks.ini,deaths,rank2)) {
  740. n738=        if ($1 == $readini(Stats\RPG ranks.ini,deaths,rank3)) {
  741. n739=          writeini "Stats\RPG ranks.ini" deaths rank3 $readini(Stats\RPG ranks.ini,deaths,rank2)
  742. n740=          writeini "Stats\RPG ranks.ini" deaths rank2 $1
  743. n741=        }
  744. n742=        elseif ($1 == $readini(Stats\RPG ranks.ini,deaths,rank4)) {
  745. n743=          writeini "Stats\RPG ranks.ini" deaths rank4 $readini(Stats\RPG ranks.ini,deaths,rank3)
  746. n744=          writeini "Stats\RPG ranks.ini" deaths rank3 $readini(Stats\RPG ranks.ini,deaths,rank2)
  747. n745=          writeini "Stats\RPG ranks.ini" deaths rank2 $1
  748. n746=        }
  749. n747=        else {
  750. n748=          writeini "Stats\RPG ranks.ini" deaths rank5 $readini(Stats\RPG ranks.ini,deaths,rank4)
  751. n749=          writeini "Stats\RPG ranks.ini" deaths rank4 $readini(Stats\RPG ranks.ini,deaths,rank3)
  752. n750=          writeini "Stats\RPG ranks.ini" deaths rank3 $readini(Stats\RPG ranks.ini,deaths,rank2)
  753. n751=          writeini "Stats\RPG ranks.ini" deaths rank2 $1
  754. n752=        }
  755. n753=      }
  756. n754=    }
  757. n755=    elseif ($read(Stats\ $+ $1 $+ .txt, 6) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,deaths,rank3) $+ .txt, 6)) {
  758. n756=      if ($1 != $readini(Stats\RPG ranks.ini,deaths,rank3)) {
  759. n757=        if ($1 == $readini(Stats\RPG ranks.ini,deaths,rank4)) {
  760. n758=          writeini "Stats\RPG ranks.ini" deaths rank4 $readini(Stats\RPG ranks.ini,deaths,rank3)
  761. n759=          writeini "Stats\RPG ranks.ini" deaths rank3 $1
  762. n760=        }
  763. n761=        else {
  764. n762=          writeini "Stats\RPG ranks.ini" deaths rank5 $readini(Stats\RPG ranks.ini,deaths,rank4)
  765. n763=          writeini "Stats\RPG ranks.ini" deaths rank4 $readini(Stats\RPG ranks.ini,deaths,rank3)
  766. n764=          writeini "Stats\RPG ranks.ini" deaths rank3 $1
  767. n765=        }
  768. n766=      }
  769. n767=    }
  770. n768=    elseif ($read(Stats\ $+ $1 $+ .txt, 6) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,deaths,rank4) $+ .txt, 6)) {
  771. n769=      if ($1 != $readini(Stats\RPG ranks.ini,deaths,rank4)) {
  772. n770=        writeini "Stats\RPG ranks.ini" deaths rank5 $readini(Stats\RPG ranks.ini,deaths,rank4)
  773. n771=        writeini "Stats\RPG ranks.ini" deaths rank4 $1
  774. n772=      }
  775. n773=    }
  776. n774=    elseif ($read(Stats\ $+ $1 $+ .txt, 6) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,deaths,rank5) $+ .txt, 6)) {
  777. n775=      if ($1 != $readini(Stats\RPG ranks.ini,deaths,rank5)) {
  778. n776=        writeini "Stats\RPG ranks.ini" deaths rank5 $1
  779. n777=      }
  780. n778=    }
  781. n779=  }
  782. n780=}
  783. n781=/increasehealth {
  784. n782=  if ($read(Stats\ $+ $1 $+ .txt, 7) == 125) {
  785. n783=    if ($calc($read(Stats\ $+ $1 $+ .txt, 8) + $2 ) < 100) {
  786. n784=      write -l8 Stats\ $+ $1 $+ .txt $calc($read(Stats\ $+ $1 $+ .txt, 8) + $2 )
  787. n785=    }
  788. n786=    elseif ($calc($read(Stats\ $+ $1 $+ .txt, 8) + $2 ) >= 100) {
  789. n787=      write -l8 Stats\ $+ $1 $+ .txt 100
  790. n788=    }
  791. n789=  }
  792. n790=  elseif ($calc($read(Stats\ $+ $1 $+ .txt, 7) + $2 ) <= 125) {
  793. n791=    write -l7 Stats\ $+ $1 $+ .txt $calc($read(Stats\ $+ $1 $+ .txt, 7) + $2 )
  794. n792=  }
  795. n793=  else {
  796. n794=    if ($calc($read(Stats\ $+ $1 $+ .txt, 8) + $read(Stats\ $+ $1 $+ .txt, 7) + $2 - 125) < 100) {
  797. n795=      write -l8 Stats\ $+ $1 $+ .txt $calc($read(Stats\ $+ $1 $+ .txt, 8) + $read(Stats\ $+ $1 $+ .txt, 7) + $2 - 125)
  798. n796=    }
  799. n797=    elseif ($calc($read(Stats\ $+ $1 $+ .txt, 8) + $read(Stats\ $+ $1 $+ .txt, 7) + $2 - 125) <= 0) {
  800. n798=      write -l8 Stats\ $+ $1 $+ .txt 100
  801. n799=    }
  802. n800=    write -l7 Stats\ $+ $1 $+ .txt 125
  803. n801=  }
  804. n802=}
  805. n803=/increasekill {
  806. n804=  write -l5 Stats\ $+ $1 $+ .txt $calc($read(Stats\ $+ $1 $+ .txt, 5) + 1 )
  807. n805=  increasecash $1 1000
  808. n806=  calculateratio $1
  809. n807=  {
  810. n808=    if ($read(Stats\ $+ $1 $+ .txt, 5) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,kills,rank1) $+ .txt, 5)) {
  811. n809=      if ($1 != $readini(Stats\RPG ranks.ini,kills,rank1)) {
  812. n810=        if ($1 == $readini(Stats\RPG ranks.ini,kills,rank2)) {
  813. n811=          writeini "Stats\RPG ranks.ini" kills rank2 $readini(Stats\RPG ranks.ini,kills,rank1)
  814. n812=          writeini "Stats\RPG ranks.ini" kills rank1 $1
  815. n813=        }
  816. n814=        elseif ($1 == $readini(Stats\RPG ranks.ini,kills,rank3)) {
  817. n815=          writeini "Stats\RPG ranks.ini" kills rank3 $readini(Stats\RPG ranks.ini,kills,rank2)
  818. n816=          writeini "Stats\RPG ranks.ini" kills rank2 $readini(Stats\RPG ranks.ini,kills,rank1)
  819. n817=          writeini "Stats\RPG ranks.ini" kills rank1 $1
  820. n818=        }
  821. n819=        elseif ($1 == $readini(Stats\RPG ranks.ini,kills,rank4)) {
  822. n820=          writeini "Stats\RPG ranks.ini" kills rank4 $readini(Stats\RPG ranks.ini,kills,rank3)
  823. n821=          writeini "Stats\RPG ranks.ini" kills rank3 $readini(Stats\RPG ranks.ini,kills,rank2)
  824. n822=          writeini "Stats\RPG ranks.ini" kills rank2 $readini(Stats\RPG ranks.ini,kills,rank1)
  825. n823=          writeini "Stats\RPG ranks.ini" kills rank1 $1
  826. n824=        }
  827. n825=        else {
  828. n826=          writeini "Stats\RPG ranks.ini" kills rank5 $readini(Stats\RPG ranks.ini,kills,rank4)
  829. n827=          writeini "Stats\RPG ranks.ini" kills rank4 $readini(Stats\RPG ranks.ini,kills,rank3)
  830. n828=          writeini "Stats\RPG ranks.ini" kills rank3 $readini(Stats\RPG ranks.ini,kills,rank2)
  831. n829=          writeini "Stats\RPG ranks.ini" kills rank2 $readini(Stats\RPG ranks.ini,kills,rank1)
  832. n830=          writeini "Stats\RPG ranks.ini" kills rank1 $1
  833. n831=        }
  834. n832=      }
  835. n833=    }
  836. n834=    elseif ($read(Stats\ $+ $1 $+ .txt, 5) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,kills,rank2) $+ .txt, 5)) {
  837. n835=      if ($1 != $readini(Stats\RPG ranks.ini,kills,rank2)) {
  838. n836=        if ($1 == $readini(Stats\RPG ranks.ini,kills,rank3)) {
  839. n837=          writeini "Stats\RPG ranks.ini" kills rank3 $readini(Stats\RPG ranks.ini,kills,rank2)
  840. n838=          writeini "Stats\RPG ranks.ini" kills rank2 $1
  841. n839=        }
  842. n840=        elseif ($1 == $readini(Stats\RPG ranks.ini,kills,rank4)) {
  843. n841=          writeini "Stats\RPG ranks.ini" kills rank4 $readini(Stats\RPG ranks.ini,kills,rank3)
  844. n842=          writeini "Stats\RPG ranks.ini" kills rank3 $readini(Stats\RPG ranks.ini,kills,rank2)
  845. n843=          writeini "Stats\RPG ranks.ini" kills rank2 $1
  846. n844=        }
  847. n845=        else {
  848. n846=          writeini "Stats\RPG ranks.ini" kills rank5 $readini(Stats\RPG ranks.ini,kills,rank4)
  849. n847=          writeini "Stats\RPG ranks.ini" kills rank4 $readini(Stats\RPG ranks.ini,kills,rank3)
  850. n848=          writeini "Stats\RPG ranks.ini" kills rank3 $readini(Stats\RPG ranks.ini,kills,rank2)
  851. n849=          writeini "Stats\RPG ranks.ini" kills rank2 $1
  852. n850=        }
  853. n851=      }
  854. n852=    }
  855. n853=    elseif ($read(Stats\ $+ $1 $+ .txt, 5) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,kills,rank3) $+ .txt, 5)) {
  856. n854=      if ($1 != $readini(Stats\RPG ranks.ini,kills,rank3)) {
  857. n855=        if ($1 == $readini(Stats\RPG ranks.ini,kills,rank4)) {
  858. n856=          writeini "Stats\RPG ranks.ini" kills rank4 $readini(Stats\RPG ranks.ini,kills,rank3)
  859. n857=          writeini "Stats\RPG ranks.ini" kills rank3 $1
  860. n858=        }
  861. n859=        else {
  862. n860=          writeini "Stats\RPG ranks.ini" kills rank5 $readini(Stats\RPG ranks.ini,kills,rank4)
  863. n861=          writeini "Stats\RPG ranks.ini" kills rank4 $readini(Stats\RPG ranks.ini,kills,rank3)
  864. n862=          writeini "Stats\RPG ranks.ini" kills rank3 $1
  865. n863=        }
  866. n864=      }
  867. n865=    }
  868. n866=    elseif ($read(Stats\ $+ $1 $+ .txt, 5) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,kills,rank4) $+ .txt, 5)) {
  869. n867=      if ($1 != $readini(Stats\RPG ranks.ini,kills,rank4)) {
  870. n868=        writeini "Stats\RPG ranks.ini" kills rank5 $readini(Stats\RPG ranks.ini,kills,rank4)
  871. n869=        writeini "Stats\RPG ranks.ini" kills rank4 $1
  872. n870=      }
  873. n871=    }
  874. n872=    elseif ($read(Stats\ $+ $1 $+ .txt, 5) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,kills,rank5) $+ .txt, 5)) {
  875. n873=      if ($1 != $readini(Stats\RPG ranks.ini,kills,rank5)) {
  876. n874=        writeini "Stats\RPG ranks.ini" kills rank5 $1
  877. n875=      }
  878. n876=    }
  879. n877=  }
  880. n878=}
  881. n879=/increaserank {
  882. n880=  write -l27 Stats\ $+ $1 $+ .txt  $calc($read(Stats\ $+ $1 $+ .txt, 27) + $2 )
  883. n881=  {
  884. n882=    if ($read(Stats\ $+ $1 $+ .txt, 27) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,rank,rank1) $+ .txt, 27)) {
  885. n883=      if ($1 != $readini(Stats\RPG ranks.ini,rank,rank1)) {
  886. n884=        if ($1 == $readini(Stats\RPG ranks.ini,rank,rank2)) {
  887. n885=          writeini "Stats\RPG ranks.ini" rank rank2 $readini(Stats\RPG ranks.ini,rank,rank1)
  888. n886=          writeini "Stats\RPG ranks.ini" rank rank1 $1
  889. n887=        }
  890. n888=        elseif ($1 == $readini(Stats\RPG ranks.ini,rank,rank3)) {
  891. n889=          writeini "Stats\RPG ranks.ini" rank rank3 $readini(Stats\RPG ranks.ini,rank,rank2)
  892. n890=          writeini "Stats\RPG ranks.ini" rank rank2 $readini(Stats\RPG ranks.ini,rank,rank1)
  893. n891=          writeini "Stats\RPG ranks.ini" rank rank1 $1
  894. n892=        }
  895. n893=        elseif ($1 == $readini(Stats\RPG ranks.ini,rank,rank4)) {
  896. n894=          writeini "Stats\RPG ranks.ini" rank rank4 $readini(Stats\RPG ranks.ini,rank,rank3)
  897. n895=          writeini "Stats\RPG ranks.ini" rank rank3 $readini(Stats\RPG ranks.ini,rank,rank2)
  898. n896=          writeini "Stats\RPG ranks.ini" rank rank2 $readini(Stats\RPG ranks.ini,rank,rank1)
  899. n897=          writeini "Stats\RPG ranks.ini" rank rank1 $1
  900. n898=        }
  901. n899=        else {
  902. n900=          writeini "Stats\RPG ranks.ini" rank rank5 $readini(Stats\RPG ranks.ini,rank,rank4)
  903. n901=          writeini "Stats\RPG ranks.ini" rank rank4 $readini(Stats\RPG ranks.ini,rank,rank3)
  904. n902=          writeini "Stats\RPG ranks.ini" rank rank3 $readini(Stats\RPG ranks.ini,rank,rank2)
  905. n903=          writeini "Stats\RPG ranks.ini" rank rank2 $readini(Stats\RPG ranks.ini,rank,rank1)
  906. n904=          writeini "Stats\RPG ranks.ini" rank rank1 $1
  907. n905=        }
  908. n906=      }
  909. n907=    }
  910. n908=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,rank,rank2) $+ .txt, 27)) {
  911. n909=      if ($1 != $readini(Stats\RPG ranks.ini,rank,rank2)) {
  912. n910=        if ($1 == $readini(Stats\RPG ranks.ini,rank,rank3)) {
  913. n911=          writeini "Stats\RPG ranks.ini" rank rank3 $readini(Stats\RPG ranks.ini,rank,rank2)
  914. n912=          writeini "Stats\RPG ranks.ini" rank rank2 $1
  915. n913=        }
  916. n914=        elseif ($1 == $readini(Stats\RPG ranks.ini,rank,rank4)) {
  917. n915=          writeini "Stats\RPG ranks.ini" rank rank4 $readini(Stats\RPG ranks.ini,rank,rank3)
  918. n916=          writeini "Stats\RPG ranks.ini" rank rank3 $readini(Stats\RPG ranks.ini,rank,rank2)
  919. n917=          writeini "Stats\RPG ranks.ini" rank rank2 $1
  920. n918=        }
  921. n919=        else {
  922. n920=          writeini "Stats\RPG ranks.ini" rank rank5 $readini(Stats\RPG ranks.ini,rank,rank4)
  923. n921=          writeini "Stats\RPG ranks.ini" rank rank4 $readini(Stats\RPG ranks.ini,rank,rank3)
  924. n922=          writeini "Stats\RPG ranks.ini" rank rank3 $readini(Stats\RPG ranks.ini,rank,rank2)
  925. n923=          writeini "Stats\RPG ranks.ini" rank rank2 $1
  926. n924=        }
  927. n925=      }
  928. n926=    }
  929. n927=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,rank,rank3) $+ .txt, 27)) {
  930. n928=      if ($1 != $readini(Stats\RPG ranks.ini,rank,rank3)) {
  931. n929=        if ($1 == $readini(Stats\RPG ranks.ini,rank,rank4)) {
  932. n930=          writeini "Stats\RPG ranks.ini" rank rank4 $readini(Stats\RPG ranks.ini,rank,rank3)
  933. n931=          writeini "Stats\RPG ranks.ini" rank rank3 $1
  934. n932=        }
  935. n933=        else {
  936. n934=          writeini "Stats\RPG ranks.ini" rank rank5 $readini(Stats\RPG ranks.ini,rank,rank4)
  937. n935=          writeini "Stats\RPG ranks.ini" rank rank4 $readini(Stats\RPG ranks.ini,rank,rank3)
  938. n936=          writeini "Stats\RPG ranks.ini" rank rank3 $1
  939. n937=        }
  940. n938=      }
  941. n939=    }
  942. n940=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,rank,rank4) $+ .txt, 27)) {
  943. n941=      if ($1 != $readini(Stats\RPG ranks.ini,rank,rank4)) {
  944. n942=        writeini "Stats\RPG ranks.ini" rank rank5 $readini(Stats\RPG ranks.ini,rank,rank4)
  945. n943=        writeini "Stats\RPG ranks.ini" rank rank4 $1
  946. n944=      }
  947. n945=    }
  948. n946=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) >= $read(Stats\ $+ $readini(Stats\RPG ranks.ini,rank,rank5) $+ .txt, 27)) {
  949. n947=      if ($1 != $readini(Stats\RPG ranks.ini,rank,rank5)) {
  950. n948=        writeini "Stats\RPG ranks.ini" rank rank5 $1
  951. n949=      }
  952. n950=    }
  953. n951=  }
  954. n952=  {
  955. n953=    if ($read(Stats\ $+ $1 $+ .txt, 27) <= 50) {
  956. n954=      changerank $1 Newbie
  957. n955=    }
  958. n956=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 100) {
  959. n957=      changerank $1 Pedestrian [CIVILANT]
  960. n958=    }
  961. n959=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 150) {
  962. n960=      changerank $1 Bully [CIVILANT]
  963. n961=    }
  964. n962=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 200) {
  965. n963=      changerank $1 Pickpocket [MINOR CRIMES]
  966. n964=    }
  967. n965=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 300) {
  968. n966=      changerank $1 Thief [MINOR CRIMES]
  969. n967=    }
  970. n968=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 400) {
  971. n969=      changerank $1 Professional Thief [CRIMES]
  972. n970=    }
  973. n971=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 500) {
  974. n972=      changerank $1 Drug Dealer [CRIMES]
  975. n973=    }
  976. n974=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 600) {
  977. n975=      changerank $1 Bank Robber [CRIMES]
  978. n976=    }
  979. n977=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 700) {
  980. n978=      changerank $1 Mother-In-Law [FUNLEVEL]
  981. n979=    }
  982. n980=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 800) {
  983. n981=      changerank $1 Assassin [CRIMES]
  984. n982=    }
  985. n983=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 900) {
  986. n984=      changerank $1 Running Boy [GANG]
  987. n985=    }
  988. n986=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 1000) {
  989. n987=      changerank $1 Street Thug [GANG]
  990. n988=    }
  991. n989=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 1200) {
  992. n990=      changerank $1 Leader Of Your Block [GANG]
  993. n991=    }
  994. n992=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 1500) {
  995. n993=      changerank $1 OG [GANG]
  996. n994=    }
  997. n995=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 2000) {
  998. n996=      changerank $1 Neighbourhood Leader [GANG]
  999. n997=    }
  1000. n998=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 3000) {
  1001. n999=      changerank $1 District Runner [GANG]
  1002. n1000=    }
  1003. n1001=    elseif ($read(Stats\ $+ $1 $+ .txt, 27) <= 5000) {
  1004. n1002=      changerank $1 District Leader [GANG]
  1005. n1003=    }
  1006. n1004=  }
  1007. n1005=}
  1008. n1006=/resetjobs {
  1009. n1007=  ;Syntax: none
  1010. n1008=  ;Usage: resets jobs - don't use it anymore
  1011. n1009=  set %duel 0
  1012. n1010=  set %race 2
  1013. n1011=  write -c "Stats\Duel list.txt"
  1014. n1012=  write -c "Stats\Taxi jobs.txt"
  1015. n1013=  write -c "Stats\Drug jobs.txt"
  1016. n1014=  write -c "Stats\Current race.txt"
  1017. n1015=  write -c "Stats\Current race.ini"
  1018. n1016=  echo -at Jobs have been reset
  1019. n1017=}
  1020. n1018=/respawnplayers {
  1021. n1019=  if ($lines(Stats\Death list.txt) > 0) {
  1022. n1020=    var %i = 1
  1023. n1021=    while (%i <= $lines(Stats\Death list.txt)) {
  1024. n1022=      write -l7 Stats\ $+ $read(Stats\Death list.txt, %i) $+ .txt 100
  1025. n1023=      .notice $read(Stats\Death list.txt, %i) 2You have been auto-respawned by4 $me $+ 2!
  1026. n1024=      inc %i
  1027. n1025=    }
  1028. n1026=    write -c "Stats\Death list.txt"
  1029. n1027=  }
  1030. n1028=}
  1031. n1029=/rpglog {
  1032. n1030=  if (%rpgstop == 0 && %rpggame == 1) {
  1033. n1031=    {
  1034. n1032=      if ($1 isin $read(Stats\Administrator list.txt, w, $1)) {
  1035. n1033=        write "Stats\Admin log.txt" $chr(91) $+ $time $+ $chr(93) <(^Admin^) $+ $1 $+ > $2-
  1036. n1034=        write "Stats\User log.txt" $chr(91) $+ $time $+ $chr(93) <(^Admin^) $+ $1 $+ > $2-
  1037. n1035=      }
  1038. n1036=      else {
  1039. n1037=        write "Stats\User log.txt" $chr(91) $+ $time $+ $chr(93) < $+ $1 $+ > $2-
  1040. n1038=      }
  1041. n1039=    }
  1042. n1040=    {
  1043. n1041=      if ($1 isin $read(Stats\Administrator list.txt, w, $1)) {
  1044. n1042=        scid $scon( $calc(%logbot +1) ) msg #[MM]IKKE.echo at 6#[MM]IKKE 2(RPG) 1<4(^Admin^)9 $+ $1 $+ 1> $2-
  1045. n1043=      }
  1046. n1044=      else {
  1047. n1045=        scid $scon( $calc(%logbot +1) ) msg #[MM]IKKE.echo at 6#[MM]IKKE 2(RPG) 1<9 $+ $1 $+ 1> $2-
  1048. n1046=      }
  1049. n1047=    }
  1050. n1048=    {
  1051. n1049=      if (%logbot == 1) {
  1052. n1050=        if (%bot2 ison #[MM]IKKE.echo) { set %logbot 2 }
  1053. n1051=        elseif (%bot3 ison #[MM]IKKE.echo) { set %logbot 3 }
  1054. n1052=        elseif (%bot4 ison #[MM]IKKE.echo) { set %logbot 4 }
  1055. n1053=      }
  1056. n1054=      elseif (%logbot == 2) {
  1057. n1055=        if (%bot3 ison #[MM]IKKE.echo) { set %logbot 3 }
  1058. n1056=        elseif (%bot4 ison #[MM]IKKE.echo) { set %logbot 4 }
  1059. n1057=        elseif (%bot1 ison #[MM]IKKE.echo) { set %logbot 1 }
  1060. n1058=      }
  1061. n1059=      elseif (%logbot == 3) {
  1062. n1060=        if (%bot4 ison #[MM]IKKE.echo) { set %logbot 4 }
  1063. n1061=        elseif (%bot1 ison #[MM]IKKE.echo) { set %logbot 1 }
  1064. n1062=        elseif (%bot2 ison #[MM]IKKE.echo) { set %logbot 2 }
  1065. n1063=      }
  1066. n1064=      elseif (%logbot == 4) {
  1067. n1065=        if (%bot1 ison #[MM]IKKE.echo) { set %logbot 1 }
  1068. n1066=        elseif (%bot2 ison #[MM]IKKE.echo) { set %logbot 2 }
  1069. n1067=        elseif (%bot3 ison #[MM]IKKE.echo) { set %logbot 3 }
  1070. n1068=      }
  1071. n1069=      else { .notice %owner 4ERROR:2 Error changing logging bot }
  1072. n1070=    }
  1073. n1071=  }
  1074. n1072=  else {
  1075. n1073=    .notice $1 4ERROR:2 The RPG has currently been disabled. !UPDATE.
  1076. n1074=    halt
  1077. n1075=  }
  1078. n1076=}
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!