#テキスト表示領域を用意します。
textID = createText(10, 20, 512, 64)
textID2 = createText(10, 20 + 64, 512, 64)
setText(textID2, "press e and end")

#入力の取得を始めます
startInput()

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

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

  #入力が入っているかどうか調べます。
  while hasInput()
    #内部にたまっている入力を処理対象とします。
    takeInput()


    if isMouseDown() #マウスのボタンが押されている場合
      #マウスの位置を取得します。
      pos = getMousePosition()
      #位置を表示します。
      setText(textID, "clicked x = ", pos[0], ", y = ", pos[1])

     
    elsif isMouseMove() #マウスが動いた場合
      #マウスの位置を取得します。
      pos = getMousePosition()
      #位置を表示します。
      setText(textID, "x = ", pos[0], ", y = ", pos[1]);


    elsif isMouseUp() #マウスのボタンが離された場合
      #マウスの位置を取得します。
      pos = getMousePosition()
      #位置を表示します。
      setText(textID, "uped x = ", pos[0], ", y = ", pos[1])

    elsif isKeyDown("A") #キーAが押された場合
      #メッセージを表示します。
      speak("press A")

    elsif isKeyUp("A") #キーAが離された場合
      #メッセージを表示します。
      speak("up A")

    elsif isKeyDown("E") #キーEが押された場合
      #ループを終了します。
      loop = false

    end
  end

  #入力がないときに無駄に処理をしないように30ミリ秒waitを入れます。
  waitTime(30)

end

#入力の取得を終了します。
endInput()

#テキスト表示領域を全部消します。
deleteTextAll()