すくすくゴートうちゃん Android 版(黒歴史)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

63 lines
668 B

  1. #module \
  2. Keyboard
  3. #deffunc local \
  4. Show
  5. showing = True
  6. text = ""
  7. Return
  8. #deffunc local \
  9. Hide
  10. showing = False
  11. Return
  12. #defcfunc local \
  13. GetChar \
  14. local l_ids,\
  15. local l_touchInfo
  16. if showing = False {
  17. Return ""
  18. }
  19. MTList l_id
  20. If stat = 0 {
  21. Return ""
  22. }
  23. MTInfo l_touchInfo, l_id.0
  24. If l_touchInfo.2 < 1920 - 480 {
  25. Return ""
  26. }
  27. NoteSel charDict
  28. ;text += l_
  29. NoteUnsel
  30. ;text += charDict
  31. Return ""
  32. #deffunc local \
  33. Draw
  34. If showing = False {
  35. Return
  36. }
  37. Color COLOUR_BLACK
  38. BoxF 0, 1920 - 480, 1080, 1920
  39. Repeat 50
  40. Pos 1080 - 96 * (cnt / 5 + 1), 1920 - 480 + 96 * (cnt \ 5)
  41. CelPut BUFFER_CHAR, cnt, 3, 3
  42. Loop
  43. Return
  44. #global