小ワザ/タイピング/押されたキーを調べる

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20

 
 
 
 
 
 
 
-
|
|
|
|
|
|
-
|
|
!
!
 

    onkey goto *pushed
    font msgothic, 36
    posx = 0
    posy = 0
    stop
 
*pushed
    if (('A'<=iparam)&(iparam<='Z'))|(('0'<=iparam)&(iparam<='9'))|(iparam=='-') {
        string = strf("%c", iparam)
        title string + "が押されました"
 
        pos posx, posy
        mes string
        posx += ginfo_mesx
        if posx >= ginfo_winx {
            posy += ginfo_mesy
            posx = 0
        }
    }
    stop