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


HSPTV!掲示板


未解決 解決 停止 削除要請

2009
0601
あんファイルについて教えてください9未解決


あん

リンク

2009/6/1(Mon) 11:34:51|NO.25490

HSPで実行を押すとInvalid fileと出てきます
どうしたらいいのかわかりません。
ファイルもあるのですけど・・・
誰か教えてください。



この記事に返信する


SYAM

リンク

2009/6/1(Mon) 12:37:54|NO.25491

それまでにやったことや、そのエラーがどのように表示されるかをできるだけ具体的に教えてください。
原因に関係ありそうかどうかは自分で判断せず、できるだけ。



vine

リンク

2009/6/5(Fri) 11:25:08|NO.25535

テスト問題の答えて教えて、といいながら
テスト問題を見せないのと同じだよ。

ソース載せてみたら、読んでくれる人もいるだろう。

後、自分はいつも、できるはずの処理ができてないときは
その部分だけ別にして調べたりする。
質問する前に、(本気で解らない場合以外は)自分で先ずは調べてね。



あん

リンク

2009/6/8(Mon) 11:00:21|NO.25568

.bmp"
screen 0,300,500
title "ShotGame"

*start
dim sx,8 : dim sy,8 : dim st,8
dim tx,8 : dim ty,8 : dim tks,8
dim tsx,8 : dim tsy,8 : dim tss,8 : dim tdx,8 : dim tdy,8
mx=133 : my=452 : tk=1
repeat 8
sx(cnt)=1000 : sy(cnt)=1000
loop
tks(6)=1 : tks(7)=1

repeat
redraw 0

color 0,0,0 : boxf

gosub *icon

stick key,31
gosub *me

gosub *tkshot

repeat 8
c=cnt
gosub *shot
gosub *teki
gosub *check
loop

redraw 1
await 10
loop

*icon
color 200,200,200 : boxf 0,0,120,30
color 0,0,0:pos 0,5:font "",20,1
mes "SCORE:"+scr
return

*me
if key&1 : mx=mx-6 : if mx<=0 : mx=0
if key&2 : my=my-6 : if my<=0 : my=0
if key&4 : mx=mx+6 : if mx>=265 : mx=265
if key&8 : my=my+6 : if my>=452 : my=452
pos mx,my
gmode 2
gcopy 1,0,0,35,48
return

*shot
if st(c)=0 and ss=0 {
if key&16 {
sx(c)=mx+11 : sy(c)=my
st(c)=1 : key=0
ss=40
}
}
else {
sy(c)=sy(c)-10
if sy(c)<0 : st(c)=0
}

if st(c)=1 {
color 0,0,0
pos sx(c),sy(c)
gmode 2
gcopy 1,35,0,12,12
}
ss=ss-1
if ss<0 : ss=0
return

*teki
if tk=1 {

if tkt=0 {
repeat 6
tx(cnt)=cnt*50
loop
repeat 6
ty(cnt)=cnt*40-240
loop
tkt=1
}

if tks(c)=0 {
ty(c)=ty(c)+3
if ty(c)>500 : tks(c)=1
pos tx(c),ty(c)
gmode 2
gcopy 1,47,0,51,48
}
if tks(c)=1 {
ty(c)=500
}

repeat 8
tkm=tkm+tks(cnt)
loop
if tkm=8 {
tkm=0
tkt=0
tk=2
repeat 8
tks(cnt)=0
loop
} else {
tkm=0
}

}


if tk=2 {

if tkt=0 {
repeat 6
tx(cnt)=cnt*50
loop
repeat 3
ty(cnt)=cnt*40
loop
repeat 3,3
ty(cnt)=200-(cnt*40)
loop
tkt=1
}

if tks(c)=0 {
ty(c)=ty(c)+3
if ty(c)>500 : tks(c)=1
pos tx(c),ty(c)
gmode 2
gcopy 1,98,0,37,48
}
if tks(c)=1 {
ty(c)=500
}

repeat 8
tkm=tkm+tks(cnt)
loop
if tkm=8 {
tkm=0
tkt=0
tk=3
} else {
tkm=0
}

}

if tk=3 {
color 180,180,180 : boxf 50,180,250,320
color 120,120,120 : boxf 65,240,235,275
color 0,0,0 : pos 60,180 : font "",50,2 : mes "CLEAR"
pos 65,240 : font "",30,2 : mes "SCORE:"+scr
pos 65,290 : font "",16 : mes "※エンターキーでもう一度"
redraw 1
repeat
stick key
if key&32 : break
wait 1
loop
goto *start
}

return

*tkshot
r=rnd(8) : e=rnd(8)
if tss(r)=0 {
tsx(r)=tx(r)+8 : tsy(r)=ty(r)+16
tdx(r)=((rnd(4)+7)-2*4) : tdy(r)=(rnd(2)+1)*8
tss(r)=1
}
repeat 8
c=cnt
if tss(c)=1 {
pos tsx(c),tsy(c) : gcopy 1,35,12,12,12
tsx(c)+=tdx(c) : tsy(c)+=tdy(c)
if (tsx(c)<0)|(tsx(c)>312)|(tsy(c)>512) : tss(c)=0
}
loop
return

*check
if tk=1 {
repeat 8
if (sx(cnt)+12>=tx(c))&(sx(cnt)<=tx(c)+51)&(sy(cnt)+12>=ty(c))&(sy(cnt)<=ty(c)+48) {
gcopy 1,135,0,36,48
tks(c)=1
scr=scr+10
ty(c)=500
}
loop
}
if tk=2 {
repeat 8
if (sx(cnt)+12>=tx(c))&(sx(cnt)<=tx(c)+37)&(sy(cnt)+12>=ty(c))&(sy(cnt)<=ty(c)+48) {
gcopy 1,135,0,36,48
tks(c)=1
scr=scr+10
ty(c)=500
}
loop
}


if (mx+35>=tsx(c))&(mx<=tsx(c)+12)&(my+48>=tsy(c))&(my<=tsy(c)+12) {
color 180,180,180 : boxf 50,180,250,320
color 120,120,120 : boxf 65,240,235,275
color 0,0,0 : pos 60,190 : font "",30,2 : mes "GAMEOVER"
pos 65,240 : font "",30,2 : mes "SCORE:"+scr
pos 65,290 : font "",16 : mes "※エンターキーでもう一度"
redraw 1
repeat
stick key
if key&32 : break
wait 1
loop
goto *start
}

return
ですよろしくお願いします



あん

リンク

2009/6/8(Mon) 11:03:11|NO.25569

最初が切れていたので最初のほうだけ
乗せときます

buffer 1
picload "pic.bmp"
screen 0,300,500
title "ShotGame"



KA

リンク

2009/6/8(Mon) 19:14:53|NO.25573

良く分かりませんが、取りあえず動きます。
エラーは出ません。

pic.bmp は、一般的(BMP)なフォーマットですか?
ほかのBMPで試してください。



ORZ

リンク

2009/6/8(Mon) 23:26:17|NO.25583

俺のソースを見てくれという前に掲示板の利用方法を見てくれ



SYAM

リンク

2009/6/9(Tue) 10:05:26|NO.25585

普通に動いちゃいます。
試しにBMPファイルを壊してみたけどエラーメッセージが違いました。はて。

少なくとも、スクリプトに問題はないようですから、BMPファイルを疑うか、またはHSPを再インストールしてみるのがよいと思います。
原因がわからないので、それで直ると保障はできませんが…。



oresama

リンク

2009/6/13(Sat) 09:51:35|NO.25688

自分のサイトのソースですかw
http://www.orewp.net/hsp/etc_contents/img/shot.bmpをダウンロードしてpic.bmpにリネームしてスクリプトと同じフォルダに入れてくだされ・・・



minelufa

リンク

2009/6/15(Mon) 02:05:03|NO.25764

HSP 3.2 で実行しましたが、問題ありませんでした。

つーか・・・動作早すぎて、すぐに終わった・・・・。



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