08/06/21 17:32:03 6/o9KqUP
// AfterInit.tjs に以下を追加
with(kag) {
.origOnMouseWheel = .onMouseWheel;
.wheelUpStorage = .wheelUpTarget = .wheelDownStorage = .wheelDownTarget = "";
.onMouseWheel = function(shift, delta, x, y) {
if (inSleep) {
if (delta > 0 && (wheelUpStorage != "" || wheelUpTarget != "")) {
process(wheelUpStorage, wheelUpTarget);
wheelUpStorage = wheelUpTarget = wheelDownStorage = wheelDownTarget = "";
return;
} else if (delta < 0 && (wheelDownStorage != "" || wheelDownTarget != "")) {
process(wheelDownStorage, wheelDownTarget);
wheelUpStorage = wheelUpTarget = wheelDownStorage = wheelDownTarget = "";
return;
}
}
return origOnMouseWheel(shift,delta,x,y);
} incontextof kag;
.tagHandlers.wheel = function(elm) {
wheelUpStorage = elm.upstorage; wheelUpTarget = elm.uptarget;
wheelDownStorage = elm.downstorage; wheelDownTarget = elm.downtarget;
return 0;
} incontextof kag;
}
//--- ここまで
; KAG拡張:ホイール時の飛び先を指定。
; [s] 状態でのみ機能する。ジャンプすると設定はクリアされる
; リンクやボタンは機能したままなので必要に応じてジャンプ先で[locklink]すること
@wheel upstorage=hoge.ks uptarget=*up downstorage=hoge.ks downtarget=*down
; 強制解除
@wheel