Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Perl Missle Defense Shield

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

Help for this page

Select Code to Download


  1. or download this
    #1 degree in rads is pi divided by 180 = .01745 
    $mw->bind('<Left>',sub{ &rotate(.01745) });
    ...
    $mw->bind('<Up>',sub{ &power(10) });
    $mw->bind('<Down>',sub{ &power(-10) });
    $mw->bind('<space>', sub{ &fire}  );
    
  2. or download this
    #1 degree in rads is pi divided by 180 = .01745 
    my ($kleft, $kright, $kup, $kdown);
    ...
    $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}  );
    
  3. or download this
    ------------
    :Wq
    Not an editor command: Wq
    

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (2)
As of 2024-04-25 21:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found