:ClrHome
:Disp " "
:Disp " )------------("
:Disp "( Yu-Gi-Oh )"
:Disp " )------------("
:Disp " "
:Disp " [Programed by]"
:Disp " AUSTIN ALLMAN"
:Pause
:ClrDraw
:PlotsOff
:AxesOff
:FnOff
:ClrHome
:27→A
:40→B
:8000→C
:8000→D
:0→E
:0→F
:0→G
:0→H
:0→I
:0→J
:0→K
:0→L
:0→M
:0→N
:0→O
:0→P
:0→Q
:0→R
:0→S
:0→T
:0→U
:0→V
:0→W
:0→X
:0→Y
:0→Z
:0→θ
:{-}11.75→Xmin
:11.75→Xmax
:{-}7.75→Ymin
:7.75→Ymax
:Lbl 1
:ClrDraw
:ClrHome
:If θ≥0
:Then
:A+6→A
:ClrHome
:Disp "DRAW PHASE"
:Pause
:ClrHome
:Disp "STAND BY PHASE"
:Pause
:ClrHome
:Disp "MAIN PHASE"
:Pause
:End
:Lbl 13
:If θ≥0
:Then
:ClrHome
:Disp "SUMMON A","MONSTER"," ","1) YES","2) NO"," "
:End
:If θ≥0
:Prompt θ
:ClrHome
:5→X
:If O=0
:X-1→X
:If P=0
:X-1→X
:If Q=0
:X-1→X
:If R=0
:X-1→X
:If S=0
:X-1→X
:If θ=1 or θ={-}1
:Then
:If S=0
:5→Y
:If R=0
:4→Y
:If Q=0
:3→Y
:If P=0
:2→Y
:If O=0
:1→Y
:Disp "LV"," "
:θ→Z
:Prompt θ
:ClrHome
:If θ>12
:Goto 13
:If Z≠{-}1
:Then
:If θ<5 and X=5
:Goto 13
:If θ>4 and X=0
:Goto 13
:If θ>6 and X=1
:Goto 13
:0→T
:0→U
:If θ>4 or θ<{-}4
:Then
:Disp "TRIBUTE"
:If O≠0
:Disp "1"
:If P≠0
:Disp "2"
:If Q≠0
:Disp "3"
:If R≠0
:Disp "4"
:If S≠0
:Disp "5"
:Prompt T
:End
:If T=1 and O=0
:Goto 13
:If T=2 and P=0
:Goto 13
:If T=3 and Q=0
:Goto 13
:If T=4 and R=0
:Goto 13
:If T=5 and S=0
:Goto 13
:If θ>6 or θ<{-}6
:Then
:T→U
:Prompt T
:If T=U
:Goto 13
:End
:If θ<0
:1000→θ
:If T=1 and O=0
:Goto 13
:If T=2 and P=0
:Goto 13
:If T=3 and Q=0
:Goto 13
:If T=4 and R=0
:Goto 13
:If T=5 and S=0
:Goto 13
:If T=1 or U=1
:Then
:0→E
:0→F
:0→O
:End
:If T=2 or U=2
:Then
:0→G
:0→H
:0→P
:End
:If T=3 or U=3
:Then
:0→I
:0→J
:0→Q
:End
:If T=4 or U=4
:Then
:0→K
:0→L
:0→R
:End
:If T=5 or U=5
:Then
:0→M
:0→N
:0→S
:End
:0→T
:0→U
:End
:Lbl 15
:If S=0
:5→Y
:If R=0
:4→Y
:If Q=0
:3→Y
:If P=0
:2→Y
:If O=0
:1→Y
:If Y=1
:θ*1000→O
:If Y=2
:θ*1000→P
:If Y=3
:θ*1000→Q
:If Y=4
:θ*1000→R
:If Y=5
:θ*1000→S
:ClrHome
:Disp "ATK"," "
:Prompt θ
:If Y=1
:θ→E
:If Y=2
:θ→G
:If Y=3
:θ→I
:If Y=4
:θ→K
:If Y=5
:θ→M
:ClrHome
:Disp "DEF"," "
:Prompt θ
:If Y=1
:θ→F
:If Y=2
:θ→H
:If Y=3
:θ→J
:If Y=4
:θ→L
:If Y=5
:θ→N
:ClrHome
:End
:If B<0
:Then
:B*{-}1→B
:Goto 3
:End
:0→Z
:Lbl 4
:0→X
:0→Y
:If O>13000
:1000000→O
:If P>13000
:1000000→P
:If Q>13000
:1000000→Q
:If R>13000
:1000000→R
:If S>13000
:1000000→S
:randInt(61,36)→V
:randInt(1,80)→W
:Lbl 5
:ClrDraw
:Line(8.5,8,8.5,{-}8)
:Line(11.75,{-}7.75,{-}11.75,{-}7.75)
:Line({-}11.75,{-}7.75,{-}11.75,7.75)
:Line({-}11.75,5.75,8.5,5.75)
:Line({-}1.75,8,{-}1.75,5.75)
:Line({-}11.75,7.75,11.75,7.75)
:Line(11.75,7.75,11.75,{-}7.75)
:Line({-}9.25,2,{-}2.5,2)
:Line({-}1,2,5.25,2)
:Line({-}8.75,{-}.25,5.75,{-}.25)
:Line({-}9.25,{-}1,5.25,{-}1)
:Line(6.75,2,8.5,2)
:Line(7.25,{-}.25,8.5,{-}.25)
:Line(6.75,{-}1,8.5,{-}1)
:Line({-}11.75,2,{-}10.75,2)
:Line({-}11.75,{-}.25,{-}10.25,{-}.25)
:Line({-}11.75,{-}1,{-}10.75,{-}1)
:Line({-}3.25,4.25,{-}3,2)
:Line({-}3.25,4.25,{-}2.5,2)
:Line({-}1.75,4.25,{-}1,2)
:Line({-}10.75,2,{-}10.25,{-}.25)
:Line({-}10.25,{-}.25,{-}10.75,{-}1)
:Line({-}9.25,2,{-}9.75,1.25)
:Line({-}9.75,1.25,{-}9.25,{-}1)
:Line({-}9.25,2,{-}8.75,{-}.25)
:Line({-}8.75,{-}.25,{-}9.25,{-}1)
:Line(5.25,2,5.75,{-}.25)
:Line(5.75,{-}.25,5.25,{-}1)
:Line(6.75,2,6.25,1.25)
:Line(6.25,1.25,6.75,{-}1)
:Line(6.75,2,7.25,{-}.25)
:Line(7.25,{-}.25,6.75,{-}1)
:Pt-On({-}1.75,1,2)
:Pt-On({-}1.75,1)
:Pt-On({-}1.75,{-}.5,2)
:If Z={-}1
:Then
:Pt-Off({-}1.75,1)
:Pt-Off({-}1.75,1.25)
:End
:Pxl-On(A,B)
:If Z≠{-}1
:Then
:Pxl-On(V,W)
:randInt(1,4)→Z
:End
:0→θ
:Text(1,2,"P1 ",C)
:Text(1,42,"P2 ",D)
:If O≠0
:Then
:Text(1,84,E/100," ")
:Text(7,84,F/100," ")
:End
:If P≠0
:Then
:Text(13,84,G/100," ")
:Text(19,84,H/100," ")
:End
:If Q≠0
:Then
:Text(25,84,I/100," ")
:Text(31,84,J/100," ")
:End
:If R≠0
:Then
:Text(37,84,K/100," ")
:Text(43,84,L/100," ")
:End
:If S≠0
:Then
:Text(49,84,M/100," ")
:Text(55,84,N/100," ")
:End
:Line(11.75,7.75,11.75,{-}7.75)
:Lbl 2
:getKey→θ
:If θ=105
:Pause
:If θ=45
:Goto 9
:If θ=11
:Then
:0→E
:0→F
:0→O
:End
:If θ=12
:Then
:0→G
:0→H
:0→P
:End
:If θ=13
:Then
:0→I
:0→J
:0→Q
:End
:If θ=14
:Then
:0→K
:0→L
:0→R
:End
:If θ=15
:Then
:0→M
:0→N
:0→S
:End
:If θ=11 or θ=12 or θ=13 or θ=14 or θ=15
:Goto 5
:If θ=21
:Then
:If O=0 or P=0 or Q=0 or R=0 or S=0
:Then
:{-}1→θ
:Goto 1
:End
:End
:If randInt(1,randInt(2,3))=1 and Z≠{-}1
:Then
:randInt(1,4)→Z
:If V>A and A+11>V and B+11>W and B-11<W
:3→Z
:If V<A and A-11<V and B+11>W and B-11<W
:4→Z
:If W>B and B+11>W and randInt(1,2)=1 and A+11>V and A-11<V
:1→Z
:If W<B and B-11<W and randInt(1,2)=1 and A+11>V and A-11<V
:2→Z
:End
:If Z=1 and pxl-Test(V,W-1)≠1
:Then
:Pxl-Off(V,W)
:W-1→W
:Pxl-On(V,W)
:End
:If Z=2 and pxl-Test(V,W+1)≠1
:Then
:Pxl-Off(V,W)
:W+1→W
:Pxl-On(V,W)
:End
:If Z=3 and V≠36
:Then
:Pxl-Off(V,W)
:V-1→V
:Pxl-On(V,W)
:End
:If Z=4 and pxl-Test(V+1,W)≠1
:Then
:Pxl-Off(V,W)
:V+1→V
:Pxl-On(V,W)
:End
:If A+1=V and B=W
:Goto 11
:If A-1=V and B=W
:Goto 11
:If A=V and B+1=W
:Goto 11
:If A=V and B-1=W
:Goto 11
:If θ=24 and pxl-Test(A,B-1)≠1
:Then
:Pxl-Off(A,B)
:B-1→B
:Pxl-On(A,B)
:End
:If θ=26 and pxl-Test(A,B+1)≠1
:Then
:Pxl-Off(A,B)
:B+1→B
:Pxl-On(A,B)
:End
:If θ=25 and pxl-Test(A-1,B)≠1
:Then
:Pxl-Off(A,B)
:A-1→A
:Pxl-On(A,B)
:If pxl-Test(A-1,B)=1
:0→θ
:End
:If θ=34 and pxl-Test(A+1,B)≠1
:Then
:Pxl-Off(A,B)
:A+1→A
:Pxl-On(A,B)
:If pxl-Test(A+1,B)=1
:0→θ
:End
:If A=31 and θ=34 and pxl-Test(A+1,B)=1
:Then
:Pxl-Off(A,B)
:36→A
:Pxl-On(A,B)
:End
:If A=24 and θ=25 and pxl-Test(A-1,B)=1 and B≠35 and B≠36 and B≠37 and B≠43
:Then
:Pxl-Off(A,B)
:22→A
:Pxl-On(A,B)
:End
:If A=27 and B=40
:Goto 1
:If A=33 and B=40 and θ=34
:Then
:Pxl-Off(A,B)
:36→A
:Pxl-On(A,B)
:End
:If A+1=V and B=W
:Goto 11
:If A-1=V and B=W
:Goto 11
:If B+1=W and A=V
:Goto 11
:If B-1=W and A=V
:Goto 11
:If A=V and B=W
:Goto 11
:If θ=24 or θ=25 or θ=26 or θ=34
:Then
:If randInt(1,60)=1 and Z≠{-}1
:Goto 12
:If randInt(1,40)=1 and Z={-}1
:Goto 12
:End
:Goto 2
:Lbl 11
:{-}1→Z
:Lbl 12
:If Z={-}1
:A*{-}1→A
:randInt(0,5)→V
:randInt(0,5)→W
:1000→Z
:If C-D≥1000
:Then
:randInt(5,12)→V
:randInt(5,13)→W
:2000→Z
:End
:If C-D≥2000
:Then
:randInt(10,17)→V
:randInt(10,18)→W
:3000→Z
:End
:If C-D≥3000
:Then
:randInt(15,19)→V
:randInt(15,20)→W
:4000→Z
:End
:If C-D≥4000
:Then
:randInt(18,24)→V
:randInt(14,23)→W
:5000→Z
:End
:If C-D≥5000
:Then
:randInt(20,26)→V
:randInt(16,26)→W
:6000→Z
:End
:If C-D≥6000
:Then
:randInt(23,27)→V
:randInt(18,29)→W
:7000→Z
:End
:If C-D≥7000
:Then
:randInt(24,30)→V
:randInt(20,30)→W
:8000→Z
:End
:If C-D≥7500
:Then
:randInt(20,50)→V
:randInt(20,50)→W
:12000→Z
:End
:V*100→V
:W*100→W
:5→X
:If O=0
:X-1→X
:If P=0
:X-1→X
:If Q=0
:X-1→X
:If R=0
:X-1→X
:If S=0
:X-1→X
:0→Y
:Lbl 3
:Y→θ
:ClrDraw
:If O≠0
:Then
:Text(1,1,"1) ",O)
:Text(7,1,E," ",F)
:End
:If P≠0
:Then
:Text(13,1,"2) ",P)
:Text(19,1,G," ",H)
:End
:If Q≠0
:Then
:Text(25,1,"3) ",Q)
:Text(31,1,I," ",J)
:End
:If R≠0
:Then
:Text(37,1,"4) ",R)
:Text(43,1,K," ",L)
:End
:If S≠0
:Then
:Text(49,1,"5) ",S)
:Text(55,1,M," ",N)
:End
:Text(1,48,Z)
:Text(7,48,V," ",W)
:Text(37,48,"P1")
:Text(43,48,C)
:Text(49,48,"P2")
:Text(55,48,D)
:θ→Y
:Lbl 10
:If Z=0 or X=0
:Then
:Pause
:ClrHome
:If Z=0
:Then
:Disp "DRAW A CARD"
:Pause
:ClrHome
:End
:0→θ
:0→Z
:If A<0
:Then
:{-}1→Z
:A*{-}1→A
:End
:If X=0
:C-V→C
:Goto 4
:End
:getKey→θ
:If θ=45
:Goto 9
:If θ=22 and X≠0
:Then
:randInt(1,Z/10)→θ
:If θ≤((O+P+Q+R+S)/10)/X
:Then
:0→Z
:0→θ
:ClrHome
:0→Z
:If A<0
:Then
:0→Z
:A*{-}1→A
:End
:Goto 4
:End
:If O≠0
:O-V→O
:If P≠0
:P-V→P
:If Q≠0
:Q-V→Q
:If R≠0
:R-V→R
:If S≠0
:S-V→S
:C-V→C
:Goto 7
:End
:If θ=21
:Goto 16
:If θ≠22 and θ≠105
:Goto 10
:ClrHome
:5→X
:If O=0
:X-1→X
:If P=0
:X-1→X
:If Q=0
:X-1→X
:If R=0
:X-1→X
:If S=0
:X-1→X
:0→θ
:If O≠0
:E→θ
:If θ>G and P≠0
:G→θ
:If θ>I and Q≠0
:I→θ
:If θ>K and R≠0
:K→θ
:If θ>M and S≠0
:M→θ
:If θ=E and O≠0
:1→θ
:If θ=G and P≠0
:2→θ
:If θ=I and Q≠0
:3→θ
:If θ=K and R≠0
:4→θ
:If θ=M and S≠0
:5→θ
:randInt(0,X)→X
:If randInt(1,5)≠5
:θ→X
:If X=1 and O=0
:X+1→X
:If X=2 and P=0
:X+1→X
:If X=3 and Q=0
:X+1→X
:If X=4 and R=0
:X+1→X
:If O≠0 and Z>0
:Then
:Disp "1",E,F,"1) ATK","2) DEF"," "
:Prompt θ
:If θ=1 and X=0 and E>W
:Z-(E-W)→Z
:If θ=1 and X≠0
:Then
:If E>V
:Then
:Z-(E-V)→Z
:If Z<0
:D+Z→D
:End
:If E≤V
:Z-50→Z
:End
:If Y=0
:Then
:If X=1 and θ=2 and V>F and Y≠1
:O-(V-F)→O
:If X=1 and θ≠2 and Y≠1
:Then
:If V>E
:Then
:O-(V-E)→O
:If O<0
:C+O→C
:End
:If V≤E
:O-50→O
:End
:End
:End
:ClrHome
:If P≠0 and Z>0
:Then
:Disp "2",G,H,"1) ATK","2) DEF"," "
:Prompt θ
:If θ=1 and X=0 and G>W
:Z-(G-W)→Z
:If θ=1 and X≠0
:Then
:If G>V
:Then
:Z-(G-V)→Z
:If Z<0
:D+Z→D
:End
:If G≤V
:Z-50→Z
:End
:If Y=0
:Then
:If X=2 and θ=2 and V>H and Y≠1
:P-(V-H)→P
:If X=2 and θ≠2 and Y≠1
:Then
:If V>G
:Then
:P-(V-G)→P
:If P<0
:C+P→C
:End
:If V≤G
:P-50→P
:End
:End
:End
:ClrHome
:If Q≠0 and Z>0
:Then
:Disp "3",I,J,"1) ATK","2) DEF"," "
:Prompt θ
:If θ=1 and X=0 and I>W
:Z-(I-W)→Z
:If θ=1 and X≠0
:Then
:If I>V
:Then
:Z-(I-V)→Z
:If Z<0
:D+Z→D
:End
:If I≤V
:Z-50→Z
:End
:If Y=0
:Then
:If X=3 and θ=2 and V>J and Y≠1
:Q-(V-J)→Q
:If X=3 and θ≠2 and Y≠1
:Then
:If V>I
:Then
:Q-(V-I)→Q
:If Q<0
:C+Q→C
:End
:If V≤I
:Q-50→Q
:End
:End
:End
:ClrHome
:If R≠0 and Z>0
:Then
:Disp "4",K,L,"1) ATK","2) DEF"," "
:Prompt θ
:If θ=1 and X=0 and K>W
:Z-(K-W)→Z
:If θ=1 and X≠0
:Then
:If K>V
:Then
:Z-(K-V)→Z
:If Z<0
:D+Z→D
:End
:If K≤V
:Z-50→Z
:End
:If Y=0
:Then
:If X=4 and θ=2 and V>L and Y≠1
:R-(V-L)→R
:If X=4 and θ≠2 and Y≠1
:Then
:If V>K
:Then
:R-(V-K)→R
:If R<0
:C+R→C
:End
:If V≤K
:R-50→R
:End
:End
:End
:ClrHome
:If S≠0 and Z>0
:Then
:Disp "5",M,N,"1) ATK","2) DEF"," "
:Prompt θ
:If θ=1 and X=0 and M>W
:Z-(M-W)→Z
:If θ=1 and X≠0
:Then
:If M>V
:Then
:Z-(M-V)→Z
:If Z<0
:D+Z→D
:End
:If M≤V
:Z-50→Z
:End
:If Y=0
:Then
:If X=5 and θ=2 and V>N and Y≠1
:S-(V-N)→S
:If X=5 and θ≠2 and Y≠1
:Then
:If V>M
:Then
:S-(V-M)→S
:If S<0
:C+S→C
:End
:If V≤M
:S-50→S
:End
:End
:End
:Lbl 7
:ClrHome
:If C≤0 or D≤0
:Goto 9
:5→X
:If O≤0
:Then
:0→O
:0→E
:0→F
:X-1→X
:End
:If P≤0
:Then
:0→P
:0→G
:0→H
:X-1→X
:End
:If Q≤0
:Then
:0→Q
:0→I
:0→J
:X-1→X
:End
:If R≤0
:Then
:0→R
:0→K
:0→L
:X-1→X
:End
:If S≤0
:Then
:0→S
:0→M
:0→N
:X-1→X
:End
:If Z≤0
:0→Z
:0→Y
:0→θ
:ClrHome
:Goto 3
:Lbl 16
:ClrHome
:If X≠5
:Then
:Disp "SUMMON A","MONSTER"," ","1) YES","2) NO"," "
:Prompt θ
:If θ=1
:Then
:Prompt θ
:B*{-}1→B
:Goto 15
:End
:End
:ClrHome
:Disp "STOP ATTACK"," ","1) YES"," ","2) NO"," "
:Prompt θ
:If θ=1
:1→Y
:ClrHome
:Disp "LIFEPOINT CHANGE"," ","1) YES"," ","2) NO"," "
:Prompt θ
:If θ=1
:Then
:ClrHome
:Disp " ","1) YOU"," ","2) OPPONENT"," "
:Prompt θ
:If θ=1
:Then
:ClrHome
:Disp " ","1) +"," ","2) -"," "
:Prompt θ
:ClrHome
:If θ=1
:Then
:Prompt θ
:C+θ→C
:0→θ
:End
:If θ=2
:Then
:Prompt θ
:C-θ→C
:0→θ
:End
:End
:If θ=2
:Then
:ClrHome
:Disp " ","1) +"," ","2) -"," "
:Prompt θ
:ClrHome
:If θ=1
:Then
:Prompt θ
:D+θ→D
:0→θ
:End
:If θ=2
:Then
:Prompt θ
:D-θ→D
:0→θ
:End
:End
:End
:If C≤0 or D≤0
:Goto 9
:ClrHome
:Disp "DESTROY MONSTER"," ","1) YES"," ","2) NO"," "
:Prompt θ
:If θ=1
:0→Z
:ClrHome
:Goto 3
:Lbl 9
:ClrDraw
:ClrHome
:AxesOn
:0→A
:0→B
:0→C
:0→D
:0→E
:0→F
:0→G
:0→H
:0→I
:0→J
:0→K
:0→L
:0→M
:0→N
:0→O
:0→P
:0→Q
:0→R
:0→S
:0→T
:0→U
:0→V
:0→W
:0→X
:0→Y
:0→Z
:0→θ
:ClrHome
Austin Allman