API tools faq
paste
_MM_IKKE

admins.ini

_MM_IKKE
Nov 22nd, 2018
196
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 32.54 KB | None | 0 0
raw download clone embed print report
  1. [script]
  2. n0=on *:TEXT:!revive*:#[MM]IKKE: {
  3. n1=  if (($nick isin $read(Stats\Administrator list.txt, w, $nick) || $nick == %owner) && $me == %bot4 && $1 == !revive) {
  4. n2=    rpglog $nick $1-
  5. n3=    if ($2) {
  6. n4=      if ($exists(Stats\ $+ $2 $+ .txt)) {
  7. n5=        if ($read(Stats\ $+ $2 $+ .txt, 7) <= 0) {
  8. n6=          write -l7 Stats\ $+ $2 $+ .txt 100
  9. n7=          if ($2 isin $read(Stats\Death list.txt,w,$2)) {
  10. n8=            write -dl $+ $readn "Stats\Death list.txt"
  11. n9=          }
  12. n10=          msg $chan 2Successfully respawned "4 $+ $2 $+ 2"!
  13. n11=          .notice $2 2You have been revived by admin4 $nick $+ 2!
  14. n12=        }
  15. n13=        else { .notice $nick 4ERROR: $2 2is not dead }
  16. n14=      }
  17. n15=      else { .notice $nick 4ERROR: $2 2does not have a profile }
  18. n16=    }
  19. n17=  }
  20. n18=  elseif ($me == %bot4 && $1 == !revive) {
  21. n19=    rpglog $nick $1-
  22. n20=    .notice $nick 4ERROR:2 You are not allowed to use this command
  23. n21=  }
  24. n22=}
  25. n23=on *:TEXT:!respawn*:#[MM]IKKE: {
  26. n24=  if (($nick isin $read(Stats\Administrator list.txt, w, $nick) || $nick == %owner) && $me == %bot4 && $1 == !respawn) {
  27. n25=    rpglog $nick $1-
  28. n26=    if ($2) {
  29. n27=      if ($exists(Stats\ $+ $2 $+ .txt)) {
  30. n28=        if ($read(Stats\ $+ $2 $+ .txt, 7) <= 0) {
  31. n29=          write -l7 Stats\ $+ $2 $+ .txt 100
  32. n30=          if ($2 isin $read(Stats\Death list.txt,w,$2)) {
  33. n31=            write -dl $+ $readn "Stats\Death list.txt"
  34. n32=          }
  35. n33=          msg $chan 2Successfully respawned "4 $+ $2 $+ 2"!
  36. n34=          .notice $2 2You have been revived by admin4 $nick $+ 2!
  37. n35=        }
  38. n36=        else { .notice $nick 4ERROR: $2 2is not dead }
  39. n37=      }
  40. n38=      else { .notice $nick 4ERROR: $2 2does not have a profile }
  41. n39=    }
  42. n40=  }
  43. n41=  elseif ($me == %bot4 && $1 == !respawn) {
  44. n42=    rpglog $nick $1-
  45. n43=    .notice $nick 4ERROR:2 You are not allowed to use this command
  46. n44=  }
  47. n45=}
  48. n46=on *:TEXT:!endtaxi*:#[MM]IKKE: {
  49. n47=  if ($me == %bot4 && $1 == !endtaxi) {
  50. n48=    rpglog $nick $1-
  51. n49=    if ($nick isin $read(Stats\Administrator list.txt, w, $nick) || $nick == %owner) {
  52. n50=      if ($2) {
  53. n51=        if ($exists(Stats\ $+ $2 $+ .txt)) {
  54. n52=          if ($2 isin $read(Stats\Taxi jobs.txt,w,$2 $+ *)) {
  55. n53=            var %runningtime = $calc($uptime - $gettok($read(Stats\Taxi jobs.txt,$readn),2,46))
  56. n54=            write -dl $+ $readn "Stats\Taxi jobs.txt"
  57. n55=            increasecash $2 $calc(100 * $floor( $calc(%runningtime / 60) ))
  58. n56=            increaserank $2 $floor( $calc(%runningtime / 60) )
  59. n57=            msg $chan 4 $+ $2 2has ended his/her job as a taxi driver. (S)he has driven around7 %runningtime 2seconds, so (s)he earned7 $calc(100 * $floor( $calc(%runningtime / 60 ))) 2cash.
  60. n58=            .notice $2 2Admin "4 $+ $nick $+ 2" has ended your job as a taxi driver
  61. n59=          }
  62. n60=          elseif ($2 !isin $read(Stats\Taxi jobs.txt,w,$2 $+ *)) {
  63. n61=            .notice $nick 4ERROR: $2 2is not a taxi driver
  64. n62=          }
  65. n63=        }
  66. n64=        else { .notice $nick 4ERROR: $2 2does not have a profile }
  67. n65=      }
  68. n66=      else {
  69. n67=        .notice $nick 4ERROR:2 Usage: !endtaxi <nick>
  70. n68=      }
  71. n69=    }
  72. n70=    else { .notice $nick 4ERROR:2 You are not allowed to use this command }
  73. n71=  }
  74. n72=}
  75. n73=on *:TEXT:!endalltaxi:#[MM]IKKE: {
  76. n74=  if ($me == %bot4) {
  77. n75=    rpglog $nick $1-
  78. n76=    if ($nick isin $read(Stats\Administrator list.txt, w, $nick) || $nick == %owner) {
  79. n77=      if ($lines(Stats\Taxi jobs.txt) == 0) {
  80. n78=        .notice $nick 4ERROR:2 There are no taxi drivers at the moment
  81. n79=      }
  82. n80=      else {
  83. n81=        var %i = 1
  84. n82=        while (%i <= $lines(Stats\Taxi jobs.txt)) {
  85. n83=          var %runningtime = $calc($uptime - $gettok($read(Stats\Taxi jobs.txt,%i),2,46))
  86. n84=          var %taxidriver = $gettok($read(Stats\Taxi jobs.txt,%i),1,46)
  87. n85=          increasecash %taxidriver $calc(100 * $floor( $calc(%runningtime / 60) ))
  88. n86=          increaserank %taxidriver $floor( $calc(%runningtime / 60) )
  89. n87=          msg $chan 4 $+ %taxidriver 2has ended his/her job as a taxi driver. (S)he has driven around7 %runningtime 2seconds, so (s)he earned7 $calc(100 * $floor( $calc(%runningtime / 60 ))) 2cash.
  90. n88=          .notice %taxidriver 2Admin "4 $+ $nick $+ 2" has ended your job as a taxi driver
  91. n89=          inc %i
  92. n90=        }
  93. n91=        write -c "Stats\Taxi jobs.txt"
  94. n92=      }
  95. n93=    }
  96. n94=    else { .notice $nick 4ERROR:2 You are not allowed to use this command }
  97. n95=  }
  98. n96=}
  99. n97=on *:TEXT:!enddrugdeal*:#[MM]IKKE: {
  100. n98=  if ($me == %bot4 && $1 == !enddrugdeal) {
  101. n99=    rpglog $nick $1-
  102. n100=    if ($nick isin $read(Stats\Administrator list.txt, w, $nick) || $nick == %owner) {
  103. n101=      if ($2) {
  104. n102=        if ($exists(Stats\ $+ $2 $+ .txt)) {
  105. n103=          if ($2 isin $read(Stats\Drug jobs.txt,w,$2 $+ *)) {
  106. n104=            var %runningtime = $floor($calc(($uptime - $gettok($read(Stats\Drug jobs.txt,$readn),2,46)) / 60 ))
  107. n105=            write -dl $+ $readn "Stats\Drug jobs.txt"
  108. n106=            msg $chan 2[DRUGS]4 $2 2has ended his/her job as a drug dealer. (S)he has been dealing7 %runningtime 2minute(s). This means (s)he has a chance of7 $round($calc(100 - (100* (0.9 ^ %runningtime))),2) $+ $chr(37) 2to get caught by cops.
  109. n107=            .timer 1 1 calculatedrugs $2 %runningtime
  110. n108=            .notice $2 2Admin "4 $+ $nick $+ 2" has ended your job as a drug dealer
  111. n109=          }
  112. n110=          elseif ($2 !isin $read(Stats\Drug jobs.txt,w,$2 $+ *)) {
  113. n111=            .notice $nick 4ERROR: $2 2is not a drug dealer
  114. n112=          }
  115. n113=        }
  116. n114=        else { .notice $nick 4ERROR: $2 2does not have a profile }
  117. n115=      }
  118. n116=      else {
  119. n117=        .notice $nick 4ERROR:2 Usage: !enddrugdeal <nick>
  120. n118=      }
  121. n119=    }
  122. n120=    else { .notice $nick 4ERROR:2 You are not allowed to use this command }
  123. n121=  }
  124. n122=}
  125. n123=on *:TEXT:!endalldrugdeal:#[MM]IKKE: {
  126. n124=  if ($me == %bot4) {
  127. n125=    rpglog $nick $1-
  128. n126=    if ($nick isin $read(Stats\Administrator list.txt, w, $nick) || $nick == %owner) {
  129. n127=      if ($lines(Stats\Drug jobs.txt) == 0) {
  130. n128=        .notice $nick 4ERROR:2 There are no drug dealers at the moment
  131. n129=      }
  132. n130=      else {
  133. n131=        var %i = 1
  134. n132=        while (%i <= $lines(Stats\Drug jobs.txt)) {
  135. n133=          var %runningtime = $floor($calc(($uptime - $gettok($read(Stats\Drug jobs.txt,$readn),2,46)) / 60 ))
  136. n134=          var %drugdealer = $gettok($read(Stats\Drug jobs.txt,%i),1,46)
  137. n135=          msg $chan 2[DRUGS]4 %drugdealer 2has ended his/her job as a drug dealer. (S)he has been dealing7 %runningtime 2minute(s). This means (s)he has a chance of7 $round($calc(100 - (100* (0.9 ^ %runningtime))),2) $+ $chr(37) 2to get caught by cops.
  138. n136=          .timer 1 1 calculatedrugs %drugdealer %runningtime
  139. n137=          .notice %drugdealer 2Admin "4 $+ $nick $+ 2" has ended your job as a taxi driver
  140. n138=          inc %i
  141. n139=        }
  142. n140=        write -c "Stats\Taxi jobs.txt"
  143. n141=      }
  144. n142=    }
  145. n143=    else { .notice $nick 4ERROR:2 You are not allowed to use this command }
  146. n144=  }
  147. n145=}
  148. n146=on *:TEXT:!endjob*:#[MM]IKKE: {
  149. n147=  if ($me == %bot4 && $1 == !endjob) {
  150. n148=    rpglog $nick $1-
  151. n149=    if ($nick isin $read(Stats\Administrator list.txt, w, $nick) || $nick == %owner) {
  152. n150=      if ($2) {
  153. n151=        if ($exists(Stats\ $+ $2 $+ .txt)) {
  154. n152=          if ($2 isin $read(Stats\Drug jobs.txt,w,$2 $+ *)) {
  155. n153=            var %runningtime = $floor($calc(($uptime - $gettok($read(Stats\Drug jobs.txt,$readn),2,46)) / 60 ))
  156. n154=            write -dl $+ $readn "Stats\Drug jobs.txt"
  157. n155=            msg $chan 2[DRUGS]4 $2 2has ended his/her job as a drug dealer. (S)he has been dealing7 %runningtime 2minute(s). This means (s)he has a chance of7 $round($calc(100 - (100* (0.9 ^ %runningtime))),2) $+ $chr(37) 2to get caught by cops.
  158. n156=            .timer 1 1 calculatedrugs $2 %runningtime
  159. n157=            .notice $2 2Admin "4 $+ $nick $+ 2" has ended your job as a drug dealer
  160. n158=          }
  161. n159=          elseif ($2 isin $read(Stats\Taxi jobs.txt,w,$2 $+ *)) {
  162. n160=            var %runningtime = $calc($uptime - $gettok($read(Stats\Taxi jobs.txt,$readn),2,46))
  163. n161=            write -dl $+ $readn "Stats\Taxi jobs.txt"
  164. n162=            increasecash $2 $calc(100 * $floor( $calc(%runningtime / 60) ))
  165. n163=            increaserank $2 $floor( $calc(%runningtime / 60) )
  166. n164=            msg $chan 4 $+ $2 2has ended his/her job as a taxi driver. (S)he has driven around7 %runningtime 2seconds, so (s)he earned7 $calc(100 * $floor( $calc(%runningtime / 60 ))) 2cash.
  167. n165=            .notice $2 2Admin "4 $+ $nick $+ 2" has ended your job as a taxi driver
  168. n166=          }
  169. n167=          else { .notice $nick 4ERROR: $2 2is currently not doing a job }
  170. n168=        }
  171. n169=        else { .notice $nick 4ERROR: $2 2does not have a profile }
  172. n170=      }
  173. n171=      else {
  174. n172=        .notice $nick 4ERROR:2 Usage: !endjob <nick>
  175. n173=      }
  176. n174=    }
  177. n175=    else { .notice $nick 4ERROR:2 You are not allowed to use this command }
  178. n176=  }
  179. n177=
  180. n178=}
  181. n179=on *:TEXT:!endalljobs:#[MM]IKKE: {
  182. n180=  if ($me == %bot4) {
  183. n181=    rpglog $nick $1-
  184. n182=    if ($nick isin $read(Stats\Administrator list.txt, w, $nick) || $nick == %owner) {
  185. n183=      {
  186. n184=        if ($lines(Stats\Drug jobs.txt) == 0) {
  187. n185=          msg $chan 2There are no drug dealers at the moment
  188. n186=        }
  189. n187=        else {
  190. n188=          var %i = 1
  191. n189=          while (%i <= $lines(Stats\Drug jobs.txt)) {
  192. n190=            var %runningtime = $floor($calc(($uptime - $gettok($read(Stats\Drug jobs.txt,$readn),2,46)) / 60 ))
  193. n191=            var %drugdealer = $gettok($read(Stats\Drug jobs.txt,%i),1,46)
  194. n192=            msg $chan 2[DRUGS]4 %drugdealer 2has ended his/her job as a drug dealer. (S)he has been dealing7 %runningtime 2minute(s). This means (s)he has a chance of7 $round($calc(100 - (100* (0.9 ^ %runningtime))),2) $+ $chr(37) 2to get caught by cops.
  195. n193=            .timer 1 1 calculatedrugs %drugdealer %runningtime
  196. n194=            .notice %drugdealer 2Admin "4 $+ $nick $+ 2" has ended your job as a drug dealer
  197. n195=            inc %i
  198. n196=          }
  199. n197=          write -c "Stats\Taxi jobs.txt"
  200. n198=        }
  201. n199=      }
  202. n200=      {
  203. n201=        if ($lines(Stats\Taxi jobs.txt) == 0) {
  204. n202=          msg $chan 2There are no taxi drivers at the moment
  205. n203=        }
  206. n204=        else {
  207. n205=          var %j = 1
  208. n206=          while (%j <= $lines(Stats\Taxi jobs.txt)) {
  209. n207=            var %runningtime = $calc($uptime - $gettok($read(Stats\Taxi jobs.txt,%j),2,46))
  210. n208=            var %taxidriver = $gettok($read(Stats\Taxi jobs.txt,%j),1,46)
  211. n209=            increasecash %taxidriver $calc(100 * $floor( $calc(%runningtime / 60) ))
  212. n210=            increaserank %taxidriver $floor( $calc(%runningtime / 60) )
  213. n211=            msg $chan 4 $+ %taxidriver 2has ended his/her job as a taxi driver. (S)he has driven around7 %runningtime 2seconds, so (s)he earned7 $calc(100 * $floor( $calc(%runningtime / 60 ))) 2cash.
  214. n212=            .notice %taxidriver 2Admin "4 $+ $nick $+ 2" has ended your job as a taxi driver
  215. n213=            inc %j
  216. n214=          }
  217. n215=          write -c "Stats\Taxi jobs.txt"
  218. n216=        }
  219. n217=      }
  220. n218=    }
  221. n219=    else { .notice $nick 4ERROR:2 You are not allowed to use this command }
  222. n220=  }
  223. n221=}
  224. n222=on *:TEXT:!resetjobs:#: {
  225. n223=  if ($me == %bot1 && $nick == %owner) {
  226. n224=    set %duel 0
  227. n225=    set %race 2
  228. n226=    write -c "Stats\Duel list.txt"
  229. n227=    write -c "Stats\Taxi jobs.txt"
  230. n228=    write -c "Stats\Drug jobs.txt"
  231. n229=    write -c "Stats\Current race.txt"
  232. n230=    write -c "Stats\Current race.ini"
  233. n231=    scid $scon($bot_say($chan)) msg $chan Jobs have been reset
  234. n232=  }
  235. n233=  elseif ($me == %bot1) { scid $scon($bot_say($chan)) msg $chan 4ERROR: You are not authorized to use this command }
  236. n234=}
  237. n235=
  238. n236=
  239. n237=on *:TEXT:!death list:#[MM]IKKE: {
  240. n238=  if (($nick isin $read(Stats\Administrator list.txt, w, $nick) || $nick == %owner) && $me == %bot4) {
  241. n239=    rpglog $nick $1-
  242. n240=    if ($lines(Stats\Death list.txt) > 0) {
  243. n241=      var %i = 1
  244. n242=      set %tempdeaths $null
  245. n243=      while (%i <= $lines(Stats\Death list.txt)) {
  246. n244=        set %tempdeaths %tempdeaths $+ , $read(Stats\Death list.txt, %i)
  247. n245=        inc %i
  248. n246=      }
  249. n247=      set %tempdeaths $right(%tempdeaths, $calc($len(%tempdeaths) - 2)) $+ .
  250. n248=      .notice $nick 2Current (known) Death list: %tempdeaths
  251. n249=      unset %tempdeaths
  252. n250=    }
  253. n251=    else { msg $chan 2There are no (known) deaths }
  254. n252=  }
  255. n253=  elseif ($me == %bot4) {
  256. n254=    rpglog $nick $1-
  257. n255=    .notice $nick 4ERROR:2 You are not allowed to use this command
  258. n256=  }
  259. n257=}
  260. n258=on *:TEXT:!akill*:#[MM]IKKE: {
  261. n259=  if ($nick isin $read(Stats\Administrator list.txt, w, $nick) && $me == %bot4 && $1 == !akill) {
  262. n260=    rpglog $nick $1-
  263. n261=    if ($2) {
  264. n262=      if ($2 isin $read(Stats\Administrator list.txt, w, $2) && $nick != %owner) {
  265. n263=        .notice $nick 4ERROR:2 Please do not abuse your powers
  266. n264=      }
  267. n265=      elseif ($2 isin $read(Stats\Ban list.txt, w, $2)) {
  268. n266=        .notice $nick 4ERROR:2 User has been banned...
  269. n267=      }
  270. n268=      elseif ($2 isin $read(Stats\Death list.txt, w, $2)) {
  271. n269=        .notice $nick 4ERROR:2 User is already dead...
  272. n270=      }
  273. n271=      elseif ($exists(Stats\ $+ $2 $+ .txt)) {
  274. n272=        write -l7 Stats\ $+ $2 $+ .txt 0
  275. n273=        write -l8 Stats\ $+ $2 $+ .txt 0
  276. n274=        if ($2 !isin $read(Stats\Death list.txt,w,$2)) {
  277. n275=          write "Stats\Death list.txt" $2
  278. n276=        }
  279. n277=        increasedeath $2
  280. n278=        .notice $2 2You have been killed by an admin. Please wait for an admin to revive you
  281. n279=        msg $chan 2User "4 $+ $2 $+ 2" has been killed successfully!
  282. n280=      }
  283. n281=      else { .notice $nick 4ERROR:2 This user does not yet have a profile }
  284. n282=    }
  285. n283=    else { .notice $nick 4ERROR:2 Usage: !akill <nick> }
  286. n284=  }
  287. n285=  elseif ($1 == !akill && $me == %bot4) {
  288. n286=    rpglog $nick $1-
  289. n287=    .notice $nick 4ERROR:2 You are not allowed to use this command
  290. n288=  }
  291. n289=}
  292. n290=on *:TEXT:!ban list:#[MM]IKKE: {
  293. n291=  if (($nick isin $read(Stats\Administrator list.txt, w, $nick) || $nick == %owner) && $me == %bot4) {
  294. n292=    rpglog $nick $1-
  295. n293=    var %i = 1
  296. n294=    set %tempbans $null
  297. n295=    while (%i <= $lines(Stats\Ban list.txt)) {
  298. n296=      set %tempbans %tempbans $+ , $read(Stats\Ban list.txt, %i)
  299. n297=      inc %i
  300. n298=    }
  301. n299=    set %tempbans $right(%tempbans, $calc($len(%tempbans) - 2)) $+ .
  302. n300=    .notice $nick 2Current bans: %tempbans
  303. n301=    unset %tempbans
  304. n302=  }
  305. n303=  elseif ($me == %bot4) {
  306. n304=    rpglog $nick $1-
  307. n305=    .notice $nick 4ERROR:2 You are not allowed to use this command
  308. n306=  }
  309. n307=}
  310. n308=on *:TEXT:!rpgban*:#[MM]IKKE: {
  311. n309=  if ($nick isin $read(Stats\Administrator list.txt, w, $nick) && $me == %bot4 && $1 == !rpgban) {
  312. n310=    rpglog $nick $1-
  313. n311=    if ($2) {
  314. n312=      if ($2 isin $read(Stats\Administrator list.txt, w, $2) && $nick != %owner) {
  315. n313=        .notice $nick 4ERROR:2 Please ask my owner to demote this user firstly
  316. n314=      }
  317. n315=      elseif ($2 isin $read(Stats\Ban list.txt, w, $2)) {
  318. n316=        .notice $nick 4ERROR:2 User has already been banned...
  319. n317=      }
  320. n318=      elseif ($exists(Stats\ $+ $2 $+ .txt)) {
  321. n319=        .notice $2 2You have been banned out of the RPG. Want an unban? Query an admin (!admins) and ask it politely. DO NOT SPAM!
  322. n320=        write "Stats\Ban list.txt" $2
  323. n321=        .rename Stats\ $+ $2 $+ .txt Stats\ $+ $2 $+ [Banned].txt)
  324. n322=        changeranknick $2 $2 $+ [BANNED]
  325. n323=        msg $chan 2User "4 $+ $2 $+ 2" has been banned successfully!
  326. n324=      }
  327. n325=      else { .notice $nick 4ERROR:2 This user does not yet have a profile }
  328. n326=    }
  329. n327=    else { .notice $nick 4ERROR:2 Usage: !rpgban <nick> }
  330. n328=  }
  331. n329=  elseif ($1 == !rpgban && $me == %bot4) {
  332. n330=    rpglog $nick $1-
  333. n331=    .notice $nick 4ERROR:2 You are not allowed to use this command
  334. n332=  }
  335. n333=}
  336. n334=on *:TEXT:!rpgunban*:#[MM]IKKE: {
  337. n335=  if ($nick isin $read(Stats\Administrator list.txt, w, $nick) && $me == %bot4 && $1 == !rpgunban) {
  338. n336=    rpglog $nick $1-
  339. n337=    if ($2) {
  340. n338=      if ($2 isin $read(Stats\Ban list.txt, w, $2)) {
  341. n339=        .notice $2 2You have been unbanned from the RPG. Have fun!
  342. n340=        write -dl $+ $readn "Stats\Ban list.txt"
  343. n341=        .rename Stats\ $+ $2 $+ [Banned].txt Stats\ $+ $2 $+ .txt)
  344. n342=        changeranknick $2 $+ [BANNED] $2
  345. n343=        msg $chan 2User "4 $+ $2 $+ 2" has been unbanned successfully!
  346. n344=      }
  347. n345=      else { .notice $nick 4ERROR:2 This user isn't banned }
  348. n346=    }
  349. n347=    else { .notice $nick 4ERROR:2 Usage: !rpgunban <nick> }
  350. n348=  }
  351. n349=  elseif ($1 == !rpgunban && $me == %bot4) {
  352. n350=    rpglog $nick $1-
  353. n351=    .notice $nick 4ERROR:2 You are not allowed to use this command
  354. n352=  }
  355. n353=}
  356. n354=on *:TEXT:!rpgkick*:#[MM]IKKE: {
  357. n355=  if ($nick isin $read(Stats\Administrator list.txt, w, $nick) && $me == %bot4 && $1 == !rpgkick) {
  358. n356=    rpglog $nick $1-
  359. n357=    if ($2) {
  360. n358=      if ($2 isin $read(Stats\Administrator list.txt, w, $2) && $nick != %owner) {
  361. n359=        .notice $nick 4ERROR:2 Please ask my owner to demote this user firstly
  362. n360=      }
  363. n361=      elseif ($2 isin $read(Stats\Ban list.txt, w, $2)) {
  364. n362=        .notice $nick 4ERROR:2 User has already been banned/kicked...
  365. n363=      }
  366. n364=      elseif ($exists(Stats\ $+ $2 $+ .txt)) {
  367. n365=        if ($3 == $null) {
  368. n366=          .notice $2 2You have been kicked out of the RPG for 5mins. Please be patient
  369. n367=          write "Stats\Ban list.txt" $2
  370. n368=          .rename Stats\ $+ $2 $+ .txt Stats\ $+ $2 $+ [Kicked].txt)
  371. n369=          changeranknick $2 $2 $+ [KICKED]
  372. n370=          .timer 1 300 .rename Stats\ $+ $2 $+ [Kicked].txt Stats\ $+ $2 $+ .txt)
  373. n371=          .timer 1 300 if ( $2 isin $read(Stats\Ban list.txt, w, $2 ) ) { write -dl $+ $readn "Stats\Ban list.txt" }
  374. n372=          .timer 1 300 changeranknick $2 $+ [KICKED] $2        
  375. n373=          msg $chan 2User "4 $+ $2 $+ 2" has been kicked successfully! (5mins ban)
  376. n374=          .timer 1 300 msg $chan 2User "4 $+ $2 $+ 2" has been automatically unbanned after his kick!
  377. n375=          .timer 1 300 .notice $2 2You're kick has finished. You can now keep on playing. Have fun!
  378. n376=        }
  379. n377=        elseif ($3 isnum 5-900) {
  380. n378=          .notice $2 2You have been kicked out of the RPG for $3 $+ secs. Please be patient
  381. n379=          write "Stats\Ban list.txt" $2
  382. n380=          .rename Stats\ $+ $2 $+ .txt Stats\ $+ $2 $+ [Kicked].txt)
  383. n381=          .timer 1 $3 .rename Stats\ $+ $2 $+ [Kicked].txt Stats\ $+ $2 $+ .txt)
  384. n382=          .timer 1 $3 if ( $2 isin $read(Stats\Ban list.txt, w, $2) ) { write -dl $+ $readn "Stats\Ban list.txt" }
  385. n383=          msg $chan 2User "4 $+ $2 $+ 2" has been kicked successfully! ( $+ $3 $+ secs ban)
  386. n384=          .timer 1 $3 msg $chan 2User "4 $+ $2 $+ 2" has been automatically unbanned after his kick!
  387. n385=          .timer 1 $3 .notice $2 2You're kick has finished. You can now keep on playing. Have fun!
  388. n386=        }
  389. n387=        elseif ($3 isnum) {
  390. n388=          .notice $nick 4ERROR:2 $3 is not a legit amount of time <5-900>
  391. n389=        }
  392. n390=        else { .notice $nick 4ERROR:2 Usage: !rpgkick <nick> [amount of time] }
  393. n391=      }
  394. n392=      else { .notice $nick 4ERROR:2 This user does not yet have a profile }
  395. n393=    }
  396. n394=    else { .notice $nick 4ERROR:2 Usage: !rpgkick <nick> [amount of time] }
  397. n395=  }
  398. n396=  elseif ($1 == !rpgkick && $me == %bot4) {
  399. n397=    rpglog $nick $1-
  400. n398=    .notice $nick 4ERROR:2 You are not allowed to use this command
  401. n399=  }
  402. n400=}
  403. n401=on *:TEXT:!makeadmin*:#[MM]IKKE: {
  404. n402=  if ($nick == %owner && $me == %bot4 && $1 == !makeadmin) {
  405. n403=    rpglog $nick $1-
  406. n404=    if ($2) {
  407. n405=      if ($2 isin $read(Stats\Administrator list.txt, w, $2)) {
  408. n406=        .notice $nick 4ERROR:2 User "4 $+ $2 $+ 2" already is an admin
  409. n407=      }
  410. n408=      elseif ($exists(Stats\ $+ $2 $+ .txt)) {
  411. n409=        write "Stats\Administrator list.txt" $2
  412. n410=        increasecash $2 50000
  413. n411=        msg $chan 2User "4 $+ $2 $+ 2" has been set as an administrator!
  414. n412=      }
  415. n413=      else { .notice $nick 4ERROR:2 This user does not yet have a profile }
  416. n414=    }
  417. n415=    else { .notice $nick 4ERROR:2 Usage: !makeadmin <nick> }
  418. n416=  }
  419. n417=  elseif ($1 == !makeadmin && $me == %bot4) {
  420. n418=    rpglog $nick $1-
  421. n419=    .notice $nick 4ERROR:2 You are not allowed to use this command
  422. n420=  }
  423. n421=}
  424. n422=on *:TEXT:!demote*:#[MM]IKKE: {
  425. n423=  if ($nick == %owner && $me == %bot4 && $1 == !demote) {
  426. n424=    rpglog $nick $1-
  427. n425=    if ($2) {
  428. n426=      if ($2 isin $read(Stats\Administrator list.txt, w, $2)) {
  429. n427=        write -dl $+ $readn "Stats\Administrator list.txt"
  430. n428=        msg $chan 2User "4 $+ $2 $+ 2" has been demoted
  431. n429=      }
  432. n430=      elseif ($exists(Stats\ $+ $2 $+ .txt)) {
  433. n431=        .notice $nick 4ERROR:2 User "4 $+ $2 $+ 2" is not an admin
  434. n432=      }
  435. n433=      else { .notice $nick 4ERROR:2 This user does not yet have a profile }
  436. n434=    }
  437. n435=    else { .notice $nick 4ERROR:2 Usage: !demote <nick> }
  438. n436=  }
  439. n437=  elseif ($1 == !demote && $me == %bot4) {
  440. n438=    rpglog $nick $1-
  441. n439=    .notice $nick 4ERROR:2 You are not allowed to use this command
  442. n440=  }
  443. n441=}
  444. n442=on *:TEXT:!set*:#[MM]IKKE: {
  445. n443=  if ($nick isin $read(Stats\Administrator list.txt, w, $nick) && $me == %bot4 && $1 == !set) {
  446. n444=    rpglog $nick $1-
  447. n445=    if ($2) {
  448. n446=      if ($2 == $nick && $nick != %owner) {
  449. n447=        .notice $nick 4ERROR:2 Do not abuse. If you found anything rare, ask my owner to set it
  450. n448=      }
  451. n449=      elseif ($2 isin $read(Stats\Administrator list.txt, w, $2) && $nick != %owner) {
  452. n450=        .notice $nick 4ERROR:2 Please do not abuse your powers
  453. n451=      }
  454. n452=      elseif ($2 isin $read(Stats\Ban list.txt, w, $2)) {
  455. n453=        .notice $nick 4ERROR:2 User has been banned/kicked...
  456. n454=      }
  457. n455=      elseif ($2 isin $read(Stats\Death list.txt, w, $2)) {
  458. n456=        .notice $nick 4ERROR:2 This player needs to be respawned firstly. Use !revive
  459. n457=      }
  460. n458=      elseif ($exists(Stats\ $+ $2 $+ .txt)) {
  461. n459=        if ($3) {
  462. n460=          if ($3 != answers && $3 != cookies && $3 != cash && $3 != kills && $3 != deaths && $3 != health && $3 != armour && $3 != weapon && $3 != car) {
  463. n461=            .notice $nick 4ERROR:2 Usage: !set $2 <answers|cookies|cash|kills|deaths|health|armour|weapon|car> <amount|weapon|car>
  464. n462=          }
  465. n463=          elseif ($4 == $null && $3 != weapon && $3 != car) { .notice $nick 4ERROR:2 Usage: !set $2 $3 <amount> }
  466. n464=          elseif ($4 == $null && $3 == car) { .notice $nick 4ERROR:2 Usage: !set $2 $3 <car name> }
  467. n465=          elseif ($4 == $null && $3 == weapon) { .notice $nick 4ERROR:2 Usage: !set $2 $3 <weapon name> }
  468. n466=          elseif ($3 == answers) {
  469. n467=            if ($4 isnum && $4 >= 0) {
  470. n468=              write -l2 Stats\ $+ $2 $+ .txt $4
  471. n469=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  472. n470=            }
  473. n471=            elseif ($4 isnum) {
  474. n472=              .notice $nick 4ERROR:2 Illegal amount (must be higher than 0)
  475. n473=            }
  476. n474=            else { .notice $nick 4ERROR:2 Usage: !set $2 $3 <amount> }
  477. n475=          }
  478. n476=          elseif ($3 == cookies) {
  479. n477=            if ($4 isnum && $4 >= 0) {
  480. n478=              write -l3 Stats\ $+ $2 $+ .txt $4
  481. n479=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  482. n480=            }
  483. n481=            elseif ($4 isnum) {
  484. n482=              .notice $nick 4ERROR:2 Illegal amount (must be higher than 0)
  485. n483=            }
  486. n484=            else { .notice $nick 4ERROR:2 Usage: !set $2 $3 <amount> }
  487. n485=          }
  488. n486=          elseif ($3 == cash) {
  489. n487=            if ($4 isnum && $4 >= 0) {
  490. n488=              write -l4 Stats\ $+ $2 $+ .txt $4
  491. n489=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  492. n490=            }
  493. n491=            elseif ($4 isnum) {
  494. n492=              .notice $nick 4ERROR:2 Illegal amount (must be higher than 0)
  495. n493=            }
  496. n494=            else { .notice $nick 4ERROR:2 Usage: !set $2 $3 <amount> }
  497. n495=          }
  498. n496=          elseif ($3 == kills) {
  499. n497=            if ($4 isnum && $4 >= 0) {
  500. n498=              write -l5 Stats\ $+ $2 $+ .txt $4
  501. n499=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  502. n500=            }
  503. n501=            elseif ($4 isnum) {
  504. n502=              .notice $nick 4ERROR:2 Illegal amount (must be higher than 0)
  505. n503=            }
  506. n504=            else { .notice $nick 4ERROR:2 Usage: !set $2 $3 <amount> }
  507. n505=          }
  508. n506=          elseif ($3 == deaths) {
  509. n507=            if ($4 isnum && $4 >= 0) {
  510. n508=              write -l6 Stats\ $+ $2 $+ .txt $4
  511. n509=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  512. n510=            }
  513. n511=            elseif ($4 isnum) {
  514. n512=              .notice $nick 4ERROR:2 Illegal amount (must be higher than 0)
  515. n513=            }
  516. n514=            else { .notice $nick 4ERROR:2 Usage: !set $2 $3 <amount> }
  517. n515=          }
  518. n516=          elseif ($3 == health) {
  519. n517=            if ($4 >= 0) {
  520. n518=              write -l7 Stats\ $+ $2 $+ .txt $4
  521. n519=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  522. n520=            }
  523. n521=            elseif ($4 isnum) {
  524. n522=              .notice $nick 4ERROR:2 Illegal amount (must be higher than 0)
  525. n523=            }
  526. n524=            else { .notice $nick 4ERROR:2 Usage: !set $2 $3 <amount> }
  527. n525=          }
  528. n526=          elseif ($3 == armour) {
  529. n527=            if ($4 isnum && $4 >= 0) {
  530. n528=              write -l8 Stats\ $+ $2 $+ .txt $4
  531. n529=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  532. n530=            }
  533. n531=            elseif ($4 isnum) {
  534. n532=              .notice $nick 4ERROR:2 Illegal amount (must be higher than 0)
  535. n533=            }
  536. n534=            else { .notice $nick 4ERROR:2 Usage: !set $2 $3 <amount> }
  537. n535=          }
  538. n536=          elseif ($3 == weapon) {
  539. n537=            if ($4 == Fists) {
  540. n538=              changecurrentweapon $2 $4
  541. n539=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  542. n540=            }
  543. n541=            elseif ($4-5 == Brass Knuckles) {
  544. n542=              changecurrentweapon $2 $4-5
  545. n543=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4-5 $+ "
  546. n544=            }
  547. n545=            elseif ($4-5 == Baseball Bat || $4-5 == Golf Club || $4-5 == Night Stick || $4-5 == Pool Cue) {
  548. n546=              changecurrentweapon $2 $4-5
  549. n547=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4-5 $+ "
  550. n548=            }
  551. n549=            elseif ($4 == Katana || $4 == Cane || $4 == Chainsaw) {
  552. n550=              changecurrentweapon $2 $4
  553. n551=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  554. n552=            }
  555. n553=            elseif ($4 == Knife || $4 == Shovel) {
  556. n554=              changecurrentweapon $2 $4
  557. n555=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  558. n556=            }
  559. n557=            elseif ($4 == Pistol) {
  560. n558=              changecurrentweapon $2 $4
  561. n559=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  562. n560=            }
  563. n561=            elseif ($4-5 == Silenced Pistol) {
  564. n562=              changecurrentweapon $2 $4-5
  565. n563=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4-5 $+ "
  566. n564=            }
  567. n565=            elseif ($4-5 == Desert Eagle) {
  568. n566=              changecurrentweapon $2 $4-5
  569. n567=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4-5 $+ "
  570. n568=            }
  571. n569=            elseif ($4 == Shotgun) {
  572. n570=              changecurrentweapon $2 $4
  573. n571=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  574. n572=            }
  575. n573=            elseif ($4-5 == Sawn-Off Shotgun) {
  576. n574=              changecurrentweapon $2 $4-5
  577. n575=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4-5 $+ "
  578. n576=            }
  579. n577=            elseif ($4-5 == Combat Shotgun) {
  580. n578=              changecurrentweapon $2 $4-5
  581. n579=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4-5 $+ "
  582. n580=            }
  583. n581=            elseif ($4 == Tec-9) {
  584. n582=              changecurrentweapon $2 $4
  585. n583=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  586. n584=            }
  587. n585=            elseif ($4-5 == Micro SMG) {
  588. n586=              changecurrentweapon $2 $4-5
  589. n587=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4-5 $+ "
  590. n588=            }
  591. n589=            elseif ($4 == SMG) {
  592. n590=              changecurrentweapon $2 $4
  593. n591=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  594. n592=            }
  595. n593=            elseif ($4 == AK-47) {
  596. n594=              changecurrentweapon $2 $4
  597. n595=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  598. n596=            }
  599. n597=            elseif ($4 == M4) {
  600. n598=              changecurrentweapon $2 $4
  601. n599=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  602. n600=            }
  603. n601=            elseif ($4 == Rifle) {
  604. n602=              changecurrentweapon $2 $4
  605. n603=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  606. n604=            }
  607. n605=            elseif ($4 == Sniper) {
  608. n606=              changecurrentweapon $2 $4
  609. n607=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  610. n608=            }
  611. n609=            elseif ($4 == Flamethrower) {
  612. n610=              changecurrentweapon $2 $4
  613. n611=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  614. n612=            }
  615. n613=            elseif ($4 == Minigun) {
  616. n614=              changecurrentweapon $2 $4
  617. n615=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  618. n616=            }
  619. n617=            elseif ($4-5 == Rocket Launcher) {
  620. n618=              changecurrentweapon $2 $4-5
  621. n619=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4-5 $+ "
  622. n620=            }
  623. n621=            elseif ($4 == Grenades) {
  624. n622=              changecurrentweapon $2 $4
  625. n623=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  626. n624=            }
  627. n625=            elseif ($4 == Molotovs) {
  628. n626=              changecurrentweapon $2 $4
  629. n627=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  630. n628=            }
  631. n629=            elseif ($4 == Satchels) {
  632. n630=              changecurrentweapon $2 $4
  633. n631=              msg $chan 2Successfully set " $+ $3 $+ " for " $+ $2 $+ " to " $+ $4 $+ "
  634. n632=            }
  635. n633=            else { .notice $nick 4ERROR:2 This weapon is unknown to me }
  636. n634=          }
  637. n635=          elseif ($3 == car) {
  638. n636=            .notice $nick 4ERROR:2 Cars are not yet in use
  639. n637=          }
  640. n638=        }
  641. n639=        else { .notice $nick 4ERROR:2 Usage: !set $2 <answers|cookies|cash|kills|deaths|health|armour|weapon|car> <amount|weapon|car> }
  642. n640=      }
  643. n641=      else { .notice $nick 4ERROR:2 User " $+ $2 $+ " does not yet have an account }
  644. n642=    }
  645. n643=    else { .notice $nick 4ERROR:2 Usage: !set <user> <answers|cookies|cash|kills|deaths|health|armour|weapon|car> <amount|weapon|car> }
  646. n644=  }
  647. n645=  elseif ($me == %bot4 && $1 == !set) {
  648. n646=    rpglog $nick $1-
  649. n647=    .notice $nick 4ERROR:2 You are not allowed to use this command
  650. n648=  }
  651. n649=}
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!