View difference between Paste ID: 2nsfKLUC and MztZxvjT
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
  print
1373
end if
1374
1375
  locate 1, 1 : print "****************************************"
1376
  locate 1, 2 : print "*"
1377
  locate 1, 3 : print "*"
1378
  locate 1, 4 : print "*"
1379
  locate 1, 5 : print "*"
1380
  locate 1, 6 : print "*"
1381
  locate 1, 7 : print "*"
1382
  locate 1, 8 : print "*"
1383
  locate 1, 9 : print "*"
1384
  locate 1, 10 : print "*"
1385
  locate 1, 11 : print "*"
1386
  locate 1, 12 : print "*"
1387
  locate 1, 13 : print "*"
1388
  locate 1, 14 : print "*"
1389
  locate 1, 15 : print "*"
1390
  locate 1, 16 : print "*"
1391
  locate 1, 17 : print "*"
1392
  locate 1, 18 : print "*"
1393
  locate 1, 19 : print "*"
1394
  locate 40, 2 : print "*"
1395
  locate 40, 3 : print "*"
1396
  locate 40, 4 : print "*"
1397
  locate 40, 5 : print "*"
1398
  locate 40, 6 : print "*"
1399
  locate 40, 7 : print "*"
1400
  locate 40, 8 : print "*"
1401
  locate 40, 9 : print "*"
1402
  locate 40, 10 : print "*"
1403
  locate 40, 11 : print "*"
1404
  locate 40, 12 : print "*"
1405
  locate 40, 13 : print "*"
1406
  locate 40, 14 : print "*"
1407
  locate 40, 15 : print "*"
1408
  locate 40, 16 : print "*"
1409
  locate 40, 17 : print "*"
1410
  locate 40, 18 : print "*"
1411
  locate 40, 19 : print "*"
1412
  locate 1, 20 : print "****************************************"
1413
1414
  locate 3, 11 : print "---------------------"
1415
  locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
1416
  locate 3, 13 : print "---------------------"
1417
1418
  locate 17, 4 : print "---------------------"
1419
  locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
1420
  locate 17, 6 : print "---------------------"
1421
1422
1423
  locate 2, 16 : print "######################################"
1424
  locate 2, 19 : print "######################################"
1425
  locate 2, 17 : print "#"
1426
  locate 2, 18 : print "#"
1427
  locate 39, 17 : print "#"
1428
  locate 39, 18 : print "#"
1429
1430
  locate 3, 17 : print "1) "+usermove1$
1431
  locate 3, 18 : print "3) "+usermove3$
1432
  locate 20, 17 : print "2) "+usermove2$
1433
  locate 20, 18 : print "4) "+usermove4$
1434
  locate 36, 17 : input "V";movechoiceuser
1435
1436
select case movechoiceuser
1437
  case 1
1438
    if usermove1pp = 0 then
1439
      flagppout = 1
1440
      goto [choice]
1441
    end if
1442
    a = userpokemonlevel
1443
    if usermove1class = 1 then
1444
      b = userpokemonatk
1445
    else
1446
      b = userpokemonspatk
1447
    end if
1448
    c = usermove1power
1449
    if usermove1class = 1 then
1450
      d = cpupokemondef
1451
    else
1452
      d = cpupokemonspdef
1453
    end if
1454
    if usermove1type = userpokemontype1 or usermove1type = userpokemontype2 then
1455
      x = 1.5
1456
    else
1457
      x = 1
1458
    end if
1459
1460
    usermoveused = 1
1461
1462
    if usermove1type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1463
    if usermove1type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1464
    if usermove1type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1465
    if usermove1type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1466
    if usermove1type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1467
    if usermove1type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1468
    if usermove1type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1469
    if usermove1type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1470
    if usermove1type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1471
    if usermove1type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1472
    if usermove1type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1473
    if usermove1type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1474
    if usermove1type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1475
    if usermove1type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1476
    if usermove1type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
1477
    if usermove1type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
1478
    if usermove1type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1479
    if usermove1type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1480
    if usermove1type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1481
    if usermove1type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1482
    if usermove1type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1483
    if usermove1type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1484
    if usermove1type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1485
    if usermove1type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1486
    if usermove1type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1487
    if usermove1type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1488
    if usermove1type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1489
    if usermove1type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1490
    if usermove1type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1491
    if usermove1type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1492
    if usermove1type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1493
    if usermove1type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1494
    if usermove1type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1495
    if usermove1type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1496
    if usermove1type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1497
    if usermove1type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1498
    if usermove1type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1499
    if usermove1type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1500
    if usermove1type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1501
    if usermove1type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1502
    if usermove1type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
1503
    if usermove1type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
1504
    if usermove1type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
1505
    if usermove1type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
1506
    if usermove1type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1507
    if usermove1type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1508
    if usermove1type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1509
    if usermove1type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1510
    if usermove1type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
1511
    if usermove1type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
1512
    if usermove1type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
1513
    if usermove1type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
1514
    if usermove1type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1515
    if usermove1type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1516
    if usermove1type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1517
    if usermove1type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1518
    if usermove1type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1519
    if usermove1type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1520
    if usermove1type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1521
    if usermove1type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1522
    if usermove1type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1523
    if usermove1type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1524
    if usermove1type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1525
    if usermove1type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1526
    if usermove1type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1527
    if usermove1type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1528
    if usermove1type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
1529
    if usermove1type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
1530
    if usermove1type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1531
    if usermove1type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1532
    if usermove1type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1533
    if usermove1type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1534
    if usermove1type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
1535
    if usermove1type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
1536
    if usermove1type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
1537
    if usermove1type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
1538
    if usermove1type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1539
    if usermove1type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1540
    if usermove1type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1541
    if usermove1type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1542
    if usermove1type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1543
    if usermove1type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1544
    if usermove1type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1545
    if usermove1type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1546
    if usermove1type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1547
    if usermove1type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1548
    if usermove1type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1549
    if usermove1type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1550
    if usermove1type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
1551
    if usermove1type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
1552
    if usermove1type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
1553
    if usermove1type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
1554
    if usermove1type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
1555
    if usermove1type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
1556
    if usermove1type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
1557
    if usermove1type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
1558
    if usermove1type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1559
    if usermove1type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1560
    if usermove1type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1561
    if usermove1type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1562
    if usermove1type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
1563
    if usermove1type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
1564
    if usermove1type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
1565
    if usermove1type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
1566
1567
    if effectivecheck >= 4 then
1568
      y = 40
1569
      userse = 1
1570
    end if
1571
    if effectivecheck = 2 then
1572
      y = 20
1573
      userse = 1
1574
    end if
1575
    if effectivecheck = 0 then
1576
      y = 10
1577
      userse = 0
1578
    end if
1579
    if effectivecheck = -2 then
1580
      y = 5
1581
      userse = -1
1582
    end if
1583
    if effectivecheck <= -4 then
1584
      y = 2.5
1585
      userse = -1
1586
    end if
1587
1588
    if usermove1type = 5 and cpupokemontype1 = 3 then y = 0
1589
    if usermove1type = 5 and cpupokemontype1 = 3 then y = 0
1590
    if usermove1type = 5 and cpupokemontype2 = 3 then y = 0
1591
    if usermove1type = 5 and cpupokemontype2 = 3 then y = 0
1592
1593
    goto [move_set_calculation]
1594
  case 2
1595
    if usermove2pp = 0 then
1596
      flagppout = 1
1597
      goto [choice]
1598
    end if
1599
    a = userpokemonlevel
1600
    if usermove2class = 1 then
1601
      b = userpokemonatk
1602
    else
1603
      b = userpokemonspatk
1604
    end if
1605
    c = usermove2power
1606
    if usermove2class = 1 then
1607
      d = cpupokemondef
1608
    else
1609
      d = cpupokemonspdef
1610
    end if
1611
    if usermove2type = userpokemontype1 or usermove2type = userpokemontype2 then
1612
      x = 1.5
1613
    else
1614
      x = 1
1615
    end if
1616
1617
    usermoveused = 2
1618
1619
    if usermove2type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1620
    if usermove2type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1621
    if usermove2type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1622
    if usermove2type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1623
    if usermove2type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1624
    if usermove2type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1625
    if usermove2type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1626
    if usermove2type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1627
    if usermove2type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1628
    if usermove2type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1629
    if usermove2type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1630
    if usermove2type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1631
    if usermove2type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1632
    if usermove2type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1633
    if usermove2type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
1634
    if usermove2type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
1635
    if usermove2type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1636
    if usermove2type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1637
    if usermove2type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1638
    if usermove2type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1639
    if usermove2type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1640
    if usermove2type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1641
    if usermove2type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1642
    if usermove2type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1643
    if usermove2type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1644
    if usermove2type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1645
    if usermove2type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1646
    if usermove2type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1647
    if usermove2type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1648
    if usermove2type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1649
    if usermove2type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1650
    if usermove2type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1651
    if usermove2type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1652
    if usermove2type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1653
    if usermove2type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1654
    if usermove2type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1655
    if usermove2type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1656
    if usermove2type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1657
    if usermove2type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1658
    if usermove2type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1659
    if usermove2type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
1660
    if usermove2type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
1661
    if usermove2type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
1662
    if usermove2type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
1663
    if usermove2type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1664
    if usermove2type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1665
    if usermove2type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1666
    if usermove2type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1667
    if usermove2type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
1668
    if usermove2type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
1669
    if usermove2type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
1670
    if usermove2type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
1671
    if usermove2type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1672
    if usermove2type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1673
    if usermove2type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1674
    if usermove2type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1675
    if usermove2type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1676
    if usermove2type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1677
    if usermove2type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1678
    if usermove2type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1679
    if usermove2type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1680
    if usermove2type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1681
    if usermove2type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1682
    if usermove2type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1683
    if usermove2type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1684
    if usermove2type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1685
    if usermove2type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
1686
    if usermove2type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
1687
    if usermove2type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1688
    if usermove2type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1689
    if usermove2type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1690
    if usermove2type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1691
    if usermove2type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
1692
    if usermove2type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
1693
    if usermove2type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
1694
    if usermove2type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
1695
    if usermove2type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1696
    if usermove2type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1697
    if usermove2type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1698
    if usermove2type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1699
    if usermove2type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1700
    if usermove2type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1701
    if usermove2type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1702
    if usermove2type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1703
    if usermove2type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1704
    if usermove2type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1705
    if usermove2type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1706
    if usermove2type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1707
    if usermove2type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
1708
    if usermove2type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
1709
    if usermove2type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
1710
    if usermove2type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
1711
    if usermove2type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
1712
    if usermove2type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
1713
    if usermove2type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
1714
    if usermove2type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
1715
    if usermove2type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1716
    if usermove2type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1717
    if usermove2type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1718
    if usermove2type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1719
    if usermove2type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
1720
    if usermove2type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
1721
    if usermove2type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
1722
    if usermove2type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
1723
 if effectivecheck >= 4 then
1724
      y = 40
1725
      userse = 1
1726
    end if
1727
    if effectivecheck = 2 then
1728
      y = 20
1729
      userse = 1
1730
    end if
1731
    if effectivecheck = 0 then
1732
      y = 10
1733
      userse = 0
1734
    end if
1735
    if effectivecheck = -2 then
1736
      y = 5
1737
      userse = -1
1738
    end if
1739
    if effectivecheck <= -4 then
1740
      y = 2.5
1741
      userse = -1
1742
    end if
1743
1744
    if usermove2type = 5 and cpupokemontype1 = 3 then y = 0
1745
    if usermove2type = 5 and cpupokemontype1 = 3 then y = 0
1746
    if usermove2type = 5 and cpupokemontype2 = 3 then y = 0
1747
    if usermove2type = 5 and cpupokemontype2 = 3 then y = 0
1748
1749
    goto [move_set_calculation]
1750
  case 3
1751
    if usermove1id = quickattackid then qa = 1
1752
    if usermove3pp = 0 then
1753
      flagppout = 1
1754
      goto [choice]
1755
    end if
1756
    a = userpokemonlevel
1757
    if usermove3class = 1 then
1758
      b = userpokemonatk
1759
    else
1760
      b = userpokemonspatk
1761
    end if
1762
    c = usermove3power
1763
    if usermove3class = 1 then
1764
      d = cpupokemondef
1765
    else
1766
      d = cpupokemonspdef
1767
    end if
1768
    if usermove3type = userpokemontype1 or usermove3type = userpokemontype2 then
1769
      x = 1.5
1770
    else
1771
      x = 1
1772
    end if
1773
1774
    usermoveused = 3
1775
1776
    if usermove3type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1777
    if usermove3type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1778
    if usermove3type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1779
    if usermove3type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1780
    if usermove3type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1781
    if usermove3type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1782
    if usermove3type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1783
    if usermove3type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1784
    if usermove3type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1785
    if usermove3type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1786
    if usermove3type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1787
    if usermove3type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1788
    if usermove3type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1789
    if usermove3type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1790
    if usermove3type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
1791
    if usermove3type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
1792
    if usermove3type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1793
    if usermove3type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1794
    if usermove3type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1795
    if usermove3type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1796
    if usermove3type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1797
    if usermove3type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1798
    if usermove3type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1799
    if usermove3type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1800
    if usermove3type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1801
    if usermove3type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1802
    if usermove3type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1803
    if usermove3type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1804
    if usermove3type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1805
    if usermove3type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1806
    if usermove3type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1807
    if usermove3type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1808
    if usermove3type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1809
    if usermove3type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1810
    if usermove3type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1811
    if usermove3type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1812
    if usermove3type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1813
    if usermove3type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1814
    if usermove3type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1815
    if usermove3type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1816
    if usermove3type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
1817
    if usermove3type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
1818
    if usermove3type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
1819
    if usermove3type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
1820
    if usermove3type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1821
    if usermove3type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1822
    if usermove3type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1823
    if usermove3type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1824
    if usermove3type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
1825
    if usermove3type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
1826
    if usermove3type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
1827
    if usermove3type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
1828
    if usermove3type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1829
    if usermove3type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1830
    if usermove3type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1831
    if usermove3type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1832
    if usermove3type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1833
    if usermove3type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1834
    if usermove3type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1835
    if usermove3type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1836
    if usermove3type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1837
    if usermove3type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1838
    if usermove3type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1839
    if usermove3type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1840
    if usermove3type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1841
    if usermove3type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1842
    if usermove3type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
1843
    if usermove3type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
1844
    if usermove3type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1845
    if usermove3type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1846
    if usermove3type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1847
    if usermove3type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1848
    if usermove3type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
1849
    if usermove3type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
1850
    if usermove3type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
1851
    if usermove3type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
1852
    if usermove3type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1853
    if usermove3type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1854
    if usermove3type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1855
    if usermove3type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1856
    if usermove3type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1857
    if usermove3type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1858
    if usermove3type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1859
    if usermove3type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1860
    if usermove3type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1861
    if usermove3type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1862
    if usermove3type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1863
    if usermove3type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1864
    if usermove3type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
1865
    if usermove3type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
1866
    if usermove3type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
1867
    if usermove3type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
1868
    if usermove3type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
1869
    if usermove3type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
1870
    if usermove3type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
1871
    if usermove3type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
1872
    if usermove3type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1873
    if usermove3type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1874
    if usermove3type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1875
    if usermove3type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1876
    if usermove3type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
1877
    if usermove3type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
1878
    if usermove3type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
1879
    if usermove3type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
1880
1881
    if effectivecheck >= 4 then
1882
      y = 40
1883
      userse = 1
1884
    end if
1885
    if effectivecheck = 2 then
1886
      y = 20
1887
      userse = 1
1888
    end if
1889
    if effectivecheck = 0 then
1890
      y = 10
1891
      userse = 0
1892
    end if
1893
    if effectivecheck = -2 then
1894
      y = 5
1895
      userse = -1
1896
    end if
1897
    if effectivecheck <= -4 then
1898
      y = 2.5
1899
      userse = -1
1900
    end if
1901
1902
    if usermove3type = 5 and cpupokemontype1 = 3 then y = 0
1903
    if usermove3type = 5 and cpupokemontype1 = 3 then y = 0
1904
    if usermove3type = 5 and cpupokemontype2 = 3 then y = 0
1905
    if usermove3type = 5 and cpupokemontype2 = 3 then y = 0
1906
1907
    goto [move_set_calculation]
1908
  case 4
1909
    if usermove4id = flyid then fly = 1
1910
    if usermove4pp = 0 then
1911
      flagppout = 1
1912
      goto [choice]
1913
    end if
1914
    a = userpokemonlevel
1915
    if usermove4class = 1 then
1916
      b = userpokemonatk
1917
    else
1918
      b = userpokemonspatk
1919
    end if
1920
    c = usermove4power
1921
    if usermove4class = 1 then
1922
      d = cpupokemondef
1923
    else
1924
      d = cpupokemonspdef
1925
    end if
1926
    if usermove4type = userpokemontype1 or usermove4type = userpokemontype2 then
1927
      x = 1.5
1928
    else
1929
      x = 1
1930
    end if
1931
1932
    usermoveused = 4
1933
1934
    if usermove4type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1935
    if usermove4type = 12 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1936
    if usermove4type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1937
    if usermove4type = 12 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1938
    if usermove4type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1939
    if usermove4type = 12 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1940
    if usermove4type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1941
    if usermove4type = 12 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1942
    if usermove4type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1943
    if usermove4type = 12 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1944
    if usermove4type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1945
    if usermove4type = 12 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1946
    if usermove4type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1947
    if usermove4type = 12 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1948
    if usermove4type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
1949
    if usermove4type = 12 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
1950
    if usermove4type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1951
    if usermove4type = 10 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
1952
    if usermove4type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1953
    if usermove4type = 10 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
1954
    if usermove4type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1955
    if usermove4type = 10 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1956
    if usermove4type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1957
    if usermove4type = 10 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1958
    if usermove4type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1959
    if usermove4type = 10 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1960
    if usermove4type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1961
    if usermove4type = 10 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1962
    if usermove4type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1963
    if usermove4type = 3 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
1964
    if usermove4type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1965
    if usermove4type = 3 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
1966
    if usermove4type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1967
    if usermove4type = 3 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1968
    if usermove4type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1969
    if usermove4type = 3 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1970
    if usermove4type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1971
    if usermove4type = 11 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
1972
    if usermove4type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1973
    if usermove4type = 11 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
1974
    if usermove4type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
1975
    if usermove4type = 11 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
1976
    if usermove4type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
1977
    if usermove4type = 11 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
1978
    if usermove4type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1979
    if usermove4type = 11 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1980
    if usermove4type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1981
    if usermove4type = 11 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1982
    if usermove4type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
1983
    if usermove4type = 13 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
1984
    if usermove4type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
1985
    if usermove4type = 13 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
1986
    if usermove4type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1987
    if usermove4type = 13 and cpupokemontype1 = 11 then effectivecheck = effectivecheck + 1
1988
    if usermove4type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1989
    if usermove4type = 13 and cpupokemontype2 = 11 then effectivecheck = effectivecheck + 1
1990
    if usermove4type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1991
    if usermove4type = 13 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
1992
    if usermove4type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1993
    if usermove4type = 13 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
1994
    if usermove4type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1995
    if usermove4type = 13 and cpupokemontype1 = 13 then effectivecheck = effectivecheck - 1
1996
    if usermove4type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1997
    if usermove4type = 13 and cpupokemontype2 = 13 then effectivecheck = effectivecheck - 1
1998
    if usermove4type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
1999
    if usermove4type = 4 and cpupokemontype1 = 4 then effectivecheck = effectivecheck - 1
2000
    if usermove4type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
2001
    if usermove4type = 4 and cpupokemontype2 = 4 then effectivecheck = effectivecheck - 1
2002
    if usermove4type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
2003
    if usermove4type = 4 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
2004
    if usermove4type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
2005
    if usermove4type = 4 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
2006
    if usermove4type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
2007
    if usermove4type = 15 and cpupokemontype1 = 3 then effectivecheck = effectivecheck + 1
2008
    if usermove4type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
2009
    if usermove4type = 15 and cpupokemontype2 = 3 then effectivecheck = effectivecheck + 1
2010
    if usermove4type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
2011
    if usermove4type = 15 and cpupokemontype1 = 10 then effectivecheck = effectivecheck - 1
2012
    if usermove4type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
2013
    if usermove4type = 15 and cpupokemontype2 = 10 then effectivecheck = effectivecheck - 1
2014
    if usermove4type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
2015
    if usermove4type = 15 and cpupokemontype1 = 11 then effectivecheck = effectivecheck - 1
2016
    if usermove4type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
2017
    if usermove4type = 15 and cpupokemontype2 = 11 then effectivecheck = effectivecheck - 1
2018
    if usermove4type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
2019
    if usermove4type = 15 and cpupokemontype1 = 12 then effectivecheck = effectivecheck + 1
2020
    if usermove4type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
2021
    if usermove4type = 15 and cpupokemontype2 = 12 then effectivecheck = effectivecheck + 1
2022
    if usermove4type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
2023
    if usermove4type = 5 and cpupokemontype1 = 4 then effectivecheck = effectivecheck + 1
2024
    if usermove4type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
2025
    if usermove4type = 5 and cpupokemontype2 = 4 then effectivecheck = effectivecheck + 1
2026
    if usermove4type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
2027
    if usermove4type = 5 and cpupokemontype1 = 10 then effectivecheck = effectivecheck + 1
2028
    if usermove4type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
2029
    if usermove4type = 5 and cpupokemontype2 = 10 then effectivecheck = effectivecheck + 1
2030
    if usermove4type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
2031
    if usermove4type = 5 and cpupokemontype1 = 12 then effectivecheck = effectivecheck - 1
2032
    if usermove4type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
2033
    if usermove4type = 5 and cpupokemontype2 = 12 then effectivecheck = effectivecheck - 1
2034
    if usermove4type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
2035
    if usermove4type = 5 and cpupokemontype1 = 13 then effectivecheck = effectivecheck + 1
2036
    if usermove4type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
2037
    if usermove4type = 5 and cpupokemontype2 = 13 then effectivecheck = effectivecheck + 1
2038
2039
    if effectivecheck >= 4 then
2040
      y = 40
2041
      userse = 1
2042
    end if
2043
    if effectivecheck = 2 then
2044
      y = 20
2045
      userse = 1
2046
    end if
2047
    if effectivecheck = 0 then
2048
      y = 10
2049
      userse = 0
2050
    end if
2051
    if effectivecheck = -2 then
2052
      y = 5
2053
      userse = -1
2054
    end if
2055
    if effectivecheck <= -4 then
2056
      y = 2.5
2057
      userse = -1
2058
    end if
2059
2060
    if usermove4type = 5 and cpupokemontype1 = 3 then y = 0
2061
    if usermove4type = 5 and cpupokemontype1 = 3 then y = 0
2062
    if usermove4type = 5 and cpupokemontype2 = 3 then y = 0
2063
    if usermove4type = 5 and cpupokemontype2 = 3 then y = 0
2064
2065
    goto [move_set_calculation]
2066
  case else
2067
    goto [choice]
2068
end select
2069
2070
[move_set_calculation]
2071
2072
z = int(rnd(1)*255)+1
2073
if z < 217 then goto [move_set_calculation]
2074
cls
2075
2076
crit = int(rnd(1)*200)+1
2077
if crit <= 12 then
2078
  a = a*2
2079
  crit = 500
2080
end if
2081
2082
if cpuqa = 1 then goto [cpufirst]
2083
if qa = 1 then goto [playerfirst]
2084
if userpokemonspeed >= cpupokemonspeed then
2085
  cpuhastoplay = 1
2086
  goto [playerfirst]
2087
else
2088
  goto [cpufirst]
2089
end if
2090
2091
[playerfirst]
2092
cls
2093
if fly = 2 then goto [playerflyex]
2094
select case usermoveused
2095
  case 1
2096
    usermove1pp = usermove1pp - 1
2097
  case 2
2098
    usermove2pp = usermove2pp - 1
2099
  case 3
2100
    usermove3pp = usermove3pp - 1
2101
  case 4
2102
    usermove4pp = usermove4pp - 1
2103
end select
2104
if fly = 1 then
2105
  locate 4, 17 : print "Charizard flew up high!"
2106
  goto [nextusercheck]
2107
end if
2108
2109
[playerflyex]
2110
2111
  locate 1, 1 : print "****************************************"
2112
  locate 1, 2 : print "*"
2113
  locate 1, 3 : print "*"
2114
  locate 1, 4 : print "*"
2115
  locate 1, 5 : print "*"
2116
  locate 1, 6 : print "*"
2117
  locate 1, 7 : print "*"
2118
  locate 1, 8 : print "*"
2119
  locate 1, 9 : print "*"
2120
  locate 1, 10 : print "*"
2121
  locate 1, 11 : print "*"
2122
  locate 1, 12 : print "*"
2123
  locate 1, 13 : print "*"
2124
  locate 1, 14 : print "*"
2125
  locate 1, 15 : print "*"
2126
  locate 1, 16 : print "*"
2127
  locate 1, 17 : print "*"
2128
  locate 1, 18 : print "*"
2129
  locate 1, 19 : print "*"
2130
  locate 40, 2 : print "*"
2131
  locate 40, 3 : print "*"
2132
  locate 40, 4 : print "*"
2133
  locate 40, 5 : print "*"
2134
  locate 40, 6 : print "*"
2135
  locate 40, 7 : print "*"
2136
  locate 40, 8 : print "*"
2137
  locate 40, 9 : print "*"
2138
  locate 40, 10 : print "*"
2139
  locate 40, 11 : print "*"
2140
  locate 40, 12 : print "*"
2141
  locate 40, 13 : print "*"
2142
  locate 40, 14 : print "*"
2143
  locate 40, 15 : print "*"
2144
  locate 40, 16 : print "*"
2145
  locate 40, 17 : print "*"
2146
  locate 40, 18 : print "*"
2147
  locate 40, 19 : print "*"
2148
  locate 1, 20 : print "****************************************"
2149
2150
  locate 3, 11 : print "---------------------"
2151
  locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
2152
  locate 3, 13 : print "---------------------"
2153
2154
  locate 17, 4 : print "---------------------"
2155
  locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
2156
  locate 17, 6 : print "---------------------"
2157
2158
  locate 2, 16 : print "######################################"
2159
  locate 2, 19 : print "######################################"
2160
  locate 2, 17 : print "#"
2161
  locate 2, 18 : print "#"
2162
  locate 39, 17 : print "#"
2163
  locate 39, 18 : print "#"
2164
2165
userhpdamage = ((((((((((2*a)/5)+2)*b*c)/d)/50)+2)*x)*y/10)*z)/255
2166
userhpdamage = int(userhpdamage)
2167
2168
if miss = 1 then 
2169
  locate 4, 17 : print userpokemonname$+" missed..."
2170
  goto [nextusercheck]
2171
end if
2172
2173
if usermoveused = 1 then
2174
  locate 4, 17 : print userpokemonname$+" used "+usermove1$+"."
2175
end if 
2176
if usermoveused = 2 then
2177
  locate 4, 17 : print userpokemonname$+" used "+usermove2$+"."
2178
end if
2179
if usermoveused = 3 then
2180
  locate 4, 17 : print userpokemonname$+" used "+usermove3$+"."
2181
end if
2182
if usermoveused = 4 then
2183
  locate 4, 17 : print userpokemonname$+" used "+usermove4$+"."
2184
end if
2185
2186
if userhpdamage = 0 then
2187
  locate 4, 18 : print "It has no effect on the opponent!"
2188
  nulleffect = 1
2189
end if
2190
if crit = 500  and nulleffect <> 1 then
2191
  locate 4, 18 : print "Critical Hit!"
2192
end if
2193
if userse = 1 and nulleffect <> 1 then
2194
  locate 4, 18 : print "It's Super Effective!"
2195
end if
2196
if userse <= -1 and nulleffect <> 1 then
2197
  locate 4, 18 : print "It's Not Very Effective..."
2198
end if
2199
2200
  locate 3, 11 : print "---------------------"
2201
  locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
2202
  locate 3, 13 : print "---------------------"
2203
2204
  locate 17, 4 : print "---------------------"
2205
  locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
2206
  locate 17, 6 : print "---------------------"
2207
2208
cpupokemonhp = cpupokemonhp - userhpdamage
2209
if cpupokemonhp <= 0 then
2210
  cpupokemonhp = 0
2211
  battlewon = 1
2212
end if
2213
2214
[nextusercheck]
2215
locate 36, 17 : input "V";dummy$
2216
usercount = 1
2217
if battlewon = 1 then goto [battlewon]
2218
if battlewon = -1 then goto [battlelost]
2219
if cpucount = 1 then goto [sequence_battlemenu]
2220
goto [cpufirst]
2221
2222
[cpufirst]
2223
if cpufly = 2 then goto [flyuse]
2224
cls
2225
select case cpumoveused
2226
  case 1
2227
    cpumove1pp = cpumove1pp - 1
2228
  case 2
2229
    cpumove2pp = cpumove2pp - 1
2230
  case 3
2231
    cpumove3pp = cpumove3pp - 1
2232
  case 4
2233
    cpumove4pp = cpumove4pp - 1
2234
end select
2235
2236
if cpufly = 1 then 
2237
  locate 4, 17 : print "Charizard flew up high!"
2238
  goto [nextcpucheck]
2239
end if
2240
 
2241
[flyuse]
2242
  if cpufly = 2 then cpufly = 3
2243
  locate 1, 1 : print "****************************************"
2244
  locate 1, 2 : print "*"
2245
  locate 1, 3 : print "*"
2246
  locate 1, 4 : print "*"
2247
  locate 1, 5 : print "*"
2248
  locate 1, 6 : print "*"
2249
  locate 1, 7 : print "*"
2250
  locate 1, 8 : print "*"
2251
  locate 1, 9 : print "*"
2252
  locate 1, 10 : print "*"
2253
  locate 1, 11 : print "*"
2254
  locate 1, 12 : print "*"
2255
  locate 1, 13 : print "*"
2256
  locate 1, 14 : print "*"
2257
  locate 1, 15 : print "*"
2258
  locate 1, 16 : print "*"
2259
  locate 1, 17 : print "*"
2260
  locate 1, 18 : print "*"
2261
  locate 1, 19 : print "*"
2262
  locate 40, 2 : print "*"
2263
  locate 40, 3 : print "*"
2264
  locate 40, 4 : print "*"
2265
  locate 40, 5 : print "*"
2266
  locate 40, 6 : print "*"
2267
  locate 40, 7 : print "*"
2268
  locate 40, 8 : print "*"
2269
  locate 40, 9 : print "*"
2270
  locate 40, 10 : print "*"
2271
  locate 40, 11 : print "*"
2272
  locate 40, 12 : print "*"
2273
  locate 40, 13 : print "*"
2274
  locate 40, 14 : print "*"
2275
  locate 40, 15 : print "*"
2276
  locate 40, 16 : print "*"
2277
  locate 40, 17 : print "*"
2278
  locate 40, 18 : print "*"
2279
  locate 40, 19 : print "*"
2280
  locate 1, 20 : print "****************************************"
2281
2282
  locate 3, 11 : print "---------------------"
2283
  locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
2284
  locate 3, 13 : print "---------------------"
2285
2286
  locate 17, 4 : print "---------------------"
2287
  locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
2288
  locate 17, 6 : print "---------------------"
2289
2290
  locate 2, 16 : print "######################################"
2291
  locate 2, 19 : print "######################################"
2292
  locate 2, 17 : print "#"
2293
  locate 2, 18 : print "#"
2294
  locate 39, 17 : print "#"
2295
  locate 39, 18 : print "#"
2296
  
2297
if cpumiss = 1 then  
2298
  locate 4, 17 : print userpokemonname$+" missed..."
2299
  goto [nextcpucheck]
2300
end if
2301
2302
if cpumoveused = 1 then
2303
  locate 4, 17 : print cpupokemonname$+" used "+cpumove1$+"."
2304
end if 'yourmom
2305
if cpumoveused = 2 then
2306
  locate 4, 17 : print cpupokemonname$+" used "+cpumove2$+"."
2307
end if
2308
if cpumoveused = 3 then
2309
  locate 4, 17 : print cpupokemonname$+" used "+cpumove3$+"."
2310
end if
2311
if cpumoveused = 4 then
2312
  locate 4, 17 : print cpupokemonname$+" used "+cpumove4$+"."
2313
end if
2314
2315
if cpuhpdamage = 0 then
2316
  locate 4, 18 : print "It has no effect on the opponent!"
2317
  cpunull = 1
2318
end if
2319
2320
if cpucrit = 500  and cpunull <> 1 then
2321
  locate 4, 18 : print "Critical Hit!"
2322
end if
2323
if cpuse = 1 and cpunull <> 1 then
2324
  locate 4, 18 : print "It's Super Effective!"
2325
end if
2326
if cpuse <= -1 and cpunull <> 1 then
2327
  locate 4, 18 : print "It's Not Very Effective..."
2328
end if
2329
2330
  locate 3, 11 : print "---------------------"
2331
  locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
2332
  locate 3, 13 : print "---------------------"
2333
2334
  locate 17, 4 : print "---------------------"
2335
  locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
2336
  locate 17, 6 : print "---------------------"
2337
2338
userpokemonhp = userpokemonhp - cpuhpdamage
2339
if userpokemonhp <= 0 then
2340
  userpokemonhp = 0
2341
  battlewon = -1
2342
end if
2343
2344
[nextcpucheck]  
2345
locate 36, 17 : input "V";dummy$
2346
cpucount = 1
2347
2348
if potion = 1 then goto [sequence_battlemenu]
2349
if battlewon = 1 then goto [battlewon]
2350
if battlewon = -1 then goto [battlelost]
2351
if usercount = 0 then goto [playerfirst]
2352
if cpuhastoplay = 1 then goto [sequence_battlemenu]
2353
goto [sequence_battlemenu]
2354
2355
[battlewon]
2356
cls
2357
2358
  locate 1, 1 : print "****************************************"
2359
  locate 1, 2 : print "*"
2360
  locate 1, 3 : print "*"
2361
  locate 1, 4 : print "*"
2362
  locate 1, 5 : print "*"
2363
  locate 1, 6 : print "*"
2364
  locate 1, 7 : print "*"
2365
  locate 1, 8 : print "*"
2366
  locate 1, 9 : print "*"
2367
  locate 1, 10 : print "*"
2368
  locate 1, 11 : print "*"
2369
  locate 1, 12 : print "*"
2370
  locate 1, 13 : print "*"
2371
  locate 1, 14 : print "*"
2372
  locate 1, 15 : print "*"
2373
  locate 1, 16 : print "*"
2374
  locate 1, 17 : print "*"
2375
  locate 1, 18 : print "*"
2376
  locate 1, 19 : print "*"
2377
  locate 40, 2 : print "*"
2378
  locate 40, 3 : print "*"
2379
  locate 40, 4 : print "*"
2380
  locate 40, 5 : print "*"
2381
  locate 40, 6 : print "*"
2382
  locate 40, 7 : print "*"
2383
  locate 40, 8 : print "*"
2384
  locate 40, 9 : print "*"
2385
  locate 40, 10 : print "*"
2386
  locate 40, 11 : print "*"
2387
  locate 40, 12 : print "*"
2388
  locate 40, 13 : print "*"
2389
  locate 40, 14 : print "*"
2390
  locate 40, 15 : print "*"
2391
  locate 40, 16 : print "*"
2392
  locate 40, 17 : print "*"
2393
  locate 40, 18 : print "*"
2394
  locate 40, 19 : print "*"
2395
  locate 1, 20 : print "****************************************"
2396
2397
  locate 3, 11 : print "---------------------"
2398
  locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
2399
  locate 3, 13 : print "---------------------"
2400
2401
  locate 17, 4 : print "---------------------"
2402
  locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
2403
  locate 17, 6 : print "---------------------"
2404
2405
  locate 2, 16 : print "######################################"
2406
  locate 2, 19 : print "######################################"
2407
  locate 2, 17 : print "#"
2408
  locate 2, 18 : print "#"
2409
  locate 39, 17 : print "#"
2410
  locate 39, 18 : print "#"
2411
2412
locate 4, 17 : print "You've won the battle!"
2413
battlewon = 0
2414
locate 4, 18 : input "Wanna fight again? (Y:N) ";answer$
2415
2416
select case answer$
2417
  case "y"
2418
    cls : goto [start]
2419
  case "n"
2420
    cls : goto [stop_all]
2421
  case else
2422
    cls : print "Follow Directions!"
2423
    goto [stop_all]
2424
end select
2425
2426
[battlelost]
2427
cls
2428
2429
  locate 1, 1 : print "****************************************"
2430
  locate 1, 2 : print "*"
2431
  locate 1, 3 : print "*"
2432
  locate 1, 4 : print "*"
2433
  locate 1, 5 : print "*"
2434
  locate 1, 6 : print "*"
2435
  locate 1, 7 : print "*"
2436
  locate 1, 8 : print "*"
2437
  locate 1, 9 : print "*"
2438
  locate 1, 10 : print "*"
2439
  locate 1, 11 : print "*"
2440
  locate 1, 12 : print "*"
2441
  locate 1, 13 : print "*"
2442
  locate 1, 14 : print "*"
2443
  locate 1, 15 : print "*"
2444
  locate 1, 16 : print "*"
2445
  locate 1, 17 : print "*"
2446
  locate 1, 18 : print "*"
2447
  locate 1, 19 : print "*"
2448
  locate 40, 2 : print "*"
2449
  locate 40, 3 : print "*"
2450
  locate 40, 4 : print "*"
2451
  locate 40, 5 : print "*"
2452
  locate 40, 6 : print "*"
2453
  locate 40, 7 : print "*"
2454
  locate 40, 8 : print "*"
2455
  locate 40, 9 : print "*"
2456
  locate 40, 10 : print "*"
2457
  locate 40, 11 : print "*"
2458
  locate 40, 12 : print "*"
2459
  locate 40, 13 : print "*"
2460
  locate 40, 14 : print "*"
2461
  locate 40, 15 : print "*"
2462
  locate 40, 16 : print "*"
2463
  locate 40, 17 : print "*"
2464
  locate 40, 18 : print "*"
2465
  locate 40, 19 : print "*"
2466
  locate 1, 20 : print "****************************************"
2467
2468
  locate 3, 11 : print "---------------------"
2469
  locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
2470
  locate 3, 13 : print "---------------------"
2471
2472
  locate 17, 4 : print "---------------------"
2473
  locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
2474
  locate 17, 6 : print "---------------------"
2475
2476
  locate 2, 16 : print "######################################"
2477
  locate 2, 19 : print "######################################"
2478
  locate 2, 17 : print "#"
2479
  locate 2, 18 : print "#"
2480
  locate 39, 17 : print "#"
2481
  locate 39, 18 : print "#"
2482
locate 4, 17 : print "You've lost the battle!"
2483
battlewon = 0
2484
locate 4, 18 : input "Wanna fight again? (Y:N) ";answer$
2485
2486
select case answer$
2487
  case "y"
2488
    cls : goto [start]
2489
  case "n"
2490
    cls : goto [stop_all]
2491
  case else
2492
    cls : print "Follow Directions!"
2493
    goto [stop_all]
2494
end select
2495
2496
[stop_all]
2497
print "Thanks for using the program!"
2498
print "Press ALT-F4 to close the window."
2499
end
2500
2501
[sequence_runaway]
2502
  cls
2503
  locate 1, 1 : print "****************************************"
2504
  locate 1, 2 : print "*"
2505
  locate 1, 3 : print "*"
2506
  locate 1, 4 : print "*"
2507
  locate 1, 5 : print "*"
2508
  locate 1, 6 : print "*"
2509
  locate 1, 7 : print "*"
2510
  locate 1, 8 : print "*"
2511
  locate 1, 9 : print "*"
2512
  locate 1, 10 : print "*"
2513
  locate 1, 11 : print "*"
2514
  locate 1, 12 : print "*"
2515
  locate 1, 13 : print "*"
2516
  locate 1, 14 : print "*"
2517
  locate 1, 15 : print "*"
2518
  locate 1, 16 : print "*"
2519
  locate 1, 17 : print "*"
2520
  locate 1, 18 : print "*"
2521
  locate 1, 19 : print "*"
2522
  locate 40, 2 : print "*"
2523
  locate 40, 3 : print "*"
2524
  locate 40, 4 : print "*"
2525
  locate 40, 5 : print "*"
2526
  locate 40, 6 : print "*"
2527
  locate 40, 7 : print "*"
2528
  locate 40, 8 : print "*"
2529
  locate 40, 9 : print "*"
2530
  locate 40, 10 : print "*"
2531
  locate 40, 11 : print "*"
2532
  locate 40, 12 : print "*"
2533
  locate 40, 13 : print "*"
2534
  locate 40, 14 : print "*"
2535
  locate 40, 15 : print "*"
2536
  locate 40, 16 : print "*"
2537
  locate 40, 17 : print "*"
2538
  locate 40, 18 : print "*"
2539
  locate 40, 19 : print "*"
2540
  locate 1, 20 : print "****************************************"
2541
2542
  locate 3, 11 : print "---------------------"
2543
  locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
2544
  locate 3, 13 : print "---------------------"
2545
2546
  locate 2, 16 : print "######################################"
2547
  locate 2, 19 : print "######################################"
2548
  locate 2, 17 : print "#"
2549
  locate 2, 18 : print "#"
2550
  locate 39, 17 : print "#"
2551
  locate 39, 18 : print "#"
2552
locate 4, 17 : print "You got away safely!"
2553
locate 4, 18 : input "Wanna fight again? (Y:N) ";answer$
2554
2555
select case answer$
2556
  case "y"
2557
    cls : goto [start]
2558
  case "n"
2559
    cls : goto [stop_all]
2560
  case else
2561
    cls : print "Follow Directions!"
2562
    goto [stop_all]
2563
end select
2564
2565
[sequence_battlebagselect]
2566
cls
2567
2568
  locate 1, 1 : print "****************************************"
2569
  locate 1, 2 : print "*"
2570
  locate 1, 3 : print "*"
2571
  locate 1, 4 : print "*"
2572
  locate 1, 5 : print "*"
2573
  locate 1, 6 : print "*"
2574
  locate 1, 7 : print "*"
2575
  locate 1, 8 : print "*"
2576
  locate 1, 9 : print "*"
2577
  locate 1, 10 : print "*"
2578
  locate 1, 11 : print "*"
2579
  locate 1, 12 : print "*"
2580
  locate 1, 13 : print "*"
2581
  locate 1, 14 : print "*"
2582
  locate 1, 15 : print "*"
2583
  locate 1, 16 : print "*"
2584
  locate 1, 17 : print "*"
2585
  locate 1, 18 : print "*"
2586
  locate 1, 19 : print "*"
2587
  locate 40, 2 : print "*"
2588
  locate 40, 3 : print "*"
2589
  locate 40, 4 : print "*"
2590
  locate 40, 5 : print "*"
2591
  locate 40, 6 : print "*"
2592
  locate 40, 7 : print "*"
2593
  locate 40, 8 : print "*"
2594
  locate 40, 9 : print "*"
2595
  locate 40, 10 : print "*"
2596
  locate 40, 11 : print "*"
2597
  locate 40, 12 : print "*"
2598
  locate 40, 13 : print "*"
2599
  locate 40, 14 : print "*"
2600
  locate 40, 15 : print "*"
2601
  locate 40, 16 : print "*"
2602
  locate 40, 17 : print "*"
2603
  locate 40, 18 : print "*"
2604
  locate 40, 19 : print "*"
2605
  locate 1, 20 : print "****************************************"
2606
2607
  locate 20, 2 : print "*"
2608
  locate 20, 3 : print "*"
2609
  locate 20, 4 : print "*"
2610
  locate 20, 5 : print "*"
2611
  locate 20, 6 : print "*"
2612
  locate 20, 7 : print "*"
2613
  locate 20, 8 : print "*"
2614
  locate 20, 9 : print "*"
2615
  locate 20, 10 : print "*"
2616
  locate 20, 11 : print "*"
2617
  locate 20, 12 : print "*"
2618
  locate 20, 13 : print "*"
2619
  locate 20, 14 : print "*"
2620
  locate 20, 15 : print "*"
2621
  locate 20, 16 : print "*"
2622
  locate 20, 17 : print "*"
2623
  locate 20, 18 : print "*"
2624
  locate 20, 19 : print "*"
2625
  locate 2, 11 : print "******************"
2626
  locate 22, 3 : print "1) Super Potion x";superpotioncount
2627
  locate 22, 4 : print "2) Max Repel x";int(rnd(1)*1000)+1
2628
  locate 22, 5 : print "3) Light Ball x1"
2629
  locate 22, 6 : print "4) Red Orb x1"
2630
  locate 22, 7 : print "5) Close Bag"
2631
  locate 36, 7 : input "";bagchoice
2632
2633
  select case bagchoice
2634
    case 1
2635
      if superpotioncount = 0 then goto [nopotion]
2636
      if userpokemonname$ = "Charizard" then maxhp = charizardhp
2637
      if userpokemonname$ = "Blastoise" then maxhp = blastoisehp
2638
      if userpokemonname$ = "Venusaur" then maxhp = venusaurhp
2639
      if userpokemonname$ = "Pikachu" then maxhp = pikachuhp
2640
      hpdiff = 100
2641
      userpokemonhp = userpokemonhp + 100
2642
      if userpokemonhp > maxhp then
2643
        hpdiff = userpokemonhp - maxhp
2644
        hpdiff = 100 - hpdiff
2645
        userpokemonhp = maxhp
2646
      end if
2647
      cls
2648
2649
  locate 1, 1 : print "****************************************"
2650
  locate 1, 2 : print "*"
2651
  locate 1, 3 : print "*"
2652
  locate 1, 4 : print "*"
2653
  locate 1, 5 : print "*"
2654
  locate 1, 6 : print "*"
2655
  locate 1, 7 : print "*"
2656
  locate 1, 8 : print "*"
2657
  locate 1, 9 : print "*"
2658
  locate 1, 10 : print "*"
2659
  locate 1, 11 : print "*"
2660
  locate 1, 12 : print "*"
2661
  locate 1, 13 : print "*"
2662
  locate 1, 14 : print "*"
2663
  locate 1, 15 : print "*"
2664
  locate 1, 16 : print "*"
2665
  locate 1, 17 : print "*"
2666
  locate 1, 18 : print "*"
2667
  locate 1, 19 : print "*"
2668
  locate 40, 2 : print "*"
2669
  locate 40, 3 : print "*"
2670
  locate 40, 4 : print "*"
2671
  locate 40, 5 : print "*"
2672
  locate 40, 6 : print "*"
2673
  locate 40, 7 : print "*"
2674
  locate 40, 8 : print "*"
2675
  locate 40, 9 : print "*"
2676
  locate 40, 10 : print "*"
2677
  locate 40, 11 : print "*"
2678
  locate 40, 12 : print "*"
2679
  locate 40, 13 : print "*"
2680
  locate 40, 14 : print "*"
2681
  locate 40, 15 : print "*"
2682
  locate 40, 16 : print "*"
2683
  locate 40, 17 : print "*"
2684
  locate 40, 18 : print "*"
2685
  locate 40, 19 : print "*"
2686
  locate 1, 20 : print "****************************************"
2687
2688
  locate 3, 11 : print "---------------------"
2689
  locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
2690
  locate 3, 13 : print "---------------------"
2691
2692
  locate 17, 4 : print "---------------------"
2693
  locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
2694
  locate 17, 6 : print "---------------------"
2695
2696
  locate 2, 16 : print "######################################"
2697
  locate 2, 19 : print "######################################"
2698
  locate 2, 17 : print "#"
2699
  locate 2, 18 : print "#"
2700
  locate 39, 17 : print "#"
2701
  locate 39, 18 : print "#"
2702
2703
  locate 4, 17 : print hpdiff;" points of health were"
2704
  locate 4, 18 : print "restored."
2705
  locate 37, 17 : input "V";dummy$
2706
  potion = 1
2707
  superpotioncount = superpotioncount - 1
2708
  goto [choice_cpu]
2709
case 5
2710
  goto [sequence_battlemenu]
2711
case else
2712
    cls
2713
2714
  locate 1, 1 : print "****************************************"
2715
  locate 1, 2 : print "*"
2716
  locate 1, 3 : print "*"
2717
  locate 1, 4 : print "*"
2718
  locate 1, 5 : print "*"
2719
  locate 1, 6 : print "*"
2720
  locate 1, 7 : print "*"
2721
  locate 1, 8 : print "*"
2722
  locate 1, 9 : print "*"
2723
  locate 1, 10 : print "*"
2724
  locate 1, 11 : print "*"
2725
  locate 1, 12 : print "*"
2726
  locate 1, 13 : print "*"
2727
  locate 1, 14 : print "*"
2728
  locate 1, 15 : print "*"
2729
  locate 1, 16 : print "*"
2730
  locate 1, 17 : print "*"
2731
  locate 1, 18 : print "*"
2732
  locate 1, 19 : print "*"
2733
  locate 40, 2 : print "*"
2734
  locate 40, 3 : print "*"
2735
  locate 40, 4 : print "*"
2736
  locate 40, 5 : print "*"
2737
  locate 40, 6 : print "*"
2738
  locate 40, 7 : print "*"
2739
  locate 40, 8 : print "*"
2740
  locate 40, 9 : print "*"
2741
  locate 40, 10 : print "*"
2742
  locate 40, 11 : print "*"
2743
  locate 40, 12 : print "*"
2744
  locate 40, 13 : print "*"
2745
  locate 40, 14 : print "*"
2746
  locate 40, 15 : print "*"
2747
  locate 40, 16 : print "*"
2748
  locate 40, 17 : print "*"
2749
  locate 40, 18 : print "*"
2750
  locate 40, 19 : print "*"
2751
  locate 1, 20 : print "****************************************"
2752
2753
  locate 3, 11 : print "---------------------"
2754
  locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
2755
  locate 3, 13 : print "---------------------"
2756
2757
  locate 17, 4 : print "---------------------"
2758
  locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
2759
  locate 17, 6 : print "---------------------"
2760
2761
  locate 2, 16 : print "######################################"
2762
  locate 2, 19 : print "######################################"
2763
  locate 2, 17 : print "#"
2764
  locate 2, 18 : print "#"
2765
  locate 39, 17 : print "#"
2766
  locate 39, 18 : print "#"
2767
2768
  locate 4, 17 : print "You can't use that here."
2769
  locate 37, 17 : input "V";dummy$
2770
  goto [sequence_battlemenu]
2771
end select
2772
2773
[nopotion]
2774
  cls
2775
  locate 1, 1 : print "****************************************"
2776
  locate 1, 2 : print "*"
2777
  locate 1, 3 : print "*"
2778
  locate 1, 4 : print "*"
2779
  locate 1, 5 : print "*"
2780
  locate 1, 6 : print "*"
2781
  locate 1, 7 : print "*"
2782
  locate 1, 8 : print "*"
2783
  locate 1, 9 : print "*"
2784
  locate 1, 10 : print "*"
2785
  locate 1, 11 : print "*"
2786
  locate 1, 12 : print "*"
2787
  locate 1, 13 : print "*"
2788
  locate 1, 14 : print "*"
2789
  locate 1, 15 : print "*"
2790
  locate 1, 16 : print "*"
2791
  locate 1, 17 : print "*"
2792
  locate 1, 18 : print "*"
2793
  locate 1, 19 : print "*"
2794
  locate 40, 2 : print "*"
2795
  locate 40, 3 : print "*"
2796
  locate 40, 4 : print "*"
2797
  locate 40, 5 : print "*"
2798
  locate 40, 6 : print "*"
2799
  locate 40, 7 : print "*"
2800
  locate 40, 8 : print "*"
2801
  locate 40, 9 : print "*"
2802
  locate 40, 10 : print "*"
2803
  locate 40, 11 : print "*"
2804
  locate 40, 12 : print "*"
2805
  locate 40, 13 : print "*"
2806
  locate 40, 14 : print "*"
2807
  locate 40, 15 : print "*"
2808
  locate 40, 16 : print "*"
2809
  locate 40, 17 : print "*"
2810
  locate 40, 18 : print "*"
2811
  locate 40, 19 : print "*"
2812
  locate 1, 20 : print "****************************************"
2813
2814
  locate 3, 11 : print "---------------------"
2815
  locate 3, 12 : print " "+userpokemonname$+" | HP: ";using("###", userpokemonhp)
2816
  locate 3, 13 : print "---------------------"
2817
2818
  locate 17, 4 : print "---------------------"
2819
  locate 17, 5 : print " "+cpupokemonname$+" | HP: ";using("###", cpupokemonhp)
2820
  locate 17, 6 : print "---------------------"
2821
2822
  locate 2, 16 : print "######################################"
2823
  locate 2, 19 : print "######################################"
2824
  locate 2, 17 : print "#"
2825
  locate 2, 18 : print "#"
2826
  locate 39, 17 : print "#"
2827
  locate 39, 18 : print "#"
2828
2829
  locate 4, 17 : print "You have no potions left."
2830
  locate 37, 17 : input "V";dummy$
2831
  goto [sequence_battlemenu]
2832
2833
2834
[sequence_battlepokemonselect]
2835
  cls
2836
  locate 1, 1 : print "****************************************"
2837
  locate 1, 2 : print "*"
2838
  locate 1, 3 : print "*"
2839
  locate 1, 4 : print "*"
2840
  locate 1, 5 : print "*"
2841
  locate 1, 6 : print "*"
2842
  locate 1, 7 : print "*"
2843
  locate 1, 8 : print "*"
2844
  locate 1, 9 : print "*"
2845
  locate 1, 10 : print "*"
2846
  locate 1, 11 : print "*"
2847
  locate 1, 12 : print "*"
2848
  locate 1, 13 : print "*"
2849
  locate 1, 14 : print "*"
2850
  locate 1, 15 : print "*"
2851
  locate 1, 16 : print "*"
2852
  locate 1, 17 : print "*"
2853
  locate 1, 18 : print "*"
2854
  locate 1, 19 : print "*"
2855
  locate 1, 20 : print "****************************************"
2856
  locate 40, 2 : print "*"
2857
  locate 40, 3 : print "*"
2858
  locate 40, 4 : print "*"
2859
  locate 40, 5 : print "*"
2860
  locate 40, 6 : print "*"
2861
  locate 40, 7 : print "*"
2862
  locate 40, 8 : print "*"
2863
  locate 40, 9 : print "*"
2864
  locate 40, 10 : print "*"
2865
  locate 40, 11 : print "*"
2866
  locate 40, 12 : print "*"
2867
  locate 40, 13 : print "*"
2868
  locate 40, 14 : print "*"
2869
  locate 40, 15 : print "*"
2870
  locate 40, 16 : print "*"
2871
  locate 40, 17 : print "*"
2872
  locate 40, 18 : print "*"
2873
  locate 40, 19 : print "*"
2874
2875
  locate 2, 4 : print "####################"
2876
  locate 2, 5 : print "# "+userpokemonname$+" lv. ";userpokemonlevel
2877
  locate 21, 5 : print "#"
2878
  locate 2, 6 : print "# HP: ";userpokemonhp;"
2879
  locate 2, 7 : print "# EXP: 0" 
2880
  locate 21, 7 : print "#"
2881
  locate 2, 8 : print "####################"
2882
  locate 21, 2 : print "#"
2883
  locate 21, 3 : print "#"
2884
  locate 21, 4 : print "###################"
2885
  locate 21, 5 : print "#"
2886
  locate 21, 6 : print "#"
2887
  locate 21, 7 : print "###################"
2888
  locate 21, 8 : print "#"
2889
  locate 21, 9 : print "#"
2890
  locate 21, 10 : print "###################"
2891
  locate 21, 11 : print "#"
2892
  locate 21, 12 : print "#"
2893
  locate 21, 13 : print "###################"
2894
  locate 21, 14 : print "#"
2895
  locate 21, 15 : print "#"
2896
  locate 21, 16 : print "###################"
2897
  locate 21, 17 : print "#"
2898
  locate 21, 18 : print "#"
2899
  locate 21, 19 : print "###################"
2900
  locate 3, 18 : print "Back (Press Enter)";dummy$
2901
  goto [sequence_battlemenu]