Autocurry qw[ stop ];
...
    $stopped = 1;
    sub stop { $stopped = 1 if shift() };
    ...

	$game->command(
	 	-label => '~Stop', 
	 	-command => stop_c(),
	 	-accelerator => 's'
	);