# Clock V1.00	30-10-15	- Initial release	#
#########################################################

CatchEvent OnConnect( $userName ) # Player event
	OnConnect_Clock();
EndCatchEvent

Sub OnConnect_Clock() # Player event
	Clock_tick( $KeyFlags );
EndSub

Sub Clock_tick( $KeyFlags )
	### Display button ###
	openGlobalButton( "clock",80,0,40,6,1,-1,36,"^7Current time: ". GetLapperVar ( "LongTime" ),"" );
	### End ###

	HostDelayedCommand( 1, Clock_tick );
EndSub