JSE - Jay's Scripting Engine

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|538\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> JSE - Jay's Scripting Engine
Page : 1 2 3 4 5 6 7 8 9 10 11 12 Prev 13 14 Next
Fri, 07 Jan 2022, 02:50
Jayenkai	Okey-dokey. Will do. First I need to create my own dialogue box, though. Currently the system dialogue box that pops up when deleting a project takes over the audio on iOS devices, muting the engine completely. It's frustrating as hell!! (The upload button now only appears after you've edited the code. If it isn't popping up, stick a random space in there!!) -=-=- ''Load, Next List!''
Fri, 07 Jan 2022, 07:18
Jayenkai	New Requesters have now been implemented, looking authentically 80's in their retro stylings. Let me know if the requesters are broken in any way. Additionally, I've switched out the Debug window from a plain div to a text area, so you can copy+paste from it a little easier. -=-=- ''Load, Next List!''
Fri, 07 Jan 2022, 08:05
Dan	Looks great !
Fri, 07 Jan 2022, 15:35
Afr0	Can you use this to make MMOs? Just curious, not really trying to branch out to other MMOs than the one Iâ€™m working on. -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Fri, 07 Jan 2022, 16:02
Jayenkai	Everything's self contained and there are no ways to link up to other systems/servers, so.. no, not really. Plus, with it being browser based, it's piss easy to cheat the thing. Open up the dev console, type in a few random variable tweaks, and you're done. I'm not sure if browser-based stuff could ever be truly secure, unless it's server based with the browser being merely a "window" to view what the server says is happening. -=-=- ''Load, Next List!''
Sun, 29 May 2022, 08:57
Dan	Looks like the CollideRectToRect is not checking the coordinates in the way (starting point x,y + width + height) but in the centered square position ?! // Bug-CollideRectToRect // by dan // Created 2022/5/29 Graphics 512,512,1 Repeat CLS Print MouseX()+" / "+MouseY() print "c="+c1+" / "+c2+" / "+c3+" / "+c4 print "d="+d1+" / "+d2+" / "+d3+" / "+d4 c1=62 c2=86 c3=7 c4=10 d1=59 d2=190 d3=18 d4=200 SetCol 255,0,0 Rect(c1,c2,c3,c4,1) SetCol 255,128,0 Rect(c1,c2,c3,c4,0) SetCol 0,255,0 Rect(d1,d2,d3,d4,0) SetCol 0,255,255 Rect(d1,d2,d3,d4,1) If CollideRectToRect(d1,d2,d3,d4,MouseX(),MouseY(),1,1) then Text 100,100,"Collision";SetCol 255,0,0 Flip Forever --v As you can see in this example, the mouse it triggering the cyan rectangle, instead of the green one.
Sun, 29 May 2022, 09:06
Jayenkai	Aaah, good call. I tend to use the middle for a lot of my stuff, but you're right, in that instance.. That's "wrong" If I add a "centered" parameter, now, it'll break it more in anything written before the change. I could also really do with renaming all the collision methods. I hate how they're so darn long, name wise. Any thoughts/suggestions? -=-=- ''Load, Next List!''
Sun, 29 May 2022, 09:38
Dan	Uhm in blitzbasic, you can add a function parameter with default value center=1 then you could write the function like function CollideRectToRect(x,y,w,h,c=1) if c=0 else end if End Function --v In that way you need only to write the collision detection with correct values for the non centered version. Or add a new function ? Maybe something like CollideRectToRectCoords
Sun, 29 May 2022, 10:09
Jayenkai	Hmmm.. What if it were more... Collide(Rect(x,y,w,h,1),Rect(x,y,w,h,1)) And then that handles ovals, lines, rects, points ... That'd work better, right? I might have to have a nosey and see if that's even a doable thing.. the parser might rip out the Rect before the collide reaches it.. Hmmm... -=-=- ''Load, Next List!''
Sun, 29 May 2022, 17:04
Jayenkai	idea ferments Ok, if this works, I think it'll be neat, but.. it'll likely take a few days to get working. I'll get back to you asap -=-=- ''Load, Next List!''
Mon, 30 May 2022, 08:41
Jayenkai	OK, I think this is a viable way to go. Once done, it "should" work as easily as.... CollisionPlayer=DrawImage(PlayerX,PlayerY,PlayerFrame) CollisionWall=Rect(100,100,200,200) if Collide(CollisionPlayer, CollisionWall) Then Print "OMG! Wall" if Collide(CollisionPlayer, Rect(400,100,400,100) ) Then Print "OMG! What is This?" --v Or at least, that's the plan. Currently* unrotated rectangles (my rectangle drawing code isn't rotating!?!) and plot/point objects are colliding and nothing more. But the groundwork's in, and the rest should swiftly follow. *Note : On my version on my Mac, not on the version online yet! -=-=- ''Load, Next List!''
Mon, 30 May 2022, 13:53
Jayenkai	Gosh, I'm pulling my hair out doing all this collision detection stuff!!! So far today I've got a point colliding with Rect, Oval, Triangle, Line, Plot, and Image. ... mostly.. Rects don't rotate? I could've sworn Rects rotated. Guess not. Need to recode those. Ovals collide as long as they're circles and not ovals! Lines and Pixels collide, but .. .. you know.. they're tiny! Images only collide as squares, so if you stretch one it doesn't collide correctly. .. Really, the only thing that collides with a pixel correctly is the Triangle. And, god only knows why!!! This'll probably take all week to get right. I have to collide other shapes with those shapes, next, instead of just pixels, and I'm dreading doing Rotated Rectangle vs Rotated Rectangle maths!!! Aaaah! *again, test not uploaded yet! -=-=- ''Load, Next List!''
Tue, 31 May 2022, 03:26
AndyH	good luck!
Tue, 31 May 2022, 04:10
Pakz	I bought this book on 2d collision detection once and tried to convert every method to monkey-x. The book is by Thomas Schwarlz. (10 dollars ebook) My github repo for monkey-x has a a part of these working. Not sure if I got rotating rects collision working. I had to convert from c++, which I had no experience with then.
Tue, 31 May 2022, 12:53
Jayenkai	FYI : Haven't done anything on this, today. My head was screaming at me to make a game instead of doing all the maths! Maybe tomorrow..!? -=-=- ''Load, Next List!''
Wed, 01 Jun 2022, 06:52
Pakz	I have a small problem. I tried to edit on the ipad using a bluetooth keyboard. There is no compile button, or even top bar when the keyboard is connected.
Wed, 01 Jun 2022, 08:55
Jayenkai	There isn't? That seems.. odd.. Why would it change? I'll stick my keyboard on charge and try it out later. Ctrl+R or Ctrl+F5 should run, but that depends on whether iOS lets you do either of those. -=-=- ''Load, Next List!''
Wed, 01 Jun 2022, 09:07
Pakz	I just tested. You can reproduce by first using the onscreen keyboard. Then activate the text screen. It goes into a topbar less mode. Then activate the external keyboard. This switches into a different mode and then there is no top bar and compile buttons.
Wed, 01 Jun 2022, 11:38
Jayenkai	Aye, I think it's this extra bottom bar they've added on. (I'm going to assume you see this, too..?) The "screen" has been given extra padding at the bottom by the browser, to allow that new bar to appear without it permanently covering up anything important. The unforeseen consequence of this is that the extra padding at the bottom makes the top bump up above the top of the screen. You "should" be able to drag the very right hand side of the screen down a little bit. If you try to grab the right side of the text entry box, you should be able to drag the screen back down a bit. I could force a "Top:0px" but I'm worried that might then end up chopping off the bottom, too. So.. um.. I think it might be better to "not" try to fix this. Just in case. Of course, if you can't scroll it, then I'll definitely need to fix it, so let me know if you can. Also, yes, Ctrl+R should work for Run/Stop, (does on mine!!) but you'll still have the top of the screen missing if you can't scroll it, and once it's running, it's hard to fix it. .... Grrr.. -=-=- ''Load, Next List!''
Wed, 01 Jun 2022, 11:44
Pakz	Yes. If I scroll at the most right. I can get that top bar out.I think that wil work. I have another bug though. Again with dimensions I think. The debug window gives me out of bounds here. If you put the lx and ly into a regular variable there is no out of bounds. // New Project // by <Your Name Here!> // Created 2022/6/1 Graphics 512,512,1 Print "Hello World" maxcars = 2 dim cars(10,10) dim lx(10) dim ly(10) for i=0 to maxcars cars(i,0)=cars(i,0) + lx(0) cars(i,1)=cars(i,1) + ly(0) next --v
Wed, 01 Jun 2022, 11:49
Jayenkai	Oooh, that's a definite parsing error.. It's holding onto the second parameter from that cars(i,1), so is assuming ly(0,1) for some reason. (You can tell, if you change it to cars(i,2) then the error message increases that value, too. OK, I'll have a look into that. -=-=- ''Load, Next List!''
Wed, 01 Jun 2022, 16:14
Jayenkai	OK, tweaked+reuploaded.. Once again, this is a parser tweak, so although I don't believe I've broken anything too important, be sure to let me know if I inadvertently did. v3.ggj -=-=- ''Load, Next List!''
Fri, 03 Jun 2022, 03:51
Jayenkai	New Collision Progress. To make it easier to get all the other methodology done, I rewrote most of what I wrote the other day, so that it's a little more reusable. Gosh, what a mess this code is!!! I'm trying to get things as optimised as I can, which isn't all that easy given there's tons of shapes and trigonometry to do, but .. It's definitely getting better. The "Symbol to Point" collision is now much better than it previously was. Having to multiply values by 0.725 is a bit odd, though. Not sure why I'm having to use that number! Baffling myself with my own code. Might be done by Monday. I hope.. Because all of this maths has given me a right bugger of a migraine. -=-=- ''Load, Next List!''
Fri, 03 Jun 2022, 04:56
Pakz	I'm currently having a problem with the loadfile feature. When I save my game state and reload it from memory. It resumes correctly. But then I use loadfile it does not. I was trying to create a clean minimal file. But I'm still working on that. Maybe @jay you know it by just knowing what the problem is? Maybe a file size issue? Floating points and what not. The loadfile (enabled or disabled) is in the .loadstate gosub at the bottom. The .savestate is above that. In the game press ' a'. To store the state. And ' b'. To restore the state. // racing take over // by Pakz001 // Created 2022/5/27 // // Debug build. Press b to reload state. State is saved to disk by pressing a. // // Usage : press a every now and then. When a bug appears you then can press b to see if you have // catched it and if it reoccurs. The state is saved to disk and you can start to investigate. // // Symbol 0,"1__0_0/S.0!S,vw0vQQRS!QQRvw0vQv,x.vvQRvw0vQvxxv,x,RQRvwvQvxxv,x,vRQvwvQvxxv,x,vRRvwvQvxxv,x,vRRvwvQvxxv,x,vRRvwvQvxxv,x,vRRvwvQvxxv.xxvRSvwvQv,x.vvSSvw0vRSv/S,vw0v?w?v.w00w_w.0?w_w"; Symbol 1,"1__SRQ,R!Svw00SQv_Svw00SQv_Svww0SQvx/vSvww00Svx/v,ww00Sxv/xvw,00Sxv/xvw,00Sxv/xvw,00Sxvx?vxvw,00Svx/v,ww0SSvx/vSvww0SRRv/SSvw00SRQ.R.SSvw00SRQ.R.SSvw0,vvRQQR.vvw0.wwv/ww"; Symbol 2,"1__0_0@S.0!S.00SRQRS!RQQS00SRQvvx.v,Qv0SRQvxxv.xxvRvwSQQvx,v,xxvSvwSQQvx,v,xxvSvwSQQvx,v,xxvSvwSQQvx,v,xxvSvwSRRvx,v,xxvSvwSSRvxxv.xxvSvw0vRRvvx.v,Svw0S.v/SSvw0v.w?v?w0w_w!0?w/"; Symbol 3,"1__0,S/0/SSRQ?RSSw0,SRQ/RRSvw00SRQQR/Svw00SRRv/RSvw00SSvx/vSvww00Svx/vvw,00Sxvx?vxvw,00Sxv/xvw,00Sxv/xvw,00Sxv/xvw,00Svx/vvw,0SQvx/vSvww0SQv_Svww0SQv_Svw00SRS_Svw"; Symbol 20,"1__Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y.Z_Z/;z_z?wzy_y?xzy_y?v_v@w_w_w_w_w_w_w_w"; Symbol 21,"1__y.wxxvvZZY?y.w:zyvZZY?y.v:yyvZZY?y.vzyyvZZY?y.vzyyvZZY?y.vzyywvZY?y.wwyyvvZZY.y.xvyvwywZvZ,y?xvwy.zzwwy!wvy!xxy!xwvvy?vy/xwwv!y@xxw!y_yw!y_yyxw.y_y,xw,"; Symbol 22,"1__y?wxxvvZZY.y?w:zyvZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY.y?wy,vZZY."; Symbol 23,"1__Y/wwxvvwwyyY/zy,vwwyyY/zy,vwwyyY/zy,vwwyyY/zy,vwwyyY/zy,vwwyyY/wyyvw,yyY!zwvyvw,yyz?y,wvw.yyxxy!vw.xyyvy?vvw.xy,v!w?xy.xw_xy@xw.xy_y_y_y_y,"; Symbol 24,"1__Y!Zxxwvvw.Y!Z:zyyvw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw."; Symbol 25,"1__y_y_y_y_y_y_y_yw_w/:z_z?xzy_y?xzy_y?v_v@Z_Z_Z_Z_Z_Z_Z_ZY_Y_Y_Y_Y_Y,"; Symbol 26,"1__y_y_y_y_y_y_y_y_yw/y@wz!vy/wzy!xy!wzwy.zzwy?wzyvwywZvZZy?wzyyvvZZY,y.wzzyywvZY.y.wzzyyvZZY.y.wzzyyvZZY.y.wz:yyvZZY.y.wz:zyvZZY.y.wzxxvvZZY."; Symbol 27,"1__y_y_y_y_y_y_y_yw!y_y:z?w,xy!xy/w,xy.z?y,wzwwxy,Y!zwzyzwwxyyY/wyyzw,yyY/zy,vwwyyY/zy,vwwxyY/zy,vw,yY/zy,vw,yY/zy,vw,yY/wwxvvw,y"; Symbol 50,"1__Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y."; Symbol 51,"1__Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_YvY_Y.vvwY_YYvvwyyY_vvwy.Y/vvwwy.wY?vvwy.zw,Y,vvwy?w?Yvvwy.zw/vy?zw_"; Symbol 52,"1__Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y.Z_Z/;z_z?wzy_y?xzy_y?v_v@w_w_w_w_w_w_w_w"; Symbol 53,"1__Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y.vY_Y!wvvY_Y.yywvvY_YYy.wvvY_wy.wwvvY/w,zwy,wvvY?w?y?wvvY,w/zy.wvvYw_zy?v"; Symbol 54,"1__Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y."; Symbol 60,"1__Y_Y!vY_Y?vyY_Y?vyY_Y.vyyY_Y.vyyY_Y,vy,Y_Y,vyyxY_YYvyyxwY_YYvyyxwY_YvwxywwY_YvywxwwY_vy,w,Y_vyyxvwwY@vy,vw,Y@vyyxvw,Y/vyyxvw."; Symbol 61,"1__y,xw!xy/xw!xy/xw?xxy@w!xy@w!xy_w?xy_yw.xy_yyw,xy_y,wwxy_y.wxy_y?xy_y_y_y_y_y_y_y_y_y_y?"; Symbol 63,"1__y@w.xy_y?wwxy_y!wxy_y!wy_y/wy_y!xy_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y/"; Symbol 64,"1__vvZY_Y.yvvY_Y.yvvZY_Y,yyvvZY_YYyyvvZY_YYy,vZZY_YxyyvvZZY_wxyyvZZY_xxyyvZ,Y@ywyxwvZ,Y/ywxwyvZ,Y/yxwy,vZ,Y!yyvxyyvZ,Y!y,vy,vZ,Y?y,vxyyvZ,Y?y.vxyyvZ,Y."; Symbol 70,"1__Y!Zxxwvvw.Y!Z:zyyvw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw.Y!Zzy,vw."; Symbol 74,"1__y?wxxvvZZY.y?v:zyvZZY.y?wy,vZZY.y?wy,vZZY.y?xy,vZZY.y?wy,vZZY.y?vy,vZZY.y?vy,vZZY.y?vy,vZZY.y?wy,vZZY.y?wy,vZZY.y?xy,vZZY.y?wy,vZZY.y?vy,vZZY.y?vy,vZZY.y?vy,vZZY."; Symbol 80,"1__Y/vyyxvw.Y@vyyxvw,Y@vy,vw,Y_vyyxvwwY_vy,w,Y_YvywxwwY_YvwxywwY_YYvyyxwY_YYvyyxwY_YYvvyyxY_Y,vy,Y_Y,vvyyY_Y,vvyyY_Y.vvyY_Y.vvyY_Y?vv"; Symbol 81,"1__y_y_y_y_y_y_y_y_y_y_y_y_y_y_yywy_y!wy_y!wwy_y?wwy_y!wy_y!xwy_y!xwy_y!xy_y,"; Symbol 83,"1__y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y_y.xy_y?xwy_y.xwy_y.xwxy_y,xwxy_y,xwxy,"; Symbol 84,"1__y.vxyyvZ,Y.y,vxyyvZ,Y?y,vy,vZ,Y?yyvxyyvZ.Y?yxwy,vZ,Y!ywxwyvZ,Y/ywyxwvZ,Y/xxyyvZ,Y@wxyyvZ,Y@xyyvvZ,Y@y,vZ,Y_yyvvZ,Y_yyvvZ,Y_yvvZ,Y_YyvvZ,Y_YvvZ,Y_YY"; Symbol 90,"1__Y_Y?vvY_Y!vY_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y@"; Symbol 91,"1__vy?zwwy/Yvvwy.zwwy?YZZvvwy?wwy,YYZ,vvwy,wzwwyY,Z.vvwwy.wY?Z.vvwy.Y/Z.vvwyyY@Z?vvwY_Z!vY_YZ!Y_Y,Z.Y_Y.Z,Y_Y!ZY_Y_Y_Y_Y_Y,"; Symbol 92,"1__y_y_y_y_y_y_y_yw_w/:z_z?xzy_y?xzy_y?v_v@Z_Z_Z_Z_Z_Z_Z_ZY_Y_Y_Y_Y_Y,"; Symbol 93,"1__y!xwwzy?vy.xwwzy.wvvZyyxwwy?wvvZ,xwwzwy,wvvZ?wy.wwvvZ?YYy.wvvZ!Y,yywvvZ!Y?wvvZ?Y@vZ!Y_Z!Y_YZ.Y_Y,Z,Y_Y.ZY_Y_Y_Y_Y_Y_Y_"; Symbol 94,"1__vvY_Y?vY_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y_Y?"; debugmode on Graphics 512,512,2 .start maxcars = 7 // change this to lower to speed up fps. (8 is 60 fps on ipad pro 2021, 5 = 60 fps on ryzen 4800) // // dim was originall dim cars(10,10) // changing it into dim cars = 5 freezes chrome and needs a close and restart. dim quick(maxcars,maxcars+1) // list of closeby cars around each car (optimalisation) dim cars(maxcars,20) dim lx(20) dim ly(20) cars(0,0) = maxcars160 cars(0,1) = 0 cars(0,2) = 0 // angle cars(0,3) = 0 // currenttrack cars(0,4) = 1 // nxtrack cars(0,5) = 0 // travel cars(0,6) = 0 // frame cars(0,7) = 1 // colour cars(0,8) = 0.1 // mobile cars(0,9) = 0 // mink cars(0,10) = 1 // speed cars(0,11) = 350 // no overtake counter cars(0,12) = 1 // maxspeed cars(0,13)=50//personality Higher is better for i=1 to maxcars cars(i,0) = 350+i96 cars(i,1) = 0 cars(i,2) = 0 // angle cars(i,3) = 0 // currenttrack cars(i,4) = 1 // nxtrack cars(i,5) = 0 // travel cars(i,6) = 0 // frame cars(i,7) = rand(0,8) // colour cars(i,8) = 0.1 // mobile cars(i,9) = 0 // mink cars(i,10) = 1 // speed cars(i,11) = 350 // no overtake counter cars(i,12) = 1 // maxspeed cars(i,13)=rand(1,5)//personality low is easier to take over. next maxquickcnt = 30 quickcnt = maxquickcnt mima=2 carx = 120 cary = 110 carangle = 0 carrotation =0 carframe = 0 mobile = .1 carspeed = 1 carovertake = 0 carmaxspeed = 0 carpersonality = 0 camx=0 camy=0 current = 0 // current car for camera //carx = 0 //cary = 0 //carangle = 0 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 for i=0 to maxcars a=lx(0) b=ly(0) cars(i,0)=cars(i,0) + a cars(i,1)=cars(i,1) + b next camx = cars(0,0)-(screenwidth()/2) camy = cars(0,1)-(screenheight()/2) currenttrack = 0 nxttrack = 1 restart = 6000 travel=0 o=0 ax=0;ay=0;bx=0;by=0;cx=0;cy=0 //gosub savestate //gosub loadstate gosub makequicklist repeat if keydown(asc("A")) then gosub savestate debug camx endif if keydown(asc("B")) then gosub loadstate debug camx endif quickcnt=quickcnt-1 if quickcnt<1 then quickcnt = maxquickcnt gosub makequicklist endif cls 50,150,20 setcolor 100,80,90 // draw track lines setthick 128 drawline lx(0)-camx,ly(0)-camy,lx(0)-camx+1600,ly(0)-camy for i=0 to 3 drawline lx(i)-camx,ly(i)-camy,lx(i+1)-camx,ly(i+1)-camy next drawline lx(4)-camx,ly(4)-camy,lx(0)-camx,ly(0)-camy setthick 1 // // for j=0 to maxcars current = j carx = cars(j,0) cary = cars(j,1) carangle = cars(j,2) currenttrack = cars(j,3) nxttrack = cars(j,4) travel = cars(j,5) carframe = cars(j,6) carcolour = cars(j,7) mobile = cars(j,8) mink = cars(j,9) carspeed = cars(j,10) carovertake = cars(j,11) carmaxspeed = cars(j,12) carpersonality = cars(j,13) for i=0 to 4 gosub racebot next gosub rotatecar cars(j,0)=carx cars(j,1)=cary cars(j,2)=carangle cars(j,3)=currenttrack cars(j,4)=nxttrack cars(j,5)=travel cars(j,6)=carframe cars(j,8)=mobile cars(j,9)=mink cars(j,10) = carspeed cars(j,11)=carovertake cars(j,12)=carmaxspeed next j // // line overlay arcade fx setcolor 0,0,0 setalpha .15 //setblendmode 1 setthick 1.5 for y=0 to screenheight() step 3 drawline 0,y,screenwidth(),y next setalpha 1 //setblendmode 0 restart=restart-1 if restart<0 then goto start flip forever end .racebot d = distance(lx(currenttrack),ly(currenttrack),lx(nxttrack),ly(nxttrack)) // angle y(dest)-y(from),x(dest)-x(from) a = atan2(ly(nxttrack)-ly(currenttrack),lx(nxttrack)-lx(currenttrack)) pointx = lx(currenttrack)+cos(a)travel pointy = ly(currenttrack)+sin(a)travel pointleftx = pointx+cos(a-90)mink pointlefty = pointy+sin(a-90)mink if rand(240)==1 then mobile=-mobile mink=mink+mobile if mink<-24 then mink=-24 if mink>24 then mink=24 //setcolor 255,0,0 //rect pointx,pointy,5,5 //setcolor 0,0,255 //rect pointleftx,pointlefty,5,5 //drawline pointx,pointy,pointleftx,pointlefty //a= atan2(pointlefty-cary,pointleftx-carx) ax = carx ay = cary bx = ax+(cos(carangle)1000) by = ay+(sin(carangle)1000) cx = pointleftx cy = pointlefty o=0 if(((bx-ax)(cy-ay)-(by-ay)(cx-ax))<0) then o=-1 if(((bx-ax)(cy-ay)-(by-ay)(cx-ax))>0) then o=1 if o==-1 then carangle=carangle-5 endif if o==1 then carangle=carangle+5 endif if carovertake>0 then carovertake=carovertake-1 if carspeed>carmaxspeed then carspeed=carspeed-.001 if carspeed<carmaxspeed then carspeed=carspeed+0.001 if carovertake==0 and distance(travel,0,d,0)>256 and rand(1024/carpersonality)<2 and carspeed<1.6 then carspeed=carspeed+rnd(0.2) gosub carside gosub setcarspeed if carovertake==0 then gosub overtake gosub setbend carx=carx+cos(carangle)carspeed cary=cary+sin(carangle)carspeed if current==0 then camx=camx+cos(carangle)carspeed camy=camy+sin(carangle)carspeed endif if distance(carx,cary,pointleftx,pointlefty)<48 then travel=travel+10 if travel>d then travel=d endif //setcolor 255,255,0 //rect carx,cary,5,5 //drawline carx,cary,pointleftx,pointlefty if travel==d then currenttrack = nxttrack nxttrack = nxttrack+1 travel = 64 if nxttrack==5 then nxttrack =0 endif return // cars next to each other handling .carside //setcolor 255,255,255 posx = carx-camx posy = cary-camy for ij=0 to maxcars if distance(cars(ij,0),cars(ij,1),carx,cary) > 0 then if distance(cars(ij,0)-camx,cars(ij,1)-camy,posx,posy) < 32 then //if carspeed>0 then carspeed=carspeed-.01 b = cars(ij,9) if mink<b then cars(ij,9)=cars(ij,9)+1 if mink>b then cars(ij,9)=cars(ij,9)-1 //setcolor 255,255,255:drawrect 0,0,10,10 end if end if next //drawoval posx,posy,32,32 return // if close then chose edge(inner/outer)turbo .overtake if rand(100)<99 then return posx = carx-camx+cos(carangle)32 posy = cary-camy+sin(carangle)32 if distance(travel,0,d,0) < 256 then return for ii=0 to maxcars if quick(current,ii)==-1 then break ij = quick(current,ii) if distance(cars(ij,0),cars(ij,1),carx,cary) > 0 then if distance(cars(ij,0)-camx,cars(ij,1)-camy,posx,posy) < 40 then if cars(ij,9)<0 then mink=mink1.5 carspeed=1.6 cars(ij,11)=600 else mink=mink0.5 carspeed=1.6 cars(ij,11)=600 endif //setcolor 255,255,255 //drawrect 0,0,10,10 //if carspeed>.5 then carspeed=carspeed-.01 //else //if carspeed<1.0 then carspeed=carspeed+.0004 end if end if next return // if close to corner then slow down.. .setbend if distance(travel,0,d,0)<256 then mink=mink+.5 if carspeed>.7 then carspeed=carspeed-0.005 endif return // we check ahead if a other car is in the way. then slow down else speed up. // .setcarspeed // if we get close to another car // break.. //setcolor 255,255,255 posx = carx-camx+cos(carangle)32 posy = cary-camy+sin(carangle)*32 for ii=0 to maxcars if quick(current,ii)==-1 then break ij = quick(current,ii) if distance(cars(ij,0),cars(ij,1),carx,cary) > 0 then q= distance(cars(ij,0)-camx,cars(ij,1)-camy,posx,posy) if q<32 then // if close then break a bit if carspeed>0.3 then carspeed=carspeed-.03 carovertake=100 b = cars(ij,9) if mink<b then mink=mink-2 if mink>b then mink=mink+2 //setcolor 255,255,255 //drawrect 0,0,20,20 else if carspeed<1.0 then carspeed=carspeed+.0004 end if endif if q<16 then // if to close break more! if carspeed>0.3 then carspeed=carspeed-.03 endif next //drawoval posx,posy,64,64 return .rotatecar //if rand(100)==1 then mima = -mima //carangle=carangle+mima carangle = carangle % 360 if carangle<0 then carangle = carangle+360 if carangle >= 0 and carangle<90 then carframe = 0 ; carrotation = carangle if carangle >= 90 and carangle<180 then carframe = 1 ; carrotation = carangle-90 if carangle >= 180 and carangle <270 then carframe = 2;carrotation=carangle-180 if carangle >= 280 and carangle<360 then carframe = 3;carrotation=carangle-270 setrotation carrotation drawimage carx-camx,cary-camy,carframe,carcolour setrotation 0 return // make a list of cars close to each cars. // except itself. ends with -1 .makequicklist for i=0 to maxcars cnt=0 for j=0 to maxcars d = distance(cars(i,0),cars(i,1),cars(j,0),cars(j,1)) if d>0 and d<160 then quick(i,cnt)=j cnt=cnt+1 endif next quick(i,cnt)=-1 next return .savestate ding=0 emptyfile for qi=0 to maxcars for qii=0 to 14 writefile(ding,cars(qi,qii)) ding=ding+1 next next for qi=0 to 20 writefile(ding,lx(qi)) ding=ding+1 writefile(ding,ly(qi)) ding=ding+1 next WriteFile(ding,camx) ding=ding+1 writefile(ding,camy) ding=ding+1 writefile(ding,ax) ding=ding+1 writefile(ding,ay) ding=ding+1 writefile(ding,bx) ding=ding+1 writefile(ding,by) ding=ding+1 writefile(ding,cx) ding=ding+1 writefile(ding,cy) ding=ding+1 for qi=0 to maxcars for qii=0 to maxcars+1 writefile(ding,quick(qi,qii) ding=ding+1 next next writefile(ding,quickcnt) ding=ding+1 writefile(ding,o) savefile return .loadstate //LoadFile ding=0 for qi=0 to maxcars for qii=0 to 14 cars(qi,qii) = readfile(ding) ding=ding+1 next next for qi=0 to 20 lx(qi) = readfile(ding) ding=ding+1 ly(qi) = readfile(ding) ding=ding+1 next camx = ReadFile(ding) ding=ding+1 camy = readfile(ding) ding=ding+1 ax = readfile(ding) ding=ding+1 ay = readfile(ding) ding=ding+1 bx = readfile(ding) ding=ding+1 by = readfile(ding) ding=ding+1 cx = readfile(ding) ding=ding+1 cy = readfile(ding) ding=ding+1 for qi=0 to maxcars for qii=0 to maxcars quick(qi,qii)= readfile(ding) // list of closeby cars around each car (optimalisation) ding=ding+1 next next quickcnt = readfile(ding) ding=ding+1 o = readfile(ding) debug ding return --v Edit : I made a smaller version: edit2 : never mind. I errored on this one. Still investigating. // New Project // by <Your Name Here!> // Created 2022/6/3 Graphics 512,512,1 Print "Hello World" dim abc(10,10) dim abc2(10,10) cnt=0 for i=0 to 10 for j=0 to 10 abc(i,j)=rnd(100) writefile(cnt,abc(i,j)) cnt=cnt+1 next next savefile loadFile for i=0 to 10 for j=0 to 10 abc2(i,j) = readfile(cnt) cnt=cnt+1 next next for i=0 to 10 for j=0 to 10 if abc(i,j)<>abc2(i,j) then print " a" : print abc2(i,j) cnt=cnt+1 next next end --v
Fri, 03 Jun 2022, 05:27
Jayenkai	// Save File Test // by Jayenkai // Created 2022/6/3 DebugMode On Dim Mess(255) SeedRnd 1 for m=0 to 255 Mess(m)=Rnd(37171650) WriteFile(m,Mess(m)+":"+Mess(m)+":"+Mess(m)+":"+Mess(m)+":"+Mess(m)+":"+Mess(m)) next SaveFile EmptyFile LoadFile for m=0 to 255 if ReadFile(m)!=Mess(m)+":"+Mess(m)+":"+Mess(m)+":"+Mess(m)+":"+Mess(m)+":"+Mess(m) then Debuglog m+" is wrong" next --v First test. I was worried it might be a "Too much data in the save file" issue, so did a quick "lots of data being saved" test. This isn't showing any issues with the save file, so ... Seems like it's something else in your code. I'll keep investigating. -=-=- ''Load, Next List!''
Fri, 03 Jun 2022, 05:35
Pakz	The thing is. That as soon as I enable the loadfile. Things stop working. Saving and restoring wihthout it seems to work.
Page : 1 2 3 4 5 6 7 8 9 10 11 12 Prev 13 14 Next