|
2022/2/1(Tue) 17:02:06|NO.95276
一応ちゃんと動くキーボードのほうも追加したのを張っておきます(過去ログで利用する人がいるかもしれないので)
スクリーンセーバー表示用 (マウスを動かさない、何も入力しないと反応します)
screen 0//買えておk
taikitime = 100//←秒数 *10-1
*fast
cls
atime =0
repeat 10
mX = ginfo_mx
mY = ginfo_my
loop
keynn = 1
*keydayotw
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
if keynn > 130:goto *keydayoatw
goto *keydayotw
*keydayoatw
if (mX =ginfo_mx)&(mY =ginfo_my) {//22 //止まっていたらugoへはいる
getkey flag, 27 ;キー入力チェック
if flag = 1 : end
*ugo
atime = atime +1
if atime >= taikitime : goto *kakunin//最終確認へ、それでも動かんかったら
keynn = 1
*keydayotwo
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
getkey keyflag, keynn ;キー入力チェック
if keyflag = 1 : goto *fast
keynn =keynn +1
if keynn > 130:goto *keydayoatwo
goto *keydayotwo
*keydayoatwo
mes ""+keynn+""//消しておk::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
if (mX !=ginfo_mx)&(mY !=ginfo_my){//33 //もしそのあと動いたら*fastへ戻る
goto *fast
}//33
await 100
goto *ugo
*kakunin
atime = 0
if (mX !=ginfo_mx)&(mY !=ginfo_my){//11endになる前にほんとに動いてないか
goto *fast
}//11
/////////////////////↓に実行内容
end
/////////////////////↑に実行内容
}//22
goto *fast

| |