Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|732\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Music -> ALChoons : Turbulent
Page : 1 2 Next Prev
Wed, 04 Jan 2023, 07:24
Jayenkai	ALChoons 2023 View on YouTube Couldn't think of how to animate this one, so swirly goop it is! > Reveal 🔎 // Turbulent Airways // by Jayenkai // Created 2023/1/4 Symbol 0,"23_0_0_0_0_0_0_0_0_00P/0_0_0?P,0?P_P.0_0PP0,P_P0/P0@PP0P.0P0P/0!P0@P?00P0PP0P@0,P0@PP0P00P_P,00P00P0/PP0P0P_P?0,P0P0!P0PP0P?0P,0P@0PP0?P00P!0,P_P,0PP0.PP00P0P.00P_P.0PP0.P00P?0P0P0P_P/0,P00P?0P,0P_PP0PP0P0,P00P.00PP0P_P,0PP0P0,PP0P.00PP0PP0P.0P/0P0?P0P,00P_P.0PP0,P0!P.00P_P/0,P0/PP0P0P_P/0,P0/P_P_P,0,P0@PP0P?0P@00P0,P0@P,0P_P0?P0,PP0@P?0P0P?0.PP00PP0_0P_P,0.P0,P0_0,P/0P0!P?0_0.P00P0.P0,P.0_0_0P0?P!0_0_0,P@0_0_0_P"; Symbol 1,"23_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/P_P?0_0!P.00P,0/P0_0,P_P/00PP0_00P0P,0P0P!0,P0P0_00PP0PP0P!00PP0,PP0_00P00P0P/0,PP00P0_00P0,P/00P00P0P0P0_00P?0,P,00P00P?0_0P,0PP0,PP0,P00P00PP0_0P!00P0P0P_P0_0P,00P00P?0P,0PP0P!0?P,00P/00P0P0P?00P0!P,00P_P?0,P00P0!P,00P0P/0P.0,PP0P0!P0P00PP0P_P,00P00P0!P0P_0P0P?00PP00P0!PP0P0P!0P/0PP0,P0@P.00PP0PP00P!0.P0_0P?0P!0PP0P0.P0_00P!0,P/0.P0_0,P.0,P!0P0_0_P_PP0,P00PP0_0.P_P0?P,0_0!P.00P0_0_0_P?0_0_0_00P"; Symbol 2,"23_0_0_0_0_0_0_0_0_0P_P0_0_0,PP0_P0_0_0PP0_0P0_0_0_0.P!0_0_0?P!00P0_0_0.PP00P,0,P0_0?P.00PP00PP0P,00P0_00P_P0,P!0P0_P?0.P0P0?PP0P0PP0/PP0PP0.PP0!P,0P0P0/PP00P0?P0/P0P0P0P0/P0,P00P_PP0P!0/P0,P.00P0?PP0P0P?0!P0.PP0,P0?P/0,P0?P0,P,0,P,00P@00PP0?P00PP0P0.P_0P0,P0/P,0,P0,P@00P0,P0@P!00P.0P,0P,0,PP0/P0.P?0,P!0,P0_P0?P_P,0P00P0_P0?P00P0.P,0,P,0_P0.PP0/PP00P,0_00P0.P0@PP00PP0P0_0PP0,P0@P0!P0_0,P00P0/P,0?P0_0,PP0P0?PP0.P0P0P0_0.P0P0.PP0P,0_0_00P_0_0_0!P?0_0_0_P"; Symbol 3,"23_0_0_0_0_0_0_0_0_00P.0_0_0_P0P?0_0_0!P0PP0P,0,P!0_0?PP0P0,PP00PP0P00P0_0?P0PP0.P.00P!0_00P00P0?PP00PP0,P0P0_0PP0PP0?PP0PP0.P,0_0P00P0?P.0?P?0@P!0,P0P?0P.0P0P0/PP00P0P0P0PP0P?00P0P0P0!PP00P00P_P!0P0P0?P,00P0,P_P00P.0P0?P0P0P0.P_PP0P,0PP0?P0P0P0,P?00PP0P?0PP0?PP0P,0,P.00P,0P0P,0P0!P00PP0.P.0P,0P@0!P00PP0,P!0P@0PP0!P0,PP0P_P_P0!P0,P0P_P.0P?0/P0,P0P_PP0,PP00P0@P00P!0P.0,P.00P0@P.0P00P00P/0P0P,0_0.P00P00P0!P.0_0!P00P.0!P,0_0@P,0PP0P/0_0_0?P!"; Symbol 4,"23_0_0_0_0_0_0_0_0_0_0_0_0/P.0_0_0_PP0,P/0_0_0P0.P0PP0.P0_0@PP0,PP0PP0.PP0_0/P00P/0.P,0_0?P/0P,0?P,0_0.P,00P00P.0.P0P0_0,P,0,P?0P0?P,0_00P,0P/0P0?PP0_0,P.0P0P!00P00P0P0_00P.0P0P_P0P0P0_0P,0P0P?0,P,0PP00P0_PP0,P?0.PP0P0.P0_PP0,P?0,P!0,P0_P0.P0P,0,P,00P00PP0_P0.P0P_P@0@PP0,P0P/00P_0/PP0,PP00P.0P!0_0,P_P!0P,0_0.P0P,00P?0.P?0_00P0@P0P0,P,00P0_00P0/P0,P!0_0!P0,P.0.P0_0_00P0PP0_0_0_00PP"; Symbol 5,"2__f0_0_0_0_0_0_0_0_Y0_0_X0_0,Y0@f0_X0_0.Y0_0_X0_0,Y0_0_X0_0_0X0_0/X0,f0_0X0!f0_X0_0!X0_0/X0_0?X0_0/X0_0_0_0_0_0_0_0_0_00Y0_0_0.f0@Y0_0_0_0?Y0_0_0_0.Y0_0_0_0_0f00f0_0_0_0_0/X0_0_0_0.X0_0_0_0?X0_0_0.Y0@X0_00X0_0Y0_0_00X0_00Y0_0!f0.X0_0Y0.f0_0!X0_0_0_0_0_0_0_0!X0_0_0_0.X0_0_Y0_0.X0_0@Y0@f0.X0_0_Y0_0_0_0.Y"; Graphics 1280,720,2 AltiAlias True lit=0 ilit=0 Repeat CLS ilit0.8,20+ilit0.6,40+ilit0.4 ilit=SmoothTo(ilit,lit,8) lit=lit-1 if lit<0 then lit=0 SeedRnd() if Rnd(0,100)<2 then lit=lit+Rnd(60,100) if lit>100 then lit=100 SetBlend "Light" SeedRnd 37171 for m=0 to 200 if m==150 then SetBlend "Difference" SetSize Rnd(12,18),Rnd(12,18) SetRot Rnd(360)+(Mills()Rnd(-0.01,0.01)) SetAlpha Rnd(0.1,0.3) dx=((Rnd(2400)+(Mills()Rnd(0.02,0.05))) mod 2400)-600 dy=Rnd(jscrh) DrawImg dx,dy,Rand(0,4) next SetBlend "Normal" SeedRnd 37172 SetRot 0 for m=0 to 100 SetSize Rnd(4,8),Rnd(4,12) SetAlpha Rnd(0.3,0.6) dx=((Rnd(2400)+(Mills()Rnd(0.04,0.5))) mod 2400)-600 dy=((Rnd(2400)+(Mills()*Rnd(0.8,2.5))) mod 1600)-600 DrawImg dx,dy,5 next Flip Forever --v \|update\| Damnit.. One of the lines of the lyrics has vanished.. When did that happen!?! Fuxake.. I'm not fixing that!! \|update\| \|update\| 2 : Nope. It's there.. must've been covered up by the YouTube title bar or something. Grrr!! \|update\| -=-=- ''Load, Next List!''
Wed, 04 Jan 2023, 07:34
rockford	I like that
Wed, 11 Jan 2023, 07:57
Jayenkai	View on YouTube No animation again. Space and starfields and stuff.. -=-=- ''Load, Next List!''
Tue, 17 Jan 2023, 18:28
Jayenkai	View on YouTube Trying to lip-sync this was absolutely bloody nightmare. And the result is absolutely bloody awful. Rawr!!! > Reveal 🔎 // Chocolate Chips // by AL O'Dare // Created 2023/1/17 // GotoJSE.com/5M7PVtGj.BAS Symbol 0,"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.;;S_S!;;0_0.;;S_S!;;0_0.;;S.PS?PS.;;0_0.;;S,P,S,P,S,;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;;S.PPS,PPS.;;0_0.;;S.P/S.;;0_0.;;S?P?S?;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;_;_;0_0?;_;@0_0_0.;,0_0_0_0;?"; Symbol 1,"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.;;S_S!;;0_0.;;S_S!;;0_0.;;S.PS?PS.;;0_0.;;S,PSPS,PSPS,;;0_0.;;S.PS?PS.;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;;S?P?S?;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;_;_;0_0?;_;@0_0_0.;,0_0_0_0;?"; Symbol 2,"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.;;S_S!;;0_0.;;S_S!;;0_0.;;S.PS?PS.;;0_0.;;S,PSPS,PSPS,;;0_0.;;S.PS?PS.;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;;S!P,S!;;0_0.;;S!P,S!;;0_0.;;S!P,S!;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;_;_;0_0?;_;@0_0_0.;,0_0_0_0;?"; Symbol 3,"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.;;S_S!;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;;S.PS?PS.;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;;S/PS/;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;;S_S!;;0_0.;_;_;0_0?;_;@0_0_0.;,0_0_0_0;?"; Symbol 4,"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,P,0_;;0_0.;;P0_0P0,;;0_0.;;0.P0?P0.;;0_0.;;0_0!;;0_0.;;0_00P0,;;0_0.;;0_00P.;;0_0.;;0,P0_00;;0_0.;;0,P0,P0,P,0;;0_0.;;0_0!;;0_0.;;0?P,0/;;0_0.;;0_0!;;0_0.;_;_;0_0?;_;@0_0_0.;,0_0_0_0;?"; Symbol 5,"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,P00;;0_0.;;P0/P0,P00;;0_0.;;0_0!;;0_0.;;0.P0?P0.;;0_0.;;0_0!;;0_0.;;0!PP0/;;0_0.;;00P?0?PP0;;0_0.;;0_0!;;0_0.;;0/P0/;;0_0.;;0_0.PP;;0_0.;;00P0,P0!PP;;0_0.;;0!P0@;;0_0.;_;_;0_0?;_;@0_0_0.;,0_0_0_0;?"; Symbol 6,"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.;;0PP0_0,;;0_0.;;0PP0P0_0;;0_0.;;0.P0?P0,P;;0_0.;;0_00P0,;;0_0.;;0P,0_00;;0_0.;;0!P.0P0,;;0_0.;;0_0!;;0_0.;;0/P0.P00;;0_0.;;00P/0!;;0_0.;;0_0!;;0_0.;;0_0!;;0_0.;_;_;0_0?;_;@0_0_0.;,0_0_0_0;?"; Symbol 7,"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.;;0PP0.PP0,PP0;;0_0.;;0_0!;;0_0.;;00P0P0?P0.;;0_0.;;0!P.0?;;0_0.;;0_0!;;0_0.;;0_0!;;0_0.;;P.0P!0.;;0_0.;;P.0,P0/;;0_0.;;0_0!;;0_0.;;0_00P,0;;0_0.;;0,P0.P0!;;0_0.;_;_;0_0?;_;@0_0_0.;,0_0_0_0;?"; Symbol 8,"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.;;0P.0_0;;0_0.;;0.P0?P0.;;0_0.;;0_0!;;0_0.;;0_0P0.;;0_0.;;0.P.00P0.;;0_0.;;0.P.00P00P0;;0_0.;;0PP0.P0?P0;;0_0.;;0PP0_0P0;;0_0.;;0_0!;;0_0.;;0/PP0!;;0_0.;_;_;0_0?;_;@0_0_0.;,0_0_0_0;?"; Symbol 9,"0__R_R_R_R_R_R_R_R"; // Up for smile // Down for sing // Space for glitch Graphics 640,360,3 AntiAlias Off img=3 i1=jRand(4,8);i2=jRand(4,8) gl=0 Dim fall(100,3) for m=0 to 100 fall(m,1)=Rnd(0,jscrw) fall(m,2)=Rnd(-16,jscrh+16) fall(m,3)=Rand(4,12) next Repeat CLS 0,40,0,Rnd(0.1,0.4);ResetDraw Starfield 0,3,9 ResetDraw Txt$="LeTterS faLLing EndLessLy Down tHE ScreEN, wRAppINg ArOUnd over aND Over aGAIn unTIl you'RE SicK Of The sIGht of tHE FLamiNG tHIngS" for m=0 to 100 SetCol 0,((m%4)+1)50,0 fall(m,2)=fall(m,2)+fall(m,3) if fall(m,2)>jscrh+16 fall(m,1)=Rnd(0,jscrw) fall(m,2)=Rnd(-24,-8) endif SetRot m90 x=1:y=1 if m%5<2 then x=-1 if m%7>4 then y=-1 SetSize x,y Text fall(m,1),fall(m,2),Mid$(Txt$,m % Len(Txt$),1),1 next ResetDraw SetSize 12 DrawImg jscrw/2,jscrh/2,img if gl==1 SetAlpha Rnd(0.2,0.5) DrawImg jscrw/2,jscrh/2,i1 SetAlpha Rnd(0.5,0.8) DrawImg jscrw/2,jscrh/2,i2 endif if Rnd(0,10)<3 then i1=Rand(4,8) if Rnd(0,10)<3 then i2=Rand(4,8) if gl==1 then SetAlpha 0.1;DrawImg jscrw/2+Rand(-64,64),jscrh/2,img img=1:if gl==1 then img=3 if GamePad(ButtonUp) then img=0 if GamePad(ButtonDown) then img=2 if KeyHit() and keydown(32) then gl=1-gl if gl==1 then ScreenEffect "Glitch+Noise+Scanlines+VSync" if gl==0 then ScreenEffect "None" Flip Forever --v -=-=- ''Load, Next List!''
Wed, 25 Jan 2023, 17:11
Jayenkai	View on YouTube Gawd, what a pain in the arse this one was to make.. Twice.. Dancing singers removed for sanity. -=-=- ''Load, Next List!''
Wed, 01 Feb 2023, 13:37
Jayenkai	View on YouTube No time, this week. Rapidly splodged together Choon. Hastily made video. No time, this week... -=-=- ''Load, Next List!''
Tue, 07 Feb 2023, 19:19
Pakz	github.com/samim23/polymath I just noticed this repo above. It should turn any song into a sample collection. Useful if you lost the original file.
Wed, 08 Feb 2023, 02:36
Jayenkai	No need for that. I've got decades worth of backups for all the ALChoons! -=-=- ''Load, Next List!''
Wed, 08 Feb 2023, 13:28
Jayenkai	View on YouTube Wasn't in the mood to make anything any fancier than this video, today. It'll do!! > Reveal 🔎 // Fantasy Dragon // by AL O'Dare // Created 2023/2/8 // GotoJSE.com/Zmhm2GWV.BAS Symbol 0,"0__0_00220_0,201102002011020_0,22"; Symbol 1,"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_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?Q_Q,0@Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_Q_"; Symbol 2,"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_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,R@0_0_0?R_R?0_0,R_R_R?0!R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R_R@"; Symbol 3,"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.40_0_0_40,440_0_0@440,40_0_0_44;;4;;0_0_0/44;w4;w0_0_0/44;w4;w0_0_0!4,;;4;;040404040_400404_4?04,0,400404_44w4@004_4_4.w.0/4_4@04@0_0,4@0040_0_0!40!40_0_0?40!4"; Symbol 4,"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.40_0_0_40,440_0_0@440,40_0_0_44;;4;;0_0_0/44;w4;w0_0_0/44;w4;w0!4040_0!4,;;4;;0404004,0_00404_4?00440_404@w4@0,4,0400404_4,w.0@4_4/04@0@4_4?0_0_0.4!0.40_0_0!40!40_0_0?40!4"; Symbol 5,"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.40_0_0_40,440_0_0@440,40_0_0_44;;4;;0_0_0/44;w4;w0_0_0/44;w4;w0/40_0/4,;;4;;04040,4,0_0,4_4?0,440_0404!w4@0,4,0,4004004_w.0/4_4@04@0@4_4!0_0_4_40,40_0_0,4.0?40_0_0!40_0_0_0,4"; Symbol 6,"2__0_0_0_0_0_0_0_0/4.0?550_0_00446,4.66550_0_46_6,50_0_06!4.6650_0_00664,6!550_0_00446_50_0_0046!446650_0_0.664.66550_0_0?446?50_0_0!46!50_0_0@6,4550_0_0@4,650_0_0_06,50_0_0_06650_0_0_006650_0_0_0,65"; Symbol 7,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_440_0_0_04466450_0_0.4,6!50_0_004,6/550_0_0446,4?650_0_0446,446?50_0_0?446?550_0_0/664,50_0_0@4,6650_0_0_06650_0_0_004450_0_0_0,65"; Symbol 8,"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.4@0_0_0.4?6,450_0_004,6?46550_0_04406446446650_0_0?440406655"; Graphics 1024,512,2 px=100 py=jscrh0.5 psx=0 psy=0 pgy=0 pgx=0 prot=0 nclouds=30 Dim cloud(nclouds,5) for m=0 to nclouds cloud(m,1)=Rnd(0,1600) cloud(m,2)=Rnd(0,jscrh0.8) cloud(m,3)=Rnd(3,5) cloud(m,4)=Rnd(-64,64) cloud(m,6)=Rnd(-64,64) cloud(m,8)=Rnd(-64,64) cloud(m,5)=Rnd(-32,32) cloud(m,7)=Rnd(-32,32) cloud(m,9)=Rnd(-32,32) next SetBuffer BG CLS;ResetDraw for y=0 to 16 dy=Rand(0,1024) InkRot y72,0.7,1 SetAlpha 0.01 loop=(360/1024)Rand(1,4) high=Rand(16,32) size=Rand(32,128) off=Rand(0,1024) for x=-2048 to 2048 step 2 sy=dy+Sin(xloop)high Oval x+off,sy,size,size,32 Oval x+off,sy+1024,size,size,32 Oval x+off,sy-1024,size,size,32 next next ResetDraw;ResetDraw SetBuffer FG scrx=0 scry1=0 scry2=0 scry3=0 scry=0 Repeat CLS;ResetDraw AA On scrx=scrx+4 scry=scry+(Sin(Mills()/30)2)-(Cos(Mills()/50)4) scry1=scry0.3+(Sin(Mills()/50)21)-(Cos(Mills()/30)16) scry2=scry0.6+(Sin(Mills()/70)22)-(Cos(Mills()/40)15)+320 scry3=scry0.9+(Sin(Mills()/30)23)-(Cos(Mills()/20)14)+640 SetSize 0.25 Starfield 0-2,0,0,1 ResetDraw SetBlend "Screen" WrapBG 0-scrx0.2,0-scry10.3 SetSize 4,0-1 SetBlend "Soft" WrapBG 0-scrx0.5,300-scry20.26 SetBlend "Light" SetSize 2,1 WrapBG 0-scrx0.9,780-scry30.23 ResetDraw AA Off SetSize 8 for n=0 to 7 x=(n31.58)-scrx0.8 x=x%2016 if x<-512 then x=x+2016 DrawImg x,jscrh-(816),2 next for n=0 to 7 x=(n31.58)-scrx x=x%2016 if x<-512 then x=x+2016 DrawImg x,jscrh-(816),1 next px=px+pgx0.3:py=py+pgy0.3 pgx=SmoothTo(pgx,psx,32) pgy=SmoothTo(pgy,psy,32) if px<100 then psx=psx+0.5 if px>jscrw-100 then psx=psx-0.5 if py<64 then psy=psy+0.5 if py>jscrh-128 then psy=psy-0.5 if Rnd(0,100)<8 then psx=psx+Rnd(-2,2) if Rnd(0,100)<8 then psy=psy+Rnd(-2,2) if psx<-4 then psx=-4 if psx>4 then psx=4 if psy<-4 then psy=-4 if psy>4 then psy=4 ResetDraw SetSize 3 SetRot pgy6 e=Floor(Sin(Mills()0.3)+0.5) if e<-1 then e=-1 if e>1 then e=1 DrawImg px,py,4+e e=Floor(Sin(Mills()0.75)+0.5) if e<-1 then e=-1 if e>1 then e=1 DrawImg px,py,7+e ResetDraw SetAlpha 0.15 for m=0 to nclouds cloud(m,1)=cloud(m,1)-cloud(m,3) if cloud(m,1)<-256 cloud(m,1)=jscrw+256:cloud(m,2)=Rnd(0,jscrh0.8) cloud(m,4)=Rnd(-64,64) cloud(m,6)=Rnd(-64,64) cloud(m,8)=Rnd(-64,64) cloud(m,5)=Rnd(-32,32) cloud(m,7)=Rnd(-32,32) cloud(m,9)=Rnd(-32,32) endif Light cloud(m,1),cloud(m,2),256,0.5 Light cloud(m,1)+cloud(m,4),cloud(m,2)+cloud(m,5),256,0.5 Light cloud(m,1)+cloud(m,6),cloud(m,2)+cloud(m,7),256,0.5 Light cloud(m,1)+cloud(m,8),cloud(m,2)+cloud(m,9),256,0.5 next Flip Forever --v -=-=- ''Load, Next List!''
Wed, 15 Feb 2023, 02:42
Jayenkai	View on YouTube Nice new visual doohickey added to the VidGen! -=-=- ''Load, Next List!''
Wed, 15 Feb 2023, 02:56
AndyH	What do you use to make these videos? Like the cake video? They are all so varied. Love em btw. -=-=- Andy H 8-bit games at www.hewco.uk Cartoons at awful.ovine.net Ovine at ovine.net
Wed, 15 Feb 2023, 03:01
Jayenkai	Depends on what I'm in the mood for, really!! Some of them are GotoJSE generated (and I usually remember to add the code when I do that) Sometimes I draw little pictures (eg the cake one) where I use Procreate on the iPad, draw a couple of images then stitch them together afterwards. This week's was done using VidGen, where I frequently forget that my original plan was to keep adding tons of visualisers to that.. Hmm.. Occasionally, I give up completely, and just throw together some of Apple Motion's own visual guff.. Apple Motion is what I use to pop all the pieces together, and add the onscreen lyrics. If you click through to the youtube page (assuming I remembered to do it), it'll list all the tools I used for that track. -=-=- ''Load, Next List!''
Wed, 15 Feb 2023, 06:20
AndyH	ah - I'll check YouTube out direct. I had been watching them in the thread here directly. I like the cake one. I have used a cartoon anim app on windows before, name escapes me now as they keep changing the name and licensing for it, and wondered what you were using. -=-=- Andy H 8-bit games at www.hewco.uk Cartoons at awful.ovine.net Ovine at ovine.net
Wed, 15 Feb 2023, 08:03
Jayenkai	I've never really got along with animation tools, to be honest. It might be nice for me to try, one day, but.. ... old dog new tricks, etc.. -=-=- ''Load, Next List!''
Wed, 22 Feb 2023, 08:18
Jayenkai	View on YouTube Lazy man's video, this week. Really should've animated something. Spent too much time farting about with AI Art. Why can't the AI Art make my music videos!?!? If anyone wants to make the wonderful animation that I have in my head, involving all the little woodland creatures, and the little hedgehog's lovely house, and the cameo by Cool Spot, then go ahead!! -=-=- ''Load, Next List!''
Wed, 01 Mar 2023, 13:28
Jayenkai	View on YouTube What do you do when you've spent FAR too long farting about with Stable Diffusion all week, and desperately need to cobble together an ALChoon at the very last minute..!?! Hmmm.. -=-=- ''Load, Next List!''
Wed, 08 Mar 2023, 05:18
Jayenkai	View on YouTube Joyous! > Reveal 🔎 // Turbulent Jubilation // by AL O'Dare // Created 2023/3/8 https://GotoJSE.com/LddXCRTG.BAS Symbol 0,"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,;"; Symbol 1,"2__QQRRQQRRQQRRQQRRQQRRQQRRQQRRQQRRQQRRQQRRQQRRQQRRQQRRQQRRQQRRQQRRQQRQ,RQ,RQ,RQ,E.RQ,RQ,RQEERQ,RQ,RE/D.E,QRQ,RQDDEEQE!D_D?E/D.ED_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D_D."; Symbol 2,"0__00E,0?ECC0?ECC0!C0C0.X,0.C0X0/ee0?e0e"; Symbol 3,"0__00E,0?ECC0?ECC0.C0C0!X,0!X0C0?e0!e0e"; Symbol 4,"0__00E,0?ECC0?ECC0.C0C0C0.X,0!X0!e,"; Symbol 5,"0__00E,0?ECC0?ECC0!C0?CX,C0?X0!ee0/e"; Symbol 6,"2__0_0_0_0_0_0_0_0_0/3_30_0_0,3?03/0_0!3_3!5330_0?30330335.3/0_0,B_BB353/0_00BB033003_3?0_0B3003003303.0.3?0@3B0033003@003?0_3B00303.030,B,303,0_35,3?03/B33BB330@3055303!0,335B3,B0_355B033503,0,3,53,530@355B030503_53.50@3,B.53_353.50@3,BB33503_3.550/3@5BB3/B303350/3303?03,B3.5330BB30B0!3003_BB3!BB3300B0?3_3,0B3!BB33B,0_3?003!050330B,0_3553303?0303.B,0_B3035,3!033003BB0_00B.30350303.033BB330_030,330,303/B0_0,30?3003.003.0_0.3003/03.0_0@3.0,3!0_0_0_0.3"; Symbol 7,"2__0_0_0_0_0_0_0_0_0_0_0_0_0Q@0_0_0,Q_Q.0_0_Q_Q!0_0/Q_Q/0_0!Q_Q_0_0?Q_Q_Q0_0.Q_Q_Q0_0.Q_Q_QQ0_00Q_Q_Q,0_00Q_Q_Q,0_0Q_Q_Q?0_Q_Q_Q?0_Q_Q_Q.0_0Q_Q_Q.0_0Q_Q_Q,0_0,Q@C,Q_0_0,Q@C.Q/0_0!Q!C.Q?0_0_0!C,0_0_0_00C,0_0_0_00C,0_0_0_00CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC"; Symbol 8,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0@Q_0_0_0,Q_Q?0_0@Q_Q/0_0/Q_Q/0_0!Q_Q_0_0.Q_Q_QQ0_0,Q_Q_Q,0_00Q_Q_Q,0_00Q_Q_Q,0_0Q_Q_Q.0_0Q_Q_Q.0_0Q_Q_Q.0_00Q_QCCQ@0_0.Q_CCQ@0_0?Q@CCQ/0_0!Q@CCQ/0_0/Q/CCQ?0_0_0Q!CCQ,0_0_0?Q.CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,C,0_0_0_00C,0_0_0_00C,"; Symbol 9,"2__0_0_0_0_0_0_0_0_0_0_0_0_QQ0_0_0_00Q/0_0_0?Q_QQ0_0_00Q_Q.0_0_Q_Q/0_0!Q_Q@0_0!Q_Q_0_0?Q_Q_0_0?Q_Q_0_0?Q_Q_0_0?Q_Q_0_0?Q_Q_0_0?Q?CQQCCQ@0_0?Q?C?Q@0_0?Q!C.Q@0_0!Q!C.Q/0_0!Q@CCQ/0_0@Q!CCQ!0_0_0Q,C,Q?0_0_0!C,0_0_0_00C,0_0_0_00C,0_0_0_00C,0_0_0_00C,0_0_0_00C,0_0_0_00C,0_0_0_00C.0_0_0_0C.0_0_0@C/"; Symbol 12,"0__00J,0!990!990!9090.i,0.90i0/XX0?X0X"; Symbol 13,"0__00J,0!990!990.9090!i,0!i090?X0!X0X"; Symbol 14,"0__00J,0!990!990.909090.i,0!i0!X,"; Symbol 15,"0__00J,0!990!990!90?9i,90?i0!XX0/X"; Symbol 22,"0__0,dd0?dAA0?dAA0?dA0A0.5,0.A050/330?303"; Symbol 23,"0__0,dd0?dAA0?dAA0.AdA0!5,0!50A0?30!303"; Symbol 24,"0__0,dd0?dAA0?dAA0.AdA0A0.5,0!50!3,"; Symbol 25,"0__0,dd0?dAA0?dAA0?dA0?A5,A0?50!330/3"; Graphics 1920/3,1080/3,2 asx=0-jscrw:asy=0 Dim plr(10,10) Dim tree(25) for m=0 to 25 tree(m)=Rand(-5,2) next for m=0 to 10 plr(m,0)=Rand(0,3) plr(m,1)=Rnd(0,jscrw) plr(m,2)=plr(m,1) plr(m,3)=((m%3)10)+2 plr(m,4)=Rnd(0.5,3) plr(m,6)=0 plr(m,7)=0 next Repeat CLS:ResetDraw() SetSize 0.5:Starfield 0-4,0 AntiAlias Off scrx=scrx+5 if scrx>=63 scrx=scrx-63 for m=0 to 24 tree(m)=tree(m+1) next tree(25)=Rand(-5,2) endif SetSize 2 for x=0 to 16 dx=(x63)-scrx f=Sin(dx0.3)32 DrawImg dx,jscrh-f,1 if tree(x)>-1 then DrawImg dx,(jscrh-f)-64,7+tree(x) next beat=beat-1 if beat<0 then beat=32 for m=0 to 4 SetSize 2Abs(Cos(plr(m,7)90)),2 SetRot plr(m,6) if plr(m,7)>0 plr(m,7)=plr(m,7)+0.1 if plr(m,7)>=2 then plr(m,7)=0 endif if plr(m,6)>0 then plr(m,6)=plr(m,6)+6 if plr(m,6)>=360 then plr(m,6)=0 if plr(m,6)<0 then plr(m,6)=plr(m,6)-6 if plr(m,6)<=0-360 then plr(m,6)=0 if beat==m2 plr(m,0)=Rand(0,3) if Rnd(0,10)<2 then plr(m,7)=0.1 if Rnd(0,10)<2 and plr(m,6)==0 then plr(m,6)=6 if Rnd(0,10)<2 and plr(m,6)==0 then plr(m,6)=-6 if Rnd(0,10)<4 then plr(m,2)=Rnd(0,jscrw) endif plr(m,1)=plr(m,1)-Limit(plr(m,1)-plr(m,2),0-plr(m,4),plr(m,4)) dx=plr(m,1) f=(Sin(dx0.3)32)+64+Abs(Sin(Mills()0.2+(m36))32) DrawImg dx,jscrh-f,plr(m,3)+plr(m,0),Floor(m/3)7 next if MouseHit() then asx=jscrw+64:asy=-32 asx=asx-2:asy=asy+0.7 ResetDraw() SetRot Mills()0.7 DrawImg asx,asy,6 SetParticleSize 12 ThrowParticle asx+Rnd(-12,12),asy+Rnd(-12,12),1,Rnd(59,61),Rnd(0.5,1),6,0 Flip Forever --v -=-=- ''Load, Next List!''
Wed, 15 Mar 2023, 16:22
Jayenkai	View on YouTube After spending about 730 hours on JMTrackr this week, doing an ALChoon was far down deep at the bottom of the list of things I could be arsed to do. Never the less, here's one of those, and incredibly bland video to go with it. -=-=- ''Load, Next List!''
Wed, 22 Mar 2023, 12:46
Jayenkai	View on YouTube Done fairly quickly, but I think it turned out ok. Right? ..Maybe.. I am SO disorganised, right now!!!! > Reveal 🔎 // Turbulent Landscape // by AL O'Dare // Created 2023/3/21 // GotoJSE.com/LfqlLZPm.BAS Symbol 0,"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@r/0_0_0/r11r11r0_0_0/r15r15r0_0_0/r/0_0_0/r/0_0_0_s,0_0_0_00s,0_0_0_r/0_0_0/rsrsrsr0_0_0/rsrsrsr0_0_0/rsrsrsr0_0_0/r/0_0_0@r0,r0_0_0_0r0,r0_0_0_r0,r0_0_0_r0,r"; Symbol 1,"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.r/0_0_0/r11r11r0_0_0/r15r15r0_0_0/r/0_0_0/r/0_0_0_s,0_0_0_r/0_0_0/rsrsrsr0_0_0/rsrsrsr0_0_0/rsrsrsr0_0_0/r/0_0_0@r0,r0_0_0_0r0,r0_0_0_r0,r0_0_0_r0,r"; Symbol 2,"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@r/0_0_0/r11r11r0_0_0/r15r15r0_0_0/r/0_0_0/r/0_0_0_s,0_0_0_00s,0_0_0_r/0_0_0/rsrsrsr0_0_0/rsrsrsr0_0_0/rsrsrsr0_0_0/r/0_0_0@r0,r0_0_0_r0,r0_0_0_r0,r0_0_0_r0,r"; Symbol 3,"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.r/0_0_0/r11r11r0_0_0/r15r15r0_0_0/r/0_0_0/r/0_0_0_s,0_0_0_r/0_0_0/rsrsrsr0_0_0/rsrsrsr0_0_0/rsrsrsr0_0_0/r/0_0_0@r0,r0_0_0_r0,r0_0_0_r0,r0_0_0_r0,r"; Symbol 4,"2__0_0_0_0_0_0_E0_0_0_0E!0_0_0?E_E0_0_0E_E?0_0@E_E/0_0?E_E!00DD0_0,E_E?0,DDC0_00E_E?0D,C,0_0E_E,00D,C,0D0_E_E.D,C;;0D,0_E_EEDDC,;,DDCC0@E,0E/DC,0;;U;C,0_0DD0E!D0CC;,UU;C00DD0_CDD0E,D0CC;;U.;D.0_00CCD.C,;;U?;D0C,0@DD0CCD00C0;;U!;C,0_0CCD0CC00DD;U/;CD,0_0CCDD0D,C;U/;DDCC0_D0CCD,C,;U!;,C,0_D,0CC0.;U.;,C,DD0_C55DDCC0DD;UU;,C,DD0_0,5,D.CC;.CC0D,0_0,D5.00CCD;;CC0D,0_0?C5.C,DD;CD.0_0/D5.D,0C,D0_0_005.DDC,DD0_0_0,5.00CD,0_0_0?5,CCDD0_0_0_5D"; Symbol 5,"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.y.0_0_0_0By,0_0_0_BWBBy0_0_0_B.0_0_0_00B,0_0_0/;0,Q,0_0_0/;Q!0_0_0_00Q,0_0_0_00Q,0_0_0_00Q,0_0_0_00Q0Q0_0_0_00Q0Q0_0_0_00Q0Q0_0_0_00Q0Q"; Symbol 8,"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_0_0_0!B.0_0.B,0B,0?D,B.0_0,B_D/B,0_0.B,DDB.D.0_0_0B,DDB.0_0_0?B/0_0_0@B."; Symbol 9,"2__0_0_0_0_0_0_0_0_0_0_0_0@Q!0_0_0!Q_Q.0_0_Q_Q!0_0!Q_Q_0_0?Q_Q_Q0_0,Q_Q_QQ0_0,Q_Q_Q,0_00Q_Q_Q,0_00Q_Q_Q,0_00Q_Q_Q,0_00Q_Q_Q,0_00Q_Q_Q,0_00Q_DDQ_0_0,Q_DDQ_0_0.Q@DDQ@0_0!Q/DDQ/0_0@Q!DDQ!0_0_0!DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD"; Symbol 10,"2__0_0_0_0_0_0_0_0_0_0_0_0@R!0_0_0!R_R.0_0_R_R!0_0!R_R_0_0?R_R_R0_0,R_R_RR0_0,R_R_R,0_00R_R_R,0_00R_R_R,0_00R_R_R,0_00R_R_R,0_00R_R_R,0_00R_DDR_0_0,R_DDR_0_0.R@DDR@0_0!R/DDR/0_0@R!DDR!0_0_0!DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD"; Symbol 11,"2__0_0_0_0_0_0_0_0_0_0_0_0@P!0_0_0!P_P.0_0_P_P!0_0!P_P_0_0?P_P_P0_0,P_P_PP0_0,P_P_P,0_00P_P_P,0_00P_P_P,0_00P_P_P,0_00P_P_P,0_00P_P_P,0_00P_DDP_0_0,P_DDP_0_0.P@DDP@0_0!P/DDP/0_0@P!DDP!0_0_0!DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD0_0_0_0,DD"; Symbol 12,"0__0_0_0Q0_0_0/D"; Symbol 13,"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_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_00D_D_EEDD0_DED_D_D.0@D_DEED_D,0_E_E_E."; Symbol 14,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/440_0_0_0,4.0_0_0_4!0_0_0/4@0_0_0?4_40_0_0,4_440_0_004_4?0_0@4_4/0_0/4_4_0_0.4_4_440_0,4_4_40_0,4_4_40_0,4_4_40_0.4_4_40_0,4_4_0_0!4_4@0_0@4_4?0_0_04_4,0_0_0?4@0_0_0/4!0_0_0_4?"; Symbol 15,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.40_0_0_0.4!0_0_0@4_40_0_0.4_40_0?40/4_40_0?4,0?4_40_0?4?004_440_0?4_4_0_0?4_4_0.4!0,4_4_4004@0,4_4_4_40?4_4_4_0?4_4_4_0?4_4_4_0!4_4_4@0!4_4_4@0_4_4_4?0_0,4_4_440_0.4_4_40_0?4@0_0_0!4@0_0_0?4_0_0_0?4_40_0_0.4_40_0_0.4_40_0_0,4_440_0_0,4@"; Symbol 16,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,440_0_0_004,0_0_0_004.0_0_0_4?0_0_0@4/0_0_0/4/0_0_0!4@0@4,0_0,4@0/4?0_0,4@0!4!0_004@0/4/0_04@0!4_0_04/0!4_0_004?0@4_40_04.0@4_0_0.440_4!0_0_0_4.0_0_0_04,"; Symbol 17,"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.40_0_0_0,4,0_0_0_0044B40_0_0_044B40_0_0_B44B40_0_0_4,B40_0_0_4B,40_0_0_4B,4,0_0_0/4BIBB440_0_0/4BIBIB40_0_0/B?040_0_0/I,BB440_0_0/I.BB0_0_0_IIB,0_0_0_II0_0_0_0.I"; Symbol 18,"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,4.0_0_0_04?0_0_0_004B40_0_0_004BB40_0_0_04BB440_0_0_44BB40_0_0_44BB4B40_0_0/44BB4B40_0_0@44B,40_0_0@B?440_0_0/B.I440_0_0!44B.440_0_0!44BIBB440_0_0!4BIIBB440_0_0!44I,BB0_0_0/44I.B0_0_0_IBB"; Symbol 19,"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_0_0_0_0_0_0_0_0_0,I0I0_0_0_00I0I0_0_0_0VIVI0_0_0_0iI,0_0_0_00I,0!I0_0_0!I@0_0_0!I/0_0_0/I/0_0_0/I0?I"; Symbol 20,"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_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!B0B0_0_0_00B0B0_0_0_00B0B0_0_0_00B,0_0_0_03B3B0_0_0_00B,0_0_0_00B,0B,0_0_0@BB0BB0_0_0_BB0BB0_0_0@B?0_0_0_B0B"; Symbol 21,"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_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.P,0_0_0_00cPP0,B?0_0_0,P,0B@0_0_0.PPB_0_0_0,PPBPB?PB0_0_0!P0?P"; Dim critter(50,10) Trigger=-2 Warp=0 Graphics 800,500,2 h1=Rnd(-0.5,0.5) h2=Rnd(-0.5,0.5) h1t=h1 h2t=h2 px=jscrw/2:py=jscrh0.75 pxs=px:pys=py scrx=0 pd=1 wd2=jscrw/2 hg2=jscrh/2 scrx=scrx+1 Cabin=-500 CabinX=jscrw0.7 for t=0 to 50 repeat critter(t,1)=Rnd(-200,jscrw+200) until critter(t,1)<-50 or critter(t,1)>jscrw+50 critter(t,3)=critter(t,1) critter(t,2)=Rnd(-40,40) critter(t,4)=critter(t,2) critter(t,5)=0 critter(t,0)=Rand(19,21) next Repeat scrx=scrx+1 b=255-Warp0.3 if b<30 then b=30 CLS 0,0,b:ResetDraw:AA False if Trigger==1 then Warp=Warp+2 if Trigger==4 then Warp=Warp-6 if Warp>1600 and Trigger==1 then Warp=1600 if Warp<0 then Warp=0 SetCol 30,80,30 Rect 0,jscrh0.5+Warp0.7,jscrw,jscrh SetCol 80,50,30 y=(1600-Warp)3 Rect 0,jscrh0.7+y,jscrw,jscrh if Warp>1400 SeedRnd 7:ResetDraw // Flaming River for t=0 to 100 e=Rnd(-2,2):h=Rnd(-0.2,0.2) f=1:g=2: if (Mills()+t37)%400<200 then f=e:g=h SetSize Rnd(-2,2)+f,Rnd(1,2)+g DrawImg ((Rnd(-32,jscrw+32)+scrxRnd(0.8,1.0))%(jscrw+64))-32,Rnd(jscrh0.9,jscrh)+y,Rand(17,18) next endif if KeyHit(32) Trigger=Trigger+1 endif if Warp<1600 SeedRnd 3:ResetDraw // Trees for t=0 to 100 SetSize Rnd(4,5) x=Rnd(jscrw) y=((t0.003jscrh)+(jscrh0.3))-(Rnd(0.5,1.5)Warp) DrawImg x,y,Rand(9,11) next endif SeedRnd:ResetDraw s=0 if Floor(Mills/700) Mod 2==0 and trigger>-1 and trigger<5 then s=1 if Warp>0 then s=s+2 //if MouseDown() then pxs=MouseX():pys=MouseY() //px=SmoothTo(px,pxs,32):py=SmoothTo(py,pys,32) //if pxs<px-2 then pd=-1 //if pxs>px+2 then pd=1 if Warp>1000 and Warp<3200 y=jscrh0.7+(1400-Warp) if y<jscrh0.8 then y=jscrh0.8 SeedRnd:ResetDraw:SetSize 3 SetFontSize 2 // Critters for t=0 to 50 SetSize 1.5critter(t,6),1.5 SetRot critter(t,5) DrawImg critter(t,1),critter(t,2)+y,critter(t,0) if Rnd(0,100)<1 then critter(t,3)=Rnd(jscrw0.2,jscrw0.8) if Rnd(0,100)<1 then critter(t,4)=Rnd(-50,20) if critter(t,1)<critter(t,3) then critter(t,6)=-1 if critter(t,1)>critter(t,3) then critter(t,6)=1 critter(t,1)=SmoothTo(critter(t,1),critter(t,3),120) critter(t,2)=SmoothTo(critter(t,2),critter(t,4),120) if Rnd(0,100)<20 then critter(t,5)=Rnd(-10,10) next endif // Robot ResetDraw SetSize pd4,4 DrawImg px,py+Warp,13 DrawImg px,py,s SetSize 3 DrawImg px,py,8 if Trigger>-1 and Trigger<5 if Rnd(0,8)<2 then h1t=Rnd(-0.5,0.5) if Rnd(0,40)<2 then h2t=Rnd(-0.5,0.5) endif h1=SmoothTo(h1,h1t,6) h2=SmoothTo(h2,h2t,2) SetCol 255,100,200 Oval px-9,py+12+h18,2,2,16 Oval px+20+h214,py+9,2,2,16 // Vortex if Warp>0 and Warp<1600 SeedRnd 5:ResetDraw:SetAlpha 1 for t=0 to 100 y=jscrh+Rnd(0,600)-WarpRnd(0.7,1) x=Sin((WarpRnd(0.8,1.2))+t7)(jscrh-y) SetSize Rnd(1,3),Rnd(1,3) SetRot Rnd(360)+WarpRnd(0.5,4) DrawImg wd2+x,y,Rand(14,16),Rand(0,7) next endif ResetDraw if Trigger==2 then Cabin=Cabin+32 if Cabin>jscrh0.7 then Cabin=jscrh0.7 if Trigger==3 then CabinX=CabinX+16 if CabinX>jscrw2 then CabinX=jscrw2 ResetDraw:SetSize 12 DrawImg CabinX+128,Cabin-64,4 SetSize 5 DrawImg CabinX-32,Cabin+32,5 Flip Forever --v -=-=- ''Load, Next List!''
Tue, 28 Mar 2023, 17:32
Jayenkai	View on YouTube Nom nom nom! > Reveal 🔎 // Turbulent Muffins // by AL O'Dare // Created 2023/3/28 // GotoJSE.com/8x6vSc28.BAS // Hit the right cursor to say a word. // Hit the left cursor to reset the engine back to the first word, // because you mistimed a word and messed up the video for the umpteenth time. Symbol 0,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_D,0_0_0_0D?0@440_0/DDA.0/4,0_0!D,AADA0!4.0_0?D00DA.004@0_0@DAABB004@0_0_A.00A4004.0_0_A,0,440,4,0_0_bAA0,AA0.440_0_b,00bb0_0_0/b/0_0_0/b?0_0_0_b,0_0_0_00b,0_0_0_00b,0_0_0_00c,0_0_0_00c,0_0_0_00c,0_0_0_00c0c0_0_0_00c0c0_0_0_00c0c0_0_0_00c0c"; Symbol 1,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_D,0_0_0/D00D?0@440_0!D,A.0/4,0_0@DAADA0!4.0_0@DA.004@0_0/D0AABB004@0_0_A.00A4004.0_0_A,0,440,4,0_0_bAA0,AA0.440_0_b,00bb0_0_0/b/0_0_0/b?0_0_0_b,0_0_0_00b,0_0_0_00b,0_0_0_00c,0_0_0_00c,0_0_0_00c,0_0_0_00c0c0_0_0_00c0c0_0_0_0c00c0_0_0_0.c"; Symbol 2,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_D,0_0_0_0D?0@440_0/DDA.0/4,0_0!D,AADA0!4.0_0?D00DA.004@0_0@DAABB004@0_0_A.00A4004.0_0_A,0,440,4,0_0_bAA0,AA0.440_0_b,00bb0_0_0/b/0_0_0/b?0_0_0_b,0_0_0_00b,0_0_0_00b,0_0_0_00c,0_0_0_00c,0_0_0_00c,0_0_0_00c0c0_0_0_00c0c0_0_0_00c0c0_0_0_00c0c"; Symbol 3,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_D,0_0_0/D00D?0@440_0!D,A.0/4,0_0@DAADA0!4.0_0@DA.004@0_0/D0AABB004@0_0_A.00A4004.0_0_A,0,440,4,0_0_bAA0,AA0.440_0_b,00bb0_0_0/b/0_0_0/b?0_0_0_b,0_0_0_00b,0_0_0_00b,0_0_0_00c,0_0_0_00c,0_0_0_00c,0_0_0_00c00c0_0_0_0c00c0_0_0_0c0c0_0_0_00c"; Symbol 4,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.D,0_0_0_0D?0_0_0_DA.0@440_0/DDAADA0/4,0_0!D,A.0!4.0_0?D00DAA44004@0_0@DAA44004@0_0_A.00A4004.0_0_A,0,440,4,0_0_bAA0,AA0.440_0_b,00bb0_0_0/b/0_0_0/b?0_0_0_b,0_0_0_00b,0_0_0_00b,0_0_0_00c,0_0_0_00c,0_0_0_00c,0_0_0_00c0c0_0_0_00c0c0_0_0_00c0c0_0_0_00c0c"; Symbol 5,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.D,0_0_0_0D?0_0_0!D00DA.0@440_0!D,AADA0/4,0_0@DA.0!4.0_0@DAA44004@0_0/D0AA44004@0_0_A.00A4004.0_0_A,0,440,4,0_0_bAA0,AA0.440_0_b,00bb0_0_0/b/0_0_0/b?0_0_0_b,0_0_0_00b,0_0_0_00b,0_0_0_00c,0_0_0_00c,0_0_0_00c,0_0_0_00c0c0_0_0_00c0c0_0_0_0c00c0_0_0_0.c"; Symbol 6,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.D,0_0_0_0D?0_0_0_DA.0@440_0/DDAADA0/4,0_0!D,A.0!4.0_0?D00DAA44004@0_0@DAA44004@0_0_A.00A4004.0_0_A,0,440,4,0_0_bAA0,AA0.440_0_b,00bb0_0_0/b/0_0_0/b?0_0_0_b,0_0_0_00b,0_0_0_00b,0_0_0_00c,0_0_0_00c,0_0_0_00c,0_0_0_00c0c0_0_0_00c0c0_0_0_00c0c0_0_0_00c0c"; Symbol 7,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.D,0_0_0_0D?0_0_0!D00DA.0@440_0!D,AADA0/4,0_0@DA.0!4.0_0@DAA44004@0_0/D0AA44004@0_0_A.00A4004.0_0_A,0,440,4,0_0_bAA0,AA0.440_0_b,00bb0_0_0/b/0_0_0/b?0_0_0_b,0_0_0_00b,0_0_0_00b,0_0_0_00c,0_0_0_00c,0_0_0_00c,0_0_0_00c00c0_0_0_0c00c0_0_0_0c0c0_0_0_00c"; Graphics 800,500,3 w2=ScreenWidth()0.4 w3=ScreenWidth()0.2 h2=ScreenHeight()0.75 h3=ScreenHeight()0.15 Verse1="Muff ins and cup cakes, So man y fla vours, Choco late or cran ber ry, And ev en more to sa vour." Verse2="Muff ins and cup cakes, They're a de light, They're so soft and fluf fy, And they taste just right." Verse3="Muff ins and cup cakes, I love to eat, With frost ings and sprin kles, Or just plain and neat." Chorus="I love to bake muff ins and cup cakes, With fam il y and friends, We make them for spe cial oc cas ions, And en joy eat ing them." Song=Verse1+" "+Chorus+" "+Verse2+" "+Chorus+" "+Verse3+" "+Chorus+" "+Chorus dim Word(200,10) count=0 for m=0 to 200 if SplitText(Song," ",m)!=0 then count=m Word(m,0)=SplitText(Song," ",m) Word(m,2)=-100 next WordAt=0 leg=0 px=jscrw/2 py=jscrh/2 face=1 print count wordat=0 Repeat CLS;ResetDraw;AA Off SetFontSize 24 for m=0 to count if Word(m,2)>-32 Word(m,2)=Word(m,2)-Word(m,4)0.5 Word(m,4)=Word(m,4)+0.1 for dx=-4 to 4 step 2 for dy=-4 to 4 step 2 d=96 SetCol d,d,d Text Word(m,1)+dx,Word(m,2)+dy,Word(m,0),1 next next SetCol 255,255,255,1 Text Word(m,1),Word(m,2),Word(m,0),1 endif next if GamePad(ButtonLeft)>0.5 then WordAt=0 If GamePad(ButtonRight)>0.5 and kdis==0 kdis=1 WordAt=WordAt+1 if WordAt<=count dx=px+(face(32+Len(Word(WordAt,0))12)) if dx<Len(Word(WordAt,0))12 then dx=Len(Word(WordAt,0))12 Word(WordAt,1)=dx:Word(WordAt,2)=py-32:Word(WordAt,4)=1 endif endif if GamePad(ButtonRight)<0.5 then kdis=0 wpx=px wpy=py px=w2+Sin(Mills()0.03)w3 py=h2+Cos(Mills()0.043)h3 if px<wpx then face=-1 if px>wpx then face=1 whop=hop hop=Abs(Sin(Mills()/3.4666666)32) if whop<hop and hc==1 then hc=0:leg=(leg+1)%4 if whop>hop and hc==0 then hc=1:leg=(leg+1)%4 py=py-hop s=leg+kdis4 SetSize 3face,3 DrawImg px,py,s Flip Forever --v -=-=- ''Load, Next List!''
Tue, 04 Apr 2023, 15:22
Jayenkai	View on YouTube More fluffy nebula. .. I really need to stop using that as a lazy video method!! -=-=- ''Load, Next List!''
Wed, 12 Apr 2023, 12:25
Jayenkai	View on YouTube Tried to wrangle Stable Diffusion to draw some nice consistent artwork for this one, but every image was a completely different looking Ogre, from mundane Shrek clones, to whatever the hell this thing is!! > Reveal 🔎 Ended up doing my usual GotoJSE based animation stuff. ( https://GotoJSE.com/8hl6dQ52.BAS ) -=-=- ''Load, Next List!''
Tue, 18 Apr 2023, 07:34
Jayenkai	View on YouTube Last week.. on Mastodon... Wrote a song about an ogre, this week, and now have to try and make a silly little video for it... Gawd, some weeks, I swear.. The music flows, the words come to life, then I have to bloody well draw it all, and I am NOT good at drawing, let alone animating. .. Next week's song's going to be about an inanimate pin that sits in a pin cushion on a shelf in a dark room, and doesn't move, and it sits there, and nothing happens, and it's static and motionless. I was joking, of course, but the idea stuck with me, like a pin stuck in a pincushion.. > Reveal 🔎 // Turbulent Pin // by AL O'Dare // Created 2023/4/17 // GotoJSE.com/5JhqRg4X.BAS Graphics 640,400,2 w2=jscrw0.4 h2=jscrh0.5 Repeat CLS ResetDraw b=1 SeedRnd() m=(Mills()0.01)%360 sunx=jscrw0.5+sin(m)1024 suny=jscrh0.9-Cos(m)jscrh0.6 moonx=jscrw0.5+Sin(m+180)1024 moony=jscrh0.9-Cos(m+180)jscrh0.6 b=0.1 if Cos(m)>-0.2 then b=Abs(Cos(m)+0.3) if Abs(m-190)<20 then b=b+((20-Abs(m-190))/110) if b>1 then b=1 b2=(b-0.2)1.2 if b2>1 then b2=1 if b2<0 then b2=0 SetCol 40b2,180b2,255b2 Rect 0,0,jscrw,jscrh StarField 1,0 SetCol 40b2,180b2,255b2,b Rect 0,0,jscrw,jscrh ResetDraw SetCol 40b2,180b2,80b2 Oval jscrw0.6,jscrh,jscrw,jscrh,128 SetCol 50b2,190b2,90b2 Oval jscrw,jscrh0.97,jscrw,jscrh,128 SetCol 255,255,255,1 SetFontSize 64 Emoji sunx,suny,"1F31E" SetFontSize 60 Emoji moonx,moony,"1F316" ResetDraw // Room SetCol 110b,20b,190b Rect jscrw0.3,0,jscrw,jscrh0.4-90 Rect jscrw0.3,jscrh0.4+90,jscrw,jscrh0.4 Rect 0,0,jscrw0.8-180,jscrh Rect jscrw0.8+100,0,jscrw0.8-100,jscrh SetCol 130b,40b,220b Rect 0,0,jscrw0.3,jscrh // Window SetCol 255b,255b,255b SetThick 16 DrawRect jscrw0.8-40,jscrh0.4,280,180,1 SetThick 4 DrawRect jscrw0.8-140,jscrh0.4,60,180,1 SetThick 4 // Table SetCol 90b,50b,10b for x=jscrw0.3 to jscrw0.6 Line x,jscrh0.7,x-100,jscrh next Line x,jscrh0.7,x,jscrh SeedRnd(37171650) // Cushion for q=0 to 100 r=Rnd(170,200)b SetCol r,rRnd(0.7,1)b,r0.2 Oval w2+Rnd(-64,64),h2+120+Rnd(-32,32),32 next // Pin SetCol 150b,150b,150b Rect w2-3,h2,5,120 SetCol 96b,96b,96b Rect w2-1,h2,5,120 SetCol 128b,128b,128b Rect w2-1,h2,3,120 SetCol 180b,60b,60b Oval w2,h2,32,32,32 SetCol 255,255,255,0.5b Light w2,h2,32 for q=0 to 4 r=Rnd(170,200)b SetCol r,rRnd(0.7,1)b,r0.2 Oval w2+Rnd(-32,32),h2+120+Rnd(-8,8),32 next Flip Forever --v -=-=- ''Load, Next List!''
Wed, 26 Apr 2023, 13:35
Jayenkai	View on YouTube When you can't think of a good word for Q, make one up!! > Reveal 🔎 // Turbulent Q // by Jayenkai // Created 2023/4/26 // GotoJSE.com/mvBpFtBn.BAS Symbol 0,"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_;_;_;;"; Symbol 1,"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_;_;_;."; Symbol 2,"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!;_;_;/"; Symbol 3,"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.33130_0_0_313.0_0_0/3!130_0_0!13/0_0_0!3313.10_0_0/3.13"; Symbol 4,"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.32330_0_0_323.0_0_0/3.23230_0_0!323?20_0_0!23.2330_0_0/3!"; Symbol 5,"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_0_0_0_0.DDCD,0_0_00D_D_CD_DCD_D?CD_D_D.CDD0@D_CD_D"; Symbol 6,"2__0_0@220_0_0_002,0_0_0_002.0_0_0_2?0_0_0_2!0_0_0/2@0_0_0?2@320_0_0,223223,2320_0_0,22323.23320_0_0023.43.430_0_03,43343.430_0_0334433x33434330_0@434,34x434.30_0@334.xx4!30_0/4,x4,xx4,x4430_0!4,x,44xx44x,4430_0.4,x.4x,44x.4x0_0.44x_44x.440_0.x_x,4x?4x0_0,x_x_4x0_00x_x_x,0_00x_x_x,0_0x_x_x?0_x_x_x?0@x_x_x!0/x_x_x@0!x_x_x@0?x_x_x_x0.x_x_x_xx00x_x_x_x,0x_x_x_x_x_x_x_x"; Symbol 10,"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,i0_0_0?;0;0,Vi;0_0_0?;0;00;i;0_0_0?2;?iV0_0_0!I;V;V;;0_0_0/P;V;V;,0_0_0!W;@0_0_0!;i,;,yy0_0_0?;i?;yy0_0.20@;.0_0@PP;_;,0_0@W;_;?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@;00;0_0@;0;0@;"; Symbol 11,"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,i0_0_0?;0;0,Vi;0_0_0?;0;00;i;0_0_0?2;?iV0_0_0!I;V;V;;0_0_0/P;V;V;,0_0_0!W;@0_0_0!;i,;,yy0_0_0?;i?;yy0_0.20@;.0_0@PP;_;,0_0@W;_;?0_0@;_;!0_0@;_;!0_0@;0;0!;!0_0@;00;0/;0,;,0_00;.0,;0!;0!;0_0/;0?;;0@;0_0?;"; 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/2,0_0_0_0I.0_0_0_0P.0_0_0_00W,"; Symbol 13,"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.2,0_0_0_0I.0_0_0_0P.0_0_0_00W,"; Symbol 14,"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_0v,0_0_0_0v,0_0_0?vv0,v?0_0_00AAv_v.0_0_0.v@"; Symbol 15,"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/v,0_0_0,vv0.v.0_0_00AAv_v.0_0_0.v@"; Symbol 16,"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.vv0_0_0_0AAv_v.0_0_0.v@0_0_0@v.0_0_0_0,v,"; Symbol 17,"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.vv0.v.0_0_00AAv_v.0_0_0.v@"; Dim Hill(50,20) Graphics 800,480,2 for m=0 to 50 Hill(m,1)=Rnd(-1024,1300) Hill(m,3)=Rnd(400,600) Hill(m,4)=Rnd(100,350) Hill(m,5)=Rnd(0.5,0.7) Hill(m,6)=Rnd(120,160) Hill(m,7)=Rand(0,7) Hill(m,8)=Rnd(0.9,1.2) Hill(m,9)=Rnd(-70,70) Hill(m,10)=Rand(3,4) Hill(m,11)=Rand(0,7) Hill(m,12)=Rnd(-70,70) Hill(m,13)=Rand(3,4) Hill(m,14)=Rand(0,7) Hill(m,15)=Rnd(-70,70) Hill(m,16)=Rand(3,4) Hill(m,17)=Rand(0,7) Hill(m,20)=Rand(0,2) next spd=0.3 Repeat CLS 40,100,200 ResetDraw SetCol 80,160,255,0.1 AntiAlias False for y=0 to jscrh step 32 Rect 0,y,jscrw,jscrh next ResetDraw() for m=0 to 50 ResetDraw Hill(m,1)=Hill(m,1)-spd((m+5)0.1) if Hill(m,1)<-1024 Hill(m,1)=1300;Hill(m,2)=Rnd(jscrh0.8,jscrh1.2);Hill(m,3)=Rnd(400,600) Hill(m,4)=Rnd(100,350) Hill(m,5)=Rnd(0.5,0.7) Hill(m,7)=Rand(0,7) Hill(m,9)=Rnd(-70,70) Hill(m,10)=Rand(3,4) Hill(m,11)=Rand(0,7) Hill(m,12)=Rnd(-70,70) Hill(m,13)=Rand(3,4) Hill(m,14)=Rand(0,7) Hill(m,15)=Rnd(-70,70) Hill(m,16)=Rand(3,4) Hill(m,17)=Rand(0,7) Hill(m,20)=Rand(0,2) endif SetRot 0 InkRot Hill(m,6),1,Hill(m,5) if m>8 AA Off dx=Hill(m,1) dy=jscrh-Hill(m,4)Hill(m,5)0.25 Oval dx,dy,Hill(m,3),Hill(m,4) h=Hill(m,3);if Hill(m,4)<h then h=Hill(m,4) h=h0.5 SetSize 3 SetRot Hill(m,9) DrawImg dx+Sin(Hill(m,9))h,dy-Cos(Hill(m,9))h,Hill(m,10),Hill(m,11) h=h0.9 SetRot Hill(m,12) DrawImg dx+Sin(Hill(m,12))h,dy-Cos(Hill(m,12))h,Hill(m,13),Hill(m,14) h=h0.9 SetRot Hill(m,15) DrawImg dx+Sin(Hill(m,15))h,dy-Cos(Hill(m,15))h,Hill(m,16),Hill(m,17) AA On SetSize 8;SetAlpha 0.1;SetRot 0 DrawImg dx+Sin(Hill(m,15))h,(dy-Hill(m,4))-Cos(Hill(m,15))h2,Hill(m,20) AA Off endif if m<=8 then AA On SetSize 8.4Hill(m,8),10Hill(m,8) if m%2==0 then SetSize 0-8Hill(m,8),8Hill(m,8) DrawImg Hill(m,1),(jscrh-180)-Hill(m,4)Hill(m,5)0.25,6,Hill(m,7) AA Off endif next SetAlpha 0.6 d=255 for y=jscrh0.8 to jscrh step 3 SetCol d0.3,d,d0.3 Rect 0,y,jscrw,jscrh d=d-3 next ResetDraw for m=50 to 20 step -1 SetSize 12,4 DrawImg Hill(m,1),jscrh0.9+Hill(m,4)0.075,5 next ResetDraw SetSize 2;AA On for m=15 to 50 step 3 s=14+(((Mills()/150)+m) mod 4) x=(Hill(m,1)-(jscrw/2))1.5+(jscrw/2) y=(jscrh0.4)+Sin((Mills()/300)m0.2)64Hill(m,8) DrawImg x,y,s next AA OFf ResetDraw SetAlpha 1 SetSize 4 dy=jscrh0.75-Abs(Sin(Mills()0.12)32) g=0 for x=jscrw0.3 to 0-128 step -3 DrawImg x,jscrh0.75-Abs(Sin(Mills()0.12+g(Cos(Mills()0.1)0.1+0.2))32),12 DrawImg x,jscrh0.75-Abs(Sin(Mills()0.12+g(Cos(Mills()0.08)0.15+0.5))32),13 g=g-5 next s=10 if Mills()%400<200 then s=11 DrawImg jscrw0.3,dy,s Flip Forever --v Top Tip : If you want to speed up the Unicorn in the above code, do it in the code, then re-record the screen capture. Do NOT think to yourself "Maybe I should just tell the Apple Motion video editor to speed up the footage so that it matches." -=-=- ''Load, Next List!''
Thu, 27 Apr 2023, 04:56
Jayenkai	Been rejigging the jukebox. It's .. themed .. I guess.. shrugs You can Turbulent Pin in the Jukebox, here, then click around the albums and the tracks. Things scroll better, now, so they don't haphazardly jump about whilst you're browsing... .. as much..! -=-=- ''Load, Next List!''
Tue, 02 May 2023, 13:24
Jayenkai	View on YouTube The happy little robot > Reveal 🔎 // Turbulent Robot // by AL O'Dare // Created 2023/5/2 // GotoJSE.com/fR9p87VW.BAS Symbol 0,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,O_O,0_0_0O,2.O2.OO0_0_O,2.O2.OO0_0_O,2.O2.OO0_0_0O_O,0_0_0?Q!0_0_0/O@0_0_0?QO@Q0_0_0.QQO/Q0_0_0?QQO?QQ0_0_0?Q,OOQ,0_0_0!OOQNNQOO0_0_0!OON,O,0_0_0!OONNO.0_0_0!O@0_0_0!QQ0.QQ0_0_0!OO0.OO0_0_0!OO0.OO0_0_0!OO0.OO0_0_0!QQ0.QQ0_0_0!QO0.QO0_0_0!OO0.OO0_0_0!OO0.OO0_0_0!OO0.OO0_0_0!xx0.xx0_0_0?xzzx00xzzx0_0_0?xx0.xx"; Symbol 1,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,O_O,0_0_0O,5HH5O5HH5OO0_0_O,5HH5O5HH5OO0_0_O,5HH5O5HH5OO0_0_0O_O,0_0_0?Q!0_0_0/O@0_0_0?QO@Q0_0_0.QQO/Q0_0_0?QQO?QQ0_0_0?Q,OOQ,0_0_0!OOQNNQOO0_0_0!OON,O,0_0_0!OONNO.0_0_0!O@0_0_0!QQ0.QQ0_0_0!OO0.OO0_0_0!OO0.OO0_0_0!OO0.OO0_0_0!QQ0.QQ0_0_0!QO0.QO0_0_0!OO0.OO0_0_0!OO0.OO0_0_0!OO0.OO0_0_0!xx0.xx0_0_0?xzzx00xzzx0_0_0?xx0.xx"; Symbol 2,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0?C0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0_0,CC0_0_0@C_C0_0_0.C_C0_0_0.JIAJIJAJIJ0_0_0.JIAJIJAJIJ"; Symbol 3,"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!z0?z0_0_0!zz0,z,0_0_0?zz0?z0_0_0_0,z0,z0_0_0!z00z0_0_0_0.zz0_0_0_00z0_0_0/z0.zz0_0_0/z!"; Symbol 4,"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?z,0_0_0.z?0_0_0_zz00z0_0_0_0.z00z0_0_0_0z00z0_0_0_0_0_0_0.z0_0_0_0.zz00z0_0_0_0z."; Symbol 5,"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_zz00zz0_0_0/z,0,zz0_0_0!z0.z,0_0_0@zz0zz0,z0_0_0?z0/z0_0_0?z0.z.0_0_0?z,0_0_0_00zz"; Graphics 640,480,2 SetBuffer BG CLS AA False ResetDraw w2=512 h2=512 SetCol 255,255,255 SetThick 3 a=h2/12 b=0 for x=0 to 1024 step 0.5 b=0 for y=0 to 15 b=b+1 SetCol 255,255,255;if b%2==1 then SetCol 180,0,0 if x%56<28 SetCol 255,255,255 if b%2==0 then SetCol 180,0,0 endif y1=h2+ya y2=h2+((y+1)a) x1=x+((x-w2)0.1)(y10.03) x2=x+((x-w2)0.1)(y20.03) Line x1,y1,x2,y2 next Next ResetDraw w2=ScreenWidth()/2 h2=ScreenHeight()/2 rx=w2;ry=h2 rxd=1 SetBuffer FG Repeat CLS 200,160,80;ResetDraw AA False DrawBG w2,h2 AA False g=Limit(Sin(Mills()0.32)90,-30,30) if g>-25 and g<25 s=Rnd(45,90) if g>wg then s=0-s ThrowParticle rx,ry+32,3,s,Rnd(0.3,0.5),Rand(3,5) endif wg=g rx=rx+rxd2 if rx>jscrw+32 then rxd=0-Rnd(0.7,1.3);ry=jscrhRnd(0.5,0.8) if rx<0-32 then rxd=Rnd(0.7,1.3);ry=jscrh*Rnd(0.5,0.8) SetSize 3 DrawImg rx,ry,0 if KeyHit() then beep=8 if beep>0 then beep=beep-1;DrawImg rx,ry,1 SetSize 3 SetRot g DrawImg rx,ry+4,2 SetParticleSize 32 SetParticleGravity 0.2 Flip Forever --v -=-=- ''Load, Next List!''
Page : 1 2 Next Prev

ALChoons 2023