polserver/testsuite/pol/scripts/misc/boat.src
Kevin Eady 48c8a00476
Allow custom boat control script defined in boat item descriptor; Rename boat method setpilot to set_pilot (#591)
* Allow custom boat control script defined in boat item descriptor

* Rename boat.setpilot to boat.set_pilot
2024-01-08 18:46:01 +00:00

14 lines
345 B
Text

use os;
program start_boat( param )
var ev, listener := start_script( ":testboat:boat", param );
// The default control script starts forwards events from the boat control
// script to the created listener.
while ( param )
if ( ev := wait_for_event(10) )
listener.sendevent( ev );
endif
endwhile
return 1;
endprogram