API tools faq
paste
Advertisement
Guest User

DM SKRIPT

a guest
Aug 3rd, 2007
671
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 74.86 KB | None | 0 0
raw download clone embed print report
  1. on *:text:!dmcommands*:#:{
  2. if (%chandm != $chan) {
  3. notice $nick %dmlogo You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing!
  4. HALT
  5. }
  6. if (%commandhalt2 [ $+ [ $nick ] ] != $null) { HALT }
  7. if (%commandhalt != $null) { notice $nick 06I am currently sending commands to somebody else.05 Please wait.
  8. set %commandhalt2 [ $+ [ $nick ] ] yes
  9. HALT }
  10. unset %commandhalt2*
  11. set %commandhalt yes
  12. timer 01 10 unset %commandhalt
  13. msg $chan %dmlogo Sending $nick DMCommands.
  14. msg $chan %dmlogo Please wait 15-20 seconds before using another command.
  15. msg $nick %dmlogo DM RULES.
  16. msg $nick %dmlogo You start with 100% Special Attack meter. It is suggested you use this.
  17. msg $nick %dmlogo Every turn, your Special Attack meter raises 5%.
  18. msg $nick %dmlogo DM SPECIAL COMMANDS.
  19. msg $nick %dmlogo Syntax: Command :: Percent special uses :: Max hit :: Effect
  20. msg $nick %dmlogo !dds :: 25% :: 46 (double 23) :: Hits twice.
  21. msg $nick %dmlogo !dmace :: 25% :: 50 :: Double the chance to hit below 25.
  22. msg $nick %dmlogo !anchor :: 50% :: 40 :: Double the chance to hit above 15.
  23. msg $nick %dmlogo !dscim :: 60% :: 35 :: 5% chance of earning 100% special meter. 10% chance of earning 40% special meter. 50% chance of STEALING 10% special meter.
  24. msg $nick %dmlogo !whip :: 55% :: 35 (40. See special) :: If hits below 10, do 1 extra damage. If hits above 11, do 2 extra damage, if hits above 25, do 3 extra damage, if hits 35, do 5 extra damage and steal 20% special meter.
  25. msg $nick %dmlogo !daxe :: 60% :: Either hits 0 or 45 :: Low chance to hit 45.
  26. msg $nick %dmlogo DM NORMAL COMMANDS.
  27. msg $nick %dmlogo Syntax: Command :: Max hit :: Effect
  28. msg $nick %dmlogo !Nwhip :: 30 :: None.
  29. msg $nick %dmlogo !Nmaul :: 25 :: Slightly high chance to hit higher.
  30. msg $nick %dmlogo !Nanchor :: 35 :: Slightly high chance to hit lower.
  31. msg $nick %dmlogo !Ndscim :: 25 :: Regenerate 5% extra special meter this turn.
  32. msg $nick %dmlogo OTHER COMMANDS.
  33. msg $nick %dmlogo Syntax: Command :: Effect
  34. msg $nick %dmlogo !dmstop :: Stops DM. Requires two people to initiate.
  35. msg $nick %dmlogo !dmcommands :: Display all commands. This that you are reading IS !dmcommands
  36. msg $nick %dmlogo !dmcheck :: Display current Win/Lose record, K/D ratio, gold, items.
  37. msg $nick %dmlogo !dmadmin :: For ADMINS. Displays admin commands.
  38. msg $nick %dmlogo !dmbuy :: If buying mod is enabled, lets you buy/check items to buy.
  39. msg $nick %dmlogo !dmmods :: Checks what mods are currently enabled.
  40. }
  41. on *:text:!dds*:#:{
  42. if (%otherdmbot == yes) { HALT }
  43. if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  44. if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  45. if (%chandm != $chan) { HALT }
  46. if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  47. if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  48. if (%dmspec [ $+ [ $nick ] ] < 25) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  49. if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  50. if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT }
  51. dec %dmspec [ $+ [ $nick ] ] 25
  52. set %dmhit1 $rand(0,28)
  53. set %dmhit2 $rand(0,28)
  54. if (%buydmmod == yes) {
  55. if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit1 $calc(%dmhit1 + 5) }
  56. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) }
  57. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) }
  58. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) }
  59. if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 }
  60. if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 }
  61. if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 }
  62. if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 }
  63. if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 }
  64. if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 }
  65. if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 }
  66. if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 }
  67. }
  68. if (%dmhit1 < 0) { set %dmhit1 0 }
  69. if (%dmhit2 < 0) { set %dmhit2 0 }
  70. if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  71. msg $chan %dmlogo $nick uses his DDS Special and hits a %dmhit1 and %dmhit2 $+ !
  72. set %dmhit $calc( %dmhit1 + %dmhit2 )
  73. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  74. dmregen $nick %dmotherperson
  75. notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
  76. }
  77. on *:text:!dmace*:#:{
  78. if (%otherdmbot == yes) { HALT }
  79. if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  80. if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  81. if (%chandm != $chan) { HALT }
  82. if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  83. if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  84. if (%dmspec [ $+ [ $nick ] ] < 25) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  85. if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  86. if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT }
  87. dec %dmspec [ $+ [ $nick ] ] 25
  88. set %dmhit $rand(0,50)
  89. if (%dmhit > 25) {
  90. set %dmhit $rand(0,55)
  91. }
  92. if (%buydmmod == yes) {
  93. if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) }
  94. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) }
  95. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) }
  96. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) }
  97. if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 }
  98. if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 }
  99. if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 }
  100. if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 }
  101. if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 }
  102. if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 }
  103. if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 }
  104. if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 }
  105. }
  106. if (%dmhit < 0) { set %dmhit 0 }
  107. if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  108. msg $chan %dmlogo $nick uses his DMace Special and hits a %dmhit $+ !
  109. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  110. dmregen $nick %dmotherperson
  111. notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
  112. }
  113. on *:text:!anchor*:#:{
  114. if (%otherdmbot == yes) { HALT }
  115. if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  116. if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  117. if (%chandm != $chan) { HALT }
  118. if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  119. if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  120. if (%dmspec [ $+ [ $nick ] ] < 50) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  121. if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  122. if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT }
  123. dec %dmspec [ $+ [ $nick ] ] 50
  124. set %dmhit $rand(0,35)
  125. if (%dmhit < 15) {
  126. set %dmhit $rand(0,45)
  127. }
  128. if (%buydmmod == yes) {
  129. if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) }
  130. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) }
  131. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) }
  132. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) }
  133. if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 }
  134. if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 }
  135. if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 }
  136. if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 }
  137. if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 }
  138. if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 }
  139. if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 }
  140. if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 }
  141. }
  142. if (%dmhit < 0) { set %dmhit 0 }
  143. if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  144. msg $chan %dmlogo $nick uses his Anchor Special and hits a %dmhit $+ !
  145. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  146. dmregen $nick %dmotherperson
  147. notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
  148. }
  149. on *:text:!dscim*:#:{
  150. if (%otherdmbot == yes) { HALT }
  151. if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  152. if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  153. if (%chandm != $chan) { HALT }
  154. if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  155. if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  156. if (%dmspec [ $+ [ $nick ] ] < 60) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  157. if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  158. if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT }
  159. dec %dmspec [ $+ [ $nick ] ] 60
  160. set %dmhit $rand(0,37)
  161. set %dmrand1 $rand(1,20)
  162. if (%dmrand1 == 1) { set %dmscima yes }
  163. set %dmrand2 $rand(1,10)
  164. if (%dmrand2 == 1) { set %dmscimb yes }
  165. set %dmrand3 $rand(1,2)
  166. if (%dmrand3 == 1) { set %dmscimc yes }
  167. if (%buydmmod == yes) {
  168. if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) }
  169. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) }
  170. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) }
  171. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) }
  172. if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 }
  173. if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 }
  174. if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 }
  175. if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 }
  176. if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 }
  177. if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 }
  178. if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 }
  179. if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 }
  180. }
  181. if (%dmhit < 0) { set %dmhit 0 }
  182. if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  183. msg $chan %dmlogo $nick uses his Dscim Special and hits a %dmhit $+ !
  184. if (%dmscima == yes) { msg $chan %dmlogo $nick Also gains an extra _100%_ worth of special meter! | inc %dmspec [ $+ [ $nick ] ] 100 }
  185. if (%dmscimb == yes) { msg $chan %dmlogo $nick Also gains an extra _40%_ worth of special meter! | inc %dmspec [ $+ [ $nick ] ] 40 }
  186. if (%dmscimc == yes) { msg $chan %dmlogo $nick Also STEALS _10%_ special meter from %dmotherperson $+ ! | inc %dmspec [ $+ [ $nick ] ] 10 | dec %dmspec [ $+ [ %dmotherperson ] ] 10 }
  187. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  188. dmregen $nick %dmotherperson
  189. notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
  190. }
  191. on *:text:!whip*:#:{
  192. if (%otherdmbot == yes) { HALT }
  193. if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  194. if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  195. if (%chandm != $chan) { HALT }
  196. if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  197. if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  198. if (%dmspec [ $+ [ $nick ] ] < 55) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  199. if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  200. if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT }
  201. dec %dmspec [ $+ [ $nick ] ] 55
  202. set %dmhit $rand(0,42)
  203. if (%dmhit < 11) { inc %dmhit 1 | set %dmwhip 1 }
  204. if (%dmhit > 10) && (%dmhit < 35) { inc %dmhit 2 | set %dmwhip 2 }
  205. if (%dmhit == 35) { inc %dmhit 5 | set %dmwhip 5 }
  206. if (%buydmmod == yes) {
  207. if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) }
  208. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) }
  209. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) }
  210. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) }
  211. if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 }
  212. if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 }
  213. if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 }
  214. if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 }
  215. if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 }
  216. if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 }
  217. if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 }
  218. if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 }
  219. }
  220. if (%dmhit < 0) { set %dmhit 0 }
  221. if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  222. msg $chan %dmlogo $nick uses his Whip Special and hits a %dmhit $+ , which includes a + $+ %dmwhip bonus!
  223. if (%dmwhip == 5) { msg $chan %dmlogo $nick Also steals _20%_ special meter from %dmotherperson $+ !
  224. inc %dmspec [ $+ [ $nick ] ] 20
  225. dec %dmspec [ $+ [ %dmotherperson ] ] 20
  226. }
  227. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  228. dmregen $nick %dmotherperson
  229. notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
  230. }
  231. on *:text:!daxe*:#:{
  232. if (%otherdmbot == yes) { HALT }
  233. if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  234. if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  235. if (%chandm != $chan) { HALT }
  236. if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  237. if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  238. if (%dmspec [ $+ [ $nick ] ] < 60) { notice $nick %dmlogo You do not have enough special meter! | HALT }
  239. if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  240. if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT }
  241. dec %dmspec [ $+ [ $nick ] ] 60
  242. set %dmhit $rand(1,5)
  243. if (%dmhit < 2) { set %dmhit 0 }
  244. if (%dmhit > 3) { set %dmhit 65 }
  245. if (%buydmmod == yes) {
  246. if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) }
  247. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) }
  248. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) }
  249. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) }
  250. if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 }
  251. if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 }
  252. if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 }
  253. if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 }
  254. if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 }
  255. if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 }
  256. if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 }
  257. if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 }
  258. }
  259. if (%dmhit < 0) { set %dmhit 0 }
  260. if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  261. msg $chan %dmlogo $nick uses his Daxe Special and hits a %dmhit $+ .
  262. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  263. dmregen $nick %dmotherperson
  264. notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
  265. }
  266. on *:text:!nwhip*:#:{
  267. if (%otherdmbot == yes) { HALT }
  268. if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  269. if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  270. if (%chandm != $chan) { HALT }
  271. if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  272. if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  273. if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  274. if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT }
  275. set %dmhit $rand(0,42)
  276. if (%buydmmod == yes) {
  277. if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) }
  278. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) }
  279. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) }
  280. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) }
  281. if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 }
  282. if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 }
  283. if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 }
  284. if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 }
  285. if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 }
  286. if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 }
  287. if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 }
  288. if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 }
  289. }
  290. if (%dmhit < 0) { set %dmhit 0 }
  291. if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  292. msg $chan %dmlogo $nick uses his Whip and hits a %dmhit $+ .
  293. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  294. dmregen $nick %dmotherperson
  295. notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
  296. }
  297. on *:text:!nmaul*:#:{
  298. if (%otherdmbot == yes) { HALT }
  299. if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  300. if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  301. if (%chandm != $chan) { HALT }
  302. if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  303. if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  304. if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  305. if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT }
  306. set %dmhit $rand(0,4)
  307. if (%dmhit != 4) {
  308. set %dmhit $rand(0,30)
  309. }
  310. if (%dmhit == 4) {
  311. set %dmhit $rand(15,25)
  312. }
  313. if (%buydmmod == yes) {
  314. if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) }
  315. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) }
  316. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) }
  317. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) }
  318. if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 }
  319. if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 }
  320. if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 }
  321. if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 }
  322. if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 }
  323. if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 }
  324. if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 }
  325. if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 }
  326. }
  327. if (%dmhit < 0) { set %dmhit 0 }
  328. if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  329. msg $chan %dmlogo $nick uses his maul and hits a %dmhit $+ .
  330. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  331. dmregen $nick %dmotherperson
  332. notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
  333. }
  334. on *:text:!nanchor*:#:{
  335. if (%otherdmbot == yes) { HALT }
  336. if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  337. if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  338. if (%chandm != $chan) { HALT }
  339. if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  340. if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  341. if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  342. if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT }
  343. set %dmhit $rand(0,4)
  344. if (%dmhit != 4) {
  345. set %dmhit $rand(0,40)
  346. }
  347. if (%dmhit == 4) {
  348. set %dmhit $rand(0,21)
  349. }
  350. if (%buydmmod == yes) {
  351. if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) }
  352. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) }
  353. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) }
  354. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) }
  355. if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 }
  356. if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 }
  357. if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 }
  358. if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 }
  359. if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 }
  360. if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 }
  361. if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 }
  362. if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 }
  363. }
  364. if (%dmhit < 0) { set %dmhit 0 }
  365. if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  366. msg $chan %dmlogo $nick uses his anchor and hits a %dmhit $+ .
  367. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  368. dmregen $nick %dmotherperson
  369. notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
  370. }
  371. on *:text:!ndscim*:#:{
  372. if (%otherdmbot == yes) { HALT }
  373. if ($nick == %dmnick1) { set %dmotherperson %dmnick2 }
  374. if ($nick == %dmnick2) { set %dmotherperson %dmnick1 }
  375. if (%chandm != $chan) { HALT }
  376. if (%dm != on) { notice $nick %dmlogo There is no current DM going on! Type !DM to start! | HALT }
  377. if (%dmnick1 == $nick) && (%dmnick2 == $nick) { notice $nick %dmlogo You are not in the DM! | HALT }
  378. if (%dmturn != $nick) { notice $nick %dmlogo It is not your turn! | HALT }
  379. if (%dmwait == on) { notice $nick %dmlogo Please wait until your health meter shows up before doing an attack! | HALT }
  380. set %dmhit $rand(0,30)
  381. if (%buydmmod == yes) {
  382. if (extra_damage isin %listdm [ $+ [ $nick ] ]) { set %dmhit $calc(%dmhit + 5) }
  383. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 1) }
  384. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 2) }
  385. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit $calc(%dmhit - 5) }
  386. if (special_boost100 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 100 }
  387. if (special_boost50 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 50 }
  388. if (special_boost15 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 15 }
  389. if (special_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 10 }
  390. if (special_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmspec [ $+ [ $nick ] ] 5 }
  391. if (health_boost1 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 1 }
  392. if (health_boost5 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 5 }
  393. if (health_boost10 isin %listdm [ $+ [ $nick ] ]) { inc %dmhealth [ $+ [ $nick ] ] 10 }
  394. }
  395. if (%dmhit < 0) { set %dmhit 0 }
  396. if (%dmspec [ $+ [ $nick ] ] > 100) { set %dmspec [ $+ [ $nick ] ] 100 }
  397. msg $chan %dmlogo $nick uses his dscim and hits a %dmhit $+ , and also regenerates an extra 5% special meter!
  398. inc %dmspec [ $+ [ $nick ] ] 5
  399. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  400. dmregen $nick %dmotherperson
  401. notice $nick %dmlogo You now have %dmspec [ $+ [ $nick ] ] special bar.
  402. }
  403. alias dmregen {
  404. if (%otherdmbot == yes) { HALT }
  405. inc %dmspec [ $+ [ $1 ] ] 5
  406. if (%dmspec [ $+ [ $1 ] ] > 100) { set %dmspec [ $+ [ $1 ] ] 100 }
  407. set %dmturn $2
  408. msg %chandm %dmlogo It is now $2 $+ 's turn!
  409. if (%dmhealth [ $+ [ %dmnick1 ] ] > 99) {
  410. set %dmhealth [ $+ [ %dmnick1 ] ] 99 }
  411. if (%dmhealth [ $+ [ %dmnick2 ] ] > 99) {
  412. set %dmhealth [ $+ [ %dmnick2 ] ] 99 }
  413. if (%dmturn != $me) {
  414. timer 01 02 msg %chandm %dmlogo Health: %dmnick1 $+ (05 $+ %dmhealth [ $+ [ %dmnick1 ] ] $+ ) %dmnick2 $+ (05 $+ %dmhealth [ $+ [ %dmnick2 ] ] $+ )
  415. timer 01 02 unset %dmwait
  416. }
  417. set %dmwait on
  418. dmcheck
  419. }
  420. alias dmcheck {
  421. if (%otherdmbot == yes) { HALT }
  422. if (%dmhealth [ $+ [ %dmnick1 ] ] < 1) {
  423. msg %chandm %dmlogo %dmnick1 has fallen to the ground, while %dmnick2 celebrates a glorious win! %dmnick2 wins!
  424. inc %losedm [ $+ [ %dmnick1 ] ]
  425. inc %winsdm [ $+ [ %dmnick2 ] ]
  426. set %golddm1 $rand(150,500)
  427. set %golddm2 $rand(50,150)
  428. set %golddm1 $calc(%golddm1 + %dmhealth [ $+ [ %dmnick2 ] ] - %dmhealth [ $+ [ %dmnick1 ] ] + %dmspec [ $+ [ %dmnick2 ] ] - %dmspec [ $+ [ %dmnick1 ] ])
  429. if (%dmnick2 != $me) { notice %dmnick2 You win04 %golddm1 Gold! }
  430. if (%dmnick1 != $me) { notice %dmnick1 You win04 %golddm2 Gold! }
  431. inc %golddm [ $+ [ %dmnick1 ] ] %golddm2
  432. inc %golddm [ $+ [ %dmnick2 ] ] %golddm1
  433. inc %allgolddm [ $+ [ %dmnick1 ] ] %golddm2
  434. inc %allgolddm [ $+ [ %dmnick2 ] ] %golddm1
  435. if (%listdm2 [ $+ [ %dmnick1 ] ] != $null) { set %listdm [ $+ [ %dmnick1 ] ] %listdm2 [ $+ [ %dmnick1 ] ] }
  436. if (%listdm2 [ $+ [ %dmnick2 ] ] != $null) { set %listdm [ $+ [ %dmnick2 ] ] %listdm2 [ $+ [ %dmnick2 ] ] }
  437. unset %listdm2*
  438. unset %dm*
  439. halt
  440. }
  441. if (%dmhealth [ $+ [ %dmnick2 ] ] < 1) {
  442. msg %chandm %dmlogo %dmnick2 has fallen to the ground, while %dmnick1 celebrates a glorious win! %dmnick1 wins!
  443. inc %losedm [ $+ [ %dmnick2 ] ]
  444. inc %winsdm [ $+ [ %dmnick1 ] ]
  445. set %golddm1 $rand(150,500)
  446. set %golddm2 $rand(50,150)
  447. set %golddm1 $calc(%golddm1 + %dmhealth [ $+ [ %dmnick1 ] ] - %dmhealth [ $+ [ %dmnick2 ] ] + %dmspec [ $+ [ %dmnick1 ] ] - %dmspec [ $+ [ %dmnick2 ] ])
  448. if (%dmnick1 != $me) { notice %dmnick1 You win04 %golddm1 Gold! }
  449. if (%dmnick2 != $me) { notice %dmnick2 You win04 %golddm2 Gold! }
  450. inc %golddm [ $+ [ %dmnick1 ] ] %golddm1
  451. inc %golddm [ $+ [ %dmnick2 ] ] %golddm2
  452. inc %allgolddm [ $+ [ %dmnick1 ] ] %golddm1
  453. inc %allgolddm [ $+ [ %dmnick2 ] ] %golddm2
  454. if (%listdm2 [ $+ [ %dmnick1 ] ] != $null) { set %listdm [ $+ [ %dmnick1 ] ] %listdm2 [ $+ [ %dmnick1 ] ] }
  455. if (%listdm2 [ $+ [ %dmnick2 ] ] != $null) { set %listdm [ $+ [ %dmnick2 ] ] %listdm2 [ $+ [ %dmnick2 ] ] }
  456. unset %listdm2*
  457. unset %dm*
  458. halt
  459. }
  460. dmaiturn
  461. }
  462. on *:load:{
  463. set %dmlogo 04[05DM04]
  464. unset %dm*
  465. :genderdm
  466. set %genderdm $?="Are you a guy or girl? Please type GUY or GIRL."
  467. if (%genderdm == guy) {
  468. set %genderdm his
  469. }
  470. if (%genderdm == girl) {
  471. set %genderdm her
  472. }
  473. if (%genderdm != her) && (%genderdm != his) { goto genderdm }
  474. set %buydmmod $?="Do you want Buy Mod enabled? (Lets people buy items with gold they earn, recommended.) $+ $crlf $+ Answer Y/N."
  475. if (%admindm == y) || (%admindm == yes) {
  476. set %buydmmod yes
  477. }
  478. if (%admindm == n) || (%admindm == no) {
  479. set %buydmmod no
  480. }
  481. :admindm
  482. set %admindm $?="Do you want any Admins? (They can edit basically anything, even during a game. Only aliases of course. $+ $crlf $+ Answer Y/N."
  483. if (%admindm == y) || (%admindm == yes) {
  484. set %admindm yes
  485. set %adminsdm $?="What are the nicks of what Admins you want? Type a comma inbetween each. No spaces."
  486. }
  487. if (%admindm == n) || (%admindm == no) {
  488. set %admindm no
  489. }
  490. if (%admindm != yes) && (%admindm != no) && (%admindm != y) && (%admindm != n) {
  491. goto admindm
  492. }
  493. set %chandm $?="What channel do you want your DM script to be in? (Default: #chatdm )"
  494. set %copymod $?="Do you want CopyMod Beta on? (While fighting the bot, it imitates your items. (YES/NO, Y/N)"
  495. if (%copymod == n) { set %copymod no }
  496. if (%copymod == y) { set %copymod yes }
  497. }
  498. alias dmadmins {
  499. if (%otherdmbot == yes) { HALT }
  500. if ($1 == $null) { set %adminsdm $?="What are the nicks of people you want as admins?"
  501. halt
  502. }
  503. set %adminsdm $1-
  504. halt
  505. }
  506. on *:text:!dmadmin*:#: {
  507. if (%otherdmbot == yes) { HALT }
  508. if ($nick !isin %adminsdm) { notice $nick %dmlogo You are not an admin! | HALT }
  509. if ($2 == commands) || ($2 == $null) {
  510. msg $nick %dmlogo ADMIN COMMANDS
  511. msg $nick %dmlogo An underlined line means YOU put that info in.
  512. msg $nick %dmlogo If something is bold underlined, it means it is optional.
  513. msg $nick %dmlogo Syntax: Command - What it does
  514. msg $nick %dmlogo !dmadmin edit type amount other - Edits type to amount.
  515. msg $nick %dmlogo EDIT COMMANDS (type)
  516. msg $nick %dmlogo !dmadmin edit hp amount person - Edits person's Health to amount
  517. msg $nick %dmlogo !dmadmin edit wins amount person - Edits person's Win amount to amount
  518. msg $nick %dmlogo !dmadmin edit loses amount person - Edits person's Lose amount to amount
  519. msg $nick %dmlogo !dmadmin edit special amount person - Edits person's Special Meter to amount
  520. msg $nick %dmlogo !dmadmin edit vote amount - Edits the current amount of votes to end the game to amount
  521. msg $nick %dmlogo !dmadmin edit gold amount person - Edits person's gold amount to amount
  522. msg $nick %dmlogo !dmadmin edit person number person - Changes number's game position to person's. If person is unspecified, it's you.
  523. msg $nick %dmlogo !dmadmin edit copymod on/off - Changed Copy Mod to On or Off
  524. msg $nick %dmlogo !dmadmin edit buydmmod on/off - Changed Buying Mod to On or Off
  525. msg $nick %dmlogo DM NUMBER SYNTAX FOR ABOVE COMMAND: number 1: person who first said !DM. number 2: person who accepted DM by typing !DM second.
  526. msg $nick %dmlogo More commmands to be coming. Admin in beta mode currently.
  527. halt
  528. }
  529. if ($2 == edit) {
  530. if ($3 == gold) {
  531. set %golddm [ $+ [ $5 ] ] $4
  532. notice $nick %dmlogo $5 $+ 's Gold set to $4 $+ .
  533. halt
  534. }
  535. if ($3 == hp) {
  536. set %dmhealth [ $+ [ $5 ] ] $4
  537. notice $nick %dmlogo $5 $+ 's Health set to $4 $+ .
  538. halt
  539. }
  540. if ($3 == wins) {
  541. set %winsdm [ $+ [ $5 ] ] $4
  542. notice $nick %dmlogo $5 $+ 's Wins set to $4 $+ .
  543. halt
  544. }
  545. if ($3 == loses) {
  546. set %losedm [ $+ [ $5 ] ] $4
  547. notice $nick %dmlogo $5 $+ 's Loses set to $4 $+ .
  548. halt
  549. }
  550. if ($3 == special) {
  551. set %dmspec [ $+ [ $5 ] ] $4
  552. notice $nick %dmlogo $5 $+ 's Special Meter set to $4 $+ .
  553. halt
  554. }
  555. if ($3 == vote) {
  556. set %dmstopcount $4
  557. notice $nick %dmlogo Votes to end the game now $4 $+ .
  558. halt
  559. }
  560. if ($3 == copymod) {
  561. if ($4 != on) && ($4 != off) {
  562. notice $nick %dmlogo Please type !dmadmin edit copymod on/off
  563. halt
  564. }
  565. set %copymod $4
  566. notice $nick %dmlogo CopyMod now $4
  567. halt
  568. }
  569. if ($3 == buydmmod) {
  570. if ($4 != on) && ($4 != off) {
  571. notice $nick %dmlogo Please type !dmadmin edit buydmmod on/off
  572. halt
  573. }
  574. set %copymod $4
  575. notice $nick %dmlogo Buying Mod now $4
  576. halt
  577. }
  578. }
  579. if ($3 == person) {
  580. if ($5 == $null) {
  581. if ($4 == 1) {
  582. if (%dmturn == %dmnick1) {
  583. set %dmturn $nick
  584. }
  585. set %dmhealth [ $+ [ $nick ] ] %dmhealth [ $+ [ %dmnick1 ] ]
  586. set %dmspec [ $+ [ $nick ] ] %dmspec [ $+ [ %dmnick1 ] ]
  587. notice $nick %dmlogo You are now in the place of %dmnick1 $+ .
  588. msg %dmchan %dmlogo $nick is now in the place of %dmnick1 $+ .
  589. set %dmnick1 $nick
  590. halt
  591. }
  592. if ($4 == 2) {
  593. if (%dmturn == %dmnick2) {
  594. set %dmturn $nick
  595. }
  596. set %dmhealth [ $+ [ $nick ] ] %dmhealth [ $+ [ %dmnick2 ] ]
  597. set %dmspec [ $+ [ $nick ] ] %dmspec [ $+ [ %dmnick2 ] ]
  598. notice $nick %dmlogo You are now in the place of %dmnick2 $+ .
  599. msg %dmchan %dmlogo $nick is now in the place of %dmnick2 $+ .
  600. set %dmnick1 $nick
  601. halt
  602. }
  603. }
  604. if ($5 != $null) {
  605. if ($4 == 1) {
  606. if (%dmturn == %dmnick1) {
  607. set %dmturn $5
  608. }
  609. set %dmhealth [ $+ [ $5 ] ] %dmhealth [ $+ [ %dmnick1 ] ]
  610. set %dmspec [ $+ [ $5 ] ] %dmspec [ $+ [ %dmnick1 ] ]
  611. notice $nick %dmlogo $5 is now in the place of %dmnick1 $+ .
  612. msg %dmchan %dmlogo $5 is now in the place of %dmnick1 $+ .
  613. set %dmnick1 $nick
  614. halt
  615. }
  616. if ($4 == 2) {
  617. if (%dmturn == %dmnick2) {
  618. set %dmturn $5
  619. }
  620. set %dmhealth [ $+ [ $5 ] ] %dmhealth [ $+ [ %dmnick2 ] ]
  621. set %dmspec [ $+ [ $5 ] ] %dmspec [ $+ [ %dmnick2 ] ]
  622. notice $nick %dmlogo $5 is now in the place of %dmnick2 $+ .
  623. msg %dmchan %dmlogo $5 is now in the place of %dmnick2 $+ .
  624. set %dmnick1 $nick
  625. halt
  626. }
  627. }
  628. }
  629. }
  630. alias chandm {
  631. if ($1 == $null) {
  632. echo -a %dmlogo Setting ( $+ %chandm $+ ) to $active
  633. set %chandm $active
  634. halt
  635. }
  636. echo -a %dmlogo Setting ( $+ %chandm $+ ) to $1-
  637. set %chandm $1-
  638. halt
  639. }
  640. alias dmend {
  641. if (%otherdmbot == yes) { HALT }
  642. if (%dmnick2 == $null) {
  643. msg %chandm %dmlogo Nobody has replied to %dmnick1 $+ 's DM request within 15 seconds! I will face you!
  644. if (%copymod == yes) { set %listdm2 [ $+ [ $me ] ] %listdm [ $+ [ $me ] ]
  645. set %listdm [ $+ [ $me ] ] %listdm [ $+ [ %dmnick1 ] ]
  646. }
  647. set %dmai on
  648. set %dmnick2 $me
  649. set %dm on
  650. set %dmrand $rand(1,2)
  651. if (%dmrand == 1) {
  652. set %dmturn %dmnick1
  653. }
  654. if (%dmrand == 2) {
  655. set %dmturn %dmnick2
  656. }
  657. msg %chandm %dmlogo DM started between %dmnick1 and %dmnick2 $+ !
  658. msg %chandm %dmlogo To see commands, type !dmcommands $+ !
  659. msg %chandm %dmlogo Random pick... %dmturn goes first!
  660. msg %chandm %dmlogo For current mods running, type !dmmods!
  661. set %dmspec [ $+ [ %dmnick1 ] ] 100
  662. set %dmspec [ $+ [ %dmnick2 ] ] 100
  663. set %dmhealth [ $+ [ %dmnick1 ] ] 99
  664. set %dmhealth [ $+ [ %dmnick2 ] ] 99
  665. dmaiturn
  666. }
  667. }
  668. on *:text:!dmmods*:#: {
  669. if (%dmcommands == on) {
  670. notice $nick %dmlogo Currently sending somebody else the mods.
  671. notice $nick %dmlogo Please try again in 10 seconds.
  672. halt
  673. }
  674. set %dmcommands on
  675. timer 01 10 unset %dmcommands
  676. if (%copymod == yes) {
  677. notice $nick %dmlogo CopyMod Beta is enabled! When you face the bot, it will copy your items!
  678. }
  679. if (%buydmmod == yes) {
  680. notice $nick %dmlogo BuyingMod Beta is enabled! You can buy items for initial use all the time. Type !dmbuy for more info.
  681. }
  682. if (%admindm == yes) {
  683. notice $nick %dmlogo AdminDM Beta is enabled! Certain people get to use admin commands!
  684. notice $nick %dmlogo AdminDM Beta is enabled! Admins: %adminsdm
  685. }
  686. }
  687. on *:text:!dmbuy*:#: {
  688. if (%otherdmbot == yes) { HALT }
  689. if (%buydmmod != yes) { msg nick %dmlogo This bot has DM Buying Mod turned OFF. | HALT }
  690. if (%golddm [ $+ [ $nick ] ] == $null) { set %golddm [ $+ [ $nick ] ] 0 }
  691. if ($2 == $null) || ($2 == list) {
  692. if (%dmcommands == on) {
  693. notice $nick %dmlogo Currently sending somebody else the commands.
  694. notice $nick %dmlogo Please try again in 15 seconds.
  695. halt
  696. }
  697. set %dmcommands on
  698. timer 01 20 unset %dmcommands
  699. msg $chan %dmlogo Sending $nick DM Items To Buy List.
  700. msg $chan %dmlogo Please wait 15-20 seconds before using another command.
  701. msg $nick %dmlogo ITEMS TO BUY LIST
  702. msg $nick %dmlogo TO BUY: !dmbuy buy item
  703. msg $nick %dmlogo Syntax: Item - Price - Effect
  704. msg $nick %dmlogo Health_Boost1 - 1500 - Increases your health by 1 hp each turn.
  705. msg $nick %dmlogo Health_Boost5 - 5000 - Increases your health by 5 hp each turn.
  706. msg $nick %dmlogo Health_Boost10 - 9500 - Increases your health by 10 hp each turn.
  707. msg $nick %dmlogo Special_Boost100 - 20000 - Infinite special meter.
  708. msg $nick %dmlogo Special_Boost50 - 12000 - Increases your special meter by 50 each turn.
  709. msg $nick %dmlogo Special_Boost15 - 7000 - Increases your special meter by 15 each turn.
  710. msg $nick %dmlogo Special_Boost10 - 5000 - Increases your special meter by 10 each turn.
  711. msg $nick %dmlogo Special_Boost5 - 2500 - Increases your special meter by 5 each turn.
  712. msg $nick %dmlogo Extra_Damage - 10000 - Hits an extra 5 damage every hit.
  713. msg $nick %dmlogo Weak_Armor - 1500 - Get inflicted with 1 less damage every hit.
  714. msg $nick %dmlogo Med_Armor - 2500 - Get inflicted with 2 less damage every hit.
  715. msg $nick %dmlogo Strong_Armor - 10000 - Get inflicted with 5 less damage every hit.
  716. msg $nick %dmlogo Inc_Wins1 - 4000 - Increase your wins by 1 win.
  717. msg $nick %dmlogo Inc_Wins5 - 15000 - Increase your wins by 5 wins.
  718. msg $nick %dmlogo Dec_Loses1 - 5000 - Decrease your loses by 1 lose.
  719. msg $nick %dmlogo Dec_Loses5 - 20000 - Decrease your loses by 5 loses.
  720. msg $nick %dmlogo Dm Beta Buying Mod
  721. }
  722. if ($2 == buy) {
  723. if ($3 isin %listdm [ $+ [ $nick ] ]) {
  724. notice $nick You already have $3 $+ !
  725. halt
  726. }
  727. if ($3 == dec_lose1) {
  728. if (%golddm [ $+ [ $nick ] ] < 5000) {
  729. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  730. halt
  731. }
  732. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  733. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  734. dec %golddm [ $+ [ $nick ] ] 5000
  735. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  736. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  737. dec %losedm [ $+ [ $nick ] ] 1
  738. }
  739. if ($3 == dec_lose5) {
  740. if (%golddm [ $+ [ $nick ] ] < 20000) {
  741. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  742. halt
  743. }
  744. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  745. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  746. dec %golddm [ $+ [ $nick ] ] 20000
  747. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  748. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  749. dec %losedm [ $+ [ $nick ] ] 5
  750. }
  751. if ($3 == inc_wins5) {
  752. if (%golddm [ $+ [ $nick ] ] < 15000) {
  753. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  754. halt
  755. }
  756. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  757. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  758. dec %golddm [ $+ [ $nick ] ] 15000
  759. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  760. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  761. inc %winsdm [ $+ [ $nick ] ] 5
  762. }
  763. if ($3 == inc_wins1) {
  764. if (%golddm [ $+ [ $nick ] ] < 4000) {
  765. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  766. halt
  767. }
  768. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  769. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  770. dec %golddm [ $+ [ $nick ] ] 4000
  771. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  772. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  773. inc %winsdm [ $+ [ $nick ] ] 1
  774. }
  775. if ($3 == strong_armor) {
  776. if (%golddm [ $+ [ $nick ] ] < 10000) {
  777. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  778. halt
  779. }
  780. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  781. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  782. dec %golddm [ $+ [ $nick ] ] 10000
  783. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  784. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  785. }
  786. if ($3 == med_armor) {
  787. if (%golddm [ $+ [ $nick ] ] < 2500) {
  788. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  789. halt
  790. }
  791. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  792. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  793. dec %golddm [ $+ [ $nick ] ] 2500
  794. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  795. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  796. }
  797. if ($3 == weak_armor) {
  798. if (%golddm [ $+ [ $nick ] ] < 1500) {
  799. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  800. halt
  801. }
  802. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  803. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  804. dec %golddm [ $+ [ $nick ] ] 1500
  805. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  806. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  807. }
  808. if ($3 == extra_damage) {
  809. if (%golddm [ $+ [ $nick ] ] < 10000) {
  810. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  811. halt
  812. }
  813. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  814. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  815. dec %golddm [ $+ [ $nick ] ] 10000
  816. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  817. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  818. }
  819. if ($3 == special_boost5) {
  820. if (%golddm [ $+ [ $nick ] ] < 2500) {
  821. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  822. halt
  823. }
  824. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  825. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  826. dec %golddm [ $+ [ $nick ] ] 2500
  827. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  828. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  829. }
  830. if ($3 == special_boost10) {
  831. if (%golddm [ $+ [ $nick ] ] < 5000) {
  832. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  833. halt
  834. }
  835. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  836. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  837. dec %golddm [ $+ [ $nick ] ] 5000
  838. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  839. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  840. }
  841. if ($3 == special_boost15) {
  842. if (%golddm [ $+ [ $nick ] ] < 7000) {
  843. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  844. halt
  845. }
  846. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  847. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  848. dec %golddm [ $+ [ $nick ] ] 7000
  849. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  850. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  851. }
  852. if ($3 == special_boost50) {
  853. if (%golddm [ $+ [ $nick ] ] < 12000) {
  854. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  855. halt
  856. }
  857. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  858. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  859. dec %golddm [ $+ [ $nick ] ] 12000
  860. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  861. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  862. }
  863. if ($3 == special_boost100) {
  864. if (%golddm [ $+ [ $nick ] ] < 20000) {
  865. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  866. halt
  867. }
  868. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  869. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  870. dec %golddm [ $+ [ $nick ] ] 20000
  871. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  872. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  873. }
  874. if ($3 == health_boost1) {
  875. if (%golddm [ $+ [ $nick ] ] < 1500) {
  876. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  877. halt
  878. }
  879. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  880. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  881. dec %golddm [ $+ [ $nick ] ] 1500
  882. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  883. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  884. }
  885. if ($3 == health_boost5) {
  886. if (%golddm [ $+ [ $nick ] ] < 5000) {
  887. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  888. halt
  889. }
  890. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  891. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  892. dec %golddm [ $+ [ $nick ] ] 5000
  893. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  894. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  895. }
  896. if ($3 == health_boost10) {
  897. if (%golddm [ $+ [ $nick ] ] < 9500) {
  898. notice $nick %dmlogo You do not have enough gold! You have %golddm [ $+ [ $nick ] ] gold!
  899. halt
  900. }
  901. if (%listdm [ $+ [ $nick ] ] != $null) { set %listdm [ $+ [ $nick ] ] %listdm [ $+ [ $nick ] ] $+ , $+ $3 }
  902. if (%listdm [ $+ [ $nick ] ] == $null) { set %listdm [ $+ [ $nick ] ] $3 }
  903. dec %golddm [ $+ [ $nick ] ] 9500
  904. msg $nick %dmlogo Your Items: %listdm [ $+ [ $nick ] ]
  905. msg $nick %dmlogo Your gold: %golddm [ $+ [ $nick ] ]
  906. }
  907. }
  908. }
  909. alias dmaiturn {
  910. if (%otherdmbot == yes) { HALT }
  911. if (%dmai == on) {
  912. if (%dmturn == $me) {
  913. if (%dmspec [ $+ [ $me ] ] > 59) {
  914. set %dmrand $rand(1,6)
  915. goto %dmrand
  916. }
  917. if (%dmspec [ $+ [ $me ] ] > 54) && (%dmspec < 60) {
  918. set %dmrand $rand(1,4)
  919. goto %dmrand
  920. }
  921. if (%dmspec [ $+ [ $me ] ] > 49) && (%dmspec < 55) {
  922. set %dmrand $rand(1,3)
  923. goto %dmrand
  924. }
  925. if (%dmspec [ $+ [ $me ] ] > 24) && (%dmspec < 50) {
  926. set %dmrand $rand(1,2)
  927. goto %dmrand
  928. }
  929. if (%dmspec [ $+ [ $me ] ] < 25) {
  930. set %dmrand $rand(7,10)
  931. goto %dmrand
  932. }
  933. :10
  934. if (%dmrand == 10) {
  935. if (%dmai == on) {
  936. if (%dmturn == $me) {
  937. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  938. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  939. msg %chandm !ndscim
  940. set %dmhit1 $rand(0,25)
  941. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  942. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  943. if (%buydmmod == yes) {
  944. if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) }
  945. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) }
  946. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) }
  947. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) }
  948. if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
  949. if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
  950. if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
  951. if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
  952. if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
  953. if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
  954. if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
  955. if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
  956. }
  957. if (%dmhit1 < 0) { set %dmhit1 0 }
  958. msg %chandm %dmlogo $me uses %genderdm Dscim and hits a %dmhit1 $+ , and also regenerates an extra 5% special meter!
  959. inc %dmspec [ $+ [ $me ] ] 5
  960. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  961. dmregen $me %dmotherperson
  962. }
  963. }
  964. }
  965. :9
  966. if (%dmrand == 9) {
  967. if (%dmai == on) {
  968. if (%dmturn == $me) {
  969. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  970. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  971. msg %chandm !nanchor
  972. set %dmhit1 $rand(0,4)
  973. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  974. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  975. if (%dmhit1 != 4) {
  976. set %dmhit1 $rand(0,35)
  977. }
  978. if (%dmhit1 == 4) {
  979. set %dmhit1 $rand(0,21)
  980. }
  981. if (%buydmmod == yes) {
  982. if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) }
  983. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) }
  984. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) }
  985. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) }
  986. if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
  987. if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
  988. if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
  989. if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
  990. if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
  991. if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
  992. if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
  993. if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
  994. }
  995. if (%dmhit1 < 0) { set %dmhit1 0 }
  996. msg %chandm %dmlogo $me uses %genderdm Anchor and hits a %dmhit1 $+ .
  997. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  998. dmregen $me %dmotherperson
  999. }
  1000. }
  1001. }
  1002. :8
  1003. if (%dmrand == 8) {
  1004. if (%dmai == on) {
  1005. if (%dmturn == $me) {
  1006. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1007. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1008. msg %chandm !nmaul
  1009. set %dmhit1 $rand(0,4)
  1010. if (%dmhit1 != 4) {
  1011. set %dmhit1 $rand(0,25)
  1012. }
  1013. if (%dmhit1 == 4) {
  1014. set %dmhit1 $rand(15,25)
  1015. }
  1016. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1017. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1018. if (%buydmmod == yes) {
  1019. if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) }
  1020. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) }
  1021. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) }
  1022. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) }
  1023. if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
  1024. if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
  1025. if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
  1026. if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
  1027. if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
  1028. if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
  1029. if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
  1030. if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
  1031. }
  1032. if (%dmhit1 < 0) { set %dmhit1 0 }
  1033. msg %chandm %dmlogo $me uses %genderdm Maul and hits a %dmhit1 $+ .
  1034. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  1035. dmregen $me %dmotherperson
  1036. }
  1037. }
  1038. }
  1039. :7
  1040. if (%dmrand == 7) {
  1041. if (%dmai == on) {
  1042. if (%dmturn == $me) {
  1043. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1044. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1045. msg %chandm !nwhip
  1046. set %dmhit1 $rand(0,30)
  1047. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1048. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1049. if (%buydmmod == yes) {
  1050. if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) }
  1051. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) }
  1052. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) }
  1053. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) }
  1054. if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
  1055. if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
  1056. if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
  1057. if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
  1058. if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
  1059. if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
  1060. if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
  1061. if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
  1062. }
  1063. if (%dmhit1 < 0) { set %dmhit1 0 }
  1064. msg %chandm %dmlogo $me uses %genderdm Whip and hits a %dmhit1 $+ .
  1065. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  1066. dmregen $me %dmotherperson
  1067. }
  1068. }
  1069. }
  1070. :6
  1071. if (%dmrand == 6) {
  1072. if (%dmai == on) {
  1073. if (%dmturn == $me) {
  1074. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1075. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1076. msg %chandm !daxe
  1077. dec %dmspec [ $+ [ $me ] ] 60
  1078. set %dmhit1 $rand(1,5)
  1079. if (%dmhit < 2) { set %dmhit 0 }
  1080. if (%dmhit > 3) { set %dmhit 45 }
  1081. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1082. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1083. if (%buydmmod == yes) {
  1084. if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) }
  1085. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) }
  1086. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) }
  1087. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) }
  1088. if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
  1089. if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
  1090. if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
  1091. if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
  1092. if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
  1093. if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
  1094. if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
  1095. if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
  1096. }
  1097. if (%dmhit1 < 0) { set %dmhit1 0 }
  1098. msg %chandm %dmlogo $me uses %genderdm Daxe Special and hits a %dmhit1 $+ !
  1099. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  1100. dmregen $me %dmotherperson
  1101. }
  1102. }
  1103. }
  1104. :5
  1105. if (%dmrand == 5) {
  1106. if (%dmai == on) {
  1107. if (%dmturn == $me) {
  1108. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1109. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1110. msg %chandm !dscim
  1111. dec %dmspec [ $+ [ $me ] ] 60
  1112. set %dmhit1 $rand(0,35)
  1113. set %dmrand1 $rand(1,20)
  1114. if (%dmrand1 == 1) { set %dmscima yes }
  1115. set %dmrand2 $rand(1,10)
  1116. if (%dmrand2 == 1) { set %dmscimb yes }
  1117. set %dmrand3 $rand(1,2)
  1118. if (%dmrand3 == 1) { set %dmscimc yes }
  1119. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1120. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1121. if (%buydmmod == yes) {
  1122. if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) }
  1123. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) }
  1124. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) }
  1125. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) }
  1126. if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
  1127. if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
  1128. if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
  1129. if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
  1130. if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
  1131. if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
  1132. if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
  1133. if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
  1134. }
  1135. if (%dmhit1 < 0) { set %dmhit1 0 }
  1136. msg %chandm %dmlogo $me uses %genderdm DScim Special and hits a %dmhit1 $+ !
  1137. if (%dmscima == yes) { msg %chandm %dmlogo $me Also gains an extra _100%_ worth of special meter! | inc %dmspec [ $+ [ $me ] ] 100 }
  1138. if (%dmscimb == yes) { msg %chandm %dmlogo $me Also gains an extra _40%_ worth of special meter! | inc %dmspec [ $+ [ $me ] ] 40 }
  1139. if (%dmscimc == yes) { msg %chandm %dmlogo $me Also STEALS _10%_ special meter from %dmotherperson $+ ! | inc %dmspec [ $+ [ $me ] ] 10 | dec %dmspec [ $+ [ %dmotherperson ] ] 10 }
  1140. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  1141. dmregen $me %dmotherperson
  1142. }
  1143. }
  1144. }
  1145. :4
  1146. if (%dmrand == 4) {
  1147. if (%dmai == on) {
  1148. if (%dmturn == $me) {
  1149. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1150. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1151. msg %chandm !whip
  1152. dec %dmspec [ $+ [ $me ] ] 55
  1153. set %dmhit1 $rand(0,35)
  1154. if (%dmhit1 < 11) { inc %dmhit1 1 | set %dmwhip 1 }
  1155. if (%dmhit1 > 10) && (%dmhit1 < 35) { inc %dmhit1 2 | set %dmwhip 2 }
  1156. if (%dmhit1 == 35) { inc %dmhit1 5 | set %dmwhip 5 }
  1157. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1158. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1159. if (%buydmmod == yes) {
  1160. if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) }
  1161. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) }
  1162. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) }
  1163. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) }
  1164. if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
  1165. if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
  1166. if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
  1167. if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
  1168. if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
  1169. if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
  1170. if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
  1171. if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
  1172. }
  1173. if (%dmhit1 < 0) { set %dmhit1 0 }
  1174. msg %chandm %dmlogo $me uses %genderdm Whip Special and hits a %dmhit1 $+ , which includes a + $+ %dmwhip bonus!
  1175. if (%dmwhip == 5) { msg %chandm %dmlogo $me Also steals _20%_ special meter from %dmotherperson $+ !
  1176. inc %dmspec [ $+ [ $me ] ] 20
  1177. dec %dmspec [ $+ [ %dmotherperson ] ] 20
  1178. }
  1179. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  1180. dmregen $me %dmotherperson
  1181. }
  1182. }
  1183. }
  1184. :3
  1185. if (%dmrand == 3) {
  1186. if (%dmai == on) {
  1187. if (%dmturn == $me) {
  1188. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1189. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1190. msg %chandm !anchor
  1191. dec %dmspec [ $+ [ $me ] ] 50
  1192. set %dmhit1 $rand(0,35)
  1193. if (%dmhit1 < 15) {
  1194. set %dmhit1 $rand(0,40)
  1195. }
  1196. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1197. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1198. if (%buydmmod == yes) {
  1199. if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) }
  1200. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) }
  1201. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) }
  1202. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) }
  1203. if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
  1204. if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
  1205. if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
  1206. if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
  1207. if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
  1208. if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
  1209. if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
  1210. if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
  1211. }
  1212. if (%dmhit1 < 0) { set %dmhit1 0 }
  1213. msg %chandm %dmlogo $me uses %genderdm Anchor Special and hits a %dmhit1 $+ !
  1214. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  1215. dmregen $me %dmotherperson
  1216. }
  1217. }
  1218. }
  1219. :2
  1220. if (%dmrand == 2) {
  1221. if (%dmai == on) {
  1222. if (%dmturn == $me) {
  1223. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1224. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1225. msg %chandm !dmace
  1226. dec %dmspec [ $+ [ $me ] ] 25
  1227. set %dmhit1 $rand(0,50)
  1228. if (%dmhit1 > 25) {
  1229. set %dmhit1 $rand(0,50)
  1230. }
  1231. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1232. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1233. if (%buydmmod == yes) {
  1234. if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) }
  1235. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) }
  1236. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) }
  1237. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) }
  1238. if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
  1239. if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
  1240. if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
  1241. if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
  1242. if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
  1243. if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
  1244. if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
  1245. if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
  1246. }
  1247. if (%dmhit1 < 0) { set %dmhit1 0 }
  1248. msg %chandm %dmlogo $me uses %genderdm DMace Special and hits a %dmhit1 $+ !
  1249. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit1
  1250. dmregen $me %dmotherperson
  1251. }
  1252. }
  1253. }
  1254. :1
  1255. if (%dmrand == 1) {
  1256. if (%dmai == on) {
  1257. if (%dmturn == $me) {
  1258. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1259. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1260. msg %chandm !dds
  1261. dec %dmspec [ $+ [ $me ] ] 25
  1262. set %dmhit1 $rand(0,23)
  1263. set %dmhit2 $rand(0,23)
  1264. if ($me == %dmnick1) { set %dmotherperson %dmnick2 }
  1265. if ($me == %dmnick2) { set %dmotherperson %dmnick1 }
  1266. if (%buydmmod == yes) {
  1267. if (extra_damage isin %listdm [ $+ [ $me ] ]) { set %dmhit1 $calc(%dmhit1 + 5) }
  1268. if (weak_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 1) }
  1269. if (med_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 2) }
  1270. if (strong_armor isin %listdm [ $+ [ %dmotherperson ] ]) { set %dmhit1 $calc(%dmhit1 - 5) }
  1271. if (special_boost100 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 100 }
  1272. if (special_boost50 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 50 }
  1273. if (special_boost15 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 15 }
  1274. if (special_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 10 }
  1275. if (special_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmspec [ $+ [ $me ] ] 5 }
  1276. if (health_boost1 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 1 }
  1277. if (health_boost5 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 5 }
  1278. if (health_boost10 isin %listdm [ $+ [ $me ] ]) { inc %dmhealth [ $+ [ $me ] ] 10 }
  1279. }
  1280. if (%dmhit1 < 0) { set %dmhit1 0 }
  1281. if (%dmhit2 < 0) { set %dmhit2 0 }
  1282. msg %chandm %dmlogo $me uses %genderdm DDS Special and hits a %dmhit1 and %dmhit2 $+ !
  1283. set %dmhit $calc( %dmhit1 + %dmhit2 )
  1284. dec %dmhealth [ $+ [ %dmotherperson ] ] %dmhit
  1285. dmregen $me %dmotherperson
  1286. }
  1287. }
  1288. }
  1289. }
  1290. }
  1291. }
  1292. on *:text:!dmcheck*:#:{
  1293. if (%chandm != $chan) {
  1294. notice $nick %dmlogo You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing!
  1295. HALT
  1296. }
  1297. if (%otherdmbot == yes) { HALT }
  1298. if ($2 == $null) {
  1299. if (%winsdm [ $+ [ $nick ] ] == $null) { set %winsdm [ $+ [ $nick ] ] 0 }
  1300. if (%losedm [ $+ [ $nick ] ] == $null) { set %losedm [ $+ [ $nick ] ] 0 }
  1301. if (%golddm [ $+ [ $nick ] ] == $null) { set %golddm [ $+ [ $nick ] ] 0 }
  1302. notice $nick %dmlogo You have ( $+ %golddm [ $+ [ $nick ] ] $+ ) Gold.
  1303. notice $nick %dmlogo Gold earned to date: ( $+ %allgolddm [ $+ [ $nick ] ] $+ ) $+ .
  1304. if (%buydmmod == yes) { notice $nick %dmlogo You're Item List: %listdm [ $+ [ $nick ] ] }
  1305. notice $nick %dmlogo Wins: ( $+ %winsdm [ $+ [ $nick ] ] $+ )
  1306. notice $nick %dmlogo Loses: ( $+ %losedm [ $+ [ $nick ] ] $+ )
  1307. if (%losedm [ $+ [ $nick ] ] != 0) { notice $nick %dmlogo Win Ratio: Everytime you lose, you average ( $+ $calc( %winsdm [ $+ [ $nick ] ] / %losedm [ $+ [ $nick ] ] ) $+ ) wins. }
  1308. if (%losedm [ $+ [ $nick ] ] == 0) { notice $nick %dmlogo Win Ratio: Everytime you lose, you average ( $+ %winsdm [ $+ [ $nick ] ] $+ ) wins. }
  1309. halt
  1310. }
  1311. if (%winsdm [ $+ [ $2 ] ] == $null) { set %winsdm [ $+ [ $2 ] ] 0 }
  1312. if (%losedm [ $+ [ $2 ] ] == $null) { set %losedm [ $+ [ $2 ] ] 0 }
  1313. if (%golddm [ $+ [ $2 ] ] == $null) { set %golddm [ $+ [ $2 ] ] 0 }
  1314. notice $nick %dmlogo $2 has ( $+ %golddm [ $+ [ $2 ] ] $+ ) Gold.
  1315. notice $nick %dmlogo $2 $+ 's Gold earned to date: ( $+ %allgolddm [ $+ [ $2 ] ] $+ ) $+ .
  1316. if (%buydmmod == yes) { notice $nick %dmlogo $2 $+ 's Item List: %listdm [ $+ [ $2 ] ] }
  1317. notice $nick %dmlogo $2 $+ 's Wins: ( $+ %winsdm [ $+ [ $2 ] ] $+ )
  1318. notice $nick %dmlogo $2 $+ 's Loses: ( $+ %losedm [ $+ [ $2 ] ] $+ )
  1319. if (%losedm [ $+ [ $2 ] ] == 0) { notice $nick %dmlogo $2 $+ 's Win Ratio: Everytime $2 loses, they average ( $+ %winsdm [ $+ [ $2 ] ] $+ ) wins. }
  1320. if (%losedm [ $+ [ $2 ] ] != 0) { notice $nick %dmlogo $2 $+ 's Win Ratio: Everytime $2 loses, they average ( $+ $calc( %winsdm [ $+ [ $2 ] ] / %losedm [ $+ [ $2 ] ] ) $+ ) wins. }
  1321. halt
  1322. }
  1323. on *:text:!dmstop*:#:{
  1324. if (%chandm != $chan) {
  1325. notice $nick %dmlogo You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing!
  1326. HALT
  1327. }
  1328. if (%otherdmbot == yes) { HALT }
  1329. if (%dm != on) {
  1330. notice $Nick %dmlogo No game is currently running!
  1331. halt
  1332. }
  1333. if (%dmstopcount == $null) {
  1334. set %dmstopcount 1
  1335. msg %chandm %dmlogo There is now 1 vote to end the game!
  1336. halt
  1337. }
  1338. if (%dmstopcount == 1) {
  1339. msg %chandm %dmlogo Ending game!
  1340. unset %dm*
  1341. halt
  1342. }
  1343. }
  1344. on *:text:!stopdm*:#:{
  1345. if (%chandm != $chan) {
  1346. notice $nick %dmlogo You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing!
  1347. HALT
  1348. }
  1349. if (%otherdmbot == yes) { HALT }
  1350. if (%dm != on) {
  1351. notice $Nick %dmlogo No game is currently running!
  1352. halt
  1353. }
  1354. if (%dmstopcount == $null) {
  1355. set %dmstopcount 1
  1356. msg %chandm %dmlogo There is now 1 vote to end the game!
  1357. halt
  1358. }
  1359. if (%dmstopcount == 1) {
  1360. msg %chandm %dmlogo Ending game!
  1361. unset %dm*
  1362. halt
  1363. }
  1364. }
  1365. on *:text:!dm*:#:{
  1366. if (%chandm != $chan) {
  1367. notice $nick %dmlogo You are in the wrong channel! Goto 7 $+ %chandm $+  for DMing!
  1368. HALT
  1369. }
  1370. if (%otherdmbot == yes) { HALT }
  1371. if ($chan == %chandm) {
  1372. if (%dmfixing == yes) { msg %chandm %dmlogo DM'ing is currently disabled! We are adding a few new features. We hope to be back shortly.
  1373. halt
  1374. }
  1375. }
  1376. if (%dmfixing == yes) { notice $nick %dmlogo DM'ing is currently disabled! We are adding a few new features. We hope to be back shortly.
  1377. halt
  1378. }
  1379. if ($1 == !dm) {
  1380. if (%dm == on) {
  1381. notice $Nick %dmlogo A dm is already running! Have 2 people type !dmstop to stop it!
  1382. halt
  1383. }
  1384. if ($chan != %chandm) {
  1385. notice $nick %dmlogo This is the wrong channel for DMing! Please goto %chandm to DM!
  1386. halt
  1387. }
  1388. if (%dmstart == $null) {
  1389. msg %chandm %dmlogo A DM request has been opened! One more person needs to type !DM to join!
  1390. timer 01 15 dmend
  1391. unset %dm*
  1392. set %dmnick1 $nick
  1393. set %dmstart yes
  1394. halt
  1395. }
  1396. if (%dmstart == yes) {
  1397. if (%dmnick1 != $nick) {
  1398. set %dmnick2 $nick
  1399. set %dm on
  1400. msg %chandm %dmlogo DM started between %dmnick1 and %dmnick2 $+ !
  1401. msg %chandm %dmlogo To see commands, type !dmcommands $+ !
  1402. set %dmrand $rand(1,2)
  1403. if (%dmrand == 1) {
  1404. set %dmturn %dmnick1
  1405. }
  1406. if (%dmrand == 2) {
  1407. set %dmturn %dmnick2
  1408. }
  1409. set %dmspec [ $+ [ %dmnick1 ] ] 100
  1410. set %dmspec [ $+ [ %dmnick2 ] ] 100
  1411. set %dmhealth [ $+ [ %dmnick1 ] ] 99
  1412. set %dmhealth [ $+ [ %dmnick2 ] ] 99
  1413. msg %chandm %dmlogo Random pick... %dmturn goes first!
  1414. }
  1415. }
  1416. }
  1417. }
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!