API tools faq
paste
_MM_IKKE

races.ini

_MM_IKKE
Nov 22nd, 2018
158
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 17.18 KB | None | 0 0
raw download clone embed print report
  1. [script]
  2. n0=on *:TEXT:!startrace:#[MM]IKKE: {
  3. n1=  if (($nick isin $read(Stats\Administrator list.txt, w, $nick) || $nick == %owner) && $me == %bot4) {
  4. n2=    if (%race == 2) {
  5. n3=      rpglog $nick $1-
  6. n4=      mode #[MM]IKKE.races -b *!*@*
  7. n5=      write -c "Stats\Current race.ini"
  8. n6=      set %race 0
  9. n7=      msg $chan 2[RACE] Race starting in 60secs at #[MM]IKKE.races
  10. n8=      var %i = 1
  11. n9=      while (%i <= 10) {
  12. n10=        var %j = $rand(1,10)
  13. n11=        if (%j isnum 1-3) {
  14. n12=          writeini "Stats\Current race.ini" Race Checkpoint $+ %i 4
  15. n13=        }
  16. n14=        elseif (%j isnum 4-6) {
  17. n15=          writeini "Stats\Current race.ini" Race Checkpoint $+ %i 6
  18. n16=        }
  19. n17=        elseif (%j isnum 7-9) {
  20. n18=          writeini "Stats\Current race.ini" Race Checkpoint $+ %i 8
  21. n19=        }
  22. n20=        elseif (%j == 10) {
  23. n21=          writeini "Stats\Current race.ini" Race Checkpoint $+ %i 2
  24. n22=        }
  25. n23=        else {
  26. n24=          msg $chan 4ERROR:2 Error while defining race
  27. n25=        }
  28. n26=        inc %i
  29. n27=      }
  30. n28=      writeini "Stats\Current race.ini" Ranks rank1 null
  31. n29=      writeini "Stats\Current race.ini" Ranks rank2 null
  32. n30=      writeini "Stats\Current race.ini" Ranks rank3 null
  33. n31=      write -c "Stats\Current race.txt" [MM]IKKE
  34. n32=      writeini "Stats\Current race.ini" [MM]IKKE Checkpoints 1
  35. n33=      writeini "Stats\Current race.ini" [MM]IKKE Checkpoint1 0
  36. n34=      writeini "Stats\Current race.ini" [MM]IKKE Checkpoint2 0
  37. n35=      writeini "Stats\Current race.ini" [MM]IKKE Checkpoint3 0
  38. n36=      writeini "Stats\Current race.ini" [MM]IKKE Checkpoint4 0
  39. n37=      writeini "Stats\Current race.ini" [MM]IKKE Checkpoint5 0
  40. n38=      writeini "Stats\Current race.ini" [MM]IKKE Checkpoint6 0
  41. n39=      writeini "Stats\Current race.ini" [MM]IKKE Checkpoint7 0
  42. n40=      writeini "Stats\Current race.ini" [MM]IKKE Checkpoint8 0
  43. n41=      writeini "Stats\Current race.ini" [MM]IKKE Checkpoint9 0
  44. n42=      writeini "Stats\Current race.ini" [MM]IKKE Checkpoint10 0
  45. n43=      writeini "Stats\Current race.ini" [MM]IKKE RacingTime 0
  46. n44=      .timer 1 60 checkrace
  47. n45=      .timer 1 60 set %race 1
  48. n46=      .timer 1 60 msg #[MM]IKKE.races 2[RACE] Race starting in 5 seconds!
  49. n47=      .timer 1 60 msg #[MM]IKKE 2[RACE] Race has started! From now on, you can't join the racing channel
  50. n48=      .timer 1 65 msg #[MM]IKKE.races 2[RACE] $replace($readini(Stats\Current race.ini,Race,Checkpoint1) ,2,down,4,left,6,right,8,up)
  51. n49=      .timer 1 65 uptime Checkpoint1
  52. n50=      .timer 1 68 msg #[MM]IKKE.races 2[RACE] $replace($readini(Stats\Current race.ini,Race,Checkpoint2) ,2,down,4,left,6,right,8,up)
  53. n51=      .timer 1 68 uptime Checkpoint2
  54. n52=      .timer 1 71 msg #[MM]IKKE.races 2[RACE] $replace($readini(Stats\Current race.ini,Race,Checkpoint3) ,2,down,4,left,6,right,8,up)
  55. n53=      .timer 1 71 uptime Checkpoint3
  56. n54=      .timer 1 74 msg #[MM]IKKE.races 2[RACE] $replace($readini(Stats\Current race.ini,Race,Checkpoint4) ,2,down,4,left,6,right,8,up)
  57. n55=      .timer 1 74 uptime Checkpoint4
  58. n56=      .timer 1 77 msg #[MM]IKKE.races 2[RACE] $replace($readini(Stats\Current race.ini,Race,Checkpoint5) ,2,down,4,left,6,right,8,up)
  59. n57=      .timer 1 77 uptime Checkpoint5
  60. n58=      .timer 1 80 msg #[MM]IKKE.races 2[RACE] $replace($readini(Stats\Current race.ini,Race,Checkpoint6) ,2,down,4,left,6,right,8,up)
  61. n59=      .timer 1 80 uptime Checkpoint6
  62. n60=      .timer 1 83 msg #[MM]IKKE.races 2[RACE] $replace($readini(Stats\Current race.ini,Race,Checkpoint7) ,2,down,4,left,6,right,8,up)
  63. n61=      .timer 1 83 uptime Checkpoint7
  64. n62=      .timer 1 86 msg #[MM]IKKE.races 2[RACE] $replace($readini(Stats\Current race.ini,Race,Checkpoint8) ,2,down,4,left,6,right,8,up)
  65. n63=      .timer 1 86 uptime Checkpoint8
  66. n64=      .timer 1 89 msg #[MM]IKKE.races 2[RACE] $replace($readini(Stats\Current race.ini,Race,Checkpoint9) ,2,down,4,left,6,right,8,up)
  67. n65=      .timer 1 89 uptime Checkpoint9
  68. n66=      .timer 1 92 msg #[MM]IKKE.races 2[RACE] $replace($readini(Stats\Current race.ini,Race,Checkpoint10) ,2,down,4,left,6,right,8,up)
  69. n67=      .timer 1 92 uptime Checkpoint10
  70. n68=    }
  71. n69=    elseif (%race == 0) {
  72. n70=      msg $chan 4ERROR:2 Race is starting up...Quickly join #[MM]IKKE.races
  73. n71=    }
  74. n72=    elseif (%race == 1) {
  75. n73=      msg $chan 4ERROR:2 Race is busy...Please be patient
  76. n74=    }
  77. n75=  }
  78. n76=  elseif ($me == %bot4) {
  79. n77=    .notice $nick 4ERROR:2 Ask an admin to set the race
  80. n78=  }
  81. n79=}
  82. n80=on *:JOIN:#[MM]IKKE.races: {
  83. n81=  if ($me == %bot4) {
  84. n82=    if (%race == 0) {
  85. n83=      {
  86. n84=        if ($nick isin $read(bots.txt,w,$nick) || $2 isin $read(userbots.txt,w,$nick)) {
  87. n85=          if ($nick !isin %mybots) {
  88. n86=            kick $chan $nick You're not allowed here [BOT]
  89. n87=            ban -u10 $chan $nick
  90. n88=          }
  91. n89=          halt
  92. n90=        }
  93. n91=        if (!$exists(Stats\ $+ $nick $+ .txt)) {
  94. n92=          createaccount $nick
  95. n93=        }
  96. n94=      }
  97. n95=      {
  98. n96=        if ($read(Stats\ $+ $nick $+ .txt, 7) <= 0) {
  99. n97=          kick $chan $nick 2[RACE] You are dead, you cannot race
  100. n98=          ban -u10 $chan $nick
  101. n99=        }
  102. n100=        elseif ($nick isin $read(Stats\Taxi jobs.txt,w,$nick $+ *)) {
  103. n101=          kick $chan $nick 2[RACE] You are currently driving a taxi, you cannot race
  104. n102=          ban -u10 $chan $nick
  105. n103=        }
  106. n104=        elseif ($nick isin $read(Stats\Drug jobs.txt,w,$nick $+ *)) {
  107. n105=          kick $chan $nick 2[RACE] You are currently dealing drugs, you cannot race
  108. n106=          ban -u10 $chan $nick
  109. n107=        }
  110. n108=        elseif ($nick !isin $read(Stats\Current race.txt,w, $nick)) {
  111. n109=          write "Stats\Current race.txt" $nick
  112. n110=          writeini "Stats\Current race.ini" $nick Checkpoints 1
  113. n111=          writeini "Stats\Current race.ini" $nick Checkpoint1 0
  114. n112=          writeini "Stats\Current race.ini" $nick Checkpoint2 0
  115. n113=          writeini "Stats\Current race.ini" $nick Checkpoint3 0
  116. n114=          writeini "Stats\Current race.ini" $nick Checkpoint4 0
  117. n115=          writeini "Stats\Current race.ini" $nick Checkpoint5 0
  118. n116=          writeini "Stats\Current race.ini" $nick Checkpoint6 0
  119. n117=          writeini "Stats\Current race.ini" $nick Checkpoint7 0
  120. n118=          writeini "Stats\Current race.ini" $nick Checkpoint8 0
  121. n119=          writeini "Stats\Current race.ini" $nick Checkpoint9 0
  122. n120=          writeini "Stats\Current race.ini" $nick Checkpoint10 0
  123. n121=          writeini "Stats\Current race.ini" $nick RacingTime 0
  124. n122=          msg #[MM]IKKE 2[RACE]4 $nick 2has joined the racing channel
  125. n123=        }
  126. n124=        elseif ($nick isin $read(Stats\Current race.txt,w, $nick)) {
  127. n125=          write -dl $+ $readn "Stats\Current race.txt" $nick
  128. n126=          writeini "Stats\Current race.ini" $nick Checkpoints 1
  129. n127=        }
  130. n128=      }
  131. n129=    }
  132. n130=    elseif (%race == 1) {
  133. n131=      if ($nick !isin %mybots && $nick != %owner) {
  134. n132=        kick $chan $nick 2[RACE] Race is busy
  135. n133=        ban -u10 $chan $nick
  136. n134=      }
  137. n135=    }
  138. n136=    elseif (%race == 2) {
  139. n137=      if ($nick !isin %mybots && $nick != %owner) {
  140. n138=        kick $chan $nick 2[RACE] There's no race at the moment. Ask an admin to set it
  141. n139=        ban -u10 $chan $nick
  142. n140=      }
  143. n141=    }
  144. n142=  }
  145. n143=}
  146. n144=on *:PART:#[MM]IKKE.races: {
  147. n145=  if ($me == %bot4) {
  148. n146=    if ($nick isin $read(Stats\Current race.txt,w, $nick)) {
  149. n147=      write -dl $+ $readn "Stats\Current race.txt"
  150. n148=      msg #[MM]IKKE 2[RACE]4 $nick 2has left the racing channel
  151. n149=      {
  152. n150=        if ($lines(Stats\Current race.txt) == 0) {
  153. n151=          scid $scon(1) mode #[MM]IKKE.races +b *!*@*
  154. n152=          set %race 2
  155. n153=          msg #[MM]IKKE 2[RACE] Race ended! Rank 1:4 $readini(Stats\Current race.ini, Ranks, rank1) 2Rank 2:4 $readini(Stats\Current race.ini, Ranks, rank2) 2Rank 3:4 $readini(Stats\Current race.ini, Ranks, rank3)
  156. n154=          increasecash $readini(Stats\Current race.ini, Ranks, rank1) 4900
  157. n155=          increaserank $readini(Stats\Current race.ini, Ranks, rank1) 9
  158. n156=          increasecash $readini(Stats\Current race.ini, Ranks, rank2) 2400
  159. n157=          increaserank $readini(Stats\Current race.ini, Ranks, rank2) 4
  160. n158=          increasecash $readini(Stats\Current race.ini, Ranks, rank3) 900
  161. n159=          increaserank $readini(Stats\Current race.ini, Ranks, rank3) 1      
  162. n160=          write -c "Stats\Current race.txt"
  163. n161=        }
  164. n162=        elseif ($lines(Stats\Current race.txt) == 1 && $read(Stats\Current race.txt,1) == [MM]IKKE && $readini(Stats\Current race.ini,[MM]IKKE,Checkpoints) == 1) {
  165. n163=          scid $scon(1) mode #[MM]IKKE.races +b *!*@*
  166. n164=          set %race 2
  167. n165=          msg #[MM]IKKE 2[RACE] Race ended! Rank 1:4 $readini(Stats\Current race.ini, Ranks, rank1) 2Rank 2:4 $readini(Stats\Current race.ini, Ranks, rank2) 2Rank 3:4 $readini(Stats\Current race.ini, Ranks, rank3)
  168. n166=          increasecash $readini(Stats\Current race.ini, Ranks, rank1) 4900
  169. n167=          increaserank $readini(Stats\Current race.ini, Ranks, rank1) 9
  170. n168=          increasecash $readini(Stats\Current race.ini, Ranks, rank2) 2400
  171. n169=          increaserank $readini(Stats\Current race.ini, Ranks, rank2) 4
  172. n170=          increasecash $readini(Stats\Current race.ini, Ranks, rank3) 900
  173. n171=          increaserank $readini(Stats\Current race.ini, Ranks, rank3) 1      
  174. n172=          write -c "Stats\Current race.txt"
  175. n173=        }
  176. n174=      }
  177. n175=    }
  178. n176=  }
  179. n177=}
  180. n178=on *:QUIT: {
  181. n179=  if ($me == %bot4) {
  182. n180=    if ($nick isin $read(Stats\Current race.txt,w, $nick)) {
  183. n181=      write -dl $+ $readn "Stats\Current race.txt"
  184. n182=      msg #[MM]IKKE 2[RACE]4 $nick 2has left the racing channel
  185. n183=      {
  186. n184=        if ($lines(Stats\Current race.txt) == 0) {
  187. n185=          scid $scon(1) mode #[MM]IKKE.races +b *!*@*
  188. n186=          set %race 2
  189. n187=          msg #[MM]IKKE 2[RACE] Race ended! Rank 1:4 $readini(Stats\Current race.ini, Ranks, rank1) 2Rank 2:4 $readini(Stats\Current race.ini, Ranks, rank2) 2Rank 3:4 $readini(Stats\Current race.ini, Ranks, rank3)
  190. n188=          increasecash $readini(Stats\Current race.ini, Ranks, rank1) 4900
  191. n189=          increaserank $readini(Stats\Current race.ini, Ranks, rank1) 9
  192. n190=          increasecash $readini(Stats\Current race.ini, Ranks, rank2) 2400
  193. n191=          increaserank $readini(Stats\Current race.ini, Ranks, rank2) 4
  194. n192=          increasecash $readini(Stats\Current race.ini, Ranks, rank3) 900
  195. n193=          increaserank $readini(Stats\Current race.ini, Ranks, rank3) 1
  196. n194=          write -c "Stats\Current race.txt"
  197. n195=        }
  198. n196=        elseif ($lines(Stats\Current race.txt) == 1 && $read(Stats\Current race.txt,1) == [MM]IKKE && $readini(Stats\Current race.ini,[MM]IKKE,Checkpoints) == 1) {
  199. n197=          scid $scon(1) mode #[MM]IKKE.races +b *!*@*
  200. n198=          set %race 2
  201. n199=          msg #[MM]IKKE 2[RACE] Race ended! Rank 1:4 $readini(Stats\Current race.ini, Ranks, rank1) 2Rank 2:4 $readini(Stats\Current race.ini, Ranks, rank2) 2Rank 3:4 $readini(Stats\Current race.ini, Ranks, rank3)
  202. n200=          increasecash $readini(Stats\Current race.ini, Ranks, rank1) 4900
  203. n201=          increaserank $readini(Stats\Current race.ini, Ranks, rank1) 9
  204. n202=          increasecash $readini(Stats\Current race.ini, Ranks, rank2) 2400
  205. n203=          increaserank $readini(Stats\Current race.ini, Ranks, rank2) 4
  206. n204=          increasecash $readini(Stats\Current race.ini, Ranks, rank3) 900
  207. n205=          increaserank $readini(Stats\Current race.ini, Ranks, rank3) 1      
  208. n206=          write -c "Stats\Current race.txt"
  209. n207=        }
  210. n208=      }
  211. n209=    }
  212. n210=  }
  213. n211=}
  214. n212=on *:KICK:#[MM]IKKE.races: {
  215. n213=  if ($me == %bot4) {
  216. n214=    if ($knick isin $read(Stats\Current race.txt,w, $knick)) {
  217. n215=      write -dl $+ $readn "Stats\Current race.txt"
  218. n216=      msg #[MM]IKKE 2[RACE]4 $knick 2has left the racing channel
  219. n217=      {
  220. n218=        if ($lines(Stats\Current race.txt) == 0) {
  221. n219=          scid $scon(1) mode #[MM]IKKE.races +b *!*@*
  222. n220=          set %race 2
  223. n221=          msg #[MM]IKKE 2[RACE] Race ended! Rank 1:4 $readini(Stats\Current race.ini, Ranks, rank1) 2Rank 2:4 $readini(Stats\Current race.ini, Ranks, rank2) 2Rank 3:4 $readini(Stats\Current race.ini, Ranks, rank3)
  224. n222=          increasecash $readini(Stats\Current race.ini, Ranks, rank1) 4900
  225. n223=          increaserank $readini(Stats\Current race.ini, Ranks, rank1) 9
  226. n224=          increasecash $readini(Stats\Current race.ini, Ranks, rank2) 2400
  227. n225=          increaserank $readini(Stats\Current race.ini, Ranks, rank2) 4
  228. n226=          increasecash $readini(Stats\Current race.ini, Ranks, rank3) 900
  229. n227=          increaserank $readini(Stats\Current race.ini, Ranks, rank3) 1
  230. n228=          write -c "Stats\Current race.txt"
  231. n229=        }
  232. n230=        elseif ($lines(Stats\Current race.txt) == 1 && $read(Stats\Current race.txt,1) == [MM]IKKE && $readini(Stats\Current race.ini,[MM]IKKE,Checkpoints) == 1) {
  233. n231=          scid $scon(1) mode #[MM]IKKE.races +b *!*@*
  234. n232=          set %race 2
  235. n233=          msg #[MM]IKKE 2[RACE] Race ended! Rank 1:4 $readini(Stats\Current race.ini, Ranks, rank1) 2Rank 2:4 $readini(Stats\Current race.ini, Ranks, rank2) 2Rank 3:4 $readini(Stats\Current race.ini, Ranks, rank3)
  236. n234=          increasecash $readini(Stats\Current race.ini, Ranks, rank1) 4900
  237. n235=          increaserank $readini(Stats\Current race.ini, Ranks, rank1) 9
  238. n236=          increasecash $readini(Stats\Current race.ini, Ranks, rank2) 2400
  239. n237=          increaserank $readini(Stats\Current race.ini, Ranks, rank2) 4
  240. n238=          increasecash $readini(Stats\Current race.ini, Ranks, rank3) 900
  241. n239=          increaserank $readini(Stats\Current race.ini, Ranks, rank3) 1
  242. n240=          write -c "Stats\Current race.txt"
  243. n241=        }
  244. n242=      }
  245. n243=    }
  246. n244=  }
  247. n245=}
  248. n246=on *:TEXT:*:#[MM]IKKE.races: {
  249. n247=  if ($me == $eval($chr(37) $+ bot $+ %racingbot,2)) {
  250. n248=    if ($1 isnum && %race == 1) {
  251. n249=      if ($nick isin $read(Stats\Current race.txt,w, $nick)) {
  252. n250=        var %i = $readini(Stats\Current race.ini, $nick, Checkpoints)
  253. n251=        if ($1- == $readini(Stats\Current race.ini, Race, Checkpoint $+ %i)) {
  254. n252=          .timer 1 1 racingbot
  255. n253=          writeini "Stats\Current race.ini" $nick Checkpoints $calc(%i + 1)
  256. n254=          writeini "Stats\Current race.ini" $nick Checkpoint $+ %i $uptime(mirc)
  257. n255=          .notice $nick 2You have reached checkpoint7 %i $+ /10
  258. n256=          if (%i == 10) {
  259. n257=            increasecash $nick 100
  260. n258=            increaserank $nick 1
  261. n259=            if ($nick isin $read(Stats\Current race.txt,w, $nick)) {
  262. n260=              write -dl $+ $readn "Stats\Current race.txt"
  263. n261=            }
  264. n262=            if ($nick != %owner) { kick $chan $nick 2You successfully finished the race }
  265. n263=            calculateracingtime $nick
  266. n264=            {
  267. n265=              if ($lines(Stats\Current race.txt) == 0) {
  268. n266=                scid $scon(1) mode #[MM]IKKE.races +b *!*@*
  269. n267=                set %race 2
  270. n268=                msg #[MM]IKKE 2[RACE] Race ended! Rank 1:4 $readini(Stats\Current race.ini, Ranks, rank1) 2Rank 2:4 $readini(Stats\Current race.ini, Ranks, rank2) 2Rank 3:4 $readini(Stats\Current race.ini, Ranks, rank3)
  271. n269=                increasecash $readini(Stats\Current race.ini, Ranks, rank1) 4900
  272. n270=                increaserank $readini(Stats\Current race.ini, Ranks, rank1) 9
  273. n271=                increasecash $readini(Stats\Current race.ini, Ranks, rank2) 2400
  274. n272=                increaserank $readini(Stats\Current race.ini, Ranks, rank2) 4
  275. n273=                increasecash $readini(Stats\Current race.ini, Ranks, rank3) 900
  276. n274=                increaserank $readini(Stats\Current race.ini, Ranks, rank3) 1
  277. n275=                write -c "Stats\Current race.txt"
  278. n276=              }
  279. n277=              elseif ($lines(Stats\Current race.txt) == 1 && $read(Stats\Current race.txt,1) == [MM]IKKE && $readini(Stats\Current race.ini,[MM]IKKE,Checkpoints) == 1) {
  280. n278=                scid $scon(1) mode #[MM]IKKE.races +b *!*@*
  281. n279=                set %race 2
  282. n280=                msg #[MM]IKKE 2[RACE] Race ended! Rank 1:4 $readini(Stats\Current race.ini, Ranks, rank1) 2Rank 2:4 $readini(Stats\Current race.ini, Ranks, rank2) 2Rank 3:4 $readini(Stats\Current race.ini, Ranks, rank3)
  283. n281=                increasecash $readini(Stats\Current race.ini, Ranks, rank1) 4900
  284. n282=                increaserank $readini(Stats\Current race.ini, Ranks, rank1) 9
  285. n283=                increasecash $readini(Stats\Current race.ini, Ranks, rank2) 2400
  286. n284=                increaserank $readini(Stats\Current race.ini, Ranks, rank2) 4
  287. n285=                increasecash $readini(Stats\Current race.ini, Ranks, rank3) 900
  288. n286=                increaserank $readini(Stats\Current race.ini, Ranks, rank3) 1
  289. n287=                write -c "Stats\Current race.txt"
  290. n288=              }
  291. n289=            }
  292. n290=          }
  293. n291=        }
  294. n292=      }
  295. n293=    }
  296. n294=  }
  297. n295=}
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!