Re: Perl Missle 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}  );
[download]

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}  );
[download]

It gives you more "video-game"-like motion.

------------
:Wq
Not an editor command: Wq
[download]

Comment on Re: Perl Missle Defense Shield Select or Download Code


We don't bite newbies here... much
	PerlMonks