小ワザ/弾の射出

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

#const chargeTime 10    // 一度射出してから次に射出するまでの最低確保時間
#const mySize 10        // 自機の大きさ（1辺の半分）
#const bulletSize 5     // 弾の大きさ（1辺の半分）
#const BULLET_MAX 10    // 弾の最大数
 
    myX = ginfo_winx / 2
    myY = ginfo_winy * 4 / 5
    dim bulletFlag, BULLET_MAX
 
*main
    redraw 0
    color 255, 255, 255 : boxf
    gosub *shot         // 弾を射出
    gosub *moveBullet   // 弾の移動
    gosub *drawMyShip   // 自機の描画
    gosub *drawBullet   // 弾の描画
    redraw 1
    await 10
    goto *main
 
*shot
    if charge > 0 : charge-- : return
    getkey pushed, 'Z'  // Zキーで発射
    if pushed {
        charge = chargeTime
        gosub *makeBullet
    }
    return
 
*makeBullet
    repeat BULLET_MAX
        if bulletFlag(cnt) : continue      // 弾が射出済み
        bulletFlag(cnt) = 1
        bulletX(cnt)  = myX
        bulletY(cnt)  = myY - mySize - bulletSize
        bulletVX(cnt) = 0
        bulletVY(cnt) = -8
        break
    loop
    return
 
*moveBullet
    repeat BULLET_MAX
        if bulletFlag(cnt) == 0 : continue
        bulletX(cnt) += bulletVX
        bulletY(cnt) += bulletVY
        if (bulletX(cnt) < 0)|(ginfo_winx < bulletX(cnt))|(bulletY(cnt) < 0)|(ginfo_winy < bulletY(cnt)) {
            bulletFlag(cnt) = 0
        }
    loop
    return
 
*drawMyShip
    color 0, 0, 255
    boxf myX - mySize, myY - mySize, myX + mySize, MyY + mySize
    return
 
*drawBullet
    color 255
    repeat BULLET_MAX
        if bulletFlag(cnt) == 0 : continue
        circle bulletX(cnt) - bulletSize, bulletY(cnt) - bulletSize, bulletX(cnt) + bulletSize, bulletY(cnt) + bulletSize
    loop
    return