Click above to get retro games delivered to your door ever month!

 %OBJ%:W_KEYBOARDMETHODS contains the array of the keys for the current
 object

 The different keys of movement, freeze for columns, tag, untag, cell
 modification are contained in this array.

 Each element of %OBJ%:W_KEYBOARDMETHODS is in turn an array of values
 composed in the following way:

 +------------------------------------------------------------+
 | Value     | Description                                    |
 |-----------+------------------------------------------------|
 | MTD_ACT   | Action                                         |
 | MTD_WHEN  | Condition of ability                           |
 | MTD_RUN   | Condition of runtime                           |
 | MTD_BLOCK | Function to perform                            |
 | MTD_MSG   | Relationship Message                           |
 +------------------------------------------------------------+

 The following cycle shows all the actions with the relative messages
 in relationship

 LOCAL [nMes]

 FOR nMes := 1 TO LEN ( %OBJ%:W_KEYBOARDMETHODS)
     ? %OBJ%:W_KEYBOARDMETHODS[nMes][ MTD_ACT]+"-"
       %OBJ%:W_KEYBOARDMETHODS[nMes][ MTD_MESSAGE]
 NEXT

 to modify a key it is necessary to perform the following code

 LOCAL nMes

 // If the tag key is located
 nMes := AEVAL ( %OBJ%:W_KEYBOARDMETHODS,{| [aMtd]| [aMtd] [MTD_ACT == "[tsi]"]})

 // is replaced with ALT + T
 IF nMes > 0
    %OBJ%:W_KEYBOARDMETHODS[nMes][MTD_ACT]:= "A_t"
 ENDIF