def  aircraft()
  setMenuOpenKeyEnable(false)
  deleteAllSprite()
  x=getPlayerPosX()
  y=getPlayerPosY()
  case getEventDirection("playerCharacterEvent")
  when 0
    dx=0
    dy=4
  when 1
    dx=-4
    dy=0
  when 2
    dx=4
    dy=0
  when 3
    dx=0
    dy=-4
  end
  hidePlayer()
  j=0
  while j<9
    x=x+dx
    y=y+dy
    moveCamera(true,x, y)
    waitTime(20)
    j=j+1
  end
  fadeOutMusicStop(1000)
  fadeOut(0, 0, 0)
  setEventCharacter("hikousen", 29574)
  s=createSprite(320728)
  setSpriteRect(s, 0, 64*2, 32, 64, 0, 0, 32, 64)
  setSpritePosition(s, 240, 32*4.5)
  setSpriteZOrder(s, 5)
  setCanvasVisible(true)
  textid=createText(16,16,352,48)
  dscrp="Z：スピードアップ"
  drawCanvas()
  fadeIn()
  playBGM(187542)
  judge=getVariable("jl")
  xmax=32*100-32*8
  xmin=32*8
  ymax=32*100-32*6
  ymin=32*6
  dx0=8
  dy0=8
  dt=16
  drct=2
  ttotal=0
  dash=1
  #入力の取得を始めます
  startInput()

  #ループし続けるように変数を設定します。
  loop = true

  #loop変数がtrueの間はループし続けます。
  while loop

    #入力が入っているかどうか調べます。
    while hasInput()
      #内部にたまっている入力を処理対象とします。
      takeInput()
      if isKeyDown("RIGHT")
        setFlag("right",true)
      elsif isKeyUp("RIGHT")
        setFlag("right",false)
      end
      if isKeyDown("LEFT")
        setFlag("left",true)
      elsif isKeyUp("LEFT")
        setFlag("left",false)
      end
      if isKeyDown("UP")
        setFlag("up",true)
      elsif isKeyUp("UP")
        setFlag("up",false)
      end
      if isKeyDown("DOWN")
        setFlag("down",true)
      elsif isKeyUp("DOWN")
        setFlag("down",false)
      end 

     if isKeyDown("Z")
        dash=4
      elsif isKeyUp("Z")
        dash=1
      end 
 
      if isKeyDown("X") #キーXが押された場合
        #ループを終了します。
        x2=floor(x/32)
        y2=floor(y/32)
        if getFlag("land")==true
          loop = false
        end
      end

    end

    dx=dx0*dash
    dy=dy0*dash

    if getFlag("right")
       drct=2
       x=x+dx
       if x>xmax
         x=xmin+dx
       end
    end
    if getFlag("left")
       drct=1
       x=x-dx
       if x<xmin
         x=xmax-dx
       end
    end
    if getFlag("up")
       drct=3
       y=y-dy
       if y<ymin
         y=ymax-dy
       end
    end
    if getFlag("down")
       drct=0
       y=y+dy
       if y>ymax
         y=ymin+dy
       end
    end
    moveCamera(true, x, y)
    phase=floor(ttotal/6/dt)%4
    phase=phase*32
    setSpriteRect(s, phase, drct*64, 32, 64, 0, 0, 32, 64)
    x2=floor(x/32)
    y2=floor(y/32)
    if judge[x2][y2]==0
      setText(textid,dscrp)
      setFlag("land",false)
    else
      setText(textid,dscrp,"\nX：着陸")
      setFlag("land",true)
    end
    drawCanvas()
    #入力がないときに無駄に処理をしないように30ミリ秒waitを入れます。
    waitTime(dt)
    ttotal=ttotal+dt
  end

  x=floor(x/32)
  y=floor(y/32)
  case judge[x][y]
  when 1
    dx=0
    dy=1
  when 2
    dx=1
    dy=0
  when 3
    dx=0
    dy=-1
  when 4
    dx=-1
    dy=0
  end
  #入力の取得を終了します。
  endInput()
  deleteTextAll()
  fadeOutMusicStop(1000)
  fadeOut(0, 0, 0)
  deleteAllSprite()
  s=createSprite(247580)
  setSpriteRect(s, 0, 0, 512, 384, 0, 0, 512, 384)
  drawCanvas()
  setFadeInterval(1)
  fadeIn()
  warpEvent("playerCharacterEvent", x+dx, y+dy)
  setEventCharacter("hikousen", 35742)
  warpEvent("hikousen", x, y)
  x=getPlayerPosX()
  y=getPlayerPosY()
  moveCamera(true,x, y)
  showPlayer()
  waitTime(1)
  moveCamera(false)
  fadeOut(0, 0, 0)
  setCanvasVisible(false)
  setFadeInterval(500)
  fadeIn()
  playBGM(187657)
  setMenuOpenKeyEnable(true)
end #_/_/_/end function_/_/_/