Try running the following program. ACLS:A=2544 SPSET 0,A SPOFS 0,200,120,0 SPSCALE 0,2,2 SPANIM 0,"I",8,A,8,A+1,8,A+2,8,A+3,0

Not "ATN" but "ATAN", nor order of SX,SY is not correct. Write line 364 as follows. AN=DEG(ATAN(SY,SX))

Like Alex says, angle is returned in radian with his method. If you want to get angle in degree, write "DEG(ATAN(SY#,SX#))" instead of "ATAN(SY#,SX#)". Angle is 0deg when stick is pointing right. The maximum (minimum) angle is +180deg (-180deg) if you turn stick counterclockwise (clockwise) from 0deg position.

Could you download B5E3C3QV and refer to EX_CIRCOL2E? It explains the process to calculate velocity vectors after collision.

まず、紙なりノートなりで、普通の双六を作ってみましょう。それができれば、プチコン双六は九分九厘完成したも同然です。 ※自分で言っといてアレですが、九分九厘って変ですよね？九割一厘は手付かずってことですからね…

可能です。 バグ太郎さんの「GIVERS-P3D」は有名ですし、海外の方の作品でも、そのような作品を見たことがあります。（スクリーンショットだけですが） ところで、伏せ字になってないですね。

I think my English vocabulary is not enough to explain it, but I'll make efforts. #1: When an impact is applied, rotate circle 1 around circle 2 with velocity vectors until the line connecting center of circle 1 with circle 2 overlaps X axis. #2: Swap X components of velocity vectors of 2 circles. #3: Restore #1 to original status.

Exactly speaking, correct Hiragana spelling of ten steps is "じっぽ". Not only this but also "じっぷん"(ten minutes), "じっかい"(the ten commandments) and so on. But don't worry because many Japanese also have forgotten the truth.

Could you download DS4R393 and refer to EX_KEYFLUSH? Button status will be kept for at least 1/60sec after you release buttons. Therefore you should FLUSH button buffer every time you detect buttons.

添付のように、処理したい数だけのIF文と、その飛び先を用意するだけなので、めんどくさいけど難しくはありません。

Could you download M3XNNEKY and refer to EX_CIRCOL1 or EX_CIRCOL2. EX_CIRCOL2 is physically stricter than EX_CIRCOL1.

In this case, you don't need labels. Refer to the following. LOCATE 5,8:PRINT"sentence 1" WHILE(BUTTON(3)AND #A)==0:VSYNC 1:WEND WHILE(BUTTON(3)AND #A)!=0:VSYNC 1:WEND LOCATE 3,9:PRINT"sentence 2" WHILE(BUTTON(3)AND #A)==0:VSYNC 1:WEND WHILE(BUTTON(3)AND #A)!=0:VSYNC 1:WEND LOCATE 2,10:PRINT"sentence 3" WHILE(BUTTON(3)AND #A)==0:VSYNC 1:WEND WHILE(BUTTON(3)AND #A)!=0:VSYNC 1:WEND ...

Line 22 and 23 should be in your main loop. And I recommend you to change variable name (DX and DY) because they are already used in your main loop.

Refer to the help of "SPOFS" and "BGCOORD".

18) When N is integer, NOT N is equal to -1-N 19) A=A+1(A=A-1) is a little bit faster than INC A(DEC A). 20) Normally the result of comparison operation (e.g. A>B) is boolean (1:TRUE/0:FALSE). However, if we compare string variable and numerical variable like A$<B, the result will be 3. We can discriminate variable type with this phenomenon.

「キノコ」と「キノコ」を調理すると「毒キノコ」になるってゲームが、昔あったような気が...

I recommend you to replace line 5 with "B=(B+1)MOD 120". It'll make line 8 unnecessary.

XSCREEN should be done before you call SPSET. Try moving "XSCREEN 2" to between "ACLS" and "@KJ".

I explain my previous post. ITV array always stores frame to frame interval of past 60 frames. MILLISEC system variable is integer, but usually frame to frame interval isn't integer. Therefore I find the solution as average of whole ITV array. And FPS is the reciprocal of it. "/1000" stands for msec to sec modification.

Could you refer to the following program? DIM ITV[60]:FILL ITV,0 PTR=0:PMS=MILLISEC 'START OF LOOP ITV[PTR]=MILLISEC-PMS PMS=MILLISEC:PTR=(PTR+1)MOD 60:TTL=0 FOR I=0 TO 59:TTL=TTL+ITV[I]:NEXT I IF TTL!=0 THEN FPS=60/(TTL/1000) ELSE FPS=0 LOCATE 2,2:?FORMAT$("%6.1F FPS",FPS) 'END OF LOOP