… | … | ||
---|---|---|---|
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 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |