API tools faq
paste
_MM_IKKE

jobscmds.ini

_MM_IKKE
Nov 22nd, 2018
165
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 31.61 KB | None | 0 0
raw download clone embed print report
  1. [aliases]
  2. n0=/botduel {
  3. n1=  ;$1 == nick, $2 == bot, $3 == weaponpoints, $4 == money, $5 == Skillpoints, $6 == who (any/SP/SPC), $7= skillpoints needed, $8 = cookies needed, weapon points == $read(Stats\ $+ $1 $+ .txt, 19)
  4. n2=  if ($6 == Any) {
  5. n3=  }
  6. n4=  elseif ($6 == SP) {
  7. n5=    checkrank $1 $7
  8. n6=    if ($read(Stats\ $+ $1 $+ .txt, 19) >= 5000) {
  9. n7=      increasekill $1
  10. n8=      increasecash $1 $4
  11. n9=      increaserank $1 $5
  12. n10=      msg #[MM]IKKE 2[DUEL|Bot]4 $1 2has killed9 $2 2with:6 $read(Stats\ $+ $1 $+ .txt,18) 1[OVERCLASSED]
  13. n11=    }
  14. n12=    elseif ($read(Stats\ $+ $1 $+ .txt, 19) >= 500) {
  15. n13=      var %skillpoints1 = $read(Stats\ $+ $1 $+ .txt, 19)
  16. n14=      var %skillpoints2 = $3
  17. n15=      var %skillpoints3 = $rand(1, $calc(%skillpoints1 + %skillpoints2))
  18. n16=      {
  19. n17=        if (%skillpoints3 <= %skillpoints1) {
  20. n18=          increasekill $1
  21. n19=          increasecash $1 $4
  22. n20=          increaserank $1 $5
  23. n21=          var %i = $rand(1,6)
  24. n22=          if (%i <= 3) {
  25. n23=            msg #[MM]IKKE 2[DUEL|Bot]9 $1 2has killed4 $2 2with:6 $read(Stats\ $+ $1 $+ .txt,18)
  26. n24=          }
  27. n25=          elseif (%i <= 5) {
  28. n26=            var %j = $rand(0,25)
  29. n27=            decreasehealth $1 %j
  30. n28=            if ($read(Stats\ $+ $1 $+ .txt, 7) <= 0) {
  31. n29=              increasedeath $1          
  32. n30=              msg #[MM]IKKE 2[DUEL|Bot]9 $1 2has killed4 $2 2with6 $read(Stats\ $+ $1 $+ .txt,18) $+ 2, but got damaged him/herself! (S)he died (lost7 %j 2health).
  33. n31=            }
  34. n32=            else {
  35. n33=              msg #[MM]IKKE 2[DUEL|Bot]9 $1 2has killed4 $2 2with6 $read(Stats\ $+ $1 $+ .txt,18) $+ 2, but got damaged him/herself! (S)he lost7 %j 2health.
  36. n34=            }
  37. n35=          }
  38. n36=          elseif (%i <= 6) {
  39. n37=            var %j = $rand(25,75)
  40. n38=            decreasehealth $1 %j
  41. n39=            if ($read(Stats\ $+ $1 $+ .txt, 7) <= 0) {
  42. n40=              increasedeath $1          
  43. n41=              msg #[MM]IKKE 2[DUEL|Bot]9 $1 2has killed4 $2 2with6 $read(Stats\ $+ $1 $+ .txt,18) $+ 2, but got damaged him/herself! (S)he died (lost7 %j 2health).
  44. n42=            }
  45. n43=            else {
  46. n44=              msg #[MM]IKKE 2[DUEL|Bot]9 $1 2has killed4 $2 2with6 $read(Stats\ $+ $1 $+ .txt,18) $+ 2, but got seriously damaged him/herself! (S)he lost7 %j 2health.
  47. n45=            }      
  48. n46=          }
  49. n47=          else {
  50. n48=            .notice %owner 4ERROR:2 Error dueling bot (player wins, error defining if he loses health)
  51. n49=          }
  52. n50=        }
  53. n51=        else {
  54. n52=          {
  55. n53=            if ($2 == Thief) {
  56. n54=              var %weapon Crowbar
  57. n55=            }
  58. n56=            elseif ($2 == Junk) {
  59. n57=              var %weapon Knife
  60. n58=            }
  61. n59=            elseif ($2 == Policeman) {
  62. n60=              var %weapon Pistol
  63. n61=            }
  64. n62=            elseif ($2 == Bodyguard) {
  65. n63=              var %weapon Baseball Bat and Silenced Pistol
  66. n64=            }
  67. n65=            elseif ($2 == Gangster) {
  68. n66=              var %weapon Pistols and Submachine Gun
  69. n67=            }
  70. n68=            elseif ($2 == Drugdealer) {
  71. n69=              var %weapon Pistols and Sawn-Off Shotgun
  72. n70=            }
  73. n71=            elseif ($2 == Smuggler) {
  74. n72=              var %weapon Combat Shotgun and M4
  75. n73=            }
  76. n74=          }
  77. n75=          {
  78. n76=            var %i = $rand(1,6)
  79. n77=            if (%i <= 3) {
  80. n78=              increasedeath $1
  81. n79=              decreasehealth $1 250
  82. n80=              msg #[MM]IKKE 2[DUEL|Bot]4 $2 2has killed9 $1 2with:6 %weapon
  83. n81=            }
  84. n82=            elseif (%i <= 5) {
  85. n83=              var %j = $rand(25,75)
  86. n84=              decreasehealth $1 %j
  87. n85=              if ($read(Stats\ $+ $1 $+ .txt, 7) <= 0) {
  88. n86=                increasedeath $1          
  89. n87=                msg #[MM]IKKE 2[DUEL|Bot]4 $2 2has seriously damaged9 $1 2with6 %weapon $+ 2.9 $1 2died (lost7 %j 2health).
  90. n88=              }
  91. n89=              else {          
  92. n90=                msg #[MM]IKKE 2[DUEL|Bot]4 $2 2has seriously damaged9 $1 2with6 %weapon $+ 2.9 $1 2lost7 %j 2health.
  93. n91=              }
  94. n92=            }
  95. n93=            elseif (%i <= 6) {
  96. n94=              var %j = $rand(0,25)
  97. n95=              decreasehealth $1 %j
  98. n96=              if ($read(Stats\ $+ $1 $+ .txt, 7) <= 0) {
  99. n97=                increasedeath $1          
  100. n98=                msg #[MM]IKKE 2[DUEL|Bot]4 $2 2has damaged9 $1 2with6 %weapon $+ 2.9 $1 2died (lost7 %j 2health).
  101. n99=              }
  102. n100=              else {          
  103. n101=                msg #[MM]IKKE 2[DUEL|Bot]4 $2 2has damaged9 $1 2with6 %weapon $+ 2.9 $1 2lost7 %j 2health.
  104. n102=              }    
  105. n103=            }
  106. n104=            else {
  107. n105=              .notice %owner 4ERROR:2 Error dueling bot (player loses, error defining if he loses health)
  108. n106=            }
  109. n107=          }
  110. n108=        }
  111. n109=      }
  112. n110=    }
  113. n111=    else {
  114. n112=      {
  115. n113=        if ($2 == Thief) {
  116. n114=          var %weapon Crowbar
  117. n115=        }
  118. n116=        elseif ($2 == Junk) {
  119. n117=          var %weapon Knife
  120. n118=        }
  121. n119=        elseif ($2 == Policeman) {
  122. n120=          var %weapon Pistol
  123. n121=        }
  124. n122=        elseif ($2 == Bodyguard) {
  125. n123=          var %weapon Baseball Bat and Silenced Pistol
  126. n124=        }
  127. n125=        elseif ($2 == Gangster) {
  128. n126=          var %weapon Pistols and Submachine Gun
  129. n127=        }
  130. n128=        elseif ($2 == Drugdealer) {
  131. n129=          var %weapon Pistols and Sawn-Off Shotgun
  132. n130=        }
  133. n131=        elseif ($2 == Smuggler) {
  134. n132=          var %weapon Combat Shotgun and M4
  135. n133=        }
  136. n134=      }
  137. n135=      increasedeath $1
  138. n136=      decreasehealth $1 250
  139. n137=      msg #[MM]IKKE 2[DUEL|Bot]4 $2 2has killed9 $1 2with:6 %weapon 1[OVERCLASSED]
  140. n138=    }
  141. n139=  }
  142. n140=  elseif ($6 == SPC) {
  143. n141=    checkrank $1 $7
  144. n142=    checkcookie $1 $8
  145. n143=    if ($read(Stats\ $+ $1 $+ .txt, 19) >= 5000) {
  146. n144=      var %skillpoints1 = $read(Stats\ $+ $1 $+ .txt, 19)
  147. n145=      var %skillpoints2 = $3
  148. n146=      var %skillpoints3 = $rand(1, $calc(%skillpoints1 + %skillpoints2))
  149. n147=      {
  150. n148=        if (%skillpoints3 <= %skillpoints1) {
  151. n149=          increasekill $1
  152. n150=          increasecash $1 $4
  153. n151=          increaserank $1 $5
  154. n152=          var %i = $rand(1,6)
  155. n153=          if (%i <= 3) {
  156. n154=            msg #[MM]IKKE 2[DUEL|Bot]9 $1 2has killed4 $2 2with:6 $read(Stats\ $+ $1 $+ .txt,18)
  157. n155=          }
  158. n156=          elseif (%i <= 5) {
  159. n157=            var %j = $rand(0,25)
  160. n158=            decreasehealth $1 %j
  161. n159=            if ($read(Stats\ $+ $1 $+ .txt, 7) <= 0) {
  162. n160=              increasedeath $1          
  163. n161=              msg #[MM]IKKE 2[DUEL|Bot]9 $1 2has killed4 $2 2with6 $read(Stats\ $+ $1 $+ .txt,18) $+ 2, but got damaged him/herself! (S)he died (lost7 %j 2health).
  164. n162=            }
  165. n163=            else {
  166. n164=              msg #[MM]IKKE 2[DUEL|Bot]9 $1 2has killed4 $2 2with6 $read(Stats\ $+ $1 $+ .txt,18) $+ 2, but got damaged him/herself! (S)he lost7 %j 2health.
  167. n165=            }
  168. n166=          }
  169. n167=          elseif (%i <= 6) {
  170. n168=            var %j = $rand(25,75)
  171. n169=            decreasehealth $1 %j
  172. n170=            if ($read(Stats\ $+ $1 $+ .txt, 7) <= 0) {
  173. n171=              increasedeath $1          
  174. n172=              msg #[MM]IKKE 2[DUEL|Bot]9 $1 2has killed4 $2 2with6 $read(Stats\ $+ $1 $+ .txt,18) $+ 2, but got damaged him/herself! (S)he died (lost7 %j 2health).
  175. n173=            }
  176. n174=            else {
  177. n175=              msg #[MM]IKKE 2[DUEL|Bot]9 $1 2has killed4 $2 2with6 $read(Stats\ $+ $1 $+ .txt,18) $+ 2, but got seriously damaged him/herself! (S)he lost7 %j 2health.
  178. n176=            }      
  179. n177=          }
  180. n178=          else {
  181. n179=            .notice %owner 4ERROR:2 Error dueling bot (player wins, error defining if he loses health)
  182. n180=          }
  183. n181=        }
  184. n182=        else {
  185. n183=          {
  186. n184=            if ($2 == Soldier) {
  187. n185=              var %weapon Heavy Artillery and Assault Rifles
  188. n186=            }
  189. n187=            elseif ($2 == SpecialForce) {
  190. n188=              var %weapon Hi-Tech Weapons
  191. n189=            }
  192. n190=            elseif ($2 == Godfather) {
  193. n191=              var %weapon his gang
  194. n192=            }
  195. n193=          }
  196. n194=          {
  197. n195=            var %i = $rand(1,6)
  198. n196=            if (%i <= 3) {
  199. n197=              increasedeath $1
  200. n198=              decreasehealth $1 250
  201. n199=              msg #[MM]IKKE 2[DUEL|Bot]4 $2 2has killed9 $1 2with:6 %weapon
  202. n200=            }
  203. n201=            elseif (%i <= 5) {
  204. n202=              var %j = $rand(25,75)
  205. n203=              decreasehealth $1 %j
  206. n204=              if ($read(Stats\ $+ $1 $+ .txt, 7) <= 0) {
  207. n205=                increasedeath $1          
  208. n206=                msg #[MM]IKKE 2[DUEL|Bot]4 $2 2has seriously damaged9 $1 2with6 %weapon $+ 2.9 $1 2died (lost7 %j 2health).
  209. n207=              }
  210. n208=              else {          
  211. n209=                msg #[MM]IKKE 2[DUEL|Bot]4 $2 2has seriously damaged9 $1 2with6 %weapon $+ 2.9 $1 2lost7 %j 2health.
  212. n210=              }
  213. n211=            }
  214. n212=            elseif (%i <= 6) {
  215. n213=              var %j = $rand(0,25)
  216. n214=              decreasehealth $1 %j
  217. n215=              if ($read(Stats\ $+ $1 $+ .txt, 7) <= 0) {
  218. n216=                increasedeath $1          
  219. n217=                msg #[MM]IKKE 2[DUEL|Bot]4 $2 2has damaged9 $1 2with6 %weapon $+ 2.9 $1 2died (lost7 %j 2health).
  220. n218=              }
  221. n219=              else {          
  222. n220=                msg #[MM]IKKE 2[DUEL|Bot]4 $2 2has damaged9 $1 2with6 %weapon $+ 2.9 $1 2lost7 %j 2health.
  223. n221=              }    
  224. n222=            }
  225. n223=            else {
  226. n224=              .notice %owner 4ERROR:2 Error dueling bot (player loses, error defining if he loses health)
  227. n225=            }
  228. n226=          }
  229. n227=        }
  230. n228=      }
  231. n229=    }
  232. n230=    else {
  233. n231=      {
  234. n232=        if ($2 == Soldier) {
  235. n233=          var %weapon Heavy Artillery and Assault Rifles
  236. n234=        }
  237. n235=        elseif ($2 == SpecialForce) {
  238. n236=          var %weapon Hi-Tech Weapons
  239. n237=        }
  240. n238=        elseif ($2 == Godfather) {
  241. n239=          var %weapon his gang
  242. n240=        }
  243. n241=      }
  244. n242=      increasedeath $1
  245. n243=      decreasehealth $1 250
  246. n244=      msg #[MM]IKKE 2[DUEL|Bot]4 $2 2has killed9 $1 2with:6 %weapon 1[OVERCLASSED]
  247. n245=    }
  248. n246=  }
  249. n247=}
  250. n248=/calculatedrugs {
  251. n249=  if ($2 == 0) {
  252. n250=    msg #[MM]IKKE 2[DRUGS] As "4 $+ $1 $+ 2" only dealed less than 60secs, (s)he did not get any money
  253. n251=  }
  254. n252=  else {
  255. n253=    var %i = 1
  256. n254=    set %earnedmoney 0
  257. n255=    while (%i <= $2) {
  258. n256=      var %j = $rand(1,10)
  259. n257=      {
  260. n258=        if (%j <= 1) { inc %earnedmoney 1000 }
  261. n259=        elseif (%j <= 3) { inc %earnedmoney 500 }
  262. n260=        elseif (%j <= 5) { inc %earnedmoney 200 }
  263. n261=        elseif (%j <= 7) { inc %earnedmoney 100 }
  264. n262=        elseif (%j <= 8) { inc %earnedmoney 50 }
  265. n263=        elseif (%j <= 9) { inc %earnedmoney 10 }
  266. n264=        else {
  267. n265=          goto check1
  268. n266=        }
  269. n267=      }
  270. n268=      inc %i
  271. n269=    }
  272. n270=    increaserank $1 $2
  273. n271=    increasecash $1 %earnedmoney
  274. n272=    msg #[MM]IKKE 2[DRUGS]4 $1 2has earned7 %earnedmoney 2by dealing drugs
  275. n273=    goto check2
  276. n274=    :check1
  277. n275=    msg #[MM]IKKE 2[DRUGS] Oh my gosh,4 $1 2got caught by cops while dealing drugs! (S)he lost his/her money...
  278. n276=    :check2
  279. n277=    unset %earnedmoney
  280. n278=  }
  281. n279=}
  282. n280=/calculateracingtime {
  283. n281=  var %checkpoint1 = $abs($calc($readini(Stats\Current race.ini, $1 , checkpoint1) - $readini(Stats\Current race.ini, Ticks, checkpoint1)))
  284. n282=  var %checkpoint2 = $abs($calc($readini(Stats\Current race.ini, $1 , checkpoint2) - $readini(Stats\Current race.ini, Ticks, checkpoint2)))
  285. n283=  var %checkpoint3 = $abs($calc($readini(Stats\Current race.ini, $1 , checkpoint3) - $readini(Stats\Current race.ini, Ticks, checkpoint3)))
  286. n284=  var %checkpoint4 = $abs($calc($readini(Stats\Current race.ini, $1 , checkpoint4) - $readini(Stats\Current race.ini, Ticks, checkpoint4)))
  287. n285=  var %checkpoint5 = $abs($calc($readini(Stats\Current race.ini, $1 , checkpoint5) - $readini(Stats\Current race.ini, Ticks, checkpoint5)))
  288. n286=  var %checkpoint6 = $abs($calc($readini(Stats\Current race.ini, $1 , checkpoint6) - $readini(Stats\Current race.ini, Ticks, checkpoint6)))
  289. n287=  var %checkpoint7 = $abs($calc($readini(Stats\Current race.ini, $1 , checkpoint7) - $readini(Stats\Current race.ini, Ticks, checkpoint7)))
  290. n288=  var %checkpoint8 = $abs($calc($readini(Stats\Current race.ini, $1 , checkpoint8) - $readini(Stats\Current race.ini, Ticks, checkpoint8)))
  291. n289=  var %checkpoint9 = $abs($calc($readini(Stats\Current race.ini, $1 , checkpoint9) - $readini(Stats\Current race.ini, Ticks, checkpoint9)))
  292. n290=  var %checkpoint10 = $abs($calc($readini(Stats\Current race.ini, $1 , checkpoint10) - $readini(Stats\Current race.ini, Ticks, checkpoint10)))
  293. n291=  var %checkpoints = $calc(%checkpoint1 + %checkpoint2 + %checkpoint3 + %checkpoint4 + %checkpoint5 + %checkpoint6 + %checkpoint7 + %checkpoint8 + %checkpoint9 + %checkpoint10)
  294. n292=  writeini "Stats\Current race.ini" $1 RacingTime %checkpoints
  295. n293=  {
  296. n294=    if ($readini(Stats\Current race.ini, Ranks, rank1) == null) {
  297. n295=      writeini "Stats\Current race.ini" Ranks rank1 $1
  298. n296=    }
  299. n297=    elseif ($readini(Stats\Current race.ini, Ranks, rank2) == null) {
  300. n298=      if ($readini(Stats\Current race.ini, $1, RacingTime) <= $readini(Stats\Current race.ini, $readini(Stats\Current race.ini, Ranks , rank1), RacingTime)) {
  301. n299=        writeini "Stats\Current race.ini" Ranks rank2 $readini(Stats\Current race.ini,Ranks,rank1)
  302. n300=        writeini "Stats\Current race.ini" Ranks rank1 $1
  303. n301=      }
  304. n302=      else {
  305. n303=        writeini "Stats\Current race.ini" Ranks rank2 $1
  306. n304=      }
  307. n305=    }
  308. n306=    else {
  309. n307=      if ($readini(Stats\Current race.ini, $1 , RacingTime) <= $readini(Stats\Current race.ini, $readini(Stats\Current race.ini,Ranks,rank1), RacingTime)) {
  310. n308=        writeini "Stats\Current race.ini" Ranks rank3 $readini(Stats\Current race.ini,Ranks,rank2)
  311. n309=        writeini "Stats\Current race.ini" Ranks rank2 $readini(Stats\Current race.ini,Ranks,rank1)
  312. n310=        writeini "Stats\Current race.ini" Ranks rank1 $1
  313. n311=      }
  314. n312=      elseif ($readini(Stats\Current race.ini, $1 , RacingTime) <= $readini(Stats\Current race.ini, $readini(Stats\Current race.ini,Ranks,rank2), RacingTime)) {
  315. n313=        writeini "Stats\Current race.ini" Ranks rank3 $readini(Stats\Current race.ini,Ranks,rank2)
  316. n314=        writeini "Stats\Current race.ini" Ranks rank2 $1
  317. n315=      }
  318. n316=      elseif ($readini(Stats\Current race.ini, Ranks, rank3) == null) {
  319. n317=        writeini "Stats\Current race.ini" Ranks rank3 $1
  320. n318=      }
  321. n319=      elseif ($readini(Stats\Current race.ini, $1 , RacingTime) <= $readini(Stats\Current race.ini, $readini(Stats\Current race.ini,Ranks,rank3), RacingTime)) {
  322. n320=        writeini "Stats\Current race.ini" Ranks rank3 $1
  323. n321=      }
  324. n322=    }
  325. n323=  }
  326. n324=}
  327. n325=/checkjob {
  328. n326=  if ($2 == $1) {
  329. n327=    if ($1 isin $read(Stats\Taxi jobs.txt,w,$1 $+ *)) {
  330. n328=      .notice $2 4ERROR:2 You are a taxi driver. Some features are disabled
  331. n329=      halt
  332. n330=    }
  333. n331=    elseif ($1 isin $read(Stats\Drug jobs.txt,w,$1 $+ *)) {
  334. n332=      .notice $2 4ERROR:2 You are a drug dealer. Some features are disabled
  335. n333=      halt
  336. n334=    }
  337. n335=    elseif ($1 isin $read(Stats\Current race.txt,w, $1)) {
  338. n336=      .notice $2 4ERROR:2 You are currently racing. Some features are disabled
  339. n337=      halt
  340. n338=    }
  341. n339=  }
  342. n340=  else {
  343. n341=    if ($1 isin $read(Stats\Taxi jobs.txt,w,$1 $+ *)) {
  344. n342=      .notice $2 4ERROR: $1 2is a taxi driver. Some features are disabled for him/her
  345. n343=      halt
  346. n344=    }
  347. n345=    elseif ($1 isin $read(Stats\Drug jobs.txt,w,$1 $+ *)) {
  348. n346=      .notice $2 4ERROR: $1 2is a drug dealer. Some features are disabled for him/her
  349. n347=      halt
  350. n348=    }
  351. n349=    elseif ($1 isin $read(Stats\Current race.txt,w, $1)) {
  352. n350=      .notice $2 4ERROR: $1 1is currently racing. Some features are disabled for him/her
  353. n351=      halt
  354. n352=    }
  355. n353=  }
  356. n354=}
  357. n355=/checkrace {
  358. n356=  if ($nick(#[MM]IKKE.races,0) <= 7) {
  359. n357=    msg #[MM]IKKE.races 2[RACE] Too few players have joined the race. Race stopped.
  360. n358=    msg #[MM]IKKE 2[RACE] Too few players have joined the race. Race stopped.  
  361. n359=    if ($nick(#[MM]IKKE.races,0) == 7) { kick #[MM]IKKE.races $nick(#[MM]IKKE.races,7) 2[RACE] Too few players have joined the race. Race stopped. }
  362. n360=    write -c "Stats\Current race.txt"
  363. n361=    scid $scon(1) mode #[MM]IKKE.races +b *!*@*
  364. n362=    set %race 2
  365. n363=    halt
  366. n364=  }
  367. n365=}
  368. n366=/duel {
  369. n367=  var %i = $rand(1,100)
  370. n368=  if (%i <= 2) {
  371. n369=    increasedeath $2
  372. n370=    increasekill $1
  373. n371=    increaserank $1 10
  374. n372=    decreasehealth $2 250
  375. n373=    msg #[MM]IKKE 2[DUEL|Luck] One hit wonder! 9 $+ $1 2killed4 $2 2with:6 $read(Stats\ $+ $1 $+ .txt,18)
  376. n374=  }
  377. n375=  elseif (%i <= 3) {
  378. n376=    increasedeath $1
  379. n377=    increasekill $2
  380. n378=    increaserank $2 10
  381. n379=    decreasehealth $1 250
  382. n380=    msg #[MM]IKKE 2[DUEL|Luck] One hit wonder! 4 $+ $2 2killed9 $1 2with:6 $read(Stats\ $+ $2 $+ .txt,18)
  383. n381=  }
  384. n382=  elseif (%i <= 5) {
  385. n383=    msg #[MM]IKKE 2[DUEL|Luck] Somehow, nothing happened when9 $1 2tried to attack4 $2 $+ 2!
  386. n384=  }
  387. n385=  elseif (%i <= 7) {
  388. n386=    var %j = $rand(50,100)
  389. n387=    decreasehealth $2 %j
  390. n388=    increaserank $1 5
  391. n389=    if ($read(Stats\ $+ $2 $+ .txt, 7) <= 0) {
  392. n390=      increasekill $1
  393. n391=      increasedeath $2
  394. n392=      msg #[MM]IKKE 2[DUEL|Luck] 9 $+ $1 2has seriously damaged4 $2 $+ 2!4 $2 2is dead now (lost7 %j 2health)! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  395. n393=    }
  396. n394=    else { msg #[MM]IKKE 2[DUEL|Luck] 9 $+ $1 2has seriously damaged4 $2 $+ 2!4 $2 2has lost7 %j 2health! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ ) }
  397. n395=  }
  398. n396=  elseif (%i <= 12) {
  399. n397=    var %j = $rand(50,100)
  400. n398=    var %k = $rand(0,50)
  401. n399=    decreasehealth $2 %j
  402. n400=    decreasehealth $1 %k
  403. n401=    increaserank $1 5
  404. n402=    if ($read(Stats\ $+ $2 $+ .txt, 7) <= 0) {
  405. n403=      increasekill $1
  406. n404=      increasedeath $2
  407. n405=      if ($read(Stats\ $+ $1 $+ .txt, 7) <= 0) {
  408. n406=        increasekill $2
  409. n407=        increasedeath $1
  410. n408=        msg #[MM]IKKE 2[DUEL|Luck] 9 $+ $1 2has seriously damaged4 $2 $+ 2, but got hit himself too! Both4 $2 2(lost7 %j 2health) and9 $1 2(lost7 %k 2health) have died! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  411. n409=      }
  412. n410=      else {
  413. n411=        msg #[MM]IKKE 2[DUEL|Luck] 9 $+ $1 2has seriously damaged4 $2 $+ 2, but got hit himself too!4 $2 2has died (lost7 %j 2health),9 $1 2has lost7 %k 2health! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  414. n412=      }
  415. n413=    }
  416. n414=    elseif ($read(Stats\ $+ $1 $+ .txt, 7) <= 0) {
  417. n415=      increasekill $2
  418. n416=      increasedeath $1
  419. n417=      msg #[MM]IKKE 2[DUEL|Luck] 9 $+ $1 2has seriously damaged4 $2 $+ 2, but got hit himself too!4 $2 2has lost7 %j 2health, but9 $1 2has died (lost7 %k 2health)! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  420. n418=    }
  421. n419=    else {
  422. n420=      msg #[MM]IKKE 2[DUEL|Luck] 9 $+ $1 2has seriously damaged4 $2 $+ 2, but got hit himself too!4 $2 2has lost7 %j 2health,9 $1 2has lost7 %k 2health! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  423. n421=    }
  424. n422=  }
  425. n423=  elseif (%i <= 15) {
  426. n424=    var %j = $rand(25,50)
  427. n425=    decreasehealth $2 %j
  428. n426=    increaserank $1 3
  429. n427=    if ($read(Stats\ $+ $2 $+ .txt, 7) <= 0) {
  430. n428=      increasekill $1
  431. n429=      increasedeath $2
  432. n430=      msg #[MM]IKKE 2[DUEL|Luck] 9 $+ $1 2has damaged4 $2 $+ 2!4 $2 2is dead now (lost7 %j 2health)! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  433. n431=    }
  434. n432=    else { msg #[MM]IKKE 2[DUEL|Luck] 9 $+ $1 2has damaged4 $2 $+ 2!4 $2 2has lost7 %j 2health! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ ) }
  435. n433=  }
  436. n434=  elseif (%i <= 20) {
  437. n435=    var %j = $rand(25,50)
  438. n436=    var %k = $rand(0,25)
  439. n437=    decreasehealth $2 %j
  440. n438=    decreasehealth $1 %k
  441. n439=    increaserank $1 3
  442. n440=    if ($read(Stats\ $+ $2 $+ .txt, 7) <= 0) {
  443. n441=      increasekill $1
  444. n442=      increasedeath $2
  445. n443=      if ($read(Stats\ $+ $1 $+ .txt, 7) <= 0) {
  446. n444=        increasekill $2
  447. n445=        increasedeath $1
  448. n446=        msg #[MM]IKKE 2[DUEL|Luck] 9 $+ $1 2has damaged4 $2 $+ 2, but got hit himself too! Both4 $2 2(lost7 %j 2health) and9 $1 2(lost7 %k 2health) have died! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  449. n447=      }
  450. n448=      else {
  451. n449=        msg #[MM]IKKE 2[DUEL|Luck] 9 $+ $1 2has damaged4 $2 $+ 2, but got hit himself too!4 $2 2has died (lost7 %j 2health),9 $1 2has lost7 %k 2health! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  452. n450=      }
  453. n451=    }
  454. n452=    elseif ($read(Stats\ $+ $1 $+ .txt, 7) <= 0) {
  455. n453=      increasekill $2
  456. n454=      increasedeath $1
  457. n455=      msg #[MM]IKKE 2[DUEL|Luck] 9 $+ $1 2has damaged4 $2 $+ 2, but got hit himself too!4 $2 2has lost7 %j 2health, but9 $1 2has died (lost7 %k 2health)! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  458. n456=    }
  459. n457=    else {
  460. n458=      msg #[MM]IKKE 2[DUEL|Luck] 9 $+ $1 2has damaged4 $2 $+ 2, but got hit himself too!4 $2 2has lost7 %j 2health,9 $1 2has lost7 %k 2health! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  461. n459=    }
  462. n460=  }
  463. n461=  elseif (%i <= 100) {
  464. n462=    skillpoints $1 $2
  465. n463=    if (%i <= 70) {
  466. n464=      increasekill $strip(%tempkiller)
  467. n465=      increasedeath $strip(%tempkilled)
  468. n466=      decreasehealth $strip(%tempkilled) 250
  469. n467=      increaserank $strip(%tempkiller) 10
  470. n468=      msg #[MM]IKKE 2[DUEL|Skillpoints] %tempkiller has killed %tempkilled $+ ! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  471. n469=    }
  472. n470=    elseif (%i <= 80) {
  473. n471=      var %j = $rand(50,100)
  474. n472=      decreasehealth $strip(%tempkilled) %j
  475. n473=      increaserank $strip(%tempkiller) 5
  476. n474=      if ($read(Stats\ $+ $strip(%tempkilled) $+ .txt, 7) <= 0) {
  477. n475=        increasekill $strip(%tempkiller)
  478. n476=        increasedeath $strip(%tempkilled)
  479. n477=        msg #[MM]IKKE 2[DUEL|Skillpoints] %tempkiller has seriously damaged %tempkilled $+ ! %tempkilled is dead now (lost7 %j 2health)! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  480. n478=      }
  481. n479=      else { msg #[MM]IKKE 2[DUEL|Skillpoints] %tempkiller has seriously damaged %tempkilled $+ ! %tempkilled has lost7 %j 2health! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ ) }
  482. n480=    }
  483. n481=    elseif (%i <= 85) {
  484. n482=      var %j = $rand(50,100)
  485. n483=      var %k = $rand(0,50)
  486. n484=      increaserank $strip(%tempkiller) 5
  487. n485=      decreasehealth $strip(%tempkilled) %j
  488. n486=      decreasehealth $strip(%tempkiller) %k
  489. n487=      if ($read(Stats\ $+ $strip(%tempkilled) $+ .txt, 7) <= 0) {
  490. n488=        increasekill $strip(%tempkiller)
  491. n489=        increasedeath $strip(%tempkilled)
  492. n490=        if ($read(Stats\ $+ $strip(%tempkiller) $+ .txt, 7) <= 0) {
  493. n491=          increasekill $strip(%tempkilled)
  494. n492=          increasedeath $strip(%tempkiller)
  495. n493=          msg #[MM]IKKE 2[DUEL|Skillpoints] %tempkiller has seriously damaged %tempkilled $+ , but got hit himself too! Both %tempkilled (lost7 %j 2health) and %tempkiller (lost7 %k 2health) have died! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  496. n494=        }
  497. n495=        else {
  498. n496=          msg #[MM]IKKE 2[DUEL|Skillpoints] %tempkiller has seriously damaged %tempkilled $+ , but got hit himself too! %tempkilled has died (lost7 %j 2health), %tempkiller has lost7 %k 2health! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  499. n497=        }
  500. n498=      }
  501. n499=      elseif ($read(Stats\ $+ $strip(%tempkiller) $+ .txt, 7) <= 0) {
  502. n500=        increasekill $strip(%tempkilled)
  503. n501=        increasedeath $strip(%tempkiller)
  504. n502=        msg #[MM]IKKE 2[DUEL|Skillpoints] %tempkiller has seriously damaged %tempkilled $+ , but got hit himself too! %tempkilled has lost7 %j 2health, but %tempkiller has died (lost7 %k 2health)! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  505. n503=      }
  506. n504=      else {
  507. n505=        msg #[MM]IKKE 2[DUEL|Skillpoints] %tempkiller has seriously damaged %tempkilled $+ , but got hit himself too! %tempkilled has lost7 %j 2health, %tempkiller has lost7 %k 2health! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  508. n506=      }
  509. n507=    }
  510. n508=    elseif (%i <= 95) {
  511. n509=      var %j = $rand(25,50)
  512. n510=      increaserank $strip(%tempkiller) 3
  513. n511=      decreasehealth $strip(%tempkilled) %j
  514. n512=      if ($read(Stats\ $+ $strip(%tempkilled) $+ .txt, 7) <= 0) {
  515. n513=        increasekill $strip(%tempkiller)
  516. n514=        increasedeath $strip(%tempkilled)
  517. n515=        msg #[MM]IKKE 2[DUEL|Skillpoints] %tempkiller has damaged %tempkilled $+ ! %tempkilled is dead now (lost7 %j 2health)! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  518. n516=      }
  519. n517=      else { msg #[MM]IKKE 2[DUEL|Skillpoints] %tempkiller has damaged %tempkilled $+ ! %tempkilled has lost7 %j 2health! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ ) }
  520. n518=
  521. n519=    }
  522. n520=    elseif (%i <= 100) {
  523. n521=      var %j = $rand(25,50)
  524. n522=      var %k = $rand(0,25)
  525. n523=      decreasehealth $strip(%tempkilled) %j
  526. n524=      decreasehealth $strip(%tempkiller) %k
  527. n525=      increaserank $strip(%tempkiller) 3
  528. n526=      if ($read(Stats\ $+ $strip(%tempkilled) $+ .txt, 7) <= 0) {
  529. n527=        increasekill $strip(%tempkiller)
  530. n528=        increasedeath $strip(%tempkilled)
  531. n529=        if ($read(Stats\ $+ $strip(%tempkiller) $+ .txt, 7) <= 0) {
  532. n530=          increasekill $strip(%tempkilled)
  533. n531=          increasedeath $strip(%tempkiller)
  534. n532=          msg #[MM]IKKE 2[DUEL|Skillpoints] %tempkiller has damaged %tempkilled $+ , but got hit himself too! Both %tempkilled (lost7 %j 2health) and %tempkiller (lost7 %k 2health) have died! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  535. n533=        }
  536. n534=        else {
  537. n535=          msg #[MM]IKKE 2[DUEL|Skillpoints] %tempkiller has damaged %tempkilled $+ , but got hit himself too! %tempkilled has died (lost7 %j 2health), %tempkiller has lost7 %k 2health! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  538. n536=        }
  539. n537=      }
  540. n538=      elseif ($read(Stats\ $+ $strip(%tempkiller) $+ .txt, 7) <= 0) {
  541. n539=        increasekill $strip(%tempkilled)
  542. n540=        increasedeath $strip(%tempkiller)
  543. n541=        msg #[MM]IKKE 2[DUEL|Skillpoints] %tempkiller has damaged %tempkilled $+ , but got hit himself too! %tempkilled has lost7 %j 2health, but %tempkiller has died (lost7 %k 2health)! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  544. n542=      }
  545. n543=      else {
  546. n544=        msg #[MM]IKKE 2[DUEL|Skillpoints] %tempkiller has damaged %tempkilled $+ , but got hit himself too! %tempkilled has lost7 %j 2health, %tempkiller has lost7 %k 2health! 6( $+ $read(Stats\ $+ $1 $+ .txt, 18) vs. $read(Stats\ $+ $2 $+ .txt, 18) $+ )
  547. n545=      }
  548. n546=    }
  549. n547=    unset %tempkiller
  550. n548=    unset %tempkilled
  551. n549=  }
  552. n550=  .timer 1 30 set %duel 0
  553. n551=}
  554. n552=/racingbot {
  555. n553=  if (%racingbot == 1) {
  556. n554=    if (%bot2 ison #[MM]IKKE.races) { set %racingbot 2 }
  557. n555=    elseif (%bot3 ison #[MM]IKKE.races) { set %racingbot 3 }
  558. n556=    elseif (%bot4 ison #[MM]IKKE.races) { set %racingbot 4 }
  559. n557=  }
  560. n558=  elseif (%racingbot == 2) {
  561. n559=    if (%bot3 ison #[MM]IKKE.races) { set %racingbot 3 }
  562. n560=    elseif (%bot4 ison #[MM]IKKE.races) { set %racingbot 4 }
  563. n561=    elseif (%bot1 ison #[MM]IKKE.races) { set %racingbot 1 }
  564. n562=  }
  565. n563=  elseif (%racingbot == 3) {
  566. n564=    if (%bot4 ison #[MM]IKKE.races) { set %racingbot 4 }
  567. n565=    elseif (%bot1 ison #[MM]IKKE.races) { set %racingbot 1 }
  568. n566=    elseif (%bot2 ison #[MM]IKKE.races) { set %racingbot 2 }
  569. n567=  }
  570. n568=  elseif (%racingbot == 4) {
  571. n569=    if (%bot1 ison #[MM]IKKE.races) { set %racingbot 1 }
  572. n570=    elseif (%bot2 ison #[MM]IKKE.races) { set %racingbot 2 }
  573. n571=    elseif (%bot3 ison #[MM]IKKE.races) { set %racingbot 3 }
  574. n572=  }
  575. n573=  else { .notice %owner 4ERROR:2 Error changing racing bot }
  576. n574=}
  577. n575=/skillpoints {
  578. n576=  var %skillpoints1 = $read(Stats\ $+ $1 $+ .txt, 19)
  579. n577=  var %skillpoints2 = $read(Stats\ $+ $2 $+ .txt, 19)
  580. n578=  var %skillpoints3 = $rand(1, $calc(%skillpoints1 + %skillpoints2))
  581. n579=  if (%skillpoints3 <= %skillpoints1) {
  582. n580=    set %tempkiller 9 $+ $1 $+ 2
  583. n581=    set %tempkilled 4 $+ $2 $+ 2
  584. n582=  }
  585. n583=  else {
  586. n584=    set %tempkiller 4 $+ $2 $+ 2
  587. n585=    set %tempkilled 9 $+ $1 $+ 2
  588. n586=  }
  589. n587=}
  590. n588=/startbattle {
  591. n589=  if (%duel == 0) {
  592. n590=    if ($1 $+ . $+ $2 isin $read(Stats\Duel list.txt,w, $1 $+ . $+ $2)) {
  593. n591=      write -dl $+ $readn "Stats\Duel list.txt"
  594. n592=      checkjob $1 $1
  595. n593=      checkjob $2 $2
  596. n594=      set %duel 1
  597. n595=      .notice $1 2[DUEL] Battle between you and4 $2 2has started!
  598. n596=      .notice $2 2[DUEL] Battle between you and9 $1 2has started!
  599. n597=      msg #[MM]IKKE 2[DUEL] Battle between9 $1 2and4 $2 2has started! Loading stats...
  600. n598=      .timer 1 5 msg #[MM]IKKE 2[DUEL] Weapons:9 $read(Stats\ $+ $1 $+ .txt,18) 2vs.4 $read(Stats\ $+ $2 $+ .txt,18)
  601. n599=      .timer 1 10 msg #[MM]IKKE 2[DUEL] Ratio:9 $round($calc($read(Stats\ $+ $1 $+ .txt, 5) / $read(Stats\ $+ $1 $+ .txt, 6)),2) 1( $+ $read(Stats\ $+ $1 $+ .txt, 5) $+ / $+ $read(Stats\ $+ $1 $+ .txt, 6) $+ ) 2vs.4 $round($calc($read(Stats\ $+ $2 $+ .txt, 5) / $read(Stats\ $+ $2 $+ .txt, 6)),2) 1( $+ $read(Stats\ $+ $2 $+ .txt, 5) $+ / $+ $read(Stats\ $+ $2 $+ .txt, 6) $+ )
  602. n600=      .timer 1 15 msg #[MM]IKKE 2[DUEL] Health|Armour:9 $read(Stats\ $+ $1 $+ .txt, 7) $+ $chr(124) $+ $read(Stats\ $+ $1 $+ .txt, 8) 2vs.4 $read(Stats\ $+ $2 $+ .txt, 7) $+ $chr(124) $+ $read(Stats\ $+ $2 $+ .txt, 8)
  603. n601=      .timer 1 20 msg #[MM]IKKE 2[DUEL] The winning player gets 1000 cash, the losing player loses 500 cash. Good luck! 1(battle starting in 5secs)
  604. n602=      .timer 1 25 set %duel 2
  605. n603=      .timer 1 25 duel $1 $2
  606. n604=    }
  607. n605=    else {
  608. n606=      .notice $1 4ERROR:2Something terribly went wrong... [DUEL|/startbattle]
  609. n607=    }
  610. n608=  }
  611. n609=  else {
  612. n610=    msg #[MM]IKKE 2[DUEL] Another battle is going on...Delaying battle between9 $1 2and4 $2 2with 60secs
  613. n611=    .timer 1 60 startbattle $1 $2
  614. n612=  }
  615. n613=}
  616. n614=/uptime {
  617. n615=  writeini "Stats\Current race.ini" Ticks $1 $uptime(mirc)
  618. n616=}
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!