… | |
… | |
20 | |
20 | |
21 | =cut |
21 | =cut |
22 | |
22 | |
23 | package safe::mapscript; |
23 | package safe::mapscript; |
24 | |
24 | |
25 | use strict qw(subs vars); |
25 | use common::sense; |
26 | |
26 | |
27 | =item $self |
27 | =item $self |
28 | |
28 | |
29 | The mapscript object itself |
29 | The mapscript object itself. |
30 | |
30 | |
31 | =item $state |
31 | =item $state |
32 | |
32 | |
33 | The state value (0 means release, <>0 means push/trigger/enable) that |
33 | The state value (0 means release, <>0 means push/trigger/enable) that |
34 | triggered the map script. |
34 | triggered the map script. |
… | |
… | |
78 | |
78 | |
79 | =cut |
79 | =cut |
80 | |
80 | |
81 | sub timer($$) { |
81 | sub timer($$) { |
82 | my $ob = (&find)[0]; |
82 | my $ob = (&find)[0]; |
83 | $ob->speed_left ($_[1] / -cf::TICK); |
83 | $ob->speed_left (-$_[1] / cf::TICK); |
84 | $ob->set_speed (1); |
84 | $ob->set_speed (1); |
85 | } |
85 | } |
86 | |
86 | |
87 | package cf::mapscript; |
87 | package cf::mapscript; |
88 | |
88 | |