すくすくゴートうちゃん 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.

char.mod.hsp 860 B

1 year ago
1 year ago
1 year ago
1 year ago
1 year ago
1 year ago
1 year ago
1 year ago
1 year ago
1 year ago
1 year ago
1 year ago
1 year ago
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. #module \
  2. Char
  3. #const CHAR_WIDTH 32
  4. #const UNKNOWN 52
  5. #defcfunc local \
  6. New \
  7. str p_text
  8. If insNum <= 0 {
  9. NoteSel charDict
  10. NoteLoad "dict.dat"
  11. NoteUnsel
  12. }
  13. text.insNum = p_text
  14. posX.insNum = gInfo_cX
  15. posY.insNum = gInfo_cY
  16. size.insNum = CHAR_WIDTH
  17. exists.insNum = True
  18. insNum++
  19. Return insNum - 1
  20. #deffunc local \
  21. Destroy \
  22. int p_insId
  23. exists.insNum = False
  24. Return
  25. #deffunc local \
  26. Draw \
  27. local cnt_,\
  28. local found,\
  29. local zoom
  30. Repeat insNum
  31. If exists.cnt {
  32. cnt_ = cnt
  33. NoteSel charDict
  34. Repeat StrLen (text.cnt_) / 3
  35. Pos posX.cnt_ + cnt * size.cnt_, posY.cnt_
  36. found = NoteFind (StrMid (text.cnt_, cnt * 3, 3))
  37. If found = -1 {
  38. found = UNKNOWN
  39. }
  40. zoom = Double (size.cnt_) / CHAR_WIDTH
  41. CelPut BUFFER_CHAR, found, zoom, zoom
  42. Loop
  43. NoteUnsel
  44. }
  45. Loop
  46. Return
  47. #global