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


HSPTV!掲示板


未解決 解決 停止 削除要請

2009
0409
白いコーヒー牛乳wキーを押すと、押してる間は歩くアクションを永遠にする方向(ファイルを掲示板につける方法も教えてくれればうれしいです..8未解決


白いコーヒー牛乳w

リンク

2009/4/9(Thu) 21:36:55|NO.24525

すいません..
前も同じような質問をしました....

題名のとうり、アクションをする方法がわからないです..(昔のFFみたいな感じ?)

1方向ならできるのですが..

すいません..教えてください<(_ _)>+黒いところもなくしたいです...


;rpgmap2.hsp キャラクター単位スクロール 壁チェック付き

;初期化
sdim map,2000

;グラフィックの読み込み
buffer 1,,,0
picload "mapall.bmp"
buffer 2,,,0
picload "棒人間 通常.bmp"
;画面の切り替え
gsel 0
screen 0,288,288,0



mwide=32 ;マップの横サイズ

map= "41111111111444111111111111111114"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"11111111111414111111111111111111"
map=map+"33333333332222221111112222222222"
map=map+"33333333333222221111112222222222"
map=map+"33333333333322222111111222222222"
map=map+"33333333333332222211111222222222"
map=map+"33333333333332222211111222222222"
map=map+"43333333333332222211111112222224"

;game 座標でプレイヤーの位置 gx,gy

gx=12:gy=12
gosub *memap
*top
stick kk,15
ggx=gx:ggy=gy
if kk&1 : gx-- : dir = 0 ; 左向き
if kk&2 : gy-- : dir = 1 ; 上向き
if kk&4 : gx++ : dir = 2 ; 右向き
if kk&8 : gy++ : dir = 3 ; 下向き
if gx<4:gx=4
if gy<4:gy=4
if gx>27:gx=27
if gy>19:gy=19
pp=(mwide*gy)+gx
a =peek (map,pp)
if a='4':gx=ggx:gy=ggy
gosub *memap
wait 20
goto *top
stop

;プレイヤーとマップ両方表示
*memap
redraw 2
mox=gx-4
moy=gy-4
gosub *allmap
gmode 2
mex=128:mey=128
pos mex,mey
if dir=0 :gcopy 2,0,0,30
if dir=1 :gcopy 2,0,32,30
if dir=2 :gcopy 2,0,64,30
if dir=3 :gcopy 2,0,96,30
redraw 1
return

;キャラクタ単位
*allmap
gmode 0
repeat 9
cty=cnt
i=(moy+cnt)*mwide+mox
repeat 9
code =peek (map,i)
i++
pb = code-'0'
pos cnt*32,cty*32
gcopy 1,pb*32,0,32,32
loop
loop
return

絵はこの空欄に1、2、1、2〜.の順番に動かしたいです
■----------+-----------■
■ 左に移動 i    ■
■ 1 i 2 ■
■ i ■
■ i ■
■----------------------■
■上に移動 i      ■
■ i    ■
■ i 2 ■
■ 1 i ■
■ i ■
■----------------------■
■右に移動 i      ■
■ i    ■
■ 1 i ■
■ i 2 ■
■ i ■
■----------------------■
■     i      ■
■ 下に移動 i    ■
■ i 2 ■
■ 1 i ■
■ i ■
■ i    ■
--------------------------


お願いします!



この記事に返信する


check

リンク

2009/4/9(Thu) 21:40:26|NO.24526

この掲示板ではレスにファイルを添付することができないから、
アップローダーか何か使うしかない。



007

リンク

2009/4/9(Thu) 21:55:45|NO.24528

前の記事が終わったなら解決チェック入れて下さい



みや

リンク

2009/4/9(Thu) 22:05:31|NO.24530

スクリプトは小文字の
で囲んでください。



ORZ

リンク

2009/4/9(Thu) 22:20:20|NO.24532

全体的に、特に後半が全く意味不明。とりあえず以下の順番で勉強すると良いでしょう。

1.日本語の勉強をする(義務教育を真面目に受ける)
2.Googleで欲しい情報を検索する方法を勉強する
3.Googleで自分の思っている事を文書で相手に伝える方法を検索する
4.GoogleでHSPのサンプルを、3を利用して検索する
5.この掲示板の過去ログを検索する
6.どうしてもダメだったら1〜5を利用して、この掲示板で質問する


漢字が一杯で読めなかったらゴメンね。



ヒカリ

リンク

2009/4/9(Thu) 22:25:03|NO.24533

私なりに理解してみましたけど、ちょっと画像の並べ方が不規則だと感じたのでまずひとつ。
用意するグラフィックにも、気を使ってみましょう。


title "こんな感じで、左側が1番目 右側が2番目 …とか" repeat 4 c = cnt repeat 2 hsvcolor i*20, 255, 255 boxf cnt*32, c*32, (cnt+1)*32, (c+1)*32 i ++ loop loop color 255, 255, 255 font msgothic, 32 mes "←←\n↑↑\n→→\n↓↓"

では、本題のヒントを。
gcopy を使った簡単なアニメーションの方法は、

a ++ gcopy 2, a*32, 0, 32, 32
です。



リンク

2009/4/9(Thu) 22:43:28|NO.24534

スクリプトは小文字の<pre>〜</pre>で囲んでください。

かな



ANTARES

リンク

2009/4/9(Thu) 23:11:03|NO.24535

 何が言いたいのかさっぱりわかりませんが、
ちゃんと動いているみたいなんで、
アニメがしたいということでしょうか?

「棒人間 通常.bmp」のかわりに
http://antares.cn/hsp/sample/index.html#animove
のchar.bmpを使ったら以下のようになります。


anim=32-anim if dir=0 :gcopy 2,anim,96,30 ;左 if dir=1 :gcopy 2,anim,0,30 ;上 if dir=2 :gcopy 2,anim,32,30 ;右 if dir=3 :gcopy 2,anim,64,30 ;下

 ファイルを投稿するには、バイナリとbase64形式を
相互変換するツール(拙作anccとか)を
使ってbase64形式のテキストを貼りつければ
一応可能です。



白いコーヒー牛乳w

リンク

2009/4/10(Fri) 18:27:03|NO.24538

あ、ずがへんになってました...



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