;getcode ver1.0
;hsp ver3.21 で作製

;	getcode p1,p2
; 解説
;押したキーのコードを変数 p1 に返します。
;キーコードは getkey 命令で使用する物と同じです。
;p2 には待ち時間を指定します。
;値は wait 命令で使用する物と同様です。


#module
#deffunc getcode var code, int time
	code=0
	onkey gosub *key
	wait time
	onkey 0
	return code

*key
	code=wparam
	return
#global