Racing bot in jse

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|542\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Blogs Home -> Blogs

Pakz	Created : 20 May 2022 Edited : 20 May 2022 Racing bot in jse
I have been tinkering away at a racing game. This only to learn about how to go about creating such a thing. I made a couple of versions and ended up looking at the 'nature of code' book. Here there are some tips and tricks that I also remember reading in too complex game ai books. Maybe I wil try and tackle some boids techniques and try to put multiple bots on the track. Also I keep thinking at things like slowing down near corners and speeding up. Collision slow down when near the edge(radius) of a track(line) // racetrack 06 // by <Your Name Here!> // Created 2022/5/20 // get a point besides a line. // follow point that is besides a line. Graphics 512,512,1 Print "Hello World" .start botx = 350 boty = 250 botangle = 0 dim lx(10) dim ly(10) num= 0 for a=359 to 0 step -(359/5) lx(num)=screenwidth()/2+(cos(a)200) ly(num)=screenheight()/2+(sin(a)200) lx(num)=lx(num)+rand(-40,40) ly(num)=ly(num)+rand(-40,40) ly(num)=ly(num).6 num=num+1 next currenttrack = 0 nexttrack = 1 restart = 350 travel=0 o=0 ax=0;ay=0;bx=0;by=0;cx=0;cy=0 repeat cls setcolor 100,80,90 // draw track lines setthick 48 for i=0 to 3 drawline lx(i),ly(i),lx(i+1),ly(i+1) next drawline lx(4),ly(4),lx(0),ly(0) setthick 1 for i=0 to 4 gosub racebot next restart=restart-1 if restart<0 then goto start flip forever end .racebot d = distance(lx(currenttrack),ly(currenttrack),lx(nexttrack),ly(nexttrack)) // angle y(dest)-y(from),x(dest)-x(from) a = atan2(ly(nexttrack)-ly(currenttrack),lx(nexttrack)-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 mink=mink+rand(-1,1) if mink<-16 then mink=-16 if mink>16 then mink=16 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-boty,pointleftx-botx) ax = botx ay = boty bx = ax+(cos(botangle)1000) by = ay+(sin(botangle)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 botangle=botangle-3 endif if o==1 botangle=botangle+3 endif botx=botx+cos(botangle) boty=boty+sin(botangle) if distance(botx,boty,pointleftx,pointlefty)<16 then travel=travel+10 if travel>d then travel=d endif setcolor 255,255,0 rect botx,boty,5,5 //drawline botx,boty,pointleftx,pointlefty if travel==d then currenttrack = nexttrack nexttrack = nexttrack+1 travel = 64 if nexttrack==5 then nexttrack =0 endif return --v

Comments
Friday, 20 May 2022, 07:00
Jayenkai	You know you're supposed to put your name in the bit where it says <Your Name Here!>, right?! That's working pretty nicely. Currently it looks a little "bumpy" when the red and blue spots jump from point to point, but once they're invisible the remaining car will look a lot smoother in its driving. Add a bit of physics into the mix, so the car slows down at sharp corners and the like, and you should be golden, really. If you can look up the next three points, you'll be able to tell if there's a turn or not, and then slow down whenever that's happening. Like you say, though, I'm not sure that JSE can handle more than a couple of cars doing lookups like that. I'm sure there's a better way, but.. yeah, this is more or less how I did it in my Really Retro Racing thing!
Friday, 20 May 2022, 07:07
Pakz	I think the distance function can be used to find the end of a line. This is where a new line begins. I think I can do that easily. Turn speed can maybe then also use some experimentation. I had sped up the bot so the helper graphics got a bit jurky. Maybe you can add a user name in jse? Where it auto puts in the name into a new project? But this would probably get removed when the browser cleans it cache
Friday, 20 May 2022, 07:18
Jayenkai	I've opted against "logging in" at all in GotoJSE. If I DID do logging in, I'd have to fart about doing registrations and logins and whatnot. Socoder's login is messy enough For my turn speed, I looked up the next three points. Work out the angle of a->b and then b->c, and the Abs(difference) should be roughly how sharp the upcoming turn is. Then you can set a top speed for different angles, and reduce the car's speed to match. Be sure to use acceleration and speed, as opposed to just dropping the speed, or it'll look a bit "cheaty"!
Friday, 20 May 2022, 07:44
Pakz	I might investigate first on how to do a supercars(amiga) tile set and sprites and implement scrolling. I stil remember someone many years ago making a quick supercars mockup in Delphi. This I want to do myself one day too.
Saturday, 21 May 2022, 03:38
AndyH	That looks really cool. I love super cars although replaying today the collision detection with the track edges is annoying. Please, make a super cars game ðŸ™‚
Saturday, 21 May 2022, 03:51
Pakz	I was just about to continue on recreating a series of the track tiles. There are not that much screenshots around on the internet. I think I am using Supercars 2 screenshots right now. Supercars 1 looks a bit simpler. This is what I got right now. A car driving on a bare non tiled procedural road. I have been thinking on how I could do procedural level generation. // supercars jse // by Pakz001(Rudy van Etten) // Created 2022/5/20 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?xvyvwywZvZZy!xvwy.zzwy/wvy!xy/xwvvy.vy@xwwv?y_xxw?y_yyw?y_y,xw,y_y.xww"; 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!wwxvvwwy,Y!zy,vwwy,Y!zy,vwwy,Y!zy,vwwy,Y!zy,vwwy,Y!zy,vwwy,Y!wyyvw,y,Y?zwvyvw,y,z.y,wvw.y,xy!vw.xy,vy.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,w_w/:z_z?xzy_y?xzy_y?v_v@Z_Z_Z_Z_Z_Z_Z_ZY_Y_Y_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_yy:z.w,xy/xy!w,xy?z.y,wzwwxy.Y?zwzyzwwxy,Y!wyyzw,y,Y!zy,vwwy,Y!zy,vwwxyyY!zy,vw,yyY!zy,vw,yyY!zy,vw,yyY!wwxvvw,yy"; Graphics 512,512,1 Print "Hello World" mima=2 carx = 120 cary = 110 carangle = 0 carrotation =0 carframe = 0 mobile = .1 .start botx = 350 boty = 250 botangle = 0 dim lx(10) dim ly(10) num= 0 for a=359 to 0 step -(359/5) lx(num)=screenwidth()/2+(cos(a)200) ly(num)=screenheight()/2+(sin(a)200) lx(num)=lx(num)+rand(-40,40) ly(num)=ly(num)+rand(-40,40) ly(num)=ly(num).6 num=num+1 next currenttrack = 0 nexttrack = 1 restart = 350 travel=0 o=0 ax=0;ay=0;bx=0;by=0;cx=0;cy=0 repeat cls setcolor 100,80,90 // draw track lines setthick 48 for i=0 to 3 drawline lx(i),ly(i),lx(i+1),ly(i+1) next drawline lx(4),ly(4),lx(0),ly(0) setthick 1 for i=0 to 4 gosub racebot next restart=restart-1 if restart<0 then goto start gosub rotatecar flip forever end .racebot d = distance(lx(currenttrack),ly(currenttrack),lx(nexttrack),ly(nexttrack)) // angle y(dest)-y(from),x(dest)-x(from) a = atan2(ly(nexttrack)-ly(currenttrack),lx(nexttrack)-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(16)==1 then mobile=-mobile mink=mink+mobile if mink<-16 then mink=-16 if mink>16 then mink=16 //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-boty,pointleftx-botx) ax = botx ay = boty bx = ax+(cos(botangle)1000) by = ay+(sin(botangle)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 botangle=botangle-3 endif if o==1 then botangle=botangle+3 endif botx=botx+cos(botangle) boty=boty+sin(botangle) if distance(botx,boty,pointleftx,pointlefty)<16 then travel=travel+10 if travel>d then travel=d endif //setcolor 255,255,0 //rect botx,boty,5,5 //drawline botx,boty,pointleftx,pointlefty if travel==d then currenttrack = nexttrack nexttrack = nexttrack+1 travel = 64 if nexttrack==5 then nexttrack =0 endif carx = botx cary = boty carangle = botangle 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,cary,carframe setrotation 0 return --v
Saturday, 21 May 2022, 04:20
Dan	You know you're supposed to put your name in the bit where it says <Your Name Here!>, right?! How about if you let the user enter the name, which would be saved on/in the local storage, which would fill in when a new project is created? That would be the win/win situation, no need for log in, and the name would not needed to be typed every time a new project is started.
Saturday, 21 May 2022, 05:27
Jayenkai	Sorry, I know how hard it must be to type your own name in, after all of that typing in of the rest of the entire thing you've written.
Saturday, 21 May 2022, 11:31
Dan	Oh, "Dan" is only 3 letters, so that's easy. but look at: Pakz001(Rudy van Etten) I do not mind. The idea is, because it is a repetitive task, it could be done by the system.
Saturday, 21 May 2022, 12:25
Pakz	I grabbed my old Trust bluetooth keyboard. It stil works. It even has cursor keys. Which is useful with typing. I had a go at working on the tiles. Another 12 are done. I'm 1/4th filled up with the amount of symbols. I think I wil just go with a grass theme and no water. There should be enough space for some plants and grass variations. I wil keep an eye on the author name field. And identing the code too.
Friday, 27 May 2022, 06:54
Pakz	I did a bit more today. The next.. bug kind of set me back for an hour or so. But I was able to get multiple cars and scrolling working. Edit: the racing tracks can be placed anywhere. They eventually wil be placed on top of the tilemap. The supercars tiles are not in this project, but in a different version file on my github. // racing take over // by Pakz001 // Created 2022/5/27 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?xvyvwywZvZZy!xvwy.zzwy/wvy!xy/xwvvy.vy@xwwv?y_xxw?y_yyw?y_y,xw,y_y.xww"; 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!wwxvvwwy,Y!zy,vwwy,Y!zy,vwwy,Y!zy,vwwy,Y!zy,vwwy,Y!zy,vwwy,Y!wyyvw,y,Y?zwvyvw,y,z.y,wvw.y,xy!vw.xy,vy.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,w_w/:z_z?xzy_y?xzy_y?v_v@Z_Z_Z_Z_Z_Z_Z_ZY_Y_Y_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_yy:z.w,xy/xy!w,xy?z.y,wzwwxy.Y?zwzyzwwxy,Y!wyyzw,y,Y!zy,vwwy,Y!zy,vwwxyyY!zy,vw,yyY!zy,vw,yyY!zy,vw,yyY!wwxvvw,yy"; Graphics 512,512,1 .start maxcars = 2 dim cars(10,10) cars(0,0) = 350 cars(0,1) = 250 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(1,0) = 250 cars(1,1) = 250 cars(1,2) = 0 // angle cars(1,3) = 0 // currenttrack cars(1,4) = 1 // nxtrack cars(1,5) = 0 // travel cars(1,6) = 0 cars(1,7) = 2 cars(1,8) = .1 cars(2,0) = 200 cars(2,1) = 250 cars(2,2) = 0 // angle cars(2,3) = 0 // currenttrack cars(2,4) = 1 // nxtrack cars(2,5) = 0 // travel cars(2,6) = 0 cars(2,7) = 3 cars(2,8) = .1 mima=2 carx = 120 cary = 110 carangle = 0 carrotation =0 carframe = 0 mobile = .1 camx=0 camy=0 current = 0 // current car for camera botx = 0 boty = 0 botangle = 0 dim lx(10) dim ly(10) 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 cars(i,0)=cars(i,0)+lx(0) cars(i,1)=cars(i,1)+ly(0) next camx = cars(0,0)-(screenwidth()/2) camy = cars(0,1)-(screenheight()/2) currenttrack = 0 nxttrack = 1 restart = 1500 travel=0 o=0 ax=0;ay=0;bx=0;by=0;cx=0;cy=0 repeat cls 50,150,20 setcolor 100,80,90 // draw track lines setthick 128 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) 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 next j // // restart=restart-1 if restart<0 then goto start flip forever end .racebot botx = carx boty = cary botangle = carangle 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(16)==1 then mobile=-mobile mink=mink+mobile if mink<-16 then mink=-16 if mink>16 then mink=16 //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-boty,pointleftx-botx) ax = botx ay = boty bx = ax+(cos(botangle)1000) by = ay+(sin(botangle)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 botangle=botangle-3 endif if o==1 then botangle=botangle+3 endif botx=botx+cos(botangle) boty=boty+sin(botangle) if current==0 then camx=camx+cos(botangle) camy=camy+sin(botangle) endif if distance(botx,boty,pointleftx,pointlefty)<16 then travel=travel+10 if travel>d then travel=d endif //setcolor 255,255,0 //rect botx,boty,5,5 //drawline botx,boty,pointleftx,pointlefty if travel==d then currenttrack = nxttrack nxttrack = nxttrack+1 travel = 64 if nxttrack==5 then nxttrack =0 endif carx = botx cary = boty carangle = botangle 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 --v
Wednesday, 01 June 2022, 12:51
Pakz	Wow. I had some buggy large group of cars doing the weirdest stuff. Today I was working on adding 'turbo' and some personality per car. Overtaking logic and such. When putting it together it was rather buggy. I started watching some races and tried to add one line. That was making sure that breaking near the end of another car worked as it should. This seemed to lead to the current result. I might continue on the tiles now and start to figure out how to do a supercars like track generator. Warning. Messy hack code. // racing take over // by Pakz001 // Created 2022/5/27 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?xvyvwywZvZZy!xvwy.zzwy/wvy!xy/xwvvy.vy@xwwv?y_xxw?y_yyw?y_y,xw,y_y.xww"; 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!wwxvvwwy,Y!zy,vwwy,Y!zy,vwwy,Y!zy,vwwy,Y!zy,vwwy,Y!zy,vwwy,Y!wyyvw,y,Y?zwvyvw,y,z.y,wvw.y,xy!vw.xy,vy.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,w_w/:z_z?xzy_y?xzy_y?v_v@Z_Z_Z_Z_Z_Z_Z_ZY_Y_Y_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_yy:z.w,xy/xy!w,xy?z.y,wzwwxy.Y?zwzyzwwxy,Y!wyyzw,y,Y!zy,vwwy,Y!zy,vwwxyyY!zy,vw,yyY!zy,vw,yyY!zy,vw,yyY!wwxvvw,yy"; Graphics 512,512,1 .start maxcars = 10 // // dim was originall dim cars(10,10) // changing it into dim cars = 5 freezes chrome and needs a close and restart. dim cars(10,20) dim lx(20) dim ly(20) cars(0,0) = 1400 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 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 repeat 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 .5 setblendmode 1 setthick .1 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 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) < 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 else endif return // we check ahead if a other car is in the way. then slow down else speed up. // .setcarspeed //setcolor 255,255,255 posx = carx-camx+cos(carangle)32 posy = cary-camy+sin(carangle)32 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.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 end if 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 --v
Friday, 03 June 2022, 14:00
Pakz	Ok. I think I got the most racing bug fixed. This was where cars would rotate into each other. Sometimes though a car can drive through another car. More analysis needed. I checked the optimizations. Fixed some code that I forgot to optimize. The speed of the cpu needs to be incredibly good though. At the moment I can have 16 cars on my m1 ipad. The start of a race it dips the fps. But it goes to 60 when the cars are spread out.(local area collision) My 2017 laptop can only have 2 cars racing at full fps. Same with my 2017 ipad. Maybe I will add more intelligence as there is a lot of bumping. // 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 // debug saving works only with 7 or less cars.. maxcars = 7 // change this to lower to speed up fps. (15 is 60 fps on ipad pro 2021, 5 = 60 fps on ryzen 4800) dim quick(maxcars,maxcars+1) // list of closeby cars around each car (optimalization) dim cars(maxcars,20) dim lx(20) dim ly(20) cars(0,0) = maxcars135 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,50)//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 thiskey=inkey() if gamepad(buttonb,-1) then gosub savestate //debug camx endif if gamepad(buttona,-1) then gosub loadstate //debug camx //debug "banana" 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 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 dd = distance(cars(ij,0)-camx,cars(ij,1)-camy,posx,posy) if dd<32 then //if dd<30 then //setcolor 255,255,255 //rect 0,0,320,320 //end if //if carspeed>0 then carspeed=carspeed-. z=atan2(cars(ij,1)-cary,cars(ij,0)-carx) carx=carx-cos(z)1 cary=cary-sin(z)1 //cars(ij,2)=z-1 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 if maxcars > 7 then return 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 writefile(ding,quick(qi,qii) ding=ding+1 next next writefile(ding,quickcnt) ding=ding+1 writefile(ding,o) SaveFile return .loadstate if maxcars > 7 then return //emptyfile loadfile ding=0 for qi=0 to maxcars for qii=0 to 14 cars(qi,qii) =float( readfile(ding)) ding=ding+1 next next for qi=0 to 20 lx(qi) = float(readfile(ding)) ding=ding+1 ly(qi) = float(readfile(ding)) ding=ding+1 next camx =float( ReadFile(ding)) ding=ding+1 camy = float(readfile(ding)) ding=ding+1 ax = float(readfile(ding)) ding=ding+1 ay = float(readfile(ding)) ding=ding+1 bx = float(readfile(ding)) ding=ding+1 by = float(readfile(ding)) ding=ding+1 cx = float(readfile(ding)) ding=ding+1 cy = float(readfile(ding)) ding=ding+1 for qi=0 to maxcars for qii=0 to maxcars quick(qi,qii)= float(readfile(ding)) // list of closeby cars around each car (optimalisation) ding=ding+1 next next quickcnt = float(readfile(ding)) ding=ding+1 o = float(readfile(ding)) return --v

Racing bot in jse

Comments