0 Members and 1 Guest are viewing this topic.

ClrDrawAxesOffZStandard104→Xmax⁻72→YminZIntegerFor(A,0,74If A<11Text(57,A+15,sub("?Y°﹢.﹢°Y? ",A+1,1If A<21Text(52,A+10,sub("?Y'([i]ÎQJ'['JQÎ[i]('Y? ",A+1,1If A<25Text(47,A+8,sub("﹢[s]!!]:XX.χ[i][i][i]χ.XX:]!![s]﹢ ",A+1,1If A<28Text(42,A+8,sub(" .Jẋûí[e]|u([s]:[s](|u[e]í[e]íJ. ?? ",A+1,1If A<41ThenText(37,A,sub("''? Y'°°Y]|uQYYY? Y'°°°^Y'°°'Y1|uQYYY? ",A+1,1Text(32,A,sub(" plotsquare[[2JQ!Jplotsquare[e]plotsquareJ[e]plotsquareplotsquare[e]plotsquareJ plotsquare['??YÎJplotsquare[e]plotsquareplotsquare [e]plotsquareplotsquareûplotsquare2 ",A+1,1Text(27,A,sub("JJJJJJJ. …. plotsquareí﹢ ",A+1,1EndText(5,A+11,sub("[[JJ[i]Q' 'QplotsquareJJJJ JJJplotsquareQ' 'QplotsquareJJJJ YQplotsquare('(plotsquareQY 'QplotsquareJJJJ 'QplotsquareJJJ 'QplotsquareJJJJ [[JJplotsquareQ' ",A+1,1Text(0,A+11,sub("[[]]X[( |u[Î]]]? [[ |u[Î]]]? [[. .[[ |u[Î]]]? [[ |u[Î]]]? [[??Y[|u ",A+1,1End{11,21,36,56,71,77For(A,1,6Line(Ans(A),0,Ans(A)+4,0End{31,42,51,62For(A,1,4Line(Ans(A),0,Ans(A)+1,0End⁻14Line(2,Ans,36,AnsLine(⁻Ans,2Ans,24,2Ans{2,⁻Ans,26For(A,1,3Line(Ans(A),⁻22,Ans(A)+10,⁻22End26Line(12,⁻24,12,⁻AnsLine(Ans,⁻24,Ans,⁻Ans⁻16Line(0,Ans,0,⁻20Line(38,Ans,38,⁻20Line(⁻Ans,⁻12,19,⁻1313Line(22,⁻12,19,⁻AnsLine(40,⁻Ans,40,⁻61{1,15,37,15,1,21,37,21,Ans,23,25,23,Ans,27,25,27,15,Ans,23,AnsFor(A,1,10Pt-On(Ans(2A-1),⁻Ans(2AEnd⁻12Line(41,Ans,92,AnsLine(41,Ymin,92,YminLine(42,Ans,42,YminLine(92,Ans,92,YminDelVar [A]{8,8→dim([A]For(A,1,8For(B,1,8randInt(1,7→[A](A,BStorePic 1For(C,0,7Text(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,1EndRecallPic 1EndEndPause

Awesome! Is it written in basic, the source looks like Axe but I haven't coded on my 84+ for a long time ?! Because the board drawing is a little slow or is that an animation?

Nice looking, there will now be Bejeweled for everyone. Except for HP Prime users. * Unicorn runs

A z80 emu is out of my field at the moment but that would be amazing

This looks amazing. if only text sprites were faster. I wonder if they work on the CE?

back on topic why didn't you use Pix-on()? is it faster with the text sprites?

ClrDrawAxesOffZStandard104→Xmax⁻72→YminZIntegerFor(A,0,74If A<11Text(57,A+15,sub("?Y°﹢.﹢°Y? ",A+1,1If A<21Text(52,A+10,sub("?Y'([i]ÎQJ'['JQÎ[i]('Y? ",A+1,1If A<25Text(47,A+8,sub("﹢[s]!!]:XX.χ[i][i][i]χ.XX:]!![s]﹢ ",A+1,1If A<28Text(42,A+8,sub(" .Jẋûí[e]|u([s]:[s](|u[e]í[e]íJ. ?? ",A+1,1If A<41ThenText(37,A,sub("''? Y'°°Y]|uQYYY? Y'°°°^Y'°°'Y1|uQYYY? ",A+1,1Text(32,A,sub(" plotsquare[[2JQ!Jplotsquare[e]plotsquareJ[e]plotsquareplotsquare[e]plotsquareJ plotsquare['??YÎJplotsquare[e]plotsquareplotsquare [e]plotsquareplotsquareûplotsquare2 ",A+1,1Text(27,A,sub("JJJJJJJ. …. plotsquareí﹢ ",A+1,1EndText(5,A+11,sub("[[JJ[i]Q' 'QplotsquareJJJJ JJJplotsquareQ' 'QplotsquareJJJJ YQplotsquare('(plotsquareQY 'QplotsquareJJJJ 'QplotsquareJJJ 'QplotsquareJJJJ [[JJplotsquareQ' ",A+1,1Text(0,A+11,sub("[[]]X[( |u[Î]]]? [[ |u[Î]]]? [[. .[[ |u[Î]]]? [[ |u[Î]]]? [[??Y[|u ",A+1,1End{11,21,36,56,71,77For(A,1,6Line(Ans(A),0,Ans(A)+4,0End{31,42,51,62For(A,1,4Line(Ans(A),0,Ans(A)+1,0End⁻14Line(2,Ans,36,AnsLine(⁻Ans,2Ans,24,2Ans{2,⁻Ans,26For(A,1,3Line(Ans(A),⁻22,Ans(A)+10,⁻22End26Line(12,⁻24,12,⁻AnsLine(Ans,⁻24,Ans,⁻Ans⁻16Line(0,Ans,0,⁻20Line(38,Ans,38,⁻20Line(⁻Ans,⁻12,19,⁻1313Line(22,⁻12,19,⁻AnsLine(40,⁻Ans,40,⁻61{1,15,37,15,1,21,37,21,Ans,23,25,23,Ans,27,25,27,15,Ans,23,AnsFor(A,1,10Pt-On(Ans(2A-1),⁻Ans(2AEnd⁻12Line(41,Ans,92,AnsLine(41,Ymin,92,YminLine(42,Ans,42,YminLine(92,Ans,92,YminDelVar [A]{8,8→dim([A]For(A,1,8For(B,1,8randInt(1,7→[A](A,BEndEndRepeat [A]=[B][A]→[B]For(X,0,1For(A,1,8Matr►list([A],A,L₁not(DeltaList(DeltaList(L₁³→L₁For(B,1,6max(AnsIf L₁(BThenRepeat Ans≠[A](B+1,ArandInt(1,7→[A](B,AEndEndEndEnd[A]ᵀ→[A]EndEnd"[[i][[[(ẋXẋ(+([(+(X]X(°û[Q°J|u[|uJ(X[i][(→Str1For(A,1,8For(B,1,8For(C,0,7Text(7+6A,38+6B+C,sub(sub(Str1,5[A](A,B)-4,5)+" ",C+1,1EndLine(92,⁻12,92,YminEndEndDelVar SDelVar T1→Z1→θRepeat K=45Line(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→KIf KThenLine(38+6Z,⁻7-6θ,42+6Z,⁻7-6θ,0Line(38+6Z,⁻13-6θ,42+6Z,⁻13-6θ,0Line(37+6Z,⁻8-6θ,37+6Z,⁻12-6θ,0Line(43+6Z,⁻8-6θ,43+6Z,⁻12-6θ,0EndIf K=21ThenIf S and T and (Z=S or θ=T) and 2>abs(Z-S)+abs(θ-TThenPt-Off(37+6S,⁻7-6TPt-Off(43+6S,⁻7-6TPt-Off(37+6S,⁻13-6TPt-Off(43+6S,⁻13-6T[A](T,S→A[A](θ,Z→[A](T,SA→[A](θ,Z" Text(7+6θ,38+6Z,AnsText(7+6T,38+6S,AnsStorePic 1For(C,0,7Text(7+6θ,38+6Z+C,sub(sub(Str1,5[A](θ,Z)-4,5)+" ",C+1,1EndRecallPic 1StorePic 1For(C,0,7Text(7+6T,38+6S+C,sub(sub(Str1,5[A](T,S)-4,5)+" ",C+1,1EndRecallPic 10→S0→TElseIf S and TThenPt-Off(37+6S,⁻7-6TPt-Off(43+6S,⁻7-6TPt-Off(37+6S,⁻13-6TPt-Off(43+6S,⁻13-6TEndZ→Sθ→TPt-On(37+6S,⁻7-6TPt-On(43+6S,⁻7-6TPt-On(37+6S,⁻13-6TPt-On(43+6S,⁻13-6TEndEndZ+(K=26 and Z<8)-(K=24 and Z>1→Zθ+(K=34 and θ<8)-(K=25 and θ>1→θEnd

Awesome! I want to try this out sometime when I have time

FacebookandTwitterFollow @Codewalr_us