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

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

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

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

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

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

dim bx,3
dim by,3
dim rad,3

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

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

//計算箇所1
rad.0=atan(tx-bx.0, ty-by.0)-0.5
rad.1=atan(tx-bx.1, ty-by.1)
rad.2=atan(tx-bx.2, ty-by.2)+0.5
/*

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

*/
repeat
    gsel 2,0
    cls 4
    await 1

    color 255, 255, 255

    repeat 3
//        rad.cnt=atan(tx-bx.cnt, ty-by.cnt) //計算箇所2

        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 {
            tx=rnd(640)
            ty=rnd(480)
/*

**名前は開発中のものです。** · 2006/03/29(水) 18:55:25

*/
            bx.0=bx.1
            by.0=by.1
            bx.2=bx.1
            by.2=by.1

            rad.0=atan(tx-bx.0, ty-by.0)-0.5
            rad.1=atan(tx-bx.1, ty-by.1)
            rad.2=atan(tx-bx.2, ty-by.2)+0.5
        }
    loop

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