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

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

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

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

**名前は開発中のものです。** · 2006/03/14(火) 23:19:42

//裏画面
screen 1,640,480,2

//自機
screen 2,32,32,2
picload "jiki.bmp",2

//敵機
screen 3,128,128,2
picload "teki.bmp",2

//変数
cx=320
cy=400
cx_min=0
cx_max=640-32
cx_speed=4

tx=100
ty=32
tx_min=0
tx_max=640-128
tx_speed=8
tx_dir=tx_speed

dim bx,10
dim by,10
dim bspeed,10
dim blength,10
dim benable,10

**名前は開発中のものです。** · 2006/03/14(火) 23:20:26

for i,0,10
    bspeed.i=16
    blength.i=16
    benable.i=0
next

screen 0,640,480
cls 4
repeat
    //敵を動かす
    tx=tx+tx_dir
    if tx>tx_max : tx_dir=-1*tx_speed : ty=ty+8
    if tx<tx_min : tx_dir= tx_speed : ty=ty+8

    //自機操作
    stick keyboard,15,1

    switch keyboard
    case 1
        cx=cx-cx_speed
        swbreak
    case 4
        cx=cx+cx_speed
        swbreak
    case 64
        for i, 0, 10
            if benable.i=0 {
                benable.i=1
                bx.i=cx+16
                by.i=cy
                goto *fire_end
            }

**名前は開発中のものです。** · 2006/03/14(火) 23:20:57

        next
        *fire_end
    swend
    if cx>cx_max : cx=cx-cx_speed
    if cx<cx_min : cx=cx+cx_speed

    //自機弾
    for i,0,10
        if benable.i=1 {
            by.i=by.i-bspeed
            if by.i<0 : benable.i=0
        }
    next

    //裏画面を作る
    gsel 1,-1
    cls 4
    await 1

    pos cx,cy: gcopy 2, 0,0
    pos tx,ty:gcopy 3, 0,0,128,128
    for i,0,10
        if benable.i=1 :     color 255,255,255: line bx.i, by.i, bx.i, by.i+blength.i
    next
    //表画面へコピー
    gsel 0,1
    pos 0,0: gcopy 1,0,0,640,480

loop