Ich hab schon lange gesucht.Bin aber nicht auf die Lösung gestoßen irgendwas ist falsch aber was ?
Das Script:

[execute]
Action=registerKeyDownEvent
Key=A
Value=1
next=2

[2]
Action=registerKeyUpEvent
Key=A
Value=2
next=

Tastenpatch on:

MidiTickClear.scriptKeySupportOn
Play SE:MidiTickClear.script
Play SE:Keylist.script
Switch 1 ON

In Common event (Switch 1 ON) Parallel progress
Play SE}etMousePos
Var.0001Mod.MidiPlaypos.(tick.)
Wait:0,01

Common event 2 (Parallel progress)
Fork:Var.0001 same 1
Messg.: A

End case
Fork:Var.0001 same

End case

Hoffe ihr wisst die Lösung.

Mfg. Mr.D 8)