Modifying real fields in automatic (was Re: Some Sort of ControlFrom The Browse Screen)

[Fairlight]

#!/usr/bin/perl

use War::Weapons qw(:fully_automatic :artillery :nuclear :particle);
use War::Cleanup::Toolkit qw(coffin shovel);

my @thread = <STDIN>;

# First take care of thread.
&aim(@thread);
&fire_p90(@thread);
&fire_howitzer(@thread);
&launch_tac_nuke(@thread);

# Then take care of remains.
my $dead_horse = join(//, at thread);
my $box = &make_coffin('pine');
my $grave = &dig($dead_horse,'6','feet');
&insert($dead_horse,$box);
&bury($box,$grave);
&fill($grave);

# Finalise cleanup process.
&launch_tac_nuke($grave);

# Prepare to deal with cause of thread continuation.
&aim(HORSE_BEATERS);
&charge(ORBITAL_ION_CANNON);
wait;

# Never reached.
exit;