begin AB_LightSourceDay_s

short Xposition
short myState

dontsaveobject

if ( CellChanged == 1 )

	if ( Xposition > 4520 )

		set myState to 1
	else
		set myState to 0
	endif
	Return
endif

If ( MenuMode == 1 )
	Return
Endif

set Xposition to ( GetPos, x )

if ( Gamehour > 21 )

	if ( Xposition < 5420 )
		SetPos x 5420
		MoveWorld x 1
	endif
	return

elseif ( Gamehour > 20 )

	if ( Xposition < 5420 )
		MoveWorld x, 10
	endif
	return
endif

if ( getcurrentweather < 2 )

	if ( Gamehour > 7 )

		if ( Xposition > 4420 )
			SetPos x 4420
			MoveWorld x -1

		elseif ( myState == 1 )
			set myState to 0
			disable
			enable
		endif

	elseif ( Gamehour > 6 )

		if ( Xposition > 4420 )
			MoveWorld x, -10

		elseif ( myState == 1 )
			set myState to 0
			disable
			enable
		endif

	elseif ( Xposition < 5420 )
		SetPos x 5420
		MoveWorld x 1
	endif
	return
endif

if ( getcurrentweather < 5 )

	if ( Gamehour > 7 )

		if ( Xposition > 4520 )
			SetPos x 4520
			MoveWorld x -1
		elseif ( Xposition < 4510 )
			SetPos x 4520
			MoveWorld x -1

		elseif ( myState == 1 )
			set myState to 0
			disable
			enable
		endif

	elseif ( Gamehour > 6 )

		if ( Xposition > 4520 )
			MoveWorld x, -10
		elseif ( Xposition < 4510 )
			SetPos x 4520
			MoveWorld x -1

		elseif ( myState == 1 )
			set myState to 0
			disable
			enable
		endif

	elseif ( Xposition < 5420 )
		SetPos x 5420
		MoveWorld x 1
	endif
	return
endif

if ( Xposition < 5420 )
	SetPos x 5420
	MoveWorld x 1
endif

end