Pokemon Just Basic v0.2 Beta 1

mainwin 45 25
dim pkmn(718,32), pokemonname$(718)
dim userpkmn(6,30), userpokemonname$(6), tempuserpkmn(1,30), tempuserpokemonname$(1)
dim cpupkmn(6,30), cpupokemonname$(6), tempcpupkmn(1,30), tempcpupokemonname$(1)
dim moveid(616,5), movename$(616), tempmoveid(1,5), tempmovename$(1)
global bmenuchoice, bopchoice, pkmnopchoice$, runawayval, laststat, stat, move, pid, uet, cet
call setup
call movesetup
input pid
call userpokemon1in
call pkmnivrand
call cpupokemon1in

[main_menu]
cls
print "| Pokemon Just Basic v0.2 |"
print "1) Random Battle"
print "2) Trainer Battle"
print "3) My Pokemon"
print "4) Someone's PC"
print "5) PokeShop"
print "6) PokeDex"
print "7) Quit"
input "Do Which? ";answer
select case answer
  case 1 : goto [randombattle]
  case 2 : goto [setupbattle]
  case 3 : goto [mypokemon]
  case 4 : goto [pc]
  case 5 : goto [shop]
  case 6 : goto [dex]
  case 7 : goto [quit]
  case else : goto [main_menu]
end select

[randombattle]
pid = rnd(int(1)*718)+1
cpupokemoncount = 1
call cpupokemon1in
goto [main]

[setupbattle]
input "What is the id of the Pokemon you'd like to fight? ";pid
cpupokemoncount = 1
call cpupokemon1in
input "Fight another? (y/n) ";ans$
select case lower$(ans$)
  case "y"
    input "What is the id of the Pokemon you'd like to fight? ";pid
    cpupokemoncount = 2
    call cpupokemon2in
  case "n"
    goto [main]
  case else
  goto [setupbattle]
end select
input "Fight another? (y/n) ";ans$
select case lower$(ans$)
  case "y"
    input "What is the id of the Pokemon you'd like to fight? ";pid
    cpupokemoncount = 3
    call cpupokemon3in
  case "n"
    goto [main]
  case else
  goto [setupbattle]
end select
input "Fight another? (y/n) ";ans$
select case lower$(ans$)
  case "y"
    input "What is the id of the Pokemon you'd like to fight? ";pid
    cpupokemoncount = 4
    call cpupokemon4in
  case "n"
    goto [main]
  case else
  goto [setupbattle]
end select
input "Fight another? (y/n) ";ans$
select case lower$(ans$)
  case "y"
    input "What is the id of the Pokemon you'd like to fight? ";pid
    cpupokemoncount = 5
    call cpupokemon5in
  case "n"
    goto [main]
  case else
  goto [setupbattle]
end select
input "Fight another? (y/n) ";ans$
select case lower$(ans$)
  case "y"
    input "What is the id of the Pokemon you'd like to fight? ";pid
    cpupokemoncount = 6
    call cpupokemon6in
  case "n"
    goto [main]
  case else
  goto [setupbattle]
end select
goto [main]

[mypokemon]
cls : call mainborder
call pkmnstats
select case stat
  case 2 : call twoforone
  case 3 : call threeforone
  case 4 : call fourforone
  case 5 : call fiveforone
  case 6 : call sixforone
  case 7 : goto [main_menu]
end select
goto [mypokemon]

[pc]
print "Not yet implamented"
input "[Press Enter]";dummy$
goto [main_menu]

[shop]
print "Not yet implamented"
input "[Press Enter]";dummy$
goto [main_menu]

[dex]
print "Not yet implamented"
input "[Press Enter]";dummy$
goto [main_menu]

[quit]
print "Press ALT-F4 to close the window."
end

[main]
cpufirst = 0 : userfirst = 0
cls : call mainborder
call boxtext
call battlemenuoptions
select case bmenuchoice
  case 1 : goto [menu_battle]
  case 2 : goto [menu_bag]
  case 3 : goto [menu_pokemon]
  case 4 : goto [menu_runaway]
  case else : goto [main]
end select
goto [main]

[menu_battle]
cls : call mainborder
call boxtext
call battleoptions
select case bopchoice
  case 1 : goto [move_1]
  case 2 : goto [move_2]
  case 3 : goto [move_3]
  case 4 : goto [move_4]
  case else : goto [main]
end select
goto [main]

[menu_bag]
cls : call mainborder
call baginterface
goto [main]

[menu_pokemon]
if stat = 7 then
  stat = 1
  select case laststat
    case 2 : call twoforone
    case 3 : call threeforone
    case 4 : call fourforone
    case 5 : call fiveforone
    case 6 : call sixforone
 end select
end if
cls : call mainborder
call pkmnselect
select case pkmnopchoice$
  case "1" : goto [main]
  case "2" : call twoforone
  case "3" : call threeforone
  case "4" : call fourforone
  case "5" : call fiveforone
  case "6" : call sixforone
  case "s" : goto [stats]
  case "S" : goto [stats]
  case else : goto [main]
end select
goto [main]

[menu_runaway]
cls : call mainborder
call boxtext
call runaway
if runawayval = 1 then goto [main_menu]
goto [main]

[stats]
call pkmnstats
select case stat
  case 2 : call twoforone
  case 3 : call threeforone
  case 4 : call fourforone
  case 5 : call fiveforone
  case 6 : call sixforone
  case 7 : goto [menu_pokemon]
  case else
end select
goto [stats]

[miss]
cls : call mainborder
call boxtext
call screenupdate
locate 4, 17 : print userpokemonname$(1);"'s attack missed!"
locate 4, 18 : input "[Press Enter]";dummy$
userfirst = 1
turn = turn + 1
goto [check]

[move_1]
cls : call mainborder : move = 1
select case moveid(userpkmn(1,16),3)
  case 1 : call normaleffectiveuserattack
  case 2 : call fightingeffectiveuserattack
  case 3 : call flyingeffectiveuserattack
  case 4 : call poisoneffectiveuserattack
  case 5 : call groundeffectiveuserattack
  case 6 : call rockeffectiveuserattack
  case 7 : call bugeffectiveuserattack
  case 8 : call ghosteffectiveuserattack
  case 9 : call steeleffectiveuserattack
  case 10 : call fireeffectiveuserattack
  case 11 : call watereffectiveuserattack
  case 12 : call grasseffectiveuserattack
  case 13 : call electriceffectiveuserattack
  case 14 : call psychiceffectiveuserattack
  case 15 : call iceeffectiveuserattack
  case 16 : call dragoneffectiveuserattack
  case 17 : call darkeffectiveuserattack
  case 18 : call fairyeffectiveuserattack
end select

p = moveid(userpkmn(1,16),5) * (userpkmn(1,14)/userpkmn(1,15))
if p >= 0.41 then goto [clause1]
if p <= 0.4 then goto [miss]

[clause1]
z = int(rnd(1)*255)+1
if z < 217 then goto [clause1]
if uet > 2 then y = 40
if uet = 1 then y = 20
if uet = 0 then y = 10
if uet = -1 then y = 5
if uet <= -2 then y = 2.5
turn = turn + 1
if turn > 2 then goto [main]
c = moveid(userpkmn(1,16), 1)
if moveid(userpkmn(1,16), 4) = 1 then
  b = userpkmn(1,2) : d = cpupkmn(1,3)
end if
if moveid(userpkmn(1,16), 4) = 2 then
  b = userpkmn(1,4) : d = cpupkmn(1,5)
end if
if moveid(userpkmn(1,16), 3) = userpkmn(1, 21) or moveid(userpkmn(1,16), 3) = userpkmn(1, 20) then
  x = 1.5 : a = userpkmn(1,7)
else
  x = 1 : a = userpkmn(1,7)
end if
crit = int(rnd(1)*100)+1
if crit = 1 then
  crit = 1.5
else
  crit = 1
end if
hpdamage = int((((((((((2*a)/5+2)*b*c)/d)/50)+2)*x)*y/10)*z)/255)*crit
goto [cpumovedecide]

[move_2]
cls : call mainborder : move = 2
select case moveid(userpkmn(1,17),3)
  case 1 : call normaleffectiveuserattack
  case 2 : call fightingeffectiveuserattack
  case 3 : call flyingeffectiveuserattack
  case 4 : call poisoneffectiveuserattack
  case 5 : call groundeffectiveuserattack
  case 6 : call rockeffectiveuserattack
  case 7 : call bugeffectiveuserattack
  case 8 : call ghosteffectiveuserattack
  case 9 : call steeleffectiveuserattack
  case 10 : call fireeffectiveuserattack
  case 11 : call watereffectiveuserattack
  case 12 : call grasseffectiveuserattack
  case 13 : call electriceffectiveuserattack
  case 14 : call psychiceffectiveuserattack
  case 15 : call iceeffectiveuserattack
  case 16 : call dragoneffectiveuserattack
  case 17 : call darkeffectiveuserattack
  case 18 : call fairyeffectiveuserattack
end select

p = moveid(userpkmn(1,17),5) * (userpkmn(1,14)/userpkmn(1,15))
if p >= 0.41 then goto [clause2]
if p <= 0.4 then goto [miss]

[clause2]
z = int(rnd(1)*255)+1
if z < 217 then goto [clause2]
if uet >= 2 then y = 40
if uet = 1 then y = 20
if uet = 0 then y = 10
if uet = -1 then y = 5
if uet <= -2 then y = 2.5
turn = turn + 1
if turn > 2 then goto [main]
c = moveid(userpkmn(1,17), 1)
if moveid(userpkmn(1,17), 4) = 1 then
  b = userpkmn(1,2) : d = cpupkmn(1,3)
end if
if moveid(userpkmn(1,17), 4) = 2 then
  b = userpkmn(1,4) : d = cpupkmn(1,5)
end if
if moveid(userpkmn(1,17), 3) = userpkmn(1, 21) or moveid(userpkmn(1,17), 3) = userpkmn(1, 20) then
  x = 1.5 : a = userpkmn(1,7)
else
  x = 1 : a = userpkmn(1,7)
end if
crit = int(rnd(1)*100)+1
if crit = 1 then
  crit = 1.5
else
  crit = 1
end if
hpdamage = int((((((((((2*a)/5+2)*b*c)/d)/50)+2)*x)*y/10)*z)/255)*crit
goto [cpumovedecide]

[move_3]
cls : call mainborder : move = 3
select case moveid(userpkmn(1,18),3)
  case 1 : call normaleffectiveuserattack
  case 2 : call fightingeffectiveuserattack
  case 3 : call flyingeffectiveuserattack
  case 4 : call poisoneffectiveuserattack
  case 5 : call groundeffectiveuserattack
  case 6 : call rockeffectiveuserattack
  case 7 : call bugeffectiveuserattack
  case 8 : call ghosteffectiveuserattack
  case 9 : call steeleffectiveuserattack
  case 10 : call fireeffectiveuserattack
  case 11 : call watereffectiveuserattack
  case 12 : call grasseffectiveuserattack
  case 13 : call electriceffectiveuserattack
  case 14 : call psychiceffectiveuserattack
  case 15 : call iceeffectiveuserattack
  case 16 : call dragoneffectiveuserattack
  case 17 : call darkeffectiveuserattack
  case 18 : call fairyeffectiveuserattack
end select

p = moveid(userpkmn(1,18),5) * (userpkmn(1,14)/userpkmn(1,15))
if p >= 0.41 then goto [clause3]
if p <= 0.4 then goto [miss]

[clause3]
z = int(rnd(1)*255)+1
if z < 217 then goto [clause3]
if uet > 2 then y = 40
if uet = 1 then y = 20
if uet = 0 then y = 10
if uet = -1 then y = 5
if uet <= -2 then y = 2.5
turn = turn + 1
if turn > 2 then goto [main]
c = moveid(userpkmn(1,18), 1)
if moveid(userpkmn(1,18), 4) = 1 then
  b = userpkmn(1,2) : d = cpupkmn(1,3)
end if
if moveid(userpkmn(1,17), 4) = 2 then
  b = userpkmn(1,4) : d = cpupkmn(1,5)
end if
if moveid(userpkmn(1,18), 3) = userpkmn(1, 21) or moveid(userpkmn(1,18), 3) = userpkmn(1, 20) then
  x = 1.5 : a = userpkmn(1,7)
else
  x = 1 : a = userpkmn(1,7)
end if
crit = int(rnd(1)*100)+1
if crit = 1 then
  crit = 1.5
else
  crit = 1
end if
hpdamage = int((((((((((2*a)/5+2)*b*c)/d)/50)+2)*x)*y/10)*z)/255)*crit
goto [cpumovedecide]

[move_4]
cls : call mainborder : move = 4
select case moveid(userpkmn(1,19),3)
  case 1 : call normaleffectiveuserattack
  case 2 : call fightingeffectiveuserattack
  case 3 : call flyingeffectiveuserattack
  case 4 : call poisoneffectiveuserattack
  case 5 : call groundeffectiveuserattack
  case 6 : call rockeffectiveuserattack
  case 7 : call bugeffectiveuserattack
  case 8 : call ghosteffectiveuserattack
  case 9 : call steeleffectiveuserattack
  case 10 : call fireeffectiveuserattack
  case 11 : call watereffectiveuserattack
  case 12 : call grasseffectiveuserattack
  case 13 : call electriceffectiveuserattack
  case 14 : call psychiceffectiveuserattack
  case 15 : call iceeffectiveuserattack
  case 16 : call dragoneffectiveuserattack
  case 17 : call darkeffectiveuserattack
  case 18 : call fairyeffectiveuserattack
end select

p = moveid(userpkmn(1,19),5) * (userpkmn(1,14)/userpkmn(1,15))
if p >= 0.41 then goto [clause4]
if p <= 0.4 then goto [miss]

[clause4]
z = int(rnd(1)*255)+1
if z < 217 then goto [clause4]
if uet > 2 then y = 40
if uet = 1 then y = 20
if uet = 0 then y = 10
if uet = -1 then y = 5
if uet <= -2 then y = 2.5
turn = turn + 1
if turn > 2 then goto [main]
c = moveid(userpkmn(1,19), 1)
if moveid(userpkmn(1,19), 4) = 1 then
  b = userpkmn(1,2) : d = cpupkmn(1,3)
end if
if moveid(userpkmn(1,17), 4) = 2 then
  b = userpkmn(1,4) : d = cpupkmn(1,5)
end if
if moveid(userpkmn(1,19), 3) = userpkmn(1, 21) or moveid(userpkmn(1,19), 3) = userpkmn(1, 20) then
  x = 1.5 : a = userpkmn(1,7)
else
  x = 1 : a = userpkmn(1,7)
end if
crit = int(rnd(1)*100)+1
if crit = 1 then
  crit = 1.5
else
  crit = 1
end if
hpdamage = int((((((((((2*a)/5+2)*b*c)/d)/50)+2)*x)*y/10)*z)/255)*crit
goto [cpumovedecide]

[cpu_miss]
cls : call mainborder
call boxtext
call screenupdate
locate 4, 17 : print cpupokemonname$(1);"'s attack missed!"
locate 4, 18 : input "V";dummy$
cpufirst = 1
turn = turn + 1
goto [check]

[cpumovedecide]
turn = turn + 1
if turn > 2 then goto [main]
cpumove = int(rnd(1)*4)+1
select case cpumove
  case 1 : goto [cpu_move_1]
  case 2 : goto [cpu_move_2]
  case 3 : goto [cpu_move_3]
  case 4 : goto [cpu_move_4]
end select

[cpu_move_1]
cls : call mainborder : cpmove = 1
select case moveid(cpupkmn(1,16),3)
  case 1 : call normaleffectivecpuattack
  case 2 : call fightingeffectivecpuattack
  case 3 : call flyingeffectivecpuattack
  case 4 : call poisoneffectivecpuattack
  case 5 : call groundeffectivecpuattack
  case 6 : call rockeffectivecpuattack
  case 7 : call bugeffectivecpuattack
  case 8 : call ghosteffectivecpuattack
  case 9 : call steeleffectivecpuattack
  case 10 : call fireeffectivecpuattack
  case 11 : call watereffectivecpuattack
  case 12 : call grasseffectivecpuattack
  case 13 : call electriceffectivecpuattack
  case 14 : call psychiceffectivecpuattack
  case 15 : call iceeffectivecpuattack
  case 16 : call dragoneffectivecpuattack
  case 17 : call darkeffectivecpuattack
  case 18 : call fairyeffectivecpuattack
end select

p = moveid(cpupkmn(1,16),5) * (cpupkmn(1,14)/cpupkmn(1,15))
if p >= 0.41 then goto [cpu_clause1]
if p <= 0.4 then goto [cpu_miss]

[cpu_clause1]
z = int(rnd(1)*255)+1
if z < 217 then goto [cpu_clause1]
if cet >= 2 then y = 40
if cet = 1 then y = 20
if cet = 0 then y = 10
if cet = -1 then y = 5
if cet <= -2 then y = 2.5
turn = turn + 1
if turn > 2 then goto [main]
c = moveid(cpupkmn(1,16), 1)
if moveid(cpupkmn(1,16), 4) = 1 then
  b = cpupkmn(1,2) : d = userpkmn(1,3)
end if
if moveid(cpupkmn(1,16), 4) = 2 then
  b = cpupkmn(1,4) : d = userpkmn(1,5)
end if
if moveid(cpupkmn(1,16), 3) = cpupkmn(1, 21) or moveid(cpupkmn(1,16), 3) = cpupkmn(1, 20) then
  x = 1.5 : a = cpupkmn(1,7)
else
  x = 1 : a = cpupkmn(1,7)
end if
crit = int(rnd(1)*100)+1
if crit = 1 then
  crit = 1.5
else
  crit = 1
end if
cphpdamage = int((((((((((2*a)/5+2)*b*c)/d)/50)+2)*x)*y/10)*z)/255)*crit
goto [check]

[cpu_move_2]
cls : call mainborder : cpmove = 2
select case moveid(cpupkmn(1,17),3)
  case 1 : call normaleffectivecpuattack
  case 2 : call fightingeffectivecpuattack
  case 3 : call flyingeffectivecpuattack
  case 4 : call poisoneffectivecpuattack
  case 5 : call groundeffectivecpuattack
  case 6 : call rockeffectivecpuattack
  case 7 : call bugeffectivecpuattack
  case 8 : call ghosteffectivecpuattack
  case 9 : call steeleffectivecpuattack
  case 10 : call fireeffectivecpuattack
  case 11 : call watereffectivecpuattack
  case 12 : call grasseffectivecpuattack
  case 13 : call electriceffectivecpuattack
  case 14 : call psychiceffectivecpuattack
  case 15 : call iceeffectivecpuattack
  case 16 : call dragoneffectivecpuattack
  case 17 : call darkeffectivecpuattack
  case 18 : call fairyeffectivecpuattack
end select

p = moveid(cpupkmn(1,17),5) * (cpupkmn(1,14)/cpupkmn(1,15))
if p >= 0.41 then goto [cpu_clause2]
if p <= 0.4 then goto [cpu_miss]

[cpu_clause2]
z = int(rnd(1)*255)+1
if z < 217 then goto [cpu_clause2]
if cet >= 2 then y = 40
if cet = 1 then y = 20
if cet = 0 then y = 10
if cet = -1 then y = 5
if cet <= -2 then y = 2.5
turn = turn + 1
if turn > 2 then goto [main]
c = moveid(cpupkmn(1,17), 1)
if moveid(cpupkmn(1,17), 4) = 1 then
  b = cpupkmn(1,2) : d = userpkmn(1,3)
end if
if moveid(cpupkmn(1,17), 4) = 2 then
  b = cpupkmn(1,4) : d = userpkmn(1,5)
end if
if moveid(cpupkmn(1,17), 3) = cpupkmn(1, 21) or moveid(cpupkmn(1,17), 3) = cpupkmn(1, 20) then
  x = 1.5 : a = cpupkmn(1,7)
else
  x = 1 : a = cpupkmn(1,7)
end if
crit = int(rnd(1)*100)+1
if crit = 1 then
  crit = 1.5
else
  crit = 1
end if
cphpdamage = int((((((((((2*a)/5+2)*b*c)/d)/50)+2)*x)*y/10)*z)/255)*crit
goto [check]

[cpu_move_3]
cls : call mainborder : cpmove = 3
select case moveid(cpupkmn(1,18),3)
  case 1 : call normaleffectivecpuattack
  case 2 : call fightingeffectivecpuattack
  case 3 : call flyingeffectivecpuattack
  case 4 : call poisoneffectivecpuattack
  case 5 : call groundeffectivecpuattack
  case 6 : call rockeffectivecpuattack
  case 7 : call bugeffectivecpuattack
  case 8 : call ghosteffectivecpuattack
  case 9 : call steeleffectivecpuattack
  case 10 : call fireeffectivecpuattack
  case 11 : call watereffectivecpuattack
  case 12 : call grasseffectivecpuattack
  case 13 : call electriceffectivecpuattack
  case 14 : call psychiceffectivecpuattack
  case 15 : call iceeffectivecpuattack
  case 16 : call dragoneffectivecpuattack
  case 17 : call darkeffectivecpuattack
  case 18 : call fairyeffectivecpuattack
end select

p = moveid(cpupkmn(1,18),5) * (cpupkmn(1,14)/cpupkmn(1,15))
if p >= 0.41 then goto [cpu_clause3]
if p <= 0.4 then goto [cpu_miss]

[cpu_clause3]
z = int(rnd(1)*255)+1
if z < 217 then goto [cpu_clause3]
if cet > 2 then y = 40
if cet = 1 then y = 20
if cet = 0 then y = 10
if cet = -1 then y = 5
if cet <= -2 then y = 2.5
turn = turn + 1
if turn > 2 then goto [main]
c = moveid(cpupkmn(1,18), 1)
if moveid(cpupkmn(1,18), 4) = 1 then
  b = cpupkmn(1,2) : d = userpkmn(1,3)
end if
if moveid(cpupkmn(1,18), 4) = 2 then
  b = cpupkmn(1,4) : d = userpkmn(1,5)
end if
if moveid(cpupkmn(1,18), 3) = cpupkmn(1, 21) or moveid(cpupkmn(1,18), 3) = cpupkmn(1, 20) then
  x = 1.5 : a = cpupkmn(1,7)
else
  x = 1 : a = cpupkmn(1,7)
end if
crit = int(rnd(1)*100)+1
if crit = 1 then
  crit = 1.5
else
  crit = 1
end if
cphpdamage = int((((((((((2*a)/5+2)*b*c)/d)/50)+2)*x)*y/10)*z)/255)*crit
goto [check]

[cpu_move_4]
cls : call mainborder : cpmove = 4
select case moveid(cpupkmn(1,19),3)
  case 1 : call normaleffectivecpuattack
  case 2 : call fightingeffectivecpuattack
  case 3 : call flyingeffectivecpuattack
  case 4 : call poisoneffectivecpuattack
  case 5 : call groundeffectivecpuattack
  case 6 : call rockeffectivecpuattack
  case 7 : call bugeffectivecpuattack
  case 8 : call ghosteffectivecpuattack
  case 9 : call steeleffectivecpuattack
  case 10 : call fireeffectivecpuattack
  case 11 : call watereffectivecpuattack
  case 12 : call grasseffectivecpuattack
  case 13 : call electriceffectivecpuattack
  case 14 : call psychiceffectivecpuattack
  case 15 : call iceeffectivecpuattack
  case 16 : call dragoneffectivecpuattack
  case 17 : call darkeffectivecpuattack
  case 18 : call fairyeffectivecpuattack
end select

p = moveid(cpupkmn(1,19),5) * (cpupkmn(1,14)/cpupkmn(1,15))
if p >= 0.41 then goto [cpu_clause4]
if p <= 0.4 then goto [cpu_miss]

[cpu_clause4]
z = int(rnd(1)*255)+1
if z < 217 then goto [cpu_clause4]
if cet > 2 then y = 40
if cet = 1 then y = 20
if cet = 0 then y = 10
if cet = -1 then y = 5
if cet <= -2 then y = 2.5
turn = turn + 1
if turn > 2 then goto [main]
c = moveid(cpupkmn(1,19), 1)
if moveid(cpupkmn(1,19), 4) = 1 then
  b = cpupkmn(1,2) : d = userpkmn(1,3)
end if
if moveid(cpupkmn(1,19), 4) = 2 then
  b = cpupkmn(1,4) : d = userpkmn(1,5)
end if
if moveid(cpupkmn(1,19), 3) = cpupkmn(1, 21) or moveid(cpupkmn(1,19), 3) = cpupkmn(1, 20) then
  x = 1.5 : a = cpupkmn(1,7)
else
  x = 1 : a = cpupkmn(1,7)
end if
crit = int(rnd(1)*100)+1
if crit = 1 then
  crit = 1.5
else
  crit = 1
end if
cphpdamage = int((((((((((2*a)/5+2)*b*c)/d)/50)+2)*x)*y/10)*z)/255)*crit
goto [check]

'-----------------------------------------------------------------------------------

[check]
if userfirst = 1 then goto [cpubattleprint]
if cpufirst = 1 then goto [userbattleprint]
if userpkmn(1,6) > cpupkmn(1,6) then
  userfirst = 1
  goto [userbattleprint]
end if
cpufirst = 1
goto [cpubattleprint]

'-------------------------------------------------------------------------------

[cpubattleprint]
userpkmn(1,1) = userpkmn(1,1)-cphpdamage
call screenupdate
locate 4, 17 : print cpupokemonname$(1);" used ";movename$(cpupkmn(1,16));"!"
locate 4, 18 : input "[Press Enter]";dummy$
cls:call mainborder:call boxtext:call screenupdate
if crit <> 1 then
  locate 4, 17 : print "Critital Hit!"
  locate 4, 18 : input "[Press Enter]";dummy$
end if
cls:call mainborder:call boxtext:call screenupdate
if cet >= 1 then
  locate 4, 17 : print "It's super effective!"
  locate 4, 18 : input "[Press Enter]";dummy$
end if
cls:call mainborder:call boxtext:call screenupdate
if cet <= -1 then
  locate 4, 17 : print "It's not very effective..."
  locate 4, 18 : input "[Press Enter]";dummy$
end if
cls:call mainborder:call boxtext:call screenupdate
if userfirst = 1 then goto [main]
goto [check]

[userbattleprint]
cpupkmn(1,1) = cpupkmn(1,1)-hpdamage
call screenupdate
locate 4, 17 : print userpokemonname$(1);" used ";movename$(userpkmn(1,19));"!"
locate 4, 18 : input "[Press Enter]";dummy$
cls:call mainborder:call boxtext:call screenupdate
if crit <> 1 then
  locate 4, 17 : print "Critital Hit!"
  locate 4, 18 : input "[Press Enter]";dummy$
end if
cls:call mainborder:call boxtext:call screenupdate
if uet >= 1 then
  locate 4, 17 : print "It's super effective!"
  locate 4, 18 : input "[Press Enter]";dummy$
end if
cls:call mainborder:call boxtext:call screenupdate
if uet <= -1 then
  locate 4, 17 : print "It's not very effective..."
  locate 4, 18 : input "[Press Enter]";dummy$
end if
cls:call mainborder:call boxtext:call screenupdate
if cpufirst = 1 then goto [main]
goto [check]


'-------------------------------------------------------------------------------------------------------

function healthcalc(pid)
healthcalc = int(((((pkmn(pid,14)+(2*pkmn(pid,1))+(pkmn(pid,23)/4)+100)*pkmn(pid,7))/100)+10)-0.5)
end function

function attackcalc(pid)
NAT = 1
attackcalc = int((((((pkmn(pid,15)+(2*pkmn(pid,2))+(pkmn(pid,24)/4))*pkmn(pid,7))/100)+5)*NAT)-0.5)
end function

function defensecalc(pid)
NAT = 1
defensecalc = int((((((pkmn(pid,16)+(2*pkmn(pid,3))+(pkmn(pid,25)/4))*pkmn(pid,7))/100)+5)*NAT)-0.5)
end function

function specialattackcalc(pid)
NAT = 1
specialattackcalc = int((((((pkmn(pid,17)+(2*pkmn(pid,4))+(pkmn(pid,26)/4))*pkmn(pid,7))/100)+5)*NAT)-0.5)
end function

function specialdefensecalc(pid)
NAT = 1
specialdefensecalc = int((((((pkmn(pid,18)+(2*pkmn(pid,5))+(pkmn(pid,27)/4))*pkmn(pid,7))/100)+5)*NAT)-0.5)
end function

function speedcalc(pid)
NAT = 1
speedcalc = int((((((pkmn(pid,19)+(2*pkmn(pid,6))+(pkmn(pid,28)/4))*pkmn(pid,7))/100)+5)*NAT)-0.5)
end function

function hpdam(a, b, c, d, x, y, z)
hpdam = int((((((((((2*a)/5+2)*b*c)/d)/50)+2)*x)*y/10)*z)/255)
end function
'------------------------------------------------------------------------------------------------------

sub mainborder
  locate 1, 1 : print "****************************************"
  locate 1, 2 : print "*"
  locate 1, 3 : print "*"
  locate 1, 4 : print "*"
  locate 1, 5 : print "*"
  locate 1, 6 : print "*"
  locate 1, 7 : print "*"
  locate 1, 8 : print "*"
  locate 1, 9 : print "*"
  locate 1, 10 : print "*"
  locate 1, 11 : print "*"
  locate 1, 12 : print "*"
  locate 1, 13 : print "*"
  locate 1, 14 : print "*"
  locate 1, 15 : print "*"
  locate 1, 16 : print "*"
  locate 1, 17 : print "*"
  locate 1, 18 : print "*"
  locate 1, 19 : print "*"
  locate 40, 2 : print "*"
  locate 40, 3 : print "*"
  locate 40, 4 : print "*"
  locate 40, 5 : print "*"
  locate 40, 6 : print "*"
  locate 40, 7 : print "*"
  locate 40, 8 : print "*"
  locate 40, 9 : print "*"
  locate 40, 10 : print "*"
  locate 40, 11 : print "*"
  locate 40, 12 : print "*"
  locate 40, 13 : print "*"
  locate 40, 14 : print "*"
  locate 40, 15 : print "*"
  locate 40, 16 : print "*"
  locate 40, 17 : print "*"
  locate 40, 18 : print "*"
  locate 40, 19 : print "*"
  locate 1, 20 : print "****************************************"
end sub

sub boxtext
  locate 2, 16 : print "######################################"
  locate 2, 19 : print "######################################"
  locate 2, 17 : print "#"
  locate 2, 18 : print "#"
  locate 39, 17 : print "#"
  locate 39, 18 : print "#"
end sub

sub battlemenuoptions
  locate 4, 17 : print "1) Battle"
  locate 4, 18 : print "3) Pokemon"
  locate 19, 17 : print "2) Bag"
  locate 19, 18 : print "4) Run"
  locate 3, 11 : print "---------------------"
  locate 3, 12 : print " ";userpokemonname$(1);" | HP: ";using("###", userpkmn(1,1))
  locate 3, 13 : print "---------------------"
  locate 17, 4 : print "---------------------"
  locate 17, 5 : print " ";cpupokemonname$(1);" | HP: ";using("###", cpupkmn(1,1))
  locate 17, 6 : print "---------------------"
  locate 36, 17 : input "V";bmenuchoice
end sub

sub battleoptions
  locate 3, 17 : print "1) ";movename$(userpkmn(1,16))
  locate 3, 18 : print "3) ";movename$(userpkmn(1,18))
  locate 20, 17 : print "2) ";movename$(userpkmn(1,17))
  locate 20, 18 : print "4) ";movename$(userpkmn(1,19))
  locate 3, 11 : print "---------------------"
  locate 3, 12 : print " ";userpokemonname$(1);" | HP: ";using("###", userpkmn(1,1))
  locate 3, 13 : print "---------------------"
  locate 17, 4 : print "---------------------"
  locate 17, 5 : print " ";cpupokemonname$(1);" | HP: ";using("###", cpupkmn(1,1))
  locate 17, 6 : print "---------------------"
  locate 36, 17 : input "V";bopchoice
end sub

sub screenupdate
  locate 3, 11 : print "---------------------"
  locate 3, 12 : print " ";userpokemonname$(1);" | HP: ";using("###", userpkmn(1,1))
  locate 3, 13 : print "---------------------"
  locate 17, 4 : print "---------------------"
  locate 17, 5 : print " ";cpupokemonname$(1);" | HP: ";using("###", cpupkmn(1,1))
  locate 17, 6 : print "---------------------"
end sub

sub baginterface
  locate 20, 2 : print "*"
  locate 20, 3 : print "*"
  locate 20, 4 : print "*"
  locate 20, 5 : print "*"
  locate 20, 6 : print "*"
  locate 20, 7 : print "*"
  locate 20, 8 : print "*"
  locate 20, 9 : print "*"
  locate 20, 10 : print "*"
  locate 20, 11 : print "*"
  locate 20, 12 : print "*"
  locate 20, 13 : print "*"
  locate 20, 14 : print "*"
  locate 20, 15 : print "*"
  locate 20, 16 : print "*"
  locate 20, 17 : print "*"
  locate 20, 18 : print "*"
  locate 20, 19 : print "*"
  locate 2, 11 : print "******************"
  locate 36, 7 : input "";bagchoice
end sub

sub pkmnselect
  locate 2, 4 : print "####################"
  locate 2, 5 : print "# ";userpokemonname$(1);" lv. ";userpkmn(1,7)
  locate 2, 6 : print "# HP: ";userpkmn(1,1);"/";userpkmn(1,29)
  locate 2, 7 : print "####################"
  locate 21, 2 : print "###################"
  locate 21, 3 : print "# ";userpokemonname$(2);" lv. ";userpkmn(2,7)
  locate 21, 4 : print "# HP: ";userpkmn(2,1);"/";userpkmn(2,29)
  locate 21, 5 : print "###################"
  locate 21, 6 : print "# ";userpokemonname$(3);" lv. ";userpkmn(3,7)
  locate 21, 7 : print "# HP: ";userpkmn(3,1);"/";userpkmn(3,29)
  locate 21, 8 : print "###################"
  locate 21, 9 : print "# ";userpokemonname$(4);" lv. ";userpkmn(4,7)
  locate 21, 10 : print "# HP: ";userpkmn(4,1);"/";userpkmn(4,29)
  locate 21, 11 : print "###################"
  locate 21, 12 : print "# ";userpokemonname$(5);" lv. ";userpkmn(5,7)
  locate 21, 13 : print "# HP: ";userpkmn(5,1);"/";userpkmn(5,29)
  locate 21, 14 : print "###################"
  locate 21, 15 : print "# ";userpokemonname$(6);" lv. ";userpkmn(6,7)
  locate 21, 16 : print "# HP: ";userpkmn(6,1);"/";userpkmn(6,29)
  locate 21, 17 : print "###################"
  locate 33, 18 : print "#"
  locate 8, 18 : print "#"
  locate 8, 19 : print "##########################"
  locate 8, 17 : print "###############"
  locate 2, 8 : print "# Attack: ";userpkmn(1,2)
  locate 2, 9 : print "#"
  locate 2, 10 : print "# Defense: ";userpkmn(1,3)
  locate 2, 11 : print "#"
  locate 2, 12 : print "# SpAttack: ";userpkmn(1,4)
  locate 2, 13 : print "#"
  locate 2, 14 : print "# SpDefense: ";userpkmn(1,5)
  locate 2, 15 : print "#"
  locate 2, 16 : print "# Speed: ";userpkmn(1,6)
  locate 2, 17 : print "######"
  locate 9, 18 : input "Pokemon to Switch For: ";pkmnopchoice$
end sub

sub pkmnstats
  cls : call mainborder
  laststat = stat
  locate 2, 4 : print "####################"
  locate 2, 5 : print "# ";userpokemonname$(1);" lv. ";userpkmn(1,7)
  locate 2, 6 : print "# HP: ";userpkmn(1,1);"/";userpkmn(1,29)
  locate 2, 7 : print "####################"
  locate 21, 2 : print "###################"
  locate 21, 3 : print "# ";userpokemonname$(2);" lv. ";userpkmn(2,7)
  locate 21, 4 : print "# HP: ";userpkmn(2,1);"/";userpkmn(2,29)
  locate 21, 5 : print "###################"
  locate 21, 6 : print "# ";userpokemonname$(3);" lv. ";userpkmn(3,7)
  locate 21, 7 : print "# HP: ";userpkmn(3,1);"/";userpkmn(3,29)
  locate 21, 8 : print "###################"
  locate 21, 9 : print "# ";userpokemonname$(4);" lv. ";userpkmn(4,7)
  locate 21, 10 : print "# HP: ";userpkmn(4,1);"/";userpkmn(4,29)
  locate 21, 11 : print "###################"
  locate 21, 12 : print "# ";userpokemonname$(5);" lv. ";userpkmn(5,7)
  locate 21, 13 : print "# HP: ";userpkmn(5,1);"/";userpkmn(5,29)
  locate 21, 14 : print "###################"
  locate 21, 15 : print "# ";userpokemonname$(6);" lv. ";userpkmn(6,7)
  locate 21, 16 : print "# HP: ";userpkmn(6,1);"/";userpkmn(6,29)
  locate 21, 17 : print "###################"
  locate 33, 18 : print "#"
  locate 8, 18 : print "#"
  locate 8, 19 : print "##########################"
  locate 8, 17 : print "###############"
  locate 2, 8 : print "# Attack: ";userpkmn(1,2)
  locate 2, 9 : print "#"
  locate 2, 10 : print "# Defense: ";userpkmn(1,3)
  locate 2, 11 : print "#"
  locate 2, 12 : print "# SpAttack: ";userpkmn(1,4)
  locate 2, 13 : print "#"
  locate 2, 14 : print "# SpDefense: ";userpkmn(1,5)
  locate 2, 15 : print "#"
  locate 2, 16 : print "# Speed: ";userpkmn(1,6)
  locate 2, 17 : print "######"
  locate 9, 18 : input "Pokemon to View Stats: ";pkmnstatchoice$
  select case pkmnstatchoice$
  case "1" : goto [main]
  case "2" : stat = 2
  case "3" : stat = 3
  case "4" : stat = 3
  case "5" : stat = 5
  case "6" : stat = 6
  case else : stat = 7
end select

end sub

sub runaway
  chance = int(rnd(1)*200)+1 : runawayval = 1
  if chance = 42 then runawayval = 0
  if runawayval = 1 then
    locate 4, 17 : print "You got away safely!"
    locate 4, 18 : input "[Press Enter]";dummy$
  else
    locate 4, 17 : print "Can't Escape!"
    locate 4, 18 : input "[Press Enter]";dummy$
  end if
end sub

sub twoforone
for i = 1 to 30
  tempuserpkmn(1, i) = userpkmn(1, i)
next i
tempuserpokemonname$(1) = userpokemonname$(1)
for j = 1 to 30
  userpkmn(1, j) = userpkmn(2, j)
next j
userpokemonname$(1) = userpokemonname$(2)
for k = 1 to 30
  userpkmn(2, k) = tempuserpkmn(1, k)
next k
userpokemonname$(2) = tempuserpokemonname$(1)
end sub

sub threeforone
for i = 1 to 30
  tempuserpkmn(1, i) = userpkmn(1, i)
next i
tempuserpokemonname$(1) = userpokemonname$(1)
for j = 1 to 30
  userpkmn(1, j) = userpkmn(3, j)
next j
userpokemonname$(1) = userpokemonname$(3)
for k = 1 to 30
  userpkmn(3, k) = tempuserpkmn(1, k)
next k
userpokemonname$(3) = tempuserpokemonname$(1)
end sub

sub fourforone
for i = 1 to 30
  tempuserpkmn(1, i) = userpkmn(1, i)
next i
tempuserpokemonname$(1) = userpokemonname$(1)
for j = 1 to 30
  userpkmn(1, j) = userpkmn(4, j)
next j
userpokemonname$(1) = userpokemonname$(4)
for k = 1 to 30
  userpkmn(4, k) = tempuserpkmn(1, k)
next k
userpokemonname$(4) = tempuserpokemonname$(1)
end sub

sub fiveforone
for i = 1 to 30
  tempuserpkmn(1, i) = userpkmn(1, i)
next i
tempuserpokemonname$(1) = userpokemonname$(1)
for j = 1 to 30
  userpkmn(1, j) = userpkmn(5, j)
next j
userpokemonname$(1) = userpokemonname$(5)
for k = 1 to 30
  userpkmn(5, k) = tempuserpkmn(1, k)
next k
userpokemonname$(5) = tempuserpokemonname$(1)
end sub

sub sixforone
for i = 1 to 30
  tempuserpkmn(1, i) = userpkmn(1, i)
next i
tempuserpokemonname$(1) = userpokemonname$(1)
for j = 1 to 30
  userpkmn(1, j) = userpkmn(6, j)
next j
userpokemonname$(1) = userpokemonname$(6)
for k = 1 to 30
  userpkmn(6, k) = tempuserpkmn(1, k)
next k
userpokemonname$(6) = tempuserpokemonname$(1)
end sub

sub pkmnivrand
for z = 1 to 718
pkmn(z,14) = int(rnd(1)*31)+1  'random hp iv
pkmn(z,15) = int(rnd(1)*31)+1  'random attack iv
pkmn(z,16) = int(rnd(1)*31)+1  'random defense iv
pkmn(z,17) = int(rnd(1)*31)+1  'random special attack iv
pkmn(z,18) = int(rnd(1)*31)+1  'random special defense iv
pkmn(z,19) = int(rnd(1)*31)+1  'random speed iv
next z
end sub

sub setup
pokemonname$(1) = "Bulbasaur" 'name
pkmn(1,1) = 45          'base hp
pkmn(1,2) = 49          'base attack
pkmn(1,3) = 49          'base defense
pkmn(1,4) = 65          'base special attack
pkmn(1,5) = 65          'base special defense
pkmn(1,6) = 45          'base speed
pkmn(1,7) = 5           'level
pkmn(1,8) = 0           'health ev gain
pkmn(1,9) = 0           'attack ev gain
pkmn(1,10) = 0          'defense ev gain
pkmn(1,11) = 1          'special attack ev gain
pkmn(1,12) = 0          'special defense ev gain
pkmn(1,13) = 0          'speed ev gain
pkmn(1,14) = int(rnd(1)*31)+1  'random hp iv
pkmn(1,15) = int(rnd(1)*31)+1  'random attack iv
pkmn(1,16) = int(rnd(1)*31)+1  'random defense iv
pkmn(1,17) = int(rnd(1)*31)+1  'random special attack iv
pkmn(1,18) = int(rnd(1)*31)+1  'random special defense iv
pkmn(1,19) = int(rnd(1)*31)+1  'random speed iv
pkmn(1,20) = 12         'first type
pkmn(1,21) = 4          'second type
pkmn(1,22) = 1          'nature
pkmn(1,23) = 4          'health ev
pkmn(1,24) = 4          'attack ev
pkmn(1,25) = 4          'defense ev
pkmn(1,26) = 4          'special attack ev
pkmn(1,27) = 4          'special defense ev
pkmn(1,28) = 4          'speed ev
pkmn(1,29) = 33         'move 1
pkmn(1,30) = 45         'move 2
pkmn(1,31) = 0          'move 3
pkmn(1,32) = 0          'move 4
end sub

sub movesetup
  movename$(0) = "--------"
  moveid(0,1) = 0
  moveid(0,2) = 0
  moveid(0,3) = 0
  moveid(0,4) = 0
  moveid(0,5) = 5

  movename$(33) = "Tackle"
  moveid(33,1) = 50      'move power
  moveid(33,2) = 35      'power points
  moveid(33,3) = 15       'move type 1
  moveid(33,4) = 1       'move type 2
  moveid(33,5) = 100     'move accuracy

  movename$(45) = "Growl"
  moveid(45,1) = 0
  moveid(45,2) = 40
  moveid(45,3) = 1
  moveid(45,4) = 4
  moveid(45,5) = 100
end sub

sub userpokemon1in
  userpokemonname$(1) = pokemonname$(pid)  'name
  userpkmn(1,1) = healthcalc(pid)          'hp
  userpkmn(1,2) = attackcalc(pid)          'atk
  userpkmn(1,3) = defensecalc(pid)         'def
  userpkmn(1,4) = specialattackcalc(pid)   'spatk
  userpkmn(1,5) = specialdefensecalc(pid)  'spdef
  userpkmn(1,6) = speedcalc(pid)           'speed
  userpkmn(1,7) = pkmn(pid,7)              'level
  userpkmn(1,8) = pkmn(pid,8)              'hpevgain
  userpkmn(1,9) = pkmn(pid,9)              'atkevgain
  userpkmn(1,10) = pkmn(pid,10)            'defevgain
  userpkmn(1,11) = pkmn(pid,11)            'spatkevgain
  userpkmn(1,12) = pkmn(pid,12)            'spdefevgain
  userpkmn(1,13) = pkmn(pid,13)            'speedevgain
  userpkmn(1,14) = 100                     'accuravy
  userpkmn(1,15) = 100                     'evasion
  userpkmn(1,16) = pkmn(pid,29)            'move1
  userpkmn(1,17) = pkmn(pid,30)            'move2
  userpkmn(1,18) = pkmn(pid,31)            'move3
  userpkmn(1,19) = pkmn(pid,32)            'move4
  userpkmn(1,20) = pkmn(pid,20)            'type1
  userpkmn(1,21) = pkmn(pid,21)            'type2
  userpkmn(1,22) = pkmn(pid,22)            'nature
  userpkmn(1,23) = pkmn(pid,23)            'hpev
  userpkmn(1,24) = pkmn(pid,24)            'atkev
  userpkmn(1,25) = pkmn(pid,25)            'defev
  userpkmn(1,26) = pkmn(pid,26)            'spatkev
  userpkmn(1,27) = pkmn(pid,27)            'spdefev
  userpkmn(1,28) = pkmn(pid,28)            'speedev
  userpkmn(1,29) = healthcalc(pid)         'maxhp
  userpkmn(1,30) = 0                       'exp
end sub
sub userpokemon2in
  userpokemonname$(2) = pokemonname$(pid)
  userpkmn(2,1) = healthcalc(pid)
  userpkmn(2,2) = attackcalc(pid)
  userpkmn(2,3) = defensecalc(pid)
  userpkmn(2,4) = specialattackcalc(pid)
  userpkmn(2,5) = specialdefensecalc(pid)
  userpkmn(2,6) = speedcalc(pid)
  userpkmn(2,7) = pkmn(pid,7)
  userpkmn(2,8) = pkmn(pid,8)
  userpkmn(2,9) = pkmn(pid,9)
  userpkmn(2,10) = pkmn(pid,10)
  userpkmn(2,11) = pkmn(pid,11)
  userpkmn(2,12) = pkmn(pid,12)
  userpkmn(2,13) = pkmn(pid,13)
  userpkmn(2,14) = 100
  userpkmn(2,15) = 100
  userpkmn(2,16) = pkmn(pid,29)
  userpkmn(2,17) = pkmn(pid,30)
  userpkmn(2,18) = pkmn(pid,31)
  userpkmn(2,19) = pkmn(pid,32)
  userpkmn(2,20) = pkmn(pid,20)
  userpkmn(2,21) = pkmn(pid,21)
  userpkmn(2,22) = pkmn(pid,22)
  userpkmn(2,23) = pkmn(pid,23)
  userpkmn(2,24) = pkmn(pid,24)
  userpkmn(2,25) = pkmn(pid,25)
  userpkmn(2,26) = pkmn(pid,26)
  userpkmn(2,27) = pkmn(pid,27)
  userpkmn(2,28) = pkmn(pid,28)
  userpkmn(2,29) = healthcalc(pid)
  userpkmn(2,30) = 0
end sub
sub userpokemon3in
  userpokemonname$(3) = pokemonname$(pid)
  userpkmn(3,1) = healthcalc(pid)
  userpkmn(3,2) = attackcalc(pid)
  userpkmn(3,3) = defensecalc(pid)
  userpkmn(3,4) = specialattackcalc(pid)
  userpkmn(3,5) = specialdefensecalc(pid)
  userpkmn(3,6) = speedcalc(pid)
  userpkmn(3,7) = pkmn(pid,7)
  userpkmn(3,8) = pkmn(pid,8)
  userpkmn(3,9) = pkmn(pid,9)
  userpkmn(3,10) = pkmn(pid,10)
  userpkmn(3,11) = pkmn(pid,11)
  userpkmn(3,12) = pkmn(pid,12)
  userpkmn(3,13) = pkmn(pid,13)
  userpkmn(3,14) = 100
  userpkmn(3,15) = 100
  userpkmn(3,16) = pkmn(pid,29)
  userpkmn(3,17) = pkmn(pid,30)
  userpkmn(3,18) = pkmn(pid,31)
  userpkmn(3,19) = pkmn(pid,32)
  userpkmn(3,20) = pkmn(pid,20)
  userpkmn(3,21) = pkmn(pid,21)
  userpkmn(3,22) = pkmn(pid,22)
  userpkmn(3,23) = pkmn(pid,23)
  userpkmn(3,24) = pkmn(pid,24)
  userpkmn(3,25) = pkmn(pid,25)
  userpkmn(3,26) = pkmn(pid,26)
  userpkmn(3,27) = pkmn(pid,27)
  userpkmn(3,28) = pkmn(pid,28)
  userpkmn(3,29) = healthcalc(pid)
  userpkmn(3,30) = 0
end sub
sub userpokemon4in
  userpokemonname$(4) = pokemonname$(pid)
  userpkmn(4,1) = healthcalc(pid)
  userpkmn(4,2) = attackcalc(pid)
  userpkmn(4,3) = defensecalc(pid)
  userpkmn(4,4) = specialattackcalc(pid)
  userpkmn(4,5) = specialdefensecalc(pid)
  userpkmn(4,6) = speedcalc(pid)
  userpkmn(4,7) = pkmn(pid,7)
  userpkmn(4,8) = pkmn(pid,8)
  userpkmn(4,9) = pkmn(pid,9)
  userpkmn(4,10) = pkmn(pid,10)
  userpkmn(4,11) = pkmn(pid,11)
  userpkmn(4,12) = pkmn(pid,12)
  userpkmn(4,13) = pkmn(pid,13)
  userpkmn(4,14) = 100
  userpkmn(4,15) = 100
  userpkmn(4,16) = pkmn(pid,29)
  userpkmn(4,17) = pkmn(pid,30)
  userpkmn(4,18) = pkmn(pid,31)
  userpkmn(4,19) = pkmn(pid,32)
  userpkmn(4,20) = pkmn(pid,20)
  userpkmn(4,21) = pkmn(pid,21)
  userpkmn(4,22) = pkmn(pid,22)
  userpkmn(4,23) = pkmn(pid,23)
  userpkmn(4,24) = pkmn(pid,24)
  userpkmn(4,25) = pkmn(pid,25)
  userpkmn(4,26) = pkmn(pid,26)
  userpkmn(4,27) = pkmn(pid,27)
  userpkmn(4,28) = pkmn(pid,28)
  userpkmn(4,29) = healthcalc(pid)
  userpkmn(4,30) = 0
end sub
sub userpokemon5in
  userpokemonname$(5) = pokemonname$(pid)
  userpkmn(5,1) = healthcalc(pid)
  userpkmn(5,2) = attackcalc(pid)
  userpkmn(5,3) = defensecalc(pid)
  userpkmn(5,4) = specialattackcalc(pid)
  userpkmn(5,5) = specialdefensecalc(pid)
  userpkmn(5,6) = speedcalc(pid)
  userpkmn(5,7) = pkmn(pid,7)
  userpkmn(5,8) = pkmn(pid,8)
  userpkmn(5,9) = pkmn(pid,9)
  userpkmn(5,10) = pkmn(pid,10)
  userpkmn(5,11) = pkmn(pid,11)
  userpkmn(5,12) = pkmn(pid,12)
  userpkmn(5,13) = pkmn(pid,13)
  userpkmn(5,14) = 100
  userpkmn(5,15) = 100
  userpkmn(5,16) = pkmn(pid,29)
  userpkmn(5,17) = pkmn(pid,30)
  userpkmn(5,18) = pkmn(pid,31)
  userpkmn(5,19) = pkmn(pid,32)
  userpkmn(5,20) = pkmn(pid,20)
  userpkmn(5,21) = pkmn(pid,21)
  userpkmn(5,22) = pkmn(pid,22)
  userpkmn(5,23) = pkmn(pid,23)
  userpkmn(5,24) = pkmn(pid,24)
  userpkmn(5,25) = pkmn(pid,25)
  userpkmn(5,26) = pkmn(pid,26)
  userpkmn(5,27) = pkmn(pid,27)
  userpkmn(5,28) = pkmn(pid,28)
  userpkmn(5,29) = healthcalc(pid)
  userpkmn(5,30) = 0
end sub
sub userpokemon6in
  userpokemonname$(6) = pokemonname$(pid)
  userpkmn(6,1) = healthcalc(pid)
  userpkmn(6,2) = attackcalc(pid)
  userpkmn(6,3) = defensecalc(pid)
  userpkmn(6,4) = specialattackcalc(pid)
  userpkmn(6,5) = specialdefensecalc(pid)
  userpkmn(6,6) = speedcalc(pid)
  userpkmn(6,7) = pkmn(pid,7)
  userpkmn(6,8) = pkmn(pid,8)
  userpkmn(6,9) = pkmn(pid,9)
  userpkmn(6,10) = pkmn(pid,10)
  userpkmn(6,11) = pkmn(pid,11)
  userpkmn(6,12) = pkmn(pid,12)
  userpkmn(6,13) = pkmn(pid,13)
  userpkmn(6,14) = 100
  userpkmn(6,15) = 100
  userpkmn(6,16) = pkmn(pid,29)
  userpkmn(6,17) = pkmn(pid,30)
  userpkmn(6,18) = pkmn(pid,31)
  userpkmn(6,19) = pkmn(pid,32)
  userpkmn(6,20) = pkmn(pid,20)
  userpkmn(6,21) = pkmn(pid,21)
  userpkmn(6,22) = pkmn(pid,22)
  userpkmn(6,23) = pkmn(pid,23)
  userpkmn(6,24) = pkmn(pid,24)
  userpkmn(6,25) = pkmn(pid,25)
  userpkmn(6,26) = pkmn(pid,26)
  userpkmn(6,27) = pkmn(pid,27)
  userpkmn(6,28) = pkmn(pid,28)
  userpkmn(6,29) = healthcalc(pid)
  userpkmn(6,30) = 0
end sub
sub cpupokemon1in
  cpupokemonname$(1) = pokemonname$(pid)  'name
  cpupkmn(1,1) = healthcalc(pid)          'hp
  cpupkmn(1,2) = attackcalc(pid)          'atk
  cpupkmn(1,3) = defensecalc(pid)         'def
  cpupkmn(1,4) = specialattackcalc(pid)   'spatk
  cpupkmn(1,5) = specialdefensecalc(pid)  'spdef
  cpupkmn(1,6) = speedcalc(pid)           'speed
  cpupkmn(1,7) = pkmn(pid,7)              'level
  cpupkmn(1,8) = pkmn(pid,8)              'hpevgain
  cpupkmn(1,9) = pkmn(pid,9)              'atkevgain
  cpupkmn(1,10) = pkmn(pid,10)            'defevgain
  cpupkmn(1,11) = pkmn(pid,11)            'spatkevgain
  cpupkmn(1,12) = pkmn(pid,12)            'spdefevgain
  cpupkmn(1,13) = pkmn(pid,13)            'speedevgain
  cpupkmn(1,14) = 100                     'accuravy
  cpupkmn(1,15) = 100                     'evasion
  cpupkmn(1,16) = pkmn(pid,29)            'move1
  cpupkmn(1,17) = pkmn(pid,30)            'move2
  cpupkmn(1,18) = pkmn(pid,31)            'move3
  cpupkmn(1,19) = pkmn(pid,32)            'move4
  cpupkmn(1,20) = pkmn(pid,20)            'type1
  cpupkmn(1,21) = pkmn(pid,21)            'type2
  cpupkmn(1,22) = pkmn(pid,22)            'nature
  cpupkmn(1,23) = pkmn(pid,23)            'hpev
  cpupkmn(1,24) = pkmn(pid,24)            'atkev
  cpupkmn(1,25) = pkmn(pid,25)            'defev
  cpupkmn(1,26) = pkmn(pid,26)            'spatkev
  cpupkmn(1,27) = pkmn(pid,27)            'spdefev
  cpupkmn(1,28) = pkmn(pid,28)            'speedev
  cpupkmn(1,29) = healthcalc(pid)         'maxhp
  cpupkmn(1,30) = 0                       'exp
end sub
sub cpupokemon2in
  cpupokemonname$(2) = pokemonname$(pid)
  cpupkmn(2,1) = healthcalc(pid)
  cpupkmn(2,2) = attackcalc(pid)
  cpupkmn(2,3) = defensecalc(pid)
  cpupkmn(2,4) = specialattackcalc(pid)
  cpupkmn(2,5) = specialdefensecalc(pid)
  cpupkmn(2,6) = speedcalc(pid)
  cpupkmn(2,7) = pkmn(pid,7)
  cpupkmn(2,8) = pkmn(pid,8)
  cpupkmn(2,9) = pkmn(pid,9)
  cpupkmn(2,10) = pkmn(pid,10)
  cpupkmn(2,11) = pkmn(pid,11)
  cpupkmn(2,12) = pkmn(pid,12)
  cpupkmn(2,13) = pkmn(pid,13)
  cpupkmn(2,14) = 100
  cpupkmn(2,15) = 100
  cpupkmn(2,16) = pkmn(pid,29)
  cpupkmn(2,17) = pkmn(pid,30)
  cpupkmn(2,18) = pkmn(pid,31)
  cpupkmn(2,19) = pkmn(pid,32)
  cpupkmn(2,20) = pkmn(pid,20)
  cpupkmn(2,21) = pkmn(pid,21)
  cpupkmn(2,22) = pkmn(pid,22)
  cpupkmn(2,23) = pkmn(pid,23)
  cpupkmn(2,24) = pkmn(pid,24)
  cpupkmn(2,25) = pkmn(pid,25)
  cpupkmn(2,26) = pkmn(pid,26)
  cpupkmn(2,27) = pkmn(pid,27)
  cpupkmn(2,28) = pkmn(pid,28)
  cpupkmn(2,29) = healthcalc(pid)
  cpupkmn(2,30) = 0
end sub
sub cpupokemon3in
  cpupokemonname$(3) = pokemonname$(pid)
  cpupkmn(3,1) = healthcalc(pid)
  cpupkmn(3,2) = attackcalc(pid)
  cpupkmn(3,3) = defensecalc(pid)
  cpupkmn(3,4) = specialattackcalc(pid)
  cpupkmn(3,5) = specialdefensecalc(pid)
  cpupkmn(3,6) = speedcalc(pid)
  cpupkmn(3,7) = pkmn(pid,7)
  cpupkmn(3,8) = pkmn(pid,8)
  cpupkmn(3,9) = pkmn(pid,9)
  cpupkmn(3,10) = pkmn(pid,10)
  cpupkmn(3,11) = pkmn(pid,11)
  cpupkmn(3,12) = pkmn(pid,12)
  cpupkmn(3,13) = pkmn(pid,13)
  cpupkmn(3,14) = 100
  cpupkmn(3,15) = 100
  cpupkmn(3,16) = pkmn(pid,29)
  cpupkmn(3,17) = pkmn(pid,30)
  cpupkmn(3,18) = pkmn(pid,31)
  cpupkmn(3,19) = pkmn(pid,32)
  cpupkmn(3,20) = pkmn(pid,20)
  cpupkmn(3,21) = pkmn(pid,21)
  cpupkmn(3,22) = pkmn(pid,22)
  cpupkmn(3,23) = pkmn(pid,23)
  cpupkmn(3,24) = pkmn(pid,24)
  cpupkmn(3,25) = pkmn(pid,25)
  cpupkmn(3,26) = pkmn(pid,26)
  cpupkmn(3,27) = pkmn(pid,27)
  cpupkmn(3,28) = pkmn(pid,28)
  cpupkmn(3,29) = healthcalc(pid)
  cpupkmn(3,30) = 0
end sub
sub cpupokemon4in
  cpupokemonname$(4) = pokemonname$(pid)
  cpupkmn(4,1) = healthcalc(pid)
  cpupkmn(4,2) = attackcalc(pid)
  cpupkmn(4,3) = defensecalc(pid)
  cpupkmn(4,4) = specialattackcalc(pid)
  cpupkmn(4,5) = specialdefensecalc(pid)
  cpupkmn(4,6) = speedcalc(pid)
  cpupkmn(4,7) = pkmn(pid,7)
  cpupkmn(4,8) = pkmn(pid,8)
  cpupkmn(4,9) = pkmn(pid,9)
  cpupkmn(4,10) = pkmn(pid,10)
  cpupkmn(4,11) = pkmn(pid,11)
  cpupkmn(4,12) = pkmn(pid,12)
  cpupkmn(4,13) = pkmn(pid,13)
  cpupkmn(4,14) = 100
  cpupkmn(4,15) = 100
  cpupkmn(4,16) = pkmn(pid,29)
  cpupkmn(4,17) = pkmn(pid,30)
  cpupkmn(4,18) = pkmn(pid,31)
  cpupkmn(4,19) = pkmn(pid,32)
  cpupkmn(4,20) = pkmn(pid,20)
  cpupkmn(4,21) = pkmn(pid,21)
  cpupkmn(4,22) = pkmn(pid,22)
  cpupkmn(4,23) = pkmn(pid,23)
  cpupkmn(4,24) = pkmn(pid,24)
  cpupkmn(4,25) = pkmn(pid,25)
  cpupkmn(4,26) = pkmn(pid,26)
  cpupkmn(4,27) = pkmn(pid,27)
  cpupkmn(4,28) = pkmn(pid,28)
  cpupkmn(4,29) = healthcalc(pid)
  cpupkmn(4,30) = 0
end sub
sub cpupokemon5in
  cpupokemonname$(5) = pokemonname$(pid)
  cpupkmn(5,1) = healthcalc(pid)
  cpupkmn(5,2) = attackcalc(pid)
  cpupkmn(5,3) = defensecalc(pid)
  cpupkmn(5,4) = specialattackcalc(pid)
  cpupkmn(5,5) = specialdefensecalc(pid)
  cpupkmn(5,6) = speedcalc(pid)
  cpupkmn(5,7) = pkmn(pid,7)
  cpupkmn(5,8) = pkmn(pid,8)
  cpupkmn(5,9) = pkmn(pid,9)
  cpupkmn(5,10) = pkmn(pid,10)
  cpupkmn(5,11) = pkmn(pid,11)
  cpupkmn(5,12) = pkmn(pid,12)
  cpupkmn(5,13) = pkmn(pid,13)
  cpupkmn(5,14) = 100
  cpupkmn(5,15) = 100
  cpupkmn(5,16) = pkmn(pid,29)
  cpupkmn(5,17) = pkmn(pid,30)
  cpupkmn(5,18) = pkmn(pid,31)
  cpupkmn(5,19) = pkmn(pid,32)
  cpupkmn(5,20) = pkmn(pid,20)
  cpupkmn(5,21) = pkmn(pid,21)
  cpupkmn(5,22) = pkmn(pid,22)
  cpupkmn(5,23) = pkmn(pid,23)
  cpupkmn(5,24) = pkmn(pid,24)
  cpupkmn(5,25) = pkmn(pid,25)
  cpupkmn(5,26) = pkmn(pid,26)
  cpupkmn(5,27) = pkmn(pid,27)
  cpupkmn(5,28) = pkmn(pid,28)
  cpupkmn(5,29) = healthcalc(pid)
  cpupkmn(5,30) = 0
end sub
sub cpupokemon6in
  cpupokemonname$(6) = pokemonname$(pid)
  cpupkmn(6,1) = healthcalc(pid)
  cpupkmn(6,2) = attackcalc(pid)
  cpupkmn(6,3) = defensecalc(pid)
  cpupkmn(6,4) = specialattackcalc(pid)
  cpupkmn(6,5) = specialdefensecalc(pid)
  cpupkmn(6,6) = speedcalc(pid)
  cpupkmn(6,7) = pkmn(pid,7)
  cpupkmn(6,8) = pkmn(pid,8)
  cpupkmn(6,9) = pkmn(pid,9)
  cpupkmn(6,10) = pkmn(pid,10)
  cpupkmn(6,11) = pkmn(pid,11)
  cpupkmn(6,12) = pkmn(pid,12)
  cpupkmn(6,13) = pkmn(pid,13)
  cpupkmn(6,14) = 100
  cpupkmn(6,15) = 100
  cpupkmn(6,16) = pkmn(pid,29)
  cpupkmn(6,17) = pkmn(pid,30)
  cpupkmn(6,18) = pkmn(pid,31)
  cpupkmn(6,19) = pkmn(pid,32)
  cpupkmn(6,20) = pkmn(pid,20)
  cpupkmn(6,21) = pkmn(pid,21)
  cpupkmn(6,22) = pkmn(pid,22)
  cpupkmn(6,23) = pkmn(pid,23)
  cpupkmn(6,24) = pkmn(pid,24)
  cpupkmn(6,25) = pkmn(pid,25)
  cpupkmn(6,26) = pkmn(pid,26)
  cpupkmn(6,27) = pkmn(pid,27)
  cpupkmn(6,28) = pkmn(pid,28)
  cpupkmn(6,29) = healthcalc(pid)
  cpupkmn(6,30) = 0
end sub

sub normaleffectivecpuattack
  if userpkmn(1, 20) = 6 then cet = cet - 1
  if userpkmn(1, 20) = 9 then cet = cet - 1
  if userpkmn(1, 20) = 8 then cet = cet * 0
  if userpkmn(1, 21) = 6 then cet = cet - 1
  if userpkmn(1, 21) = 9 then cet = cet - 1
  if userpkmn(1, 21) = 8 then cet = cet * 0
end sub

sub fightingeffectivecpuattack
  if userpkmn(1, 20) = 1 then cet = cet + 1
  if userpkmn(1, 20) = 6 then cet = cet + 1
  if userpkmn(1, 20) = 9 then cet = cet + 1
  if userpkmn(1, 20) = 15 then cet = cet + 1
  if userpkmn(1, 20) = 17 then cet = cet + 1
  if userpkmn(1, 20) = 3 then cet = cet - 1
  if userpkmn(1, 20) = 4 then cet = cet - 1
  if userpkmn(1, 20) = 7 then cet = cet - 1
  if userpkmn(1, 20) = 14 then cet = cet - 1
  if userpkmn(1, 20) = 18 then cet = cet - 1
  if userpkmn(1, 20) = 8 then cet = cet * 0
  if userpkmn(1, 21) = 1 then cet = cet + 1
  if userpkmn(1, 21) = 6 then cet = cet + 1
  if userpkmn(1, 21) = 9 then cet = cet + 1
  if userpkmn(1, 21) = 15 then cet = cet + 1
  if userpkmn(1, 21) = 17 then cet = cet + 1
  if userpkmn(1, 21) = 3 then cet = cet - 1
  if userpkmn(1, 21) = 4 then cet = cet - 1
  if userpkmn(1, 21) = 7 then cet = cet - 1
  if userpkmn(1, 21) = 14 then cet = cet - 1
  if userpkmn(1, 21) = 18 then cet = cet - 1
  if userpkmn(1, 21) = 8 then cet = cet * 0
end sub

sub flyingeffectivecpuattack
  if userpkmn(1, 20) = 2 then cet = cet + 1
  if userpkmn(1, 20) = 7 then cet = cet + 1
  if userpkmn(1, 20) = 12 then cet = cet + 1
  if userpkmn(1, 20) = 6 then cet = cet - 1
  if userpkmn(1, 20) = 9 then cet = cet - 1
  if userpkmn(1, 20) = 10 then cet = cet - 1
  if userpkmn(1, 21) = 2 then cet = cet + 1
  if userpkmn(1, 21) = 7 then cet = cet + 1
  if userpkmn(1, 21) = 12 then cet = cet + 1
  if userpkmn(1, 21) = 6 then cet = cet - 1
  if userpkmn(1, 21) = 9 then cet = cet - 1
  if userpkmn(1, 21) = 10 then cet = cet - 1
end sub

sub poisoneffectivecpuattack
  if userpkmn(1, 20) = 12 then cet = cet + 1
  if userpkmn(1, 20) = 18 then cet = cet + 1
  if userpkmn(1, 20) = 4 then cet = cet - 1
  if userpkmn(1, 20) = 5 then cet = cet - 1
  if userpkmn(1, 20) = 6 then cet = cet - 1
  if userpkmn(1, 20) = 8 then cet = cet - 1
  if userpkmn(1, 20) = 9 then cet = cet * 0
  if userpkmn(1, 21) = 12 then cet = cet + 1
  if userpkmn(1, 21) = 18 then cet = cet + 1
  if userpkmn(1, 21) = 4 then cet = cet - 1
  if userpkmn(1, 21) = 5 then cet = cet - 1
  if userpkmn(1, 21) = 6 then cet = cet - 1
  if userpkmn(1, 21) = 8 then cet = cet - 1
  if userpkmn(1, 21) = 9 then cet = cet * 0
end sub

sub groundeffectivecpuattack
  if userpkmn(1, 20) = 4 then cet = cet + 1
  if userpkmn(1, 20) = 6 then cet = cet + 1
  if userpkmn(1, 20) = 9 then cet = cet + 1
  if userpkmn(1, 20) = 10 then cet = cet + 1
  if userpkmn(1, 20) = 13 then cet = cet + 1
  if userpkmn(1, 20) = 7 then cet = cet - 1
  if userpkmn(1, 20) = 11 then cet = cet - 1
  if userpkmn(1, 20) = 3 then cet = cet * 0
  if userpkmn(1, 21) = 4 then cet = cet + 1
  if userpkmn(1, 21) = 6 then cet = cet + 1
  if userpkmn(1, 21) = 9 then cet = cet + 1
  if userpkmn(1, 21) = 10 then cet = cet + 1
  if userpkmn(1, 21) = 13 then cet = cet + 1
  if userpkmn(1, 21) = 7 then cet = cet - 1
  if userpkmn(1, 21) = 11 then cet = cet - 1
  if userpkmn(1, 21) = 3 then cet = cet * 0
end sub

sub rockeffectivecpuattack
  if userpkmn(1, 20) = 3 then cet = cet + 1
  if userpkmn(1, 20) = 7 then cet = cet + 1
  if userpkmn(1, 20) = 10 then cet = cet + 1
  if userpkmn(1, 20) = 15 then cet = cet + 1
  if userpkmn(1, 20) = 2 then cet = cet - 1
  if userpkmn(1, 20) = 5 then cet = cet - 1
  if userpkmn(1, 20) = 9 then cet = cet - 1
  if userpkmn(1, 21) = 3 then cet = cet + 1
  if userpkmn(1, 21) = 7 then cet = cet + 1
  if userpkmn(1, 21) = 10 then cet = cet + 1
  if userpkmn(1, 21) = 15 then cet = cet + 1
  if userpkmn(1, 21) = 2 then cet = cet - 1
  if userpkmn(1, 21) = 5 then cet = cet - 1
  if userpkmn(1, 21) = 9 then cet = cet - 1
end sub

sub bugeffectivecpuattack
  if userpkmn(1, 20) = 12 then cet = cet + 1
  if userpkmn(1, 20) = 14 then cet = cet + 1
  if userpkmn(1, 20) = 17 then cet = cet + 1
  if userpkmn(1, 20) = 2 then cet = cet - 1
  if userpkmn(1, 20) = 3 then cet = cet - 1
  if userpkmn(1, 20) = 4 then cet = cet - 1
  if userpkmn(1, 20) = 8 then cet = cet - 1
  if userpkmn(1, 20) = 9 then cet = cet - 1
  if userpkmn(1, 20) = 10 then cet = cet - 1
  if userpkmn(1, 20) = 18 then cet = cet - 1
  if userpkmn(1, 21) = 12 then cet = cet + 1
  if userpkmn(1, 21) = 14 then cet = cet + 1
  if userpkmn(1, 21) = 17 then cet = cet + 1
  if userpkmn(1, 21) = 2 then cet = cet - 1
  if userpkmn(1, 21) = 3 then cet = cet - 1
  if userpkmn(1, 21) = 4 then cet = cet - 1
  if userpkmn(1, 21) = 8 then cet = cet - 1
  if userpkmn(1, 21) = 9 then cet = cet - 1
  if userpkmn(1, 21) = 10 then cet = cet - 1
  if userpkmn(1, 21) = 18 then cet = cet - 1
end sub

sub ghosteffectivecpuattack
  if userpkmn(1, 20) = 8 then cet = cet + 1
  if userpkmn(1, 20) = 14 then cet = cet + 1
  if userpkmn(1, 20) = 17 then cet = cet - 1
  if userpkmn(1, 20) = 1 then cet = cet * 0
  if userpkmn(1, 21) = 8 then cet = cet + 1
  if userpkmn(1, 21) = 14 then cet = cet + 1
  if userpkmn(1, 21) = 17 then cet = cet - 1
  if userpkmn(1, 21) = 1 then cet = cet * 0
end sub

sub steeleffectivecpuattack
  if userpkmn(1, 20) = 6 then cet = cet + 1
  if userpkmn(1, 20) = 15 then cet = cet + 1
  if userpkmn(1, 20) = 18 then cet = cet + 1
  if userpkmn(1, 20) = 9 then cet = cet - 1
  if userpkmn(1, 20) = 10 then cet = cet - 1
  if userpkmn(1, 20) = 11 then cet = cet - 1
  if userpkmn(1, 20) = 13 then cet = cet - 1
  if userpkmn(1, 21) = 6 then cet = cet + 1
  if userpkmn(1, 21) = 15 then cet = cet + 1
  if userpkmn(1, 21) = 18 then cet = cet + 1
  if userpkmn(1, 21) = 9 then cet = cet - 1
  if userpkmn(1, 21) = 10 then cet = cet - 1
  if userpkmn(1, 21) = 11 then cet = cet - 1
  if userpkmn(1, 21) = 13 then cet = cet - 1
end sub

sub fireeffectivecpuattack
  if userpkmn(1, 20) = 7 then cet = cet + 1
  if userpkmn(1, 20) = 9 then cet = cet + 1
  if userpkmn(1, 20) = 12 then cet = cet + 1
  if userpkmn(1, 20) = 15 then cet = cet + 1
  if userpkmn(1, 20) = 6 then cet = cet - 1
  if userpkmn(1, 20) = 10 then cet = cet - 1
  if userpkmn(1, 20) = 11 then cet = cet - 1
  if userpkmn(1, 20) = 16 then cet = cet - 1
  if userpkmn(1, 21) = 7 then cet = cet + 1
  if userpkmn(1, 21) = 9 then cet = cet + 1
  if userpkmn(1, 21) = 12 then cet = cet + 1
  if userpkmn(1, 21) = 15 then cet = cet + 1
  if userpkmn(1, 21) = 6 then cet = cet - 1
  if userpkmn(1, 21) = 10 then cet = cet - 1
  if userpkmn(1, 21) = 11 then cet = cet - 1
  if userpkmn(1, 21) = 16 then cet = cet - 1
end sub

sub watereffectivecpuattack
  if userpkmn(1, 20) = 5 then cet = cet + 1
  if userpkmn(1, 20) = 6 then cet = cet + 1
  if userpkmn(1, 20) = 10 then cet = cet + 1
  if userpkmn(1, 20) = 11 then cet = cet - 1
  if userpkmn(1, 20) = 12 then cet = cet - 1
  if userpkmn(1, 20) = 16 then cet = cet - 1
  if userpkmn(1, 21) = 5 then cet = cet + 1
  if userpkmn(1, 21) = 6 then cet = cet + 1
  if userpkmn(1, 21) = 10 then cet = cet + 1
  if userpkmn(1, 21) = 11 then cet = cet - 1
  if userpkmn(1, 21) = 12 then cet = cet - 1
  if userpkmn(1, 21) = 16 then cet = cet - 1
end sub

sub grasseffectivecpuattack
  if userpkmn(1, 20) = 5 then cet = cet + 1
  if userpkmn(1, 20) = 6 then cet = cet + 1
  if userpkmn(1, 20) = 11 then cet = cet + 1
  if userpkmn(1, 20) = 3 then cet = cet - 1
  if userpkmn(1, 20) = 4 then cet = cet - 1
  if userpkmn(1, 20) = 7 then cet = cet - 1
  if userpkmn(1, 20) = 9 then cet = cet - 1
  if userpkmn(1, 20) = 10 then cet = cet - 1
  if userpkmn(1, 20) = 12 then cet = cet - 1
  if userpkmn(1, 20) = 16 then cet = cet - 1
  if userpkmn(1, 21) = 5 then cet = cet + 1
  if userpkmn(1, 21) = 6 then cet = cet + 1
  if userpkmn(1, 21) = 11 then cet = cet + 1
  if userpkmn(1, 21) = 3 then cet = cet - 1
  if userpkmn(1, 21) = 4 then cet = cet - 1
  if userpkmn(1, 21) = 7 then cet = cet - 1
  if userpkmn(1, 21) = 9 then cet = cet - 1
  if userpkmn(1, 21) = 10 then cet = cet - 1
  if userpkmn(1, 21) = 12 then cet = cet - 1
  if userpkmn(1, 21) = 16 then cet = cet - 1
end sub

sub electriceffectivecpuattack
  if userpkmn(1, 20) = 3 then cet = cet + 1
  if userpkmn(1, 20) = 12 then cet = cet + 1
  if userpkmn(1, 20) = 13 then cet = cet - 1
  if userpkmn(1, 20) = 14 then cet = cet - 1
  if userpkmn(1, 20) = 16 then cet = cet - 1
  if userpkmn(1, 20) = 5 then cet = cet * 0
  if userpkmn(1, 21) = 3 then cet = cet + 1
  if userpkmn(1, 21) = 12 then cet = cet + 1
  if userpkmn(1, 21) = 13 then cet = cet - 1
  if userpkmn(1, 21) = 14 then cet = cet - 1
  if userpkmn(1, 21) = 16 then cet = cet - 1
  if userpkmn(1, 21) = 5 then cet = cet * 0
end sub

sub psychiceffectivecpuattack
  if userpkmn(1, 20) = 2  then cet = cet + 1
  if userpkmn(1, 20) = 4 then cet = cet + 1
  if userpkmn(1, 20) = 9 then cet = cet - 1
  if userpkmn(1, 20) = 14 then cet = cet - 1
  if userpkmn(1, 20) = 17 then cet = cet * 0
  if userpkmn(1, 21) = 2  then cet = cet + 1
  if userpkmn(1, 21) = 4 then cet = cet + 1
  if userpkmn(1, 21) = 9 then cet = cet - 1
  if userpkmn(1, 21) = 14 then cet = cet - 1
  if userpkmn(1, 21) = 17 then cet = cet * 0
end sub

sub iceeffectivecpuattack
  if userpkmn(1, 20) = 3 then cet = cet + 1
  if userpkmn(1, 20) = 5 then cet = cet + 1
  if userpkmn(1, 20) = 12 then cet = cet + 1
  if userpkmn(1, 20) = 16 then cet = cet + 1
  if userpkmn(1, 20) = 9 then cet = cet - 1
  if userpkmn(1, 20) = 10 then cet = cet - 1
  if userpkmn(1, 20) = 11 then cet = cet - 1
  if userpkmn(1, 20) = 15 then cet = cet - 1
  if userpkmn(1, 21) = 3 then cet = cet + 1
  if userpkmn(1, 21) = 5 then cet = cet + 1
  if userpkmn(1, 21) = 12 then cet = cet + 1
  if userpkmn(1, 21) = 16 then cet = cet + 1
  if userpkmn(1, 21) = 9 then cet = cet - 1
  if userpkmn(1, 21) = 10 then cet = cet - 1
  if userpkmn(1, 21) = 11 then cet = cet - 1
  if userpkmn(1, 21) = 15 then cet = cet - 1
end sub

sub dragoneffectivecpuattack
  if userpkmn(1, 20) = 16 then cet = cet + 1
  if userpkmn(1, 20) = 9 then cet = cet - 1
  if userpkmn(1, 20) = 18 then cet = cet * 0
  if userpkmn(1, 21) = 16 then cet = cet + 1
  if userpkmn(1, 21) = 9 then cet = cet - 1
  if userpkmn(1, 21) = 18 then cet = cet * 0
end sub

sub darkeffectivecpuattack
  if userpkmn(1, 20) = 8 then cet = cet + 1
  if userpkmn(1, 20) = 13 then cet = cet + 1
  if userpkmn(1, 20) = 2 then cet = cet - 1
  if userpkmn(1, 20) = 17 then cet = cet - 1
  if userpkmn(1, 20) = 18 then cet = cet - 1
  if userpkmn(1, 21) = 8 then cet = cet + 1
  if userpkmn(1, 21) = 13 then cet = cet + 1
  if userpkmn(1, 21) = 2 then cet = cet - 1
  if userpkmn(1, 21) = 17 then cet = cet - 1
  if userpkmn(1, 21) = 18 then cet = cet - 1
end sub

sub fairyeffectivecpuattack
  if userpkmn(1, 20) = 2 then cet = cet + 1
  if userpkmn(1, 20) = 16 then cet = cet + 1
  if userpkmn(1, 20) = 17 then cet = cet + 1
  if userpkmn(1, 20) = 4 then cet = cet - 1
  if userpkmn(1, 20) = 9 then cet = cet - 1
  if userpkmn(1, 20) = 10 then cet = cet - 1
  if userpkmn(1, 21) = 2 then cet = cet + 1
  if userpkmn(1, 21) = 16 then cet = cet + 1
  if userpkmn(1, 21) = 17 then cet = cet + 1
  if userpkmn(1, 21) = 4 then cet = cet - 1
  if userpkmn(1, 21) = 9 then cet = cet - 1
  if userpkmn(1, 21) = 10 then cet = cet - 1
end sub






sub normaleffectiveuserattack
  if cpupkmn(1, 20) = 6 then uet = uet - 1
  if cpupkmn(1, 20) = 9 then uet = uet - 1
  if cpupkmn(1, 20) = 8 then uet = uet * 0
  if cpupkmn(1, 21) = 6 then uet = uet - 1
  if cpupkmn(1, 21) = 9 then uet = uet - 1
  if cpupkmn(1, 21) = 8 then uet = uet * 0
end sub

sub fightingeffectiveuserattack
  if cpupkmn(1, 20) = 1 then uet = uet + 1
  if cpupkmn(1, 20) = 6 then uet = uet + 1
  if cpupkmn(1, 20) = 9 then uet = uet + 1
  if cpupkmn(1, 20) = 15 then uet = uet + 1
  if cpupkmn(1, 20) = 17 then uet = uet + 1
  if cpupkmn(1, 20) = 3 then uet = uet - 1
  if cpupkmn(1, 20) = 4 then uet = uet - 1
  if cpupkmn(1, 20) = 7 then uet = uet - 1
  if cpupkmn(1, 20) = 14 then uet = uet - 1
  if cpupkmn(1, 20) = 18 then uet = uet - 1
  if cpupkmn(1, 20) = 8 then uet = uet * 0
  if cpupkmn(1, 21) = 1 then uet = uet + 1
  if cpupkmn(1, 21) = 6 then uet = uet + 1
  if cpupkmn(1, 21) = 9 then uet = uet + 1
  if cpupkmn(1, 21) = 15 then uet = uet + 1
  if cpupkmn(1, 21) = 17 then uet = uet + 1
  if cpupkmn(1, 21) = 3 then uet = uet - 1
  if cpupkmn(1, 21) = 4 then uet = uet - 1
  if cpupkmn(1, 21) = 7 then uet = uet - 1
  if cpupkmn(1, 21) = 14 then uet = uet - 1
  if cpupkmn(1, 21) = 18 then uet = uet - 1
  if cpupkmn(1, 21) = 8 then uet = uet * 0
end sub

sub flyingeffectiveuserattack
  if cpupkmn(1, 20) = 2 then uet = uet + 1
  if cpupkmn(1, 20) = 7 then uet = uet + 1
  if cpupkmn(1, 20) = 12 then uet = uet + 1
  if cpupkmn(1, 20) = 6 then uet = uet - 1
  if cpupkmn(1, 20) = 9 then uet = uet - 1
  if cpupkmn(1, 20) = 10 then uet = uet - 1
  if cpupkmn(1, 21) = 2 then uet = uet + 1
  if cpupkmn(1, 21) = 7 then uet = uet + 1
  if cpupkmn(1, 21) = 12 then uet = uet + 1
  if cpupkmn(1, 21) = 6 then uet = uet - 1
  if cpupkmn(1, 21) = 9 then uet = uet - 1
  if cpupkmn(1, 21) = 10 then uet = uet - 1
end sub

sub poisoneffectiveuserattack
  if cpupkmn(1, 20) = 12 then uet = uet + 1
  if cpupkmn(1, 20) = 18 then uet = uet + 1
  if cpupkmn(1, 20) = 4 then uet = uet - 1
  if cpupkmn(1, 20) = 5 then uet = uet - 1
  if cpupkmn(1, 20) = 6 then uet = uet - 1
  if cpupkmn(1, 20) = 8 then uet = uet - 1
  if cpupkmn(1, 20) = 9 then uet = uet * 0
  if cpupkmn(1, 21) = 12 then uet = uet + 1
  if cpupkmn(1, 21) = 18 then uet = uet + 1
  if cpupkmn(1, 21) = 4 then uet = uet - 1
  if cpupkmn(1, 21) = 5 then uet = uet - 1
  if cpupkmn(1, 21) = 6 then uet = uet - 1
  if cpupkmn(1, 21) = 8 then uet = uet - 1
  if cpupkmn(1, 21) = 9 then uet = uet * 0
end sub

sub groundeffectiveuserattack
  if cpupkmn(1, 20) = 4 then uet = uet + 1
  if cpupkmn(1, 20) = 6 then uet = uet + 1
  if cpupkmn(1, 20) = 9 then uet = uet + 1
  if cpupkmn(1, 20) = 10 then uet = uet + 1
  if cpupkmn(1, 20) = 13 then uet = uet + 1
  if cpupkmn(1, 20) = 7 then uet = uet - 1
  if cpupkmn(1, 20) = 11 then uet = uet - 1
  if cpupkmn(1, 20) = 3 then uet = uet * 0
  if cpupkmn(1, 21) = 4 then uet = uet + 1
  if cpupkmn(1, 21) = 6 then uet = uet + 1
  if cpupkmn(1, 21) = 9 then uet = uet + 1
  if cpupkmn(1, 21) = 10 then uet = uet + 1
  if cpupkmn(1, 21) = 13 then uet = uet + 1
  if cpupkmn(1, 21) = 7 then uet = uet - 1
  if cpupkmn(1, 21) = 11 then uet = uet - 1
  if cpupkmn(1, 21) = 3 then uet = uet * 0
end sub

sub rockeffectiveuserattack
  if cpupkmn(1, 20) = 3 then uet = uet + 1
  if cpupkmn(1, 20) = 7 then uet = uet + 1
  if cpupkmn(1, 20) = 10 then uet = uet + 1
  if cpupkmn(1, 20) = 15 then uet = uet + 1
  if cpupkmn(1, 20) = 2 then uet = uet - 1
  if cpupkmn(1, 20) = 5 then uet = uet - 1
  if cpupkmn(1, 20) = 9 then uet = uet - 1
  if cpupkmn(1, 21) = 3 then uet = uet + 1
  if cpupkmn(1, 21) = 7 then uet = uet + 1
  if cpupkmn(1, 21) = 10 then uet = uet + 1
  if cpupkmn(1, 21) = 15 then uet = uet + 1
  if cpupkmn(1, 21) = 2 then uet = uet - 1
  if cpupkmn(1, 21) = 5 then uet = uet - 1
  if cpupkmn(1, 21) = 9 then uet = uet - 1
end sub

sub bugeffectiveuserattack
  if cpupkmn(1, 20) = 12 then uet = uet + 1
  if cpupkmn(1, 20) = 14 then uet = uet + 1
  if cpupkmn(1, 20) = 17 then uet = uet + 1
  if cpupkmn(1, 20) = 2 then uet = uet - 1
  if cpupkmn(1, 20) = 3 then uet = uet - 1
  if cpupkmn(1, 20) = 4 then uet = uet - 1
  if cpupkmn(1, 20) = 8 then uet = uet - 1
  if cpupkmn(1, 20) = 9 then uet = uet - 1
  if cpupkmn(1, 20) = 10 then uet = uet - 1
  if cpupkmn(1, 20) = 18 then uet = uet - 1
  if cpupkmn(1, 21) = 12 then uet = uet + 1
  if cpupkmn(1, 21) = 14 then uet = uet + 1
  if cpupkmn(1, 21) = 17 then uet = uet + 1
  if cpupkmn(1, 21) = 2 then uet = uet - 1
  if cpupkmn(1, 21) = 3 then uet = uet - 1
  if cpupkmn(1, 21) = 4 then uet = uet - 1
  if cpupkmn(1, 21) = 8 then uet = uet - 1
  if cpupkmn(1, 21) = 9 then uet = uet - 1
  if cpupkmn(1, 21) = 10 then uet = uet - 1
  if cpupkmn(1, 21) = 18 then uet = uet - 1
end sub

sub ghosteffectiveuserattack
  if cpupkmn(1, 20) = 8 then uet = uet + 1
  if cpupkmn(1, 20) = 14 then uet = uet + 1
  if cpupkmn(1, 20) = 17 then uet = uet - 1
  if cpupkmn(1, 20) = 1 then uet = uet * 0
  if cpupkmn(1, 21) = 8 then uet = uet + 1
  if cpupkmn(1, 21) = 14 then uet = uet + 1
  if cpupkmn(1, 21) = 17 then uet = uet - 1
  if cpupkmn(1, 21) = 1 then uet = uet * 0
end sub

sub steeleffectiveuserattack
  if cpupkmn(1, 20) = 6 then uet = uet + 1
  if cpupkmn(1, 20) = 15 then uet = uet + 1
  if cpupkmn(1, 20) = 18 then uet = uet + 1
  if cpupkmn(1, 20) = 9 then uet = uet - 1
  if cpupkmn(1, 20) = 10 then uet = uet - 1
  if cpupkmn(1, 20) = 11 then uet = uet - 1
  if cpupkmn(1, 20) = 13 then uet = uet - 1
  if cpupkmn(1, 21) = 6 then uet = uet + 1
  if cpupkmn(1, 21) = 15 then uet = uet + 1
  if cpupkmn(1, 21) = 18 then uet = uet + 1
  if cpupkmn(1, 21) = 9 then uet = uet - 1
  if cpupkmn(1, 21) = 10 then uet = uet - 1
  if cpupkmn(1, 21) = 11 then uet = uet - 1
  if cpupkmn(1, 21) = 13 then uet = uet - 1
end sub

sub fireeffectiveuserattack
  if cpupkmn(1, 20) = 7 then uet = uet + 1
  if cpupkmn(1, 20) = 9 then uet = uet + 1
  if cpupkmn(1, 20) = 12 then uet = uet + 1
  if cpupkmn(1, 20) = 15 then uet = uet + 1
  if cpupkmn(1, 20) = 6 then uet = uet - 1
  if cpupkmn(1, 20) = 10 then uet = uet - 1
  if cpupkmn(1, 20) = 11 then uet = uet - 1
  if cpupkmn(1, 20) = 16 then uet = uet - 1
  if cpupkmn(1, 21) = 7 then uet = uet + 1
  if cpupkmn(1, 21) = 9 then uet = uet + 1
  if cpupkmn(1, 21) = 12 then uet = uet + 1
  if cpupkmn(1, 21) = 15 then uet = uet + 1
  if cpupkmn(1, 21) = 6 then uet = uet - 1
  if cpupkmn(1, 21) = 10 then uet = uet - 1
  if cpupkmn(1, 21) = 11 then uet = uet - 1
  if cpupkmn(1, 21) = 16 then uet = uet - 1
end sub

sub watereffectiveuserattack
  if cpupkmn(1, 20) = 5 then uet = uet + 1
  if cpupkmn(1, 20) = 6 then uet = uet + 1
  if cpupkmn(1, 20) = 10 then uet = uet + 1
  if cpupkmn(1, 20) = 11 then uet = uet - 1
  if cpupkmn(1, 20) = 12 then uet = uet - 1
  if cpupkmn(1, 20) = 16 then uet = uet - 1
  if cpupkmn(1, 21) = 5 then uet = uet + 1
  if cpupkmn(1, 21) = 6 then uet = uet + 1
  if cpupkmn(1, 21) = 10 then uet = uet + 1
  if cpupkmn(1, 21) = 11 then uet = uet - 1
  if cpupkmn(1, 21) = 12 then uet = uet - 1
  if cpupkmn(1, 21) = 16 then uet = uet - 1
end sub

sub grasseffectiveuserattack
  if cpupkmn(1, 20) = 5 then uet = uet + 1
  if cpupkmn(1, 20) = 6 then uet = uet + 1
  if cpupkmn(1, 20) = 11 then uet = uet + 1
  if cpupkmn(1, 20) = 3 then uet = uet - 1
  if cpupkmn(1, 20) = 4 then uet = uet - 1
  if cpupkmn(1, 20) = 7 then uet = uet - 1
  if cpupkmn(1, 20) = 9 then uet = uet - 1
  if cpupkmn(1, 20) = 10 then uet = uet - 1
  if cpupkmn(1, 20) = 12 then uet = uet - 1
  if cpupkmn(1, 20) = 16 then uet = uet - 1
  if cpupkmn(1, 21) = 5 then uet = uet + 1
  if cpupkmn(1, 21) = 6 then uet = uet + 1
  if cpupkmn(1, 21) = 11 then uet = uet + 1
  if cpupkmn(1, 21) = 3 then uet = uet - 1
  if cpupkmn(1, 21) = 4 then uet = uet - 1
  if cpupkmn(1, 21) = 7 then uet = uet - 1
  if cpupkmn(1, 21) = 9 then uet = uet - 1
  if cpupkmn(1, 21) = 10 then uet = uet - 1
  if cpupkmn(1, 21) = 12 then uet = uet - 1
  if cpupkmn(1, 21) = 16 then uet = uet - 1
end sub

sub electriceffectiveuserattack
  if cpupkmn(1, 20) = 3 then uet = uet + 1
  if cpupkmn(1, 20) = 12 then uet = uet + 1
  if cpupkmn(1, 20) = 13 then uet = uet - 1
  if cpupkmn(1, 20) = 14 then uet = uet - 1
  if cpupkmn(1, 20) = 16 then uet = uet - 1
  if cpupkmn(1, 20) = 5 then uet = uet * 0
  if cpupkmn(1, 21) = 3 then uet = uet + 1
  if cpupkmn(1, 21) = 12 then uet = uet + 1
  if cpupkmn(1, 21) = 13 then uet = uet - 1
  if cpupkmn(1, 21) = 14 then uet = uet - 1
  if cpupkmn(1, 21) = 16 then uet = uet - 1
  if cpupkmn(1, 21) = 5 then uet = uet * 0
end sub

sub psychiceffectiveuserattack
  if cpupkmn(1, 20) = 2  then uet = uet + 1
  if cpupkmn(1, 20) = 4 then uet = uet + 1
  if cpupkmn(1, 20) = 9 then uet = uet - 1
  if cpupkmn(1, 20) = 14 then uet = uet - 1
  if cpupkmn(1, 20) = 17 then uet = uet * 0
  if cpupkmn(1, 21) = 2  then uet = uet + 1
  if cpupkmn(1, 21) = 4 then uet = uet + 1
  if cpupkmn(1, 21) = 9 then uet = uet - 1
  if cpupkmn(1, 21) = 14 then uet = uet - 1
  if cpupkmn(1, 21) = 17 then uet = uet * 0
end sub

sub iceeffectiveuserattack
  if cpupkmn(1, 20) = 3 then uet = uet + 1
  if cpupkmn(1, 20) = 5 then uet = uet + 1
  if cpupkmn(1, 20) = 12 then uet = uet + 1
  if cpupkmn(1, 20) = 16 then uet = uet + 1
  if cpupkmn(1, 20) = 9 then uet = uet - 1
  if cpupkmn(1, 20) = 10 then uet = uet - 1
  if cpupkmn(1, 20) = 11 then uet = uet - 1
  if cpupkmn(1, 20) = 15 then uet = uet - 1
  if cpupkmn(1, 21) = 3 then uet = uet + 1
  if cpupkmn(1, 21) = 5 then uet = uet + 1
  if cpupkmn(1, 21) = 12 then uet = uet + 1
  if cpupkmn(1, 21) = 16 then uet = uet + 1
  if cpupkmn(1, 21) = 9 then uet = uet - 1
  if cpupkmn(1, 21) = 10 then uet = uet - 1
  if cpupkmn(1, 21) = 11 then uet = uet - 1
  if cpupkmn(1, 21) = 15 then uet = uet - 1
end sub

sub dragoneffectiveuserattack
  if cpupkmn(1, 20) = 16 then uet = uet + 1
  if cpupkmn(1, 20) = 9 then uet = uet - 1
  if cpupkmn(1, 20) = 18 then uet = uet * 0
  if cpupkmn(1, 21) = 16 then uet = uet + 1
  if cpupkmn(1, 21) = 9 then uet = uet - 1
  if cpupkmn(1, 21) = 18 then uet = uet * 0
end sub

sub darkeffectiveuserattack
  if cpupkmn(1, 20) = 8 then uet = uet + 1
  if cpupkmn(1, 20) = 13 then uet = uet + 1
  if cpupkmn(1, 20) = 2 then uet = uet - 1
  if cpupkmn(1, 20) = 17 then uet = uet - 1
  if cpupkmn(1, 20) = 18 then uet = uet - 1
  if cpupkmn(1, 21) = 8 then uet = uet + 1
  if cpupkmn(1, 21) = 13 then uet = uet + 1
  if cpupkmn(1, 21) = 2 then uet = uet - 1
  if cpupkmn(1, 21) = 17 then uet = uet - 1
  if cpupkmn(1, 21) = 18 then uet = uet - 1
end sub

sub fairyeffectiveuserattack
  if cpupkmn(1, 20) = 2 then uet = uet + 1
  if cpupkmn(1, 20) = 16 then uet = uet + 1
  if cpupkmn(1, 20) = 17 then uet = uet + 1
  if cpupkmn(1, 20) = 4 then uet = uet - 1
  if cpupkmn(1, 20) = 9 then uet = uet - 1
  if cpupkmn(1, 20) = 10 then uet = uet - 1
  if cpupkmn(1, 21) = 2 then uet = uet + 1
  if cpupkmn(1, 21) = 16 then uet = uet + 1
  if cpupkmn(1, 21) = 17 then uet = uet + 1
  if cpupkmn(1, 21) = 4 then uet = uet - 1
  if cpupkmn(1, 21) = 9 then uet = uet - 1
  if cpupkmn(1, 21) = 10 then uet = uet - 1
end sub