Tips の変更点

追加された行はこの色です。
削除された行はこの色です。
Tips へ行く。
Tips の差分を削除

* 情報技術関連 [#g8aaa3f4]
- GoogleEarthを自作プログラムから制御する(GoogleEarth COM API)
-- [[GoogleEarthCOMAPIの仕組]]
-- [[GoogleEarthCOMAPIの使い方(導入法)]]

score=0
frame=1
throw=1
prev_pin=0
mag_n=1
mag_nn=1

100 input pin

if (pin<0) then goto 200
  
  score=score+pin*mag_n
  print frame, "-", throw, "  ", pin," pins"
  mag_n=mag_nn
  mag_nn=1

  if (throw=1 and pin=10) then
      print "Strike"
      if (frame=10) then goto 200
      frame=frame+1
      throw=1
      mag_n=mag_n+1
      mag_nn=mag_nn+1
      goto 100
  endif

  if (throw=1 and pin<10) then
      prev_pin=pin
      throw=2
      goto 100
  endif

  if (throw=2 and prev_pin+pin=10) then
      print "Spare"
      if (frame=10) then goto 300
      frame=frame+1
      throw=1
      mag_n=mag_n+1
      goto 100
  endif
  
  if (frame=10) then goto 400
  frame=frame+1
  throw=1

goto 100

200 throw=throw+1
input pin
score=score+pin
print frame, "-", throw, "  ", pin," pins"
300 throw=throw+1
input pin
score=score+pin
print frame, "-", throw, "  ", pin," pins"
400 print "score=", score