ズブの初心者がゲーム作れるまで勉強するスレ

**名無しさん＠お腹いっぱい。** · 01/11/07 20:26

【参加資格】
ズブの初心者以外お断りです。

なおアドバイス等はプロのかたでも結構です。
初心者は聞く耳を持ちプロもわかりやすく教えてやってください。

**名前は開発中のものです。** · 2006/03/13(月) 17:19:17

screen 0,640,480

map_width=79
map_height=59

dim map, map_width, map_height

//一番外の壁
for y, 0, map_height
    for x, 0, map_width
        map.x.y=1
    next
next
for y, 1, map_height-1
    for x, 1, map_width-1
        map.x.y=0
    next
next

//1マス間隔で置く
for y, 2, map_height-2, 2
    for x, 2, map_width-2, 2
        map.x.y=1
    next
next

**名前は開発中のものです。** · 2006/03/13(月) 17:21:43

//計算用の補助変数
dim ax,4
dim ay,4

ax.0=0
ax.1=1
ax.2=0
ax.3=-1

ay.0=-1
ay.1=0
ay.2=1
ay.3=0

//1マス間隔の壁のまわりにランダムに置く
for y, 2, map_height-2, 2
    for x, 2, map_width-2, 2
        rx=x+ax.rnd(4)
        ry=y+ay.rnd(4)
        map.rx.ry=1
    next
next

for y, 0, map_height
    for x, 0, map_width
        if map.x.y=1:boxf x*8, y*8, x*8+7, y*8+7
    next
next