JSE - Jay's Scripting Engine

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|516\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> JSE - Jay's Scripting Engine
Page : 1 2 3 4 5 6 7 8 9 10 11 12 13 Prev 14 Next
Fri, 03 Jun 2022, 06:12
Jayenkai	Found it! When reading from the file, it's assuming they're strings instead of floats. If you wrap things into floats, it works fine.. Eg ax=Float(ReadFile(ding)) Ok, so I'll have to add in ReadFloat, ReadInt, etc.. -=-=- ''Load, Next List!''
Fri, 03 Jun 2022, 06:31
Pakz	Ok, that I had not thought of yet. During hunting for bugs I found a new one. Here if I disable one new dim. There are no debugging messages. If I enable the dim then there are debug messages. The ' tmplx(20)' one // racing take over // by Pakz001 // Created 2022/5/ debugmode on Graphics 512,512,2 .start maxcars=1 dim quick(maxcars,maxcars+1) // list of closeby cars around each car (optimalisation) dim cars(maxcars,20) dim tmpcars(maxcars,20) dim lx(20) dim ly(20) dim tmplx(20)//disable this one for no debug messages dim tmply(20) num= 0 for a=359 to 0 step -(359/5) lx(num)=screenwidth()/2+(cos(a)2000) ly(num)=screenheight()/2+(sin(a)2000) lx(num)=lx(num)+rand(-400,400) ly(num)=ly(num)+rand(-400,400) ly(num)=ly(num)*.6 num=num+1 next --v
Fri, 03 Jun 2022, 06:54
Jayenkai	Yeah, I'll have to work out how to do error messages like that.. Currently the language has a tendency to ignore and carry on regardless for a LOT of quirks. (Very much NOT Strict mode!) In this case, if you don't Dim an array, it won't whinge when it comes across it. It just .. sort of steps over it, and ignores it! When you DIM, the parser runs through looking for the name of the dim, and converts any code from eg MyArray(2)="bee" to SetArray("bee",MyArray,2). (Or something like that, can't remember the exact order) There's also a similar GetArray, too. When you DON'T dim the array, none of that gets set up, and when the parser encounters weird things like MyArray(2) it just kinda goes "I don't know what to do with this!!" and steps right on over it! -=-=- ''Load, Next List!''
Fri, 03 Jun 2022, 07:02
Pakz	It is fun. But frustrating when things do go according to plan I started this morning to go and capture the game state just before a bug happens. I just got it working. It is close to dinner now though Now when I press the 'b' key the game resumes at a point where ' sometimes' a bug occurs. See if I can add some code to prevent the cars driving through each other!
Fri, 03 Jun 2022, 13:13
Jayenkai	// Collide Example // by Jayenkai // Created 2022/6/3 // GotoJSE.com/QPd3m7ht.BAS Symbol 0,"0__4_C!44C!44C!44C!44C!44C!4_"; #CONST $Objects=50 Graphics 512,512,2 Dim obj($Objects,10) for b=0 to $Objects obj(b,1)=Rand(0,ScreenWidth()) obj(b,2)=-Rand(100,500) obj(b,3)=Rnd(-0.5,0.5) obj(b,4)=Rnd(1,4) obj(b,5)=Rnd(0,360) obj(b,6)=Rnd(1,4) obj(b,10)=0 next Repeat CLS SetCol 100,180,255 COL_Stasis=Oval(MouseX(),MouseY(),150,150,32) // Draw the oval, and also store it's collision data into the COL_Stasis variable. for b=0 to $Objects SetRot obj(b,5) obj(b,10)=DrawImg(obj(b,1),obj(b,2),0,b mod 8) // Draw and place the Object's area into obj(b,10) caught=Collide(COL_Stasis,obj(b,10)) // Check Oval vs Object if caught==0 obj(b,1)=obj(b,1)+obj(b,3) obj(b,2)=obj(b,2)+obj(b,4) obj(b,3)=obj(b,3)0.8 if obj(b,4)<4 then obj(b,4)=obj(b,4)+0.5 if obj(b,4)>4 then obj(b,4)=obj(b,4)-0.25 obj(b,5)=(obj(b,5)+obj(b,6)) mod 360 endif if caught==1 then obj(b,4)=0:obj(b,3)=0 // Reset Object to top of screen if obj(b,2)>ScreenHeight() then obj(b,1)=Rand(0,ScreenWidth()) obj(b,2)=-100 obj(b,3)=Rnd(-0.5,0.5) obj(b,4)=Rnd(1,4) obj(b,5)=Rnd(0,360) obj(b,6)=Rnd(1,4) obj(b,10)=0 endif next for b=0 to $Objects for m=0 to $Objects if obj(m,2)>obj(b,2) if Collide(obj(b,10),obj(m,10)) // Check the collision of every object against every other object obj(m,4)=obj(m,4)+Rnd(0.5,1.5) obj(b,4)=obj(b,4)-Rnd(2,5):obj(b,3)=(obj(b,1)-obj(m,1))0.2 endif endif next next Flip Forever --v OK, the new collision detection functionality is in. The main draw commands (Rect, Triangle, Oval, DrawImg, Line, Plot) now have return values, which reference their associated collision value.. So if you do, say "MyCollision=DrawImage(10,10)" then "MyRectCollision=Rect(100,100,200,200)", then you can test for a collision between those two items using "Result=Collide(MyCollision,MyRectCollision)" It's not quite flawless, yet. In the example above the images vs the oval are being a little bit generous with their collision, leaving a slight gap between the two. Rectangles won't rotate, but they never did anyway, so that's ok. Anything "Oval" will assume a circle, so you can't collide hexagons, etc. Text doesn't yet collide. I need to double-check everything before I can do that. But otherwise it's a fairly decent start. Here's my original test engine.. Click to change the object at the mouse cursor. > Reveal 🔎 // New Collision Testing // by Jayenkai // Created 2022/5/30 // GotoJSE.com/n7dV86L9.BAS Symbol 0,"0__4@I/4/I44I.4I44I44I4I44I4.I44I!4_"; DebugMode On a=0 Graphics 1024,600,1 Repeat CLS 30,30,80 SetAlpha 0:Col_text area=Rect(jscrw0.5,jscrh-32,256,32,1) ResetDraw SetRot Mills()0.1 Col_Rect=Rect(64,64,100,100,0) Col_Rect2=Rect(200,200,100,100,1) SetCol(50,50,50); Col_Tri=Triangle(400,64,200,100) Col_Tri2=Triangle(500,200,400,100) SetCol(255,255,255); Col_Oval=Oval(700,64,40,40,32) Col_Oval2=Oval(800,200,200,200,6) Col_Line=Line(100,400,300,300) Col_Line2=Line(400,300,600,400) SetSize 1,3 Col_Image=DrawImg(700,350,0) Col_Image2=DrawImg(850,400,0,2) Col_Plot=Plot(50,450) Col_Plot2=Plot(70,450) //ResetDraw;SetFontSize 16 //Col_Text=Text(400,450,"Hello Collision Test",1) // Collision doesn't currently work for text. ang=(Mills()0.06) mod 360 lw=32 SetSize 2 SetRot 0-(Mills()0.04) SetCol(100,255,100) if a==0 then Col_Mouse=Point(MouseX(),MouseY());SetAlpha 0.3;Oval(MouseX(),MouseY(),16,16) if a==1 then Col_Mouse=Rect(MouseX(),MouseY(),32,32,1) if a==2 then Col_Mouse=Triangle(MouseX(),MouseY(),32,32) if a==3 then Col_Mouse=Oval(MouseX(),MouseY(),32,32) if a==4 then Col_Mouse=Line(MouseX()+Sin(ang)lw,MouseY()-Cos(ang)lw,MouseX()+Sin(ang+180)lw,MouseY()-Cos(ang+180)lw) if a==5 then SetSize 2,1:Col_Mouse=DrawImg(MouseX(),MouseY(),0,6) //if a==6 then Col_Mouse=Text(MouseX(),MouseY(),"Text",1) if MouseHit() then a=(a+1) mod 6 ResetDraw x=jscrw*0.5;y=jscrh-32 if Collide(Col_Rect,Col_Mouse)>0 then Text x,y,"Left Box",1 if Collide(Col_Mouse,Col_Rect2)>0 then Text x,y,"Right Box : Centered",1 if Collide(Col_Tri,Col_Mouse)>0 then Text x,y,"Left Triangle",1 if Collide(Col_Mouse,Col_Tri2)>0 then Text x,y,"Right Triangle",1 if Collide(Col_Oval,Col_Mouse)>0 then Text x,y,"Left Oval",1 if Collide(Col_Mouse,Col_Oval2)>0 then Text x,y,"Right Oval",1 if Collide(Col_Line,Col_Mouse)>0 then Text x,y,"Left Line",1 if Collide(Col_Mouse,Col_Line2)>0 then Text x,y,"Right Line",1 if Collide(Col_Image,Col_Mouse)>0 then Text x,y,"Left Image",1 if Collide(Col_Mouse,Col_Image2)>0 then Text x,y,"Right Image",1 if Collide(Col_Plot,Col_Mouse)>0 then Text x,y,"Left Pixel",1 if Collide(Col_Mouse,Col_Plot2)>0 then Text x,y,"Right Pixel",1 if Collide(Col_text area,Col_Mouse)>0 then Text x,y,"!Down Here!",1 Flip Forever --v Note : New collision methods may be slower than old collision methods. As such, in most cases, you might be better off using the old commands. They've been left there, in case you do. -=-=- ''Load, Next List!''
Fri, 03 Jun 2022, 14:02
Pakz	Looks impressive. The top example code looks a bit complex Those triangle and rotating boxes can come in handy.
Sat, 04 Jun 2022, 04:36
therevillsgames	Next up Box2D JSE!
Sat, 04 Jun 2022, 04:45
Jayenkai	// Crates // by Jayenkai // Created 2022/6/4 Symbol 0,"14_P_P_P_P?D_D/QQRRQQRRJRQRRJQ.RRQQRRJRQRRJQ.RRQQRRJRQRRJQ.RRQQRRJRQRRJQ.RRQQRRJRQRRJQ.RRQQRRJRQRRJQ.RRQQRRJRQRRJQ.RRQQRRJRQRRJQ.RRQQRRJRQRRJQ.RRQQRRJRQRRJQQD_D/P_P_P_P?"; Symbol 1,"14_0_0_0_0_0_0_0_0/RR0_0?RR0_0?RR0_0?RR0_0!RR0_0?RR0_0!RR0_0?R,0_0?RR"; #CONST $Boxes=25 Dim Box($Boxes,10) Graphics 512,512,2 Repeat CLS Collide_Pointer=Plot(MouseX(),MouseY()) h=MouseHit() for b=0 to $Boxes if Box(b,0)==0 and Rnd(0,100)<10 Box(b,1)=Rand(32,ScreenWidth()-32) Box(b,2)=0-Rand(64,128) Box(b,5)=Rand(0,360) Box(b,0)=1 endif if Box(b,0)==1 SetSize 2,2 if (b mod 5)==1 then SetSize 1,2 if (b mod 5)==3 then SetSize 2,1 SetRot Box(b,5) SetAlpha(0) Box(b,7)=DrawImg(box(b,1)-7,Box(b,2)+2) Box(b,8)=DrawImg(box(b,1),Box(b,2)+8) Box(b,9)=DrawImg(box(b,1)+7,Box(b,2)+2) SetAlpha(1) Box(b,6)=DrawImg(box(b,1),Box(b,2)) f=2 for m=0 to $Boxes if m<>b and Box(m,0)==1 if Collide(Box(b,8),Box(m,6))==1 and Box(b,2)<Box(m,2) then if Collide(Box(b,7),Box(m,6))==0 then f=1 if Collide(Box(b,9),Box(m,6))==0 then f=3 if f==2 then f=0 endif endif next if box(b,2)>jscrh-16 then f=0 if f==1 then Box(b,2)=Box(b,2)+2:Box(b,1)=Box(b,1)-4:Box(b,5)=Box(b,5)-jRnd(3,6) if f==2 then Box(b,2)=Box(b,2)+6 if f==3 then Box(b,2)=Box(b,2)+2:Box(b,1)=Box(b,1)+4:Box(b,5)=Box(b,5)+jRnd(3,6) if box(b,1)<-32 or box(b,1)>jscrw+32 then box(b,0)=0 if Collide(Collide_Pointer,box(b,6)) and h then h=0 For q=0 to 32 ThrowParticle box(b,1),box(b,2),2,Rand(0,360),Rnd(0.5,2),1 Next Box(b,0)=0 endif endif next SetParticleSize 32 Flip Forever --v (Collisions work, but my physics code is bloody awful!!) -=-=- ''Load, Next List!''
Sat, 04 Jun 2022, 05:30
Pakz	If you ever feel like adding something special for data. A hash table like the one used in Lua is great. Infinite size. Quick lookups. Small.
Sat, 04 Jun 2022, 05:47
Jayenkai	How would you use it? Write a little fake example of what you want and how you'd use it. -=-=- ''Load, Next List!''
Sat, 04 Jun 2022, 06:02
Pakz	Well. I had a 2d space game and could just create a area say at map position 500,500 width a width and height of 100,100. Everything else in the table would just read nill and use no memory. I can create a huge map in that way by just leaving everything empty and populating certain area's. You just create a array but without a dimension. This is infinite. Dim spacemap( , ) Spacemap(10000,10000) = 1 // spacebase Print spacemap(-1000,-1000) // It can go negative too! // prints Nil Print spacemap(10000,10000) // prints 1 --v Then you can read any number from there. If there is nothing inside then it reads Nil. If there is anything in there. Then it returns the value. It works with strings in a similar way. Just populating the strings where they are at. This works different than Dim though. Insert and remove and such. I mostly like the infinite dim feature of it all. You could call them infinite arrays? Edited...edit2
Sat, 04 Jun 2022, 06:17
Jayenkai	Yeah, that might be a memory issue. I'm already using a ton of memory behind the scenes!! -=-=- ''Load, Next List!''
Sat, 04 Jun 2022, 06:20
Pakz	Yes. That is where those hash functions come in. They store only the used data. I have found some code before. Not sure where I found these. I need to look. Edit: Quick lookup: no idea if this is useful. I only ever used this when it was implemented already. https://www.freecodecamp.org/news/javascript-hash-table-associative-array-hashing-in-js/ Edit. More reading. That infinite array is called a Sparse array Apearantly. They can go negative too. Javascript supports it.
Sat, 04 Jun 2022, 10:44
Pakz	I did some testing in javascript and the example above is supported by javascript. At least on the ios browsers. This is called sparse arrays. let universe = []; universe[-5000,5000,100]=1999; universe[-5000,-10000000,50] = -3000; universe[0,0,0] = 500; --v Anything called from unused slots is returned as Default on my ios browser. The array size is returned as the most positive or negative slot used.
Sat, 04 Jun 2022, 11:35
Jayenkai	I think you're probably hitting a limit of what JSE was meant to be. -=-=- ''Load, Next List!''
Sat, 04 Jun 2022, 12:46
Pakz	One quick bug. On the iphone. The "" characters for strings are not on the on screen keyboard. It auto selects a opening " and uses and closing " after that. Jse wil not compile with these quotation marks. If i copy them from the docs it does compile. Maybe I can find a setting somewhere. But at default it does not have it. There is a setting for this I just noticed.
Sat, 04 Jun 2022, 12:48
Jayenkai	Example.. // What a Big Array // by Jayenkai // Created 2022/6/4 Graphics 512,512,1 Dim Huge(1024,1024,10) Start=Mills() for x=0 to 1024 for y=0 to 1024 for n=0 to 10 Huge(x,y,n)=Rnd(0,10) next next next Print Left$(Mills()-Start)/1000,5)+" seconds" --v ALL this is doing is flood-filling an array of "only" 1024x1024x10 elements. In "Javascript" this would take about 0.2 seconds. I regularly do this in both Browsercade and Shoebox, between levels, or when switching games and such. In JSE, though, you're not only battling the memory, but also just how long those for-loops ACTUALLY take for an interpreted language like this. Even with an infinite amount of memory, it's just going to be completely unusable with the speed of the language itself. Even my "biggest" game, Futrino Emissions takes about 4 or 5 seconds to build a level, and that's only 160x160 tiles in size. There just isn't any real-world value in making you wait longer and longer for large arrays like that. I know "It could be useful for x/y/z", but honestly if you're finding that, you're probably better off not doing the task in JSE. JSE's not THAT powerful!!! -=-=- ''Load, Next List!''
Sat, 04 Jun 2022, 12:58
Pakz	Javascript arrays are a hash table in itself I think. You have access to any configuration by just writing into it. It only uses memory if you create something in the array. If you put one integer at -10000 them it is the same as creating a single item array. It is a linked list system or something like that. You do not have to fill every item in the array.
Sat, 04 Jun 2022, 13:02
Jayenkai	OK, what would you use it for? (Bugfix for unicode issue uploaded, refresh for the fix) -=-=- ''Load, Next List!''
Sat, 04 Jun 2022, 13:29
Pakz	It is a memory saver for one. You can have a tilemap and tilemap layers and it only uses memory for the tiles that are set. Anything not used used in the arrays uses no memory and return a default empty. I have a space game where I could theoretically just fly forever. Generating points of interest in the space around me. There is no need to code a complex system. I stil have no clear idea how to code huge worlds without these unlimited arrays. You do not have to create a array and set its bounds and fill the memory first. You create it while you first use anything in it. I have only discovered this feature last year. So I have not many use examples yet and might not be able to explain its potential. Edit: no more array out of bounds errors and negative array values
Sun, 05 Jun 2022, 04:48
Jayenkai	// The Vastness of Space // by Jayenkai // Created 2022/6/5 Graphics 1024,600,1;Border 30,30,90 #CONST $MaxStars=1024 Dim Star($MaxStars,2) // 512 Stars Bits="" for m=1 to 26 l=Chr(m+64) if l=="k" or l=="q" then l="t" if l=="c" then l="s" Bits=Bits+l+"a"+l+"e"+l+"i"+l+"o"+l+"u" next GalaxySeed=1 Gosub MakeGalaxy Repeat CLS;ResetDraw pick=-1 COL_Mouse=Plot(MouseX(),MouseY()) For s=0 to $MaxStars SetAlpha 1:Plot(Star(s,1),Star(s,2)) SetAlpha 0:if Collide(COL_Mouse, Rect(Star(s,1),Star(s,2),4,4,1) ) then pick=s Next if pick>-1 CLS;ResetDraw SeedRnd pick+(GalaxySeed$MaxStars) // Reset PseudoRandom numbers for that star system cx=ScreenWidth()/2:cy=ScreenHeight()/2 InkRot Rnd(60),1,1 Oval cx,cy,Rnd(4,32) Gosub GetName SetFontSize 12 Text cx,cy+32,Name,1 dist=Rnd(48,96) planets=Rand(1,9) for p=1 to planets ang=Rnd(0,360)+(Mills()0.05)Rnd(0.25,1.5) dist=dist+Rnd(16,48) size=Rnd(4,10) SetCol 96,96,96 DrawOval cx,cy,dist2,dist2,64 SetHue Rnd(360),Rnd(0.2,0.7),Rnd(0.5,0.9) dx=cx+Sin(ang)dist dy=cy-Cos(ang)dist Oval dx,dy,size,size SetFontSize 8 Gosub GetName Text dx,dy+size,Name,1 next Endif if GamePad(ButtonLeft) or GamePad(ButtonDown) then GalaxySeed=GalaxySeed-1:Gosub MakeGalaxy if GamePad(ButtonRight) or GamePad(ButtonUp) then GalaxySeed=GalaxySeed+1:Gosub MakeGalaxy ResetDraw:SetFontSize 8 Text 0,ScreenHeight()-12,GalaxySeed,0 Flip Forever .MakeGalaxy if GalaxySeed<1 then GalaxySeed=1 if GalaxySeed>37171650 then GalaxySeed=37171650 SeedRnd GalaxySeed // Change this number to get a different galaxy for s=0 to $MaxStars Star(s,1)=Rnd(16,ScreenWidth()-16) Star(s,2)=Rnd(16,ScreenHeight()-16) next Return .GetName Name="" l=Rnd(3,8) For m=1 to l Name=Name+Mid(Bits,Rand(0,255)*2,2) if ((m==3 or m==4 or m==5) and Rand(0,1)==1) then Name=Name+" " next Name=Trim(Title(Name)) return --v Whenever I try to code something vast, I try to keep one key thing in mind. A ZX Spectrum only had 48kb, and yet it managed to hold the entire universe of Elite. Instead of storing everything, randomise it. Use the power of Random Seeds to generate everything on the fly, as and when you need it. In the above example, the galaxy is popped into an array, but once you hover the mouse over a star, that star's system is pseudo-randomly generated, as are the names of the system and its planets. Hold up and down to flick through millions of different galaxies. -=-=- ''Load, Next List!''
Sun, 05 Jun 2022, 06:19
Pakz	Thats interesting. I could just generate a tile map in stead of the solar system.
Page : 1 2 3 4 5 6 7 8 9 10 11 12 13 Prev 14 Next