- Bejeweled 84+ progress thread
- 16 Jul 2015 01:45:00 pm
- Last edited by JWinslow23 on 20 Jul 2015 12:29:25 am; edited 3 times in total
Introducing, a first look at what I want to make into a full game: Bejeweled 84+!
Click on the image to jump to the latest version!
As of now, it just loads the graphics, creates a random board with no match checking (yet), and displays that board.
If anyone's wondering how I did all that, one word: textsprites.
Download here or here. Tell me what you think!
EDIT: Source code for the curious (processed with TokenIDE):
Code:
Click on the image to jump to the latest version!
As of now, it just loads the graphics, creates a random board with no match checking (yet), and displays that board.
If anyone's wondering how I did all that, one word: textsprites.
Download here or here. Tell me what you think!
EDIT: Source code for the curious (processed with TokenIDE):
Code:
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,2Ans,24,2Ans
{2,⁻Ans,26
For(A,1,3
Line(Ans(A),⁻22,Ans(A)+10,⁻22
End
26
Line(12,⁻24,12,⁻Ans
Line(Ans,⁻24,Ans,⁻Ans
⁻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,27,25,27,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
DelVar [A]{8,8→dim([A]
For(A,1,8
For(B,1,8
randInt(1,7→[A](A,B
StorePic 1
For(C,0,7
Text(7+6A,38+6B+C,sub(sub("[[i][[[(ẋXẋ(+([(+(X]X(°û[Q°J|u[|uJ(X[i][(",5[A](A,B)-4,5)+" ",C+1,1
End
RecallPic 1
End
End
Pause