|
2010/3/17(Wed) 21:32:16|NO.31334
サンプルのパクリ+自分のモジュールの貼り付けですけどよかったら
無駄に長いですね・・・
#module
#deffunc sh_boxf int x, int y, int sx, int sy, int r, int g, int b
color r,g,b
boxf x,y,sx,sy
return
#global
#module
#deffunc sh_mes str text, int x, int y, int r, int g, int b
pos x,y
color r,g,b
mes text
return
#global
#module
#defcfunc sh_getkey int ky
getkey key,ky
if( key==1 ){ return 1 }
return 0
#global
screen 0,200,70
key=0
while
redraw 0
sh_boxf 0,0,200,70,0,0,0
sh_mes "Keycode Checker",0,0,255,255,255
sh_mes str(key),0,20,255,255,255
if( sh_getkey( 27 )==1 ){ end }
onkey gosub *inkey
onclick gosub *inkey
wait 10
redraw 1
wend
*inkey
if(lparam>>30) { return }
key = iparam
return
|