Mouse control
Posted: Sat Dec 19, 2009 9:17 am
If there is any detection of mouse "mousedown", like key "mouseleft"?
Thanks beforehand!
Thanks beforehand!
Scene.my.p1 := [0, 0];
Scene.my.move := "";
Scene.my.mousemovement :=
{
posdiff := app.mousepos - scene.my.p1;
scene.my.p1 = app.mousepos;
move := "";
(posdiff(0) ^ 2 + posdiff(1) ^ 2) ^ 0.5 > 0.01 ? {
a := math.acos(posdiff(0) / (posdiff(0) ^ 2 + posdiff(1) ^ 2) ^ 0.5);
posdiff(1) < 0 ? {a = 2 * math.pi - a} : {};
math.or(a <= math.pi / 4, a > 7 * math.pi / 4) ? {scene.my.move = "right"} : {a <= 3 * math.pi / 4 ? {scene.my.move = "up"} : {a <= 5 * math.pi / 4 ? {scene.my.move = "left"} : {a <= 7 * math.pi / 4 ? {scene.my.move = "down"} : {}}}}
} : {scene.my.move}
}
Scene.my.presstime := -1;
Scene.my.mouseleft := {(sim.time - scene.my.presstime) < 0.05 ? {true} : {false}};
Scene.my.presstime2 := -1;
Scene.my.mouseright := {(sim.time - scene.my.presstime2) < 0.05 ? {true} : {false}}