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

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

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

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

**名前は開発中のものです。** · 2006/03/29(水) 22:49:05

#define MAX 32

buffer 2,640,480
screen 0,640,480

dim bx,MAX
dim by,MAX
dim rad,MAX

repeat MAX
    bx.cnt=320
    by.cnt=240
loop

tx=rnd(640)
ty=rnd(480)

repeat MAX
    rad.cnt=atan(tx-bx.0, ty-by.0)-6.28/MAX*cnt
loop

**名前は開発中のものです。** · 2006/03/29(水) 22:49:35

repeat
    gsel 2,0
    cls 4
    await 100

    color 255, 255, 255

    repeat MAX
        circle tx, ty, tx+16, ty+16, 1
        circle bx.cnt, by.cnt, bx.cnt+16, by.cnt+16, 1

        bx.cnt=bx.cnt+sin(rad.cnt)*10
        by.cnt=by.cnt+cos(rad.cnt)*10

        if abs(tx-bx.cnt)<16 and abs(ty-by.cnt)<16 or by.cnt>480 {
            tx=rnd(640)
            ty=rnd(480)

**名前は開発中のものです。** · 2006/03/29(水) 22:50:07

            repeat MAX
                bx.cnt=320
                by.cnt=240
                rad.cnt=atan(tx-bx.0, ty-by.0)-6.28/MAX*cnt
            loop
        }
    loop

    gsel 0,1
    gcopy 2,0,0,640,480
loop