Join us on Discord!
You can help CodeWalrus stay online by donating here.
avatar_JWinslow23

Bejeweled 84+ progress thread

Started by JWinslow23, July 16, 2015, 06:41:07 PM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

JWinslow23

Quote from: DJ Omnimaga on July 17, 2015, 02:58:11 AM
I'll try the latest version of your game soon :walrii:

EDIT: So I ended up not trying it much. I instead wanted to see how it would look like on the CE and unfortunately it seems that Text( has a gap at the top and bottom of the characters, not just the top, so there would be a space between characters:



I multiplied text spaces a bit. And since the chars are a little different, the game might as well be themed as an horror version of Bejeweled and be renamed to Jelebewed. :P
Huh. Interesting. I can actually make out each part of the graphics :P And yeah, I suspected the font would be different. Someone really needs to see how this kind of stuff would work on the CSE or CE, because that's something I wanna see (and, if I figure it out, maybe actually program on it :P ).

Dream of Omnimaga

On the CE you could always draw twice as many characters and jump by 1 pixel instead of 2 for better quality, but speed would take a massive hit. I even think that the best would be to jump by 3 pixels intervals at the cost of quality for better speed. Perhaps that large fonts should be used.
  • Calculators owned: TI-82 Advanced Edition Python TI-84+ TI-84+CSE TI-84+CE TI-84+CEP TI-86 TI-89T cfx-9940GT fx-7400G+ fx 1.0+ fx-9750G+ fx-9860G fx-CG10 HP 49g+ HP 39g+ HP 39gs (bricked) HP 39gII HP Prime G1 HP Prime G2 Sharp EL-9600C
  • Consoles, mobile devices and vintage computers owned: Huawei P30 Lite, Moto G 5G, Nintendo 64 (broken), Playstation, Wii U

Unicorn

Whoah, I'm suprised that workedout so well.O.O I gues you wouldnt have fancy text, but you could stilly play a game of bejeweled that looks fairly cool.
  • Calculators owned: I own all of them: PICKACHUP TI 84+ CSE TI 83+ SE TI something something ??? ??? ??? ??? ???
  • Consoles, mobile devices and vintage computers owned: PICKACHUP ??? ??? ??? ??? ???



??? ??? ??? ??? ???

JWinslow23

Newer code STILL! After 3 days of work, it is now possible to actually match gems, and play like a regular Bejeweled game! Levels and points will come later ;)



Source code for the curious (I myself think it's messy, but it works! and well at that!):
G-T
Full
ClrDraw
AxesOff
ZStandard
104→Xmax
⁻72→Ymin
ZInteger
For(A,0,74
If A<11
Text(57,A+15,sub("?Y°﹢.﹢°Y?  ",A+1,1
If A<21
Text(52,A+10,sub("?Y'([i]ÎQJ'['JQÎ[i]('Y?  ",A+1,1
If A<25
Text(47,A+8,sub("﹢[s]!!]:XX.χ[i][i][i]χ.XX:]!![s]﹢  ",A+1,1
If A<28
Text(42,A+8,sub("  .Jẋûí[e]|u([s]:[s](|u[e]í[e]íJ.   ??  ",A+1,1
If A<41
Then
Text(37,A,sub("''?    Y'°°Y]|uQYYY? Y'°°°^Y'°°'Y1|uQYYY?  ",A+1,1
Text(32,A,sub(" plotsquare[[2JQ!Jplotsquare[e]plotsquareJ[e]plotsquareplotsquare[e]plotsquareJ plotsquare['??YÎJplotsquare[e]plotsquareplotsquare [e]plotsquareplotsquareûplotsquare2  ",A+1,1
Text(27,A,sub("JJJJJJJ.              ....          plotsquareí﹢  ",A+1,1
End
Text(5,A+11,sub("[[JJ[i]Q' 'QplotsquareJJJJ JJJplotsquareQ' 'QplotsquareJJJJ  YQplotsquare('(plotsquareQY  'QplotsquareJJJJ 'QplotsquareJJJ 'QplotsquareJJJJ [[JJplotsquareQ'  ",A+1,1
Text(0,A+11,sub("[[]]X[( |u[Î]]]?     [[ |u[Î]]]? [[.     .[[ |u[Î]]]? [[     |u[Î]]]? [[??Y[|u  ",A+1,1
End
{11,21,36,56,71,77
For(A,1,6
Line(Ans(A),0,Ans(A)+4,0
End
{31,42,51,62
For(A,1,4
Line(Ans(A),0,Ans(A)+1,0
End
14
Line(2,⁻Ans,36,⁻Ans
Line(Ans,⁻30,24,⁻30
{2,Ans,26
For(A,1,3
Line(Ans(A),⁻22,Ans(A)+10,⁻22
End
12
Line(Ans,⁻2Ans,Ans,⁻28
Line(26,⁻2Ans,26,⁻28
⁻16
Line(0,Ans,0,⁻20
Line(38,Ans,38,⁻20
Line(⁻Ans,⁻12,19,⁻13
13
Line(22,⁻12,19,⁻Ans
Line(40,⁻Ans,40,⁻61
{1,15,37,15,1,21,37,21,Ans,23,25,23,Ans,29,25,29,15,Ans,23,Ans
For(A,1,10
Pt-On(Ans(2A-1),⁻Ans(2A
End
⁻12
Line(41,Ans,92,Ans
Line(41,Ymin,92,Ymin
Line(42,Ans,42,Ymin
Line(92,Ans,92,Ymin
StorePic 2
Text(25,49,"Generating
Text(31,44,"board...please
Text(37,48,"be patient...
DelVar [A]{8,8→dim([A]
For(A,1,8
For(B,1,8
randInt(1,7→[A](A,B
End
End
Repeat [A]=[B]
[A]→[B]
For(X,0,1
For(A,1,8
Matr►list([A],A,L₁
not(DeltaList(DeltaList(L₁³→L₁
For(B,1,6max(Ans
If L₁(B
Then
Repeat Ans≠[A](B+1,A
randInt(1,7→[A](B,A
End
End
End
End
[A]ᵀ→[A]
End
End
"[[i][[[(ẋXẋ(+([(+(X]X(°û[Q°J|u[|uJ(X[i][(→Str1
For(A,1,8
For(B,1,8
For(C,0,7
Text(7+6A,38+6B+C,sub(sub(Str1,5[A](A,B)-4,5)+"   ",C+1,1
End
Line(92,⁻12,92,Ymin
End
End
DelVar SDelVar T1→Z
1→θ
Repeat K=45
Line(38+6Z,⁻7-6θ,42+6Z,⁻7-6θ
Line(38+6Z,⁻13-6θ,42+6Z,⁻13-6θ
Line(37+6Z,⁻8-6θ,37+6Z,⁻12-6θ
Line(43+6Z,⁻8-6θ,43+6Z,⁻12-6θ
getKey→K
If K
Then
Line(38+6Z,⁻7-6θ,42+6Z,⁻7-6θ,0
Line(38+6Z,⁻13-6θ,42+6Z,⁻13-6θ,0
Line(37+6Z,⁻8-6θ,37+6Z,⁻12-6θ,0
Line(43+6Z,⁻8-6θ,43+6Z,⁻12-6θ,0
End
If K=21
Then
If S and T and (Z=S or θ=T) and 2>abs(Z-S)+abs(θ-T
Then
Pt-Off(37+6S,⁻7-6T
Pt-Off(43+6S,⁻7-6T
Pt-Off(37+6S,⁻13-6T
Pt-Off(43+6S,⁻13-6T
[A](T,S→A
[A](θ,Z→[A](T,S
DelVar FDelVar NA→[A](θ,Z
Repeat not(M
DelVar M[A]→[B]
For(X,0,1
For(A,1,8
Matr►list([A],A,L₁
not(DeltaList(DeltaList(L₁³→L₁
For(B,1,6max(L₁
If L₁(B
Then
1→M
1→N
For(C,0,2
{B+C,A
If X
{A,B+C
Text(7+6Ans(1),38+6Ans(2),"     
0→[B](Ans(1),Ans(2
End
End
End
End
[A]ᵀ→[A]
End
If M
Then
[B]→[A]
If not(F
Then
For(X,0,1
{T,S
If X
{θ,Z
Text(7+6Ans(1),38+6Ans(2),"     
StorePic 1
For(C,0,7
If [A](Ans(1),Ans(2
Text(7+6Ans(1),38+6Ans(2)+C,sub(sub(Str1,5[A](Ans(1),Ans(2))-4,5)+"   ",C+1,1
End
RecallPic 1
End
1→F
End
For(A,1,8
Matr►list([A],A,L₁
DelVar O1→D
Repeat 8=sum(L₁=L₂
L₁→L₂
9→B
Repeat B<3 or not(L₁(B
B-1→B
End
If not(L₁(B
Then
max(B,D→D
For(C,B,2,⁻1
L₁(C-1→L₁(C
End
0→L₁(1
End
End
For(B,1,D
If not(L₁(B
Then
1→O
randInt(1,7→L₁(B
End
End
If O
Then
List►matr(L₁,[B]
rowSwap(augment([A],[B])ᵀ,A,9)ᵀ→[A]
{8,8→dim([A]
For(B,D,1,⁻1
Text(7+6B,38+6A,"     
StorePic 1
For(C,0,7
Text(7+6B,38+6A+C,sub(sub(Str1,5[A](B,A)-4,5)+"   ",C+1,1
End
RecallPic 1
End
End
End
Else
If not(N
Then
[A](T,S→A
[A](θ,Z→[A](T,S
A→[A](θ,Z
End
End
End
DelVar SDelVar T
Else
If S and T
Then
Pt-Off(37+6S,⁻7-6T
Pt-Off(43+6S,⁻7-6T
Pt-Off(37+6S,⁻13-6T
Pt-Off(43+6S,⁻13-6T
End
Z→S
θ→T
Pt-On(37+6S,⁻7-6T
Pt-On(43+6S,⁻7-6T
Pt-On(37+6S,⁻13-6T
Pt-On(43+6S,⁻13-6T
End
End
Z+(K=26 and Z<8)-(K=24 and Z>1→Z
θ+(K=34 and θ<8)-(K=25 and θ>1→θ
End


Download attached. Tell me what you think! Also, test this to your heart's content, as this now has the main game mechanics!

Unicorn

Woo for progress! :D will there be a CE version coming?
  • Calculators owned: I own all of them: PICKACHUP TI 84+ CSE TI 83+ SE TI something something ??? ??? ??? ??? ???
  • Consoles, mobile devices and vintage computers owned: PICKACHUP ??? ??? ??? ??? ???



??? ??? ??? ??? ???


Unicorn

But that thing dj did... You could test it out using a CSE emu, and have someone test it on calc for you.
  • Calculators owned: I own all of them: PICKACHUP TI 84+ CSE TI 83+ SE TI something something ??? ??? ??? ??? ???
  • Consoles, mobile devices and vintage computers owned: PICKACHUP ??? ??? ??? ??? ???



??? ??? ??? ??? ???

JWinslow23

Quote from: Unicorn on July 17, 2015, 09:21:14 PM
But that thing dj did... You could test it out using a CSE emu, and have someone test it on calc for you.
I have a CSE, just not a CE. And even his thingy didn't look right. Besides, some gems looked too similar on the CSE for some reason (almost leading me to believe there were matches right away on that board). Maybe sometime later, but it won't be soon. And even if I don't, you still have Bejeweled CSE (i.e. the reason I'm making Bejeweled 84+ :P )

CKH4

If you're OK with it I might try to convert the tile drawing to xlib. The speed would be much better (I think) but it would probably be larger. The new version looks really nice though, I can't wait to play it.
  • Calculators owned: TI-83+, TI-84+


JWinslow23

Quote from: CKH4 on July 17, 2015, 09:58:12 PM
If you're OK with it I might try to convert the tile drawing to xlib. The speed would be much better (I think) but it would probably be larger. The new version looks really nice though, I can't wait to play it.
Do whatever you like with the code, just don't claim it as entirely yours :P

CKH4

Oh yeah, I'd never do that. Preferably I'd send you the code and you could do what you like with it. Anyways good luck.
  • Calculators owned: TI-83+, TI-84+


JWinslow23

Quote from: CKH4 on July 17, 2015, 10:07:53 PM
Oh yeah, I'd never do that. Preferably I'd send you the code and you could do what you like with it. Anyways good luck.
You too, if I understood you correctly.

Now to work on scoring (and a side project I'm doing that ISN'T a game, called "Glitch Busters". More on that later.)

Dream of Omnimaga

Quote from: JWinslow23 on July 17, 2015, 08:05:37 PM
Quote from: Unicorn on July 17, 2015, 08:03:28 PM
Woo for progress! :D will there be a CE version coming?
I 1. have no CE and probably won't for a while, and 2. have no idea how to do those textsprite graphics with its different font :P . Sorry.
Pure BASIC programs on the CSE are entirely compatible with the CE, they're just faster. If you have a CSE then you can easily make a CE version if you want to.

ALso I downloaded the new version :)
  • Calculators owned: TI-82 Advanced Edition Python TI-84+ TI-84+CSE TI-84+CE TI-84+CEP TI-86 TI-89T cfx-9940GT fx-7400G+ fx 1.0+ fx-9750G+ fx-9860G fx-CG10 HP 49g+ HP 39g+ HP 39gs (bricked) HP 39gII HP Prime G1 HP Prime G2 Sharp EL-9600C
  • Consoles, mobile devices and vintage computers owned: Huawei P30 Lite, Moto G 5G, Nintendo 64 (broken), Playstation, Wii U

JWinslow23

Quote from: DJ Omnimaga on July 17, 2015, 10:13:22 PM
Quote from: JWinslow23 on July 17, 2015, 08:05:37 PM
Quote from: Unicorn on July 17, 2015, 08:03:28 PM
Woo for progress! :D will there be a CE version coming?
I 1. have no CE and probably won't for a while, and 2. have no idea how to do those textsprite graphics with its different font :P . Sorry.
Pure BASIC programs on the CSE are entirely compatible with the CE, they're just faster. If you have a CSE then you can easily make a CE version if you want to.

ALso I downloaded the new version :)
Well, there's still the problem of the different font and coordinates :P

And glad you did. Soon I'll add levels and points! (you'll notice that I made the second box in the score section bigger, because I have reservations about making this number 3pxl high)

Dream of Omnimaga

Yeah I wish that sending 84+ programs to a color calc automatically changed the coordinates like on the Casio PRIZM. It would not have to be entirely similar, though. Maybe I could attempt porting it or something at one point?
  • Calculators owned: TI-82 Advanced Edition Python TI-84+ TI-84+CSE TI-84+CE TI-84+CEP TI-86 TI-89T cfx-9940GT fx-7400G+ fx 1.0+ fx-9750G+ fx-9860G fx-CG10 HP 49g+ HP 39g+ HP 39gs (bricked) HP 39gII HP Prime G1 HP Prime G2 Sharp EL-9600C
  • Consoles, mobile devices and vintage computers owned: Huawei P30 Lite, Moto G 5G, Nintendo 64 (broken), Playstation, Wii U

Powered by EzPortal