:GridOff :LabelOff

:0 sto XMin :94 sto XMax

:0 sto YMin :62 sto YMax

:ClrHome

:ClrDraw

:

:Output(3,6,"POKEMON")

:Output(4,7,"CARD")

:Output(5,7,"GAME")

:Output(8,3,"PRESS ENTER")

:

:PAUSE

:

:ClrHome

:

:Repeat K=21

:

:getkey sto K

:

:Output(4,4,"PRESS 2ND")

:Output(5,3,"FROM NOW ON")

:Output(6,4,"AS ENTER")

:

:End

:

:Lbl 4

:

:{1} sto LCHOOS

:

:ClrHome

:

:Output(4,2,"DUEL")

:Output(5,2,"CARDS")

:Output(4,1,"*")

:

:Repeat LCHOOS(1)=1 and K=21

:

:getkey sto K

:

:If K=21:Then

:If LCHOOS(1)=2

:Goto 3

:End

:

:If K=25:Then

:1 sto LCHOOS(1)

:Output(5,1," ")

:Output(4,1,"*")

:End

:

:If K=34:Then

:2 sto LCHOOS(1)

:Output(4,1," ")

:Output(5,1,"*")

:End

:

:End

:

:Lbl 21

:

:{0} sto LDRAWC

:{0,0} sto LCARD *Card you picked up

:{0,0} sto LCRDH *Card in your hand

:{0} sto LCLRD *Clear then draw background (now its just putting text in background but originally I wanted to draw something in the background)

:{1} sto LCHOOS *What you choose in all menu and options

:{1} sto CHLST

:{1} sto LPKCHO

:{0} sto LT1DMG *How much damage player 2 (CPU) did to player 1(you)

:{0} sto LT2DMG *How much damage player 1 (you) did to player 2 (CPU)

:{10} sto T1HP *Player 1 HP

:{10} sto T2HP *Player 2 HP

:{0} sto LATK

:{0,0} sto LGENE *How much Green Energy you or the CPU has

:{0,0} sto LWENE *For Water Energy

:{0,0} sto LFENE *For Fire Energy

:" " sto STR1

:" " sto STR2

:" " sto STR3

:" " sto STR4

:" " sto STR5

:" " sto STR6

:{0} sto LMOVE2

:{0} sto LMOVE3

:{0,0} sto LSKIP

:{0,0} sto LRNDCR

:

:While 1

:

:{1} sto LCHOOS

:{1} sto LTURN

:Lbl 12

:

:ClrHome

:ClrDraw

:

:Line(1,61,11,61)

:Line(1,59,11,59)

:Line(1,61,1,59)

:Line(11,61,11,59)

:Line(82,10,93,10)

:Line(82,12,93,12)

:Line(82,10,82,12)

:Line(93,10,93,12)

:

:If LT1DMG(1)>0

:LT1HP(1)-LT1DMG(1) sto LT1HP(1)

:

:If LT2DMG(1)>0

:LT2HP(1)-LT2DMG(1) sto LT2HP(1)

:

:For(H,1,LT1HP(1))

:Pxl-On(51,82+H)

:End

:For(H,1,LT2HP(1))

:Pxl-On(2,1+H)

:End

:

:{0} sto LT1DMG

:{0} sto LT2DMG

:

:If LTURN(1)=2

:Goto 13

:

:1 sto LTURN(1)

:1 sto LCLRD(1)

:Lbl 2

:0 sto LCLRD(2)

:If LCLRD(1)=1:Then

:Text(30,36," ")

:Text(30,36,STR5)

:If LTURN(1)=1

:1 sto LCLRD(2)

:Goto1

:End

:

:Line(1,37,94,37)

:

:If LT1HP(1)< or equal to 0:Then

:Repeat K=21

:getkey sto K

:ClrHome

:ClrDraw

:Output(4,5,"YOU LOST")

:End

:Goto 4

:End

:

:If LT2HP(1)<of equal to 0:Then

:Repeat K=21

:getkey sto K

:ClrHome

:ClrDraw

:Output(4,5,"YOU WON")

:End

:Goto 4

:End

:

:If LSKIP(1)=0

:Then

:

:{0} sto LATK

:

:Text(57,20,"DRAW")

:Text(50,40,"ATK")

:Text(57,60,"QUIT")

:

:Repeat K=21

:

:getkey sto K

:

:If K=26:Then

:If not(LCHOOS(1)=3)

:LCHOOS(1)+1 sto LCHOOS(1)

:End

:

:If K=24:Then

:If not(LCHOOS(1)=1)

:LCHOOS(1)-1 sto LCHOOS(1)

:End

:

:If LCHOOS(1)=1:Then

:Text(50,33," ")

:Text(57,13,"*")

:End

:

:If LCHOOS(1)=2

:Then

:Text(57,13," ")

:Text(57,53," ")

:Text(50,33,"*")

:End

:

:If LCHOOS(1)=3

:Then

:Text(50,33," ")

:Text(57,53,"*")

:End

:

:End

:

:If LCHOOS(1)=3 and K=21

:Goto 4

:

:If LCHOOS(1)=1 and K=21

:{1} sto LDRAWC

:

:If DRAWC(1)=1

:Then

:ClrHome

:ClrDraw

:Repeat LRNDCR(1) doesn't equal LCRDH(1)

:randInt(1,30) sto LRNDCR(1)

:End

:Goto 8 *All the way at the bottom

:Lbl 14

:{1} sto LCHOOS

:If LRNDCR(1)< or equal to 15

:Then

:Output(1,3,Str1)

:Output(4,4,"KEEP")

:Output(5,4,"WAIT")

:Repeat K=21

:

:getkey sto K

:

:If K=34

:{2} sto LCHOOS

:

:If K=25

:{1} sto LCHOOS

:

:If LCHOOS(1)=1

:Then

:Output(5,3," ")

:Output(4,3,"*")

:End

:

:If LCHOOS(1)=2

:Then

:Output(4,3," ")

:Output(5,3,"*")

:End

:

:End

:

:If K=21 and LCHOOS(1)=1

:LCARD(1) sto LCRDH(1)

:STR1 sto STR3

:LSKIP(1)+2 sto LSKIP(1)

:If LCRDH(1)> or equal to 1 and LCRDH(1)< or equal to 5

:"GRASS" sto STR5

"If LCRDH(1)> or equal to 6 and LCRDH(1)< or equal to 10

:"WATER" sto STR5

:If LCRDH(1)> or equal to 11 and LCRDH(1)< or equal to 15

:"FIRE" sto STR5

:End

:End

:

:If LRNDCR(1)>15

:Then

:Lbl 15

:Repeat K=21

:getkey sto K

:If LTURN(1)=1

:Output(4,6,"YOU GOT")

:If LTURN(1)=2

:Output(4,6,"CPU GOT")

:If LRNDCR(LTURN(1))< or equal to 20

:Then

:Output(5,3,"GRASS ENERGY")

:LGENE(LTURN(1))+1 sto LGENE(LTURN(1))

:End

:

:If LRNDCR(LTURN(1))< or equal to 25 and LRNDCR(LTURN(1))>20

:Then

:Output(5,3,"WATER ENERGY")

"LWENE(LTURN(1))+1 sto LWENE(LTURN(1))

:End

:

:If LRNDCR(LTURN(1))>25

:Then

:Output(5,3,"FIRE ENERGY")

:LFENE(LTURN(1))+1 sto LFENE(LTURN(1))

:End

:

:End

:If LTURN(1)=2

:Goto 16

:End

:

:{1} sto LCHOOS

:

:End

:

:{0} sto LDRAWC

:

:If LCHOOS(1)=2 and K=21

:{1} sto LATK

:

:If LATK(1)=1

:Then

:ClrHome

:ClrDraw

:Repeat K=21

:Lbl 9

:If LCRDH(LTURN(1))>0:Then

:

:If LCRDH(LTURN(1))=1 or LCRDH(LTURN(1))=2

:Then

:If LGENE(LTURN(1))> or equal to 1:Then

:Goto 17

:Else

:If LTURN(1)=1:Then

:Output(4,2,"YOU DONT HAVE")

:Output(5,3,"ENOUGH ENERGY")

:End

:End

:End

:

:If LCRDH(LTURN(1))=3 or LCRDH(LTURN(1))=4:Then

:If LGENE(LTURN(1))> or equal to 2:Then

:Goto 18

:Else

:If LTURN(1)=1:Then

:Output(4,2,"YOU DONT HAVE")

:Output(5,3,"ENOUGH ENERGY")

:End

:End

:End

:

:If LCRDH(LTURN(1))=5:Then

:If LGENE(LTURN(1))> or equal to 3:Then

:Goto 19

:Else

:If LTURN(1)=1:Then

:Output(4,2,"YOU DONT HAVE")

:Output(5,3,"ENOUGH ENERGY")

:End

:End

:End

:

:If LCRDH(LTURN(1))=6 or LCRDH(LTURN(1))=7:Then

:If LWENE(LTURN(1))> or equal to 1:Then

:Goto 17

:Else

:If LTURN(1)=1:Then

:Output(4,2,"YOU DONT HAVE")

:Output(5,3,"ENOUGH ENERGY")

:End

:End

:End

:

:If LCRDH(LTURN(1))=8 or LCRDH(LTURN(1))=9:Then

:If LWENE(LTURN(1))> or equal to 2:Then

:Goto 18

:Else

:If LTURN(1)=1:Then

:Output(4,2,"YOU DONT HAVE")

:Output(5,3,"ENOUGH ENERGY")

:End

:End

:End

:

:If LCRDH(LTURN(1))=10:Then

:If LWENE(LTURN(1))> or equal to 3:Then

:Goto 19

:Else

:If LTURN(1)=1:Then

:Output(4,2,"YOU DONT HAVE")

:Output(5,3,"ENOUGH ENERGY")

:End

:End

:End

:

:If LCRDH(LTURN(1))=11 or LCRDH(LTURN(1))=12:Then

:If LFENE(LTURN(1))> or equal to 1:Then

:Goto 17

:Else

:If LTURN(1)=1:Then

:Output(4,2,"YOU DONT HAVE")

:Output(5,3,"ENOUGH ENERGY")

:End

:End

:End

:

:If LCRDH(LTURN(1))=13 or LCRDH(LTURN(1))=14:Then

:If LFENE(LTURN(1))> or equal to 2:Then

:Goto 18

:Else

:If LTURN(1)=1:Then

:Output(4,2,"YOU DONT HAVE")

:Output(5,3,"ENOUGH ENERGY")

:End

:End

:End

:

:If LCRDH(LTURN(1))=15:Then

:If LFENE(LTURN(1))> or equal to 3:then

:Goto 19

:Else

:If LTURN(1)=1:Then

:Output(4,2,"YOU DONT HAVE")

:Output(5,3,"HAVE ENOUGH")

:End

:End

:End

:

:Else

:If LTURN(1)=1

:Then

:ClrHome

:ClrDraw

:

:Repeat K=21

:getkey sto K

:Output(4,2,"YOU DONT HAVE")

:Output(5,2,"ANY POKEMON")

:End

:Goto 21

:End

:End

:

:Lbl 20

:

:If LTURN(1)=2

:Goto 10

:

:End

:

:End

:

:{1} sto LTURN

:

:Goto 12

:Lbl 13

:

:If LSKIP(2)=0

:Then

:

:2 sto LTURN(1)

:1 sto LCLRD(2)

:Lbl 1

:0 sto LCLRD(1)

:If LCLRD(2)=2

:Then

:Text(15,36," ")

:Text(15,36,STR6)

:If LTURN(1)=2

:1 sto LCLRD(1)

:Goto 2

:End

:

:Line(1,37,94,37)

:

:randInt(1,2) sto LMOVE2(1)

:randInt(1,10) sto LMOVE3(1)

:If LMOVE2(1)=1

:Then

:Repeat LRNDCR(2) does not equal LCRDH(2)

:randInt(1,30) sto LRNDCR(2)

:End

:Goto 8

:Lbl 11

:If not(LRNDCR(2)>15)

:Then

:If LMOVE3(1)>6

:Then

:ClrHome

:ClrDraw

:Repeat K=21

:getkey sto K

:Output(4,4,"CPU KEPT")

:Output(5,3,STR1)

:LCARD(2) sto LCRDH(2)

:STR1 sto STR4

:If LCRDH(2)> or equal to 1 and LCRDH(2)< or equal to 5

:"GRASS" sto STR6

:If LCRDH(2)> or equal to 6 and LCRDH(2)< or equal to 10

:"WATER" sto STR6

:If LCRDH(2)> or equal to 11 and LCRDH(2)< or equal to 15

:"FIRE" sto STR6

:End

:LSKIP(2)+2 sto LSKIP(2)

:End

:Else

:Goto 15

:End

:End

:

:Lbl 16

:

:If LMOVE2(1)=2

:Then

:{1} sto LATK

:Goto 9

:End

:

:Lbl 10

:

:End

:

:If not(LSKIP(1)=0)

:LSKIP(1)-1 sto LSKIP(1)

:

:If not(LSKIP(2)=0)

:LSKIP(2)-1 sto LSKIP(2)

:

:End

:

:Lbl 3

:

:Output(5,1," ")

:Output(1,1,"*")

:Output(1,2,"ODDISH")

:Output(2,2,"TURTWIG")

:Output(3,2,"CATERPIE")

:Output(4,2,"BEEDRILL")

:Output(5,2,"LEAFEON")

:Output(6,2,"Magikarp")

:Output(7,2,"STARMIE")

:Output(8,2,"PIPLUP")

:

:{1} sto LCHLST

:{1} sto LPKCHO

:

:Repeat K=21 and LPKCHO(1)=3 and LCHLST(1)=3

:

:getkey sto K

:

:If not(LPKCHO(1))>3:Then

:If K=34 and LCHLST(1)=8:Then

:For(P,1,8)

:Output(P,2," ")

:End

:End

:Else

:LPKCHO(1)-1 sto LPKCHO(1)

:End

:

:If not(LPKCHO(1))<1:Then

:If K=25 and LCHLST(1)=1:Then

:For(P,1,8)

:Output(P,2," ")

:End

:End

:End

:Else

:LPKCHO(1)+1 sto LPKCHO(1)

:End

:

:If (K=34 and LCHLST(1)=8 and not(LPKCHO(1)=3) or (K=25 and LCHLST(1)=1 and not(LPKCHO(1)=1):Then

:If K=25:Then

:If LPKCHO(1)=2:Then

:Output(1,2,"ODDISH")

:Output(2,2,"TURTWIG")

:Output(3,2,"CATERPIE")

:Output(4,2,"BEEDRILL")

:Output(5,2,"LEAFEON")

:Output(6,2,"Magikarp")

:Output(7,2,"STARMIE")

:Output(8,2,"PIPLUP")

:End

:End

:If LPKCHO(1)=1 or LPKCHO(1)=3

:Then

:Output(1,2,"VAPOREON")

:Output(2,2,"GARYDOS")

:Output(3,2,"CHARMANDER")

:Output(4,2,"PONYTA")

:Output(5,2,"CHARMELEON")

:Output(6,2,"CYNDAQUIL")

:Output(7,2,"CHARIZARD")

:Output(8,2,"GRASS ENERGY")

:End

:If K=34:Then

:If LPKCHO(1)=2

:Then

:Output(1,2,"WATER ENERGY")

:Output(2,2,"FIRE ENERGY")

:Output(3,2,"GO BACK")

:End

:End

:End

:

:If K=34:Then

:If not(LPKCHO(1)=3):Then

:If not(LCHLST(1)=8):Then

:Output(LCHLST(1),1," ")

:LCHLST(1)+1 sto LCHLST(1)

:Output(LCHLST(1),1,"*")

:Else

:Output(LCHLST(1),1," ")

:LCHLST(1)-7 sto LCHLST(1)

:Output(LCHLST(1),1,"*")

:End

:Else

:If not(LCHLST(1)=3):Then

:Output(LCHLST(1),1," ")

:LCHLST(1)+1 sto LCHLST(1)

:Output(LCHLST(1),1,"*")

:Else

:End

:End

:End

:

:If K=25:Then

:If not(LPKCHO(1)=1):Then

:If not(LCHLST(1)=1):Then

:Output(LCHLST(1),1," ")

:LCHLST(1)-1 sto LCHLST(1)

:Output(LCHLST(1),1,"*")

:Else

:Output(LCHLST(1),1," ")

:LCHLST(1)+7 sto LCHLST(1)

:Output(LCHLST(1),1,"*")

:End

:Else

:If not(LCHLST(1)=1):Then

:Output(LCHLST(1),1," ")

:LCHLST(1)-1 sto LCHLST(1)

:Output(LCHLST(1),1,"*")

:Else

:End

:End

:End

:

:If K=34 and LCHLST(1)=1

:LPKCHO(1)+1 sto LPKCHO(1)

:If K=25 and LCHLST(1)=8

:LPKCHO(1)-1 sto LPKCHO(1)

:

:End

:

:Goto 4

:

:Lbl 8

:

:If LRNDCR(LTURN(1))=1:Then

:"ODDISH" sto STR1

:1 sto LCARD(LTURN(1))

:End

:If LRNDCR(LTURN(1))=2:Then

:"TURTWIG" sto STR1

:2 sto LCARD(LTURN(1))

:End

:If LRNDCR(LTURN(1))=3:Then

:"CATERPIE" sto STR1

:3 sto LCARD(LTURN(1))

:End

:If LRNDCR(LTURN(1))=4:Then

:"BEEDRILL" sto STR1

:4 sto LCARD(LTURN(1))

:End

:If LRNDCR(LTURN(1))=5:Then

:"LEAFEON" sto STR1

:5 sto LCARD(LTURN(1))

:End

:If LRNDCR(LTURN(1))=6:Then

:"MAGIKARP" sto STR1

:6 sto LCARD(LTURN(1))

:End

:If LRNDCR(LTURN(1))=7:Then

:"STARMIE" sto STR1

:7 sto LCARD(LTURN(1))

:End

:If LRNDCR(LTURN(1))=8:Then

:"PIPLUP" sto STR1

:8 sto LCARD(LTURN(1))

:End

:If LRNDCR(LTURN(1))=9:Then

:"VAPOREON" sto STR1

:9 sto LCARD(LTURN(1))

:End

:If LRNDCR(LTURN(1))=10:Then

:"GARYDOS" sto STR1

:10 sto LCARD(LTURN(1))

:End

:If LRNDCR(LTURN(1))=11:Then

:"CHARMANDER" sto STR1

:11 sto LCARD(LTURN(1))

:End

:If LRNDCR(LTURN(1))=12:Then

:"PONYTA" sto STR1

:12 sto LCARD(LTURN(1))

:End

:If LRNDCR(LTURN(1))=13:Then

:"CHARMELEON" sto STR1

:13 sto LCARD(LTURN(1))

:End

:If LRNDCR(LTURN(1))=14:Then

:"CYNDAQUIL" sto STR1

:14 sto LCARD(LTURN(1))

:End

:If LRNDCR(LTURN(1))=15:Then

:"CHARIZARD" sto STR1

:15 sto LCARD(LTURN(1))

:End

:

:If LTURN(1)=1

:Goto 14

:

:If LTURN(1)=2

:Goto 11

:Lbl 17

:If LTURN(1)=1

:Then

:Output(4,3,STR3)

:Output(5,2,"DID 1 DAMAGE")

:LT1DMG(1)+1 sto LT1DMG(1)

:End

:If LTURN(1)=2

:Then

:Output(4,3,STR4)

:Output(5,2,"DID 1 DAMAGE")

:LT1DMG(1)+1 sto LT1DMG(1)

:End

:Goto 20

:

:Lbl18

:If LTURN(1)=1

:Then

:Output(4,3,STR3)

:Output(5,2,"DID 2 DAMAGE")

:LT1DMG(1)+2 sto LT1DMG(1)

:End

:If LTURN(1)=2

:Then

:Output(4,3,STR4)

:Output(5,2,"DID 2 DAMAGE")

:LT1DMG(1)+2 sto LT1DMG(1)

:End

:Goto 20

:

:Lbl19

:If LTURN(1)=1

:Then

:Output(4,3,STR3)

:Output(5,2,"DID 3 DAMAGE")

:LT1DMG(1)+3 sto LT1DMG(1)

:End

:If LTURN(1)=2

:Then

:Output(4,3,STR4)

:Output(5,2,"DID 3 DAMAGE")

:LT1DMG(1)+3 sto LT1DMG(1)

:End

:Goto 20