[過去ﾛｸﾞ]
HSPで完全ｵﾘのSLGを作るｽﾚ (350ﾚｽ)
HSPで完全ｵﾘのSLGを作るｽﾚ http://mevius.5ch.net/test/read.cgi/gamedev/1047478458/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
118: 名前は開発中のものです。 [sage] 03/10/22 19:27 ID:Zc2QBTuk //方向キーで移動 スペースでユニットチェンジ sdim unit,3,4 :unit.0="●" :unit.1="■" :unit.2="★" dim unit_pos,3,3 :unit_pos.0.0=0,0 :unit_pos.0.1=7,7 :unit_pos.0.2=14,14 dim unit_move,3 :unit_move.0=3 :unit_move.1=4 :unit_move.2=5 :unit_rem=3 screen 0,480 :font "",33 repeat color 80,80,80 :boxf unit_x=unit_pos.0.num :unit_y=unit_pos.1.num move_u=0 :move_d=0 :move_r=0 :move_l=0 repeat :redraw 0 gosub *draw color repeat 15 if cnt!0 :line 0,cnt*32,winx,cnt*32 :line cnt*32,0,cnt*32,winy loop stick k,15 :if k!0 :gosub *move if br!0 :br=0 :break color repeat unit_rem pos unit_pos.0.cnt*32,unit_pos.1.cnt*32 :mes unit.cnt loop redraw 1 :await 100 :loop loop http://mevius.5ch.net/test/read.cgi/gamedev/1047478458/118
119: 名前は開発中のものです。 [sage] 03/10/22 19:28 ID:Zc2QBTuk *draw i=1 :j=0 :color 200,200,255 repeat unit_move.num+1 repeat i boxf unit_x*32-(cnt*32),unit_y*32+(unit_move.num*32)-j,unit_x*32-(cnt*32)+32,unit_y*32+(unit_move.num*32)-j+32 boxf unit_x*32+(cnt*32),unit_y*32+(unit_move.num*32)-j,unit_x*32+(cnt*32)+32,unit_y*32+(unit_move.num*32)-j+32 boxf unit_x*32-(cnt*32),unit_y*32-(unit_move.num*32)+j,unit_x*32-(cnt*32)+32,unit_y*32-(unit_move.num*32)+j+32 boxf unit_x*32+(cnt*32),unit_y*32-(unit_move.num*32)+j,unit_x*32+(cnt*32)+32,unit_y*32-(unit_move.num*32)+j+32 loop j+=32 i++ loop return http://mevius.5ch.net/test/read.cgi/gamedev/1047478458/119
120: 名前は開発中のものです。 [sage] 03/10/22 19:29 ID:Zc2QBTuk *move if k&1 :if unit_pos.0.num>0 { if (unit_move.num=(move_l+move_u))|(unit_move.num=(move_l+move_d)) :return repeat unit_rem if (num!cnt)&(unit_pos.0.num-1=unit_pos.0.cnt)&(unit_pos.1.num=unit_pos.1.cnt) :break if cnt=(unit_rem-1) :move_l++ :move_r-- :unit_pos.0.num-- loop } if k&2 :if unit_pos.1.num>0 { if (unit_move.num=(move_u+move_l))|(unit_move.num=(move_u+move_r)) :return repeat unit_rem if (num!cnt)&(unit_pos.0.num=unit_pos.0.cnt)&(unit_pos.1.num-1=unit_pos.1.cnt) :break if cnt=(unit_rem-1) :move_u++ :move_d-- :unit_pos.1.num-- loop } if k&4 :if unit_pos.0.num<14 { if (unit_move.num=(move_r+move_u))|(unit_move.num=(move_r+move_d)) :return repeat unit_rem if (num!cnt)&(unit_pos.0.num+1=unit_pos.0.cnt)&(unit_pos.1.num=unit_pos.1.cnt) :break if cnt=(unit_rem-1) :move_r++ :move_l-- :unit_pos.0.num++ loop } if k&8 :if unit_pos.1.num<14 { if (unit_move.num=(move_d+move_l))|(unit_move.num=(move_d+move_r)) :return repeat unit_rem if (num!cnt)&(unit_pos.0.num=unit_pos.0.cnt)&(unit_pos.1.num+1=unit_pos.1.cnt) :break if cnt=(unit_rem-1) :move_d++ :move_u-- :unit_pos.1.num++ loop } if k&16 :num=num+1\unit_rem :br=1 return http://mevius.5ch.net/test/read.cgi/gamedev/1047478458/120
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.011s