Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Perl Missle Defense Shield

by etcshadow (Priest)
on Dec 02, 2004 at 03:58 UTC ( #411648=note: print w/replies, xml ) Need Help??


in reply to Perl Missile Defense Shield

I changed the key-binding code from this:
#1 degree in rads is pi divided by 180 = .01745 $mw->bind('<Left>',sub{ &rotate(.01745) }); $mw->bind('<Right>',sub{ &rotate(-.01745) }); $mw->bind('<Up>',sub{ &power(10) }); $mw->bind('<Down>',sub{ &power(-10) }); $mw->bind('<space>', sub{ &fire} );
to this:
#1 degree in rads is pi divided by 180 = .01745 my ($kleft, $kright, $kup, $kdown); $mw->bind('<Left>',sub{ $kleft ||= $mw->repeat(50, sub { &rotate(.0174 +5) }) }); $mw->bind('<Right>',sub{ $kright ||= $mw->repeat(50, sub { &rotate(-.0 +1745) }) }); $mw->bind('<KeyRelease-Left>',sub{ $kleft->cancel; undef $kleft }); $mw->bind('<KeyRelease-Right>',sub{ $kright->cancel; undef $kright }); $mw->bind('<Up>',sub{ $kup ||= $mw->repeat(50, sub { &power(10) }) }); $mw->bind('<KeyRelease-Up>',sub{ $kup->cancel; undef $kup }); $mw->bind('<Down>',sub{ $kdown ||= $mw->repeat(50, sub { &power(-10) } +) }); $mw->bind('<KeyRelease-Down>',sub{ $kdown->cancel; undef $kdown }); $mw->bind('<space>', sub{ &fire} );
It gives you more "video-game"-like motion.
------------ :Wq Not an editor command: Wq

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://411648]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (8)
As of 2019-05-20 12:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you enjoy 3D movies?



    Results (128 votes). Check out past polls.

    Notices?