90 lines
1.8 KiB
Perl
Executable file
90 lines
1.8 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
require "telnet.pl";
|
|
|
|
use strict;
|
|
|
|
sub start_engine {
|
|
my( $fgfs ) = shift;
|
|
my( $engine_num ) = shift;
|
|
|
|
my( $prop, $value );
|
|
my( %HASH ) = ();
|
|
|
|
&set_prop( $fgfs, "/controls/engines/engine[$engine_num]/magnetos", "3" );
|
|
&set_prop( $fgfs, "/controls/engines/engine[$engine_num]/starter", "true" );
|
|
sleep(3);
|
|
&set_prop( $fgfs, "/controls/engines/engine[$engine_num]/starter",
|
|
"false" );
|
|
}
|
|
|
|
|
|
sub set_throttle {
|
|
my( $fgfs ) = shift;
|
|
my( $engine ) = shift;
|
|
my( $throttle_norm ) = shift;
|
|
|
|
&set_prop( $fgfs, "/controls/engines/engine[$engine]/throttle",
|
|
$throttle_norm );
|
|
}
|
|
|
|
|
|
sub set_mixture {
|
|
my( $fgfs ) = shift;
|
|
my( $engine ) = shift;
|
|
my( $mix_norm ) = shift;
|
|
|
|
&set_prop( $fgfs, "/controls/engines/engine[$engine]/mixture", $mix_norm );
|
|
}
|
|
|
|
|
|
sub set_weight {
|
|
my( $fgfs ) = shift;
|
|
my( $lbs ) = shift;
|
|
|
|
&set_prop( $fgfs, "/sim/aircraft-weight-lbs", $lbs );
|
|
}
|
|
|
|
|
|
sub set_cg {
|
|
my( $fgfs ) = shift;
|
|
my( $inches ) = shift;
|
|
|
|
&set_prop( $fgfs, "/sim/aircraft-cg-offset-inches", $inches );
|
|
}
|
|
|
|
|
|
sub set_parking_brake {
|
|
my( $fgfs ) = shift;
|
|
my( $pos_norm ) = shift;
|
|
|
|
&set_prop( $fgfs, "/controls/gear/brake-parking", $pos_norm );
|
|
}
|
|
|
|
sub set_flaps {
|
|
my( $fgfs ) = shift;
|
|
my( $pos_norm ) = shift;
|
|
|
|
&set_prop( $fgfs, "/controls/flight/flaps", $pos_norm );
|
|
}
|
|
|
|
sub set_aileron {
|
|
my( $fgfs ) = shift;
|
|
my( $pos_norm ) = shift;
|
|
|
|
&set_prop( $fgfs, "/controls/flight/aileron", $pos_norm );
|
|
}
|
|
|
|
sub set_elevator {
|
|
my( $fgfs ) = shift;
|
|
my( $pos_norm ) = shift;
|
|
|
|
&set_prop( $fgfs, "/controls/flight/elevator", $pos_norm );
|
|
}
|
|
|
|
sub set_rudder {
|
|
my( $fgfs ) = shift;
|
|
my( $pos_norm ) = shift;
|
|
|
|
&set_prop( $fgfs, "/controls/flight/rudder", $pos_norm );
|
|
}
|