Orkuncakilkaya
6117f73602
The arrow Key constants folded to the codes of w/s/a/d, which is what the per-frame key reports for an arrow, but cocoa.ll has always stored an arrow in the held-key set under 128-131. So Input.key_down(Key.Up) read the W bit and Input.move_i's arrow half never moved anything. Input.key keeps its WASD alias, so games comparing it with 'w' (snake, chronorift) still take the arrows. New example input_arrows.ludic, checked by ludic-dev test. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
39 lines
1.7 KiB
Text
39 lines
1.7 KiB
Text
# emit_key.ludic — `Key.Name` -> the key code the input layer delivers, folded at
|
|
# compile time (like Color.*). Letters are the lowercase character (what the held-key
|
|
# set stores), digits their ASCII, plus the specials; Escape is 27 (0.3, #88).
|
|
#
|
|
# The arrows are 128-131, the codes the platform stores them under in the held-key set
|
|
# (cocoa.ll's ev_keyval). They used to fold to w/s/a/d, which is what the single
|
|
# per-frame key (Input.key) reports for an arrow - but the held set never had those bits
|
|
# for an arrow, so Input.key_down(Key.Up) and Input.move_i's arrow half never fired.
|
|
# Input.key keeps its WASD alias, so a game comparing it with 'w' still takes the arrows.
|
|
function key_lookup(name: pointer) -> int {
|
|
if (name == "Space") { return 32 }
|
|
if (name == "Enter") { return 10 }
|
|
if (name == "Return") { return 10 }
|
|
if (name == "Escape") { return 27 }
|
|
if (name == "Esc") { return 27 }
|
|
if (name == "Shift") { return 16 }
|
|
if (name == "Tab") { return 9 }
|
|
if (name == "Backspace") { return 8 }
|
|
if (name == "Up") { return 128 }
|
|
if (name == "Down") { return 129 }
|
|
if (name == "Left") { return 130 }
|
|
if (name == "Right") { return 131 }
|
|
if (name == "Digit0") { return 48 }
|
|
if (name == "Digit1") { return 49 }
|
|
if (name == "Digit2") { return 50 }
|
|
if (name == "Digit3") { return 51 }
|
|
if (name == "Digit4") { return 52 }
|
|
if (name == "Digit5") { return 53 }
|
|
if (name == "Digit6") { return 54 }
|
|
if (name == "Digit7") { return 55 }
|
|
if (name == "Digit8") { return 56 }
|
|
if (name == "Digit9") { return 57 }
|
|
# a single capital letter names that letter key: Key.A .. Key.Z
|
|
if (name[1] == 0) {
|
|
let c = name[0]
|
|
if (c >= 'A') and (c <= 'Z') { return c + 32 }
|
|
}
|
|
return -1
|
|
}
|