Bump.
So, any help up there? Did I do that right? I can't get it to work on calc, if you want my code, here it is.
Code:
So, any help up there? Did I do that right? I can't get it to work on calc, if you want my code, here it is.
Code:
ClrHome
real(0,1,1
real(8,1,0
"MNYWBG
real(5,2,0
"MNSPRT
real(5,0,0
DelVar NDelVar BDelVar K
19→T
randInt(8,19→U
randInt(5,15→V
Repeat K=15
real(2,0,0
Ans→K
T+1→T
U+1→U
V+1→V
If T=20:Then
randInt(1,130→M
real(4,6,2,M,1,16,16,L,1,16,16,N,1,16,16 //HEre
If Ans=1
M+16→M
real(4,0,M,1,3,3,0,0,4,0,0,0,1,2,8,9,10,16,17,18
End
If T≥40:Then
DelVar T
real(7,9,M,1,29,26,93,0
End
If U=20:Then
randInt(1,130→L
real(4,6,2,L,1,16,16,M,1,16,16,N,1,16,6 //Here
If Ans=1
L+16→L
real(4,0,L,1,3,3,0,0,4,0,0,0,1,2,8,9,10,16,17,18
End
If U≥40:Then
DelVar U
real(7,9,L,1,29,26,93,0
End
If V=20:Then
randInt(1,130→N
real(4,6,2,N,1,16,16,M,1,16,16,L,1,16,16 //Here
If Ans=1
N+16→N
real(4,0,N,1,3,3,0,0,4,0,0,0,1,2,8,9,10,16,17,18
End
If V≥40:Then
DelVar V
real(7,9,N,1,29,26,93,0
End
If K=2
P-25→P
If K=3
P+25→P
If K=2 or K=3:Then
"MNYWBG
real(5,1,0
real(5,3,P-25,104,16,16,0,0
real(5,3,P+25,104,16,16,0,0
End
real(4,0,P,104,2,2,0,0,4,0,0,3,4,11,12
End