Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|658\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> Random walker graph
Fri, 27 May 2022, 02:24
Dan	Random walker graph I just saw the moving graph on the https://natureofcode.com/book/introduction/ so i made one in jse. // Display Random walking numbers // by Dan // Created 2022/5/27 Graphics 200,200,3 Dim Squares(10) #const $display=SetCol z15,z15,255 : Rect x+(z18),y-(Squares(z)sh),18,(Squares(z)sh) : SetCol 20,20,20 : DrawRect x+(z18),y-(Squares(z)sh),18,Squares(z)sh sh=10 x=1 y=190 z=-1 Repeat cls 255,255,255 for z=0 to 10 rd=Rand(0,4) If Squares(z)>2 and rd==0 then Squares(z)=Squares(z)-1 If Squares(z)<19 and rd==1 then Squares(z)=Squares(z)+1 $display next Flip wait 0.1 Forever --v
Fri, 27 May 2022, 08:02
Pakz	I just got the idea to draw some ducks and put them on top of the graphs. Then make it a duck shooter
Fri, 27 May 2022, 08:05
Jayenkai	Sounds like it could be fun!
Fri, 27 May 2022, 13:43
Dan	How about to squash some bugs ? // Display Random walking bugbers // by Dan // Created 2022/5/27 Graphics 200,200,3 Dim Squares(10) #const $display=SetCol z15,z15,255 : Rect x+(z18),100,18,(Squares(z)sh),0 : SetCol 20,20,20 : DrawRect x+(z18),100,18,Squares(z)sh,0 sh=10 x=1 y=190 z=-1 Repeat cls 255,255,255 print mousex()+" / "+MouseY() for z=0 to 10 rd=Rand(0,4) If Squares(z)>2 and rd==0 then Squares(z)=Squares(z)-1 If Squares(z)<19 and rd==1 then Squares(z)=Squares(z)+1 $display next Flip wait 0.1 Forever --v The graphic mode 3 is not displaying accurate mouse coordinates.

Random walker graph