Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|392\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> JSE - Jay's Scripting Engine
Page : 1 2 3 4 5 6 Prev 7 8 Next 9 10 11 12 13 14
Wed, 09 Jun 2021, 23:33
therevillsgames	My EYEs, my poor eyes! So many magic numbers it hurts Are constants in yet Jay?
Thu, 10 Jun 2021, 01:33
Jayenkai	Bah, you kids and your failure to memorise basic numbering systems. I'll look into it. The Preprocessor system includes Defines, so it shouldn't be "too" hard to make a const to flick through and replace things. Will experiment and let you know. -=-=- ''Load, Next List!''
Thu, 10 Jun 2021, 04:05
Jayenkai	// Constantly Constant // by Jayenkai // Created 2021/6/10 #Const $LocX=100 #Const $LocY=200 #Const $Width=640 #Const $Height=480 #Const $ItsSoMuchQuickerToJustTypeANumber=1 #Const $BitDark=30 #Const $BitBrighter=80 #Const $OffsetX=$LocX+200 #Const $OffsetY=$LocY+30 #Const $BetterString="Is this better?" #Const $ReallyString="Really?" Graphics $Width,$Height,$ItsSoMuchQuickerToJustTypeANumber CLS $BitDark,$BitDark,$BitBrighter Text $LocX,$LocY,$BetterString Text $OffsetX,$OffsetY,$ReallyString --v -=-=- ''Load, Next List!''
Thu, 10 Jun 2021, 13:11

Jayenkai	Created : 10 June 2021 Edited : 17 June 2021 System : Cross Platform Language : JSE Pop The Lock
Screenshots
// Pop The Lock v1.1 // by Michael Fernie // Created 6/17/2021 Symbol 0,"2__0_002_20_0_0,2_2,0_0_0220_0220_0@220_0,220_0/220_0,220_0/220_0,220_0/220_0,220_0/220_0,220_0/220_0,220_0/2_2/0_0!220_0?220_0.220_0/220_00220_0_220_220_0_00220/220_0220_0220?220_02.0_0220.220@2@0@220,2,0@20!20@2,002,0/220!220/2,002,0!2,0022002,0!2,002,0!2,0022002,0!2,002,0/220!220/2,0,220@20!20@220.220@2@0@220?220_2.0_220/220_220_220_220_0_220_00220_0/220_0.220_0?220_0!220_0,220_0@2_2?0_0_02_2,"; MelodyString="G16E32F32G16E16G32G32G32A32G16E32F32G16E32F32G16E16D32D32D32E32D16C16\|G8G8F8F8E8E8F8E16F16\|C8r16C16E16r16G16r16A16A+16A16F16G8r8\|r1\|[d]\|C16G+16D16G+16C16G+16D16D16C16G+16D16G+16G+16C16D16C32D32\|C16G+16C16G+16C16G+16C16G+16C16G+16C16G+16C16G+16C16C16\|r8A4A4A4A8\|r1\|" Graphics 1024, 720, 2 AA Off #CONST $GAMESTATE_TITLE=0 #CONST $GAMESTATE_MAIN_GAME=1 #CONST $GAMESTATE_GAME_OVER=2 #CONST $GAMESTATE_LEVEL_COMPLETE=3 #CONST $SWEEP_SPEED_START=2.25 #CONST $SWEEP_SPEED_INC=0.035 Gosub ResetGame //*** Main Loop * Repeat if GameState==$GAMESTATE_TITLE then Gosub TitleScreen if GameState==$GAMESTATE_MAIN_GAME then Gosub MainGame if GameState==$GAMESTATE_LEVEL_COMPLETE then Gosub LevelComplete if GameState==$GAMESTATE_GAME_OVER then Gosub GameOverScreen Flip Forever //* Title Screen * @TitleScreen CLS ResetDraw SetColor Rand(0,255), Rand(0,255), Rand(0,255) TextStr="* Pop The Lock **" SetFontSizeFit(TextStr, ScreenWidth0.75, ScreenHeight0.75) Text ScreenWidth0.5, ScreenHeight0.2, TextStr, 1 SetColor 255, 255, 255 TextStr="High Score: " + HighScore + " Level High: " + LevelHigh SetFontSizeFit(TextStr, ScreenWidth0.75, ScreenHeight0.75) Text ScreenWidth0.5, (ScreenHeight0.4)+68, TextStr, 1 SetFontSize 8 Text ScreenWidth-200, ScreenHeight-25, "Michael Fernie 6/17/21", 0 Text ScreenWidth-200, ScreenHeight-15, "JSE by Jayenkai", 0 if MouseHit() or KeyHit() or GamepadHit() Gosub ResetGame GameState=$GAMESTATE_MAIN_GAME endif SetSize 0.70 Starfield 2, 0, 0, 1 Return //** Reset Level *** @ResetLevel SeedRnd //Fix For OR Bug t1=0 if (Level mod 3==0) then t1=1 if (Level==1) then t1=1 if t1==1 then JMTrackr((Rand(1, 4)5)+90, 0, MelodyString) LockX=ScreenWidth()0.5 LockY=ScreenHeight()-185 ClaspX=LockX-74 ClaspY=(LockY-LockH)+14 SweepAngle=0 TargetAngle=Rand(45, 105) WipeAngle=0 SweepSpeed=$SWEEP_SPEED_START Return //*** Reset Game * @ResetGame GameState=$GAMESTATE_TITLE LockW=300 LockH=300 Level=1 LevelHigh=1 Score=0 HighScore=0 TargetsToGo=1 Gosub ResetLevel if FileExists==1 LoadFile HighScore=ReadFile(1) LevelHigh=ReadFile(2) endif Return //* Main Game *** @MainGame CLS ResetDraw Gosub DrawLock if MouseHit() or KeyHit() or GamepadHit() dist=Distance(SweepX, SweepY, TargetX, TargetY) if dist>18 GameState=$GAMESTATE_GAME_OVER Return else SetSize 2 for p=0 to 5 ThrowParticle TargetX+Rnd(-30,30), TargetY+Rnd(-30,30), 7, Rnd(-15, 15), .35, 0, Rand(0, 9), 0 next SetSize 1 Score=Score+(1Level) TargetsToGo=TargetsToGo-1 if TargetsToGo==0 GameState=$GAMESTATE_LEVEL_COMPLETE Level=Level+1 TargetsToGo=Level PlaySFX("Beeper_Rise", 1, 0.25) Return endif PlaySFX("Beeper_Fruit_Bonus", 1, 0.25) AngleOffset=Rand(35, 105) SweepSpeed=-SweepSpeed if (SweepSpeed<0) TargetAngle=TargetAngle-AngleOffset SweepSpeed=SweepSpeed-$SWEEP_SPEED_INC else TargetAngle=TargetAngle+AngleOffset SweepSpeed=SweepSpeed+$SWEEP_SPEED_INC endif endif Return endif Gosub UpdateSpinner SetColor 180, 255, 180 SetFontSize 20 Text ScreenWidth0.5, 30, "Score: " + Score + " Level: " + Level, 1 SetColor 0, 255, 0 SetFontSize 25 Text ScreenWidth0.5, LockY-220, TargetsToGo, 1 SweepAngle=SweepAngle+SweepSpeed //Fix For OR Bug t1=(SweepSpeed < 0 and SweepAngle < (TargetAngle-10)) t2=(SweepSpeed > 0 and SweepAngle > (TargetAngle+10)) if t1 or t2 GameState=$GAMESTATE_GAME_OVER endif Return //** Draw Lock *** @DrawLock SetColor 255, 128, 0 SetThick 24 drawRect ClaspX, ClaspY, LockW0.5, LockH0.5, 0 SetColor 0, 0, 0 Rect ClaspX-20, ClaspY+137, 190, 40, 0 SetColor 255, 128, 0 SetThick 50 DrawOval LockX, LockY, LockW, LockH, 30 SetThick 20 DrawOval LockX, LockY, LockW0.333, LockH0.333, 12 SetFontSize 10 SetThick 2 SetColor 0, 255, 255 f=0 for d=0 to 35 step 5 dx=(Sin(f)92)+LockX dy=(0-(Cos(f)92))+2+LockY Text(dx, dy, d, 1) f=f+45 next SetThick 1 SetColor 255, 255, 255 for a=0 to 360 step 9 ss=Sin(a) cc=Cos(a) dx=(ss105)+LockX dy=(0-(cc105))+LockY Line dx+(ss8), dy-(cc8), dx+ss, dy-cc next Return //*** Update Spinner *** @UpdateSpinner lineLen=150 targLen=172 TargetX=LockX+(Sin(TargetAngle)lineLen) TargetY=LockY-(Cos(TargetAngle)lineLen) ss=Sin(SweepAngle) cc=Cos(SweepAngle) SweepX=LockX+(sslineLen) SweepY=LockY-(cclineLen) SetColor 153, 0, 0 SetThick 8 SetSize 1.5 Oval TargetX, TargetY, 20, 20, 15 SetColor 0, 255, 0 Triangle TargetX, TargetY, 10, 10 SetSize 1 SetColor 0, 255, 0 SetThick 8 Line LockX+(sstargLen), LockY-(cctargLen), LockX+ss, LockY-cc SetColor 0, 0, 255 SetThick 8 DrawOval SweepX, SweepY, 2, 2, 15 Return //*** Level Complete ** @LevelComplete CLS ResetDraw Gosub DrawLock dy=Abs(ClaspY-LockY) if dy<=320 ClaspY=ClaspY-10 if dy==306 KillParticles PlaySFX("Metal_3", 1, 1.0) endif else ClaspX=ClaspX-45 LockX=LockX-45 if LockX<-255 Wait .25 Gosub ResetLevel GameState=$GAMESTATE_MAIN_GAME endif endif Return //* Game Over Screen *** @GameOverScreen if WipeAngle==0 PlaySFX("Explode_High_4", 0.5) KillParticles if Score>HighScore then HighScore=Score if Level>LevelHigh then LevelHigh=Level WriteFile 1, HighScore WriteFile 2, LevelHigh SaveFile endif if WipeAngle <> 181 SetThick 6 WipeAngle=0 l=320 w=0 SetColor 0, 0, 0 repeat ss=Sin(WipeAngle) cc=Cos(WipeAngle) ss2=Sin(WipeAngle+180) cc2=Cos(WipeAngle+180) dx=ss+LockX dy=(0-cc)+LockY Line dx+(ssl), dy-(ccl), dx+ss, dy-cc w=w+1 if (w>1) WipeAngle=WipeAngle+1 w=0 endif dx2=ss2+LockX dy2=(0-cc2)+LockY Line dx2+(ss2l), dy2-(cc2l), dx2+(ss2), dy2-(cc2) if WipeAngle mod 10==0 then Flip until WipeAngle>180 Wait .25 else CLS ResetDraw TextStr="Score: " + Score + " High Score: " + HighScore + " Level: " + Level + " Level High: " + LevelHigh SetFontSizeFit(TextStr, ScreenWidth0.75, ScreenHeight0.75) Text ScreenWidth0.5, (ScreenHeight0.4)+68, TextStr, 1 SetColor Rand(0,255), Rand(0,255), Rand(0,255) Text ScreenWidth0.5, (ScreenHeight0.2)+92, "<<< Game Over! >>>", 1 if MouseHit() or KeyHit() or GamepadHit() Gosub ResetGame GameState=$GAMESTATE_TITLE_SCREEN endif endif SetSize 0.70 Starfield 2, 0, 0, 1 Return --v -=-=- Our first None-Jay game! Michael Fernie has submitted a nice little game about clicking and timing and reflexes! Can YOU Pop the Lock?!!
Latest Update v1.1 Changed the color of the the target. Added a triangle to it to make it stand out more. Fixed all the text scaling issues. Sweep movement is a slower and ramps up slower. Sound Tracker changes the song every level 3rd level instead of every level. Changed a few color choices to make them stand out more like the dial numbers. Bumped up the version number to 1.1 and changed the date.

Sat, 12 Jun 2021, 15:22
Jayenkai	Graphics 512,512,1 ResetDraw() Txt="Hello World" Repeat CLS 30,30,80 w=Limit(Abs(MouseX()-256),3,256)2 h=Limit(Abs(MouseY()-256),3,256)2 SetCol 80,60,30; Rect 256,256,w,h,1 SetFontSize_Fit Txt,w,h SetCol 150,120,80; Text 256,256,Txt,1 Flip Forever --v New Command Day!! There's now a SetFontSize_Fit(String, Width, Height) command, which will return and set the font-size to an approximate font size to fit the text snuggly within the rectangular area. You might want to check the font size being returned, and .. if it's "too" small, reformat the string to be a couple of lines or something. Other new commands. Strings TextWidth(String) and TextHeight(String) return the width and height in pixels for the string using the current font size, and taking Width and Height into account. Trim(String) returns a trimmed version of the string, removing spaces from either side. Shuffle(String) returns a version of the string with all the characters shuffled into a random order. Reverse(String) returns the string with all the characters backwards. Sort(String,Order) returns all the characters in ASCII order, where 0 = low to high, or 1 = high to low. Arrays ShuffleArray(Array), ReverseArray(Array) and SortArray(Array) work the same as their string versions. Note that, currently, these only work for Single-Dimension arrays. I need to wrap my head around the best way to do this for multi-dim arrays!! Complicated stuff!! EmptyArray(Array, Value=0) Resets every value in the array to 0. You can also specify a value and have that be used, instead. Numbers SHL and SHR (or << and >>) perform bitshifting functionality, moving binary bits left or right by the required amounts. SmoothTo(a,b) is used to smoothly move value B towards A. An optional third parameter defines the smoothness, and a fourth value is the minimal distance they can be apart, before A=B. Essentially, this is my favourite function A=A-((A-B)/C), wrapped into a command. Graphics 512,512,2 Dim Pos(10,2) For n=1 to 8 Pos(n,1)=256 Pos(n,2)=256 Next Repeat CLS For n=1 to 8 if MouseX()>-1 Pos(n,1)=SmoothTo(Pos(n,1),MouseX(),n4) Pos(n,2)=SmoothTo(Pos(n,2),MouseY(),n4) endif Text Pos(n,1),Pos(n,2),n*4,1 Next Flip Forever --v .. I think that's everything!! -=-=- ''Load, Next List!''
Sat, 12 Jun 2021, 18:15
therevillsgames	Why the underscore Jay? SetFontSize_Fit and not SetFontSizeFit? [strikeout]Are you able to do calculations with constants within a command?[/strikeout] - doh I didnt use the dollar sign... $CONST #Const $WIDTH=512 #Const $HEIGHT=512 Graphics $WIDTH,$HEIGHT,1 ResetDraw() Txt="Hello World" Repeat CLS 30,30,80 w=Limit(Abs(MouseX()-($WIDTH/2)),3,($WIDTH/2))2 h=Limit(Abs(MouseY()-($HEIGHT/2)),3,($HEIGHT/2))2 SetCol 80,60,30; Rect $WIDTH/2,$HEIGHT/2,w,h,1 SetFontSize_Fit Txt,w,h SetCol 150,120,80; Text $WIDTH/2,$HEIGHT/2,Txt,1 Flip Forever --v If I wrap the x, y for Rect in brackets it doesnt draw: #Const $WIDTH=512 #Const $HEIGHT=512 Graphics $WIDTH,$HEIGHT,1 ResetDraw() Txt="Hello World" Repeat CLS 30,30,80 w=Limit(Abs(MouseX()-$WIDTH/2),3,$WIDTH/2)2 h=Limit(Abs(MouseY()-$HEIGHT/2),3,$HEIGHT/2)2 SetCol 80,60,30; Rect ($WIDTH/2),($HEIGHT/2),w,h,1 SetFontSize_Fit Txt,w,h SetCol 150,120,80; Text $WIDTH/2,$HEIGHT/2,Txt,1 Flip Forever --v
Sat, 12 Jun 2021, 18:33
Jayenkai	Be sure to include the $ in the variable name, otherwise you're just using a regular variable, not the Const As for the function name, in my head it sounded like it needed the gap.. I'm still not sure that the right wording.. Maybe FitText would've been better, but then that should also draw the text?! I dunno.. But SetFontSize felt like one thing, and then "Fit" felt like a separate bit on the end, so I felt the underscore was needed... I've also done that with MouseIn vs MouseIn_Circle.. ... but then I haven't done that with all the different Collide functions.. Hmm.. Inconsistency!! Which do you feel is better? -=-=- ''Load, Next List!''
Sat, 12 Jun 2021, 18:38
Jayenkai	The Bracket issue is one of the current pitfalls of the language. What's happening is it's reading the command as ... "Rect ($Width/2) .. and then some other stuff that the user decided to randomly type onto the end of the command for some reason" It's what I'm calling "the first bracket issue", and it happens EVERYWHERE!! I'm still trying to figure out how to parse it without forcing you to put brackets everywhere. .. and .. boy, is it hard!!! -=-=- ''Load, Next List!''
Sat, 12 Jun 2021, 19:01
therevillsgames	With the command names, 99% of your commands are in PascalCase so for consistency all of them should be. I think this "little" project is brilliant and I can see myself firing up JSE just to quickly try things without opening up an IDE and compiling.
Sat, 12 Jun 2021, 19:07
Jayenkai	Ok, I'll fix it up in the morning. The language copes happily with alternative spellings and such, so I'll just add in underscore-less versions as defaults. As for "Case".. it's all case insensitive. FeELFreEtogOcRAZy!! -=-=- ''Load, Next List!''
Sat, 12 Jun 2021, 19:31
therevillsgames
Tue, 15 Jun 2021, 03:24
Pakz	@jay If I would want to modify a textfile(sort a list) Would that be possible with your language/editor? edit: maybe read/write to the clipboard?
Tue, 15 Jun 2021, 03:32
Jayenkai	I can't get reading from the clipboard/paste to work well on iOS, and it seems every MacOS Safari update is bringing it more and more in line with iOS's stringent rules. I could possibly add file-access commands, but whether I can get a "Select a file from your desktop" to work inside Javascript, from the canvas, without using a HTML File Input box.. I'm not hopeful. File Output is more plausible, but without the input, seems rather redundant. There are better suited things for this. Might I suggest installing php onto your system? That's what I've been using for scripty tasks, since my switch to MacOS. -=-=- ''Load, Next List!''
Tue, 15 Jun 2021, 03:38
Jayenkai	Having said that, this was in one of the emails from Michael Fernie, the other day. Even still JSE is great. I even used it the other day to output a formatted report for my hotel expenses. I just took this jumble of data in this strange format. Pasted it into strings and then wrote a JSE program to parse it and then Print it out. I copied the output screen in debug and put the data into my report. Done. If you use the DebugLog command (be sure to turn DebugMode on first), you can output to there, and it'll show up in the Developer-Bar console log. Again, though, this only works on desktop, not mobile. Doing file-y things in Javascript is a right pain in the arse!! -=-=- ''Load, Next List!''
Tue, 15 Jun 2021, 03:40
Pakz	I have b3d installed. I do not think I will start on a php adventure.
Thu, 17 Jun 2021, 02:52
Jayenkai	// JMTrackr Jukebox // by Jayenkai // Created 2021/6/15 Dim Tune$(256) Dim Name$(256) Dim Tempo(256) n=0 Name$(n)="JM Specials"; Tempo(n)=0 n=n+1 Name$(n)="JMing Something"; Tempo(n)=120 Tune$(n)="<C16>G16C8r8<C16>G16C8r16<C16r16>G16C8<C16>G16C8r8<C16>G16C8<C16r16>C8r8\|E8G8G16F16E8F16G16F16D16E16r16C16D16E8G8G16F16E16C16E4r8C16D16\|G8G8<C8C8>G8G8C8r8G8G8<C8C8>G8G8C8r8\|G4G4C4C4G4G4<C4r4\|r8G16r16E16G16r8G16r16E16G16r8A16G16r8G16r16E16G16E16D16E8r4r8\|r1\|[d]\|C8C8C8C8C8C8C8C16C16C8C8C8C8C8C16C16C4\|C16G+16C16G+16C16G+16D16G+16C16G+16C16G+16C16G+16D16G+32D32C16G+16C16G+16C16G+16D16G+16C16G+16C16G+16C16D16D16G+16\|r1r1\|" n=n+1 Name$(n)="JMbo"; Tempo(n)=120 Tune$(n)="C16E16G16<C16r4>C16E16G16<C16r4>C16E16G16<C16r4C16>G16E16C16r4\|r4C16E16G16<C16r2r4C16>G16E16C16r2\|G8G8E8E8C8C8D8C16E16G8G8E8E8C4r4\|>G8r32r32<G16r8G16r8r16>G8<G16r8r16>G8r32r32<G16r8G16r16>G16r16G8<G16r8r16\|r4G16r16G16E16C16r1r4r8r16\|r1r8C8C16C16C16<C8C16C8r4\|r1r8G16r16G16G16G16<G16r16G16G16r4r16\|r1\|[d]\|C4C4C4C8D8C4C4C8D8C4\|C8G+8C8G+8C8G+8C8G+8C8G+8C8G+8C8G+16D8C16D16G+16\|r1\|" n=n+1 Name$(n)="JMelody"; Tempo(n)=120 Tune$(n)="G4C16r8G8r16C16r32r4r32G4C16r8G8A16G8r4\|C8C8C8C8C8C8D16D+16D8C8C8C8C8>G8<C8D16D+16F16D+16\|r8<C16>G16C16G16<C16r8r16C16>G16C16r4r16<C16>G16C16G16<C16C8r16C16>G16C16r8r16\|G8r16G16r2r4G8r16G16r8C4r4r8\|G16A16G16F16G16r1r2r8r16\|r1\|[d]\|C8G+8D8G+8r16G+16C8D8G+8C8G+8D8r16G+8G+16C8D8G+16D16\|r1\|" n=n+1 Name$(n)="TrackrTacks"; Tempo(n)=120 Tune$(n)="C4r8C8E8G8A8G8C16r8C16r8C16C16E16C16G8A8r8\|C8r16C16r4C8r16C16r4C8r16C16r4C8r16C16r4\|C8r16C16r4r8C16r16C16r8r16C8r16C16r4C32r32C32r32C16r16C16r8r16\|C16>G16<C16E16G16E16C16E16C16>G16<C16E16G16r8r16C16>G16<C16E16G16E16C16E16C16G16E16>G16<C16r8r16\|r1\|[d]\|C8G+16C16D8C16G+8C16G+8D8C16G+16C8G+16C16D8C16G+8C16G+8D16G+16C16D16\|r1\|" n=n+1 Name$(n)="Browsercade"; Tempo(n)=0 n=n+1 Name$(n)="Flappadiddle"; Tempo(n)=120 Tune$(n)="C32r16r32>G32<r32>A+32<r32C32r16r32>G32<r32>A+32<r32C32r16r32C32r32D+32r32D32r32C32r32>A+32<r16r32\|C32r16r32C32r32D+32r32F32r16r32G32r16r32C32r16r32C32r32D+32r32F32r16r32G32r16r32\|G8r8F8r8D+8r8C8r8\|C8r16C16r8C16r16C8r16C16r8C16r16\|<C8>C16<C16>r16G16<C8>A+16r8r16G16r16A+16r16\|[d]\|C8F+8D8F+16>B8<F+16C8D8F+8\|C8F+16C8F+16C8r16F+16D8D8F+8" n=n+1 Name$(n)="Busy Road"; Tempo(n)=120 Tune$(n)="F8F16F16A8<C8>B8A8B16A16G8\|F8r8F8r8F8r8A8r8\|A8r16F8r16A8r16F8r16A8F8\|>F16r8r16F16r8r16F16r8r16F16r8r16\|r4>A16r16A16r4r16A16r16A16r16\|r8F16r8r16F16r8r16A16r8r16A16r16\|r1\|[d]\|C4D4C4D4\|C8F+8D8F+8C8F+8D8F+8\|C8F+16C16D8F+8C8F+16C16D8D8\|r1\|" n=n+1 Name$(n)="Jellyfish"; Tempo(n)=120 Tune$(n)="C16C16C16>G16r4r8<C16C16C16>G16r8\|>G16r8r16G16r8r16G16r8r16G16r8r16\|r4r8<C16C16C16>G16r4r8\|r8C32r32C32r8r32C32r32C32r8r32C32r32C32r8r32C32r32C32r32\|r1\|[d]\|C4C4C4C4\|C4D4C4D4\|C8G+8D8G+8C8G+8D8G+16D16\|r1\|" n=n+1 Name$(n)="Not Pong"; Tempo(n)=120 Tune$(n)="<G32r4r8r16r32>G32r4r8r16r32\|>G16r8r16<C16r8r16D+16r8r16C16r8r16\|r8<C16r8r16C16r8r16C16r8r16C16r16\|C16r16C16r16C16r16>G16r16G16r16G16r16G16r8r16\|C16r8C16r8C16r8C16r8C16r16>G16r16\|r8C32r32C32r32C16r4r16C32r32C32r32C16r8r16\|r1\|[d]\|C8G+8C8G+8C8G+8C8G+16G+16\|C16G+8C16D8G+8C8C16C16D16r16G+16r16\|C8G+8D8G+8C8G+8D8G+16D16\|r1\|" n=n+1 Name$(n)="Poll Drop"; Tempo(n)=120 Tune$(n)="C8G8>G8<G8C8G8>G8<G8\|C8G8>G8<G8C8>G8A8B8\|G16A16G16F16G16A16G16B16<C2\|G16A16G16F16G16A16G16F16G16A16G16F16G16A16G16F16\|<C16>B16A16G16F16E16D16C16>B16A16G16F16E16D16C8\|C32r32D32r32E32r32F32r32G32r32A32r32B32r32<C32r32D32r32E32r32F32r32G32r32A32r32B32r8r32\|r1\|[d]\|C8D8C8D8C8D8C8D8\|C8D8C8D8C8D8C8D16D16\|r1\|" n=n+1 Name$(n)="Floor Lamp"; Tempo(n)=120 Tune$(n)="C16r8C16r8E8G8r4r8\|r2r8r16G16A16r16G16r16\|>C16r16<C32r32C32r32>C16r16<C32r32C32r32>C16r16<C32r32C32r32>C16r16<C32r32C32r32\|>G8r16G8r16G16r16r2\|r2C8r16C8r16C16r16\|r1\|[d]\|C16G+8G+16C8G+4G+4G+8\|C16G+8G+16D16G+8G+16C8G+16G+16D8G+8\|C8G+16C16D8G+16D16C16D16C16G+16D8G+8\|r1\|" n=n+1 Name$(n)="Rumbled Ground"; Tempo(n)=100 Tune$(n)="C32r32C32r32C32r32C32r32C32r4r8r16r32C32r16r32C32r16r32\|>G32r32G32r32G32r32G32r32<C32r4r8r16r32>G32r16r32<C32r16r32\|E32r32C32r32E32r32C32r32>G32r4r8r16r32<C32r16r32E32r16r32\|r8<C32r8r16r32C32r8r16r32C32r8r16r32C32r16r32\|r8>G16r8r16G16r8r16G16r8r16G16r16\|C16r8C16r8C16r8C16r8C16r16C16r16\|G32r8r32E32r8r32C32r8r32>G32r8r32<C32r16r32E32r16r32\|r1\|[d]\|C4C4C4C4\|C8F+8C8F+8C8F+16F+16C8F+8\|C8F+16C8r16C8r16C16F+8C8C16F+16\|C8F+16C16D8F+16C8D16C16F+16D8F+8\|r1\|" n=n+1 Name$(n)="Meatballs"; Tempo(n)=120 Tune$(n)=">C8C32r32C32r32C8C8C32r32C32r32C8C8C32r16r32\|>G8G32r32G32r32G8G8G32r32G32r32G8G8G32r16r32\|G16r8G16r8G16r16C16r8C16r8C16r16\|C32r16r32C32r32E32r32G32r16r32G32r16r32G32r32E32r32C32r4r16r32\|r2r4C32E32G32E32C32r16r32\|G8r8C8r8>G8r8<C8r8\|r8G16r32r32r32r16r32C16r32r8r32>G16r32r8r32<C16r32r32\|C16E16G16r8C16E16G16r16C16r16C16G16r16C16r16\|r1\|[d]\|C8F+8C8F+8C8F+8C8F+8\|C8F+8D8F+16C8F+16C8D8F+8\|C16F+16G+16F+16D16F+16G+16F+16C16F+16G+16F+16D16F+16G+16F+16\|r1\|" n=n+1 Name$(n)="Gaming Memories"; Tempo(n)=0 n=n+1 Name$(n)="Manic Caverns"; Tempo(n)=60 Tune$(n)="C32D32E32F32G32E32G32r32A32F32A32r32G32E32G32r32C32D32E32F32G32E32G32r32A32F32A32r32G16r16C32D32E32F32G32E32G32r32A32F32A32r32G32E32G16C32D32E32F32G32E32G32<C32>G32E32C32E32G16r16\|C16G16r16G16>G16<G16r16G16C16G16r16G16C16>G16A16<D16C16G16r16G16>G16<G16r16G16C16G16r16G16C16>G16A16<D16\|>G8G8G8G8<C8C8C8C8>G8G8G8G8<C8C8C4\|r1\|r4r8G32E32G32r4r8r16r32<C32C32r16r32r4r32>G32E32G32r8r32r8r16<C32r32C32r16r32\|r1\|[d]\|C16G+16C16G+16C16G+16C16G+16C16G+16C16G+16C32G+32D32C32G+16D16C16G+16C16G+16C16G+16C16G+16C16G+16C16G+16C32G+32C32G+32D16D32D32\|C8D8C16C32C32D16r32D32C8D8C16D32C32D16D16C8D8C16C32C32D16r32D32C8D8C32C32D16D8\|r1\|" n=n+1 Name$(n)="Happy Plumber"; Tempo(n)=80 Tune$(n)=">G16<G16C16G16E16G16C16G16>G16<G16C16G16E16>G16A16B16G16<G16C16G16E16G16C16G16>G16<G16C16G16E16r16C16r16\|E8C16>G16A16<C16C8>A16<C16C16G16E8D8E8C16>G16A16<C16C16>A16G16<C16F32E32D16C4\|G4G4C4C4E4E4C4E4\|r1r1\|[d]\|C16F+16C16F+16D16F+16F+16D16C16F+16C16F+16D16F+16D16D16C16F+16C16F+16D16F+16F+16D16C16D16C16F+16D16F+16D16D16" n=n+1 Name$(n)='Original'; Tempo(n)=0 n=n+1 Name$(n)="Original Goodness"; Tempo(n)=120 Tune$(n)="C8<C8>C8<C8>>G8<G8>G8<G8>A8<A8>A8<A8>A+8<A+8D8<D8\|>G8<G8>G8<G8>D8<D8>D8<D8>F8<F8>F8<F8>G8<G8>G8<G8\|<C8r4C8r2r4r8>G16r16<C16r16D16r16E16r16D16r16\|C2r4D4E4D4C4D4\|C8r8D8r8E16r16G16r16E4F16r16F16E16D8G8E16r16D16r16C8>G16r16\|<C4r8>G4r8A+16r16G16r16<C4r8>G4r8A+16r16G16r16\|r1\|[d]\|C4D8r16G+16C8G+8D8G+16D16C4D8r16G+16C8G+8D8D16G+16\|r1\|" n=n+1 Name$(n)="Original Justification"; Tempo(n)=100 Tune$(n)="G16F16G16<C16>G16r16C16r2r16G16F16G16<C16E16C16>G16r16<C8r4r8\|C32r32C32r32C16C32C32C32r32C16C32C32C32r32F32r32F32r32F16F32F32>G32r32G16G32A32B32r32<C32r32C32r32C16C32C32C32r32C16C32C32C32r32F32r32F32r32F16F32F32>G32r32G16G32A32B32r32\|r2r16F32r32G32r32<C32r32>G16r16C32r2r8r32F32r32G32r32<C32r32>G8r8\|G8r16C8r16G8A+4<C4>G8r16C8r16G8F4G4\|C8r16>G8r16<C8F4G4C8r16>G8r16<C8C4C4\|r1\|[d]\|C16D16G+16C8G+16C16G+16C16D16G+16C8C16D8C16D16G+16C8G+16C16G+16C16D16G+16C8C16D16D16\|r1\|" n=n+1 Name$(n)="Original Lifeform"; Tempo(n)=120 Tune$(n)="<C4r8>A+16G4r16A+4<C4r8>A+16G2r16\|C4r8D8D+4D4C4r8D8D+2\|C8C8C8C8C8C8C8C8D+8D+8D+8D+8>A+8A+8A+8A+8\|C8C8C8C4C8C8C8D+8D+8D+8D+4>A+8A+8A+8\|C16r8C16r8C16r8C16r8C16r16C16r16D+16r8D+16r8D+16r8>A+16r8A+16r16A+16r16\|C16D+16C16<C8C8C16>C16D+16C16<C8C8C16>C16D+16C16<C8C8C16>C16D+16C16<C8r16C16C16\|r1\|[d]\|r8G+4G+4G+4G+4G+4G+4G+4G+16G+16\|C8G+16C16D8G+8C8G+16C16D8G+8C8G+16C16D8G+8C8D8D8G+8\|r1\|" n=n+1 Name$(n)="Original Naivety"; Tempo(n)=80 Tune$(n)="A+32<D32F32A+32>A+32<D32F32A+32>A+32<D32F32A+32>A+32<D32F32A+32>A32<C32F32A32>A32<C32F32A32>A32<C32F32A32>A32<C32F32A32>G32<C32D+32G32>G32<C32D+32G32>G32<C32D+32G32>G32<C32D+32G32>G32A+32<D32G32>G32A+32<D32G32>G32A+32<D32G32>G32A+32<D32G32\|r8<F16F16D+16D16D+16r8F16F16F16G16r16F16r8r16F16F16D+16D16D+16r8F16F16F16G16F16>A+16r16\|r16>A+32r16r32A+32r16r32A+32r16r32A+32r16r32<F32r16r32F32r16r32F32r16r32F32r16r32D+32r16r32D+32r16r32D+32r16r32D+32r16r32D32r16r32D32r16r32C32r16r32D32r32\|>A+32A+32r16A+32A+32r16A+32A+32r16A+32A+32r16<F32F32r16F32F32r16F32F32r16F32F32r16D+32D+32r16D+32D+32r16D+32D+32r16D+32D+32r16D32D32r16D32D32r16C32C32r16D32D32r16\|A+16<C16D16F8r16D+16D16D+16F16F8r4>A+16<C16D16F8r16G16F2r16\|r1\|[d]\|C16G+16D16G+32D16r32C16D16G+16C16G+16D16G+32D16r32C16D16G+16C16G+16D16G+32D16r32C16D16G+16C16G+16D16G+32D16r32C16D16G+16\|r1\|" n=n+1 Name$(n)="Original Quail"; Tempo(n)=120 Tune$(n)="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\|" n=n+1 Name$(n)="Original Slant"; Tempo(n)=120 Tune$(n)="A16r8A16r8F16r16A16r8A16r8A+16r16A16r8A16r8F16r16A16F32r32A32r32A+32r32A8F16r16\|>F32r32A32r32A32r32A32r32<A16>A32r32A32r32A+32r32<C32r32C32r32C32r32C32r32A+16>A+32r32A32r32A+32r32F32r32A32r32A32r32A32r32<A16>A32r32A32r32A+32r32<C32r32C32r32C32r32C32r32A+16>A+32r32A32r32A+32r32\|A8r16r8r16F8r16r8r16A8r16r16<C8r16r8r16>A+8r16r8r16G8r16r16\|A16r8A16<C16>A+16A16r16A+8r8G8r8A16r8A16<C16>A+16A16r16A+8r4r8\|r1r8A16r16A8A+8<C16r16>A+16r16A8A+16r16\|A8r16A16r8A8r4r16F16A32r32A+32r32<C8r16C16r8>A8r2\|r8A32r32A+32r32<C16>A+32r32A16r8r16A32r32<C32r16r32>A+32r32A16r8r16A32r32A+32r32<C16>A+32r32A16r8r16A32r32F32r32A32r32<C32r32>A16r16\|r1\|[d]\|C4r8C8C4r8C8C4r8C8C4C4\|C8G+16D8r16D8G+8C8D8G+8C8G+16D8r16D8G+8C8D16C16G+16A16\|r1\|" n=n+1 Name$(n)="Original Treatment"; Tempo(n)=120 Tune$(n)="C4C4C4C8G4G4G8G4E4\|C8<C8>C8<C8>C8<C8>C8<C8>G8<G8>G8<G8>G8<G8>E8<E8\|E2r8F4r8G2F2\|E16C16E16F16G16r16E16C16E16F16G16r16F16E16G16r16E16C16E16F16G16r16E16C16E16F16G16r16F16E16G16r16\|r8E16r16E16r16F16r16G16r8r16E8r4E16r16E16r16D16E16r2\|E16r16E16r16E16r16F16r16G16r4r8r16E16r16E16r16E16r16D16E16r2\|r1\|[d]\|C8G+8D8G+16F+16C8G+8D8G+8C8G+8D8G+16F+16C8G+8D8G+8\|r1\|" n=n+1 Name$(n)="Original Wound"; Tempo(n)=120 Tune$(n)=">C8r8<<C8r16C16r8C16r16>C8r8>C8r8<<C8r16C16r2\|r8C32r32C32r2r4r8r32C32r32C32r2r4r32\|r2r8<C16r8r16C16r2r8r16C16r8r16C16r16\|r4C8r32r32C16r2r4C8r32r32C16r2\|<C16r16>C16r16G16r16<C16r16>A+16r16G16r16F16r16G16r16<C16r16>C16r16G16r16<C16r16>A+16r4r8r16\|<C1>C2<D+2\|r1\|[d]\|C8G+8D8C16G+8r16G+8D8G+8C8G+8D8C16G+8r16G+8D8G+8\|r1\|" n=n+1 Name$(n)="Original Xodus"; Tempo(n)=120 Tune$(n)="C16G16<C16>C16G16<C16>C16G16<C16>C16G16<C16>C16G16<C16r16>C16G16<C16>C16G16<C16>C16G16<C16>C16G16<C16>C16G16<C16r16\|C4r8r4F4r8G2F2\|<C16r16C16r16C16r16C16r16C16r16>G8r8A+16r16<C16r16C16r16C16r16C16r16C16r16>G8r8G16r16\|C16r16C16C16C16r16C16C16C16r16C16C16>G16r16A+16r16<C16r16C16C16C16r16C16C16C16r16C16C16>G16r16A+16r16\|G2E2A+2G2\|C2E2F2C2\|r4G4F4E4E8F8G8C4r4r8\|r1\|[d]\|r8G+4G+4G+4G+4G+4G+4G+4G+8\|C8C16C16G+8C16C16C8C16C16G+8C8C8C16C16G+8C16C16C8C16C16G+8C8\|C8G+16C16D8G+8r16C16G+8D8G+8C8G+16C16D8G+8r16C16G+8D8G+16D16\|r1\|" n=n+1 Name$(n)="Original Yurt"; Tempo(n)=80 Tune$(n)="E16r32E32C16r32C32G16r32G32E16C16D16D32E32F16E16C8>G8<E16r32E32C16r32C32G16r32G32E16C16D16D32E32F16E16C8r8\|>G16<G16C16G16>G16<G16C16G16>F16<F16D16F16D16>F16<D16F16>G16<G16C16G16>G16<G16C16G16>F16<F16D16F16D16>F16<D16F16\|C16r16D16r16E16D16C16D16C16r32r16r32G16r32r4r32F16F16G16A16G16F16G16F16r16C16r16D16r16E16r16\|C2D2E2D2\|r16C16C16>G16<C16G16C16r2r8C16C16>G16<C16G16C16r2r16\|r2r16C16C16>G16<C16G16E16D16r2r16C16C16D16E16D16C16r16\|r1\|[d]\|C16G+16C16G+16C16G+32D16r32D16C16G+16C16G+16C16G+32D16r32D16C16G+16C16G+16C16G+32D16r32D16C16G+16C16G+16C32D32C32G+32D16D16\|C8C8C8C8C8C8C8C16C16C8C8C8C8C8C8C4\|r1\|" n=n+1 count=n-1 Playing=0 mdis=0 Graphics 1280,720,1 Repeat CLS 30,30,80 SetFontSize 12 if MouseDown()<1 then mdis=0 sx=1 w=ScreenWidth0.23 x=((ScreenWidth0.25)(sx-0.5)) y=50 for n=0 to count x=((ScreenWidth0.25)(sx-0.5)) if Tempo(n)==0 y=y+28 if sx>1 then y=y+28 SetFontSize 23 Text ScreenWidth/2,y-4,Name$(n),1 SetFontSize 12 y=y+28:sx=0 endif if Tempo(n)>0 and y>-128 and y<ScreenHeight()+128 SetCol 50,50,100 if Playing==n then SetCol 120,100,60 if MouseIn(x,y,w,20,1)>0 SetCol 80,80,140 if Playing==n then SetCol 140,120,80 if MouseDown() and mdis==0 then Playing=n spd=Rand(0,2)20+Tempo(n) mdis=1:JMTrackr(spd,Tune$(n)); endif endif Rect x,y,w,20,1 SetCol 255,255,255 Text x,y,Name$(n),1 endif sx=sx+1 if sx>4 then sx=1:y=y+28 next SetCol 20,20,70 Rect 0,0,jscrw,40 SetCol 255,255,255 if spd>0 then Text ScreenWidth/2,20,"Playing "+Name$(Playing)+" at "+spd,1 Flip Forever --v Spent the past couple of days working on improvements to the JMTrackr Music Player engine. The editor now has eight bars instead of four, so .. um.. \o/yeay\o/ The basic play routine has also been tweaked a fair bit, and the results are now much more pleasing to the ear, but I think I could probably still do a few more tweaks. I'll be fiddling about with new instrument options, today, I think. Meanwhile, above is a nice collection of choons that you might want to use in projects. -=-=- ''Load, Next List!''
Thu, 17 Jun 2021, 03:25
rockford	It didn't play for me the first time I clicked "Jellyfish" ; nothing happened (well, it said it was playing Jellyfish at XXX, but it wasn't. I also couldn't click on any other song. I exited and re-ran it and it all worked fine. Latest FF browser. Dunno. It's pretty neat though
Thu, 17 Jun 2021, 05:23
Jayenkai	Probably didn't download the temp mod file early enough. I need to look into caching things again.. -=-=- ''Load, Next List!''
Tue, 22 Jun 2021, 04:58
Jayenkai	I've added a new bunch of sounds to the SFX library, based on those SONNISS sample packs I found the other day. You should be able to hear them in the SFX gallery thing, assuming it updates properly! JSE is here, as always -=-=- ''Load, Next List!''
Tue, 22 Jun 2021, 09:25
Pakz	Have you thought of archiving this project on a service like github? Seems like something like this would be really something to archive for the world.
Tue, 22 Jun 2021, 09:42
Jayenkai	Do I ever?
Wed, 23 Jun 2021, 04:44

Jayenkai	Created : 23 June 2021 Edited : 23 June 2021 System : Cross Platform Language : JSE Squishy Balls Squish the balls and round them up
Screenshots
// Squishy Balls v1.1 // by Jayenkai // Created 2021/6/22 Symbol 0,"1__0!23,0_023,4.0/2334/0?3,4_0,2332424@003,4_4403,2424_43,4_4,53,4_4,53,4_44550334_44500334_4550,334@550?34/550/4?5,0_045,"; 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_0v.0,v.0_0_00v;.v0v;.v0_0_v;!v;!v0_0/v;@v;!v0_0!v;@v;!v0_0!v;?vv;v;,vv;v0_0!v;?vv;v;,vv;v0_0!v;?vv;v;,vv;v0_0!v;?vv;v;,vv;v0_0!v;@v;!v0_0!v;@v;!v0_0/v;!v;!v0_0_v;.v0v;.v0_0_00v.0,v."; Symbol 2,"1__0!v.0_0v@0/v_v0?v_v,0,v_v?00v_v?0v_v_v_v_v_v_v_v0v_v?00v_v?0,v_v,0?v_v0/v@0_0v."; Symbol 3,"1__0_0_0_0_0_0_0_0_0_0_0_0_0.v_v@;_;?vv;_;?v0v;_;.v00v;_;;v0.vv;@v0/v@"; Symbol 4,"0__0_0_0_0!v!0v0!v"; AntiAlias Off Tune="<C4r8>A+16G4r16A+4<C4r8>A+16G2r16\|C4r8D8D+4D4C4r8D8D+2\|C8C8C8C8C8C8C8C8D+8D+8D+8D+8>A+8A+8A+8A+8\|C8C8C8C4C8C8C8D+8D+8D+8D+4>A+8A+8A+8\|C16r8C16r8C16r8C16r8C16r16C16r16D+16r8D+16r8D+16r8>A+16r8A+16r16A+16r16\|C16D+16C16<C8C8C16>C16D+16C16<C8C8C16>C16D+16C16<C8C8C16>C16D+16C16<C8r16C16C16\|r1\|[d]\|r8G+4G+4G+4G+4G+4G+4G+4G+16G+16\|C8G+16C16D8G+8C8G+16C16D8G+8C8G+16C16D8G+8C8D8D8G+8\|r1\|" Dim Ball(32,10) // 32 balls, 10 params #Const $Me=0 #Const $Alive=0 #Const $XPos=1 #Const $YPos=2 #Const $XSpd=3 #Const $YSpd=4 #Const $Dir=5 #Const $Col=7 Graphics 640,480,2 GameHandler("Squishy Balls","2 Balls\|5 Balls\|10 Balls") .StartGame Balls=2 if GameType==2 then Balls=5 if GameType==3 then Balls=10 ResetDraw z=ScreenWidth()0.65 if ScreenHeight()<ScreenWidth() then z=ScreenHeight()0.65 DrawOval ScreenWidth()/2,ScreenHeight()/2,z,z,64 z=z0.5 SeedRnd 13+(GameType100) For b=1 to Balls Ball(b,$Alive)=1 a=Rand(0,360) d=Rand(z,z2) Ball(b,$XPos)=ScreenWidth()/2+Sin(a)d Ball(b,$YPos)=ScreenHeight()/2-Cos(a)d Ball(b,$XSpd)=0 Ball(b,$YSpd)=0 Ball(b,$Dir)=1 if Rand(0,10)<5 then Ball(b,$Dir)=-1 Ball(b,$Col)=Rand(0,7) Next Ball($Me,$Alive)=3 Ball($Me,$XPos)=ScreenWidth()/2 Ball($Me,$YPos)=ScreenHeight()/2 Ball($Me,$XSpd)=0 Ball($Me,$YSpd)=0 Ball($Me,$Dir)=1 Ball($Me,$Col)=8 Timer=12060 // 120 Seconds * 60 FPS LastTick=120 SeedRnd JMTrackr 160,Tune$ return .Ingame CLS 0,60,0;ResetDraw SetCol 255,255,255,1 SetThick 4 z=ScreenWidth()0.65 if ScreenHeight()<ScreenWidth() then z=ScreenHeight()0.65 DrawOval ScreenWidth()/2,ScreenHeight()/2,z,z,64 z=z0.5 happy=1 if GameOver==0 then Score=0 For b=0 to Balls if Ball(b,$Alive)>0 if b<Balls for b2=b+1 to Balls if Ball(b2,$Alive)>0 dx=Ball(b,$XPos)-Ball(b2,$XPos) dy=Ball(b,$YPos)-Ball(b2,$YPos) d=Pyth(dx,dy) if d<32 ang=ATan2(dx,-dy) spx=Abs(Ball(b,$XSpd))+Abs(Ball(b2,$XSpd)) spy=Abs(Ball(b,$YSpd))+Abs(Ball(b2,$YSpd)) spd=Sqr((spxspx)+(spyspy)) Ball(b,$XSpd)=Ball(b,$XSpd)+Sin(ang)spd Ball(b,$YSpd)=Ball(b,$YSpd)-Cos(ang)spd Ball(b2,$XSpd)=Ball(b2,$XSpd)+Sin(ang+180)spd0.45 Ball(b2,$YSpd)=Ball(b2,$YSpd)-Cos(ang+180)spd0.45 v=Limit(spd0.1,0,1) if v>0.05 then PlaySFX("Sonniss_Squish_"+Rand(1,3),Rnd(0.7,1.3),v) endif endif next endif if GameOver==0 then Ball(b,$XPos)=Ball(b,$XPos)+Ball(b,$XSpd) Ball(b,$YPos)=Ball(b,$YPos)+Ball(b,$YSpd) Ball(b,$XSpd)=Ball(b,$XSpd)0.985 Ball(b,$YSpd)=Ball(b,$YSpd)0.985 v=Limit(Abs(Ball(b,$XSpd)0.1),0,1) if Ball(b,$XPos)<8 then Ball(b,$XPos)=8;Ball(b,$XSpd)=Abs(Ball(b,$XSpd)0.8);PlaySFX("Sonniss_Flop",Rnd(0.7,1.3),v) if Ball(b,$XPos)>ScreenWidth()-8 then Ball(b,$XPos)=ScreenWidth()-8;Ball(b,$XSpd)=0-Abs(Ball(b,$XSpd)0.8);PlaySFX("Sonniss_Flop",Rnd(0.7,1.3),v) v=Limit(Abs(Ball(b,$YSpd)0.1),0,1) if Ball(b,$YPos)<8 then Ball(b,$YPos)=8;Ball(b,$YSpd)=Abs(Ball(b,$YSpd)0.8);PlaySFX("Sonniss_Flop",Rnd(0.7,1.3),v) if Ball(b,$YPos)>ScreenHeight()-8 then Ball(b,$YPos)=ScreenHeight()-8;Ball(b,$YSpd)=0-Abs(Ball(b,$YSpd)0.8);PlaySFX("Sonniss_Flop",Rnd(0.7,1.3),v) endif if Ball(b,$XSpd)<0 then Ball(b,$Dir)=-1 if Ball(b,$XSpd)>0 then Ball(b,$Dir)=1 if b==$Me Ball(b,$XSpd)=Ball(b,$XSpd)+(Gamepad(ButtonRight)-Gamepad(ButtonLeft))0.45 Ball(b,$YSpd)=Ball(b,$YSpd)+(Gamepad(ButtonDown)-Gamepad(ButtonUp))0.45 endif SetSize 1.1,1.1;SetAlpha 0.2 dxb=((ScreenWidth()/2)-Ball(b,$XPos)) dyb=((ScreenHeight()/2)-Ball(b,$YPos)) d=Pyth(dxb,dyb) dx=dxb0.025 dy=dyb0.025 DrawImg Ball(b,$XPos)-dx,Ball(b,$YPos)-dy,2,0 SetSize 1,1;SetAlpha 1 DrawImg Ball(b,$XPos),Ball(b,$YPos),0,Ball(b,$Col) SetSize Ball(b,$Dir),1 DrawImg Ball(b,$XPos)+Ball(b,$Dir)10,Ball(b,$YPos)-6,1 SetSize Ball(b,$Dir)0.5,0.5 s=3 if d>z then s=4;happy=0 if s==3 and GameOver==0 then Score=Score+1 DrawImg Ball(b,$XPos)+Ball(b,$Dir)6,Ball(b,$YPos)+5,s endif Next If Happy==1 and GameOver==0 Score=Secs EndGame "\o/yeay\o/" PlaySFX("Beeper_Fruit_Win") Endif ResetDraw SetFontSize z0.5 if GameOver==0 then Timer=Timer-1 secs=Ceil(Timer/60) SetCol 60,150,225,0.3 If secs<10 then SetCol 225,160,70,0.3 if secs<0 then secs=0:EndGame "Time's Up" Text ScreenWidth()/2,ScreenHeight()/2,secs,1 if Secs<LastTick then LastTick=Secs SetFontSize 16;SetCol 180,255,180,0.6 Text ScreenWidth()/2,16,score,1 if GameOver>0 then JMStop Return --v Squish the balls, and push them towards the centre spot, as fast as you can.

Thu, 24 Jun 2021, 04:45
Jayenkai	// Bracketless Bug Print:Print "Broken" z=ScreenWidth if ScreenHeight>ScreenWidth then z=ScreenHeight Print z Print:Print "Working" z=ScreenWidth() if ScreenHeight()>ScreenWidth() then z=ScreenHeight() Print z --v Spent the past couple of hours trying to work this issue out.. Decided to see what happens in Blitz3D+Max under the same circumstances. ; Blitz3D Graphics 640,480,0 Print GraphicsWidth Print GraphicsWidth() ; Returns 0 and 640. eg, doesn't work at all without the brackets. --v vs ' BlitzMax Graphics 640,480,0 Print GraphicsWidth ' Breaks here. "Unable to convert int() to string" Print GraphicsWidth() --v .. Doesn't work on either. At all.. I think I'm going to let that particular bug slide, then. -=-=- ''Load, Next List!''
Sat, 26 Jun 2021, 07:35
Jayenkai	Today's Fixings First Bracket I think this bug is no longer an issue. It might be, but it shouldn't. I added a layer number to all tokens, and if anything drops below a certain threshold, the whole lot gets bumped up and has brackets wrapped around it. It appears to be working well enough. As with all these kinds of "underground" tweaks, apologies if something you've coded goes awry. If it has, let me know what and I'll try to repair it. Print 1+2-3 Print (1+2)-3 Print 1+(2-3) --v All now display 0, which is what they should. Previously it would display 0, 3 and 0 Missing Brackets I think I've got bracketless command-returns working properly. Everything I can think to test it seems to be working ok, but do let me know if your particular code-style is causing issues. If they are, let me know what you're trying to do, and how, and I'll see if I can figure out a way to get it to work with your particular coding style. // CBA Bracketting // by Jayenkai // Created 2021/6/11 Repeat CLS;ResetDraw() Text 10,10,Mills(1),0 Text 10,30,ScreenWidth+","+ScreenHeight+":"+MouseX+","+MouseY Flip Until MouseHit or KeyHit or GamePadHit --v This now works like it should. I think..! Minus I've "fixed" a lot more instances of negative numbers, via the method of doing the check a second time! Again, tested what I can, but if you still see anything wrong, be sure to let me know. // Negativity // by Jayenkai // Created 2021/5/17 CLS SetFontSize 12 Border 30,30,60 for n=-10 to 1 Text 10,(n12)+140,n,0 flip next for n=-10 to Neg(1) Text 110,(n12)+140,n,0 flip next for n=-10 to -1 // Very broken! Text 210,(n12)+140,n,0 if n==-5 then Text 310,(n12)+140," Yep!",0 if -3==n then Text 310,(n*12)+140," NOooOoOOoooOoooOO!",0 // This one still doesn't work. flip next --v This used to be much more broken!! Print -5 --v This still doesn't work, though, and displays 5, not minus 5. -=-=- ''Load, Next List!''
Sat, 26 Jun 2021, 07:57
Jayenkai	Todo List Super Important (Note : This assumes I did today's fixes properly, and they didn't bugger anything else up!) 1. The Minus big still exists. It's definitely getting better, but it also definitely still exists. .. I also might've made it worse in some scenarios, and I'm relying on others to spot the bugs!! 2. And/Or are sometimes a bit glitchy. Use brackets where necessary. 3. NOT does NOT work. It tries to, but it's rubbish! Slightly Important 1. The Array Shuffle and Sort commands only work with Single-Dim arrays. I should really make them work with Multi-Dims, too, but .. good lord, the maths involved!!! 2. Tilemap Collisions need added in. Not sure of the best way to handle those. I'd need to assign each tile a shape, I think, and whether it's solid or not..? Not sure.. 3. nth, or Ordinals. I can't seem to find a Javascript Locale-based way to do these, and it's ever-so-slightly annoying me!! 4. Notifications/Requesters/etc would be nice to have as a standard feature. -=-=- That's all I have left on my important-checklist, though Optimisation would also be kinda handy. I also need to figure out if I can do Syntax Highlighting. I've tried several methods, each one with its own unique selection of fail-points. For now "I'm" ok without it, but I'm around 95% sure that other folk aren't!! But.. Yeah, it's definitely getting into the "good" side of broken, now Feel free to attempt to write a game, and I'll stick it onto the "Play" disk! -=-=- ''Load, Next List!''
Sun, 27 Jun 2021, 03:32
Dan	Just for the info: ; Blitz3D Graphics 640,480,32,2 Print GraphicsWidth Print GraphicsWidth() GraphicsWidth=10 Print Print GraphicsWidth Print GraphicsWidth() WaitKey() --v It does work in blitz3d when you use it as a variable ...
Page : 1 2 3 4 5 6 Prev 7 8 Next 9 10 11 12 13 14

Pop The Lock

Latest Update

Strings

Arrays

Numbers

Squishy Balls

Today's Fixings

First Bracket

Missing Brackets

Minus

Todo List

Super Important

Slightly Important