HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2015
1116
Okayblock25解決


Okay

リンク

2015/11/16(Mon) 17:55:34|NO.73055

サンプルのball2.hspを自分なりに書き直したのですが、ボールがバーの横端に当たると、
バーを通り抜けるような動作をしてしまいます。なぜでしょうか?

ちなみに、scmodというのは、いろいろ自分でマクロを定義したものです(whiteなど)。


#define RCX 480 #define RCY 640 #define BALLSIZE 18 #define BARSIZEX 64 #define BARSIZEY 20 #define BARY 540 screen 0,RCX,RCY title "BALL" bx=100,100 bpx=2:bpy=2 barx=RCX/2 repeat redraw 0 color 242,136,40 boxf barx=mousex-BARSIZEX/2 white:pos barx,BARY:drwbox BARSIZEX,BARSIZEY bx+=bpx if bx<=0:bx=0:bpx=-bpx if bx>=(RCX-BALLSIZE):bx=RCX-BALLSIZE:bpx=-bpx by+=bpy if by<=0:by=0:bpy=-bpy if by>=(RCY-BALLSIZE):by=RCY-BALLSIZE:bpy=-bpy buttom=by+BALLSIZE:halfx=bx+BALLSIZE/2:barhalfx=barx+BARSIZEX/2 if buttom>=BARY & by<BARY+BARSIZEY & abs(halfx-barhalfx)<BARSIZEX/2{ bly=BARY-BALLSIZE:bpy=-bpy } white:circle bx,by,bx+BALLSIZE,by+BALLSIZE redraw 1 await 4 loop



この記事に返信する


KA

リンク

2015/11/16(Mon) 19:28:31|NO.73057

他人が検証出来るようにして下さい。



Okay

リンク

2015/11/16(Mon) 20:00:06|NO.73059

すいません。
#module

#define global black color 0,0,0
#define global white color 255,255,255

#deffunc drwbox int sx,int sy
boxf ginfo_cx,ginfo_cy,ginfo_cx+sx,ginfo_cy+sy
return

#global



暇人

リンク

2015/11/16(Mon) 20:13:01|NO.73061

> bly=BARY-BALLSIZE:bpy=-bpy
bly?



Okay

リンク

2015/11/16(Mon) 21:06:56|NO.73062

by を bly と書いてしまっていただけでした。
こんなことで投稿してすみません



KA

リンク

2015/11/16(Mon) 22:07:36|NO.73064

他にも無駄や意味なしの部分が有るので探して下さい。



ONION software Copyright 1997-2021(c) All rights reserved.