sample\llmod3\test8.hsp » Plain Format
;================================================================================= ; ;llmod3を使った各moduleの使用例 ; ;================================================================================= #include "llmod3/llmod3.hsp" #include "llmod3/input.hsp" cls button "終了",*x15 mes "方向キーでマウスカーソルを移動できます" mes "SHIFTボタンを押すとマウスの左ボタンを押したことになります" *@ movx=0 : movy=0 getkey a,37 : if a : movx- ;←キー getkey a,38 : if a : movy- ;↑キー getkey a,39 : if a : movx+ ;→キー getkey a,40 : if a : movy+ ;↓キー ;SHIFTが押されたら左ボタンを押す getkey kSHIFT,16 if kSHIFT : a=$2 : else : a=0 mouse_event $1+a, movx, movy ;SHIFTを押すとマウスの左ボタンを押したことになりkが1になる getkey k,1 : if k : pset mousex,mousey ;SHIFTが押されてたら左ボタンを放す if kSHIFT : mouse_event $4 await 1 goto *@b *x15 end