SHOW:
|
|
- or go back to the newest paste.
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 | ||
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] |