API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 27th, 2017
89
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 52.91 KB | None | 0 0
raw download clone embed print report
  1. on *:text:!DM*:#: {
  2. if (%duel2 == active) {
  3. msg $chan a duel is already active please wait for it to end.
  4. }
  5. if (%duel == active) {
  6. set %player2 $nick
  7. msg $chan the match is set! %player1 vs %player2
  8. set %duel2 active
  9. set %p1hp 99
  10. set %p2hp 99
  11. set %spec1 0
  12. set %spec2 0
  13. set %turn 1
  14. }
  15. else {
  16. set %duel active
  17. set %player1 $nick
  18. msg $chan $nick has initiated a duel type !duel to fight them
  19. }
  20. }
  21.  
  22. on *:text:!dds*:#: {
  23. if (%turn == 1) {
  24. if ($nick == %player1) {
  25. if (%spec2 < 4) {
  26. set %hit1 $rand(0,33)
  27. set %hit2 $rand(0,33)
  28. inc %spec1
  29. msg $chan %player1 has hit %hit1 and %hit2
  30. dec %p2hp %hit1
  31. dec %p2hp %hit2
  32. msg $chan %player2 has %p2hp hp left
  33. set %turn 2
  34. }
  35. if (%p2hp < 0) {
  36. msg $chan %player1 has defeated %player2
  37. unset %duel
  38. unset %player1
  39. unset %player2
  40. unset %duel2
  41. unset %p1hp
  42. unset %p2hp
  43. unset %spec1
  44. unset %spec2
  45. unset %turn
  46. unset %hit1
  47. unset %hit2
  48. }
  49. else {
  50. }
  51. }
  52. else {
  53. notice %player1 you are out of specials
  54. }
  55. }
  56. else {
  57. if (%turn == 2) {
  58. if ($nick == %player2) {
  59. if (%spec2 < 4) {
  60. set %hit1 $rand(0,33)
  61. set %hit2 $rand(0,33)
  62. inc %spec2
  63. msg $chan %player2 has hit %hit1 and %hit2
  64. dec %p1hp %hit1
  65. dec %p1hp %hit2
  66. msg $chan %player1 has %p1hp hp left
  67. set %turn 1
  68. if (%p2hp < 0) {
  69. msg $chan %player2 has defeated %player1
  70. unset %duel
  71. unset %player1
  72. unset %player2
  73. unset %duel2
  74. unset %p1hp
  75. unset %p2hp
  76. unset %spec1
  77. unset %spec2
  78. unset %turn
  79. unset %hit1
  80. unset %hit2
  81. }
  82. else {
  83. }
  84. }
  85. else if (%spec2 == 4) {
  86. notice %player2 you are out of specials.
  87. }
  88. }
  89. }
  90. }
  91. }
  92.  
  93.  
  94. on *:text:!flick*:#: {
  95. if (%turn == 1) {
  96. if ($nick == %player1) {
  97. set %turn 2
  98. set %hit $rand(0,45)
  99. msg $chan %player1 has hit a %hit
  100. dec %p2hp %hit
  101. msg $chan %player2 has %p2hp hp left
  102. if (%p2hp < 0) {
  103. msg $chan %player1 has defeated %player2
  104. unset %duel
  105. unset %player1
  106. unset %player2
  107. unset %duel2
  108. unset %p1hp
  109. unset %p2hp
  110. unset %spec1
  111. unset %spec2
  112. unset %turn
  113. unset %hit1
  114. unset %hit2
  115. }
  116. else {
  117. }
  118. }
  119. }
  120. else if (%turn == 2) {
  121. if ($nick == %player2) {
  122. set %turn 1
  123. set %hit $rand(0,45)
  124. msg $chan %player2 has hit a %hit
  125. dec %p1hp %hit
  126. msg $chan %player1 has %p1hp hp left
  127. if (%p1hp < 0) {
  128. msg $chan %player2 has defeated %player1
  129. unset %duel
  130. unset %player1
  131. unset %player2
  132. unset %duel2
  133. unset %p1hp
  134. unset %p2hp
  135. unset %spec1
  136. unset %spec2
  137. unset %turn
  138. unset %hit1
  139. unset %hit2
  140. }
  141. else {
  142. }
  143. }
  144. }
  145. }
  146.  
  147. ON *:TEXT:!DM:#:{
  148. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  149. if ($readini(dm.ini,$chan,Status) == ON2) {
  150. notice $nick 10*** 02[10 DM 02]10 Sorry there is already a game for02 $chan 10 please wait for it to finish or expire.
  151. halt
  152. }
  153. if ($readini(dm.ini,$chan,Status) == ON && $nick == $readini(dm.ini,$chan,Player1)) {
  154. .notice $nick 10*** 02[10 DM 02]10 You cant fight yourself.
  155. halt
  156. }
  157. if ($readini(dm.ini,$chan,Status) == ON) {
  158. writeini dm.ini $chan HP2 99
  159. .timer $+ $chan $+ 1 off
  160. .timer $+ $chan $+ 2 off
  161. writeini dm.ini $chan Player2 $nick
  162. writeini dm.ini $chan Shark2 10
  163. writeini dm.ini $chan Status ON2
  164. writeini dm.ini $chan Spec2 100
  165. writeini dm.ini $chan b2 5
  166. writeini dm.ini $chan a2 1
  167. msg $chan 10*** 02[10 DM 02]10 The battle -02 $readini(dm.ini,$chan,Player1) 10Vs.02 $readini(dm.ini,$chan,Player2) 
  168. .notice $nick 10You have02 1010 shark. Use 02!Eat10 to eat the sharks. Your hitpoint level will be noticed to you momentarily.
  169. .notice $readini(dm.ini,$chan,Player1) 10You have02 1010 shark. Use 02!Eat10 to eat the sharks. Your hitpoint level will be noticed to you momentarily.
  170. set %dm.turn. $+ $chan $rand(1,2)
  171. if (%dm.turn. [ $+ [ $chan ] ] == 2) {
  172. writeini dm.ini $chan Turn P2
  173. msg $chan 10*** 02[10 DM 02]10 $nick it is your turn to go. Use02 !DmCommands10 to see all the weapons you can use.
  174. halt
  175. }
  176. if (%dm.turn. [ $+ [ $chan ] ] == 1) {
  177. writeini dm.ini $chan Turn P1
  178. msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) it is your turn to go. Use02 !DmCommands10 to see all the weapons you can use.
  179. halt
  180. }
  181. }
  182. if ($readini(dm.ini,$chan,Status) == $null) {
  183. writeini dm.ini $chan HP1 99
  184. writeini dm.ini $chan Status ON
  185. writeini dm.ini $chan Player1 $nick
  186. writeini dm.ini $chan Shark1 10
  187. writeini dm.ini $chan Spec1 100
  188. writeini dm.ini $chan b1 5
  189. writeini dm.ini $chan a1 1
  190. msg $chan 10*** 02[10 DM 02]10 You have02 6010 seconds to death match $nick $+ . Type02 !DM 10if you have the balls!
  191. .timer $+ $chan $+ 1 1 60 msg $chan 10*** 02[10 DM 02]10 The time for this02 DM10 has been halted. - .ini file deleted.
  192. .timer $+ $chan $+ 2 1 60 remini dm.ini $chan
  193. halt
  194. }
  195. }
  196. ON *:TEXT:!Whip:#:{
  197. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  198. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
  199. .timer $+ $chan $+ 1 off
  200. .timer $+ $chan $+ 2 off
  201. writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
  202. writeini dm.ini $chan Hit $rand(0,25)
  203. if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
  204. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
  205. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  206. remini dm.ini $chan
  207. halt
  208. }
  209. else {
  210. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
  211. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  212. writeini dm.ini $chan Turn P2
  213. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  214. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  215. halt
  216. }
  217. }
  218. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
  219. .timer $+ $chan $+ 1 off
  220. .timer $+ $chan $+ 2 off
  221. writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
  222. writeini dm.ini $chan Hit $rand(0,25)
  223. if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
  224. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
  225. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  226. remini dm.ini $chan
  227. halt
  228. }
  229. else {
  230. writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
  231. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  232. writeini dm.ini $chan Turn P1
  233. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  234. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  235. halt
  236. }
  237. }
  238. else {
  239. .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  240. }
  241. }
  242. ON *:TEXT:!Flick:#:{
  243. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  244. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
  245. .timer $+ $chan $+ 1 off
  246. .timer $+ $chan $+ 2 off
  247. writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
  248. writeini dm.ini $chan Hit $rand(0,15)
  249. if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
  250. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
  251. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  252. remini dm.ini $chan
  253. halt
  254. }
  255. else {
  256. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
  257. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  258. writeini dm.ini $chan Turn P2
  259. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  260. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  261. halt
  262. }
  263. }
  264. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
  265. .timer $+ $chan $+ 1 off
  266. .timer $+ $chan $+ 2 off
  267. writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
  268. writeini dm.ini $chan Hit $rand(0,15)
  269. if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
  270. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
  271. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  272. remini dm.ini $chan
  273. halt
  274. }
  275. else {
  276. writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
  277. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  278. writeini dm.ini $chan Turn P1
  279. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  280. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  281. halt
  282. }
  283. }
  284. else {
  285. .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  286. }
  287. }
  288. ON *:TEXT:!dds:#:{
  289. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  290. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Spec2) <= 0) {
  291. .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
  292. halt
  293. }
  294. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Spec1) <= 0) {
  295. .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
  296. halt
  297. }
  298. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
  299. .timer $+ $chan $+ 1 off
  300. .timer $+ $chan $+ 2 off
  301. writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
  302. writeini dm.ini $chan Hit $rand(0,20)
  303. writeini dm.ini $chan Hit2 $rand(0,20)
  304. if ($calc($readini(dm.ini,$chan,HP2) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2))) <= 0) {
  305. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) & 0 $+ 10] $HPLevel(0)
  306. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  307. remini dm.ini $chan
  308. halt
  309. }
  310. else {
  311. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2)))
  312. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) & $readini(dm.ini,$chan,Hit2) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  313. writeini dm.ini $chan Turn P2
  314. writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) - 25)
  315. .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec1) $+ 10% of special left.
  316. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  317. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  318. halt
  319. }
  320. }
  321. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
  322. .timer $+ $chan $+ 1 off
  323. .timer $+ $chan $+ 2 off
  324. writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
  325. writeini dm.ini $chan Hit $rand(0,20)
  326. writeini dm.ini $chan Hit2 $rand(0,20)
  327. if ($calc($readini(dm.ini,$chan,HP1) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2))) <= 0) {
  328. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) & 0 $+ 10] $HPLevel(0)
  329. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  330. remini dm.ini $chan
  331. halt
  332. }
  333. else {
  334. writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2)))
  335. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) & $readini(dm.ini,$chan,Hit2) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  336. writeini dm.ini $chan Turn P1
  337. writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) - 25)
  338. .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec2) $+ 10% of special left.
  339. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  340. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  341. halt
  342. }
  343. }
  344. else {
  345. .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  346. }
  347. }
  348. ON *:TEXT:!GMaul:#:{
  349. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  350. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Spec2) <= 0) {
  351. .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
  352. halt
  353. }
  354. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Spec1) <= 0) {
  355. .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
  356. halt
  357. }
  358. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
  359. .timer $+ $chan $+ 1 off
  360. .timer $+ $chan $+ 2 off
  361. writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
  362. writeini dm.ini $chan Hit $rand(0,30)
  363. writeini dm.ini $chan Hit2 $rand(0,20)
  364. writeini dm.ini $chan Hit3 $rand(0,15)
  365. if ($calc($readini(dm.ini,$chan,HP2) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2) + $readini(dm.ini,$chan,Hit3))) <= 0) {
  366. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) & 0 & 0 $+ 10] $HPLevel(0)
  367. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  368. remini dm.ini $chan
  369. halt
  370. }
  371. else {
  372. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2) + $readini(dm.ini,$chan,Hit3)))
  373. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) & $readini(dm.ini,$chan,Hit2) & $readini(dm.ini,$chan,Hit3) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  374. writeini dm.ini $chan Turn P2
  375. writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) - 50)
  376. .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec1) $+ 10% of special left.
  377. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  378. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  379. halt
  380. }
  381. }
  382. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
  383. .timer $+ $chan $+ 1 off
  384. .timer $+ $chan $+ 2 off
  385. writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
  386. writeini dm.ini $chan Hit $rand(0,30)
  387. writeini dm.ini $chan Hit2 $rand(0,20)
  388. writeini dm.ini $chan Hit3 $rand(0,15)
  389. if ($calc($readini(dm.ini,$chan,HP1) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit))) <= 0) {
  390. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) & 0 & 0 $+ 10] $HPLevel(0)
  391. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  392. remini dm.ini $chan
  393. halt
  394. }
  395. else {
  396. writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2)))
  397. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) & $readini(dm.ini,$chan,Hit2) & $readini(dm.ini,$chan,Hit3) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  398. writeini dm.ini $chan Turn P1
  399. writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) - 50)
  400. .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec2) $+ 10% of special left.
  401. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  402. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  403. halt
  404. }
  405. }
  406. else {
  407. .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  408. }
  409. }
  410.  
  411. ON *:TEXT:!cBow:#:{
  412. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  413. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
  414. .timer $+ $chan $+ 1 off
  415. .timer $+ $chan $+ 2 off
  416. writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
  417. writeini dm.ini $chan Hit $rand(0,25)
  418. if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
  419. msg $chan 10*** 02[10 DM 02]10 $nick aims at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
  420. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  421. remini dm.ini $chan
  422. halt
  423. }
  424. else {
  425. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
  426. msg $chan 10*** 02[10 DM 02]10 $nick aims at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  427. writeini dm.ini $chan Turn P2
  428. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  429. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  430. halt
  431. }
  432. }
  433. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
  434. .timer $+ $chan $+ 1 off
  435. .timer $+ $chan $+ 2 off
  436. writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
  437. writeini dm.ini $chan Hit $rand(0,25)
  438. if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
  439. msg $chan 10*** 02[10 DM 02]10 $nick aims at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
  440. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  441. remini dm.ini $chan
  442. halt
  443. }
  444. else {
  445. writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
  446. msg $chan 10*** 02[10 DM 02]10 $nick aims at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  447. writeini dm.ini $chan Turn P1
  448. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  449. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  450. halt
  451. }
  452. }
  453. else {
  454. .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  455. }
  456. }
  457. ON *:TEXT:!DScimmy:#:{
  458. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  459. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
  460. .timer $+ $chan $+ 1 off
  461. .timer $+ $chan $+ 2 off
  462. writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
  463. writeini dm.ini $chan Hit $rand(0,30)
  464. if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
  465. msg $chan 10*** 02[10 DM 02]10 $nick slashes at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
  466. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  467. remini dm.ini $chan
  468. halt
  469. }
  470. else {
  471. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
  472. msg $chan 10*** 02[10 DM 02]10 $nick slashes at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  473. writeini dm.ini $chan Turn P2
  474. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  475. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  476. halt
  477. }
  478. }
  479. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
  480. .timer $+ $chan $+ 1 off
  481. .timer $+ $chan $+ 2 off
  482. writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
  483. writeini dm.ini $chan Hit $rand(0,30)
  484. if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
  485. msg $chan 10*** 02[10 DM 02]10 $nick slashes at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
  486. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  487. remini dm.ini $chan
  488. halt
  489. }
  490. else {
  491. writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
  492. msg $chan 10*** 02[10 DM 02]10 $nick slashes at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  493. writeini dm.ini $chan Turn P1
  494. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  495. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  496. halt
  497. }
  498. }
  499. else {
  500. .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  501. }
  502. }
  503. ON *:TEXT:!DLong:#:{
  504. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  505. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Spec2) <= 0) {
  506. .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
  507. halt
  508. }
  509. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Spec1) <= 0) {
  510. .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
  511. halt
  512. }
  513. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
  514. .timer $+ $chan $+ 1 off
  515. .timer $+ $chan $+ 2 off
  516. writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
  517. writeini dm.ini $chan Hit $rand(0,45)
  518. if ($calc($readini(dm.ini,$chan,HP2) - $calc($readini(dm.ini,$chan,Hit) + 0 )) <= 0) {
  519. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
  520. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  521. remini dm.ini $chan
  522. halt
  523. }
  524. else {
  525. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)))
  526. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  527. writeini dm.ini $chan Turn P2
  528. writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) - 25)
  529. .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec1) $+ 10% of special left.
  530. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  531. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  532. halt
  533. }
  534. }
  535. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
  536. .timer $+ $chan $+ 1 off
  537. .timer $+ $chan $+ 2 off
  538. writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
  539. writeini dm.ini $chan Hit $rand(0,45)
  540. if ($calc($readini(dm.ini,$chan,HP1) - $calc($readini(dm.ini,$chan,Hit) + 0 )) <= 0) {
  541. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
  542. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  543. remini dm.ini $chan
  544. halt
  545. }
  546. else {
  547. writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)))
  548. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  549. writeini dm.ini $chan Turn P1
  550. writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) - 25)
  551. .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec2) $+ 10% of special left.
  552. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  553. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  554. halt
  555. }
  556. }
  557. else {
  558. .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  559. }
  560. }
  561. ON *:TEXT:!DMace:#:{
  562. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  563. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Spec2) <= 0) {
  564. .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!. You cant Special!
  565. halt
  566. }
  567. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Spec1) <= 0) {
  568. .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!. You cant Special!
  569. halt
  570. }
  571. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
  572. .timer $+ $chan $+ 1 off
  573. .timer $+ $chan $+ 2 off
  574. writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
  575. writeini dm.ini $chan Hit $rand(0,50)
  576. if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
  577. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
  578. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  579. remini dm.ini $chan
  580. halt
  581. }
  582. else {
  583. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)))
  584. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  585. writeini dm.ini $chan Turn P2
  586. writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) - 25)
  587. .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec1) $+ 10% of special left.
  588. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  589. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  590. halt
  591. }
  592. }
  593. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
  594. .timer $+ $chan $+ 1 off
  595. .timer $+ $chan $+ 2 off
  596. writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
  597. writeini dm.ini $chan Hit $rand(0,50)
  598. if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
  599. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
  600. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  601. remini dm.ini $chan
  602. halt
  603. }
  604. else {
  605. writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)))
  606. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  607. writeini dm.ini $chan Turn P1
  608. writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) - 25)
  609. .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec2) $+ 10% of special left.
  610. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  611. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  612. halt
  613. }
  614. }
  615. else {
  616. .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  617. }
  618. }
  619. ON *:TEXT:!DAxe:#:{
  620. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  621. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Spec2) <= 0) {
  622. .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
  623. halt
  624. }
  625. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Spec1) <= 0) {
  626. .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
  627. halt
  628. }
  629. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
  630. .timer $+ $chan $+ 1 off
  631. .timer $+ $chan $+ 2 off
  632. writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
  633. writeini dm.ini $chan Hit $rand(0,15)
  634. if ($calc($readini(dm.ini,$chan,HP2) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit))) <= 0) {
  635. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
  636. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  637. remini dm.ini $chan
  638. halt
  639. }
  640. else {
  641. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)))
  642. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  643. writeini dm.ini $chan Turn P2
  644. writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) - 25)
  645. .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec1) $+ 10% of special left.
  646. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  647. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  648. halt
  649. }
  650. }
  651. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
  652. .timer $+ $chan $+ 1 off
  653. .timer $+ $chan $+ 2 off
  654. writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
  655. writeini dm.ini $chan Hit $rand(0,15)
  656. if ($calc($readini(dm.ini,$chan,HP1) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit))) <= 0) {
  657. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
  658. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  659. remini dm.ini $chan
  660. halt
  661. }
  662. else {
  663. writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)))
  664. msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  665. writeini dm.ini $chan Turn P1
  666. writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) - 25)
  667. .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec2) $+ 10% of special left.
  668. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  669. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  670. halt
  671. }
  672. }
  673. else {
  674. .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  675. }
  676. }
  677. ON *:TEXT:!Eat:#:{
  678. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  679. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Shark1) <= 0) {
  680. .notice $nick 10*** 02[10 DM 02]10 You have no shark left!
  681. halt
  682. }
  683. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Shark2) <= 0) {
  684. .notice $nick 10*** 02[10 DM 02]10 You have no shark left!
  685. halt
  686. }
  687. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Shark1) >= 0) {
  688. writeini dm.ini $chan Shark1 $calc($readini(dm.ini,$chan,Shark1) - 1 )
  689. writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) + 18)
  690. msg $chan 10*** 02[10 DM 02]10 $nick eats a shark $HPLevel($readini(dm.ini,$chan,HP1))
  691. .notice $nick 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Shark1) shark left.
  692. writeini dm.ini $chan Turn P2
  693. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  694. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  695. halt
  696. }
  697. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Shark2) >= 0) {
  698. writeini dm.ini $chan Shark2 $calc($readini(dm.ini,$chan,Shark2) - 1 )
  699. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) + 18)
  700. msg $chan 10*** 02[10 DM 02]10 $nick eats a shark $HPLevel($readini(dm.ini,$chan,HP2))
  701. .notice $nick 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Shark2) shark left.
  702. writeini dm.ini $chan Turn P1
  703. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  704. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  705. halt
  706. }
  707. else {
  708. .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  709. }
  710. }
  711. on *:TEXT:!admin:#:{
  712. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  713. if ($nick ishop #ZetaAdmins) || ($nick isop #ZetaAdmins) {
  714. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
  715. if ($readini(dm.ini,$chan,a1) >= 1) {
  716. .timer $+ $chan $+ 1 off
  717. .timer $+ $chan $+ 2 off
  718. writeini dm.ini $chan a1 0
  719. writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
  720. writeini dm.ini $chan Hit $rand(60,70)
  721. if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
  722. msg $chan 10*** 02[10 DM 02]10 $nick Uses Admin Privliges at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
  723. notice $nick 10*** 02[10 DM 02]10 You cant use !admin anymore
  724. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  725. remini dm.ini $chan
  726. halt
  727. }
  728. else {
  729. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
  730. msg $chan 10*** 02[10 DM 02]10 $nick Uses Admin Privliges at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  731. notice $nick 10*** 02[10 DM 02]10 You cant use !admin anymore
  732. writeini dm.ini $chan Turn P2
  733. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  734. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  735. halt
  736. }
  737. }
  738. else {
  739. notice $nick 10*** 02[10 DM 02]10 You have already used admin!
  740. halt
  741. }
  742. }
  743. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
  744. if ($readini(dm.ini,$chan,a2) >= 1) {
  745. .timer $+ $chan $+ 1 off
  746. .timer $+ $chan $+ 2 off
  747. writeini dm.ini $chan a2 0
  748. writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
  749. writeini dm.ini $chan Hit $rand(60,70)
  750. if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
  751. msg $chan 10*** 02[10 DM 02]10 $nick Uses Admin Privliges at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
  752. notice $nick 10*** 02[10 DM 02]10 You cant use !admin anymore
  753. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  754. remini dm.ini $chan
  755. halt
  756. }
  757. else {
  758. writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
  759. msg $chan 10*** 02[10 DM 02]10 $nick Uses Admin Privliges at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  760. notice $nick 10*** 02[10 DM 02]10 You cant use !admin anymore
  761. writeini dm.ini $chan Turn P1
  762. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  763. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  764. halt
  765. }
  766. }
  767. else {
  768. notice $nick 10*** 02[10 DM 02]10 You have already used admin!
  769. halt
  770. }
  771. }
  772. else {
  773. .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  774. }
  775. }
  776. }
  777. ON *:TEXT:!GAxe:#:{
  778. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  779. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
  780. .timer $+ $chan $+ 1 off
  781. .timer $+ $chan $+ 2 off
  782. writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
  783. if ($readini(dm.ini,$chan,HP1) <= 10) {
  784. writeini dm.ini $chan Hit $rand(0,100)
  785. if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
  786. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
  787. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  788. remini dm.ini $chan
  789. halt
  790. }
  791. else {
  792. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
  793. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  794. writeini dm.ini $chan Turn P2
  795. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  796. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  797. halt
  798. }
  799. }
  800. if ($readini(dm.ini,$chan,HP1) <= 20) {
  801. writeini dm.ini $chan Hit $rand(0,60)
  802. if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
  803. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
  804. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  805. remini dm.ini $chan
  806. halt
  807. }
  808. else {
  809. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
  810. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  811. writeini dm.ini $chan Turn P2
  812. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  813. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  814. halt
  815. }
  816. }
  817. if ($readini(dm.ini,$chan,HP1) <= 50) {
  818. writeini dm.ini $chan Hit $rand(0,45)
  819. if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
  820. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
  821. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  822. remini dm.ini $chan
  823. halt
  824. }
  825. else {
  826. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
  827. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  828. writeini dm.ini $chan Turn P2
  829. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  830. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  831. halt
  832. }
  833. }
  834. if ($readini(dm.ini,$chan,HP1) <= 70) {
  835. writeini dm.ini $chan Hit $rand(0,25)
  836. if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
  837. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
  838. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  839. remini dm.ini $chan
  840. halt
  841. }
  842. else {
  843. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
  844. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  845. writeini dm.ini $chan Turn P2
  846. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  847. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  848. halt
  849. }
  850. }
  851. if ($readini(dm.ini,$chan,HP1) <= 70) {
  852. writeini dm.ini $chan Hit $rand(0,25)
  853. if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
  854. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
  855. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  856. remini dm.ini $chan
  857. halt
  858. }
  859. else {
  860. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
  861. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  862. writeini dm.ini $chan Turn P2
  863. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  864. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  865. halt
  866. }
  867. }
  868. if ($readini(dm.ini,$chan,HP1) <= 99) {
  869. writeini dm.ini $chan Hit $rand(0,25)
  870. if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
  871. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
  872. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  873. remini dm.ini $chan
  874. halt
  875. }
  876. else {
  877. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
  878. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
  879. writeini dm.ini $chan Turn P2
  880. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
  881. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
  882. halt
  883. }
  884. }
  885. }
  886. if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
  887. .timer $+ $chan $+ 1 off
  888. .timer $+ $chan $+ 2 off
  889. writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
  890. if ($readini(dm.ini,$chan,HP2) <= 10) {
  891. writeini dm.ini $chan Hit $rand(0,100)
  892. if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
  893. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
  894. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  895. remini dm.ini $chan
  896. halt
  897. }
  898. else {
  899. writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
  900. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  901. writeini dm.ini $chan Turn P1
  902. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  903. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  904. halt
  905. }
  906. }
  907. if ($readini(dm.ini,$chan,HP2) <= 20) {
  908. writeini dm.ini $chan Hit $rand(0,60)
  909. if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
  910. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
  911. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  912. remini dm.ini $chan
  913. halt
  914. }
  915. else {
  916. writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
  917. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  918. writeini dm.ini $chan Turn P1
  919. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  920. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  921. halt
  922. }
  923. }
  924. if ($readini(dm.ini,$chan,HP2) <= 50) {
  925. writeini dm.ini $chan Hit $rand(0,45)
  926. if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
  927. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
  928. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  929. remini dm.ini $chan
  930. halt
  931. }
  932. else {
  933. writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
  934. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  935. writeini dm.ini $chan Turn P1
  936. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  937. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  938. halt
  939. }
  940. }
  941. if ($readini(dm.ini,$chan,HP2) <= 70) {
  942. writeini dm.ini $chan Hit $rand(0,25)
  943. if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
  944. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
  945. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  946. remini dm.ini $chan
  947. halt
  948. }
  949. else {
  950. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
  951. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  952. writeini dm.ini $chan Turn P1
  953. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  954. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  955. halt
  956. }
  957. }
  958. if ($readini(dm.ini,$chan,HP2) <= 99) {
  959. writeini dm.ini $chan Hit $rand(0,25)
  960. if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
  961. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
  962. msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
  963. remini dm.ini $chan
  964. halt
  965. }
  966. else {
  967. writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
  968. msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
  969. writeini dm.ini $chan Turn P1
  970. .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
  971. .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
  972. halt
  973. }
  974. }
  975. }
  976. else {
  977. .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  978. }
  979. }
  980. ON *:TEXT:!DMCommands:#:{
  981. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  982. msg $nick 10!GAxe 02-10 !Whip 02-10 !DAxe 02-10 !DDS 02-10 !DLong 02-10 !DMace 02-10 !Flick 02-10 !CBow 02-10 !DScimmy 02-10 !GMaul
  983. }
  984. ON *:TEXT:!StopDM:#:{
  985. if ($readini(Status.ini,$me,$chan) == DChan) { halt }
  986. if ($nick isop $chan || $nick ishop $chan) {
  987. .timer $+ $chan $+ 1 off
  988. .timer $+ $chan $+ 2 off
  989. remini dm.ini $chan
  990. .notice $nick 10*** 02[10 DM 02]10 Game Over
  991. msg $chan 10*** 02[10 DM 02]10 I'll be back ~ Arnold.
  992. }
  993. }
  994. ON *:START:{
  995. remove dm.ini
  996. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!