検索
AND検索
OR検索
トップ
|
リロード
|
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
ver2.61_MAP_DUNGEON をテンプレートにして作成
メニュー
簡易掲示板
LINK集
y.tackの公式BBSブックマーク
practice room
?
最新の20件
2022-10-09
多角形の内外判定
2021-05-19
RecentDeleted
2018-08-01
FrontPage
文字列型変数管理サブルーチン
GAME作成システム
2018-07-31
double型変数管理サブルーチン
int型変数管理サブルーチン
2018-07-21
GUIとメイン分割処理。たたき台2
2018-07-11
memo
NO_579_sample
GUIとメイン分割処理。たたき台
2018-06-28
NO_714
NO_712
NO_706
NO_705
NO_704
NO_703
NO_702
2018-06-23
Shift_JIS
モートン番号テーブル化 / 八分木
total
0
today
0
yesterday
0
now
1
Menu
Total:0/Today:0
開始行:
**ver2.61_MAP_DUNGEON [#z1f3e837]
http://www.SMITH-PROJECT.jp/~
>ただし、そのままの内容で転載の際は事前連絡をください~
って書いてたので連絡をしたら迅速な返事をいただき~
転載を許可していただきました。感謝!
#define MAP_WIDTH 20 ;マップの横幅
#define MAP_HEIGHT 20 ;マップの縦幅
#define SIZE 32 ;1マスのサイズ
#define MAIN_PLANE 0
#define COL_MODE 0 //変更 1だと色つかないw
;///// 初期設定いろいろ /////
scrX=MAP_WIDTH*SIZE:scrY=MAP_HEIGHT*SIZE
if (ginfo_dispx<scrX)||(ginfo_dispy<scrY):dialog "MAPが...
screen MAIN_PLANE,scrX,scrY,COL_MODE,(ginfo_dispx-scrX)...
dim map,MAP_WIDTH,MAP_HEIGHT:sdim map_chip,10,10
map_chip.0="","■","★","●":font "MS ゴシック",SIZE
randomize:map_w=MAP_WIDTH-1:map_h=MAP_HEIGHT-1: mx=map_...
;///// MAPの端をすべて壁に /////
repeat MAP_WIDTH:map.cnt.0=1:map.cnt.map_h=1:loop
repeat MAP_HEIGHT:map.0.cnt=1:map.map_w.cnt=1:loop
;///// それっぽく迷路を作る ///// アルゴリズム全然理解...
repeat MAP_WIDTH/2-1
x=cnt*2+1
repeat MAP_HEIGHT/2-1
y=cnt*2+1:r=rnd(3):r++:map.x.y=r:r=rnd(3):r++ // 変更...
if r==1{tmpx=x:tmpy=y-1:pchk=map.tmpx.tmpy
if pchk:continue:else:map.tmpx.tmpy=r
}
if r==2{tmpx=x+1:tmpy=y:pchk=map.tmpx.tmpy
if pchk:continue:else:map.tmpx.tmpy=r
}
if r==3{tmpx=x:tmpy=y+1:pchk=map.tmpx.tmpy
if pchk:continue:else:map.tmpx.tmpy=r
}
loop
loop
;///// 迷路描画 /////
gsel MAIN_PLANE:color 32,32,128
repeat MAP_WIDTH
x=cnt
repeat MAP_HEIGHT
y=cnt:r=map.x.y:pos x*SIZE,y*SIZE:mes map_chip.r
loop
loop
color 255,255,255:pos mx*SIZE,my*SIZE:mes "◆" ;smith氏...
*MAIN
await 50:stick ky,15:if ky==0:goto *MAIN ;Key入力
xv=((ky>>2)&1)-(ky&1):yv=((ky>>3)&1)-((ky>>1)&1) ;smith...
tmpx=mx+xv:tmpy=my+yv:pchk=map.tmpx.tmpy ;smith氏コメ...
;smith氏コメント
if pchk==0{
o_mx=mx:o_my=my:mx+=xv:my+=yv:redraw 2
color 255,255,255:pos mx*SIZE,my*SIZE:mes "◆"
tmpx=o_mx*SIZE:tmpy=o_my*SIZE
color 0 , 0, 0:boxf tmpx,tmpy,tmpx+SIZE,tmpy+SIZE:r...
}
goto *MAIN
;////////// プログラム解説 //////////
;smith氏コメント
;/////////////////////////////////////////
;Programed by smith 2001.03 (smith@big.or.jp)
;このプログラムソースは自由にご使用頂いて構いません。
;ただし、そのままの内容で転載の際は事前連絡をください。
;---------- 迷路生成アルゴリズム参考 ----------
;「鷹月ぐみな氏CreationCollege」
;http://cgi.campus.ne.jp/~ishigami/CREATION/index.html /...
;smith氏コメントはあんまり残ってるとよくない気がしました...
;半分くらい割愛しました。気になる人はsmith氏サイトを要ch...
終了行:
**ver2.61_MAP_DUNGEON [#z1f3e837]
http://www.SMITH-PROJECT.jp/~
>ただし、そのままの内容で転載の際は事前連絡をください~
って書いてたので連絡をしたら迅速な返事をいただき~
転載を許可していただきました。感謝!
#define MAP_WIDTH 20 ;マップの横幅
#define MAP_HEIGHT 20 ;マップの縦幅
#define SIZE 32 ;1マスのサイズ
#define MAIN_PLANE 0
#define COL_MODE 0 //変更 1だと色つかないw
;///// 初期設定いろいろ /////
scrX=MAP_WIDTH*SIZE:scrY=MAP_HEIGHT*SIZE
if (ginfo_dispx<scrX)||(ginfo_dispy<scrY):dialog "MAPが...
screen MAIN_PLANE,scrX,scrY,COL_MODE,(ginfo_dispx-scrX)...
dim map,MAP_WIDTH,MAP_HEIGHT:sdim map_chip,10,10
map_chip.0="","■","★","●":font "MS ゴシック",SIZE
randomize:map_w=MAP_WIDTH-1:map_h=MAP_HEIGHT-1: mx=map_...
;///// MAPの端をすべて壁に /////
repeat MAP_WIDTH:map.cnt.0=1:map.cnt.map_h=1:loop
repeat MAP_HEIGHT:map.0.cnt=1:map.map_w.cnt=1:loop
;///// それっぽく迷路を作る ///// アルゴリズム全然理解...
repeat MAP_WIDTH/2-1
x=cnt*2+1
repeat MAP_HEIGHT/2-1
y=cnt*2+1:r=rnd(3):r++:map.x.y=r:r=rnd(3):r++ // 変更...
if r==1{tmpx=x:tmpy=y-1:pchk=map.tmpx.tmpy
if pchk:continue:else:map.tmpx.tmpy=r
}
if r==2{tmpx=x+1:tmpy=y:pchk=map.tmpx.tmpy
if pchk:continue:else:map.tmpx.tmpy=r
}
if r==3{tmpx=x:tmpy=y+1:pchk=map.tmpx.tmpy
if pchk:continue:else:map.tmpx.tmpy=r
}
loop
loop
;///// 迷路描画 /////
gsel MAIN_PLANE:color 32,32,128
repeat MAP_WIDTH
x=cnt
repeat MAP_HEIGHT
y=cnt:r=map.x.y:pos x*SIZE,y*SIZE:mes map_chip.r
loop
loop
color 255,255,255:pos mx*SIZE,my*SIZE:mes "◆" ;smith氏...
*MAIN
await 50:stick ky,15:if ky==0:goto *MAIN ;Key入力
xv=((ky>>2)&1)-(ky&1):yv=((ky>>3)&1)-((ky>>1)&1) ;smith...
tmpx=mx+xv:tmpy=my+yv:pchk=map.tmpx.tmpy ;smith氏コメ...
;smith氏コメント
if pchk==0{
o_mx=mx:o_my=my:mx+=xv:my+=yv:redraw 2
color 255,255,255:pos mx*SIZE,my*SIZE:mes "◆"
tmpx=o_mx*SIZE:tmpy=o_my*SIZE
color 0 , 0, 0:boxf tmpx,tmpy,tmpx+SIZE,tmpy+SIZE:r...
}
goto *MAIN
;////////// プログラム解説 //////////
;smith氏コメント
;/////////////////////////////////////////
;Programed by smith 2001.03 (smith@big.or.jp)
;このプログラムソースは自由にご使用頂いて構いません。
;ただし、そのままの内容で転載の際は事前連絡をください。
;---------- 迷路生成アルゴリズム参考 ----------
;「鷹月ぐみな氏CreationCollege」
;http://cgi.campus.ne.jp/~ishigami/CREATION/index.html /...
;smith氏コメントはあんまり残ってるとよくない気がしました...
;半分くらい割愛しました。気になる人はsmith氏サイトを要ch...
ページ名: