API tools faq
paste
_MM_IKKE

duel.ini

_MM_IKKE
Nov 22nd, 2018
145
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 13.15 KB | None | 0 0
raw download clone embed print report
  1. [script]
  2. n0=on *:TEXT:*:*: { halt }
  3. n1=on *:NICK: { halt }
  4. n2=on *:PART:#: { halt }
  5. n3=on *:QUIT: { halt }
  6. n4=on *:KICK:#: { halt }
  7. n5=on *:TEXT:!fight:#[MM]IKKE.testing: {
  8. n6=  if ($me == %bot4) {
  9. n7=    rpglog $nick $1-
  10. n8=    msg $chan 2[DUEL] Use !fight <nick> to fight with a certain player. Do not forget to change your current weapon (!ccw).
  11. n9=    msg $chan 2[DUEL] Current options: One hit wonder (2%), being killed at once (1%), nothing (2%), serious damage without being hurt (2%), serious damage with being hurt (5%), damage without being hurt (3%), damage with being hurt (5%), skill-point based kill (50%), skill-point based serious damage without being hurt (10%), skill-points based serious damage with being hurt (5%), skill-point based damage without being hurt (10%), skill-point based damage with being hurt (5%)
  12. n10=  }
  13. n11=}
  14. n12=on *:TEXT:!fight*:#[MM]IKKE.testing: {
  15. n13=  if ($me == %bot4 && $1 == !fight) {
  16. n14=    rpglog $nick $1-
  17. n15=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  18. n16=      createaccount $nick
  19. n17=    }
  20. n18=    {
  21. n19=      alive $nick
  22. n20=      checkjob $nick $nick
  23. n21=      if ($2 ison $chan) {
  24. n22=        if ($2 == $nick) {
  25. n23=          .notice $nick 4ERROR:2 You can't fight with yourself!
  26. n24=          halt
  27. n25=        }
  28. n26=        if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  29. n27=          .notice $nick 4ERROR:2 Bots don't have accounts
  30. n28=          halt
  31. n29=        }
  32. n30=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  33. n31=          createaccount $2
  34. n32=        }
  35. n33=        if ($read(Stats\ $+ $2 $+ .txt, 7) <= 0) {
  36. n34=          .notice $nick 4ERROR: $2 2is dead, you cannot fight against him/her
  37. n35=          halt
  38. n36=        }
  39. n37=        checkjob $2 $nick
  40. n38=        if ($2 $+ . $+ $nick isin $read(Stats\Duel list.txt,w, $2 $+ . $+ $nick)) {
  41. n39=          if (%duel == 1) {
  42. n40=            .notice $nick 4ERROR:2 There's already another battle going on
  43. n41=            halt
  44. n42=          }
  45. n43=          msg $chan 2[DUEL]9 $2 2already challenged you for a battle! Automatically starting battle...
  46. n44=          .timer 1 3 startbattle $2 $nick
  47. n45=        }
  48. n46=        if ($nick $+ . $+ $2 isin $read(Stats\Duel list.txt,w, $nick $+ . $+ $2)) {
  49. n47=          .notice $nick 4ERROR:2 You already challenged4 $2 $+ 2!
  50. n48=        }
  51. n49=        if ($2 $+ . $+ $nick !isin $read(Stats\Duel list.txt,w, $2 $+ . $+ $nick) && $nick $+ . $+ $2 !isin $read(Stats\Duel list.txt,w, $nick $+ . $+ $2)) {
  52. n50=          if ($2 !isin $read(Stats\Auto-deny list.txt,w, $2)) {
  53. n51=            write "Stats\Duel list.txt" $nick $+ . $+ $2
  54. n52=            if ($2 !isin $read(Stats\Auto-accept list.txt,w, $2)) {
  55. n53=              .msg $2 2[DUEL]4 $nick 2has challenged you to duel! Type !accept4 $nick 2to accept this challenge, !deny4 $nick 2to deny it.
  56. n54=              .msg $2 2[DUEL] His/her weapon is "6 $+ $read(Stats\ $+ $nick $+ .txt, 18) $+ 2", your weapon is "6 $+ $read(Stats\ $+ $2 $+ .txt, 18) $+ 2".
  57. n55=              .msg $2 2[DUEL] His/her health is7 $read(Stats\ $+ $nick $+ .txt, 7) 2and his/her armour7 $read(Stats\ $+ $nick $+ .txt, 8)
  58. n56=              .msg $chan 2[DUEL] Duel request has been sent!
  59. n57=            }
  60. n58=            else {
  61. n59=              msg $chan 2[DUEL]4 $2 2is on the auto-accept list! Automatically starting battle...
  62. n60=              .notice $2 2[DUEL] Auto-accepted battle against4 $nick
  63. n61=              .timer 1 3 startbattle $nick $2
  64. n62=            }
  65. n63=          }
  66. n64=          else { msg $chan 2[DUEL]4 $2 2is on the auto-deny list. Battle request automatically denied. }
  67. n65=        }
  68. n66=      }
  69. n67=      elseif ($2 == $null) { .notice $nick 4ERROR:2 Usage: !fight <nick> }
  70. n68=      elseif ($exists(Stats\ $+ $2 $+ .txt)) {
  71. n69=        .notice $nick 4ERROR: $2 2isn't in the channel
  72. n70=      }
  73. n71=      else {
  74. n72=        ;$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)
  75. n73=        if ($2 == Noob) {
  76. n74=          botduel $nick Noob 20 50 1 Any
  77. n75=          ;?
  78. n76=        }
  79. n77=        elseif ($2 == Pedestrian) {
  80. n78=          botduel $nick Pedestrian 50 100 2 Any
  81. n79=          ;fists
  82. n80=        }
  83. n81=        elseif ($2 == Granny) {
  84. n82=          botduel $nick Granny 200 200 2 Any
  85. n83=          ;handbag
  86. n84=        }
  87. n85=        elseif ($2 == Lawyer) {
  88. n86=          botduel $nick Lawyer 300 1000 1 Any
  89. n87=          ;briefcase
  90. n88=        }
  91. n89=        elseif ($2 == Hooker) {
  92. n90=          botduel $nick Hooker 400 500 3 Any
  93. n91=          ;dildo
  94. n92=        }
  95. n93=        elseif ($2 == Thief) {
  96. n94=          botduel $nick Thief 500 1000 3 SP 100
  97. n95=          ;crowbar
  98. n96=        }
  99. n97=        elseif ($2 == Junk) {
  100. n98=          botduel $nick Junk 500 0 5 SP 100
  101. n99=          ;knife
  102. n100=        }
  103. n101=        elseif ($2 == Policeman) {
  104. n102=          botduel $nick Policeman 1000 100 10 SP 300
  105. n103=          ;Pistol
  106. n104=        }
  107. n105=        elseif ($2 == Bodyguard) {
  108. n106=          botduel $nick Bodyguard 3000 2000 5 SP 500
  109. n107=          ;Baseball Bat and Silenced Pistol
  110. n108=        }
  111. n109=        elseif ($2 == Gangster) {
  112. n110=          botduel $nick Gangster 5000 1000 10 SP 800
  113. n111=          ;Pistols and Submachine Gun
  114. n112=        }
  115. n113=        elseif ($2 == Drugdealer) {
  116. n114=          botduel $nick Drugdealer 5000 10000 5 SP 800
  117. n115=          ;Pistols and Sawn-Off Shotgun
  118. n116=        }
  119. n117=        elseif ($2 == Smuggler) {
  120. n118=          botduel $nick Smuggler 10000 15000 3 SP 1000
  121. n119=          ;Combat Shotgun and M4
  122. n120=        }
  123. n121=        elseif ($2 == Soldier) {
  124. n122=          botduel $nick Soldier 15000 1000 15 SPC 1500 1
  125. n123=          ;Heavy Artillery and Assault Rifles
  126. n124=        }
  127. n125=        elseif ($2 == SpecialForce) {
  128. n126=          botduel $nick SpecialForce 20000 1000 20 SPC 2000 5
  129. n127=          ;hi-tech weapons
  130. n128=        }
  131. n129=        elseif ($2 == Godfather) {
  132. n130=          botduel $nick Godfather 20000 50000 20 SPC 5000 10
  133. n131=          ;his gang
  134. n132=        }
  135. n133=        elseif ($2 == Hacker) {
  136. n134=          increasedeath $nick
  137. n135=          decreasehealth $nick 250
  138. n136=          msg $chan 2[DUEL] 4hacker 2killed9 $nick $+ 2. You cannot kill 4hacker2.
  139. n137=        }
  140. n138=        else {
  141. n139=          msg $chan 4ERROR: $2 2is not a duel bot
  142. n140=        }
  143. n141=      }
  144. n142=    }
  145. n143=  }
  146. n144=}
  147. n145=on *:TEXT:!accept*:#[MM]IKKE.testing: {
  148. n146=  if ($me == %bot4 && $1 == !accept) {
  149. n147=    rpglog $nick $1-
  150. n148=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  151. n149=      createaccount $nick
  152. n150=    }
  153. n151=    if ($2) {
  154. n152=      checkjob $nick $nick
  155. n153=      checkjob $2 $nick
  156. n154=      if ($2 $+ . $+ $nick isin $read(Stats\Duel list.txt,w, $2 $+ . $+ $nick)) {
  157. n155=        startbattle $2 $nick
  158. n156=      }
  159. n157=      elseif ($nick $+ . $+ $2 isin $read(Stats\Duel list.txt,w, $nick $+ . $+ $2)) {
  160. n158=        .notice $nick 4ERROR:2 You have challenged4 $2 $+ 2, please wait till (s)he accepts.
  161. n159=      }
  162. n160=      else {
  163. n161=        .notice $nick 4ERROR:2 You don't have a request...
  164. n162=      }
  165. n163=    }
  166. n164=    else {
  167. n165=      .notice $nick 4ERROR:2 Usage: !accept <nick>
  168. n166=    }
  169. n167=  }
  170. n168=}
  171. n169=on *:TEXT:!deny*:#[MM]IKKE.testing: {
  172. n170=  if ($me == %bot4 && $1 == !deny) {
  173. n171=    rpglog $nick $1-
  174. n172=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  175. n173=      createaccount $nick
  176. n174=    }
  177. n175=    {
  178. n176=      if ($2) {
  179. n177=        if ($2 $+ . $+ $nick isin $read(Stats\Duel list.txt,w, $2 $+ . $+ $nick)) {
  180. n178=          write -dl $+ $readn "Stats\Duel list.txt"
  181. n179=          .notice $nick 2You have denied4 $2 $+ 2's request to duel.
  182. n180=          .notice $2 4 $+ $nick 2has denied your battle request.
  183. n181=          msg $chan 2[DUEL] The battle between9 $2 2and4 $nick 2has been denied.
  184. n182=        }
  185. n183=        elseif ($nick $+ . $+ $2 isin $read(Stats\Duel list.txt,w, $nick $+ . $+ $2)) {
  186. n184=          .notice $nick 4ERROR:2 You have challenged4 $2 $+ 2, please wait till (s)he accepts.
  187. n185=        }
  188. n186=        else {
  189. n187=          .notice $nick 4ERROR:2 You don't have a request...
  190. n188=        }
  191. n189=      }
  192. n190=      else {
  193. n191=        .notice $nick 4ERROR:2 Usage: !deny <nick>
  194. n192=      }
  195. n193=    }
  196. n194=  }
  197. n195=}
  198. n196=on *:TEXT:!duelrequests:#[MM]IKKE.testing: {
  199. n197=  if ($me == %bot4) {
  200. n198=    rpglog $nick $1-
  201. n199=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  202. n200=      createaccount $nick
  203. n201=    }
  204. n202=    if (1 > 0) {
  205. n203=      if ($nick isin $read(Stats\Duel list.txt,w,* $+ $nick $+ *)) {
  206. n204=        .msg $nick 2[DUEL REQUESTS] $replace($read(Stats\Duel list.txt,w,* $+ $nick $+ *), ., $chr(32) $+ vs. $+ $chr(32))
  207. n205=        while ($nick isin $read(Stats\Duel list.txt,w,* $+ $nick $+ *, $calc($readn + 1))) {
  208. n206=          .msg $nick 2[DUEL REQUESTS] $replace($read(Stats\Duel list.txt, $readn), ., $chr(32) $+ vs. $+ $chr(32))
  209. n207=        }
  210. n208=      }
  211. n209=      else {
  212. n210=        .notice $nick 4ERROR:2 There are no duel requests
  213. n211=      }
  214. n212=    }
  215. n213=  }
  216. n214=}
  217. n215=on *:TEXT:!autoaccept duels:#[MM]IKKE.testing: {
  218. n216=  if ($me == %bot4) {
  219. n217=    rpglog $nick $1-
  220. n218=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  221. n219=      createaccount $nick
  222. n220=    }
  223. n221=    if (1 > 0) {
  224. n222=      if ($nick isin $read(Stats\Auto-accept list.txt,w, $nick)) {
  225. n223=        .notice $nick 4ERROR:2 You're already on the Auto-Accept list!
  226. n224=      }
  227. n225=      elseif ($nick isin $read(Stats\Auto-deny list.txt,w, $nick)) {
  228. n226=        .notice $nick 4ERROR:2 You're on the Auto-Deny list...Disable that first, using !disableauto
  229. n227=      }
  230. n228=      else {
  231. n229=        write "Stats\Auto-accept list.txt" $nick
  232. n230=        msg $chan 2You have been added to the Auto-Accept list. Battle will now be auto-accepted. Use !disableauto to turn this off
  233. n231=      }
  234. n232=    }
  235. n233=  }
  236. n234=}
  237. n235=on *:TEXT:!autodeny duels:#[MM]IKKE.testing: {
  238. n236=  if ($me == %bot4) {
  239. n237=    rpglog $nick $1-
  240. n238=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  241. n239=      createaccount $nick
  242. n240=    }
  243. n241=    if (1 > 0) {
  244. n242=      if ($nick isin $read(Stats\Auto-deny list.txt,w, $nick)) {
  245. n243=        .notice $nick 4ERROR:2 You're already on the Auto-Deny list!
  246. n244=      }
  247. n245=      elseif ($nick isin $read(Stats\Auto-accept list.txt,w, $nick)) {
  248. n246=        .notice $nick 4ERROR:2 You're on the Auto-Accept list...Disable that first, using !disableauto
  249. n247=      }
  250. n248=      else {
  251. n249=        write "Stats\Auto-deny list.txt" $nick
  252. n250=        msg $chan 2You have been added to the Auto-Deny list. Battle will now be auto-denied. Use !disableauto to turn this off
  253. n251=      }
  254. n252=    }
  255. n253=  }
  256. n254=}
  257. n255=on *:TEXT:!disableauto:#[MM]IKKE.testing: {
  258. n256=  if ($me == %bot4) {
  259. n257=    rpglog $nick $1-
  260. n258=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  261. n259=      createaccount $nick
  262. n260=    }
  263. n261=    if (1 > 0) {
  264. n262=      if ($nick isin $read(Stats\Auto-deny list.txt,w, $nick)) {
  265. n263=        write -dl $+ $readn "Stats\Auto-deny list.txt"
  266. n264=        msg $chan 2You have been deleted out of the Auto-Deny list
  267. n265=      }
  268. n266=      elseif ($nick isin $read(Stats\Auto-accept list.txt,w, $nick)) {
  269. n267=        write -dl $+ $readn "Stats\Auto-accept list.txt"
  270. n268=        msg $chan 2You have been deleted out of the Auto-Accept list
  271. n269=      }
  272. n270=      else {
  273. n271=        .notice $nick 4ERROR:2 You are not in the Auto-Accept list, nor in the Auto-Deny list
  274. n272=      }
  275. n273=    }
  276. n274=  }
  277. n275=}
  278. n276=on *:PART:#[MM]IKKE.testing: {
  279. n277=  if ($me == %bot4) {
  280. n278=    if ($nick isin $read(Stats\Duel list.txt,w,* $+ $nick $+ *)) {
  281. n279=      write -dl $+ $readn "Stats\Duel list.txt"
  282. n280=      while ($nick isin $read(Stats\Duel list.txt,w,* $+ $nick $+ *, $readn)) {
  283. n281=        write -dl $+ $readn "Stats\Duel list.txt"
  284. n282=      }
  285. n283=    }
  286. n284=  }
  287. n285=}
  288. n286=on *:QUIT: {
  289. n287=  if ($me == %bot4) {
  290. n288=    if ($nick isin $read(Stats\Duel list.txt,w,* $+ $nick $+ *)) {
  291. n289=      write -dl $+ $readn "Stats\Duel list.txt"
  292. n290=      while ($nick isin $read(Stats\Duel list.txt,w,* $+ $nick $+ *, $readn)) {
  293. n291=        write -dl $+ $readn "Stats\Duel list.txt"
  294. n292=      }
  295. n293=    }
  296. n294=  }
  297. n295=}
  298. n296=on *:NICK: {
  299. n297=  if ($me == %bot4) {
  300. n298=    if ($nick isin $read(Stats\Duel list.txt,w,* $+ $nick $+ *)) {
  301. n299=      write -dl $+ $readn "Stats\Duel list.txt"
  302. n300=      while ($nick isin $read(Stats\Duel list.txt,w,* $+ $nick $+ *, $readn)) {
  303. n301=        write -dl $+ $readn "Stats\Duel list.txt"
  304. n302=      }
  305. n303=    }
  306. n304=  }
  307. n305=}
  308. n306=on *:KICK:#[MM]IKKE.testing: {
  309. n307=  if ($me == %bot4) {
  310. n308=    if ($knick isin $read(Stats\Duel list.txt,w,* $+ $knick $+ *)) {
  311. n309=      write -dl $+ $readn "Stats\Duel list.txt"
  312. n310=      while ($knick isin $read(Stats\Duel list.txt,w,* $+ $knick $+ *, $readn)) {
  313. n311=        write -dl $+ $readn "Stats\Duel list.txt"
  314. n312=      }
  315. n313=    }
  316. n314=  }
  317. n315=}
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!