| … | |
… | |
| 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 | |
