|
1234567891011121314151617181920212223242526272829303132333435363738394041424344 |
- #module \
- Keyboard
-
- #deffunc local \
- Show
- showing = True
- text = ""
-
- Return
-
- #deffunc local \
- Hide
- showing = False
-
- Return
-
- #defcfunc local \
- GetChar
- if showing = False {
- Return ""
- }
-
- ; text += charDict
-
- Return ""
-
- #deffunc local \
- Draw
- If showing = False {
- Return
- }
-
- Color COLOUR_BLACK
- BoxF 0, 1920 - 480, 1080, 1920
-
- Repeat 50
- Pos 1080 - 96 * (cnt / 5 + 1), 1920 - 480 + 96 * (cnt \ 5)
- CelPut BUFFER_CHAR, cnt, 3, 3
- Loop
-
- Return
-
- #global
-
|