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

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

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

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

◆src/N3iz.2 · 2006/03/29(水) 14:42:56

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

bx=320
by=240

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

//rad=atan(tx-bx, ty-by) //計算箇所1

repeat
    gsel 2,0
    cls 4
    await 1

    color 255, 255, 255
    mes rad

/*

◆src/N3iz.2 · 2006/03/29(水) 14:43:50

*/
    rad=atan(tx-bx, ty-by) //計算箇所2

    circle tx, ty, tx+16, ty+16, 1

    circle bx, by, bx+16, by+16, 1

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

    if abs(tx-bx)<16 and abs(ty-by)<16 {
        tx=rnd(640)
        ty=rnd(480)
        rad=atan(tx-bx, ty-by)
    }

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