Opened by Ishka at 2005-02-17 10:47
User since
2003-08-04
771 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
771 Artikel
HausmeisterIn
Hallo,
In meinen Programmen will ich beim Motion-binding immer wieder mal wissen, ob und welche Maustasten gedrückt sind. Beim Überarbeiten von einigen dieser habe ich beschlossen, daß meine alte Methode, beim Drücken das in eine Variable zu schreiben und beim Loslassen auch, nicht die schönste ist. Weiß jemand eine Methode das an dieser Stelle direkt abzufragen?
danke,
Ishka
In meinen Programmen will ich beim Motion-binding immer wieder mal wissen, ob und welche Maustasten gedrückt sind. Beim Überarbeiten von einigen dieser habe ich beschlossen, daß meine alte Methode, beim Drücken das in eine Variable zu schreiben und beim Loslassen auch, nicht die schönste ist. Weiß jemand eine Methode das an dieser Stelle direkt abzufragen?
danke,
Ishka
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}