API tools faq
paste
Guest User

Untitled

a guest
May 1st, 2013
192
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 54.82 KB | None | 0 0
raw download clone embed print report diff
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;;minimii's Pokemon Battle Script;;;
  3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4. ON *:TEXT:!PokeBattle:#: {
  5. if (%PBPlayer1 == $null) {
  6. set %PBPlayer1 $nick
  7. msg $chan $nick is waiting to battle
  8. msg $chan If anyone would like to battle $nick please type !BattleJoin
  9. }
  10. else {
  11. msg $chan Sorry $nick but a battle was already started by %PBPlayer1
  12. }
  13. }
  14.  
  15. ON *:TEXT:!BattleJoin:#: {
  16. if (%PBPlayer2 == $null) {
  17. set %PBPlayer2 $nick
  18. msg $chan $nick is now player 2!
  19. msg $chan View avalible pokemom with !BattleList
  20. }
  21. else {
  22. msg $chan Sorry $nick but there is already a player 2
  23. }
  24. }
  25.  
  26. ON *:TEXT:!BattleList:#: {
  27. msg $chan Current pokemon are Bulbasaur, Ivysaur, Venusaur, Charmander, Charmeleon, Charizard, Squirtle, Wartortle, and Blastoise.
  28. msg $chan Pick your pokemon with !Pick
  29. }
  30. ON *:TEXT:!Pick *:#: {
  31. if ($nick == %PBPlayer1) {
  32. if ($2 == Bulbasaur) {
  33. set %PBPlayer1Poke Bulbasaur
  34. set %PBPlayer1PokeHP 45
  35. msg $chan %PBPlayer1 picked %PBPlayer1Poke $+ !
  36. .notice $nick View moves with !BattleMoves
  37. .notice $nick When you are ready type !BattleReady
  38. }
  39. if ($2 == Ivysaur) {
  40. set %PBPlayer1Poke Ivysaur
  41. set %PBPlayer1PokeHP 60
  42. set %PBPlayer1Recharge off
  43. msg $chan %PBPlayer1 picked %PBPlayer1Poke $+ !
  44. .notice $nick View moves with !BattleMoves
  45. .notice $nick When you are ready type !BattleReady
  46. }
  47. if ($2 == Venusaur) {
  48. set %PBPlayer1Poke Venusaur
  49. set %PBPlayer1PokeHP 80
  50. set %PBPlayer1Recharge off
  51. msg $chan %PBPlayer1 picked %PBPlayer1Poke $+ !
  52. .notice $nick View moves with !BattleMoves
  53. .notice $nick When you are ready type !BattleReady
  54. }
  55. if ($2 == Charmander) {
  56. set %PBPlayer1Poke Charmander
  57. set %PBPlayer1PokeHP 39
  58. msg $chan %PBPlayer1 picked %PBPlayer1Poke $+ !
  59. .notice $nick View moves with !BattleMoves
  60. .notice $nick When you are ready type !BattleReady
  61. }
  62. if ($2 == Charmeleon) {
  63. set %PBPlayer1Poke Charmeleon
  64. set %PBPlayer1PokeHP 58
  65. msg $chan %PBPlayer1 picked %PBPlayer1Poke $+ !
  66. .notice $nick View moves with !BattleMoves
  67. .notice $nick When you are ready type !BattleReady
  68. }
  69. if ($2 == Charizard) {
  70. set %PBPlayer1Poke Charizard
  71. set %PBPlayer1PokeHP 78
  72. msg $chan %PBPlayer1 picked %PBPlayer1Poke $+ !
  73. .notice $nick View moves with !BattleMoves
  74. .notice $nick When you are ready type !BattleReady
  75. }
  76. if ($2 == Squirtle) {
  77. set %PBPlayer1Poke Squirtle
  78. set %PBPlayer1PokeHP 44
  79. msg $chan %PBPlayer1 picked %PBPlayer1Poke $+ !
  80. .notice $nick View moves with !BattleMoves
  81. .notice $nick When you are ready type !BattleReady
  82. }
  83. if ($2 == Wartortle) {
  84. set %PBPlayer1Poke Wartortle
  85. set %PBPlayer1PokeHP 59
  86. msg $chan %PBPlayer1 picked %PBPlayer1Poke $+ !
  87. .notice $nick View moves with !BattleMoves
  88. .notice $nick When you are ready type !BattleReady
  89. }
  90. if ($2 == Blastoise) {
  91. set %PBPlayer1Poke Blastoise
  92. set %PBPlayer1PokeHP 79
  93. msg $chan %PBPlayer1 picked %PBPlayer1Poke $+ !
  94. .notice $nick View moves with !BattleMoves
  95. .notice $nick When you are ready type !BattleReady
  96. }
  97. }
  98. if ($nick == %PBPlayer2) {
  99. if ($2 == Bulbasaur) {
  100. set %PBPlayer2Poke Bulbasaur
  101. set %PBPlayer2PokeHP 45
  102. msg $chan %PBPlayer2 picked %PBPlayer2Poke $+ !
  103. .notice $nick View moves with !BattleMoves
  104. .notice $nick When you are ready type !BattleReady
  105. }
  106. if ($2 == Ivysaur) {
  107. set %PBPlayer2Poke Ivysaur
  108. set %PBPlayer2PokeHP 60
  109. set %PBPlayer2Recharge off
  110. msg $chan %PBPlayer2 picked %PBPlayer2Poke $+ !
  111. .notice $nick View moves with !BattleMoves
  112. .notice $nick When you are ready type !BattleReady
  113. }
  114. if ($2 == Venusaur) {
  115. set %PBPlayer2Poke Ivysaur
  116. set %PBPlayer2PokeHP 80
  117. set %PBPlayer2Recharge off
  118. msg $chan %PBPlayer2 picked %PBPlayer2Poke $+ !
  119. .notice $nick View moves with !BattleMoves
  120. .notice $nick When you are ready type !BattleReady
  121. }
  122. if ($2 == Charmander) {
  123. set %PBPlayer2Poke Charmander
  124. set %PBPlayer2PokeHP 39
  125. msg $chan %PBPlayer2 picked %PBPlayer2Poke $+ !
  126. .notice $nick View moves with !BattleMoves
  127. .notice $nick When you are ready type !BattleReady
  128. }
  129. if ($2 == Charmeleon) {
  130. set %PBPlayer2Poke Charmeleon
  131. set %PBPlayer2PokeHP 58
  132. msg $chan %PBPlayer2 picked %PBPlayer2Poke $+ !
  133. .notice $nick View moves with !BattleMoves
  134. .notice $nick When you are ready type !BattleReady
  135. }
  136. if ($2 == Charizard) {
  137. set %PBPlayer2Poke Charizard
  138. set %PBPlayer2PokeHP 78
  139. msg $chan %PBPlayer2 picked %PBPlayer2Poke $+ !
  140. .notice $nick View moves with !BattleMoves
  141. .notice $nick When you are ready type !BattleReady
  142. }
  143. if ($2 == Squirtle) {
  144. set %PBPlayer2Poke Squirtle
  145. set %PBPlayer2PokeHP 44
  146. msg $chan %PBPlayer2 picked %PBPlayer2Poke $+ !
  147. .notice $nick View moves with !BattleMoves
  148. .notice $nick When you are ready type !BattleReady
  149. }
  150. if ($2 == Wartortle) {
  151. set %PBPlayer2Poke Wartortle
  152. set %PBPlayer2PokeHP 59
  153. msg $chan %PBPlayer2 picked %PBPlayer2Poke $+ !
  154. .notice $nick View moves with !BattleMoves
  155. .notice $nick When you are ready type !BattleReady
  156. }
  157. if ($2 == Blastoise) {
  158. set %PBPlayer2Poke Blastoise
  159. set %PBPlayer2PokeHP 79
  160. msg $chan %PBPlayer2 picked %PBPlayer2Poke $+ !
  161. .notice $nick View moves with !BattleMoves
  162. .notice $nick When you are ready type !BattleReady
  163. }
  164. }
  165. }
  166. ON *:TEXT:!BattleMoves:#: {
  167. if ($nick == %PBPlayer1) {
  168. if (%PBPlayer1Poke == Bulbasaur) {
  169. .notice $nick Your moveset for %PBPlayer1Poke is:
  170. .notice $nick 1-7 Points: !VineWhip
  171. .notice $nick 1-11 Points: !RazorLeaf
  172. .notice $nick 1-16 Points: !SeedBomb
  173. .notice $nick %PBPlayer1Poke has %PBPlayer1PokeHP HP
  174. .notice $nick When you are ready type !BattleReady
  175. }
  176. if (%PBPlayer1Poke == Ivysaur) {
  177. .notice $nick Your moveset for %PBPlayer1Poke is:
  178. .notice $nick 1-7 Points: !VineWhip
  179. .notice $nick 1-11 Points: !RazorLeaf
  180. .notice $nick 1-24 Points: !SolarBeam
  181. .notice $nick %PBPlayer1Poke has %PBPlayer1PokeHP HP
  182. .notice $nick When you are ready type !BattleReady
  183. }
  184. if (%PBPlayer1Poke == Venusaur) {
  185. .notice $nick Your moveset for %PBPlayer1Poke is:
  186. .notice $nick 1-7 Points: !VineWhip
  187. .notice $nick 1-11 Points: !RazorLeaf
  188. .notice $nick 1-24 Points: !SolarBeam
  189. .notice $nick %PBPlayer1Poke has %PBPlayer1PokeHP HP
  190. .notice $nick When you are ready type !BattleReady
  191. }
  192. if (%PBPlayer1Poke == Charmander) {
  193. .notice $nick Your moveset for %PBPlayer1Poke is:
  194. .notice $nick 1-8 Points: !Ember
  195. .notice $nick 1-13 Points: !FireFang
  196. .notice $nick 1-19 Points: !FlameThrower
  197. .notice $nick %PBPlayer1Poke has %PBPlayer1PokeHP HP
  198. .notice $nick When you are ready type !BattleReady
  199. }
  200. if (%PBPlayer1Poke == Charmeleon) {
  201. .notice $nick Your moveset for %PBPlayer1Poke is:
  202. .notice $nick 1-13 Points: !FireFang
  203. .notice $nick 1-19 Points: !FlameThrower
  204. .notice $nick 1-20 Points: !Inferno
  205. .notice $nick %PBPlayer1Poke has %PBPlayer1PokeHP HP
  206. .notice $nick When you are ready type !BattleReady
  207. }
  208. if (%PBPlayer1Poke == Charizard) {
  209. .notice $nick Your moveset for %PBPlayer1Poke is:
  210. .notice $nick 1-13 Points: !FireFang
  211. .notice $nick 1-19 Points: !FlameThrower
  212. .notice $nick 1-20 Points: !Inferno
  213. .notice $nick %PBPlayer1Poke has %PBPlayer1PokeHP HP
  214. .notice $nick When you are ready type !BattleReady
  215. }
  216. if (%PBPlayer1Poke == Squirtle) {
  217. .notice $nick Your moveset for %PBPlayer1Poke is:
  218. .notice $nick 1-8 Points: !WaterGun
  219. .notice $nick 1-12 Points: !WaterPulse
  220. .notice $nick 1-18 Points: !AquaTail
  221. .notice $nick %PBPlayer1Poke has %PBPlayer1PokeHP HP
  222. .notice $nick When you are ready type !BattleReady
  223. }
  224. if (%PBPlayer1Poke == Wartortle) {
  225. .notice $nick Your moveset for %PBPlayer1Poke is:
  226. .notice $nick 1-12 Points: !WaterPulse
  227. .notice $nick 1-18 Points: !AquaTail
  228. .notice $nick 1-24 Points: !HydroPump
  229. .notice $nick %PBPlayer1Poke has %PBPlayer1PokeHP HP
  230. .notice $nick When you are ready type !BattleReady
  231. }
  232. if (%PBPlayer1Poke == Blastoise) {
  233. .notice $nick Your moveset for %PBPlayer1Poke is:
  234. .notice $nick 1-12 Points: !WaterPulse
  235. .notice $nick 1-18 Points: !AquaTail
  236. .notice $nick 1-24 Points: !HydroPump
  237. .notice $nick %PBPlayer1Poke has %PBPlayer1PokeHP HP
  238. .notice $nick When you are ready type !BattleReady
  239. }
  240. }
  241. if ($nick == %PBPlayer2) {
  242. if (%PBPlayer2Poke == Bulbasaur) {
  243. .notice $nick Your moveset for %PBPlayer2Poke is:
  244. .notice $nick 1-7 Points: !VineWhip
  245. .notice $nick 1-11 Points: !RazorLeaf
  246. .notice $nick 1-16 Points: !SeedBomb
  247. .notice $nick %PBPlayer2Poke has %PBPlayer2PokeHP HP
  248. .notice $nick When you are ready type !BattleReady
  249. }
  250. if (%PBPlayer2Poke == Ivysaur) {
  251. .notice $nick Your moveset for %PBPlayer2Poke is:
  252. .notice $nick 1-7 Points: !VineWhip
  253. .notice $nick 1-11 Points: !RazorLeaf
  254. .notice $nick 1-24 Points: !SolarBeam
  255. .notice $nick %PBPlayer2Poke has %PBPlayer2PokeHP HP
  256. .notice $nick When you are ready type !BattleReady
  257. }
  258. if (%PBPlayer2Poke == Venusaur) {
  259. .notice $nick Your moveset for %PBPlayer2Poke is:
  260. .notice $nick 1-7 Points: !VineWhip
  261. .notice $nick 1-11 Points: !RazorLeaf
  262. .notice $nick 1-24 Points: !SolarBeam
  263. .notice $nick %PBPlayer2Poke has %PBPlayer2PokeHP HP
  264. .notice $nick When you are ready type !BattleReady
  265. }
  266. if (%PBPlayer2Poke == Charmander) {
  267. .notice $nick Your moveset for %PBPlayer2Poke is:
  268. .notice $nick 1-8 Points: !Ember
  269. .notice $nick 1-13 Points: !FireFang
  270. .notice $nick 1-19 Points: !FlameThrower
  271. .notice $nick %PBPlayer2Poke has %PBPlayer2PokeHP HP
  272. .notice $nick When you are ready type !BattleReady
  273. }
  274. if (%PBPlayer2Poke == Charmeleon) {
  275. .notice $nick Your moveset for %PBPlayer2Poke is:
  276. .notice $nick 1-13 Points: !FireFang
  277. .notice $nick 1-19 Points: !FlameThrower
  278. .notice $nick 1-20 Points: !Inferno
  279. .notice $nick %PBPlayer2Poke has %PBPlayer2PokeHP HP
  280. .notice $nick When you are ready type !BattleReady
  281. }
  282. if (%PBPlayer2Poke == Charizard) {
  283. .notice $nick Your moveset for %PBPlayer2Poke is:
  284. .notice $nick 1-13 Points: !FireFang
  285. .notice $nick 1-19 Points: !FlameThrower
  286. .notice $nick 1-20 Points: !Inferno
  287. .notice $nick %PBPlayer2Poke has %PBPlayer2PokeHP HP
  288. .notice $nick When you are ready type !BattleReady
  289. }
  290. if (%PBPlayer2Poke == Squirtle) {
  291. .notice $nick Your moveset for %PBPlayer2Poke is:
  292. .notice $nick 1-8 Points: !WaterGun
  293. .notice $nick 1-12 Points: !WaterPulse
  294. .notice $nick 1-18 Points: !AquaTail
  295. .notice $nick %PBPlayer2Poke has %PBPlayer2PokeHP HP
  296. .notice $nick When you are ready type !BattleReady
  297. }
  298. if (%PBPlayer2Poke == Wartortle) {
  299. .notice $nick Your moveset for %PBPlayer2Poke is:
  300. .notice $nick 1-12 Points: !WaterPulse
  301. .notice $nick 1-18 Points: !AquaTail
  302. .notice $nick 1-24 Points: !HydroPump
  303. .notice $nick %PBPlayer2Poke has %PBPlayer2PokeHP HP
  304. .notice $nick When you are ready type !BattleReady
  305. }
  306. if (%PBPlayer2Poke == Blastoise) {
  307. .notice $nick Your moveset for %PBPlayer2Poke is:
  308. .notice $nick 1-12 Points: !WaterPulse
  309. .notice $nick 1-18 Points: !AquaTail
  310. .notice $nick 1-24 Points: !HydroPump
  311. .notice $nick %PBPlayer2Poke has %PBPlayer2PokeHP HP
  312. .notice $nick When you are ready type !BattleReady
  313. }
  314. }
  315. }
  316.  
  317. ;Stop Battle
  318. ON *:TEXT:!BattleStop:#: {
  319. unset %PB*
  320. msg $chan Battle stopped.
  321. }
  322. ON *:TEXT:!BattleReset:#: {
  323. unset %PB*
  324. msg $chan Battle reset.
  325. }
  326.  
  327. ;- BATTLE SCRIPTS -
  328.  
  329. ;Begin Battle Script
  330.  
  331. ON *:TEXT:!BattleReady:#: {
  332. if ($nick == %PBPlayer1) {
  333. set %PBPlayer1Ready on
  334. if (%PBPlayer2Ready != on) {
  335. msg $chan Can %PBPlayer2 please say !BattleReady
  336. }
  337. }
  338. if ($nick == %PBPlayer2) {
  339. set %PBPlayer2Ready on
  340. if (%PBPlayer1Ready != on) {
  341. msg $chan Can %PBPlayer1 please say !BattleReady
  342. }
  343. }
  344. if (%PBPlayer1Ready == on) {
  345. if (%PBPlayer2Ready == on) {
  346. msg $chan Both players are ready!
  347. msg $chan It is %PBPlayer1 $+ 's turn!
  348. }
  349. }
  350. }
  351.  
  352. ;Moves for Bulbasaur
  353.  
  354. ON *:TEXT:!VineWhip:#: {
  355. if ($nick == %PBPlayer1) {
  356. if (%PBPlayer1Poke == Bulbasaur) {
  357. set %x $rand(1,7) {
  358. dec %PBPlayer2PokeHP %x
  359. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke stands his ground firmly in front of %PBPlayer2 $+ 's %PBPlayer2Poke and whips %PBPlayer2 $+ 's %PBPlayer2Poke with vines.
  360. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  361. if (%PBPlayer2PokeHP > 0) {
  362. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  363. msg $chan Now it's %PBPlayer2 $+ 's turn!
  364. }
  365. if (%PBPlayer2PokeHP <= 0) {
  366. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  367. unset %PB*
  368. }
  369. }
  370. }
  371. }
  372. if ($nick == %PBPlayer2) {
  373. if (%PBPlayer2Poke == Bulbasaur) {
  374. set %x $rand(1,7) {
  375. dec %PBPlayer1PokeHP %x
  376. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke stands his ground firmly in front of %PBPlayer1 $+ 's %PBPlayer1Poke and whips %PBPlayer1 $+ 's %PBPlayer1Poke with vines.
  377. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  378. if (%PBPlayer1PokeHP > 0) {
  379. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  380. msg $chan Now it's %PBPlayer1 $+ 's turn!
  381. }
  382. if (%PBPlayer1PokeHP <= 0) {
  383. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  384. unset %PB*
  385. }
  386. }
  387. }
  388. }
  389. }
  390.  
  391. ON *:TEXT:!RazorLeaf:#: {
  392. if ($nick == %PBPlayer1) {
  393. if (%PBPlayer1Poke == Bulbasaur) {
  394. set %x $rand(1,11) {
  395. dec %PBPlayer2PokeHP %x
  396. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke stands his ground firmly in front of %PBPlayer2 $+ 's %PBPlayer2Poke and throws razor sharp leaves at %PBPlayer2 $+ 's %PBPlayer2Poke $+ .
  397. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  398. if (%PBPlayer2PokeHP > 0) {
  399. msg $chan%PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  400. msg $chan Now it's %PBPlayer2 $+ 's turn!
  401. }
  402. if (%PBPlayer2PokeHP <= 0) {
  403. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  404. unset %PB*
  405. }
  406. }
  407. }
  408. }
  409. if ($nick == %PBPlayer2) {
  410. if (%PBPlayer2Poke == Bulbasaur) {
  411. set %x $rand(1,11) {
  412. dec %PBPlayer1PokeHP %x
  413. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke stands his ground firmly in front of %PBPlayer1 $+ 's %PBPlayer1Poke and throws razor sharp leaves at %PBPlayer1 $+ 's %PBPlayer1Poke $+ .
  414. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  415. if (%PBPlayer1PokeHP > 0) {
  416. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  417. msg $chan Now it's %PBPlayer1 $+ 's turn!
  418. }
  419. if (%PBPlayer1PokeHP <= 0) {
  420. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  421. unset %PB*
  422. }
  423. }
  424. }
  425. }
  426. }
  427.  
  428. ON *:TEXT:!SeedBomb:#: {
  429. if ($nick == %PBPlayer1) {
  430. if (%PBPlayer1Poke == Bulbasaur) {
  431. set %x $rand(1,16) {
  432. dec %PBPlayer2PokeHP %x
  433. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke stands his ground firmly in front of %PBPlayer2 $+ 's %PBPlayer2Poke and slams a barrage of hard-shelled seeds down on %PBPlayer2 $+ 's %PBPlayer2Poke $+ .
  434. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  435. if (%PBPlayer2PokeHP > 0) {
  436. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  437. msg $chan Now it's %PBPlayer2 $+ 's turn!
  438. }
  439. if (%PBPlayer2PokeHP <= 0) {
  440. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  441. unset %PB*
  442. }
  443. }
  444. }
  445. }
  446. if ($nick == %PBPlayer2) {
  447. if (%PBPlayer2Poke == Bulbasaur) {
  448. set %x $rand(1,16) {
  449. dec %PBPlayer1PokeHP %x
  450. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke stands his ground firmly in front of %PBPlayer1 $+ 's %PBPlayer1Poke and slams a barrage of hard-shelled seeds down on %PBPlayer1 $+ 's %PBPlayer1Poke $+ .
  451. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  452. if (%PBPlayer1PokeHP > 0) {
  453. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  454. msg $chan Now it's %PBPlayer1 $+ 's turn!
  455. }
  456. if (%PBPlayer1PokeHP <= 0) {
  457. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  458. unset %PB*
  459. }
  460. }
  461. }
  462. }
  463. }
  464.  
  465. ;Moves for Ivysaur
  466.  
  467. ON *:TEXT:!VineWhip:#: {
  468. if ($nick == %PBPlayer1) {
  469. if (%PBPlayer1Poke == Ivysaur) {
  470. if (%PBPlayer1Recharge != on) {
  471. set %x $rand(1,7) {
  472. dec %PBPlayer2PokeHP %x
  473. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke stands his ground firmly in front of %PBPlayer2 $+ 's %PBPlayer2Poke and whips %PBPlayer2 $+ 's %PBPlayer2Poke with vines.
  474. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  475. if (%PBPlayer2PokeHP > 0) {
  476. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  477. msg $chan Now it's %PBPlayer2 $+ 's turn!
  478. }
  479. if (%PBPlayer2PokeHP <= 0) {
  480. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  481. unset %PB*
  482. }
  483. }
  484. if (%PBPlayer1Recharge == on) {
  485. msg $chan Sorry %PBPlayer1 but you still have to recharge from your last attack.
  486. set %PBPlayer1Recharge off
  487. }
  488. }
  489. }
  490. }
  491. if ($nick == %PBPlayer2) {
  492. if (%PBPlayer2Poke == Ivysaur) {
  493. if (%PBPlayer2Recharge != on) {
  494. set %x $rand(1,7) {
  495. dec %PBPlayer1PokeHP %x
  496. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke stands his ground firmly in front of %PBPlayer1 $+ 's %PBPlayer1Poke and whips %PBPlayer1 $+ 's %PBPlayer1Poke with vines.
  497. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  498. if (%PBPlayer1PokeHP > 0) {
  499. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  500. msg $chan Now it's %PBPlayer1 $+ 's turn!
  501. }
  502. if (%PBPlayer1PokeHP <= 0) {
  503. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  504. unset %PB*
  505. }
  506. }
  507. if (%PBPlayer2Recharge == on) {
  508. msg $chan Sorry %PBPlayer2 but you still have to recharge from your last attack.
  509. set %PBPlayer2Recharge off
  510. }
  511. }
  512. }
  513. }
  514. }
  515.  
  516. ON *:TEXT:!RazorLeaf:#: {
  517. if ($nick == %PBPlayer1) {
  518. if (%PBPlayer1Poke == Ivysaur) {
  519. if (%PBPlayer1Recharge != on) {
  520. set %x $rand(1,11) {
  521. dec %PBPlayer2PokeHP %x
  522. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke stands his ground firmly in front of %PBPlayer2 $+ 's %PBPlayer2Poke and throws razor sharp leaves at %PBPlayer2 $+ 's %PBPlayer2Poke $+ .
  523. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  524. if (%PBPlayer2PokeHP > 0) {
  525. msg $chan%PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  526. msg $chan Now it's %PBPlayer2 $+ 's turn!
  527. }
  528. if (%PBPlayer2PokeHP <= 0) {
  529. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  530. unset %PB*
  531. }
  532. }
  533. if (%PBPlayer1Recharge == on) {
  534. msg $chan Sorry %PBPlayer1 but you still have to recharge from your last attack.
  535. set %PBPlayer1Recharge off
  536. }
  537. }
  538. }
  539. }
  540. if ($nick == %PBPlayer2) {
  541. if (%PBPlayer2Poke == Ivysaur) {
  542. if (%PBPlayer2Recharge != on) {
  543. set %x $rand(1,11) {
  544. dec %PBPlayer1PokeHP %x
  545. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke stands his ground firmly in front of %PBPlayer1 $+ 's %PBPlayer1Poke and throws razor sharp leaves at %PBPlayer1 $+ 's %PBPlayer1Poke $+ .
  546. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  547. if (%PBPlayer1PokeHP > 0) {
  548. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  549. msg $chan Now it's %PBPlayer1 $+ 's turn!
  550. }
  551. if (%PBPlayer1PokeHP <= 0) {
  552. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  553. unset %PB*
  554. }
  555. }
  556. if (%PBPlayer2Recharge == on) {
  557. msg $chan Sorry %PBPlayer2 but you still have to recharge from your last attack.
  558. set %PBPlayer2Recharge off
  559. }
  560. }
  561. }
  562. }
  563. }
  564.  
  565. ON *:TEXT:!Solarbeam:#: {
  566. if ($nick == %PBPlayer1) {
  567. if (%PBPlayer1Poke == Ivysaur) {
  568. if (%PBPlayer1Recharge != on) {
  569. set %x $rand(1,24) {
  570. dec %PBPlayer2PokeHP %x
  571. set %PBPlayer1Recharge on
  572. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke blasts a beam of light at %PBPlayer2 $+ 's %PBPlayer2Poke $+ .
  573. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  574. if (%PBPlayer2PokeHP > 0) {
  575. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  576. msg $chan Now it's %PBPlayer2 $+ 's turn!
  577. }
  578. if (%PBPlayer2PokeHP <= 0) {
  579. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  580. unset %PB*
  581. }
  582. }
  583. if (%PBPlayer1Recharge == on) {
  584. msg $chan Sorry %PBPlayer1 but you still have to recharge from your last attack.
  585. set %PBPlayer1Recharge off
  586. }
  587. }
  588. }
  589. }
  590. if ($nick == %PBPlayer2) {
  591. if (%PBPlayer2Poke == Ivysaur) {
  592. if (%PBPlayer2Recharge != on) {
  593. set %x $rand(1,24) {
  594. dec %PBPlayer1PokeHP %x
  595. set %PBPlayer2Recharge on
  596. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke blasts a beam of light at %PBPlayer1 $+ 's %PBPlayer1Poke $+ .
  597. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  598. if (%PBPlayer1PokeHP > 0) {
  599. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  600. msg $chan Now it's %PBPlayer1 $+ 's turn!
  601. }
  602. if (%PBPlayer1PokeHP <= 0) {
  603. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  604. unset %PB*
  605. }
  606. }
  607. if (%PBPlayer2Recharge == on) {
  608. msg $chan Sorry %PBPlayer2 but you still have to recharge from your last attack.
  609. set %PBPlayer2Recharge off
  610. }
  611. }
  612. }
  613. }
  614. }
  615.  
  616. ;Moves for Venusaur
  617.  
  618. ON *:TEXT:!VineWhip:#: {
  619. if ($nick == %PBPlayer1) {
  620. if (%PBPlayer1Poke == Venusaur) {
  621. if (%PBPlayer1Recharge != on) {
  622. set %x $rand(1,7) {
  623. dec %PBPlayer2PokeHP %x
  624. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke stands his ground firmly in front of %PBPlayer2 $+ 's %PBPlayer2Poke and whips %PBPlayer2 $+ 's %PBPlayer2Poke with vines.
  625. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  626. if (%PBPlayer2PokeHP > 0) {
  627. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  628. msg $chan Now it's %PBPlayer2 $+ 's turn!
  629. }
  630. if (%PBPlayer2PokeHP <= 0) {
  631. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  632. unset %PB*
  633. }
  634. }
  635. if (%PBPlayer1Recharge == on) {
  636. msg $chan Sorry %PBPlayer1 but you still have to recharge from your last attack.
  637. set %PBPlayer1Recharge off
  638. }
  639. }
  640. }
  641. }
  642. if ($nick == %PBPlayer2) {
  643. if (%PBPlayer2Poke == Venusaur) {
  644. if (%PBPlayer2Recharge != on) {
  645. set %x $rand(1,7) {
  646. dec %PBPlayer1PokeHP %x
  647. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke stands his ground firmly in front of %PBPlayer1 $+ 's %PBPlayer1Poke and whips %PBPlayer1 $+ 's %PBPlayer1Poke with vines.
  648. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  649. if (%PBPlayer1PokeHP > 0) {
  650. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  651. msg $chan Now it's %PBPlayer1 $+ 's turn!
  652. }
  653. if (%PBPlayer1PokeHP <= 0) {
  654. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  655. unset %PB*
  656. }
  657. }
  658. if (%PBPlayer2Recharge == on) {
  659. msg $chan Sorry %PBPlayer2 but you still have to recharge from your last attack.
  660. set %PBPlayer2Recharge off
  661. }
  662. }
  663. }
  664. }
  665. }
  666.  
  667. ON *:TEXT:!RazorLeaf:#: {
  668. if ($nick == %PBPlayer1) {
  669. if (%PBPlayer1Poke == Venusaur) {
  670. if (%PBPlayer1Recharge != on) {
  671. set %x $rand(1,11) {
  672. dec %PBPlayer2PokeHP %x
  673. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke stands his ground firmly in front of %PBPlayer2 $+ 's %PBPlayer2Poke and throws razor sharp leaves at %PBPlayer2 $+ 's %PBPlayer2Poke $+ .
  674. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  675. if (%PBPlayer2PokeHP > 0) {
  676. msg $chan%PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  677. msg $chan Now it's %PBPlayer2 $+ 's turn!
  678. }
  679. if (%PBPlayer2PokeHP <= 0) {
  680. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  681. unset %PB*
  682. }
  683. }
  684. if (%PBPlayer1Recharge == on) {
  685. msg $chan Sorry %PBPlayer1 but you still have to recharge from your last attack.
  686. set %PBPlayer1Recharge off
  687. }
  688. }
  689. }
  690. }
  691. if ($nick == %PBPlayer2) {
  692. if (%PBPlayer2Poke == Venusaur) {
  693. if (%PBPlayer2Recharge != on) {
  694. set %x $rand(1,11) {
  695. dec %PBPlayer1PokeHP %x
  696. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke stands his ground firmly in front of %PBPlayer1 $+ 's %PBPlayer1Poke and throws razor sharp leaves at %PBPlayer1 $+ 's %PBPlayer1Poke $+ .
  697. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  698. if (%PBPlayer1PokeHP > 0) {
  699. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  700. msg $chan Now it's %PBPlayer1 $+ 's turn!
  701. }
  702. if (%PBPlayer1PokeHP <= 0) {
  703. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  704. unset %PB*
  705. }
  706. }
  707. if (%PBPlayer2Recharge == on) {
  708. msg $chan Sorry %PBPlayer2 but you still have to recharge from your last attack.
  709. set %PBPlayer2Recharge off
  710. }
  711. }
  712. }
  713. }
  714. }
  715.  
  716. ON *:TEXT:!Solarbeam:#: {
  717. if ($nick == %PBPlayer1) {
  718. if (%PBPlayer1Poke == Venusaur) {
  719. if (%PBPlayer1Recharge != on) {
  720. set %x $rand(1,24) {
  721. dec %PBPlayer2PokeHP %x
  722. set %PBPlayer1Recharge on
  723. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke blasts a beam of light at %PBPlayer2 $+ 's %PBPlayer2Poke $+ .
  724. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  725. if (%PBPlayer2PokeHP > 0) {
  726. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  727. msg $chan Now it's %PBPlayer2 $+ 's turn!
  728. }
  729. if (%PBPlayer2PokeHP <= 0) {
  730. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  731. unset %PB*
  732. }
  733. }
  734. if (%PBPlayer1Recharge == on) {
  735. msg $chan Sorry %PBPlayer1 but you still have to recharge from your last attack.
  736. set %PBPlayer1Recharge off
  737. }
  738. }
  739. }
  740. }
  741. if ($nick == %PBPlayer2) {
  742. if (%PBPlayer2Poke == Venusaur) {
  743. if (%PBPlayer2Recharge != on) {
  744. set %x $rand(1,24) {
  745. dec %PBPlayer1PokeHP %x
  746. set %PBPlayer2Recharge on
  747. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke blasts a beam of light at %PBPlayer1 $+ 's %PBPlayer1Poke $+ .
  748. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  749. if (%PBPlayer1PokeHP > 0) {
  750. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  751. msg $chan Now it's %PBPlayer1 $+ 's turn!
  752. }
  753. if (%PBPlayer1PokeHP <= 0) {
  754. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  755. unset %PB*
  756. }
  757. }
  758. if (%PBPlayer2Recharge == on) {
  759. msg $chan Sorry %PBPlayer2 but you still have to recharge from your last attack.
  760. set %PBPlayer2Recharge off
  761. }
  762. }
  763. }
  764. }
  765. }
  766.  
  767. ;Moves for Charmander
  768.  
  769. ON *:TEXT:!Ember:#: {
  770. if ($nick == %PBPlayer1) {
  771. if (%PBPlayer1Poke == Charmander) {
  772. set %x $rand(1,8) {
  773. dec %PBPlayer2PokeHP %x
  774. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke attacks %PBPlayer2 $+ 's %PBPlayer2Poke with small flames.
  775. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  776. if (%PBPlayer2PokeHP > 0) {
  777. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  778. msg $chan Now it's %PBPlayer2 $+ 's turn!
  779. }
  780. if (%PBPlayer2PokeHP <= 0) {
  781. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  782. unset %PB*
  783. }
  784. }
  785. }
  786. }
  787. if ($nick == %PBPlayer2) {
  788. if (%PBPlayer2Poke == Charmander) {
  789. set %x $rand(1,8) {
  790. dec %PBPlayer1PokeHP %x
  791. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke attacks %PBPlayer1 $+ 's %PBPlayer1Poke with small flames.
  792. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  793. if (%PBPlayer1PokeHP > 0) {
  794. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  795. msg $chan Now it's %PBPlayer1 $+ 's turn!
  796. }
  797. if (%PBPlayer1PokeHP <= 0) {
  798. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  799. unset %PB*
  800. }
  801. }
  802. }
  803. }
  804. }
  805.  
  806. ON *:TEXT:!FireFang:#: {
  807. if ($nick == %PBPlayer1) {
  808. if (%PBPlayer1Poke == Charmander) {
  809. set %x $rand(1,13) {
  810. dec %PBPlayer2PokeHP %x
  811. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke bites %PBPlayer2 $+ 's %PBPlayer2Poke with flame-cloaked fangs.
  812. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  813. if (%PBPlayer2PokeHP > 0) {
  814. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  815. msg $chan Now it's %PBPlayer2 $+ 's turn!
  816. }
  817. if (%PBPlayer2PokeHP <= 0) {
  818. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  819. unset %PB*
  820. }
  821. }
  822. }
  823. }
  824. if ($nick == %PBPlayer2) {
  825. if (%PBPlayer2Poke == Charmander) {
  826. set %x $rand(1,13) {
  827. dec %PBPlayer1PokeHP %x
  828. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke bites %PBPlayer1 $+ 's %PBPlayer1Poke with flame-cloaked fangs.
  829. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  830. if (%PBPlayer1PokeHP > 0) {
  831. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  832. msg $chan Now it's %PBPlayer1 $+ 's turn!
  833. }
  834. if (%PBPlayer1PokeHP <= 0) {
  835. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  836. unset %PB*
  837. }
  838. }
  839. }
  840. }
  841. }
  842.  
  843. ON *:TEXT:!FlameThrower:#: {
  844. if ($nick == %PBPlayer1) {
  845. if (%PBPlayer1Poke == Charmander) {
  846. set %x $rand(1,19) {
  847. dec %PBPlayer2PokeHP %x
  848. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke scorches %PBPlayer2 $+ 's %PBPlayer2Poke with an intense blast of fire.
  849. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  850. if (%PBPlayer2PokeHP > 0) {
  851. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  852. msg $chan Now it's %PBPlayer2 $+ 's turn!
  853. }
  854. if (%PBPlayer2PokeHP <= 0) {
  855. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  856. unset %PB*
  857. }
  858. }
  859. }
  860. }
  861. if ($nick == %PBPlayer2) {
  862. if (%PBPlayer2Poke == Charmander) {
  863. set %x $rand(1,19) {
  864. dec %PBPlayer1PokeHP %x
  865. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke scorches %PBPlayer1 $+ 's %PBPlayer1Poke with an intense blast of fire.
  866. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  867. if (%PBPlayer1PokeHP > 0) {
  868. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  869. msg $chan Now it's %PBPlayer1 $+ 's turn!
  870. }
  871. if (%PBPlayer1PokeHP <= 0) {
  872. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  873. unset %PB*
  874. }
  875. }
  876. }
  877. }
  878. }
  879.  
  880. ;Moves for Charmeleon
  881. ON *:TEXT:!FireFang:#: {
  882. if ($nick == %PBPlayer1) {
  883. if (%PBPlayer1Poke == Charmeleon) {
  884. set %x $rand(1,13) {
  885. dec %PBPlayer2PokeHP %x
  886. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke bites %PBPlayer2 $+ 's %PBPlayer2Poke with flame-cloaked fangs.
  887. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  888. if (%PBPlayer2PokeHP > 0) {
  889. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  890. msg $chan Now it's %PBPlayer2 $+ 's turn!
  891. }
  892. if (%PBPlayer2PokeHP <= 0) {
  893. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  894. unset %PB*
  895. }
  896. }
  897. }
  898. }
  899. if ($nick == %PBPlayer2) {
  900. if (%PBPlayer2Poke == Charmeleon) {
  901. set %x $rand(1,13) {
  902. dec %PBPlayer1PokeHP %x
  903. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke bites %PBPlayer1 $+ 's %PBPlayer1Poke with flame-cloaked fangs.
  904. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  905. if (%PBPlayer1PokeHP > 0) {
  906. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  907. msg $chan Now it's %PBPlayer1 $+ 's turn!
  908. }
  909. if (%PBPlayer1PokeHP <= 0) {
  910. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  911. unset %PB*
  912. }
  913. }
  914. }
  915. }
  916. }
  917.  
  918. ON *:TEXT:!FlameThrower:#: {
  919. if ($nick == %PBPlayer1) {
  920. if (%PBPlayer1Poke == Charmeleon) {
  921. set %x $rand(1,19) {
  922. dec %PBPlayer2PokeHP %x
  923. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke scorches %PBPlayer2 $+ 's %PBPlayer2Poke with an intense blast of fire.
  924. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  925. if (%PBPlayer2PokeHP > 0) {
  926. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  927. msg $chan Now it's %PBPlayer2 $+ 's turn!
  928. }
  929. if (%PBPlayer2PokeHP <= 0) {
  930. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  931. unset %PB*
  932. }
  933. }
  934. }
  935. }
  936. if ($nick == %PBPlayer2) {
  937. if (%PBPlayer2Poke == Charmeleon) {
  938. set %x $rand(1,19) {
  939. dec %PBPlayer1PokeHP %x
  940. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke scorches %PBPlayer1 $+ 's %PBPlayer1Poke with an intense blast of fire.
  941. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  942. if (%PBPlayer1PokeHP > 0) {
  943. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  944. msg $chan Now it's %PBPlayer1 $+ 's turn!
  945. }
  946. if (%PBPlayer1PokeHP <= 0) {
  947. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  948. unset %PB*
  949. }
  950. }
  951. }
  952. }
  953. }
  954.  
  955. ON *:TEXT:!Inferno:#: {
  956. if ($nick == %PBPlayer1) {
  957. if (%PBPlayer1Poke == Charmeleon) {
  958. set %x $rand(1,20) {
  959. dec %PBPlayer2PokeHP %x
  960. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke engulfed %PBPlayer2 $+ 's %PBPlayer2Poke in an intense fire.
  961. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  962. if (%PBPlayer2PokeHP > 0) {
  963. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  964. msg $chan Now it's %PBPlayer2 $+ 's turn!
  965. }
  966. if (%PBPlayer2PokeHP <= 0) {
  967. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  968. unset %PB*
  969. }
  970. }
  971. }
  972. }
  973. if ($nick == %PBPlayer2) {
  974. if (%PBPlayer2Poke == Charmeleon) {
  975. set %x $rand(1,20) {
  976. dec %PBPlayer1PokeHP %x
  977. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke engulfed %PBPlayer1 $+ 's %PBPlayer1Poke in an intense fire.
  978. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  979. if (%PBPlayer1PokeHP > 0) {
  980. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  981. msg $chan Now it's %PBPlayer1 $+ 's turn!
  982. }
  983. if (%PBPlayer1PokeHP <= 0) {
  984. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  985. unset %PB*
  986. }
  987. }
  988. }
  989. }
  990. }
  991.  
  992. ;Moves for Charizard
  993. ON *:TEXT:!FireFang:#: {
  994. if ($nick == %PBPlayer1) {
  995. if (%PBPlayer1Poke == Charizard) {
  996. set %x $rand(1,13) {
  997. dec %PBPlayer2PokeHP %x
  998. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke bites %PBPlayer2 $+ 's %PBPlayer2Poke with flame-cloaked fangs.
  999. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  1000. if (%PBPlayer2PokeHP > 0) {
  1001. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  1002. msg $chan Now it's %PBPlayer2 $+ 's turn!
  1003. }
  1004. if (%PBPlayer2PokeHP <= 0) {
  1005. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  1006. unset %PB*
  1007. }
  1008. }
  1009. }
  1010. }
  1011. if ($nick == %PBPlayer2) {
  1012. if (%PBPlayer2Poke == Charizard) {
  1013. set %x $rand(1,13) {
  1014. dec %PBPlayer1PokeHP %x
  1015. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke bites %PBPlayer1 $+ 's %PBPlayer1Poke with flame-cloaked fangs.
  1016. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  1017. if (%PBPlayer1PokeHP > 0) {
  1018. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  1019. msg $chan Now it's %PBPlayer1 $+ 's turn!
  1020. }
  1021. if (%PBPlayer1PokeHP <= 0) {
  1022. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  1023. unset %PB*
  1024. }
  1025. }
  1026. }
  1027. }
  1028. }
  1029.  
  1030. ON *:TEXT:!FlameThrower:#: {
  1031. if ($nick == %PBPlayer1) {
  1032. if (%PBPlayer1Poke == Charizard) {
  1033. set %x $rand(1,19) {
  1034. dec %PBPlayer2PokeHP %x
  1035. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke scorches %PBPlayer2 $+ 's %PBPlayer2Poke with an intense blast of fire.
  1036. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  1037. if (%PBPlayer2PokeHP > 0) {
  1038. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  1039. msg $chan Now it's %PBPlayer2 $+ 's turn!
  1040. }
  1041. if (%PBPlayer2PokeHP <= 0) {
  1042. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  1043. unset %PB*
  1044. }
  1045. }
  1046. }
  1047. }
  1048. if ($nick == %PBPlayer2) {
  1049. if (%PBPlayer2Poke == Charizard) {
  1050. set %x $rand(1,19) {
  1051. dec %PBPlayer1PokeHP %x
  1052. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke scorches %PBPlayer1 $+ 's %PBPlayer1Poke with an intense blast of fire.
  1053. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  1054. if (%PBPlayer1PokeHP > 0) {
  1055. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  1056. msg $chan Now it's %PBPlayer1 $+ 's turn!
  1057. }
  1058. if (%PBPlayer1PokeHP <= 0) {
  1059. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  1060. unset %PB*
  1061. }
  1062. }
  1063. }
  1064. }
  1065. }
  1066.  
  1067. on *:text:!Inferno:#: {
  1068. if ($nick == %PBPlayer1) {
  1069. if (%PBPlayer1Poke == Charizard) {
  1070. set %x $rand(1,20) {
  1071. dec %PBPlayer2PokeHP %x
  1072. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke engulfed %PBPlayer2 $+ 's %PBPlayer2Poke in an intense fire.
  1073. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  1074. if (%PBPlayer2PokeHP > 0) {
  1075. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  1076. msg $chan Now it's %PBPlayer2 $+ 's turn!
  1077. }
  1078. if (%PBPlayer2PokeHP <= 0) {
  1079. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  1080. unset %PB*
  1081. }
  1082. }
  1083. }
  1084. }
  1085. if ($nick == %PBPlayer2) {
  1086. if (%PBPlayer2Poke == Charizard) {
  1087. set %x $rand(1,20) {
  1088. dec %PBPlayer1PokeHP %x
  1089. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke engulfed %PBPlayer1 $+ 's %PBPlayer1Poke in an intense fire.
  1090. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  1091. if (%PBPlayer1PokeHP > 0) {
  1092. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  1093. msg $chan Now it's %PBPlayer1 $+ 's turn!
  1094. }
  1095. if (%PBPlayer1PokeHP <= 0) {
  1096. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  1097. unset %PB*
  1098. }
  1099. }
  1100. }
  1101. }
  1102. }
  1103.  
  1104. ;Moves for Squirtle
  1105.  
  1106. ON *:TEXT:!WaterGun:#: {
  1107. if ($nick == %PBPlayer1) {
  1108. if (%PBPlayer1Poke == Squirtle) {
  1109. set %x $rand(1,8)
  1110. dec %PBPlayer2PokeHP %x
  1111. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke blasts %PBPlayer2 $+ 's %PBPlayer2Poke with a forceful shot of water.
  1112. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  1113. if (%PBPlayer2PokeHP > 0) {
  1114. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  1115. msg $chan Now it's %PBPlayer2 $+ 's turn!
  1116. }
  1117. if (%PBPlayer2PokeHP <= 0) {
  1118. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  1119. unset %PB*
  1120. }
  1121. }
  1122. }
  1123. if ($nick == %PBPlayer2) {
  1124. if (%PBPlayer2Poke == Squirtle) {
  1125. set %x $rand(1,8)
  1126. dec %PBPlayer1PokeHP %x
  1127. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke blasts %PBPlayer1 $+ 's %PBPlayer1Poke with a forceful shot of water.
  1128. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  1129. if (%PBPlayer1PokeHP > 0) {
  1130. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  1131. msg $chan Now it's %PBPlayer1 $+ 's turn!
  1132. }
  1133. if (%PBPlayer1PokeHP <= 0) {
  1134. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  1135. unset %PB*
  1136. }
  1137. }
  1138. }
  1139. }
  1140.  
  1141. ON *:TEXT:!WaterPulse:#: {
  1142. if ($nick == %PBPlayer1) {
  1143. if (%PBPlayer1Poke == Squirtle) {
  1144. set %x $rand(1,12)
  1145. dec %PBPlayer2PokeHP %x
  1146. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke attacks %PBPlayer2 $+ 's %PBPlayer2Poke with a pulsing blast of water.
  1147. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  1148. if (%PBPlayer2PokeHP > 0) {
  1149. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  1150. msg $chan Now it's %PBPlayer2 $+ 's turn!
  1151. }
  1152. if (%PBPlayer2PokeHP <= 0) {
  1153. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  1154. unset %PB*
  1155. }
  1156. }
  1157. }
  1158. if ($nick == %PBPlayer2) {
  1159. if (%PBPlayer2Poke == Squirtle) {
  1160. set %x $rand(1,12)
  1161. dec %PBPlayer1PokeHP %x
  1162. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke attacks %PBPlayer1 $+ 's %PBPlayer1Poke with a pulsing blast of water.
  1163. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  1164. if (%PBPlayer1PokeHP > 0) {
  1165. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  1166. msg $chan Now it's %PBPlayer1 $+ 's turn!
  1167. }
  1168. if (%PBPlayer1PokeHP <= 0) {
  1169. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  1170. unset %PB*
  1171. }
  1172. }
  1173. }
  1174. }
  1175.  
  1176. ON *:TEXT:!AquaTail:#: {
  1177. if ($nick == %PBPlayer1) {
  1178. if (%PBPlayer1Poke == Squirtle) {
  1179. set %x $rand(1,18)
  1180. dec %PBPlayer2PokeHP %x
  1181. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke attacks %PBPlayer2 $+ 's %PBPlayer2Poke with %PBPlayer1 $+ 's %PBPlayer1Poke $+ 's tail.
  1182. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  1183. if (%PBPlayer2PokeHP > 0) {
  1184. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  1185. msg $chan Now it's %PBPlayer2 $+ 's turn!
  1186. }
  1187. if (%PBPlayer2PokeHP <= 0) {
  1188. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  1189. unset %PB*
  1190. }
  1191. }
  1192. }
  1193. if ($nick == %PBPlayer2) {
  1194. if (%PBPlayer2Poke == Squirtle) {
  1195. set %x $rand(1,18)
  1196. dec %PBPlayer1PokeHP %x
  1197. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke attacks %PBPlayer1 $+ 's %PBPlayer1Poke with %PBPlayer2 $+ 's %PBPlayer2Poke $+ 's tail.
  1198. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  1199. if (%PBPlayer1PokeHP > 0) {
  1200. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  1201. msg $chan Now it's %PBPlayer1 $+ 's turn!
  1202. }
  1203. if (%PBPlayer1PokeHP <= 0) {
  1204. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  1205. unset %PB*
  1206. }
  1207. }
  1208. }
  1209. }
  1210.  
  1211. ;Moves for Wartortle
  1212.  
  1213. ON *:TEXT:!WaterPulse:#: {
  1214. if ($nick == %PBPlayer1) {
  1215. if (%PBPlayer1Poke == Wartortle) {
  1216. set %x $rand(1,12)
  1217. dec %PBPlayer2PokeHP %x
  1218. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke attacks %PBPlayer2 $+ 's %PBPlayer2Poke with a pulsing blast of water.
  1219. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  1220. if (%PBPlayer2PokeHP > 0) {
  1221. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  1222. msg $chan Now it's %PBPlayer2 $+ 's turn!
  1223. }
  1224. if (%PBPlayer2PokeHP <= 0) {
  1225. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  1226. unset %PB*
  1227. }
  1228. }
  1229. }
  1230. if ($nick == %PBPlayer2) {
  1231. if (%PBPlayer2Poke == Wartortle) {
  1232. set %x $rand(1,12)
  1233. dec %PBPlayer1PokeHP %x
  1234. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke attacks %PBPlayer1 $+ 's %PBPlayer1Poke with a pulsing blast of water.
  1235. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  1236. if (%PBPlayer1PokeHP > 0) {
  1237. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  1238. msg $chan Now it's %PBPlayer1 $+ 's turn!
  1239. }
  1240. if (%PBPlayer1PokeHP <= 0) {
  1241. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  1242. unset %PB*
  1243. }
  1244. }
  1245. }
  1246. }
  1247.  
  1248. ON *:TEXT:!AquaTail:#: {
  1249. if ($nick == %PBPlayer1) {
  1250. if (%PBPlayer1Poke == Wartortle) {
  1251. set %x $rand(1,18)
  1252. dec %PBPlayer2PokeHP %x
  1253. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke attacks %PBPlayer2 $+ 's %PBPlayer2Poke with %PBPlayer1 $+ 's %PBPlayer1Poke $+ 's tail.
  1254. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  1255. if (%PBPlayer2PokeHP > 0) {
  1256. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  1257. msg $chan Now it's %PBPlayer2 $+ 's turn!
  1258. }
  1259. if (%PBPlayer2PokeHP <= 0) {
  1260. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  1261. unset %PB*
  1262. }
  1263. }
  1264. }
  1265. if ($nick == %PBPlayer2) {
  1266. if (%PBPlayer2Poke == Wartortle) {
  1267. set %x $rand(1,18)
  1268. dec %PBPlayer1PokeHP %x
  1269. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke attacks %PBPlayer1 $+ 's %PBPlayer1Poke with %PBPlayer2 $+ 's %PBPlayer2Poke $+ 's tail.
  1270. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  1271. if (%PBPlayer1PokeHP > 0) {
  1272. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  1273. msg $chan Now it's %PBPlayer1 $+ 's turn!
  1274. }
  1275. if (%PBPlayer1PokeHP <= 0) {
  1276. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  1277. unset %PB*
  1278. }
  1279. }
  1280. }
  1281. }
  1282.  
  1283. ON *:TEXT:!HydroPump:#: {
  1284. if ($nick == %PBPlayer1) {
  1285. if (%PBPlayer1Poke == Wartortle) {
  1286. set %x $rand(1,24)
  1287. dec %PBPlayer2PokeHP %x
  1288. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke blasts %PBPlayer2 $+ 's %PBPlayer2Poke with a huge volume of water launched under great pressure.
  1289. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  1290. if (%PBPlayer2PokeHP > 0) {
  1291. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  1292. msg $chan Now it's %PBPlayer2 $+ 's turn!
  1293. }
  1294. if (%PBPlayer2PokeHP <= 0) {
  1295. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  1296. unset %PB*
  1297. }
  1298. }
  1299. }
  1300. if ($nick == %PBPlayer2) {
  1301. if (%PBPlayer2Poke == Wartortle) {
  1302. set %x $rand(1,24)
  1303. dec %PBPlayer1PokeHP %x
  1304. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke attacks %PBPlayer1 $+ 's %PBPlayer1Poke with a huge volume of water launched under great pressure.
  1305. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  1306. if (%PBPlayer1PokeHP > 0) {
  1307. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  1308. msg $chan Now it's %PBPlayer1 $+ 's turn!
  1309. }
  1310. if (%PBPlayer1PokeHP <= 0) {
  1311. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  1312. unset %PB*
  1313. }
  1314. }
  1315. }
  1316. }
  1317.  
  1318. ;Moves for Blastoise
  1319.  
  1320. ON *:TEXT:!WaterPulse:#: {
  1321. if ($nick == %PBPlayer1) {
  1322. if (%PBPlayer1Poke == Blastoise) {
  1323. set %x $rand(1,12)
  1324. dec %PBPlayer2PokeHP %x
  1325. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke attacks %PBPlayer2 $+ 's %PBPlayer2Poke with a pulsing blast of water.
  1326. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  1327. if (%PBPlayer2PokeHP > 0) {
  1328. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  1329. msg $chan Now it's %PBPlayer2 $+ 's turn!
  1330. }
  1331. if (%PBPlayer2PokeHP <= 0) {
  1332. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  1333. unset %PB*
  1334. }
  1335. }
  1336. }
  1337. if ($nick == %PBPlayer2) {
  1338. if (%PBPlayer2Poke == Blastoise) {
  1339. set %x $rand(1,12)
  1340. dec %PBPlayer1PokeHP %x
  1341. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke attacks %PBPlayer1 $+ 's %PBPlayer1Poke with a pulsing blast of water.
  1342. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  1343. if (%PBPlayer1PokeHP > 0) {
  1344. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  1345. msg $chan Now it's %PBPlayer1 $+ 's turn!
  1346. }
  1347. if (%PBPlayer1PokeHP <= 0) {
  1348. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  1349. unset %PB*
  1350. }
  1351. }
  1352. }
  1353. }
  1354.  
  1355. ON *:TEXT:!AquaTail:#: {
  1356. if ($nick == %PBPlayer1) {
  1357. if (%PBPlayer1Poke == Blastoise) {
  1358. set %x $rand(1,18)
  1359. dec %PBPlayer2PokeHP %x
  1360. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke attacks %PBPlayer2 $+ 's %PBPlayer2Poke with %PBPlayer1 $+ 's %PBPlayer1Poke $+ 's tail.
  1361. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  1362. if (%PBPlayer2PokeHP > 0) {
  1363. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  1364. msg $chan Now it's %PBPlayer2 $+ 's turn!
  1365. }
  1366. if (%PBPlayer2PokeHP <= 0) {
  1367. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  1368. unset %PB*
  1369. }
  1370. }
  1371. }
  1372. if ($nick == %PBPlayer2) {
  1373. if (%PBPlayer2Poke == Blastoise) {
  1374. set %x $rand(1,18)
  1375. dec %PBPlayer1PokeHP %x
  1376. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke attacks %PBPlayer1 $+ 's %PBPlayer1Poke with %PBPlayer2 $+ 's %PBPlayer2Poke $+ 's tail.
  1377. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  1378. if (%PBPlayer1PokeHP > 0) {
  1379. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  1380. msg $chan Now it's %PBPlayer1 $+ 's turn!
  1381. }
  1382. if (%PBPlayer1PokeHP <= 0) {
  1383. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  1384. unset %PB*
  1385. }
  1386. }
  1387. }
  1388. }
  1389.  
  1390. ON *:TEXT:!HydroPump:#: {
  1391. if ($nick == %PBPlayer1) {
  1392. if (%PBPlayer1Poke == Blastoise) {
  1393. set %x $rand(1,24)
  1394. dec %PBPlayer2PokeHP %x
  1395. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke blasts %PBPlayer2 $+ 's %PBPlayer2Poke with a huge volume of water launched under great pressure.
  1396. msg $chan The damage done to %PBPlayer2 $+ 's %PBPlayer2Poke was %x damage.
  1397. if (%PBPlayer2PokeHP > 0) {
  1398. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke HP is now %PBPlayer2PokeHP $+ .
  1399. msg $chan Now it's %PBPlayer2 $+ 's turn!
  1400. }
  1401. if (%PBPlayer2PokeHP <= 0) {
  1402. msg $chan Congrats %PBPlayer1 $+ ! You have beat %PBPlayer2 and won this battle!
  1403. unset %PB*
  1404. }
  1405. }
  1406. }
  1407. if ($nick == %PBPlayer2) {
  1408. if (%PBPlayer2Poke == Blastoise) {
  1409. set %x $rand(1,24)
  1410. dec %PBPlayer1PokeHP %x
  1411. msg $chan %PBPlayer2 $+ 's %PBPlayer2Poke attacks %PBPlayer1 $+ 's %PBPlayer1Poke with a huge volume of water launched under great pressure.
  1412. msg $chan The damage done to %PBPlayer1 $+ 's %PBPlayer1Poke was %x damage.
  1413. if (%PBPlayer1PokeHP > 0) {
  1414. msg $chan %PBPlayer1 $+ 's %PBPlayer1Poke HP is now %PBPlayer1PokeHP $+ .
  1415. msg $chan Now it's %PBPlayer1 $+ 's turn!
  1416. }
  1417. if (%PBPlayer1PokeHP <= 0) {
  1418. msg $chan Congrats %PBPlayer2 $+ ! You have beat %PBPlayer1 and won this battle!
  1419. unset %PB*
  1420. }
  1421. }
  1422. }
  1423. }
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!