SHARE
TWEET

Untitled

a guest Aug 17th, 2014 387 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'Pokemon Simulation
  2. mainwin 45 25
  3.  
  4. [start]
  5. count = 0
  6. superpotioncount = 5
  7. battleonstage = 0
  8. charizardhp = 255
  9. charizardatk = 188
  10. charizarddef = 180
  11. charizardspatk = 223
  12. charizardspdef = 190
  13. charizardspeed = 211
  14. charizardlevel = 70
  15. charizardtype1 = 10
  16. charizardtype2 = 3
  17. charizardname$ = "Charizard"
  18.  
  19. blastoisehp = 256
  20. blastoiseatk = 187
  21. blastoisedef = 211
  22. blastoisespatk = 190
  23. blastoisespdef = 218
  24. blastoisespeed = 180
  25. blastoiselevel = 70
  26. blastoisetype1 = 11
  27. blastoisetype2 = 0
  28. blastoisename$ = "Blastoise"
  29.  
  30. venusaurhp = 257
  31. venusauratk = 186
  32. venusaurdef = 187
  33. venusaurspatk = 211
  34. venusaurspdef = 211
  35. venusaurspeed = 183
  36. venusaurlevel = 70
  37. venusaurtype1 = 12
  38. venusaurtype2 = 4
  39. venusaurname$ = "Venusaur"
  40.  
  41. pikachuhp = 194
  42. pikachuatk = 148
  43. pikachudef = 113
  44. pikachuspatk = 141
  45. pikachuspdef = 127
  46. pikachuspeed = 197
  47. pikachulevel = 70
  48. pikachutype1 = 13
  49. pikachutype2 = 0
  50. pikachuname$ = "Pikachu"
  51.  
  52. solarbeamname$ = "Solarbeam"
  53. solarbeamtype = 12
  54. solarbeampower = 120
  55. solarbeamaccuracy = 100
  56. solarbeampp = 10
  57. solarbeamclass = 2
  58. solarbeamid = 76
  59.  
  60. earthquakename$ = "Earthquake"
  61. earthquaketype = 5
  62. earthquakepower = 100
  63. earthquakeaccuracy = 100
  64. earthquakepp = 10
  65. earthquakeclass = 1
  66. earthquakeid = 89
  67.  
  68. sludgebombname$ = "Sludge Bomb"
  69. sludgebombtype = 4
  70. sludgebombpower = 90
  71. sludgebombaccuracy = 100
  72. sludgebombpp = 10
  73. sludgebombclass = 2
  74. sludgebombid = 188
  75.  
  76. leafstormname$ = "Leaf Storm"
  77. leafstormtype = 12
  78. leafstormpower = 130
  79. leafstormaccuracy = 90
  80. leafstormpp = 5
  81. leafstormclass = 2
  82. leafstormid = 437
  83.  
  84. flamethrowername$ = "Flamethrower"
  85. flamethrowertype = 10
  86. flamethrowerpower = 90
  87. flamethroweraccuracy = 100
  88. flamethrowerpp = 15
  89. flamethrowerclass = 2
  90. flamethrowerid = 53
  91.  
  92. dragonclawname$ = "Dragon Claw"
  93. dragonclawtype = 16
  94. dragonclawpower = 80
  95. dragonclawaccuracy = 100
  96. dragonclawpp = 15
  97. dragonclawclass = 1
  98. dragonclawid = 337
  99.  
  100. flyname$ = "Fly"
  101. flytype = 3
  102. flypower = 90
  103. flyaccuracy = 95
  104. flypp = 15
  105. flyclass = 1
  106. flyid = 19
  107.  
  108. surfname$ = "Surf"
  109. surftype = 11
  110. surfpower = 90
  111. surfaccuracy = 100
  112. surfpp = 15
  113. surfclass = 2
  114. surfid = 57
  115.  
  116. icebeamname$ = "Ice Beam"
  117. icebeamtype = 15
  118. icebeampower = 90
  119. icebeamaccuracy = 100
  120. icebeampp = 10
  121. icebeamclass = 2
  122. icebeamid = 58
  123.  
  124. skullbashname$ = "Skull Bash"
  125. skullbashtype = 1
  126. skullbashpower = 130
  127. skullbashaccuracy = 100
  128. skullbashpp = 10
  129. skullbashclass = 1
  130. skullbashid = 130
  131.  
  132. thundername$ = "Thunder"
  133. thundertype = 13
  134. thunderpower = 110
  135. thunderaccuracy = 70
  136. thunderpp = 10
  137. thunderclass = 2
  138. thunderid = 87
  139.  
  140. volttacklename$ = "Volt Tackle"
  141. volttackletype = 13
  142. volttacklepower = 120
  143. volttackleaccuracy = 100
  144. volttacklepp = 15
  145. volttackleclass = 1
  146. volttackleid = 344
  147.  
  148. quickattackname$ = "Quick Attack"
  149. quickattacktype = 1
  150. quickattackpower = 40
  151. quickattackaccuracy = 100
  152. quickattackpp = 30
  153. quickattackclass = 1
  154. quickattackid = 98
  155.  
  156. strengthname$ = "Strength"
  157. strengthtype = 1
  158. strengthpower = 80
  159. strengthaccuracy = 100
  160. strengthpp = 15
  161. strengthclass = 1
  162. strengthid = 70
  163.  
  164. [userpokemoncheck]
  165. cls
  166. print "1) Charizard    2) Venusaur"
  167. print "3) Blastoise    4) Pikachu"
  168. input "What Pokemon do you want to use? ";pokemonuser
  169.  
  170. select case pokemonuser
  171.   case 1
  172.     userpokemonhp = charizardhp
  173.     userpokemonatk = charizardatk
  174.     userpokemondef = charizarddef
  175.     userpokemonspatk = charizardspatk
  176.     userpokemonspdef = charizardspdef
  177.     userpokemonspeed = charizardspeed
  178.     userpokemonname$ = charizardname$
  179.     userpokemonlevel = charizardlevel
  180.     userpokemontype1 = charizardtype1
  181.     userpokemontype2 = charizardtype2
  182.  
  183.     usermove1$ = flamethrowername$ : usermove1id = flamethrowerid
  184.     usermove1power = flamethrowerpower
  185.     usermove1accuracy = flamethroweraccuracy
  186.     usermove1pp = flamethrowerpp
  187.     usermove1type = flamethrowertype
  188.     usermove1class = flamethrowerclass
  189.  
  190.     usermove2$ = dragonclawname$ : usermove2id = dragonclawid
  191.     usermove2power = dragonclawpower
  192.     usermove2accuracy = dragonclawaccuracy
  193.     usermove2pp = dragonclawpp
  194.     usermove2type = dragonclawtype
  195.     usermove2class = dragonclawclass
  196.  
  197.     usermove3$ = earthquakename$ : usermove3id = earthquakeid
  198.     usermove3power = earthquakepower
  199.     usermove3accuracy = earthquakeaccuracy
  200.     usermove3pp = earthquakepp
  201.     usermove3type = earthquaketype
  202.     usermove3class = earthquakeclass
  203.  
  204.     usermove4$ = flyname$ : usermove4id = flyid
  205.     usermove4power = flypower
  206.     usermove4accuracy = flyaccuracy
  207.     usermove4pp = flypp
  208.     usermove4type = flytype
  209.     usermove4class = flyclass
  210.  
  211.   case 2
  212.     userpokemonhp = venusaurhp
  213.     userpokemonatk = venusauratk
  214.     userpokemondef = venusaurdef
  215.     userpokemonspatk = venusaurspatk
  216.     userpokemonspdef = venusaurspdef
  217.     userpokemonspeed = venusaurspeed
  218.     userpokemonname$ = venusaurname$
  219.     userpokemonlevel = venusaurlevel
  220.     userpokemontype1 = venusaurtype1
  221.     userpokemontype2 = venusaurtype2
  222.  
  223.     usermove1$ = solarbeamname$ : usermove1id = solarbeamid
  224.     usermove1power = solarbeampower
  225.     usermove1accuracy = solarbeamaccuracy
  226.     usermove1pp = solarbeampp
  227.     usermove1type = solarbeamtype
  228.     usermove1class = solarbeamclass
  229.  
  230.     usermove2$ = earthquakename$ : usermove2id = earthquakeid
  231.     usermove2power = earthquakepower
  232.     usermove2accuracy = earthquakeaccuracy
  233.     usermove2pp = earthquakepp
  234.     usermove2type = earthquaketype
  235.     usermove2class = earthquakeclass
  236.  
  237.     usermove3$ = sludgebombname$ : usermove3id = sludgebombid
  238.     usermove3power = sludgebombpower
  239.     usermove3accuracy = sludgebombaccuracy
  240.     usermove3pp = sludgebombpp
  241.     usermove3type = sludgebombtype
  242.     usermove3class = sludgebombclass
  243.  
  244.     usermove4$ = leafstormname$ : usermove4id = leafstormid
  245.     usermove4power = leafstormpower
  246.     usermove4accuracy = leafstormaccuracy
  247.     usermove4pp = leafstormpp
  248.     usermove4type = leafstormtype
  249.     usermove4class = leafstormclass
  250.   case 3
  251.     userpokemonhp = blastoisehp
  252.     userpokemonatk = blastoiseatk
  253.     userpokemondef = blastoisedef
  254.     userpokemonspatk = blastoisespatk
  255.     userpokemonspdef = blastoisespdef
  256.     userpokemonspeed = blastoisespeed
  257.     userpokemonname$ = blastoisename$
  258.     userpokemonlevel = blastoiselevel
  259.     userpokemontype1 = blastoisetype1
  260.     userpokemontype2 = blastoisetype2
  261.  
  262.     usermove1$ = surfname$ : usermove1id = surfid
  263.     usermove1power = surfpower
  264.     usermove1accuracy = surfaccuracy
  265.     usermove1pp = surfpp
  266.     usermove1type = surftype
  267.     usermove1class = surfclass
  268.  
  269.     usermove2$ = earthquakename$ : usermove2id = earthquakeid
  270.     usermove2power = earthquakepower
  271.     usermove2accuracy = earthquakeaccuracy
  272.     usermove2pp = earthquakepp
  273.     usermove2type = earthquaketype
  274.     usermove2class = earthquakeclass
  275.  
  276.     usermove3$ = icebeamname$ : usermove3id = icebeamid
  277.     usermove3power = icebeampower
  278.     usermove3accuracy = icebeamaccuracy
  279.     usermove3pp = icebeampp
  280.     usermove3type = icebeamtype
  281.     usermove3class = icebeamclass
  282.  
  283.     usermove4$ = skullbashname$ : usermove4id = skullbashid
  284.     usermove4power = skullbashpower
  285.     usermove4accuracy = skullbashaccuracy
  286.     usermove4pp = skullbashpp
  287.     usermove4type = skullbashtype
  288.     usermove4class = skullbashclass
  289.   case 4
  290.     userpokemonhp = pikachuhp
  291.     userpokemonatk = pikachuatk
  292.     userpokemondef = pikachudef
  293.     userpokemonspatk = pikachuspatk
  294.     userpokemonspdef = pikachuspdef
  295.     userpokemonspeed = pikachuspeed
  296.     userpokemonname$ = pikachuname$
  297.     userpokemonlevel = pikachulevel
  298.     userpokemontype1 = pikachutype1
  299.     userpokemontype2 = pikachutype2
  300.  
  301.     usermove1$ = thundername$ : usermove1id = thunderid
  302.     usermove1power = thunderpower
  303.     usermove1accuracy = thunderaccuracy
  304.     usermove1pp = thunderpp
  305.     usermove1type = thundertype
  306.     usermove1class = thunderclass
  307.  
  308.     usermove2$ = volttacklename$ : usermove2id = volttackleid
  309.     usermove2power = volttacklepower
  310.     usermove2accuracy = volttackleaccuracy
  311.     usermove2pp = volttacklepp
  312.     usermove2type = volttackletype
  313.     usermove2class = volttackleclass
  314.  
  315.     usermove3$ = quickattackname$ : usermove3id = quickattackid
  316.     usermove3power = quickattackpower
  317.     usermove3accuracy = quickattackaccuracy
  318.     usermove3pp = quickattackpp
  319.     usermove3type = quickattacktype
  320.     usermove3class = quickattackclass
  321.  
  322.     usermove4$ = strengthname$ : usermove4id = strengthid
  323.     usermove4power = strengthpower
  324.     usermove4accuracy = strengthaccuracy
  325.     usermove4pp = strengthpp
  326.     usermove4type = strengthtype
  327.     usermove4class = strengthclass
  328.   case else
  329.     goto [userpokemoncheck]
  330. end select
  331.  
  332. [cpupokemoncheck]
  333. cls
  334. print "1) Charizard    2) Venusaur"
  335. print "3) Blastoise    4) Pikachu"
  336. input "What Pokemon should the computer use? ";pokemoncpu
  337.  
  338. select case pokemoncpu
  339.   case 1
  340.     cpupokemonhp = charizardhp
  341.     cpupokemonatk = charizardatk
  342.     cpupokemondef = charizarddef
  343.     cpupokemonspatk = charizardspatk
  344.     cpupokemonspdef = charizardspdef
  345.     cpupokemonspeed = charizardspeed
  346.     cpupokemonname$ = charizardname$
  347.     cpupokemonlevel = charizardlevel
  348.     cpupokemontype1 = charizardtype1
  349.     cpupokemontype2 = charizardtype2
  350.  
  351.     cpumove1$ = flamethrowername$ : cpumove1id = flamethrowerid
  352.     cpumove1power = flamethrowerpower
  353.     cpumove1accuracy = flamethroweraccuracy
  354.     cpumove1pp = flamethrowerpp
  355.     cpumove1type = flamethrowertype
  356.     cpumove1class = flamethrowerclass
  357.  
  358.     cpumove2$ = dragonclawname$ : cpumove2id = dragonclawid
  359.     cpumove2power = dragonclawpower
  360.     cpumove2accuracy = dragonclawaccuracy
  361.     cpumove2pp = dragonclawpp
  362.     cpumove2type = dragonclawtype
  363.     cpumove2class = dragonclawclass
  364.  
  365.     cpumove3$ = earthquakename$ : cpumove3id = earthquakeid
  366.     cpumove3power = earthquakepower
  367.     cpumove3accuracy = earthquakeaccuracy
  368.     cpumove3pp = earthquakepp
  369.     cpumove3type = earthquaketype
  370.     cpumove3class = earthquakeclass
  371.  
  372.     cpumove4$ = flyname$ : cpumove4id = flyid
  373.     cpumove4power = flypower
  374.     cpumove4accuracy = flyaccuracy
  375.     cpumove4pp = flypp
  376.     cpumove4type = flytype
  377.     cpumove4class = flyclass
  378.  
  379.   case 2
  380.     cpupokemonhp = venusaurhp
  381.     cpupokemonatk = venusauratk
  382.     cpupokemondef = venusaurdef
  383.     cpupokemonspatk = venusaurspatk
  384.     cpupokemonspdef = venusaurspdef
  385.     cpupokemonspeed = venusaurspeed
  386.     cpupokemonname$ = venusaurname$
  387.     cpupokemonlevel = venusaurlevel
  388.     cpupokemontype1 = venusaurtype1
  389.     cpupokemontype2 = venusaurtype2
  390.  
  391.     cpumove1$ = solarbeamname$ : cpumove1id = solarbeamid
  392.     cpumove1power = solarbeampower
  393.     cpumove1accuracy = solarbeamaccuracy
  394.     cpumove1pp = solarbeampp
  395.     cpumove1type = solarbeamtype
  396.     cpumove1class = solarbeamclass
  397.  
  398.     cpumove2$ = earthquakename$ : cpumove2id = earthquakeid
  399.     cpumove2power = earthquakepower
  400.     cpumove2accuracy = earthquakeaccuracy
  401.     cpumove2pp = earthquakepp
  402.     cpumove2type = earthquaketype
  403.     cpumove2class = earthquakeclass
  404.  
  405.     cpumove3$ = sludgebombname$ : cpumove3id = sludgebombid
  406.     cpumove3power = sludgebombpower
  407.     cpumove3accuracy = sludgebombaccuracy
  408.     cpumove3pp = sludgebombpp
  409.     cpumove3type = sludgebombtype
  410.     cpumove3class = sludgebombclass
  411.  
  412.     cpumove4$ = leafstormname$ : cpumove4id = leafstormid
  413.     cpumove4power = leafstormpower
  414.     cpumove4accuracy = leafstormaccuracy
  415.     cpumove4pp = leafstormpp
  416.     cpumove4type = leafstormtype
  417.     cpumove4class = leafstormclass
  418.   case 3
  419.     cpupokemonhp = blastoisehp
  420.     cpupokemonatk = blastoiseatk
  421.     cpupokemondef = blastoisedef
  422.     cpupokemonspatk = blastoisespatk
  423.     cpupokemonspdef = blastoisespdef
  424.     cpupokemonspeed = blastoisespeed
  425.     cpupokemonname$ = blastoisename$
  426.     cpupokemonlevel = blastoiselevel
  427.     cpupokemontype1 = blastoisetype1
  428.     cpupokemontype2 = blastoisetype2
  429.  
  430.     cpumove1$ = surfname$ : cpumove1id = surfid
  431.     cpumove1power = surfpower
  432.     cpumove1accuracy = surfaccuracy
  433.     cpumove1pp = surfpp
  434.     cpumove1type = surftype
  435.     cpumove1class = surfclass
  436.  
  437.     cpumove2$ = earthquakename$ : cpumove2id = earthquakeid
  438.     cpumove2power = earthquakepower
  439.     cpumove2accuracy = earthquakeaccuracy
  440.     cpumove2pp = earthquakepp
  441.     cpumove2type = earthquaketype
  442.     cpumove2class = earthquakeclass
  443.  
  444.     cpumove3$ = icebeamname$ : cpumove3id = icebeamid
  445.     cpumove3power = icebeampower
  446.     cpumove3accuracy = icebeamaccuracy
  447.     cpumove3pp = icebeampp
  448.     cpumove3type = icebeamtype
  449.     cpumove3class = icebeamclass
  450.  
  451.     cpumove4$ = skullbashname$ : cpumove4id = skullbashid
  452.     cpumove4power = skullbashpower
  453.     cpumove4accuracy = skullbashaccuracy
  454.     cpumove4pp = skullbashpp
  455.     cpumove4type = skullbashtype
  456.     cpumove4class = skullbashclass
  457.   case 4
  458.     cpupokemonhp = pikachuhp
  459.     cpupokemonatk = pikachuatk
  460.     cpupokemondef = pikachudef
  461.     cpupokemonspatk = pikachuspatk
  462.     cpupokemonspdef = pikachuspdef
  463.     cpupokemonspeed = pikachuspeed
  464.     cpupokemonname$ = pikachuname$
  465.     cpupokemonlevel = pikachulevel
  466.     cpupokemontype1 = pikachutype1
  467.     cpupokemontype2 = pikachutype2
  468.  
  469.     cpumove1$ = thundername$ : cpumove1id = thunderid
  470.     cpumove1power = thunderpower
  471.     cpumove1accuracy = thunderaccuracy
  472.     cpumove1pp = thunderpp
  473.     cpumove1type = thundertype
  474.     cpumove1class = thunderclass
  475.  
  476.     cpumove2$ = volttacklename$ : cpumove2id = volttackleid
  477.     cpumove2power = volttacklepower
  478.     cpumove2accuracy = volttackleaccuracy
  479.     cpumove2pp = volttacklepp
  480.     cpumove2type = volttackletype
  481.     cpumove2class = volttackleclass
  482.  
  483.     cpumove3$ = quickattackname$ : cpumove3id = quickattackid
  484.     cpumove3power = quickattackpower
  485.     cpumove3accuracy = quickattackaccuracy
  486.     cpumove3pp = quickattackpp
  487.     cpumove3type = quickattacktype
  488.     cpumove3class = quickattackclass
  489.  
  490.     cpumove4$ = strengthname$ : cpumove4id = strengthid
  491.     cpumove4power = strengthpower
  492.     cpumove4accuracy = strengthaccuracy
  493.     cpumove4pp = strengthpp
  494.     cpumove4type = strengthtype
  495.     cpumove4class = strengthclass
  496.   case else
  497.     goto [cpupokemoncheck]
  498. end select
  499.  
  500.  
  501. [start1]
  502. timecheck1 = time$("ms")
  503. count = count + 1
  504.  
  505. [flash]
  506. timecheck2 = time$("ms")
  507. flashtimestart = time$("ms")
  508. time1 = (timecheck2 - timecheck1)/1000
  509. cls
  510. if time1 > 0.04 then goto [start_sequence]
  511. goto [flash]
  512.  
  513. [start_sequence]
  514.   locate 1, 1 : print "****************************************"
  515.   locate 1, 2 : print "*"
  516.   locate 1, 3 : print "*"
  517.   locate 1, 4 : print "*"
  518.   locate 1, 5 : print "*"
  519.   locate 1, 6 : print "*"
  520.   locate 1, 7 : print "*"
  521.   locate 1, 8 : print "*"
  522.   locate 1, 9 : print "*"
  523.   locate 1, 10 : print "*"
  524.   locate 1, 11 : print "*"
  525.   locate 1, 12 : print "*"
  526.   locate 1, 13 : print "*"
  527.   locate 1, 14 : print "*"
  528.   locate 1, 15 : print "*"
  529.   locate 1, 16 : print "*"
  530.   locate 1, 17 : print "*"
  531.   locate 1, 18 : print "*"
  532.   locate 1, 19 : print "*"
  533.   locate 40, 2 : print "*"
  534.   locate 40, 3 : print "*"
  535.   locate 40, 4 : print "*"
  536.   locate 40, 5 : print "*"
  537.   locate 40, 6 : print "*"
  538.   locate 40, 7 : print "*"
  539.   locate 40, 8 : print "*"
  540.   locate 40, 9 : print "*"
  541.   locate 40, 10 : print "*"
  542.   locate 40, 11 : print "*"
  543.   locate 40, 12 : print "*"
  544.   locate 40, 13 : print "*"
  545.   locate 40, 14 : print "*"
  546.   locate 40, 15 : print "*"
  547.   locate 40, 16 : print "*"
  548.   locate 40, 17 : print "*"
  549.   locate 40, 18 : print "*"
  550.   locate 40, 19 : print "*"
  551.   locate 1, 20 : print "****************************************"
  552.  
  553.   select case battleonstage
  554.     case 1
  555.       goto [sequence_pokemonthrow]
  556.     case 2
  557.       goto [sequence_battlemenu]
  558.     case 3
  559.       goto [choice_cpu]
  560.     case 4
  561.       goto [sequence_battlebagselect]
  562.     case 5
  563.       goto [sequence_battlepokemonselect]
  564.     case 6
  565.       goto [sequence_runaway]
  566.   end select
  567.  
  568.   flashtimecheck = time$("ms")
  569.   time = (flashtimecheck - flashtimestart)/1000
  570.  
  571.   if count = 6 then goto [stopflash]
  572.  
  573.   if time > 0.04 then
  574.     goto [start1]
  575.   else
  576.     goto [start_sequence]
  577.   end if
  578.  
  579. [stopflash]
  580.   locate 2, 16 : print "######################################"
  581.   locate 2, 19 : print "######################################"
  582.   locate 2, 17 : print "#"
  583.   locate 2, 18 : print "#"
  584.   locate 39, 17 : print "#"
  585.   locate 39, 18 : print "#"
  586.  
  587.   locate 5, 17 : print "A wild Pokemon appeared!"
  588.   locate 37, 17 : input "V";dummy$
  589.   battleonstage = 1 : cls
  590.   goto [start_sequence]
  591.  
  592. [sequence_pokemonthrow]
  593.   locate 2, 16 : print "######################################"
  594.   locate 2, 19 : print "######################################"
  595.   locate 2, 17 : print "#"
  596.   locate 2, 18 : print "#"
  597.   locate 39, 17 : print "#"
  598.   locate 39, 18 : print "#"
  599.  
  600.   locate 3, 11 : print "---------------------"
  601.   locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
  602.   locate 3, 13 : print "---------------------"
  603.  
  604.   locate 17, 4 : print "---------------------"
  605.   locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
  606.   locate 17, 6 : print "---------------------"
  607.  
  608.   locate 5, 17 : print userpokemonname$+", I choose you!"
  609.   locate 37, 17 : input "V";dummy$
  610.   battleonstage = 2 : cls
  611.   goto [start_sequence]
  612.  
  613. [sequence_battlemenu]
  614.   if fly = 1 then
  615.     fly = 2
  616.     goto [choice_cpu]
  617.   end if
  618.   if fly = 2 then fly = 0
  619.   potion = 0
  620.   cls
  621.   locate 1, 1 : print "****************************************"
  622.   locate 1, 2 : print "*"
  623.   locate 1, 3 : print "*"
  624.   locate 1, 4 : print "*"
  625.   locate 1, 5 : print "*"
  626.   locate 1, 6 : print "*"
  627.   locate 1, 7 : print "*"
  628.   locate 1, 8 : print "*"
  629.   locate 1, 9 : print "*"
  630.   locate 1, 10 : print "*"
  631.   locate 1, 11 : print "*"
  632.   locate 1, 12 : print "*"
  633.   locate 1, 13 : print "*"
  634.   locate 1, 14 : print "*"
  635.   locate 1, 15 : print "*"
  636.   locate 1, 16 : print "*"
  637.   locate 1, 17 : print "*"
  638.   locate 1, 18 : print "*"
  639.   locate 1, 19 : print "*"
  640.   locate 40, 2 : print "*"
  641.   locate 40, 3 : print "*"
  642.   locate 40, 4 : print "*"
  643.   locate 40, 5 : print "*"
  644.   locate 40, 6 : print "*"
  645.   locate 40, 7 : print "*"
  646.   locate 40, 8 : print "*"
  647.   locate 40, 9 : print "*"
  648.   locate 40, 10 : print "*"
  649.   locate 40, 11 : print "*"
  650.   locate 40, 12 : print "*"
  651.   locate 40, 13 : print "*"
  652.   locate 40, 14 : print "*"
  653.   locate 40, 15 : print "*"
  654.   locate 40, 16 : print "*"
  655.   locate 40, 17 : print "*"
  656.   locate 40, 18 : print "*"
  657.   locate 40, 19 : print "*"
  658.   locate 1, 20 : print "****************************************"
  659.   locate 2, 16 : print "######################################"
  660.   locate 2, 19 : print "######################################"
  661.   locate 2, 17 : print "#"
  662.   locate 2, 18 : print "#"
  663.   locate 39, 17 : print "#"
  664.   locate 39, 18 : print "#"
  665.  
  666.   locate 3, 11 : print "---------------------"
  667.   locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
  668.   locate 3, 13 : print "---------------------"
  669.  
  670.   locate 17, 4 : print "---------------------"
  671.   locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
  672.   locate 17, 6 : print "---------------------"
  673.  
  674.   locate 4, 17 : print "1) Battle"
  675.   locate 4, 18 : print "3) Pokemon"
  676.   locate 19, 17 : print "2) Bag"
  677.   locate 19, 18 : print "4) Run"
  678.   locate 36, 17 : input "V";choice
  679.  
  680.   select case choice
  681.     case 1
  682.       battleonstage = 3
  683.       goto [start_sequence]
  684.     case 2
  685.       battleonstage = 4
  686.       goto [start_sequence]
  687.     case 3
  688.       battleonstage = 5
  689.       goto [start_sequence]
  690.     case 4
  691.       battleonstage = 6
  692.       goto [start_sequence]
  693.     case else
  694.       goto [sequence_battlemenu]
  695.   end select
  696.  
  697. [choice_cpu]
  698. qa = 0
  699. cpuqa = 0
  700. if cpufly = 1 then
  701.   cpufly = 2
  702.   goto [cpures]
  703. end if
  704. cpueffectivecheck = 0
  705. cpuhastoplay = 0
  706. usercount = 0
  707. cpucount = 0
  708. cpunull = 0
  709. nulleffect = 0
  710.  
  711. movechoicecpu = int(rnd(1)*4)+1
  712.  
  713. select case movechoicecpu
  714.   case 1
  715.     if cpumove1pp = 0 then
  716.       goto [choice_cpu]
  717.     end if
  718.     a = cpupokemonlevel
  719.     if cpumove1class = 1 then
  720.       b = cpupokemonatk
  721.     else
  722.       b = cpupokemonspatk
  723.     end if
  724.     c = cpumove1power
  725.     if cpumove1class = 1 then
  726.       d = userpokemondef
  727.     else
  728.       d = userpokemonspdef
  729.     end if
  730.     if cpumove1type = cpupokemontype1 or cpumove1type = cpupokemontype2 then
  731.       x = 1.5
  732.     else
  733.       x = 1
  734.     end if
  735.  
  736.     cpumoveused = 1
  737.  
  738.     if cpumove1type = 12 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  739.     if cpumove1type = 12 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  740.     if cpumove1type = 12 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  741.     if cpumove1type = 12 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  742.     if cpumove1type = 12 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  743.     if cpumove1type = 12 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  744.     if cpumove1type = 12 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  745.     if cpumove1type = 12 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  746.     if cpumove1type = 12 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  747.     if cpumove1type = 12 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  748.     if cpumove1type = 12 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  749.     if cpumove1type = 12 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  750.     if cpumove1type = 12 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  751.     if cpumove1type = 12 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  752.     if cpumove1type = 12 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  753.     if cpumove1type = 12 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  754.     if cpumove1type = 10 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  755.     if cpumove1type = 10 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  756.     if cpumove1type = 10 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  757.     if cpumove1type = 10 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  758.     if cpumove1type = 10 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  759.     if cpumove1type = 10 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  760.     if cpumove1type = 10 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  761.     if cpumove1type = 10 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  762.     if cpumove1type = 10 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  763.     if cpumove1type = 10 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  764.     if cpumove1type = 10 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  765.     if cpumove1type = 10 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  766.     if cpumove1type = 3 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  767.     if cpumove1type = 3 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  768.     if cpumove1type = 3 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  769.     if cpumove1type = 3 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  770.     if cpumove1type = 3 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  771.     if cpumove1type = 3 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  772.     if cpumove1type = 3 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  773.     if cpumove1type = 3 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  774.     if cpumove1type = 11 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  775.     if cpumove1type = 11 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  776.     if cpumove1type = 11 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  777.     if cpumove1type = 11 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  778.     if cpumove1type = 11 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  779.     if cpumove1type = 11 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  780.     if cpumove1type = 11 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  781.     if cpumove1type = 11 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  782.     if cpumove1type = 11 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  783.     if cpumove1type = 11 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  784.     if cpumove1type = 11 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  785.     if cpumove1type = 11 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  786.     if cpumove1type = 13 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  787.     if cpumove1type = 13 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  788.     if cpumove1type = 13 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  789.     if cpumove1type = 13 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  790.     if cpumove1type = 13 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  791.     if cpumove1type = 13 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  792.     if cpumove1type = 13 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  793.     if cpumove1type = 13 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  794.     if cpumove1type = 13 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  795.     if cpumove1type = 13 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  796.     if cpumove1type = 13 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  797.     if cpumove1type = 13 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  798.     if cpumove1type = 13 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  799.     if cpumove1type = 13 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  800.     if cpumove1type = 13 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  801.     if cpumove1type = 13 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  802.     if cpumove1type = 4 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  803.     if cpumove1type = 4 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  804.     if cpumove1type = 4 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  805.     if cpumove1type = 4 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  806.     if cpumove1type = 4 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  807.     if cpumove1type = 4 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  808.     if cpumove1type = 4 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  809.     if cpumove1type = 4 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  810.     if cpumove1type = 15 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  811.     if cpumove1type = 15 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  812.     if cpumove1type = 15 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  813.     if cpumove1type = 15 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  814.     if cpumove1type = 15 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  815.     if cpumove1type = 15 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  816.     if cpumove1type = 15 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  817.     if cpumove1type = 15 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  818.     if cpumove1type = 15 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  819.     if cpumove1type = 15 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  820.     if cpumove1type = 15 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  821.     if cpumove1type = 15 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  822.     if cpumove1type = 15 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  823.     if cpumove1type = 15 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  824.     if cpumove1type = 15 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  825.     if cpumove1type = 15 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  826.     if cpumove1type = 5 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  827.     if cpumove1type = 5 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  828.     if cpumove1type = 5 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  829.     if cpumove1type = 5 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  830.     if cpumove1type = 5 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  831.     if cpumove1type = 5 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  832.     if cpumove1type = 5 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  833.     if cpumove1type = 5 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  834.     if cpumove1type = 5 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  835.     if cpumove1type = 5 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  836.     if cpumove1type = 5 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  837.     if cpumove1type = 5 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  838.     if cpumove1type = 5 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  839.     if cpumove1type = 5 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  840.     if cpumove1type = 5 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  841.     if cpumove1type = 5 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  842.  
  843.     if cpueffectivecheck >= 4 then
  844.       y = 40
  845.       cpuse = 1
  846.     end if
  847.     if cpueffectivecheck = 2 then
  848.       y = 20
  849.       cpuse = 1
  850.     end if
  851.     if cpueffectivecheck = 0 then
  852.       y = 10
  853.       cpuse = 0
  854.     end if
  855.     if cpueffectivecheck = -2 then
  856.       y = 5
  857.       cpuse = -1
  858.     end if
  859.     if cpueffectivecheck <= -4 then
  860.       y = 2.5
  861.       cpuse = -1
  862.     end if
  863.  
  864.     if cpumove1type = 5 and userpokemontype1 = 3 then y = 0
  865.     if cpumove1type = 5 and userpokemontype1 = 3 then y = 0
  866.     if cpumove1type = 5 and userpokemontype2 = 3 then y = 0
  867.     if cpumove1type = 5 and userpokemontype2 = 3 then y = 0
  868.  
  869.     goto [cpures]
  870.   case 2
  871.     if cpumove2pp = 0 then
  872.       goto [choice_cpu]
  873.     end if
  874.     a = cpupokemonlevel
  875.     if cpumove2class = 1 then
  876.       b = cpupokemonatk
  877.     else
  878.       b = cpupokemonspatk
  879.     end if
  880.     c = cpumove2power
  881.     if cpumove2class = 1 then
  882.       d = userpokemondef
  883.     else
  884.       d = userpokemonspdef
  885.     end if
  886.     if cpumove2type = cpupokemontype1 or cpumove2type = cpupokemontype2 then
  887.       x = 1.5
  888.     else
  889.       x = 1
  890.     end if
  891.  
  892.     cpumoveused = 2
  893.  
  894.     if cpumove2type = 12 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  895.     if cpumove2type = 12 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  896.     if cpumove2type = 12 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  897.     if cpumove2type = 12 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  898.     if cpumove2type = 12 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  899.     if cpumove2type = 12 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  900.     if cpumove2type = 12 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  901.     if cpumove2type = 12 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  902.     if cpumove2type = 12 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  903.     if cpumove2type = 12 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  904.     if cpumove2type = 12 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  905.     if cpumove2type = 12 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  906.     if cpumove2type = 12 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  907.     if cpumove2type = 12 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  908.     if cpumove2type = 12 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  909.     if cpumove2type = 12 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  910.     if cpumove2type = 10 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  911.     if cpumove2type = 10 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  912.     if cpumove2type = 10 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  913.     if cpumove2type = 10 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  914.     if cpumove2type = 10 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  915.     if cpumove2type = 10 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  916.     if cpumove2type = 10 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  917.     if cpumove2type = 10 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  918.     if cpumove2type = 10 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  919.     if cpumove2type = 10 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  920.     if cpumove2type = 10 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  921.     if cpumove2type = 10 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  922.     if cpumove2type = 3 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  923.     if cpumove2type = 3 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  924.     if cpumove2type = 3 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  925.     if cpumove2type = 3 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  926.     if cpumove2type = 3 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  927.     if cpumove2type = 3 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  928.     if cpumove2type = 3 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  929.     if cpumove2type = 3 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  930.     if cpumove2type = 11 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  931.     if cpumove2type = 11 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  932.     if cpumove2type = 11 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  933.     if cpumove2type = 11 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  934.     if cpumove2type = 11 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  935.     if cpumove2type = 11 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  936.     if cpumove2type = 11 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  937.     if cpumove2type = 11 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  938.     if cpumove2type = 11 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  939.     if cpumove2type = 11 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  940.     if cpumove2type = 11 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  941.     if cpumove2type = 11 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  942.     if cpumove2type = 13 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  943.     if cpumove2type = 13 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  944.     if cpumove2type = 13 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  945.     if cpumove2type = 13 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  946.     if cpumove2type = 13 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  947.     if cpumove2type = 13 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  948.     if cpumove2type = 13 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  949.     if cpumove2type = 13 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  950.     if cpumove2type = 13 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  951.     if cpumove2type = 13 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  952.     if cpumove2type = 13 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  953.     if cpumove2type = 13 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  954.     if cpumove2type = 13 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  955.     if cpumove2type = 13 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  956.     if cpumove2type = 13 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  957.     if cpumove2type = 13 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  958.     if cpumove2type = 4 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  959.     if cpumove2type = 4 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  960.     if cpumove2type = 4 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  961.     if cpumove2type = 4 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  962.     if cpumove2type = 4 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  963.     if cpumove2type = 4 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  964.     if cpumove2type = 4 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  965.     if cpumove2type = 4 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  966.     if cpumove2type = 15 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  967.     if cpumove2type = 15 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  968.     if cpumove2type = 15 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  969.     if cpumove2type = 15 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  970.     if cpumove2type = 15 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  971.     if cpumove2type = 15 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  972.     if cpumove2type = 15 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  973.     if cpumove2type = 15 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  974.     if cpumove2type = 15 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  975.     if cpumove2type = 15 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  976.     if cpumove2type = 15 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  977.     if cpumove2type = 15 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  978.     if cpumove2type = 15 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  979.     if cpumove2type = 15 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  980.     if cpumove2type = 15 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  981.     if cpumove2type = 15 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  982.     if cpumove2type = 5 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  983.     if cpumove2type = 5 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  984.     if cpumove2type = 5 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  985.     if cpumove2type = 5 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  986.     if cpumove2type = 5 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  987.     if cpumove2type = 5 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  988.     if cpumove2type = 5 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  989.     if cpumove2type = 5 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  990.     if cpumove2type = 5 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  991.     if cpumove2type = 5 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  992.     if cpumove2type = 5 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  993.     if cpumove2type = 5 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  994.     if cpumove2type = 5 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  995.     if cpumove2type = 5 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  996.     if cpumove2type = 5 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  997.     if cpumove2type = 5 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  998.  
  999.  
  1000.     if cpueffectivecheck >= 4 then
  1001.       y = 40
  1002.       cpuse = 1
  1003.     end if
  1004.     if cpueffectivecheck = 2 then
  1005.       y = 20
  1006.       cpuse = 1
  1007.     end if
  1008.     if cpueffectivecheck = 0 then
  1009.       y = 10
  1010.       cpuse = 0
  1011.     end if
  1012.     if cpueffectivecheck = -2 then
  1013.       y = 5
  1014.       cpuse = -1
  1015.     end if
  1016.     if cpueffectivecheck <= -4 then
  1017.       y = 2.5
  1018.       cpuse = -1
  1019.     end if
  1020.  
  1021.     if cpumove2type = 5 and userpokemontype1 = 3 then y = 0
  1022.     if cpumove2type = 5 and userpokemontype1 = 3 then y = 0
  1023.     if cpumove2type = 5 and userpokemontype2 = 3 then y = 0
  1024.     if cpumove2type = 5 and userpokemontype2 = 3 then y = 0
  1025.  
  1026.  
  1027.     goto [cpures]
  1028.   case 3
  1029.     if cpumove1id = quickattackid then cpuqa = 1
  1030.     if cpumove3pp = 0 then
  1031.       goto [choice_cpu]
  1032.     end if
  1033.     a = cpupokemonlevel
  1034.     if cpumove3class = 1 then
  1035.       b = cpupokemonatk
  1036.     else
  1037.       b = cpupokemonspatk
  1038.     end if
  1039.     c = cpumove3power
  1040.     if cpumove3class = 1 then
  1041.       d = userpokemondef
  1042.     else
  1043.       d = userpokemonspdef
  1044.     end if
  1045.     if cpumove3type = cpupokemontype1 or cpumove3type = cpupokemontype2 then
  1046.       x = 1.5
  1047.     else
  1048.       x = 1
  1049.     end if
  1050.  
  1051.     cpumoveused = 3
  1052.  
  1053.     if cpumove3type = 12 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1054.     if cpumove3type = 12 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1055.     if cpumove3type = 12 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1056.     if cpumove3type = 12 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1057.     if cpumove3type = 12 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1058.     if cpumove3type = 12 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1059.     if cpumove3type = 12 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1060.     if cpumove3type = 12 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1061.     if cpumove3type = 12 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1062.     if cpumove3type = 12 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1063.     if cpumove3type = 12 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1064.     if cpumove3type = 12 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1065.     if cpumove3type = 12 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1066.     if cpumove3type = 12 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1067.     if cpumove3type = 12 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1068.     if cpumove3type = 12 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1069.     if cpumove3type = 10 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1070.     if cpumove3type = 10 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1071.     if cpumove3type = 10 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1072.     if cpumove3type = 10 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1073.     if cpumove3type = 10 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1074.     if cpumove3type = 10 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1075.     if cpumove3type = 10 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1076.     if cpumove3type = 10 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1077.     if cpumove3type = 10 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1078.     if cpumove3type = 10 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1079.     if cpumove3type = 10 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1080.     if cpumove3type = 10 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1081.     if cpumove3type = 3 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1082.     if cpumove3type = 3 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1083.     if cpumove3type = 3 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1084.     if cpumove3type = 3 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1085.     if cpumove3type = 3 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1086.     if cpumove3type = 3 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1087.     if cpumove3type = 3 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1088.     if cpumove3type = 3 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1089.     if cpumove3type = 11 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1090.     if cpumove3type = 11 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1091.     if cpumove3type = 11 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1092.     if cpumove3type = 11 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1093.     if cpumove3type = 11 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1094.     if cpumove3type = 11 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1095.     if cpumove3type = 11 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1096.     if cpumove3type = 11 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1097.     if cpumove3type = 11 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1098.     if cpumove3type = 11 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1099.     if cpumove3type = 11 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1100.     if cpumove3type = 11 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1101.     if cpumove3type = 13 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1102.     if cpumove3type = 13 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1103.     if cpumove3type = 13 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1104.     if cpumove3type = 13 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1105.     if cpumove3type = 13 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1106.     if cpumove3type = 13 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1107.     if cpumove3type = 13 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1108.     if cpumove3type = 13 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1109.     if cpumove3type = 13 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1110.     if cpumove3type = 13 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1111.     if cpumove3type = 13 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1112.     if cpumove3type = 13 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1113.     if cpumove3type = 13 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1114.     if cpumove3type = 13 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1115.     if cpumove3type = 13 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1116.     if cpumove3type = 13 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1117.     if cpumove3type = 4 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1118.     if cpumove3type = 4 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1119.     if cpumove3type = 4 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1120.     if cpumove3type = 4 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1121.     if cpumove3type = 4 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1122.     if cpumove3type = 4 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1123.     if cpumove3type = 4 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1124.     if cpumove3type = 4 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1125.     if cpumove3type = 15 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1126.     if cpumove3type = 15 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1127.     if cpumove3type = 15 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1128.     if cpumove3type = 15 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1129.     if cpumove3type = 15 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1130.     if cpumove3type = 15 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1131.     if cpumove3type = 15 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1132.     if cpumove3type = 15 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1133.     if cpumove3type = 15 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1134.     if cpumove3type = 15 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1135.     if cpumove3type = 15 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1136.     if cpumove3type = 15 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1137.     if cpumove3type = 15 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1138.     if cpumove3type = 15 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1139.     if cpumove3type = 15 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1140.     if cpumove3type = 15 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1141.     if cpumove3type = 5 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  1142.     if cpumove3type = 5 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  1143.     if cpumove3type = 5 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  1144.     if cpumove3type = 5 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  1145.     if cpumove3type = 5 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1146.     if cpumove3type = 5 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1147.     if cpumove3type = 5 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1148.     if cpumove3type = 5 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1149.     if cpumove3type = 5 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1150.     if cpumove3type = 5 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1151.     if cpumove3type = 5 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1152.     if cpumove3type = 5 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1153.     if cpumove3type = 5 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  1154.     if cpumove3type = 5 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  1155.     if cpumove3type = 5 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  1156.     if cpumove3type = 5 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  1157.  
  1158.     if cpueffectivecheck >= 4 then
  1159.       y = 40
  1160.       cpuse = 1
  1161.     end if
  1162.     if cpueffectivecheck = 2 then
  1163.       y = 20
  1164.       cpuse = 1
  1165.     end if
  1166.     if cpueffectivecheck = 0 then
  1167.       y = 10
  1168.       cpuse = 0
  1169.     end if
  1170.     if cpueffectivecheck = -2 then
  1171.       y = 5
  1172.       cpuse = -1
  1173.     end if
  1174.     if cpueffectivecheck <= -4 then
  1175.       y = 2.5
  1176.       cpuse = -1
  1177.     end if
  1178.  
  1179.     if cpumove3type = 5 and userpokemontype1 = 3 then y = 0
  1180.     if cpumove3type = 5 and userpokemontype1 = 3 then y = 0
  1181.     if cpumove3type = 5 and userpokemontype2 = 3 then y = 0
  1182.     if cpumove3type = 5 and userpokemontype2 = 3 then y = 0
  1183.  
  1184.     goto [cpures]
  1185.   case 4
  1186.     if cpumove4id = flyid then cpufly = 1
  1187.     if cpumove4pp = 0 then
  1188.       goto [choice_cpu]
  1189.     end if
  1190.     a = cpupokemonlevel
  1191.     if cpumove4class = 1 then
  1192.       b = cpupokemonatk
  1193.     else
  1194.       b = cpupokemonspatk
  1195.     end if
  1196.     c = cpumove4power
  1197.     if cpumove4class = 1 then
  1198.       d = userpokemondef
  1199.     else
  1200.       d = userpokemonspdef
  1201.     end if
  1202.     if cpumove4type = cpupokemontype1 or cpumove4type = cpupokemontype2 then
  1203.       x = 1.5
  1204.     else
  1205.       x = 1
  1206.     end if
  1207.  
  1208.     cpumoveused = 4
  1209.  
  1210.     if cpumove4type = 12 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1211.     if cpumove4type = 12 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1212.     if cpumove4type = 12 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1213.     if cpumove4type = 12 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1214.     if cpumove4type = 12 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1215.     if cpumove4type = 12 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1216.     if cpumove4type = 12 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1217.     if cpumove4type = 12 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1218.     if cpumove4type = 12 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1219.     if cpumove4type = 12 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1220.     if cpumove4type = 12 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1221.     if cpumove4type = 12 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1222.     if cpumove4type = 12 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1223.     if cpumove4type = 12 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1224.     if cpumove4type = 12 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1225.     if cpumove4type = 12 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1226.     if cpumove4type = 10 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1227.     if cpumove4type = 10 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1228.     if cpumove4type = 10 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1229.     if cpumove4type = 10 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1230.     if cpumove4type = 10 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1231.     if cpumove4type = 10 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1232.     if cpumove4type = 10 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1233.     if cpumove4type = 10 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1234.     if cpumove4type = 10 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1235.     if cpumove4type = 10 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1236.     if cpumove4type = 10 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1237.     if cpumove4type = 10 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1238.     if cpumove4type = 3 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1239.     if cpumove4type = 3 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1240.     if cpumove4type = 3 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1241.     if cpumove4type = 3 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1242.     if cpumove4type = 3 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1243.     if cpumove4type = 3 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1244.     if cpumove4type = 3 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1245.     if cpumove4type = 3 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1246.     if cpumove4type = 11 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1247.     if cpumove4type = 11 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1248.     if cpumove4type = 11 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1249.     if cpumove4type = 11 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1250.     if cpumove4type = 11 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1251.     if cpumove4type = 11 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1252.     if cpumove4type = 11 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1253.     if cpumove4type = 11 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1254.     if cpumove4type = 11 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1255.     if cpumove4type = 11 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1256.     if cpumove4type = 11 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1257.     if cpumove4type = 11 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1258.     if cpumove4type = 13 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1259.     if cpumove4type = 13 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1260.     if cpumove4type = 13 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1261.     if cpumove4type = 13 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1262.     if cpumove4type = 13 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1263.     if cpumove4type = 13 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1264.     if cpumove4type = 13 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1265.     if cpumove4type = 13 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck + 1
  1266.     if cpumove4type = 13 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1267.     if cpumove4type = 13 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1268.     if cpumove4type = 13 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1269.     if cpumove4type = 13 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1270.     if cpumove4type = 13 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1271.     if cpumove4type = 13 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1272.     if cpumove4type = 13 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1273.     if cpumove4type = 13 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck - 1
  1274.     if cpumove4type = 4 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1275.     if cpumove4type = 4 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1276.     if cpumove4type = 4 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1277.     if cpumove4type = 4 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck - 1
  1278.     if cpumove4type = 4 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1279.     if cpumove4type = 4 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1280.     if cpumove4type = 4 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1281.     if cpumove4type = 4 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1282.     if cpumove4type = 15 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1283.     if cpumove4type = 15 and userpokemontype1 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1284.     if cpumove4type = 15 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1285.     if cpumove4type = 15 and userpokemontype2 = 3 then cpueffectivecheck = cpueffectivecheck + 1
  1286.     if cpumove4type = 15 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1287.     if cpumove4type = 15 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1288.     if cpumove4type = 15 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1289.     if cpumove4type = 15 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck - 1
  1290.     if cpumove4type = 15 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1291.     if cpumove4type = 15 and userpokemontype1 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1292.     if cpumove4type = 15 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1293.     if cpumove4type = 15 and userpokemontype2 = 11 then cpueffectivecheck = cpueffectivecheck - 1
  1294.     if cpumove4type = 15 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1295.     if cpumove4type = 15 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1296.     if cpumove4type = 15 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1297.     if cpumove4type = 15 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck + 1
  1298.     if cpumove4type = 5 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  1299.     if cpumove4type = 5 and userpokemontype1 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  1300.     if cpumove4type = 5 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  1301.     if cpumove4type = 5 and userpokemontype2 = 4 then cpueffectivecheck = cpueffectivecheck + 1
  1302.     if cpumove4type = 5 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1303.     if cpumove4type = 5 and userpokemontype1 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1304.     if cpumove4type = 5 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1305.     if cpumove4type = 5 and userpokemontype2 = 10 then cpueffectivecheck = cpueffectivecheck + 1
  1306.     if cpumove4type = 5 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1307.     if cpumove4type = 5 and userpokemontype1 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1308.     if cpumove4type = 5 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1309.     if cpumove4type = 5 and userpokemontype2 = 12 then cpueffectivecheck = cpueffectivecheck - 1
  1310.     if cpumove4type = 5 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  1311.     if cpumove4type = 5 and userpokemontype1 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  1312.     if cpumove4type = 5 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  1313.     if cpumove4type = 5 and userpokemontype2 = 13 then cpueffectivecheck = cpueffectivecheck + 1
  1314.  
  1315.     if cpueffectivecheck >= 4 then
  1316.       y = 40
  1317.       cpuse = 1
  1318.     end if
  1319.     if cpueffectivecheck = 2 then
  1320.       y = 20
  1321.       cpuse = 1
  1322.     end if
  1323.     if cpueffectivecheck = 0 then
  1324.       y = 10
  1325.       cpuse = 0
  1326.     end if
  1327.     if cpueffectivecheck = -2 then
  1328.       y = 5
  1329.       cpuse = -1
  1330.     end if
  1331.     if cpueffectivecheck <= -4 then
  1332.       y = 2.5
  1333.       cpuse = -1
  1334.     end if
  1335.  
  1336.     if cpumove4type = 5 and userpokemontype1 = 3 then y = 0
  1337.     if cpumove4type = 5 and userpokemontype1 = 3 then y = 0
  1338.     if cpumove4type = 5 and userpokemontype2 = 3 then y = 0
  1339.     if cpumove4type = 5 and userpokemontype2 = 3 then y = 0
  1340.  
  1341.     goto [cpures]
  1342.   case else
  1343.     goto [choice_cpu]
  1344. end select
  1345.  
  1346.  
  1347. [cpures]
  1348. z = int(rnd(1)*255)+1
  1349. if z < 217 then goto [cpures]
  1350. cls
  1351.  
  1352. cpucrit = int(rnd(1)*200)+1
  1353. if cpucrit <= 12 then
  1354.   a = a*2
  1355.   cpucrit = 500
  1356. end if
  1357.  
  1358. cpuhpdamage = ((((((((((2*a)/5)+2)*b*c)/d)/50)+2)*x)*y/10)*z)/255
  1359. cpuhpdamage = int(cpuhpdamage)
  1360. if potion = 1 then
  1361.   goto [cpufirst]
  1362. else
  1363.   goto [choice]
  1364. end if
  1365.  
  1366. [choice]
  1367. cls
  1368. effectivecheck = 0
  1369. if userppout = 1 then
  1370.   userppout = 0
  1371.   print "Insufficiant PP"
  1372.   print
  1373. end if
  1374.  
  1375.   locate 1, 1 : print "****************************************"
  1376.   locate 1, 2 : print "*"
  1377.   locate 1, 3 : print "*"
  1378.   locate 1, 4 : print "*"
  1379.   locate 1, 5 : print "*"
  1380.   locate 1, 6 : print "*"
  1381.   locate 1, 7 : print "*"
  1382.   locate 1, 8 : print "*"
  1383.   locate 1, 9 : print "*"
  1384.   locate 1, 10 : print "*"
  1385.   locate 1, 11 : print "*"
  1386.   locate 1, 12 : print "*"
  1387.   locate 1, 13 : print "*"
  1388.   locate 1, 14 : print "*"
  1389.   locate 1, 15 : print "*"
  1390.   locate 1, 16 : print "*"
  1391.   locate 1, 17 : print "*"
  1392.   locate 1, 18 : print "*"
  1393.   locate 1, 19 : print "*"
  1394.   locate 40, 2 : print "*"
  1395.   locate 40, 3 : print "*"
  1396.   locate 40, 4 : print "*"
  1397.   locate 40, 5 : print "*"
  1398.   locate 40, 6 : print "*"
  1399.   locate 40, 7 : print "*"
  1400.   locate 40, 8 : print "*"
  1401.   locate 40, 9 : print "*"
  1402.   locate 40, 10 : print "*"
  1403.   locate 40, 11 : print "*"
  1404.   locate 40, 12 : print "*"
  1405.   locate 40, 13 : print "*"
  1406.   locate 40, 14 : print "*"
  1407.   locate 40, 15 : print "*"
  1408.   locate 40, 16 : print "*"
  1409.   locate 40, 17 : print "*"
  1410.   locate 40, 18 : print "*"
  1411.   locate 40, 19 : print "*"
  1412.   locate 1, 20 : print "****************************************"
  1413.  
  1414.   locate 3, 11 : print "---------------------"
  1415.   locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
  1416.   locate 3, 13 : print "---------------------"
  1417.  
  1418.   locate 17, 4 : print "---------------------"
  1419.   locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
  1420.   locate 17, 6 : print "---------------------"
  1421.  
  1422.  
  1423.   locate 2, 16 : print "######################################"
  1424.   locate 2, 19 : print "######################################"
  1425.   locate 2, 17 : print "#"
  1426.   locate 2, 18 : print "#"
  1427.   locate 39, 17 : print "#"
  1428.   locate 39, 18 : print "#"
  1429.  
  1430.   locate 3, 17 : print "1) "+usermove1$
  1431.   locate 3, 18 : print "3) "+usermove3$
  1432.   locate 20, 17 : print "2) "+usermove2$
  1433.   locate 20, 18 : print "4) "+usermove4$
  1434.   locate 36, 17 : input "V";movechoiceuser
  1435.  
  1436. select case movechoiceuser
  1437.   case 1
  1438.     if usermove1pp = 0 then
  1439.       flagppout = 1
  1440.       goto [choice]
  1441.     end if
  1442.     a = userpokemonlevel
  1443.     if usermove1class = 1 then
  1444.       b = userpokemonatk
  1445.     else
  1446.       b = userpokemonspatk
  1447.     end if
  1448.     c = usermove1power
  1449.     if usermove1class = 1 then
  1450.       d = cpupokemondef
  1451.     else
  1452.       d = cpupokemonspdef
  1453.     end if
  1454.     if usermove1type = userpokemontype1 or usermove1type = userpokemontype2 then
  1455.       x = 1.5
  1456.     else
  1457.       x = 1
  1458.     end if
  1459.  
  1460.     usermoveused = 1
  1461.  
  1462.     if usermove1type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1463.     if usermove1type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1464.     if usermove1type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1465.     if usermove1type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1466.     if usermove1type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1467.     if usermove1type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1468.     if usermove1type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1469.     if usermove1type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1470.     if usermove1type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1471.     if usermove1type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1472.     if usermove1type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1473.     if usermove1type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1474.     if usermove1type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1475.     if usermove1type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1476.     if usermove1type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  1477.     if usermove1type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  1478.     if usermove1type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1479.     if usermove1type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1480.     if usermove1type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1481.     if usermove1type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1482.     if usermove1type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1483.     if usermove1type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1484.     if usermove1type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1485.     if usermove1type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1486.     if usermove1type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1487.     if usermove1type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1488.     if usermove1type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1489.     if usermove1type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1490.     if usermove1type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1491.     if usermove1type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1492.     if usermove1type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1493.     if usermove1type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1494.     if usermove1type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1495.     if usermove1type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1496.     if usermove1type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1497.     if usermove1type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1498.     if usermove1type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1499.     if usermove1type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1500.     if usermove1type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1501.     if usermove1type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1502.     if usermove1type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  1503.     if usermove1type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  1504.     if usermove1type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  1505.     if usermove1type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  1506.     if usermove1type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1507.     if usermove1type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1508.     if usermove1type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1509.     if usermove1type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1510.     if usermove1type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  1511.     if usermove1type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  1512.     if usermove1type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  1513.     if usermove1type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  1514.     if usermove1type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1515.     if usermove1type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1516.     if usermove1type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1517.     if usermove1type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1518.     if usermove1type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1519.     if usermove1type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1520.     if usermove1type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1521.     if usermove1type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1522.     if usermove1type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1523.     if usermove1type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1524.     if usermove1type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1525.     if usermove1type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1526.     if usermove1type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1527.     if usermove1type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1528.     if usermove1type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  1529.     if usermove1type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  1530.     if usermove1type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1531.     if usermove1type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1532.     if usermove1type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1533.     if usermove1type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1534.     if usermove1type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  1535.     if usermove1type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  1536.     if usermove1type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  1537.     if usermove1type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  1538.     if usermove1type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1539.     if usermove1type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1540.     if usermove1type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1541.     if usermove1type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1542.     if usermove1type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1543.     if usermove1type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1544.     if usermove1type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1545.     if usermove1type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1546.     if usermove1type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1547.     if usermove1type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1548.     if usermove1type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1549.     if usermove1type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1550.     if usermove1type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
  1551.     if usermove1type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
  1552.     if usermove1type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
  1553.     if usermove1type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
  1554.     if usermove1type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  1555.     if usermove1type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  1556.     if usermove1type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  1557.     if usermove1type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  1558.     if usermove1type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1559.     if usermove1type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1560.     if usermove1type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1561.     if usermove1type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1562.     if usermove1type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
  1563.     if usermove1type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
  1564.     if usermove1type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
  1565.     if usermove1type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
  1566.  
  1567.     if effectivecheck >= 4 then
  1568.       y = 40
  1569.       userse = 1
  1570.     end if
  1571.     if effectivecheck = 2 then
  1572.       y = 20
  1573.       userse = 1
  1574.     end if
  1575.     if effectivecheck = 0 then
  1576.       y = 10
  1577.       userse = 0
  1578.     end if
  1579.     if effectivecheck = -2 then
  1580.       y = 5
  1581.       userse = -1
  1582.     end if
  1583.     if effectivecheck <= -4 then
  1584.       y = 2.5
  1585.       userse = -1
  1586.     end if
  1587.  
  1588.     if usermove1type = 5 and cpupokemontype1 = 3 then y = 0
  1589.     if usermove1type = 5 and cpupokemontype1 = 3 then y = 0
  1590.     if usermove1type = 5 and cpupokemontype2 = 3 then y = 0
  1591.     if usermove1type = 5 and cpupokemontype2 = 3 then y = 0
  1592.  
  1593.     goto [move_set_calculation]
  1594.   case 2
  1595.     if usermove2pp = 0 then
  1596.       flagppout = 1
  1597.       goto [choice]
  1598.     end if
  1599.     a = userpokemonlevel
  1600.     if usermove2class = 1 then
  1601.       b = userpokemonatk
  1602.     else
  1603.       b = userpokemonspatk
  1604.     end if
  1605.     c = usermove2power
  1606.     if usermove2class = 1 then
  1607.       d = cpupokemondef
  1608.     else
  1609.       d = cpupokemonspdef
  1610.     end if
  1611.     if usermove2type = userpokemontype1 or usermove2type = userpokemontype2 then
  1612.       x = 1.5
  1613.     else
  1614.       x = 1
  1615.     end if
  1616.  
  1617.     usermoveused = 2
  1618.  
  1619.     if usermove2type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1620.     if usermove2type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1621.     if usermove2type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1622.     if usermove2type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1623.     if usermove2type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1624.     if usermove2type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1625.     if usermove2type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1626.     if usermove2type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1627.     if usermove2type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1628.     if usermove2type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1629.     if usermove2type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1630.     if usermove2type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1631.     if usermove2type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1632.     if usermove2type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1633.     if usermove2type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  1634.     if usermove2type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  1635.     if usermove2type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1636.     if usermove2type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1637.     if usermove2type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1638.     if usermove2type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1639.     if usermove2type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1640.     if usermove2type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1641.     if usermove2type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1642.     if usermove2type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1643.     if usermove2type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1644.     if usermove2type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1645.     if usermove2type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1646.     if usermove2type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1647.     if usermove2type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1648.     if usermove2type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1649.     if usermove2type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1650.     if usermove2type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1651.     if usermove2type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1652.     if usermove2type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1653.     if usermove2type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1654.     if usermove2type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1655.     if usermove2type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1656.     if usermove2type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1657.     if usermove2type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1658.     if usermove2type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1659.     if usermove2type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  1660.     if usermove2type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  1661.     if usermove2type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  1662.     if usermove2type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  1663.     if usermove2type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1664.     if usermove2type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1665.     if usermove2type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1666.     if usermove2type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1667.     if usermove2type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  1668.     if usermove2type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  1669.     if usermove2type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  1670.     if usermove2type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  1671.     if usermove2type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1672.     if usermove2type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1673.     if usermove2type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1674.     if usermove2type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1675.     if usermove2type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1676.     if usermove2type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1677.     if usermove2type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1678.     if usermove2type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1679.     if usermove2type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1680.     if usermove2type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1681.     if usermove2type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1682.     if usermove2type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1683.     if usermove2type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1684.     if usermove2type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1685.     if usermove2type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  1686.     if usermove2type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  1687.     if usermove2type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1688.     if usermove2type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1689.     if usermove2type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1690.     if usermove2type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1691.     if usermove2type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  1692.     if usermove2type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  1693.     if usermove2type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  1694.     if usermove2type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  1695.     if usermove2type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1696.     if usermove2type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1697.     if usermove2type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1698.     if usermove2type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1699.     if usermove2type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1700.     if usermove2type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1701.     if usermove2type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1702.     if usermove2type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1703.     if usermove2type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1704.     if usermove2type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1705.     if usermove2type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1706.     if usermove2type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1707.     if usermove2type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
  1708.     if usermove2type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
  1709.     if usermove2type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
  1710.     if usermove2type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
  1711.     if usermove2type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  1712.     if usermove2type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  1713.     if usermove2type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  1714.     if usermove2type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  1715.     if usermove2type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1716.     if usermove2type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1717.     if usermove2type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1718.     if usermove2type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1719.     if usermove2type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
  1720.     if usermove2type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
  1721.     if usermove2type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
  1722.     if usermove2type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
  1723.  if effectivecheck >= 4 then
  1724.       y = 40
  1725.       userse = 1
  1726.     end if
  1727.     if effectivecheck = 2 then
  1728.       y = 20
  1729.       userse = 1
  1730.     end if
  1731.     if effectivecheck = 0 then
  1732.       y = 10
  1733.       userse = 0
  1734.     end if
  1735.     if effectivecheck = -2 then
  1736.       y = 5
  1737.       userse = -1
  1738.     end if
  1739.     if effectivecheck <= -4 then
  1740.       y = 2.5
  1741.       userse = -1
  1742.     end if
  1743.  
  1744.     if usermove2type = 5 and cpupokemontype1 = 3 then y = 0
  1745.     if usermove2type = 5 and cpupokemontype1 = 3 then y = 0
  1746.     if usermove2type = 5 and cpupokemontype2 = 3 then y = 0
  1747.     if usermove2type = 5 and cpupokemontype2 = 3 then y = 0
  1748.  
  1749.     goto [move_set_calculation]
  1750.   case 3
  1751.     if usermove1id = quickattackid then qa = 1
  1752.     if usermove3pp = 0 then
  1753.       flagppout = 1
  1754.       goto [choice]
  1755.     end if
  1756.     a = userpokemonlevel
  1757.     if usermove3class = 1 then
  1758.       b = userpokemonatk
  1759.     else
  1760.       b = userpokemonspatk
  1761.     end if
  1762.     c = usermove3power
  1763.     if usermove3class = 1 then
  1764.       d = cpupokemondef
  1765.     else
  1766.       d = cpupokemonspdef
  1767.     end if
  1768.     if usermove3type = userpokemontype1 or usermove3type = userpokemontype2 then
  1769.       x = 1.5
  1770.     else
  1771.       x = 1
  1772.     end if
  1773.  
  1774.     usermoveused = 3
  1775.  
  1776.     if usermove3type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1777.     if usermove3type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1778.     if usermove3type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1779.     if usermove3type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1780.     if usermove3type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1781.     if usermove3type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1782.     if usermove3type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1783.     if usermove3type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1784.     if usermove3type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1785.     if usermove3type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1786.     if usermove3type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1787.     if usermove3type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1788.     if usermove3type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1789.     if usermove3type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1790.     if usermove3type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  1791.     if usermove3type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  1792.     if usermove3type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1793.     if usermove3type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1794.     if usermove3type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1795.     if usermove3type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1796.     if usermove3type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1797.     if usermove3type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1798.     if usermove3type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1799.     if usermove3type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1800.     if usermove3type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1801.     if usermove3type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1802.     if usermove3type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1803.     if usermove3type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1804.     if usermove3type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1805.     if usermove3type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1806.     if usermove3type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1807.     if usermove3type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1808.     if usermove3type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1809.     if usermove3type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1810.     if usermove3type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1811.     if usermove3type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1812.     if usermove3type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1813.     if usermove3type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1814.     if usermove3type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1815.     if usermove3type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1816.     if usermove3type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  1817.     if usermove3type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  1818.     if usermove3type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  1819.     if usermove3type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  1820.     if usermove3type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1821.     if usermove3type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1822.     if usermove3type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1823.     if usermove3type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1824.     if usermove3type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  1825.     if usermove3type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  1826.     if usermove3type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  1827.     if usermove3type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  1828.     if usermove3type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1829.     if usermove3type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1830.     if usermove3type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1831.     if usermove3type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1832.     if usermove3type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1833.     if usermove3type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1834.     if usermove3type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1835.     if usermove3type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1836.     if usermove3type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1837.     if usermove3type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1838.     if usermove3type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1839.     if usermove3type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1840.     if usermove3type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1841.     if usermove3type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1842.     if usermove3type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  1843.     if usermove3type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  1844.     if usermove3type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1845.     if usermove3type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1846.     if usermove3type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1847.     if usermove3type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1848.     if usermove3type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  1849.     if usermove3type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  1850.     if usermove3type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  1851.     if usermove3type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  1852.     if usermove3type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1853.     if usermove3type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1854.     if usermove3type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1855.     if usermove3type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1856.     if usermove3type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1857.     if usermove3type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1858.     if usermove3type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1859.     if usermove3type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1860.     if usermove3type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1861.     if usermove3type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1862.     if usermove3type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1863.     if usermove3type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1864.     if usermove3type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
  1865.     if usermove3type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
  1866.     if usermove3type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
  1867.     if usermove3type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
  1868.     if usermove3type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  1869.     if usermove3type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  1870.     if usermove3type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  1871.     if usermove3type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  1872.     if usermove3type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1873.     if usermove3type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1874.     if usermove3type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1875.     if usermove3type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1876.     if usermove3type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
  1877.     if usermove3type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
  1878.     if usermove3type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
  1879.     if usermove3type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
  1880.  
  1881.     if effectivecheck >= 4 then
  1882.       y = 40
  1883.       userse = 1
  1884.     end if
  1885.     if effectivecheck = 2 then
  1886.       y = 20
  1887.       userse = 1
  1888.     end if
  1889.     if effectivecheck = 0 then
  1890.       y = 10
  1891.       userse = 0
  1892.     end if
  1893.     if effectivecheck = -2 then
  1894.       y = 5
  1895.       userse = -1
  1896.     end if
  1897.     if effectivecheck <= -4 then
  1898.       y = 2.5
  1899.       userse = -1
  1900.     end if
  1901.  
  1902.     if usermove3type = 5 and cpupokemontype1 = 3 then y = 0
  1903.     if usermove3type = 5 and cpupokemontype1 = 3 then y = 0
  1904.     if usermove3type = 5 and cpupokemontype2 = 3 then y = 0
  1905.     if usermove3type = 5 and cpupokemontype2 = 3 then y = 0
  1906.  
  1907.     goto [move_set_calculation]
  1908.   case 4
  1909.     if usermove4id = flyid then fly = 1
  1910.     if usermove4pp = 0 then
  1911.       flagppout = 1
  1912.       goto [choice]
  1913.     end if
  1914.     a = userpokemonlevel
  1915.     if usermove4class = 1 then
  1916.       b = userpokemonatk
  1917.     else
  1918.       b = userpokemonspatk
  1919.     end if
  1920.     c = usermove4power
  1921.     if usermove4class = 1 then
  1922.       d = cpupokemondef
  1923.     else
  1924.       d = cpupokemonspdef
  1925.     end if
  1926.     if usermove4type = userpokemontype1 or usermove4type = userpokemontype2 then
  1927.       x = 1.5
  1928.     else
  1929.       x = 1
  1930.     end if
  1931.  
  1932.     usermoveused = 4
  1933.  
  1934.     if usermove4type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1935.     if usermove4type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1936.     if usermove4type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1937.     if usermove4type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1938.     if usermove4type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1939.     if usermove4type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1940.     if usermove4type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1941.     if usermove4type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1942.     if usermove4type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1943.     if usermove4type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1944.     if usermove4type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1945.     if usermove4type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1946.     if usermove4type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1947.     if usermove4type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1948.     if usermove4type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  1949.     if usermove4type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  1950.     if usermove4type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1951.     if usermove4type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  1952.     if usermove4type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1953.     if usermove4type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  1954.     if usermove4type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1955.     if usermove4type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1956.     if usermove4type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1957.     if usermove4type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1958.     if usermove4type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1959.     if usermove4type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1960.     if usermove4type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1961.     if usermove4type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1962.     if usermove4type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1963.     if usermove4type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  1964.     if usermove4type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1965.     if usermove4type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  1966.     if usermove4type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1967.     if usermove4type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1968.     if usermove4type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1969.     if usermove4type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1970.     if usermove4type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1971.     if usermove4type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  1972.     if usermove4type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1973.     if usermove4type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  1974.     if usermove4type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  1975.     if usermove4type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  1976.     if usermove4type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  1977.     if usermove4type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  1978.     if usermove4type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1979.     if usermove4type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1980.     if usermove4type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1981.     if usermove4type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1982.     if usermove4type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  1983.     if usermove4type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  1984.     if usermove4type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  1985.     if usermove4type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  1986.     if usermove4type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1987.     if usermove4type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
  1988.     if usermove4type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1989.     if usermove4type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
  1990.     if usermove4type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1991.     if usermove4type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  1992.     if usermove4type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1993.     if usermove4type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  1994.     if usermove4type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1995.     if usermove4type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
  1996.     if usermove4type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1997.     if usermove4type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
  1998.     if usermove4type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  1999.     if usermove4type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
  2000.     if usermove4type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  2001.     if usermove4type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
  2002.     if usermove4type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  2003.     if usermove4type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  2004.     if usermove4type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  2005.     if usermove4type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  2006.     if usermove4type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  2007.     if usermove4type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
  2008.     if usermove4type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  2009.     if usermove4type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
  2010.     if usermove4type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  2011.     if usermove4type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
  2012.     if usermove4type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  2013.     if usermove4type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
  2014.     if usermove4type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  2015.     if usermove4type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
  2016.     if usermove4type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  2017.     if usermove4type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
  2018.     if usermove4type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  2019.     if usermove4type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
  2020.     if usermove4type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  2021.     if usermove4type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
  2022.     if usermove4type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
  2023.     if usermove4type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
  2024.     if usermove4type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
  2025.     if usermove4type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
  2026.     if usermove4type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  2027.     if usermove4type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
  2028.     if usermove4type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  2029.     if usermove4type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
  2030.     if usermove4type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  2031.     if usermove4type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
  2032.     if usermove4type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  2033.     if usermove4type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
  2034.     if usermove4type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
  2035.     if usermove4type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
  2036.     if usermove4type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
  2037.     if usermove4type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
  2038.  
  2039.     if effectivecheck >= 4 then
  2040.       y = 40
  2041.       userse = 1
  2042.     end if
  2043.     if effectivecheck = 2 then
  2044.       y = 20
  2045.       userse = 1
  2046.     end if
  2047.     if effectivecheck = 0 then
  2048.       y = 10
  2049.       userse = 0
  2050.     end if
  2051.     if effectivecheck = -2 then
  2052.       y = 5
  2053.       userse = -1
  2054.     end if
  2055.     if effectivecheck <= -4 then
  2056.       y = 2.5
  2057.       userse = -1
  2058.     end if
  2059.  
  2060.     if usermove4type = 5 and cpupokemontype1 = 3 then y = 0
  2061.     if usermove4type = 5 and cpupokemontype1 = 3 then y = 0
  2062.     if usermove4type = 5 and cpupokemontype2 = 3 then y = 0
  2063.     if usermove4type = 5 and cpupokemontype2 = 3 then y = 0
  2064.  
  2065.     goto [move_set_calculation]
  2066.   case else
  2067.     goto [choice]
  2068. end select
  2069.  
  2070. [move_set_calculation]
  2071.  
  2072. z = int(rnd(1)*255)+1
  2073. if z < 217 then goto [move_set_calculation]
  2074. cls
  2075.  
  2076. crit = int(rnd(1)*200)+1
  2077. if crit <= 12 then
  2078.   a = a*2
  2079.   crit = 500
  2080. end if
  2081.  
  2082. if cpuqa = 1 then goto [cpufirst]
  2083. if qa = 1 then goto [playerfirst]
  2084. if userpokemonspeed >= cpupokemonspeed then
  2085.   cpuhastoplay = 1
  2086.   goto [playerfirst]
  2087. else
  2088.   goto [cpufirst]
  2089. end if
  2090.  
  2091. [playerfirst]
  2092. cls
  2093. if fly = 2 then goto [playerflyex]
  2094. select case usermoveused
  2095.   case 1
  2096.     usermove1pp = usermove1pp - 1
  2097.   case 2
  2098.     usermove2pp = usermove2pp - 1
  2099.   case 3
  2100.     usermove3pp = usermove3pp - 1
  2101.   case 4
  2102.     usermove4pp = usermove4pp - 1
  2103. end select
  2104. if fly = 1 then
  2105.   locate 4, 17 : print "Charizard flew up high!"
  2106.   goto [nextusercheck]
  2107. end if
  2108.  
  2109. [playerflyex]
  2110.  
  2111.   locate 1, 1 : print "****************************************"
  2112.   locate 1, 2 : print "*"
  2113.   locate 1, 3 : print "*"
  2114.   locate 1, 4 : print "*"
  2115.   locate 1, 5 : print "*"
  2116.   locate 1, 6 : print "*"
  2117.   locate 1, 7 : print "*"
  2118.   locate 1, 8 : print "*"
  2119.   locate 1, 9 : print "*"
  2120.   locate 1, 10 : print "*"
  2121.   locate 1, 11 : print "*"
  2122.   locate 1, 12 : print "*"
  2123.   locate 1, 13 : print "*"
  2124.   locate 1, 14 : print "*"
  2125.   locate 1, 15 : print "*"
  2126.   locate 1, 16 : print "*"
  2127.   locate 1, 17 : print "*"
  2128.   locate 1, 18 : print "*"
  2129.   locate 1, 19 : print "*"
  2130.   locate 40, 2 : print "*"
  2131.   locate 40, 3 : print "*"
  2132.   locate 40, 4 : print "*"
  2133.   locate 40, 5 : print "*"
  2134.   locate 40, 6 : print "*"
  2135.   locate 40, 7 : print "*"
  2136.   locate 40, 8 : print "*"
  2137.   locate 40, 9 : print "*"
  2138.   locate 40, 10 : print "*"
  2139.   locate 40, 11 : print "*"
  2140.   locate 40, 12 : print "*"
  2141.   locate 40, 13 : print "*"
  2142.   locate 40, 14 : print "*"
  2143.   locate 40, 15 : print "*"
  2144.   locate 40, 16 : print "*"
  2145.   locate 40, 17 : print "*"
  2146.   locate 40, 18 : print "*"
  2147.   locate 40, 19 : print "*"
  2148.   locate 1, 20 : print "****************************************"
  2149.  
  2150.   locate 3, 11 : print "---------------------"
  2151.   locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
  2152.   locate 3, 13 : print "---------------------"
  2153.  
  2154.   locate 17, 4 : print "---------------------"
  2155.   locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
  2156.   locate 17, 6 : print "---------------------"
  2157.  
  2158.   locate 2, 16 : print "######################################"
  2159.   locate 2, 19 : print "######################################"
  2160.   locate 2, 17 : print "#"
  2161.   locate 2, 18 : print "#"
  2162.   locate 39, 17 : print "#"
  2163.   locate 39, 18 : print "#"
  2164.  
  2165. userhpdamage = ((((((((((2*a)/5)+2)*b*c)/d)/50)+2)*x)*y/10)*z)/255
  2166. userhpdamage = int(userhpdamage)
  2167.  
  2168. if miss = 1 then
  2169.   locate 4, 17 : print userpokemonname$+" missed..."
  2170.   goto [nextusercheck]
  2171. end if
  2172.  
  2173. if usermoveused = 1 then
  2174.   locate 4, 17 : print userpokemonname$+" used "+usermove1$+"."
  2175. end if
  2176. if usermoveused = 2 then
  2177.   locate 4, 17 : print userpokemonname$+" used "+usermove2$+"."
  2178. end if
  2179. if usermoveused = 3 then
  2180.   locate 4, 17 : print userpokemonname$+" used "+usermove3$+"."
  2181. end if
  2182. if usermoveused = 4 then
  2183.   locate 4, 17 : print userpokemonname$+" used "+usermove4$+"."
  2184. end if
  2185.  
  2186. if userhpdamage = 0 then
  2187.   locate 4, 18 : print "It has no effect on the opponent!"
  2188.   nulleffect = 1
  2189. end if
  2190. if crit = 500  and nulleffect <> 1 then
  2191.   locate 4, 18 : print "Critical Hit!"
  2192. end if
  2193. if userse = 1 and nulleffect <> 1 then
  2194.   locate 4, 18 : print "It's Super Effective!"
  2195. end if
  2196. if userse <= -1 and nulleffect <> 1 then
  2197.   locate 4, 18 : print "It's Not Very Effective..."
  2198. end if
  2199.  
  2200.   locate 3, 11 : print "---------------------"
  2201.   locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
  2202.   locate 3, 13 : print "---------------------"
  2203.  
  2204.   locate 17, 4 : print "---------------------"
  2205.   locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
  2206.   locate 17, 6 : print "---------------------"
  2207.  
  2208. cpupokemonhp = cpupokemonhp - userhpdamage
  2209. if cpupokemonhp <= 0 then
  2210.   cpupokemonhp = 0
  2211.   battlewon = 1
  2212. end if
  2213.  
  2214. [nextusercheck]
  2215. locate 36, 17 : input "V";dummy$
  2216. usercount = 1
  2217. if battlewon = 1 then goto [battlewon]
  2218. if battlewon = -1 then goto [battlelost]
  2219. if cpucount = 1 then goto [sequence_battlemenu]
  2220. goto [cpufirst]
  2221.  
  2222. [cpufirst]
  2223. if cpufly = 2 then goto [flyuse]
  2224. cls
  2225. select case cpumoveused
  2226.   case 1
  2227.     cpumove1pp = cpumove1pp - 1
  2228.   case 2
  2229.     cpumove2pp = cpumove2pp - 1
  2230.   case 3
  2231.     cpumove3pp = cpumove3pp - 1
  2232.   case 4
  2233.     cpumove4pp = cpumove4pp - 1
  2234. end select
  2235.  
  2236. if cpufly = 1 then
  2237.   locate 4, 17 : print "Charizard flew up high!"
  2238.   goto [nextcpucheck]
  2239. end if
  2240.  
  2241. [flyuse]
  2242.   if cpufly = 2 then cpufly = 3
  2243.   locate 1, 1 : print "****************************************"
  2244.   locate 1, 2 : print "*"
  2245.   locate 1, 3 : print "*"
  2246.   locate 1, 4 : print "*"
  2247.   locate 1, 5 : print "*"
  2248.   locate 1, 6 : print "*"
  2249.   locate 1, 7 : print "*"
  2250.   locate 1, 8 : print "*"
  2251.   locate 1, 9 : print "*"
  2252.   locate 1, 10 : print "*"
  2253.   locate 1, 11 : print "*"
  2254.   locate 1, 12 : print "*"
  2255.   locate 1, 13 : print "*"
  2256.   locate 1, 14 : print "*"
  2257.   locate 1, 15 : print "*"
  2258.   locate 1, 16 : print "*"
  2259.   locate 1, 17 : print "*"
  2260.   locate 1, 18 : print "*"
  2261.   locate 1, 19 : print "*"
  2262.   locate 40, 2 : print "*"
  2263.   locate 40, 3 : print "*"
  2264.   locate 40, 4 : print "*"
  2265.   locate 40, 5 : print "*"
  2266.   locate 40, 6 : print "*"
  2267.   locate 40, 7 : print "*"
  2268.   locate 40, 8 : print "*"
  2269.   locate 40, 9 : print "*"
  2270.   locate 40, 10 : print "*"
  2271.   locate 40, 11 : print "*"
  2272.   locate 40, 12 : print "*"
  2273.   locate 40, 13 : print "*"
  2274.   locate 40, 14 : print "*"
  2275.   locate 40, 15 : print "*"
  2276.   locate 40, 16 : print "*"
  2277.   locate 40, 17 : print "*"
  2278.   locate 40, 18 : print "*"
  2279.   locate 40, 19 : print "*"
  2280.   locate 1, 20 : print "****************************************"
  2281.  
  2282.   locate 3, 11 : print "---------------------"
  2283.   locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
  2284.   locate 3, 13 : print "---------------------"
  2285.  
  2286.   locate 17, 4 : print "---------------------"
  2287.   locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
  2288.   locate 17, 6 : print "---------------------"
  2289.  
  2290.   locate 2, 16 : print "######################################"
  2291.   locate 2, 19 : print "######################################"
  2292.   locate 2, 17 : print "#"
  2293.   locate 2, 18 : print "#"
  2294.   locate 39, 17 : print "#"
  2295.   locate 39, 18 : print "#"
  2296.  
  2297. if cpumiss = 1 then  
  2298.   locate 4, 17 : print userpokemonname$+" missed..."
  2299.   goto [nextcpucheck]
  2300. end if
  2301.  
  2302. if cpumoveused = 1 then
  2303.   locate 4, 17 : print cpupokemonname$+" used "+cpumove1$+"."
  2304. end if 'yourmom
  2305. if cpumoveused = 2 then
  2306.   locate 4, 17 : print cpupokemonname$+" used "+cpumove2$+"."
  2307. end if
  2308. if cpumoveused = 3 then
  2309.   locate 4, 17 : print cpupokemonname$+" used "+cpumove3$+"."
  2310. end if
  2311. if cpumoveused = 4 then
  2312.   locate 4, 17 : print cpupokemonname$+" used "+cpumove4$+"."
  2313. end if
  2314.  
  2315. if cpuhpdamage = 0 then
  2316.   locate 4, 18 : print "It has no effect on the opponent!"
  2317.   cpunull = 1
  2318. end if
  2319.  
  2320. if cpucrit = 500  and cpunull <> 1 then
  2321.   locate 4, 18 : print "Critical Hit!"
  2322. end if
  2323. if cpuse = 1 and cpunull <> 1 then
  2324.   locate 4, 18 : print "It's Super Effective!"
  2325. end if
  2326. if cpuse <= -1 and cpunull <> 1 then
  2327.   locate 4, 18 : print "It's Not Very Effective..."
  2328. end if
  2329.  
  2330.   locate 3, 11 : print "---------------------"
  2331.   locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
  2332.   locate 3, 13 : print "---------------------"
  2333.  
  2334.   locate 17, 4 : print "---------------------"
  2335.   locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
  2336.   locate 17, 6 : print "---------------------"
  2337.  
  2338. userpokemonhp = userpokemonhp - cpuhpdamage
  2339. if userpokemonhp <= 0 then
  2340.   userpokemonhp = 0
  2341.   battlewon = -1
  2342. end if
  2343.  
  2344. [nextcpucheck]  
  2345. locate 36, 17 : input "V";dummy$
  2346. cpucount = 1
  2347.  
  2348. if potion = 1 then goto [sequence_battlemenu]
  2349. if battlewon = 1 then goto [battlewon]
  2350. if battlewon = -1 then goto [battlelost]
  2351. if usercount = 0 then goto [playerfirst]
  2352. if cpuhastoplay = 1 then goto [sequence_battlemenu]
  2353. goto [sequence_battlemenu]
  2354.  
  2355. [battlewon]
  2356. cls
  2357.  
  2358.   locate 1, 1 : print "****************************************"
  2359.   locate 1, 2 : print "*"
  2360.   locate 1, 3 : print "*"
  2361.   locate 1, 4 : print "*"
  2362.   locate 1, 5 : print "*"
  2363.   locate 1, 6 : print "*"
  2364.   locate 1, 7 : print "*"
  2365.   locate 1, 8 : print "*"
  2366.   locate 1, 9 : print "*"
  2367.   locate 1, 10 : print "*"
  2368.   locate 1, 11 : print "*"
  2369.   locate 1, 12 : print "*"
  2370.   locate 1, 13 : print "*"
  2371.   locate 1, 14 : print "*"
  2372.   locate 1, 15 : print "*"
  2373.   locate 1, 16 : print "*"
  2374.   locate 1, 17 : print "*"
  2375.   locate 1, 18 : print "*"
  2376.   locate 1, 19 : print "*"
  2377.   locate 40, 2 : print "*"
  2378.   locate 40, 3 : print "*"
  2379.   locate 40, 4 : print "*"
  2380.   locate 40, 5 : print "*"
  2381.   locate 40, 6 : print "*"
  2382.   locate 40, 7 : print "*"
  2383.   locate 40, 8 : print "*"
  2384.   locate 40, 9 : print "*"
  2385.   locate 40, 10 : print "*"
  2386.   locate 40, 11 : print "*"
  2387.   locate 40, 12 : print "*"
  2388.   locate 40, 13 : print "*"
  2389.   locate 40, 14 : print "*"
  2390.   locate 40, 15 : print "*"
  2391.   locate 40, 16 : print "*"
  2392.   locate 40, 17 : print "*"
  2393.   locate 40, 18 : print "*"
  2394.   locate 40, 19 : print "*"
  2395.   locate 1, 20 : print "****************************************"
  2396.  
  2397.   locate 3, 11 : print "---------------------"
  2398.   locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
  2399.   locate 3, 13 : print "---------------------"
  2400.  
  2401.   locate 17, 4 : print "---------------------"
  2402.   locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
  2403.   locate 17, 6 : print "---------------------"
  2404.  
  2405.   locate 2, 16 : print "######################################"
  2406.   locate 2, 19 : print "######################################"
  2407.   locate 2, 17 : print "#"
  2408.   locate 2, 18 : print "#"
  2409.   locate 39, 17 : print "#"
  2410.   locate 39, 18 : print "#"
  2411.  
  2412. locate 4, 17 : print "You've won the battle!"
  2413. battlewon = 0
  2414. locate 4, 18 : input "Wanna fight again? (Y:N) ";answer$
  2415.  
  2416. select case answer$
  2417.   case "y"
  2418.     cls : goto [start]
  2419.   case "n"
  2420.     cls : goto [stop_all]
  2421.   case else
  2422.     cls : print "Follow Directions!"
  2423.     goto [stop_all]
  2424. end select
  2425.  
  2426. [battlelost]
  2427. cls
  2428.  
  2429.   locate 1, 1 : print "****************************************"
  2430.   locate 1, 2 : print "*"
  2431.   locate 1, 3 : print "*"
  2432.   locate 1, 4 : print "*"
  2433.   locate 1, 5 : print "*"
  2434.   locate 1, 6 : print "*"
  2435.   locate 1, 7 : print "*"
  2436.   locate 1, 8 : print "*"
  2437.   locate 1, 9 : print "*"
  2438.   locate 1, 10 : print "*"
  2439.   locate 1, 11 : print "*"
  2440.   locate 1, 12 : print "*"
  2441.   locate 1, 13 : print "*"
  2442.   locate 1, 14 : print "*"
  2443.   locate 1, 15 : print "*"
  2444.   locate 1, 16 : print "*"
  2445.   locate 1, 17 : print "*"
  2446.   locate 1, 18 : print "*"
  2447.   locate 1, 19 : print "*"
  2448.   locate 40, 2 : print "*"
  2449.   locate 40, 3 : print "*"
  2450.   locate 40, 4 : print "*"
  2451.   locate 40, 5 : print "*"
  2452.   locate 40, 6 : print "*"
  2453.   locate 40, 7 : print "*"
  2454.   locate 40, 8 : print "*"
  2455.   locate 40, 9 : print "*"
  2456.   locate 40, 10 : print "*"
  2457.   locate 40, 11 : print "*"
  2458.   locate 40, 12 : print "*"
  2459.   locate 40, 13 : print "*"
  2460.   locate 40, 14 : print "*"
  2461.   locate 40, 15 : print "*"
  2462.   locate 40, 16 : print "*"
  2463.   locate 40, 17 : print "*"
  2464.   locate 40, 18 : print "*"
  2465.   locate 40, 19 : print "*"
  2466.   locate 1, 20 : print "****************************************"
  2467.  
  2468.   locate 3, 11 : print "---------------------"
  2469.   locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
  2470.   locate 3, 13 : print "---------------------"
  2471.  
  2472.   locate 17, 4 : print "---------------------"
  2473.   locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
  2474.   locate 17, 6 : print "---------------------"
  2475.  
  2476.   locate 2, 16 : print "######################################"
  2477.   locate 2, 19 : print "######################################"
  2478.   locate 2, 17 : print "#"
  2479.   locate 2, 18 : print "#"
  2480.   locate 39, 17 : print "#"
  2481.   locate 39, 18 : print "#"
  2482. locate 4, 17 : print "You've lost the battle!"
  2483. battlewon = 0
  2484. locate 4, 18 : input "Wanna fight again? (Y:N) ";answer$
  2485.  
  2486. select case answer$
  2487.   case "y"
  2488.     cls : goto [start]
  2489.   case "n"
  2490.     cls : goto [stop_all]
  2491.   case else
  2492.     cls : print "Follow Directions!"
  2493.     goto [stop_all]
  2494. end select
  2495.  
  2496. [stop_all]
  2497. print "Thanks for using the program!"
  2498. print "Press ALT-F4 to close the window."
  2499. end
  2500.  
  2501. [sequence_runaway]
  2502.   cls
  2503.   locate 1, 1 : print "****************************************"
  2504.   locate 1, 2 : print "*"
  2505.   locate 1, 3 : print "*"
  2506.   locate 1, 4 : print "*"
  2507.   locate 1, 5 : print "*"
  2508.   locate 1, 6 : print "*"
  2509.   locate 1, 7 : print "*"
  2510.   locate 1, 8 : print "*"
  2511.   locate 1, 9 : print "*"
  2512.   locate 1, 10 : print "*"
  2513.   locate 1, 11 : print "*"
  2514.   locate 1, 12 : print "*"
  2515.   locate 1, 13 : print "*"
  2516.   locate 1, 14 : print "*"
  2517.   locate 1, 15 : print "*"
  2518.   locate 1, 16 : print "*"
  2519.   locate 1, 17 : print "*"
  2520.   locate 1, 18 : print "*"
  2521.   locate 1, 19 : print "*"
  2522.   locate 40, 2 : print "*"
  2523.   locate 40, 3 : print "*"
  2524.   locate 40, 4 : print "*"
  2525.   locate 40, 5 : print "*"
  2526.   locate 40, 6 : print "*"
  2527.   locate 40, 7 : print "*"
  2528.   locate 40, 8 : print "*"
  2529.   locate 40, 9 : print "*"
  2530.   locate 40, 10 : print "*"
  2531.   locate 40, 11 : print "*"
  2532.   locate 40, 12 : print "*"
  2533.   locate 40, 13 : print "*"
  2534.   locate 40, 14 : print "*"
  2535.   locate 40, 15 : print "*"
  2536.   locate 40, 16 : print "*"
  2537.   locate 40, 17 : print "*"
  2538.   locate 40, 18 : print "*"
  2539.   locate 40, 19 : print "*"
  2540.   locate 1, 20 : print "****************************************"
  2541.  
  2542.   locate 3, 11 : print "---------------------"
  2543.   locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
  2544.   locate 3, 13 : print "---------------------"
  2545.  
  2546.   locate 2, 16 : print "######################################"
  2547.   locate 2, 19 : print "######################################"
  2548.   locate 2, 17 : print "#"
  2549.   locate 2, 18 : print "#"
  2550.   locate 39, 17 : print "#"
  2551.   locate 39, 18 : print "#"
  2552. locate 4, 17 : print "You got away safely!"
  2553. locate 4, 18 : input "Wanna fight again? (Y:N) ";answer$
  2554.  
  2555. select case answer$
  2556.   case "y"
  2557.     cls : goto [start]
  2558.   case "n"
  2559.     cls : goto [stop_all]
  2560.   case else
  2561.     cls : print "Follow Directions!"
  2562.     goto [stop_all]
  2563. end select
  2564.  
  2565. [sequence_battlebagselect]
  2566. cls
  2567.  
  2568.   locate 1, 1 : print "****************************************"
  2569.   locate 1, 2 : print "*"
  2570.   locate 1, 3 : print "*"
  2571.   locate 1, 4 : print "*"
  2572.   locate 1, 5 : print "*"
  2573.   locate 1, 6 : print "*"
  2574.   locate 1, 7 : print "*"
  2575.   locate 1, 8 : print "*"
  2576.   locate 1, 9 : print "*"
  2577.   locate 1, 10 : print "*"
  2578.   locate 1, 11 : print "*"
  2579.   locate 1, 12 : print "*"
  2580.   locate 1, 13 : print "*"
  2581.   locate 1, 14 : print "*"
  2582.   locate 1, 15 : print "*"
  2583.   locate 1, 16 : print "*"
  2584.   locate 1, 17 : print "*"
  2585.   locate 1, 18 : print "*"
  2586.   locate 1, 19 : print "*"
  2587.   locate 40, 2 : print "*"
  2588.   locate 40, 3 : print "*"
  2589.   locate 40, 4 : print "*"
  2590.   locate 40, 5 : print "*"
  2591.   locate 40, 6 : print "*"
  2592.   locate 40, 7 : print "*"
  2593.   locate 40, 8 : print "*"
  2594.   locate 40, 9 : print "*"
  2595.   locate 40, 10 : print "*"
  2596.   locate 40, 11 : print "*"
  2597.   locate 40, 12 : print "*"
  2598.   locate 40, 13 : print "*"
  2599.   locate 40, 14 : print "*"
  2600.   locate 40, 15 : print "*"
  2601.   locate 40, 16 : print "*"
  2602.   locate 40, 17 : print "*"
  2603.   locate 40, 18 : print "*"
  2604.   locate 40, 19 : print "*"
  2605.   locate 1, 20 : print "****************************************"
  2606.  
  2607.   locate 20, 2 : print "*"
  2608.   locate 20, 3 : print "*"
  2609.   locate 20, 4 : print "*"
  2610.   locate 20, 5 : print "*"
  2611.   locate 20, 6 : print "*"
  2612.   locate 20, 7 : print "*"
  2613.   locate 20, 8 : print "*"
  2614.   locate 20, 9 : print "*"
  2615.   locate 20, 10 : print "*"
  2616.   locate 20, 11 : print "*"
  2617.   locate 20, 12 : print "*"
  2618.   locate 20, 13 : print "*"
  2619.   locate 20, 14 : print "*"
  2620.   locate 20, 15 : print "*"
  2621.   locate 20, 16 : print "*"
  2622.   locate 20, 17 : print "*"
  2623.   locate 20, 18 : print "*"
  2624.   locate 20, 19 : print "*"
  2625.   locate 2, 11 : print "******************"
  2626.   locate 22, 3 : print "1) Super Potion x";superpotioncount
  2627.   locate 22, 4 : print "2) Max Repel x";int(rnd(1)*1000)+1
  2628.   locate 22, 5 : print "3) Light Ball x1"
  2629.   locate 22, 6 : print "4) Red Orb x1"
  2630.   locate 22, 7 : print "5) Close Bag"
  2631.   locate 36, 7 : input "";bagchoice
  2632.  
  2633.   select case bagchoice
  2634.     case 1
  2635.       if superpotioncount = 0 then goto [nopotion]
  2636.       if userpokemonname$ = "Charizard" then maxhp = charizardhp
  2637.       if userpokemonname$ = "Blastoise" then maxhp = blastoisehp
  2638.       if userpokemonname$ = "Venusaur" then maxhp = venusaurhp
  2639.       if userpokemonname$ = "Pikachu" then maxhp = pikachuhp
  2640.       hpdiff = 100
  2641.       userpokemonhp = userpokemonhp + 100
  2642.       if userpokemonhp > maxhp then
  2643.         hpdiff = userpokemonhp - maxhp
  2644.         hpdiff = 100 - hpdiff
  2645.         userpokemonhp = maxhp
  2646.       end if
  2647.       cls
  2648.  
  2649.   locate 1, 1 : print "****************************************"
  2650.   locate 1, 2 : print "*"
  2651.   locate 1, 3 : print "*"
  2652.   locate 1, 4 : print "*"
  2653.   locate 1, 5 : print "*"
  2654.   locate 1, 6 : print "*"
  2655.   locate 1, 7 : print "*"
  2656.   locate 1, 8 : print "*"
  2657.   locate 1, 9 : print "*"
  2658.   locate 1, 10 : print "*"
  2659.   locate 1, 11 : print "*"
  2660.   locate 1, 12 : print "*"
  2661.   locate 1, 13 : print "*"
  2662.   locate 1, 14 : print "*"
  2663.   locate 1, 15 : print "*"
  2664.   locate 1, 16 : print "*"
  2665.   locate 1, 17 : print "*"
  2666.   locate 1, 18 : print "*"
  2667.   locate 1, 19 : print "*"
  2668.   locate 40, 2 : print "*"
  2669.   locate 40, 3 : print "*"
  2670.   locate 40, 4 : print "*"
  2671.   locate 40, 5 : print "*"
  2672.   locate 40, 6 : print "*"
  2673.   locate 40, 7 : print "*"
  2674.   locate 40, 8 : print "*"
  2675.   locate 40, 9 : print "*"
  2676.   locate 40, 10 : print "*"
  2677.   locate 40, 11 : print "*"
  2678.   locate 40, 12 : print "*"
  2679.   locate 40, 13 : print "*"
  2680.   locate 40, 14 : print "*"
  2681.   locate 40, 15 : print "*"
  2682.   locate 40, 16 : print "*"
  2683.   locate 40, 17 : print "*"
  2684.   locate 40, 18 : print "*"
  2685.   locate 40, 19 : print "*"
  2686.   locate 1, 20 : print "****************************************"
  2687.  
  2688.   locate 3, 11 : print "---------------------"
  2689.   locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
  2690.   locate 3, 13 : print "---------------------"
  2691.  
  2692.   locate 17, 4 : print "---------------------"
  2693.   locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
  2694.   locate 17, 6 : print "---------------------"
  2695.  
  2696.   locate 2, 16 : print "######################################"
  2697.   locate 2, 19 : print "######################################"
  2698.   locate 2, 17 : print "#"
  2699.   locate 2, 18 : print "#"
  2700.   locate 39, 17 : print "#"
  2701.   locate 39, 18 : print "#"
  2702.  
  2703.   locate 4, 17 : print hpdiff;" points of health were"
  2704.   locate 4, 18 : print "restored."
  2705.   locate 37, 17 : input "V";dummy$
  2706.   potion = 1
  2707.   superpotioncount = superpotioncount - 1
  2708.   goto [choice_cpu]
  2709. case 5
  2710.   goto [sequence_battlemenu]
  2711. case else
  2712.     cls
  2713.  
  2714.   locate 1, 1 : print "****************************************"
  2715.   locate 1, 2 : print "*"
  2716.   locate 1, 3 : print "*"
  2717.   locate 1, 4 : print "*"
  2718.   locate 1, 5 : print "*"
  2719.   locate 1, 6 : print "*"
  2720.   locate 1, 7 : print "*"
  2721.   locate 1, 8 : print "*"
  2722.   locate 1, 9 : print "*"
  2723.   locate 1, 10 : print "*"
  2724.   locate 1, 11 : print "*"
  2725.   locate 1, 12 : print "*"
  2726.   locate 1, 13 : print "*"
  2727.   locate 1, 14 : print "*"
  2728.   locate 1, 15 : print "*"
  2729.   locate 1, 16 : print "*"
  2730.   locate 1, 17 : print "*"
  2731.   locate 1, 18 : print "*"
  2732.   locate 1, 19 : print "*"
  2733.   locate 40, 2 : print "*"
  2734.   locate 40, 3 : print "*"
  2735.   locate 40, 4 : print "*"
  2736.   locate 40, 5 : print "*"
  2737.   locate 40, 6 : print "*"
  2738.   locate 40, 7 : print "*"
  2739.   locate 40, 8 : print "*"
  2740.   locate 40, 9 : print "*"
  2741.   locate 40, 10 : print "*"
  2742.   locate 40, 11 : print "*"
  2743.   locate 40, 12 : print "*"
  2744.   locate 40, 13 : print "*"
  2745.   locate 40, 14 : print "*"
  2746.   locate 40, 15 : print "*"
  2747.   locate 40, 16 : print "*"
  2748.   locate 40, 17 : print "*"
  2749.   locate 40, 18 : print "*"
  2750.   locate 40, 19 : print "*"
  2751.   locate 1, 20 : print "****************************************"
  2752.  
  2753.   locate 3, 11 : print "---------------------"
  2754.   locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
  2755.   locate 3, 13 : print "---------------------"
  2756.  
  2757.   locate 17, 4 : print "---------------------"
  2758.   locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
  2759.   locate 17, 6 : print "---------------------"
  2760.  
  2761.   locate 2, 16 : print "######################################"
  2762.   locate 2, 19 : print "######################################"
  2763.   locate 2, 17 : print "#"
  2764.   locate 2, 18 : print "#"
  2765.   locate 39, 17 : print "#"
  2766.   locate 39, 18 : print "#"
  2767.  
  2768.   locate 4, 17 : print "You can't use that here."
  2769.   locate 37, 17 : input "V";dummy$
  2770.   goto [sequence_battlemenu]
  2771. end select
  2772.  
  2773. [nopotion]
  2774.   cls
  2775.   locate 1, 1 : print "****************************************"
  2776.   locate 1, 2 : print "*"
  2777.   locate 1, 3 : print "*"
  2778.   locate 1, 4 : print "*"
  2779.   locate 1, 5 : print "*"
  2780.   locate 1, 6 : print "*"
  2781.   locate 1, 7 : print "*"
  2782.   locate 1, 8 : print "*"
  2783.   locate 1, 9 : print "*"
  2784.   locate 1, 10 : print "*"
  2785.   locate 1, 11 : print "*"
  2786.   locate 1, 12 : print "*"
  2787.   locate 1, 13 : print "*"
  2788.   locate 1, 14 : print "*"
  2789.   locate 1, 15 : print "*"
  2790.   locate 1, 16 : print "*"
  2791.   locate 1, 17 : print "*"
  2792.   locate 1, 18 : print "*"
  2793.   locate 1, 19 : print "*"
  2794.   locate 40, 2 : print "*"
  2795.   locate 40, 3 : print "*"
  2796.   locate 40, 4 : print "*"
  2797.   locate 40, 5 : print "*"
  2798.   locate 40, 6 : print "*"
  2799.   locate 40, 7 : print "*"
  2800.   locate 40, 8 : print "*"
  2801.   locate 40, 9 : print "*"
  2802.   locate 40, 10 : print "*"
  2803.   locate 40, 11 : print "*"
  2804.   locate 40, 12 : print "*"
  2805.   locate 40, 13 : print "*"
  2806.   locate 40, 14 : print "*"
  2807.   locate 40, 15 : print "*"
  2808.   locate 40, 16 : print "*"
  2809.   locate 40, 17 : print "*"
  2810.   locate 40, 18 : print "*"
  2811.   locate 40, 19 : print "*"
  2812.   locate 1, 20 : print "****************************************"
  2813.  
  2814.   locate 3, 11 : print "---------------------"
  2815.   locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
  2816.   locate 3, 13 : print "---------------------"
  2817.  
  2818.   locate 17, 4 : print "---------------------"
  2819.   locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
  2820.   locate 17, 6 : print "---------------------"
  2821.  
  2822.   locate 2, 16 : print "######################################"
  2823.   locate 2, 19 : print "######################################"
  2824.   locate 2, 17 : print "#"
  2825.   locate 2, 18 : print "#"
  2826.   locate 39, 17 : print "#"
  2827.   locate 39, 18 : print "#"
  2828.  
  2829.   locate 4, 17 : print "You have no potions left."
  2830.   locate 37, 17 : input "V";dummy$
  2831.   goto [sequence_battlemenu]
  2832.  
  2833.  
  2834. [sequence_battlepokemonselect]
  2835.   cls
  2836.   locate 1, 1 : print "****************************************"
  2837.   locate 1, 2 : print "*"
  2838.   locate 1, 3 : print "*"
  2839.   locate 1, 4 : print "*"
  2840.   locate 1, 5 : print "*"
  2841.   locate 1, 6 : print "*"
  2842.   locate 1, 7 : print "*"
  2843.   locate 1, 8 : print "*"
  2844.   locate 1, 9 : print "*"
  2845.   locate 1, 10 : print "*"
  2846.   locate 1, 11 : print "*"
  2847.   locate 1, 12 : print "*"
  2848.   locate 1, 13 : print "*"
  2849.   locate 1, 14 : print "*"
  2850.   locate 1, 15 : print "*"
  2851.   locate 1, 16 : print "*"
  2852.   locate 1, 17 : print "*"
  2853.   locate 1, 18 : print "*"
  2854.   locate 1, 19 : print "*"
  2855.   locate 1, 20 : print "****************************************"
  2856.   locate 40, 2 : print "*"
  2857.   locate 40, 3 : print "*"
  2858.   locate 40, 4 : print "*"
  2859.   locate 40, 5 : print "*"
  2860.   locate 40, 6 : print "*"
  2861.   locate 40, 7 : print "*"
  2862.   locate 40, 8 : print "*"
  2863.   locate 40, 9 : print "*"
  2864.   locate 40, 10 : print "*"
  2865.   locate 40, 11 : print "*"
  2866.   locate 40, 12 : print "*"
  2867.   locate 40, 13 : print "*"
  2868.   locate 40, 14 : print "*"
  2869.   locate 40, 15 : print "*"
  2870.   locate 40, 16 : print "*"
  2871.   locate 40, 17 : print "*"
  2872.   locate 40, 18 : print "*"
  2873.   locate 40, 19 : print "*"
  2874.  
  2875.   locate 2, 4 : print "####################"
  2876.   locate 2, 5 : print "# "+userpokemonname$+" lv. ";userpokemonlevel
  2877.   locate 21, 5 : print "#"
  2878.   locate 2, 6 : print "# HP: ";userpokemonhp;"
  2879.  locate 2, 7 : print "# EXP: 0"
  2880.  locate 21, 7 : print "#"
  2881.  locate 2, 8 : print "####################"
  2882.  locate 21, 2 : print "#"
  2883.  locate 21, 3 : print "#"
  2884.  locate 21, 4 : print "###################"
  2885.  locate 21, 5 : print "#"
  2886.  locate 21, 6 : print "#"
  2887.  locate 21, 7 : print "###################"
  2888.  locate 21, 8 : print "#"
  2889.  locate 21, 9 : print "#"
  2890.  locate 21, 10 : print "###################"
  2891.  locate 21, 11 : print "#"
  2892.  locate 21, 12 : print "#"
  2893.  locate 21, 13 : print "###################"
  2894.  locate 21, 14 : print "#"
  2895.  locate 21, 15 : print "#"
  2896.  locate 21, 16 : print "###################"
  2897.  locate 21, 17 : print "#"
  2898.  locate 21, 18 : print "#"
  2899.  locate 21, 19 : print "###################"
  2900.  locate 3, 18 : print "Back (Press Enter)";dummy$
  2901.  goto [sequence_battlemenu]
RAW Paste Data
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
Top