JSE - Jay's Scripting Engine

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|286\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> JSE - Jay's Scripting Engine
Page : 1 2 3 4 5 6 7 8 9 10 11 Prev 12 13 Next 14
Sat, 04 Sep 2021, 08:08
Jayenkai	Yes, that's intentional. Symbols are always 32x32 pixels. Think of the little toggle in the symbol editor as the .. um .. let's call it pixel density.. of the symbol. If this wasn't the case, then trying to use the tilemap functions would end up with all manner of extra complications. If you want 16x16 symbols, SetSize 0.5 first. For 8x8 symbols, SetSize 0.25 Symbol 0,"0__40!404044040,40040,404404004044040,40040,404404040!4"; Symbol 1,"1__40_0?4040_0,40,40,4.0,40?404!040/440.440/440!440?44004.00440.44004.00440.44004.00440.44004.00440?440!440/440.440/404!040?40,4.0,40,40_0,4040_0?4"; Symbol 2,"2__40_0_0_0,4040_0_0_040,40_0_0@40?40_0_0!40/440/4!0/440@4,0?4@0?4,0_4,004_4,004,0_004@0.4@0_0.4?0@4?0_0?4.0_04.0_0.4.0_0,4.0_0,4,0?4.0?4,0_004,0?4!0?4,0_4.0.4@0.4.0@4,0.4_40.4,0@4,0.4_40.4,0@4,0.4_40.4,0@4,0.4_40.4,0@4.0.4@0.4.0_4,0?4!0?4,0_004,0?4.0?4,0_0,4.0_0,4.0_0.4.0_04.0_0?4?0@4?0_0.4@0.4@0_004,004_4,004,0_4,0?4@0?4,0@440/4!0/440/40_0_0!40?40_0_0@40,40_0_0_04040_0_0_0,4"; AntiAlias Off Repeat CLS:ResetDraw DrawImg 100,100,0 DrawImg 132,100,1 DrawImg 164,100,2 SetSize 0.25:DrawImg 100,200,0 SetSize 0.5:DrawImg 132,200,1 SetSize 1:DrawImg 164,200,2 SetFontSize 8:Text 100,300,Chr(238),1 SetFontSize 16:Text 132,300,Chr(238),1 SetFontSize 32:Text 164,300,Chr(238),1 Text 100,400,Chr(238),1:DrawImg 100,400,0 Text 132,400,Chr(238),1:DrawImg 132,400,1 Text 164,400,Chr(238),1:DrawImg 164,400,2 Flip Forever --v -=-=- ''Load, Next List!''
Tue, 14 Sep 2021, 14:08

Jayenkai	Created : 14 September 2021 Edited : 14 September 2021 System : Cross Platform Language : JSE Platdude's Minecart Challenge Score high in your epic Minecart ride GotoJSE
Screenshots
A challenge inside a minecart! Collect stars to use as a boost at the end of the track, and see how big of a bonus you can earn. JSE Sourcecode > Reveal 🔎 // Platdude's Minecart Challenge // by Jayenkai // Created 2021/9/6 // https://GotoJSE.com/G6pRrJFn.BAS Symbol 0,"1__0_0_0_0_0_0_0II0_0?II0@z0?I0_z0?BB0@z0?B0B0!A_A_A_A?0C_C?00A_A?00A_A?0,C_C,0.A_A,0.A_A,"; Symbol 1,"1__0_0_0_0_0_0_0II0_0?II0_0?I0_0!BB0_0?B0B"; Symbol 2,"0__00y.0,yx.y0yxxzwxxyyxzzwwxyyxwwzzxyyxxwzxxy0yx.y0,y."; Symbol 3,"1__0_0_0_0_0_0_0_0_0_0_0_0_0.yz_z?yxzzyyzzyyzzyyzzx0zz00zz00zz00zz00zz00zz00zz00zz"; Symbol 4,"24_R_R_R_R_R_R_R_R,QR@SR_R_R_R_R_R,SR_R_R_R_R_R_R,QR_R_R_R_R_R_R_R_R_R_RSR_R_RRQR_R_R_R_R_R_R.SR_R_R_R_R_R.SR_SR_R_R_R_R_R_R_R_R_R_R,QR_R_R_R_R_SR_R_R_R_R_SR_R_R_R_R_R_RRQR_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_RQR,SR_R_R.SR_R_R.SR_R_R_R_R_R_R_R/QR_R!SR_R_R_R_R_R_R_R_R_RR"; Symbol 5,"24_R_R_R_R_R_R_R_R_R_R_R_R!SR_R_R_R_R!SR_R_R_R_RQR_R?QR_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_RSR_R_R,QR_R_R_R_R_R,SR_R_R_R_R_R_R_RRQR_R@SR_R_R_R_R_R@QR_R@SR_RRSR@SR_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R!QR_QR_R_R_R_R/QQR_R_R!SR_R_R_R_R/SR_R_R_R_R!QR_R_R_R_R_R_R_R_R_R_R_RR"; Symbol 6,"24_R_R_R_R_R_R_SR_R_R_R_R_R_R_R_R@SR/QR_R?SR,QR_R_R_R_R?SR@QR_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R@QR_R_R_R_R_RSR_R_R_R_R,QR_R!QR_R_RRSR_QR_RRSR_R_R_R_R_R?SR_R_R_R_R_QR.SR_R_R_R_R,QR_R_R_R_R_R_R_R_RRQR_R_R_R_R_R_R_R_RSR_R_R_R_R_R_R_R_RRSR_R!SR_R_RQR_R_R_R_R_R.QR_R_R_R_R_R_R_R?"; Symbol 7,"24_R_R_R_R_R_R_R_RSR_R@QR_R_R.SR_R_R_R_R_R.QR_R_R_R_R,SR_R@SR_R_R_R_R_R.QR_R_R_R_R_R/SR_R_R_R_R_R_R_R_R@SR_RRQR_R_R_R_R_R_R_R_R_R@SR_R/QR,SR_R_R_R_R_R_R_R_R,QR_R_R_R_R,QR_R_R_R_R_R/SR_R_SR_R_R_R,QR_R_R_R_R_R_R_R!SR_R_R_R_RQR_R_R_R_R_R_R_R_R,SR?QR_R_QR_R_R?SR_R/QR_R_R_R/"; Symbol 8,"24_0_0_0_0_0_0_0_0_0R0_00S0_0_0_0_0_0_0_0_0/S0_0_R0_0_00S0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.R0_0_0_0_0_00R0_00R0_0_0_0,S0_0.R0_0_0_0_0?S0_0_0_0_0_0?S0_0_0_0_0_0_0_0_0_R00S0_0_0!R0_0?R0_0_0_0_0,S0_0_0_0_0_0_0_0_0_0_00R0_0_0_0_0_0_0_0_00RS0_0,S"; Symbol 9,"24_0_0_0_0_0_0_0_0_0_0S0/R0_S0_0_0_0_00R0_0_0_0_0_0_0_0_0_0_0_0_0S0_0/R0_0_0.R0_0_0_0_0_0_0_0_0_0_0R0/S0/S0/R0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0?R0_0/R0_0_0!S0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,S0,R0_0_0_0_0_0_0_0_S0_0?R0_0_0_0_0_0_0R0_0_0_0_S0_00R"; Symbol 10,"24_0_0_0_0_0!R0_0_0R0_0_S0_0_0_0_00R0_0_0_0S0_0!S0_0_0_0_0_0_0_0@R0_0_0_0_0_0@R0_0_0@S0!S0_0_0_0_0_0_0_0_0@R0_0_0S0_0_0_0_0_0_R0_0_0,S0_0_0.S0_0?R0_0_0_0_0_0_0_0_0_0!R0_0,S0_0_0_0_0_0_0S0_0@S0_0_0_0_00S0_0_0_0_0_0.R0_0_0_0_S0_0_0_0@R0_0,S0_0_0_0_0_0_0,R0_0.R"; Symbol 11,"24_0_0_0.R0_0_S0/S0_0_0_0_0_0.R0_0_0_0_0_0_0_0_00R0_0_0_0_0_0_0_0_0@R0_0_0!S0_0_0_0_0_0,R0_0_0_0@S0_0_0,S0_0_0_0_0_0@R0_0_0_0_0_0_0_0_0_0/S0_00S0_0_0_0_0_0_0_0.R0@S0.R0_R0_0_0_0_0!S0_0!S0_0_0_0_0_0!R0_0_0_0_0_0_0_0_0S0_0!S0_0_0!S0_0_0_0_0_0_0,R0!R0_0_0_0_0_S0_0_0_0R"; Symbol 12,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0@x@;_;/x@w@:_:/w_w/:_:/w_w/:_:/w@v@z_z/v_v/z_z/v_v/z_z/v_v/z_z/v@z@v_v/z_z/v_v/z_z/v_v/z_z/v_v/z_z/v_v/z_z/v_v/z_z/v_v/z_z/v_v/z@"; Symbol 13,"1__0_0_0?440_0?440_0.4.0_0,4.0_0,4.0/4_4?0,4_4,0!4@0_4!0_04!0_4@0@4@0/4,0.4,0?440@44"; Symbol 14,"0__0_0H0_0H0_00H0_0,H0.H"; Dim Track(256,5) AntiAlias False Graphics 800,400,1 GameHandler("Platdude's\|Minecart\|Challenge","Classic\|Original\|Random") .StartGame Act=0 Gosub GetLev Return .GetLev Act=Act+1 Notify "Challenge "+Act,20,3 StarBump=ScreenWidth() pbonus=0 starrest=0 stars=0 px=0 py=0 pspd=6 pgo=0 pfall=1 prot=0 pland=0 plandy=0 butt=0 bdis=1 LastLeap=0 pdead=0 pdead2=0 yeay=0 SeedRnd (GameType3717)+Act if GameType==3 then SeedRnd Mills() SetBuffer BG:AntiAlias True:ResetDraw SetCol 70,40,10 Rect 512,512,1100,1100,1 SetAlpha 0.5 For m=0 to 32 SetSize Rand(4,16) x=Rnd(1024):y=Rnd(1024) For fx=-1 to 1 For fy=-1 to 1 DrawImg x+fx1024,y+fy1024,Rand(8,11) Next Next Next SetBuffer FG AntiAlias False y=0 r=0 rg=0 gap=jRand(24,32) gapl=jRand(6,12) For m=0 to 256 Track(m,1)=x16 Track(m,2)=y Track(m,3)=r Track(m,4)=1 Track(m,5)=0 y=y+Sin(rg)16 if jRnd(0,10)<1 and m>4 then rg=jRand(-3,3)8 if jRnd(0,10)<1 and m>8 and m<254 then Track(m,5)=jRand(3,6) if m>251 then rg=0 r=SmoothTo(r,rg,2) if m>250 then gap=10:gapl=10 gap=gap-1 if gap<0 gapl=gapl-1 Track(m,4)=0 if gapl<0 then gap=jRand(24,32):gapl=jRand(6,12) endif Next aimx=0-ScreenWidth()0.25 aimy=0-ScreenHeight()0.5 scrx=aimx0.5:scry=aimy0.5 Return .Ingame CLS:ResetDraw WrapBG 0-scrx0.75,0-scry0.75 aimx=px-ScreenWidth()0.25 aimy=plandy-ScreenHeight()0.5 scrx=SmoothTo(scrx,aimx,3) scry=SmoothTo(scry,aimy,6) pgo=pgo+1 if pspd>9 then pspd=9 if pspd<5 and px<16256 then pspd=5 if pspd<0 then pspd=0 if pdead2>0 then pspd=0 if pgo==89 then JMTrackr(160,"G8G8G8G8A+8A+8A+8<C16D16C8C8C8>G8A+8A+8A8F8\|>G16<G16>G16<G16>G16<G16>G16<G16>A+16<A+16>A+16<A+16>A+16<A+16>A+16<A+16C16<C16>C16<C16>C16<C16>C16<C16>>A+16<A+16>A+16<A+16>A16<A16>F16<F16\|G8r16>G8G16A+16<D16C8r16>A+8r16A8<G8r16>G8G16A+16<D16C8r16>A+8r16A8\|G8G8G16>G16A+16<D16G8G8G16>G16A+16<D16G8G8G16>G16A+16<D16G8G8G16>G16A+16<D16\|r8G16G16G8A+8A+8r16F4r8r16G16G16G4r16G8A16A+8F8\|G16D16G16A+16<D16>A+16G16A+16A+16F16A+16<D16F16D16>A+16<D16C16>G16<C16D16C16D16C16>G16A+16G16A+16G16F16D16F16A+16\|<G8F8D8>A+4<D8F4G8F8D8>A+4<D8F4\|r1r1\|[d]\|C8G+8D8r16G+16C8G+8D8r16G+16C8G+8D8r16G+16C8G+8D8r16G+16\|r1\|") if pgo>90 then px=px+pspd if pdead2>0 and pdead2<30 then pfall=0:pdead2=pdead2+1 py=py+pfall pfall=pfall+0.25 butt=0 pland=pland-1 if GamePad(ButtonA)>0.5 or GamePad(ButtonUp)>0.5 or MouseDown()>0 then butt=1 if butt==0 and bdis<2 then bdis=0 if px>25516 bdis=1 if lastleap==0 then bdis=0 endif if butt==1 and bdis==0 and pland>0 bdis=1 pfall=-10 PlaySFX("Metal_4") if px>25516 then lastleap=1 endif if butt==0 then pfall=pfall+0.4 l=Floor(px/16)-20 if l<0 then l=0 r=l+60 ly=Track(256,2) pbonus=Floor(px-(25616))10 for n=l to r m=n if n>256 then m=256 SetSize 0.55,4.05:SetRot 0 x=(n16)-scrx:y=(Track(m,2)-scry) If Track(m,4)==1 then DrawImg x,y+68,4+(n mod 4) SetRot 180 DrawImg x,y+196,4+((n+1) mod 4) SetRot 0 DrawImg x,y+324,4+((n+2) mod 4) SetSize 0.5,0.5 SetRot Track(m,3) s=3:if n>256 then s=12 DrawImg x,y,s endif if Track(m,5)>0 SetSize 1,1 SetRot(0) DrawImg x,y-Track(m,5)16,13,2 if Abs(x-(px-scrx))<32 and Abs((y-Track(m,5)16)-(py-scry))<32 for e=0 to 15 ThrowParticle x,y-Track(m,5)16,4,e22.5,1,14,0 next Track(m,5)=0 stars=stars+1 score=score+10 PlaySFX("Beeper_Coin") endif endif if Abs((n16)-px)<18 ly=Track(m,2) if py>Track(m,2)+64 and pfall>=0 and Track(m,4)==0 and pdead2==0 pdead2=1 plandy=py endif if Abs(py-(Track(m,2)-12))<20 and pfall>=0 and Track(m,4)==1 py=SmoothTo(py,Track(m,2)-12,2) prot=Track(m,3) if n<=256 then pspd=pspd+(prot0.0005) if n>256 prot=0 if bdis==1 then bdis=2 if stars<=0 then pspd=pspd-0.025:stars=0 if stars>0 v=1/Ceil(2+Stars) if v>0.15 then v=0.15 stars=stars-v if Ceil(stars)<starrest then starrest=Ceil(stars) ThrowParticle px-scrx-16,(py-24)-scry,4,-90,2,13,0 ThrowParticle px-scrx-8,(py-16)-scry,4,-90,2,13,1 ThrowParticle px-scrx,(py-8)-scry,4,-90,2,13,2 ThrowParticle px-scrx-8,(py)-scry,4,-90,2,13,3 ThrowParticle px-scrx-16,(py+8)-scry,4,-90,2,13,4 c=0.5+((50-stars)0.02) if c>5 then c=5 if c<0.5 then c=0.5 PlaySFX("Pickup_7",c) endif endif if pland<1 then PlaySFX("Noise_Thud_3") pland=4 plandy=py pfall=0 endif endif next if py>ly+64 and pdead2==0 then pdead2=1 if pdead2>0 pdead=pdead+1 if pdead>30 and pdead<80 then e=((120-pdead)/60)+1:PlaySFX("Whistle_Down",e) if pdead==90 then PlaySFX("Noise_Splash",jRnd(0.5,0.7)):PlaySFX("Noise_Rustle",jRnd(0.5,0.7)):PlaySFX("Noise_Crash",jRnd(0.5,0.7)):PlaySFX("Sonniss_Rattle_Metal",jRnd(0.5,0.7)) endif if pspd<=0 and stars<=0 and px>=25616 pspd=0:stars=0 if yeay==0 PlaySFX("Beeper_Rise") for x=0 to ScreenWidth() step 16 ThrowParticle x,(py-scry)+16,2,jRnd(-8,8),jRnd(1.5,3),13,jRnd(0,7) Next Score=Score+pbonus endif yeay=yeay+1 endif ResetDraw:SetSize 0.5:SetRot prot DrawImg px-scrx,py-scry,0 SetSize 0.15 SetRot px3 DrawImg (px-scrx)+Sin(150+prot)10,(py-scry)-Cos(150+prot)10,2 SetRot (px3)+45 DrawImg (px-scrx)+Sin(210+prot)10,(py-scry)-Cos(210+prot)10,2 prot=prot-4 if stars>starrest then starrest=stars ResetDraw():SetFontSize 32 x=25616-scrx if x>ScreenWidth()-48 then x=ScreenWidth()-48 if x<ScreenWidth()0.5 then x=ScreenWidth()0.5 SetSize 3.5:DrawImg x,(ScreenHeight()0.35)-8,13,2 SetSize 1:SetCol 0,0,0:Text x,ScreenHeight()0.35,starrest,1 if pbonus>0 then SetCol 128,200,255:Text ScreenWidth()0.5,ScreenHeight()0.65,pbonus,1 if yeay>0 or pdead>0 or (px>25616 and stars<=0) then JMStop if yeay>120 or pdead>120 then if Act==3 then EndGame "Challenge Complete" if Act<3 then Gosub GetLev endif ResetDraw:TextScore jscrw/2,32,1 SetParticleSize 8 Flip Return --v [/spoiler]

Thu, 16 Sep 2021, 01:49
steve_ancell	That runs smooth and quick on my system.
Sat, 18 Sep 2021, 17:18
Jayenkai	> Reveal 🔎 // Talky Tester // by Jayenkai // Created 2021/9/18 Graphics 1024,768,1 Repeat CLS;ResetDraw();SetFontSize 16 mh=MouseHit() c=VoiceCount() if c==-1 Print "Speech currently unavailable" Print "Try clicking the screen" endif if c>-1 For n=0 to c nm$=VoiceName$(n) y=(n+1)*22 If MouseIn(512,y,1024,20,1)>0 then SetCol 40,80,120:Rect 512,y,1024,20,1:SetCol 255,255,255 Text 512,y,"["+n+"] - "+nm$,1 If MouseIn(512,y,1024,20,1)>0 and mh>0 Say "Hello! My name is "+nm$+", and I am a computer voice. Question?",n endif Next endif Flip Forever --v Every browser I've tested this in seems to have a completely different set of results. Let me know how/if it works for you. -=-=- ''Load, Next List!''
Sun, 19 Sep 2021, 00:23
Dan	Windows 10, SrWare Iron browser, displays 10 english languages, working ok. But, i have at least 16 voices installed, few are German. Android Phone, Internet, Displays 2 voices (Uk+Us), working ok.
Sun, 19 Sep 2021, 01:47
therevillsgames	All I get is [0] = 0.... which changes colour when I mouse over it...
Sun, 19 Sep 2021, 04:04
Jayenkai	@Dan One of the biggest issues with using oldskool fonts in the way that I have is that their upper-ASCII values aren't entirely compatible with characters that aren't plain English, or even are accented.. Mode 2 For m=1 to 8 SetFont m Print "Bonjour." Print "Comment est votre jour jusqu'Ã prÃ©sent?" Print "Ã‡a va?" Print Next --v One methodology I've been considering is converting character codes for known accented letters, into their relative codes per system. Alternatively, I could shuffle the upper-ASCII to be "correct" in all the fonts. Unfortunately, both of those methods will break the original ascii codes for that system. Which is something I've been trying to avoid. I'm really not sure what to do here, and since "everything other than English" seems to break the whole thing, I'm currently only allowing English languages to use the Speech functions. I should definitely fix that. ... But with the character codes being broke like that, I'm not sure of the best way around it. Suggestions welcome. @TheRevillsGames : Did it speak when you clicked it!?! -=-=- ''Load, Next List!''
Sun, 19 Sep 2021, 15:56
therevillsgames	Nope nothing happened... \|update\| -=-=- \|update\| On me Realme Android I get 4 lines and it speaks.
Sun, 19 Sep 2021, 16:40
Jayenkai	Gawd, who knew using a web API could prove so difficult?!!?!? Aw well, it's there. That'll do. -=-=- ''Load, Next List!''
Mon, 20 Sep 2021, 04:13
therevillsgames	Hmmm, it's working now - did you change the script or backend?
Mon, 20 Sep 2021, 04:49
Jayenkai	Haven't changed a thing. It's not a very precise thing, right now, I think. The Speech API just isn't mature enough to be relied on. -=-=- ''Load, Next List!''
Tue, 12 Oct 2021, 05:37
Jayenkai	// Optimisationalism 3 - Optimise with a Vengeance // by Jayenkai // Created 2021/10/12 // https://SoCoder.net/?GotoPost=80562 // GotoJSE.com/46DDqcxw.BAS Symbol 0,"05_40!404044040,40040,404404004044040,40040,404404040!4"; JMTrackr 180,"<C32r1r2r4r8r16r32\|r2<C8r1r4r8\|r1r4<C32r32C32r2r8r32\|r4r8C32r4r16r32C32r4r16r32C32r2r4r16r32\|r2<C32r4r16r32C32r2r4r16r32C32r32C32r32C32r16r32\|r1\|[d]\|G+1G+1\|r1\|",1 max=2000 Dim Array(max,5) Dim Array2(max,5) tick=0 CLS 0,60,0 Graphics 640,480,3 Repeat CLS 0,60,0,0.5 t=Mills() SeedRnd 37171650 ResetDraw:SetCol 180,255,180 SetAlpha 0.1 for m=0 to 99 SetRot m3.6+Mills()0.05 SetSize Rand(0.5,3) Plot Rand(ScreenWidth()),Rand(ScreenHeight()) DrawImg Rand(ScreenWidth())+Sin(m37+Mills()0.06)360,Rand(ScreenHeight())-Cos(m37+Mills()0.045)360,0,Rand(0,7) Line Rand(ScreenWidth())+Sin(m37+Mills()0.004)360,Rand(ScreenHeight())-Cos(m37+Mills()0.003)360,Rand(ScreenWidth())+Sin(m37+Mills()0.002)360,Rand(ScreenHeight())-Cos(m37+Mills()0.001)360 next SeedRnd ResetDraw SetFont "Segment8":SetFontSize 8 avg=0 y=0 for m=max-1 to 0 step -1 if m<max-1 then Array(m)=Floor(Array(m+1)+1.234) Array(m)=Pyth(Array(m),Array(m+1)) Array(m)=(Array(m)+Array(m+1)) endif if m==max-1 then Array(m)=Rand(37171650) if Array(m)>37171650 then Array(m)=Array(m)0.01 if m mod 30==1 d=Rand(20,50) SetCol d,d5,d v=Sin(Mills0.05)Cos(Mills0.03)0.2 Text 64+Abs(Sin(mv+Mills()0.1))64,y8+4,Array(m):y=y+1 endif next SetCol 180,255,180 for m=0 to 59 avg=avg+Array2(m) Array2(m)=Array2(m+1) SetCol m,m4,m Text 2,(m8)+4,Array2(m) Plot Rand(ScreenWidth()),Rand(ScreenHeight()) next tick=tick+1 if Rand(0,50)<2 then PlaySFX("Sonniss_Ui_"+Rand(1,10)) avg=Floor(avg/59) SetFont "CPC" If tick>60 SetFontSizeFit avg,640,480 Text ScreenWidth()/2,ScreenHeight()/2,avg,1 endif If tick<=60 SetFontSizeFit "Working",640,480 Text ScreenWidth()/2,ScreenHeight()/2,"Working",1 endif Array2(60)=Mills()-t Flip Forever --v An all new version of Optimisationalism! It'll run a LOT slower than the last one. It's testing even more functionality, and should hopefully let me tweak out even more quirks from the script. Give it enough time, and the "Working" will change to a numerical value. A bit more time to settle down, then post your results below, and (hopefully) watch over time as the engine gets marginally faster. 12 October 2021 Macbook Air M1 - Safari - 99 Macbook Air M1 - Firefox - 73 Macbook Air M1 - Opera - 73 MacMini 2015 running Windows - Edge - 220 MacMini 2015 running Windows - Chrome - 212 MacMini 2015 running Windows - Firefox - 464 (!!!) MacMini 2015 running Windows - Opera - 222 iPhone 12 Pro - 129 iPad Air 3 - 194 iPad Air 4 - 117 Samsung Galaxy Bag'o'Crap Tab 10 A - 1512 (Weeeee, so crap!) -=-=- ''Load, Next List!''
Fri, 15 Oct 2021, 09:43
Dan	Got 165 at my windows 10 desktop pc
Fri, 15 Oct 2021, 10:45
Pakz	Ipad pro m1 chrome 62/63 Ipad pro m1 safari 61/62
Tue, 19 Oct 2021, 06:48
Jayenkai	Progress over the past day and a half. Have been working away at how arrays work, doing a mostly complete rewrite of the functionality. I've managed to speed up Optimisationalism 3 by around about 5%, but have also managed to completely break the Sort/Shuffle/Reverse array functions in the process. Those will need a complete rewrite, at which point .. I might as well rewrite them with Multi-Dim's in mind, first and foremost. Okeydokeydooo... If you want to test the in-dev updated version, keeping in mind that the sort/shuffle/reverse functions are currently knackered, you can try it out at the index_.html page, here. -=-=- ''Load, Next List!''
Sat, 23 Oct 2021, 16:44
Jayenkai	Stumbled upon the Twitter account 8Bit Fractals tonight, and thought I should try some simple duplicating of a few of their examples. Julia - BBC Micro > Reveal 🔎 // Julia Set for BBC Micro // by 8bit Fractals // Stolen by Jayenkai // Written 2021/10/23 // GotoJSE.com/X3GlJRsv.BAS 10 MODE 0,"BBC":Graphics 1280,1024,3 20 CRE=-0.1:CIM=0.7 30 FOR I=0 TO 1279 STEP 2 40 FOR J=1023 TO 0 STEP -4 50 ZRE=(I-639)/380:ZIM=(J-511)/380 60 K=0 70 REPEAT:TMP=ZREZRE-ZIMZIM+CRE 80 ZIM=2ZREZIM+CIM 90 ZRE=TMP 100 K=K+1 110 UNTIL K==50 OR ABS(ZRE)>=2 120 IF K==50 THEN RECT I,1023-J,2,4 130 NEXT:FLIP 140 NEXT 150 REPEAT:FOREVER --v Julia - Tandy TRS 80 > Reveal 🔎 // Julia Set TANDY TRS 80 // by 8bit Fractals // Stolen by Jayenkai // Written 2021/10/23 // GotoJSE.com/PBSHllVJ.BAS Mode 0,"ZX" 10 CR=-1.3:CI=0.04:CLS 20 FOR X=39 TO 199 30 FOR Y=0 TO 63 50 ZR=(X-119)/47:ZI=(32-Y)/47:K=0 60 TP=ZRZR-ZIZI+CR 70 ZI=2ZRZI+CI:ZR=TP:K=K+1 80 IF K<50 AND ABS(ZR)<2 THEN GOTO 60 90 IF K>=50 THEN PLOT(X,Y) 100 NEXT:NEXT 110 GOTO 110 --v Julia - Apple II > Reveal 🔎 // Julia Set Apple II Fractal // by 8bit Fractals // https://twitter.com/8bitfractals/status/1451826987371225088 // Stolen by Jayenkai // Written 2021/10/23 // GotoJSE.com/rV39MtR9.BAS 10 CR=-0.25:CI=0.65 20 Graphics 280,192,3 // HGR2 30 FOR X=0 TO 279 40 R=(X-139)/90 50 FOR Y=0 TO 191 60 ZI=(95-Y)/90 70 ZR=R:K=0 80 T=ZRZR-ZIZI+CR 90 ZI=2ZRZI+CI 100 ZR=T:K=K+1 110 IF K==50 THEN PLOT X,Y:GOTO 130 120 IF ABS(ZR)<2 THEN GOTO 80 130 NEXT 140 NEXT --v Julia - Dragon 32 > Reveal 🔎 // Julia Set Dragon 32 // by 8bit Fractals // Stolen by Jayenkai // Written 2021/10/23 // GotoJSE.com/8GBFQDw5.BAS 10 GRAPHICS 256,192,3 20 CR=0.4:CI=0.2 30 FOR I=0 TO 255 40 FOR J=0 TO 191 50 ZR=(I-127)/80:ZI=(95-J)/80:K=0 60 T=ZRZR-ZIZI+CR 70 ZI=2ZRZI+CI 80 ZR=T:K=K+1 90 IF K==50 THEN PLOT I,J:GOTO 110 100 IF ABS(ZR)<2 THEN GOTO 60 110 NEXT 120 NEXT 130 GOTO 130 --v Restricted Chaos - Oric-1 > Reveal 🔎 // Restricted Chaos - Oric-1 // by 8bit Fractals // Stolen by Jayenkai // Written 2021/10/23 // GotoJSE.com/gR6H6b7G.BAS 10 Graphics 240,200 20 X=RAND(0,159):Y=RAND(0,159) 30 L=0:LL=0 40 REPEAT 50 REPEAT 60 V=RAND(0,3) 70 UNTIL V<>LL 80 X=X/2:Y=Y/2 90 IF V<2 THEN X=X+80 100 IF V==1 OR V==2 THEN Y=Y+80 110 PLOT 39+X,19+Y 120 LL=L:L=V 130 UNTIL 0 --v -=-=- ''Load, Next List!''
Wed, 05 Jan 2022, 17:18
therevillsgames	I'm finding that constants dont always work: With my rotating around parent code: $ROTATE_AROUND_ON is meant to be 1 or 0, but it looks like it picks up an ROTATE_AROUND_X OR _Y position... also I couldnt use $WIDTH and had to change to $PIECE_WIDTH Symbol 0,"0__4_4_4vv4?v44v4.v.4.v44v4_4_"; Symbol 1,"0__B_B_v,B?vDDvB.vBBvB.v,B_B_B"; Symbol 2,"0__I_I_Iv,I.vI/vI@v,I_I_"; Symbol 3,"0__P_P_v,P?vPPvP.vPPvP.v,P_P_P"; Symbol 4,"0__W_W_v.W.vvW!vW/v.W_W_"; Symbol 5,"0__d_d_v.d.vvd!vd/vd_d_d,"; Symbol 6,"0__k_k_kv,k.vk/vkkvk?v,k_k_"; Symbol 7,"0__r_r_vrrvr.vrrvr.v.r.vrrvr_r_"; #Const $SCREEN_WIDTH=512 #Const $SCREEN_HEIGHT=512 Graphics $SCREEN_WIDTH,$SCREEN_HEIGHT, 1 // define the fields for the pieces #Const $X=0 #Const $Y=1 #Const $W=2 #Const $H=3 #Const $ROTATION=4 #Const $TARGET_ROTATION=5 #Const $TARGET_X=6 #Const $TARGET_Y=7 #Const $SYMBOL_IMAGE=8 #Const $CONNECTED_PIECE=9 #Const $ROTATING=10 #Const $R=11 #Const $G=12 #Const $B=13 #Const $ROTATE_AROUND_X=14 #Const $ROTATE_AROUND_Y=15 #Const $ROTATE_AROUND_ON=16 #Const $PIECE_WIDTH=64 #Const $PIECE_HEIGHT=64 // create the pieces #Const $NUM_PIECES=2 Dim Piece($NUM_PIECES, 30) i = 0 Piece(i,$X) = 200 Piece(i,$Y) = 200 Piece(i,$TARGET_X) = Piece(i,$X) Piece(i,$TARGET_Y) = Piece(i,$Y) Piece(i,$W) = $PIECE_WIDTH // $WIDTH hmmm constant doesnt work?? Piece(i,$H) = $PIECE_HEIGHT Piece(i,$SYMBOL_IMAGE) = 0 Piece(i,$CONNECTED_PIECE) = 1 Piece(i,$R) = 255 Piece(i,$G) = 0 Piece(i,$B) = 0 Piece(i,$ROTATE_AROUND_ON) = 0 //ROTATE_AROUND_ON?? i = i + 1 Piece(i,$X) = 200 Piece(i,$Y) = 200 + Piece(i-1,$H) Piece(i,$TARGET_X) = Piece(i,$X) Piece(i,$TARGET_Y) = Piece(i,$Y) Piece(i,$W) = $PIECE_WIDTH Piece(i,$H) = $PIECE_HEIGHT Piece(i,$SYMBOL_IMAGE) = 1 Piece(i,$CONNECTED_PIECE) = 0 Piece(i,$R) = 0 Piece(i,$G) = 255 Piece(i,$B) = 0 Piece(i,$ROTATE_AROUND_ON) = 0 selectedPiece = 1 Repeat Gosub Controls Gosub UpdatePieces Cls:ResetDraw:SetFontSize 8 Gosub DrawPieces Gosub DrawDebugInfo Flip Forever .DrawDebugInfo DrawText 10, 10, "Selected:" + selectedPiece if selectedPiece > -1 textY = 20 : gapy = 10 DrawText 10, textY, "Rotation:" + Piece(selectedPiece, $ROTATION):textY = textY + gapy DrawText 10, textY, "Target Rotation:" + Piece(selectedPiece, $TARGET_ROTATION):textY = textY + gapy DrawText 10, textY, "Currently Rotating:" + Piece(selectedPiece, $ROTATING):textY = textY + gapy DrawText 10, textY, "ROTATE_AROUND_ON:" + Piece(selectedPiece , $ROTATE_AROUND_ON):textY = textY + gapy DrawText 10, textY, " Connected To:" + Piece(selectedPiece, $CONNECTED_PIECE):textY = textY + gapy connectedId = Piece(selectedPiece, $CONNECTED_PIECE) tx = Piece(connectedId , $TARGET_X) ty = Piece(connectedId , $TARGET_Y) DrawText 10, textY, " Connected X:" + Piece(connectedId , $X):textY = textY + gapy DrawText 10, textY, " Connected Y:" + Piece(connectedId , $Y):textY = textY + gapy DrawText 10, textY, " Connected TX:" + tx:textY = textY + gapy DrawText 10, textY, " Connected TY:" + ty:textY = textY + gapy DrawText 10, textY, " Connected ROTATE_AROUND_ON:" + Piece(connectedId , $ROTATE_AROUND_ON):textY = textY + gapy sx = Piece(selectedPiece, $X) sy = Piece(selectedPiece, $Y) cx = Piece(connectedId, $X) cy = Piece(connectedId, $Y) xDiff = cx - sx yDiff = cy - sy DrawText 10, textY, " xDiff :" + xDiff :textY = textY + gapy DrawText 10, textY, " yDiff :" + yDiff :textY = textY + gapy endif Return .Controls For i = 0 to $NUM_PIECES-1 x = Piece(i, $X) y = Piece(i, $Y) w = Piece(i, $W) h = Piece(i, $H) If Abs(MouseX()-x) < w/2 and Abs(MouseY()-y) < h/2 and MouseDown()>0 selectedPiece = i sx = Piece(selectedPiece, $X) sy = Piece(selectedPiece, $Y) if Piece(selectedPiece, $ROTATING) == 0 then Piece(selectedPiece, $TARGET_ROTATION) = Piece(selectedPiece, $ROTATION) + 90 targetRotation = Piece(selectedPiece, $TARGET_ROTATION) Piece(selectedPiece, $ROTATING) = 1 connectedPiece = Piece(selectedPiece, $CONNECTED_PIECE) cx = Piece(connectedPiece, $X) cy = Piece(connectedPiece, $Y) xDiff = cx - sx yDiff = cy - sy angleDiff = targetRotation - Piece(selectedPiece, $ROTATION) cosA = Cos(angleDiff) sinA = Sin(angleDiff) targetX = xDiff * cosA - yDiff * sinA targetY = yDiff * cosA + xDiff * sinA Piece(connectedPiece, $ROTATE_AROUND_ON) = 1 Piece(connectedPiece, $ROTATE_AROUND_X) = sx Piece(connectedPiece, $ROTATE_AROUND_Y) = sy Piece(connectedPiece, $TARGET_X) = targetX + sx Piece(connectedPiece, $TARGET_Y) = targetY + sy Piece(connectedPiece, $TARGET_ROTATION) = targetRotation Piece(connectedPiece, $ROTATING) = 1 EndIf EndIf Next Return .UpdatePieces For i = 0 to $NUM_PIECES-1 r = Piece(i, $ROTATION) t = Piece(i, $TARGET_ROTATION) if Piece(i, $ROTATING) == 1 if r < t then angle = 2 r = r + angle Piece(i, $ROTATION) = r if Piece(i, $ROTATE_AROUND_ON) == 1 then sx = Piece(i, $X) sy = Piece(i, $Y) cx = Piece(i, $ROTATE_AROUND_X) cy = Piece(i, $ROTATE_AROUND_Y) xDiff = sx - cx yDiff = sy - cy cosA = Cos(angle) sinA = Sin(angle) targetX = xDiff * cosA - yDiff * sinA targetY = yDiff * cosA + xDiff * sinA Piece(i, $X) = targetX + sx Piece(i, $Y) = targetY + sy endif else r = t Piece(i, $ROTATING) = 0 Piece(i, $ROTATE_AROUND_ON) = 0 connectedPiece = Piece(i, $CONNECTED_PIECE) Piece(connectedPiece, $X) = Piece(connectedPiece, $TARGET_X) Piece(connectedPiece, $Y) = Piece(connectedPiece, $TARGET_Y) endif endif Next Return .DrawPieces For i = 0 to $NUM_PIECES-1 x = Piece(i, $X) y = Piece(i, $Y) w = Piece(i, $W) h = Piece(i, $H) DrawRect x - w / 2, y - h / 2, w, h SetRotation Piece(i, $ROTATION) DrawImg x, y, Piece(i, $SYMBOL_IMAGE) DrawText x, y, i if selectedPiece == i SetAlpha 0.3 connectedId = Piece(i, $CONNECTED_PIECE) tx = Piece(connectedId , $TARGET_X) ty = Piece(connectedId , $TARGET_Y) SetColor Piece(i, $R), Piece(i, $G), Piece(i, $B) DrawLine Piece(i, $X), Piece(i, $Y), tx, ty FillRect tx, ty, 16, 16, 1 SetColor 255,255,255 DrawText tx, ty, connectedId SetAlpha 1 endif Next SetRotation 0 Return --v
Wed, 05 Jan 2022, 17:25
therevillsgames	Is there a console or similar with we can send log messages to? Maybe an enhancement
Wed, 05 Jan 2022, 18:18
Jayenkai	DebugMode On, then DebugLog whatever.. just like Blitz If you turn on FPS mode, they'll briefly show up there, otherwise open your browser's Dev Console (F12 or MacGymnastics with the letter i.. I think it's Command + Options + i, but might be wrong...!) DebugLog messages "should" appear in the dev console, once you've turned DebugMode on. I'll check into the $Width thing, but I expect it's confusing itself with other instances of Width.. shouldn't be happening, but.. things still aren't foolproof! -=-=- ''Load, Next List!''
Wed, 05 Jan 2022, 18:26
therevillsgames	Ah cool... just tried DebugMode On... and yep I can see the logs briefly in FPS Mode... but not in the Browser Dev Console (Running Chrome). I can only see this: -=-=-=-=- JSE_3gfp.js:2704 JSE v.3gfp JSE_3gfp.js:1634 Alignment correction : 0:6.5 JSE_3gfp.js:1635 \ Parsed Script in 36ms JSE_3gfp.js:1707 -=-=-=-=- --v It would be nice to have it in a floating window
Wed, 05 Jan 2022, 18:34
Jayenkai	I'll see what I can do. Not sure I can do that easily in a "Works on everything" method. I also haven't tackled dialogue boxes and things, either. I really need to do those. (especially since the "Are you sure" Delete box in the project list is still a ye-olde Javascript dialogue) Incidentally, I've figured out why the Const $Width isn't working. It's finding #Const $W=2, and replacing all $W with 2's, so by the time it reaches $Width, the script now says 2idth.. Fuxake!!! Right, that'll be tomorrow's fixit session. -=-=- ''Load, Next List!''
Wed, 05 Jan 2022, 18:46
therevillsgames	Least you've found it I guess it's a similar issue with the $ROTATE_AROUND_ON. \|update\| -=-=- \|update\| With the debug info, maybe create a DebugMode similar to the FPS Mode, but dont fade it out and scroll it instead.
Wed, 05 Jan 2022, 18:50
Jayenkai	No you're probably right about having a window. That way it'll stay onscreen once you flip back to the code view. -=-=- ''Load, Next List!''
Thu, 06 Jan 2022, 18:02
Jayenkai	Today's Fixings 1. The CONST issue should now be fixed. 2. New Debug Window. Hit the FPS button, and instead of a little bobbity thing across the bottom, there's now a much bigger bobbity thing across the bottom, which also holds the Debug info. Debug scrolls with the latest debug at the top, which sounds counterintuitive, but works well enough. (.. Because no matter what I tried, the browser wouldn't let me scroll that sodding div, so I cheated by making it go the other way around!!) 3. In the project view, the Export icon is now the right way round.. ... !! Be sure to refresh to update things. -=-=- ''Load, Next List!''
Thu, 06 Jan 2022, 21:31
therevillsgames	Cool - I'll have a play later
Fri, 07 Jan 2022, 01:35
Dan	I have 1 request:: Upload confirmation dialog. Something that prevents the uploading of the source code to the server, because it is easy to missclick that button >.< (Edit: It appears to be missing now, anyway !)
Page : 1 2 3 4 5 6 7 8 9 10 11 Prev 12 13 Next 14

Platdude's Minecart Challenge

12 October 2021