HSPTV!掲示板

#module
#deffunc circlet double x,double y,double r,int a
circle x-r,y-r,x+r,y+r,a
return
#global

dx=ginfo(20)
dy=ginfo(21)
scx=1000
scy=1000
asx=400
asy=300
wa=10

cp=1
cpu=1
minus=-1

mx=550.0;現在Ｘ座標
my=150.0;現在Ｙ座標
nx=mx;１つ前Ｘ座標
ny=my;１つ前Ｙ座標
mr=3.14;ハンドル方向
mrsp=0.05;ハンドル
mmaxsp=2.0;最高速度
msp=0.0;現在速度
mspup=0.02;アクセル
mspdo=0.1;ブレーキ
mmaxbsp=1.0;バックの最高速度
mspm=0.005;摩擦

if cp=1{
dim cx,5
dim cy,5
c=1
cx(1)=750 ここを目印にして進むようにしようとしています。
cx(2)=800
cx(3)=200
cx(4)=200
cy(1)=200
cy(2)=800
cy(3)=800
cy(4)=250
}

p=3.14159265358979323846
p2=p*2.0
screen 2,scx,scy,0,(dx-asx)/2,(dy-asy-50)/2,asx,asy
*main

gx=mx-asx/2
gy=my-asy/2
if gx<0:gx=0
if gy<0:gy=0
if gx>scx-asx:gx=scx-asx
if gy>scy-asy:gy=scy-asy

groll gx,gy

mx=limitf(mx,0,scx)
my=limitf(my,0,scy)

redraw 0

gmode 4,,,256
color 113,113,113

pos 0,0
celput 20,0,1,1,0.0

if mr>=p:mr=mr-p2
if mr<=p*minus:mr=mr+p2

pos mx,my
celput 11,0,1,1,mr

color 255,255,255
circlet 750,200,5
circlet 800,800,5
circlet 200,800,5
circlet 200,250,5

redraw 1

if cp=1{

mi=0
hi=0
spa=0
b=0

spa=1

ccx=mx-cx(c)
ccy=my-cy(c)
cr=atan(ccy,ccx)
if cr>=p:cr=cr-p2
if cr<=p*minus:cr=cr+p2;:if c=3:stop
if cpu=1{
;if mr<0.0:mr*minus
;if cr<0.0:cr*minus
if mr>cr:hi=1
if mr<cr:mi=1
}
if cpu=2{
cpp=p-(mr+cr)
cpm=mr-cr
if cpp>=p2:cpp=cpp-p2
if cpp<=0.0:cpp=cpp+p2
if cpm>=p2:cpm=cpm-p2
if cpm<=0.0:cpm=cpm+p2
if cpp>cpm:hi=1
if cpp<cpm:mi=1
}
if mr=cr:{
rn=rnd(2)
if rn=0:hi=1
if rn=1:mi=1
}

if cx(c)-5<mx:if cx(c)+5>mx:if cy(c)-5<my:if cy(c)+5>my:c+1

if c>4:c=1

}

if hi=1:mr-mrsp
if mi=1:mr+mrsp
if spa=1:msp+mspup
if b=1:msp-mspdo

if msp>0:msp-mspm
if msp<0:msp+mspm
if msp>mmaxsp:msp=mmaxsp
if msp<mmaxbsp*minus:msp=mmaxbsp*minus

mx=mx+cos(mr-3.14)*msp
my=my+sin(mr-3.14)*msp

await wa
goto *main

これを実行するといきなり１周円を書いて進んで
２週目以降は１つ目の目印で円を書いて進んでしまいます。

どうしたら円を書かないようになるでしょうか？

お願いします。

質問のタイトルも意味不明ですが、質問の内容も把握出来ません。

取りあえず、スクリプトを動かしましたが
　１：コメントは後で書き足したのかな？
　２：６９行辺りでエラーが出ます。
　３：質問の”円”自体が描画されません。
　４：どういう動作が正常なのか分かりません。

えっと、まだ途中までしかスクリプトを読んでないのですが分からない部分が１つ。
以下の変数の役割はなんでしょうか？
cp=1
cpu=1
minus=-1
推測するにCPU機能のON/OFFのフラグとマイナス値に対するフラグでしょうか？

そもそもこのプログラムがレースプログラムのCPU機能のデモ的なものでしょうか？

screen 0,300,100,0,0,0

randomize

#module
#deffunc circlet double x,double y,double r,int a
circle x-r,y-r,x+r,y+r,a
return
#global

dx=ginfo(20)
dy=ginfo(21)
scx=1000
scy=1000
asx=400
asy=300
wa=10

cp=1
cpu=1

pmax=4.0
pa=0.0

font "",20

gpos=""+dir_cur+"\\bmp\\"

color 128,128,128
boxf 0,30,300,50

celload ""+gpos+"title1.bmp",3
redraw 0
color 255,255,255
boxf 0,0,300,20
color 0,0,0
pa=pa+100.0/pmax
pos 0,0
mes ""+pa+"%"
color 0,255,0
boxf 0,30,0+pa*3.0,50
redraw 1

celload ""+gpos+"title2.bmp",4
redraw 0
color 255,255,255
boxf 0,0,300,20
color 0,0,0
pa=pa+100.0/pmax
pos 0,0
mes ""+pa+"%"
color 0,255,0
boxf 0,30,0+pa*3.0,50
redraw 1

celload ""+gpos+"カートライン.bmp",10
redraw 0
color 255,255,255
boxf 0,0,300,20
color 0,0,0
pa=pa+100.0/pmax
pos 0,0
mes ""+pa+"%"
color 0,255,0
boxf 0,30,0+pa*3.0,50
redraw 1

celload ""+gpos+"test.bmp",20
redraw 0
color 255,255,255
boxf 0,0,300,20
color 0,0,0
pa=pa+100.0/pmax
pos 0,0
mes ""+pa+"%"
color 0,255,0
boxf 0,30,0+pa*3.0,50
redraw 1

r1=255
g1=0
b1=0

buffer 11,20,20
color 113,113,113
boxf
color r1,g1,b1
boxf 2,4,15,15
gmode 4,20,20,256
color 113,113,113
pos 0,0
celput 10,0,1,1,0.0

celdiv 11,20,20,10,10

minus=-1

mx=550.0;現在Ｘ座標
my=150.0;現在Ｙ座標
nx=mx;１つ前Ｘ座標
ny=my;１つ前Ｙ座標
mr=3.14;ハンドル方向
mrsp=0.05;ハンドル
mmaxsp=2.0;最高速度
msp=0.0;現在速度
mspup=0.02;アクセル
mspdo=0.1;ブレーキ
mmaxbsp=1.0;バックの最高速度
mspm=0.005;摩擦

if cp=1{
dim cx,5
dim cy,5
c=1
cx(1)=750
cx(2)=800
cx(3)=200
cx(4)=200
cy(1)=200
cy(2)=800
cy(3)=800
cy(4)=250
}

p=3.14159265358979323846
p2=p*2.0

;bgscr 2,scx,scy,0,(dx-asx)/2,(dy-asy-50)/2,asx,asy
screen 2,scx,scy,0,(dx-asx)/2,(dy-asy-50)/2,asx,asy

*main

gx=mx-asx/2
gy=my-asy/2
if gx<0:gx=0
if gy<0:gy=0
if gx>scx-asx:gx=scx-asx
if gy>scy-asy:gy=scy-asy

groll gx,gy

mx=limitf(mx,0,scx)
my=limitf(my,0,scy)

redraw 0

gmode 4,,,256
color 113,113,113

pos 0,0
celput 20,0,1,1,0.0

if mr>=p:mr=mr-p2
if mr<=p*minus:mr=mr+p2

pos mx,my
celput 11,0,1,1,mr

color 255,255,255
circlet 750,200,5
circlet 800,800,5
circlet 200,800,5
circlet 200,250,5

redraw 1

getkey hi,37
getkey mi,39
getkey spa,32
getkey b,66

if cp=1{

mi=0
hi=0
spa=0
b=0

spa=1

ccx=mx-cx(c)
ccy=my-cy(c)
cr=atan(ccy,ccx)
if cr>=p:cr=cr-p2
if cr<=p*minus:cr=cr+p2;:if c=3:stop
if cpu=1{
;if mr<0.0:mr*minus
;if cr<0.0:cr*minus
if mr>cr:hi=1
if mr<cr:mi=1
}
if cpu=2{
cpp=p-(mr+cr)
cpm=mr-cr
if cpp>=p2:cpp=cpp-p2
if cpp<=0.0:cpp=cpp+p2
if cpm>=p2:cpm=cpm-p2
if cpm<=0.0:cpm=cpm+p2
if cpp>cpm:hi=1
if cpp<cpm:mi=1
}
if mr=cr:{
rn=rnd(2)
if rn=0:hi=1
if rn=1:mi=1
}



if cx(c)-5<mx:if cx(c)+5>mx:if cy(c)-5<my:if cy(c)+5>my:c+1

if c>4:c=1

}

title ""+cpp+","+cpm+","+hi+","+mi+""

if hi=1:mr-mrsp
if mi=1:mr+mrsp
if spa=1:msp+mspup
if b=1:msp-mspdo

if msp>0:msp-mspm
if msp<0:msp+mspm
if msp>mmaxsp:msp=mmaxsp
if msp<mmaxbsp*minus:msp=mmaxbsp*minus

mx=mx+cos(mr-3.14)*msp
my=my+sin(mr-3.14)*msp

await wa
goto *main

これがスクリプト全体です。

cpはコンピュータに動作を任せるか任せないかです。１が任せる
cpuは２つ動作を用意しているので選べるように（どちらも出来てない）

　目標角度と現在角度からハンドルの切り方を算出する部分が間違っていました。修正例は以下

#module
	#deffunc circlet double x,double y,double r,int a
	circle x-r,y-r,x+r,y+r,a
	return
#global

	dx=ginfo_dispx : dy=ginfo_dispy		;画面解像度
	scx=1000 : scy=600					;第２ウィンドウ全体の大きさ
	asx=400 : asy=300					;第２ウィンドウ表示部分の大きさ
	wa=10

	cp=1 : cpu=1 : minus=-1

	mx=550.0 : my=150.0		;(mx,my)キャラクター座標
	nx=mx : ny=my			;１つ前のキャラクター座標
	mr=3.14					;キャラクターの方向
	mrsp=0.05				;ハンドル[rad]
	mmaxsp=3.0				;最高速度[pixel/frame]
	msp=0.0					;現在速度[pixel/frame]
	mspup=0.02				;アクセル
	mspdo=0.1				;ブレーキ
	mmaxbsp=1.0				;バックの最高速度[pixel/frame]
	mspm=0.005				;摩擦

	if cp=1{	;(cx.k,cy.k)	k番目の目標地点
		dim cx,5 : cx.0=0,750,800,200,200
		dim cy,5 : cy.0=0,200,500,500,250
		repeat 5
			cx.cnt=rnd(scx) : cy.cnt=rnd(scy)
		loop
		c=1		;目標地点を示す番号
	}

	p=m_pi		;円周率
	p2=p*2.0	;１回転相当値[rad]
	minus=-1	;
	screen 2,scx,scy,0,(dx-asx)/2,(dy-asy-50)/2,asx,asy
	buffer 1,scx,scy,0 : repeat scx/10 : x=cnt
		repeat scy/10 : y=cnt
			color x*255/(scx/10),255,y*255/(scy/10) : boxf x*10,y*10,x*10+9,y*10+9
		loop
	loop

*main
	//キャラクターに従って表示部分を移動させる
	gsel 2
	gx=mx-asx/2 : gy=my-asy/2		;(gx,gy)キャラクターを中心とした際の左上値
	if gx<0 : gx=0
	if gy<0 : gy=0
	if gx>scx-asx : gx=scx-asx
	if gy>scy-asy : gy=scy-asy
	groll gx,gy


	//フィールドから外れたキャラクターをフィールド内に復元する
	mx=limitf(mx,0,scx) : my=limitf(my,0,scy)

	//描画開始
	gsel 2 : redraw 0 : gmode 0,scx,scy : pos 0,0 : gcopy 1,0,0

	//(113,113,113)色を透明色とした完全コピー
	gmode 4,,,256 : color 113,113,113

	//(0,0)地点を描画
	color 128,128,128 : boxf -20,-20,20,20

	//キャラクターの進行方向をmr∈(0<=mr<2π)に限定する
	if mr>=m_pi*2 : mr=mr-m_pi*2	;方角が360度以上になった際、360度未満に修正
	if mr<0 : mr=mr+m_pi*2			;方角が0度未満になった際、0度以上に修正

	//キャラクターを描画
	color 0,128,0 : boxf mx-10,my-10,mx+10,my+10

	//目標地点を描画
	color 64,64,64 : repeat 5 : circlet cx.cnt,cy.cnt,5,1 : loop

	//描画終了
	gsel 2 : redraw 1

	if cp=1{	;ＣＰＵ操作時の行動指針
		//変数定義
		mi=0	;右にハンドルを切るという意味の変数
		hi=0	;左にハンドルを切るという意味の変数
		spa=0	;直後にspa=1があるのに何故定義する？
		b=0		;?
		spa=1	;?

		ccx=mx-cx(c) : ccy=my-cy(c)		;(ccx,ccy)目標地点までの距離
		cr=atan(ccy,ccx)		;目標地点の方向
		if cr>=m_pi : cr=cr-p2
		if cr<=p*minus:cr=cr+p2;:if c=3:stop


		//★★修正部分★★
		if cpu=1 {
			checkr=mr-cr
			if checkr>m_pi : checkr-=m_pi*2
			if checkr<-m_pi : checkr+=m_pi*2
			if checkr>0 : hi=0 : mi=1 : else : hi=1 : mi=0
		}

		if (cx(c)-5<mx) & (cx(c)+5>mx) & (cy(c)-5<my) & (cy(c)+5>my) : c+1
		if c>4:c=0

	}

	//左ハンドル切って右回転する仕様だったので修正
	if hi=1 : mr+mrsp
	if mi=1 : mr-mrsp

	if spa=1:msp+mspup
	if b=1:msp-mspdo

	if msp>0:msp-mspm
	if msp<0:msp+mspm
	if msp>mmaxsp:msp=mmaxsp
	if msp<mmaxbsp*minus:msp=mmaxbsp*minus

	mx=mx+cos(mr-m_pi)*msp : my=my+sin(mr-m_pi)*msp		;ハンドル方向に加速

	await wa
	goto *main

ありがとうございました。